diff options
| -rw-r--r-- | module/ice-9/psyntax-pp.scm | 22882 |
1 files changed, 11458 insertions, 11424 deletions
diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm index f7e315def..a810531fb 100644 --- a/module/ice-9/psyntax-pp.scm +++ b/module/ice-9/psyntax-pp.scm @@ -2,1231 +2,1231 @@ (if #f #f) (letrec* - ((#{top-level-eval-hook 4262}# - (lambda (#{x 27369}# #{mod 27370}#) - (primitive-eval #{x 27369}#))) - (#{maybe-name-value! 4267}# - (lambda (#{name 16133}# #{val 16134}#) - (if (if (struct? #{val 16134}#) - (eq? (struct-vtable #{val 16134}#) + ((#{top-level-eval-hook 6249}# + (lambda (#{x 29378}# #{mod 29379}#) + (primitive-eval #{x 29378}#))) + (#{maybe-name-value! 6254}# + (lambda (#{name 18120}# #{val 18121}#) + (if (if (struct? #{val 18121}#) + (eq? (struct-vtable #{val 18121}#) (vector-ref %expanded-vtables 13)) #f) - (let ((#{meta 16141}# (struct-ref #{val 16134}# 1))) - (if (not (assq 'name #{meta 16141}#)) - (let ((#{v 16146}# - (cons (cons 'name #{name 16133}#) #{meta 16141}#))) - (struct-set! #{val 16134}# 1 #{v 16146}#))))))) - (#{build-application 4269}# - (lambda (#{source 15858}# - #{fun-exp 15859}# - #{arg-exps 15860}#) + (let ((#{meta 18128}# (struct-ref #{val 18121}# 1))) + (if (not (assq 'name #{meta 18128}#)) + (let ((#{v 18133}# + (cons (cons 'name #{name 18120}#) #{meta 18128}#))) + (struct-set! #{val 18121}# 1 #{v 18133}#))))))) + (#{build-application 6256}# + (lambda (#{source 17845}# + #{fun-exp 17846}# + #{arg-exps 17847}#) (make-struct/no-tail (vector-ref %expanded-vtables 11) - #{source 15858}# - #{fun-exp 15859}# - #{arg-exps 15860}#))) - (#{build-conditional 4270}# - (lambda (#{source 15866}# - #{test-exp 15867}# - #{then-exp 15868}# - #{else-exp 15869}#) + #{source 17845}# + #{fun-exp 17846}# + #{arg-exps 17847}#))) + (#{build-conditional 6257}# + (lambda (#{source 17853}# + #{test-exp 17854}# + #{then-exp 17855}# + #{else-exp 17856}#) (make-struct/no-tail (vector-ref %expanded-vtables 10) - #{source 15866}# - #{test-exp 15867}# - #{then-exp 15868}# - #{else-exp 15869}#))) - (#{build-dynlet 4271}# - (lambda (#{source 15876}# - #{fluids 15877}# - #{vals 15878}# - #{body 15879}#) + #{source 17853}# + #{test-exp 17854}# + #{then-exp 17855}# + #{else-exp 17856}#))) + (#{build-dynlet 6258}# + (lambda (#{source 17863}# + #{fluids 17864}# + #{vals 17865}# + #{body 17866}#) (make-struct/no-tail (vector-ref %expanded-vtables 17) - #{source 15876}# - #{fluids 15877}# - #{vals 15878}# - #{body 15879}#))) - (#{build-lexical-reference 4272}# - (lambda (#{type 27371}# - #{source 27372}# - #{name 27373}# - #{var 27374}#) + #{source 17863}# + #{fluids 17864}# + #{vals 17865}# + #{body 17866}#))) + (#{build-lexical-reference 6259}# + (lambda (#{type 29380}# + #{source 29381}# + #{name 29382}# + #{var 29383}#) (make-struct/no-tail (vector-ref %expanded-vtables 3) - #{source 27372}# - #{name 27373}# - #{var 27374}#))) - (#{build-lexical-assignment 4273}# - (lambda (#{source 15886}# - #{name 15887}# - #{var 15888}# - #{exp 15889}#) + #{source 29381}# + #{name 29382}# + #{var 29383}#))) + (#{build-lexical-assignment 6260}# + (lambda (#{source 17873}# + #{name 17874}# + #{var 17875}# + #{exp 17876}#) (begin - (if (if (struct? #{exp 15889}#) - (eq? (struct-vtable #{exp 15889}#) + (if (if (struct? #{exp 17876}#) + (eq? (struct-vtable #{exp 17876}#) (vector-ref %expanded-vtables 13)) #f) - (let ((#{meta 15905}# (struct-ref #{exp 15889}# 1))) - (if (not (assq 'name #{meta 15905}#)) - (let ((#{v 15912}# - (cons (cons 'name #{name 15887}#) #{meta 15905}#))) - (struct-set! #{exp 15889}# 1 #{v 15912}#))))) + (let ((#{meta 17892}# (struct-ref #{exp 17876}# 1))) + (if (not (assq 'name #{meta 17892}#)) + (let ((#{v 17899}# + (cons (cons 'name #{name 17874}#) #{meta 17892}#))) + (struct-set! #{exp 17876}# 1 #{v 17899}#))))) (make-struct/no-tail (vector-ref %expanded-vtables 4) - #{source 15886}# - #{name 15887}# - #{var 15888}# - #{exp 15889}#)))) - (#{analyze-variable 4274}# - (lambda (#{mod 27380}# - #{var 27381}# - #{modref-cont 27382}# - #{bare-cont 27383}#) - (if (not #{mod 27380}#) - (#{bare-cont 27383}# #{var 27381}#) - (let ((#{kind 27384}# (car #{mod 27380}#)) - (#{mod 27385}# (cdr #{mod 27380}#))) - (if (eqv? #{kind 27384}# 'public) - (#{modref-cont 27382}# - #{mod 27385}# - #{var 27381}# + #{source 17873}# + #{name 17874}# + #{var 17875}# + #{exp 17876}#)))) + (#{analyze-variable 6261}# + (lambda (#{mod 29389}# + #{var 29390}# + #{modref-cont 29391}# + #{bare-cont 29392}#) + (if (not #{mod 29389}#) + (#{bare-cont 29392}# #{var 29390}#) + (let ((#{kind 29393}# (car #{mod 29389}#)) + (#{mod 29394}# (cdr #{mod 29389}#))) + (if (eqv? #{kind 29393}# 'public) + (#{modref-cont 29391}# + #{mod 29394}# + #{var 29390}# #t) - (if (eqv? #{kind 27384}# 'private) + (if (eqv? #{kind 29393}# 'private) (if (not (equal? - #{mod 27385}# + #{mod 29394}# (module-name (current-module)))) - (#{modref-cont 27382}# - #{mod 27385}# - #{var 27381}# + (#{modref-cont 29391}# + #{mod 29394}# + #{var 29390}# #f) - (#{bare-cont 27383}# #{var 27381}#)) - (if (eqv? #{kind 27384}# 'bare) - (#{bare-cont 27383}# #{var 27381}#) - (if (eqv? #{kind 27384}# 'hygiene) + (#{bare-cont 29392}# #{var 29390}#)) + (if (eqv? #{kind 29393}# 'bare) + (#{bare-cont 29392}# #{var 29390}#) + (if (eqv? #{kind 29393}# 'hygiene) (if (if (not (equal? - #{mod 27385}# + #{mod 29394}# (module-name (current-module)))) (module-variable - (resolve-module #{mod 27385}#) - #{var 27381}#) + (resolve-module #{mod 29394}#) + #{var 29390}#) #f) - (#{modref-cont 27382}# - #{mod 27385}# - #{var 27381}# + (#{modref-cont 29391}# + #{mod 29394}# + #{var 29390}# #f) - (#{bare-cont 27383}# #{var 27381}#)) + (#{bare-cont 29392}# #{var 29390}#)) (syntax-violation #f "bad module kind" - #{var 27381}# - #{mod 27385}#))))))))) - (#{build-global-reference 4275}# - (lambda (#{source 27400}# #{var 27401}# #{mod 27402}#) - (#{analyze-variable 4274}# - #{mod 27402}# - #{var 27401}# - (lambda (#{mod 27405}# #{var 27406}# #{public? 27407}#) + #{var 29390}# + #{mod 29394}#))))))))) + (#{build-global-reference 6262}# + (lambda (#{source 29409}# #{var 29410}# #{mod 29411}#) + (#{analyze-variable 6261}# + #{mod 29411}# + #{var 29410}# + (lambda (#{mod 29414}# #{var 29415}# #{public? 29416}#) (make-struct/no-tail (vector-ref %expanded-vtables 5) - #{source 27400}# - #{mod 27405}# - #{var 27406}# - #{public? 27407}#)) - (lambda (#{var 27415}#) + #{source 29409}# + #{mod 29414}# + #{var 29415}# + #{public? 29416}#)) + (lambda (#{var 29424}#) (make-struct/no-tail (vector-ref %expanded-vtables 7) - #{source 27400}# - #{var 27415}#))))) - (#{build-global-assignment 4276}# - (lambda (#{source 15921}# - #{var 15922}# - #{exp 15923}# - #{mod 15924}#) + #{source 29409}# + #{var 29424}#))))) + (#{build-global-assignment 6263}# + (lambda (#{source 17908}# + #{var 17909}# + #{exp 17910}# + #{mod 17911}#) (begin - (if (if (struct? #{exp 15923}#) - (eq? (struct-vtable #{exp 15923}#) + (if (if (struct? #{exp 17910}#) + (eq? (struct-vtable #{exp 17910}#) (vector-ref %expanded-vtables 13)) #f) - (let ((#{meta 15940}# (struct-ref #{exp 15923}# 1))) - (if (not (assq 'name #{meta 15940}#)) - (let ((#{v 15947}# - (cons (cons 'name #{var 15922}#) #{meta 15940}#))) - (struct-set! #{exp 15923}# 1 #{v 15947}#))))) - (#{analyze-variable 4274}# - #{mod 15924}# - #{var 15922}# - (lambda (#{mod 15952}# #{var 15953}# #{public? 15954}#) + (let ((#{meta 17927}# (struct-ref #{exp 17910}# 1))) + (if (not (assq 'name #{meta 17927}#)) + (let ((#{v 17934}# + (cons (cons 'name #{var 17909}#) #{meta 17927}#))) + (struct-set! #{exp 17910}# 1 #{v 17934}#))))) + (#{analyze-variable 6261}# + #{mod 17911}# + #{var 17909}# + (lambda (#{mod 17939}# #{var 17940}# #{public? 17941}#) (make-struct/no-tail (vector-ref %expanded-vtables 6) - #{source 15921}# - #{mod 15952}# - #{var 15953}# - #{public? 15954}# - #{exp 15923}#)) - (lambda (#{var 15962}#) + #{source 17908}# + #{mod 17939}# + #{var 17940}# + #{public? 17941}# + #{exp 17910}#)) + (lambda (#{var 17949}#) (make-struct/no-tail (vector-ref %expanded-vtables 8) - #{source 15921}# - #{var 15962}# - #{exp 15923}#)))))) - (#{build-global-definition 4277}# - (lambda (#{source 27421}# #{var 27422}# #{exp 27423}#) + #{source 17908}# + #{var 17949}# + #{exp 17910}#)))))) + (#{build-global-definition 6264}# + (lambda (#{source 29430}# #{var 29431}# #{exp 29432}#) (begin - (if (if (struct? #{exp 27423}#) - (eq? (struct-vtable #{exp 27423}#) + (if (if (struct? #{exp 29432}#) + (eq? (struct-vtable #{exp 29432}#) (vector-ref %expanded-vtables 13)) #f) - (let ((#{meta 27439}# (struct-ref #{exp 27423}# 1))) - (if (not (assq 'name #{meta 27439}#)) - (let ((#{v 27446}# - (cons (cons 'name #{var 27422}#) #{meta 27439}#))) - (struct-set! #{exp 27423}# 1 #{v 27446}#))))) + (let ((#{meta 29448}# (struct-ref #{exp 29432}# 1))) + (if (not (assq 'name #{meta 29448}#)) + (let ((#{v 29455}# + (cons (cons 'name #{var 29431}#) #{meta 29448}#))) + (struct-set! #{exp 29432}# 1 #{v 29455}#))))) (make-struct/no-tail (vector-ref %expanded-vtables 9) - #{source 27421}# - #{var 27422}# - #{exp 27423}#)))) - (#{build-simple-lambda 4278}# - (lambda (#{src 15968}# - #{req 15969}# - #{rest 15970}# - #{vars 15971}# - #{meta 15972}# - #{exp 15973}#) - (let ((#{body 15979}# + #{source 29430}# + #{var 29431}# + #{exp 29432}#)))) + (#{build-simple-lambda 6265}# + (lambda (#{src 17955}# + #{req 17956}# + #{rest 17957}# + #{vars 17958}# + #{meta 17959}# + #{exp 17960}#) + (let ((#{body 17966}# (make-struct/no-tail (vector-ref %expanded-vtables 14) - #{src 15968}# - #{req 15969}# + #{src 17955}# + #{req 17956}# #f - #{rest 15970}# + #{rest 17957}# #f '() - #{vars 15971}# - #{exp 15973}# + #{vars 17958}# + #{exp 17960}# #f))) (make-struct/no-tail (vector-ref %expanded-vtables 13) - #{src 15968}# - #{meta 15972}# - #{body 15979}#)))) - (#{build-sequence 4283}# - (lambda (#{src 27454}# #{exps 27455}#) - (if (null? (cdr #{exps 27455}#)) - (car #{exps 27455}#) + #{src 17955}# + #{meta 17959}# + #{body 17966}#)))) + (#{build-sequence 6270}# + (lambda (#{src 29463}# #{exps 29464}#) + (if (null? (cdr #{exps 29464}#)) + (car #{exps 29464}#) (make-struct/no-tail (vector-ref %expanded-vtables 12) - #{src 27454}# - #{exps 27455}#)))) - (#{build-let 4284}# - (lambda (#{src 15991}# - #{ids 15992}# - #{vars 15993}# - #{val-exps 15994}# - #{body-exp 15995}#) + #{src 29463}# + #{exps 29464}#)))) + (#{build-let 6271}# + (lambda (#{src 17978}# + #{ids 17979}# + #{vars 17980}# + #{val-exps 17981}# + #{body-exp 17982}#) (begin (for-each - #{maybe-name-value! 4267}# - #{ids 15992}# - #{val-exps 15994}#) - (if (null? #{vars 15993}#) - #{body-exp 15995}# + #{maybe-name-value! 6254}# + #{ids 17979}# + #{val-exps 17981}#) + (if (null? #{vars 17980}#) + #{body-exp 17982}# (make-struct/no-tail (vector-ref %expanded-vtables 15) - #{src 15991}# - #{ids 15992}# - #{vars 15993}# - #{val-exps 15994}# - #{body-exp 15995}#))))) - (#{build-named-let 4285}# - (lambda (#{src 16019}# - #{ids 16020}# - #{vars 16021}# - #{val-exps 16022}# - #{body-exp 16023}#) - (let ((#{f 16024}# (car #{vars 16021}#)) - (#{f-name 16025}# (car #{ids 16020}#)) - (#{vars 16026}# (cdr #{vars 16021}#)) - (#{ids 16027}# (cdr #{ids 16020}#))) - (let ((#{proc 16028}# - (let ((#{body 16048}# + #{src 17978}# + #{ids 17979}# + #{vars 17980}# + #{val-exps 17981}# + #{body-exp 17982}#))))) + (#{build-named-let 6272}# + (lambda (#{src 18006}# + #{ids 18007}# + #{vars 18008}# + #{val-exps 18009}# + #{body-exp 18010}#) + (let ((#{f 18011}# (car #{vars 18008}#)) + (#{f-name 18012}# (car #{ids 18007}#)) + (#{vars 18013}# (cdr #{vars 18008}#)) + (#{ids 18014}# (cdr #{ids 18007}#))) + (let ((#{proc 18015}# + (let ((#{body 18035}# (make-struct/no-tail (vector-ref %expanded-vtables 14) - #{src 16019}# - #{ids 16027}# + #{src 18006}# + #{ids 18014}# #f #f #f '() - #{vars 16026}# - #{body-exp 16023}# + #{vars 18013}# + #{body-exp 18010}# #f))) (make-struct/no-tail (vector-ref %expanded-vtables 13) - #{src 16019}# + #{src 18006}# '() - #{body 16048}#)))) + #{body 18035}#)))) (begin - (if (if (struct? #{proc 16028}#) - (eq? (struct-vtable #{proc 16028}#) + (if (if (struct? #{proc 18015}#) + (eq? (struct-vtable #{proc 18015}#) (vector-ref %expanded-vtables 13)) #f) - (let ((#{meta 16072}# (struct-ref #{proc 16028}# 1))) - (if (not (assq 'name #{meta 16072}#)) - (let ((#{v 16079}# - (cons (cons 'name #{f-name 16025}#) - #{meta 16072}#))) - (struct-set! #{proc 16028}# 1 #{v 16079}#))))) + (let ((#{meta 18059}# (struct-ref #{proc 18015}# 1))) + (if (not (assq 'name #{meta 18059}#)) + (let ((#{v 18066}# + (cons (cons 'name #{f-name 18012}#) + #{meta 18059}#))) + (struct-set! #{proc 18015}# 1 #{v 18066}#))))) (for-each - #{maybe-name-value! 4267}# - #{ids 16027}# - #{val-exps 16022}#) - (let ((#{names 16103}# (list #{f-name 16025}#)) - (#{gensyms 16104}# (list #{f 16024}#)) - (#{vals 16105}# (list #{proc 16028}#)) - (#{body 16106}# - (let ((#{fun-exp 16110}# + #{maybe-name-value! 6254}# + #{ids 18014}# + #{val-exps 18009}#) + (let ((#{names 18090}# (list #{f-name 18012}#)) + (#{gensyms 18091}# (list #{f 18011}#)) + (#{vals 18092}# (list #{proc 18015}#)) + (#{body 18093}# + (let ((#{fun-exp 18097}# (make-struct/no-tail (vector-ref %expanded-vtables 3) - #{src 16019}# - #{f-name 16025}# - #{f 16024}#))) + #{src 18006}# + #{f-name 18012}# + #{f 18011}#))) (make-struct/no-tail (vector-ref %expanded-vtables 11) - #{src 16019}# - #{fun-exp 16110}# - #{val-exps 16022}#)))) + #{src 18006}# + #{fun-exp 18097}# + #{val-exps 18009}#)))) (make-struct/no-tail (vector-ref %expanded-vtables 16) - #{src 16019}# + #{src 18006}# #f - #{names 16103}# - #{gensyms 16104}# - #{vals 16105}# - #{body 16106}#))))))) - (#{build-letrec 4286}# - (lambda (#{src 16126}# - #{in-order? 16127}# - #{ids 16128}# - #{vars 16129}# - #{val-exps 16130}# - #{body-exp 16131}#) - (if (null? #{vars 16129}#) - #{body-exp 16131}# + #{names 18090}# + #{gensyms 18091}# + #{vals 18092}# + #{body 18093}#))))))) + (#{build-letrec 6273}# + (lambda (#{src 18113}# + #{in-order? 18114}# + #{ids 18115}# + #{vars 18116}# + #{val-exps 18117}# + #{body-exp 18118}#) + (if (null? #{vars 18116}#) + #{body-exp 18118}# (begin (for-each - #{maybe-name-value! 4267}# - #{ids 16128}# - #{val-exps 16130}#) + #{maybe-name-value! 6254}# + #{ids 18115}# + #{val-exps 18117}#) (make-struct/no-tail (vector-ref %expanded-vtables 16) - #{src 16126}# - #{in-order? 16127}# - #{ids 16128}# - #{vars 16129}# - #{val-exps 16130}# - #{body-exp 16131}#))))) - (#{source-annotation 4295}# - (lambda (#{x 16157}#) - (if (if (vector? #{x 16157}#) - (if (= (vector-length #{x 16157}#) 4) - (eq? (vector-ref #{x 16157}# 0) 'syntax-object) + #{src 18113}# + #{in-order? 18114}# + #{ids 18115}# + #{vars 18116}# + #{val-exps 18117}# + #{body-exp 18118}#))))) + (#{source-annotation 6282}# + (lambda (#{x 18144}#) + (if (if (vector? #{x 18144}#) + (if (= (vector-length #{x 18144}#) 4) + (eq? (vector-ref #{x 18144}# 0) 'syntax-object) #f) #f) - (#{source-annotation 4295}# - (vector-ref #{x 16157}# 1)) - (if (pair? #{x 16157}#) - (let ((#{props 16172}# (source-properties #{x 16157}#))) - (if (pair? #{props 16172}#) #{props 16172}# #f)) + (#{source-annotation 6282}# + (vector-ref #{x 18144}# 1)) + (if (pair? #{x 18144}#) + (let ((#{props 18159}# (source-properties #{x 18144}#))) + (if (pair? #{props 18159}#) #{props 18159}# #f)) #f)))) - (#{extend-env 4296}# - (lambda (#{labels 16174}# #{bindings 16175}# #{r 16176}#) - (if (null? #{labels 16174}#) - #{r 16176}# - (#{extend-env 4296}# - (cdr #{labels 16174}#) - (cdr #{bindings 16175}#) - (cons (cons (car #{labels 16174}#) - (car #{bindings 16175}#)) - #{r 16176}#))))) - (#{extend-var-env 4297}# - (lambda (#{labels 16177}# #{vars 16178}# #{r 16179}#) - (if (null? #{labels 16177}#) - #{r 16179}# - (#{extend-var-env 4297}# - (cdr #{labels 16177}#) - (cdr #{vars 16178}#) - (cons (cons (car #{labels 16177}#) - (cons 'lexical (car #{vars 16178}#))) - #{r 16179}#))))) - (#{macros-only-env 4298}# - (lambda (#{r 16180}#) - (if (null? #{r 16180}#) + (#{extend-env 6283}# + (lambda (#{labels 18161}# #{bindings 18162}# #{r 18163}#) + (if (null? #{labels 18161}#) + #{r 18163}# + (#{extend-env 6283}# + (cdr #{labels 18161}#) + (cdr #{bindings 18162}#) + (cons (cons (car #{labels 18161}#) + (car #{bindings 18162}#)) + #{r 18163}#))))) + (#{extend-var-env 6284}# + (lambda (#{labels 18164}# #{vars 18165}# #{r 18166}#) + (if (null? #{labels 18164}#) + #{r 18166}# + (#{extend-var-env 6284}# + (cdr #{labels 18164}#) + (cdr #{vars 18165}#) + (cons (cons (car #{labels 18164}#) + (cons 'lexical (car #{vars 18165}#))) + #{r 18166}#))))) + (#{macros-only-env 6285}# + (lambda (#{r 18167}#) + (if (null? #{r 18167}#) '() - (let ((#{a 16181}# (car #{r 16180}#))) - (if (eq? (car (cdr #{a 16181}#)) 'macro) - (cons #{a 16181}# - (#{macros-only-env 4298}# (cdr #{r 16180}#))) - (#{macros-only-env 4298}# (cdr #{r 16180}#))))))) - (#{global-extend 4300}# - (lambda (#{type 16183}# #{sym 16184}# #{val 16185}#) + (let ((#{a 18168}# (car #{r 18167}#))) + (if (eq? (car (cdr #{a 18168}#)) 'macro) + (cons #{a 18168}# + (#{macros-only-env 6285}# (cdr #{r 18167}#))) + (#{macros-only-env 6285}# (cdr #{r 18167}#))))))) + (#{global-extend 6287}# + (lambda (#{type 18170}# #{sym 18171}# #{val 18172}#) (module-define! (current-module) - #{sym 16184}# + #{sym 18171}# (make-syntax-transformer - #{sym 16184}# - #{type 16183}# - #{val 16185}#)))) - (#{id? 4302}# - (lambda (#{x 10359}#) - (if (symbol? #{x 10359}#) + #{sym 18171}# + #{type 18170}# + #{val 18172}#)))) + (#{id? 6289}# + (lambda (#{x 12346}#) + (if (symbol? #{x 12346}#) #t - (if (if (vector? #{x 10359}#) - (if (= (vector-length #{x 10359}#) 4) - (eq? (vector-ref #{x 10359}# 0) 'syntax-object) + (if (if (vector? #{x 12346}#) + (if (= (vector-length #{x 12346}#) 4) + (eq? (vector-ref #{x 12346}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{x 10359}# 1)) + (symbol? (vector-ref #{x 12346}# 1)) #f)))) - (#{gen-labels 4305}# - (lambda (#{ls 16195}#) - (if (null? #{ls 16195}#) + (#{gen-labels 6292}# + (lambda (#{ls 18182}#) + (if (null? #{ls 18182}#) '() (cons (symbol->string (gensym "i")) - (#{gen-labels 4305}# (cdr #{ls 16195}#)))))) - (#{make-binding-wrap 4316}# - (lambda (#{ids 16199}# #{labels 16200}# #{w 16201}#) - (if (null? #{ids 16199}#) - #{w 16201}# - (cons (car #{w 16201}#) - (cons (let ((#{labelvec 16202}# - (list->vector #{labels 16200}#))) - (let ((#{n 16203}# (vector-length #{labelvec 16202}#))) - (let ((#{symnamevec 16204}# (make-vector #{n 16203}#)) - (#{marksvec 16205}# (make-vector #{n 16203}#))) + (#{gen-labels 6292}# (cdr #{ls 18182}#)))))) + (#{make-binding-wrap 6303}# + (lambda (#{ids 18186}# #{labels 18187}# #{w 18188}#) + (if (null? #{ids 18186}#) + #{w 18188}# + (cons (car #{w 18188}#) + (cons (let ((#{labelvec 18189}# + (list->vector #{labels 18187}#))) + (let ((#{n 18190}# (vector-length #{labelvec 18189}#))) + (let ((#{symnamevec 18191}# (make-vector #{n 18190}#)) + (#{marksvec 18192}# (make-vector #{n 18190}#))) (begin (letrec* - ((#{f 16206}# - (lambda (#{ids 16209}# #{i 16210}#) - (if (not (null? #{ids 16209}#)) + ((#{f 18193}# + (lambda (#{ids 18196}# #{i 18197}#) + (if (not (null? #{ids 18196}#)) (call-with-values (lambda () - (let ((#{x 16213}# - (car #{ids 16209}#))) - (if (if (vector? #{x 16213}#) + (let ((#{x 18200}# + (car #{ids 18196}#))) + (if (if (vector? #{x 18200}#) (if (= (vector-length - #{x 16213}#) + #{x 18200}#) 4) (eq? (vector-ref - #{x 16213}# + #{x 18200}# 0) 'syntax-object) #f) #f) (values - (vector-ref #{x 16213}# 1) - (let ((#{m1 16229}# - (car #{w 16201}#)) - (#{m2 16230}# + (vector-ref #{x 18200}# 1) + (let ((#{m1 18216}# + (car #{w 18188}#)) + (#{m2 18217}# (car (vector-ref - #{x 16213}# + #{x 18200}# 2)))) - (if (null? #{m2 16230}#) - #{m1 16229}# + (if (null? #{m2 18217}#) + #{m1 18216}# (append - #{m1 16229}# - #{m2 16230}#)))) + #{m1 18216}# + #{m2 18217}#)))) (values - #{x 16213}# - (car #{w 16201}#))))) - (lambda (#{symname 16250}# - #{marks 16251}#) + #{x 18200}# + (car #{w 18188}#))))) + (lambda (#{symname 18237}# + #{marks 18238}#) (begin (vector-set! - #{symnamevec 16204}# - #{i 16210}# - #{symname 16250}#) + #{symnamevec 18191}# + #{i 18197}# + #{symname 18237}#) (vector-set! - #{marksvec 16205}# - #{i 16210}# - #{marks 16251}#) - (#{f 16206}# - (cdr #{ids 16209}#) - (#{1+}# #{i 16210}#))))))))) - (#{f 16206}# #{ids 16199}# 0)) + #{marksvec 18192}# + #{i 18197}# + #{marks 18238}#) + (#{f 18193}# + (cdr #{ids 18196}#) + (#{1+}# #{i 18197}#))))))))) + (#{f 18193}# #{ids 18186}# 0)) (vector 'ribcage - #{symnamevec 16204}# - #{marksvec 16205}# - #{labelvec 16202}#))))) - (cdr #{w 16201}#)))))) - (#{join-wraps 4318}# - (lambda (#{w1 16260}# #{w2 16261}#) - (let ((#{m1 16262}# (car #{w1 16260}#)) - (#{s1 16263}# (cdr #{w1 16260}#))) - (if (null? #{m1 16262}#) - (if (null? #{s1 16263}#) - #{w2 16261}# - (cons (car #{w2 16261}#) - (let ((#{m2 16270}# (cdr #{w2 16261}#))) - (if (null? #{m2 16270}#) - #{s1 16263}# - (append #{s1 16263}# #{m2 16270}#))))) - (cons (let ((#{m2 16279}# (car #{w2 16261}#))) - (if (null? #{m2 16279}#) - #{m1 16262}# - (append #{m1 16262}# #{m2 16279}#))) - (let ((#{m2 16288}# (cdr #{w2 16261}#))) - (if (null? #{m2 16288}#) - #{s1 16263}# - (append #{s1 16263}# #{m2 16288}#)))))))) - (#{same-marks? 4320}# - (lambda (#{x 16293}# #{y 16294}#) - (if (eq? #{x 16293}# #{y 16294}#) - (eq? #{x 16293}# #{y 16294}#) - (if (not (null? #{x 16293}#)) - (if (not (null? #{y 16294}#)) - (if (eq? (car #{x 16293}#) (car #{y 16294}#)) - (#{same-marks? 4320}# - (cdr #{x 16293}#) - (cdr #{y 16294}#)) + #{symnamevec 18191}# + #{marksvec 18192}# + #{labelvec 18189}#))))) + (cdr #{w 18188}#)))))) + (#{join-wraps 6305}# + (lambda (#{w1 18247}# #{w2 18248}#) + (let ((#{m1 18249}# (car #{w1 18247}#)) + (#{s1 18250}# (cdr #{w1 18247}#))) + (if (null? #{m1 18249}#) + (if (null? #{s1 18250}#) + #{w2 18248}# + (cons (car #{w2 18248}#) + (let ((#{m2 18257}# (cdr #{w2 18248}#))) + (if (null? #{m2 18257}#) + #{s1 18250}# + (append #{s1 18250}# #{m2 18257}#))))) + (cons (let ((#{m2 18266}# (car #{w2 18248}#))) + (if (null? #{m2 18266}#) + #{m1 18249}# + (append #{m1 18249}# #{m2 18266}#))) + (let ((#{m2 18275}# (cdr #{w2 18248}#))) + (if (null? #{m2 18275}#) + #{s1 18250}# + (append #{s1 18250}# #{m2 18275}#)))))))) + (#{same-marks? 6307}# + (lambda (#{x 18280}# #{y 18281}#) + (if (eq? #{x 18280}# #{y 18281}#) + (eq? #{x 18280}# #{y 18281}#) + (if (not (null? #{x 18280}#)) + (if (not (null? #{y 18281}#)) + (if (eq? (car #{x 18280}#) (car #{y 18281}#)) + (#{same-marks? 6307}# + (cdr #{x 18280}#) + (cdr #{y 18281}#)) #f) #f) #f)))) - (#{id-var-name 4321}# - (lambda (#{id 16302}# #{w 16303}#) + (#{id-var-name 6308}# + (lambda (#{id 18289}# #{w 18290}#) (letrec* - ((#{search 16304}# - (lambda (#{sym 16365}# #{subst 16366}# #{marks 16367}#) - (if (null? #{subst 16366}#) - (values #f #{marks 16367}#) - (let ((#{fst 16368}# (car #{subst 16366}#))) - (if (eq? #{fst 16368}# 'shift) - (#{search 16304}# - #{sym 16365}# - (cdr #{subst 16366}#) - (cdr #{marks 16367}#)) - (let ((#{symnames 16370}# (vector-ref #{fst 16368}# 1))) - (if (vector? #{symnames 16370}#) - (let ((#{n 16382}# (vector-length #{symnames 16370}#))) + ((#{search 18291}# + (lambda (#{sym 18352}# #{subst 18353}# #{marks 18354}#) + (if (null? #{subst 18353}#) + (values #f #{marks 18354}#) + (let ((#{fst 18355}# (car #{subst 18353}#))) + (if (eq? #{fst 18355}# 'shift) + (#{search 18291}# + #{sym 18352}# + (cdr #{subst 18353}#) + (cdr #{marks 18354}#)) + (let ((#{symnames 18357}# (vector-ref #{fst 18355}# 1))) + (if (vector? #{symnames 18357}#) + (let ((#{n 18369}# (vector-length #{symnames 18357}#))) (letrec* - ((#{f 16383}# - (lambda (#{i 16385}#) - (if (= #{i 16385}# #{n 16382}#) - (#{search 16304}# - #{sym 16365}# - (cdr #{subst 16366}#) - #{marks 16367}#) + ((#{f 18370}# + (lambda (#{i 18372}#) + (if (= #{i 18372}# #{n 18369}#) + (#{search 18291}# + #{sym 18352}# + (cdr #{subst 18353}#) + #{marks 18354}#) (if (if (eq? (vector-ref - #{symnames 16370}# - #{i 16385}#) - #{sym 16365}#) - (#{same-marks? 4320}# - #{marks 16367}# + #{symnames 18357}# + #{i 18372}#) + #{sym 18352}#) + (#{same-marks? 6307}# + #{marks 18354}# (vector-ref - (vector-ref #{fst 16368}# 2) - #{i 16385}#)) + (vector-ref #{fst 18355}# 2) + #{i 18372}#)) #f) (values (vector-ref - (vector-ref #{fst 16368}# 3) - #{i 16385}#) - #{marks 16367}#) - (#{f 16383}# (#{1+}# #{i 16385}#))))))) - (#{f 16383}# 0))) + (vector-ref #{fst 18355}# 3) + #{i 18372}#) + #{marks 18354}#) + (#{f 18370}# (#{1+}# #{i 18372}#))))))) + (#{f 18370}# 0))) (letrec* - ((#{f 16418}# - (lambda (#{symnames 16420}# #{i 16421}#) - (if (null? #{symnames 16420}#) - (#{search 16304}# - #{sym 16365}# - (cdr #{subst 16366}#) - #{marks 16367}#) - (if (if (eq? (car #{symnames 16420}#) - #{sym 16365}#) - (#{same-marks? 4320}# - #{marks 16367}# + ((#{f 18405}# + (lambda (#{symnames 18407}# #{i 18408}#) + (if (null? #{symnames 18407}#) + (#{search 18291}# + #{sym 18352}# + (cdr #{subst 18353}#) + #{marks 18354}#) + (if (if (eq? (car #{symnames 18407}#) + #{sym 18352}#) + (#{same-marks? 6307}# + #{marks 18354}# (list-ref - (vector-ref #{fst 16368}# 2) - #{i 16421}#)) + (vector-ref #{fst 18355}# 2) + #{i 18408}#)) #f) (values (list-ref - (vector-ref #{fst 16368}# 3) - #{i 16421}#) - #{marks 16367}#) - (#{f 16418}# - (cdr #{symnames 16420}#) - (#{1+}# #{i 16421}#))))))) - (#{f 16418}# #{symnames 16370}# 0)))))))))) - (if (symbol? #{id 16302}#) - (let ((#{t 16307}# - (#{search 16304}# - #{id 16302}# - (cdr #{w 16303}#) - (car #{w 16303}#)))) - (if #{t 16307}# #{t 16307}# #{id 16302}#)) - (if (if (vector? #{id 16302}#) - (if (= (vector-length #{id 16302}#) 4) - (eq? (vector-ref #{id 16302}# 0) 'syntax-object) + (vector-ref #{fst 18355}# 3) + #{i 18408}#) + #{marks 18354}#) + (#{f 18405}# + (cdr #{symnames 18407}#) + (#{1+}# #{i 18408}#))))))) + (#{f 18405}# #{symnames 18357}# 0)))))))))) + (if (symbol? #{id 18289}#) + (let ((#{t 18294}# + (#{search 18291}# + #{id 18289}# + (cdr #{w 18290}#) + (car #{w 18290}#)))) + (if #{t 18294}# #{t 18294}# #{id 18289}#)) + (if (if (vector? #{id 18289}#) + (if (= (vector-length #{id 18289}#) 4) + (eq? (vector-ref #{id 18289}# 0) 'syntax-object) #f) #f) - (let ((#{id 16322}# (vector-ref #{id 16302}# 1)) - (#{w1 16323}# (vector-ref #{id 16302}# 2))) - (let ((#{marks 16324}# - (let ((#{m1 16334}# (car #{w 16303}#)) - (#{m2 16335}# (car #{w1 16323}#))) - (if (null? #{m2 16335}#) - #{m1 16334}# - (append #{m1 16334}# #{m2 16335}#))))) + (let ((#{id 18309}# (vector-ref #{id 18289}# 1)) + (#{w1 18310}# (vector-ref #{id 18289}# 2))) + (let ((#{marks 18311}# + (let ((#{m1 18321}# (car #{w 18290}#)) + (#{m2 18322}# (car #{w1 18310}#))) + (if (null? #{m2 18322}#) + #{m1 18321}# + (append #{m1 18321}# #{m2 18322}#))))) (call-with-values (lambda () - (#{search 16304}# - #{id 16322}# - (cdr #{w 16303}#) - #{marks 16324}#)) - (lambda (#{new-id 16351}# #{marks 16352}#) - (if #{new-id 16351}# - #{new-id 16351}# - (let ((#{t 16360}# - (#{search 16304}# - #{id 16322}# - (cdr #{w1 16323}#) - #{marks 16352}#))) - (if #{t 16360}# #{t 16360}# #{id 16322}#))))))) + (#{search 18291}# + #{id 18309}# + (cdr #{w 18290}#) + #{marks 18311}#)) + (lambda (#{new-id 18338}# #{marks 18339}#) + (if #{new-id 18338}# + #{new-id 18338}# + (let ((#{t 18347}# + (#{search 18291}# + #{id 18309}# + (cdr #{w1 18310}#) + #{marks 18339}#))) + (if #{t 18347}# #{t 18347}# #{id 18309}#))))))) (syntax-violation 'id-var-name "invalid id" - #{id 16302}#)))))) - (#{valid-bound-ids? 4324}# - (lambda (#{ids 16443}#) + #{id 18289}#)))))) + (#{valid-bound-ids? 6311}# + (lambda (#{ids 18430}#) (if (letrec* - ((#{all-ids? 16444}# - (lambda (#{ids 16606}#) - (if (null? #{ids 16606}#) - (null? #{ids 16606}#) - (if (let ((#{x 16617}# (car #{ids 16606}#))) - (if (symbol? #{x 16617}#) + ((#{all-ids? 18431}# + (lambda (#{ids 18593}#) + (if (null? #{ids 18593}#) + (null? #{ids 18593}#) + (if (let ((#{x 18604}# (car #{ids 18593}#))) + (if (symbol? #{x 18604}#) #t - (if (if (vector? #{x 16617}#) - (if (= (vector-length #{x 16617}#) 4) - (eq? (vector-ref #{x 16617}# 0) + (if (if (vector? #{x 18604}#) + (if (= (vector-length #{x 18604}#) 4) + (eq? (vector-ref #{x 18604}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{x 16617}# 1)) + (symbol? (vector-ref #{x 18604}# 1)) #f))) - (#{all-ids? 16444}# (cdr #{ids 16606}#)) + (#{all-ids? 18431}# (cdr #{ids 18593}#)) #f))))) - (#{all-ids? 16444}# #{ids 16443}#)) - (#{distinct-bound-ids? 4325}# #{ids 16443}#) + (#{all-ids? 18431}# #{ids 18430}#)) + (#{distinct-bound-ids? 6312}# #{ids 18430}#) #f))) - (#{distinct-bound-ids? 4325}# - (lambda (#{ids 16745}#) + (#{distinct-bound-ids? 6312}# + (lambda (#{ids 18732}#) (letrec* - ((#{distinct? 16746}# - (lambda (#{ids 16858}#) - (if (null? #{ids 16858}#) - (null? #{ids 16858}#) - (if (not (#{bound-id-member? 4326}# - (car #{ids 16858}#) - (cdr #{ids 16858}#))) - (#{distinct? 16746}# (cdr #{ids 16858}#)) + ((#{distinct? 18733}# + (lambda (#{ids 18845}#) + (if (null? #{ids 18845}#) + (null? #{ids 18845}#) + (if (not (#{bound-id-member? 6313}# + (car #{ids 18845}#) + (cdr #{ids 18845}#))) + (#{distinct? 18733}# (cdr #{ids 18845}#)) #f))))) - (#{distinct? 16746}# #{ids 16745}#)))) - (#{bound-id-member? 4326}# - (lambda (#{x 17068}# #{list 17069}#) - (if (not (null? #{list 17069}#)) - (let ((#{t 17070}# - (let ((#{j 17151}# (car #{list 17069}#))) - (if (if (if (vector? #{x 17068}#) - (if (= (vector-length #{x 17068}#) 4) - (eq? (vector-ref #{x 17068}# 0) 'syntax-object) + (#{distinct? 18733}# #{ids 18732}#)))) + (#{bound-id-member? 6313}# + (lambda (#{x 19055}# #{list 19056}#) + (if (not (null? #{list 19056}#)) + (let ((#{t 19057}# + (let ((#{j 19138}# (car #{list 19056}#))) + (if (if (if (vector? #{x 19055}#) + (if (= (vector-length #{x 19055}#) 4) + (eq? (vector-ref #{x 19055}# 0) 'syntax-object) #f) #f) - (if (vector? #{j 17151}#) - (if (= (vector-length #{j 17151}#) 4) - (eq? (vector-ref #{j 17151}# 0) 'syntax-object) + (if (vector? #{j 19138}#) + (if (= (vector-length #{j 19138}#) 4) + (eq? (vector-ref #{j 19138}# 0) 'syntax-object) #f) #f) #f) - (if (eq? (vector-ref #{x 17068}# 1) - (vector-ref #{j 17151}# 1)) - (#{same-marks? 4320}# - (car (vector-ref #{x 17068}# 2)) - (car (vector-ref #{j 17151}# 2))) + (if (eq? (vector-ref #{x 19055}# 1) + (vector-ref #{j 19138}# 1)) + (#{same-marks? 6307}# + (car (vector-ref #{x 19055}# 2)) + (car (vector-ref #{j 19138}# 2))) #f) - (eq? #{x 17068}# #{j 17151}#))))) - (if #{t 17070}# - #{t 17070}# - (#{bound-id-member? 4326}# - #{x 17068}# - (cdr #{list 17069}#)))) + (eq? #{x 19055}# #{j 19138}#))))) + (if #{t 19057}# + #{t 19057}# + (#{bound-id-member? 6313}# + #{x 19055}# + (cdr #{list 19056}#)))) #f))) - (#{wrap 4327}# - (lambda (#{x 17195}# #{w 17196}# #{defmod 17197}#) - (if (if (null? (car #{w 17196}#)) - (null? (cdr #{w 17196}#)) + (#{wrap 6314}# + (lambda (#{x 19182}# #{w 19183}# #{defmod 19184}#) + (if (if (null? (car #{w 19183}#)) + (null? (cdr #{w 19183}#)) #f) - #{x 17195}# - (if (if (vector? #{x 17195}#) - (if (= (vector-length #{x 17195}#) 4) - (eq? (vector-ref #{x 17195}# 0) 'syntax-object) + #{x 19182}# + (if (if (vector? #{x 19182}#) + (if (= (vector-length #{x 19182}#) 4) + (eq? (vector-ref #{x 19182}# 0) 'syntax-object) #f) #f) - (let ((#{expression 17211}# (vector-ref #{x 17195}# 1)) - (#{wrap 17212}# - (#{join-wraps 4318}# - #{w 17196}# - (vector-ref #{x 17195}# 2))) - (#{module 17213}# (vector-ref #{x 17195}# 3))) + (let ((#{expression 19198}# (vector-ref #{x 19182}# 1)) + (#{wrap 19199}# + (#{join-wraps 6305}# + #{w 19183}# + (vector-ref #{x 19182}# 2))) + (#{module 19200}# (vector-ref #{x 19182}# 3))) (vector 'syntax-object - #{expression 17211}# - #{wrap 17212}# - #{module 17213}#)) - (if (null? #{x 17195}#) - #{x 17195}# + #{expression 19198}# + #{wrap 19199}# + #{module 19200}#)) + (if (null? #{x 19182}#) + #{x 19182}# (vector 'syntax-object - #{x 17195}# - #{w 17196}# - #{defmod 17197}#)))))) - (#{source-wrap 4328}# - (lambda (#{x 17230}# - #{w 17231}# - #{s 17232}# - #{defmod 17233}#) - (#{wrap 4327}# + #{x 19182}# + #{w 19183}# + #{defmod 19184}#)))))) + (#{source-wrap 6315}# + (lambda (#{x 19217}# + #{w 19218}# + #{s 19219}# + #{defmod 19220}#) + (#{wrap 6314}# (begin - (if (if (pair? #{x 17230}#) #{s 17232}# #f) - (set-source-properties! #{x 17230}# #{s 17232}#)) - #{x 17230}#) - #{w 17231}# - #{defmod 17233}#))) - (#{expand-sequence 4329}# - (lambda (#{body 27460}# - #{r 27461}# - #{w 27462}# - #{s 27463}# - #{mod 27464}#) - (#{build-sequence 4283}# - #{s 27463}# + (if (if (pair? #{x 19217}#) #{s 19219}# #f) + (set-source-properties! #{x 19217}# #{s 19219}#)) + #{x 19217}#) + #{w 19218}# + #{defmod 19220}#))) + (#{expand-sequence 6316}# + (lambda (#{body 29469}# + #{r 29470}# + #{w 29471}# + #{s 29472}# + #{mod 29473}#) + (#{build-sequence 6270}# + #{s 29472}# (letrec* - ((#{dobody 27544}# - (lambda (#{body 27894}# - #{r 27895}# - #{w 27896}# - #{mod 27897}#) - (if (null? #{body 27894}#) + ((#{dobody 29553}# + (lambda (#{body 29903}# + #{r 29904}# + #{w 29905}# + #{mod 29906}#) + (if (null? #{body 29903}#) '() - (let ((#{first 27898}# - (let ((#{e 27902}# (car #{body 27894}#))) + (let ((#{first 29907}# + (let ((#{e 29911}# (car #{body 29903}#))) (call-with-values (lambda () - (#{syntax-type 4333}# - #{e 27902}# - #{r 27895}# - #{w 27896}# - (#{source-annotation 4295}# #{e 27902}#) + (#{syntax-type 6320}# + #{e 29911}# + #{r 29904}# + #{w 29905}# + (#{source-annotation 6282}# #{e 29911}#) #f - #{mod 27897}# + #{mod 29906}# #f)) - (lambda (#{type 27909}# - #{value 27910}# - #{e 27911}# - #{w 27912}# - #{s 27913}# - #{mod 27914}#) - (#{expand-expr 4335}# - #{type 27909}# - #{value 27910}# - #{e 27911}# - #{r 27895}# - #{w 27912}# - #{s 27913}# - #{mod 27914}#)))))) - (cons #{first 27898}# - (#{dobody 27544}# - (cdr #{body 27894}#) - #{r 27895}# - #{w 27896}# - #{mod 27897}#))))))) - (#{dobody 27544}# - #{body 27460}# - #{r 27461}# - #{w 27462}# - #{mod 27464}#))))) - (#{expand-top-sequence 4330}# - (lambda (#{body 17251}# - #{r 17252}# - #{w 17253}# - #{s 17254}# - #{m 17255}# - #{esew 17256}# - #{mod 17257}#) + (lambda (#{type 29918}# + #{value 29919}# + #{e 29920}# + #{w 29921}# + #{s 29922}# + #{mod 29923}#) + (#{expand-expr 6322}# + #{type 29918}# + #{value 29919}# + #{e 29920}# + #{r 29904}# + #{w 29921}# + #{s 29922}# + #{mod 29923}#)))))) + (cons #{first 29907}# + (#{dobody 29553}# + (cdr #{body 29903}#) + #{r 29904}# + #{w 29905}# + #{mod 29906}#))))))) + (#{dobody 29553}# + #{body 29469}# + #{r 29470}# + #{w 29471}# + #{mod 29473}#))))) + (#{expand-top-sequence 6317}# + (lambda (#{body 19238}# + #{r 19239}# + #{w 19240}# + #{s 19241}# + #{m 19242}# + #{esew 19243}# + #{mod 19244}#) (letrec* - ((#{scan 17258}# - (lambda (#{body 17389}# - #{r 17390}# - #{w 17391}# - #{s 17392}# - #{m 17393}# - #{esew 17394}# - #{mod 17395}# - #{exps 17396}#) - (if (null? #{body 17389}#) - #{exps 17396}# + ((#{scan 19245}# + (lambda (#{body 19376}# + #{r 19377}# + #{w 19378}# + #{s 19379}# + #{m 19380}# + #{esew 19381}# + #{mod 19382}# + #{exps 19383}#) + (if (null? #{body 19376}#) + #{exps 19383}# (call-with-values (lambda () (call-with-values (lambda () - (let ((#{e 17397}# (car #{body 17389}#))) - (#{syntax-type 4333}# - #{e 17397}# - #{r 17390}# - #{w 17391}# - (let ((#{t 17401}# - (#{source-annotation 4295}# #{e 17397}#))) - (if #{t 17401}# #{t 17401}# #{s 17392}#)) + (let ((#{e 19384}# (car #{body 19376}#))) + (#{syntax-type 6320}# + #{e 19384}# + #{r 19377}# + #{w 19378}# + (let ((#{t 19388}# + (#{source-annotation 6282}# #{e 19384}#))) + (if #{t 19388}# #{t 19388}# #{s 19379}#)) #f - #{mod 17395}# + #{mod 19382}# #f))) - (lambda (#{type 17636}# - #{value 17637}# - #{e 17638}# - #{w 17639}# - #{s 17640}# - #{mod 17641}#) - (if (eqv? #{type 17636}# 'begin-form) - (let ((#{tmp 17646}# - ($sc-dispatch #{e 17638}# '(_)))) - (if #{tmp 17646}# - (@apply (lambda () #{exps 17396}#) #{tmp 17646}#) - (let ((#{tmp 17650}# + (lambda (#{type 19623}# + #{value 19624}# + #{e 19625}# + #{w 19626}# + #{s 19627}# + #{mod 19628}#) + (if (eqv? #{type 19623}# 'begin-form) + (let ((#{tmp 19633}# + ($sc-dispatch #{e 19625}# '(_)))) + (if #{tmp 19633}# + (@apply (lambda () #{exps 19383}#) #{tmp 19633}#) + (let ((#{tmp 19637}# ($sc-dispatch - #{e 17638}# + #{e 19625}# '(_ any . each-any)))) - (if #{tmp 17650}# + (if #{tmp 19637}# (@apply - (lambda (#{e1 17654}# #{e2 17655}#) - (#{scan 17258}# - (cons #{e1 17654}# #{e2 17655}#) - #{r 17390}# - #{w 17639}# - #{s 17640}# - #{m 17393}# - #{esew 17394}# - #{mod 17641}# - #{exps 17396}#)) - #{tmp 17650}#) + (lambda (#{e1 19641}# #{e2 19642}#) + (#{scan 19245}# + (cons #{e1 19641}# #{e2 19642}#) + #{r 19377}# + #{w 19626}# + #{s 19627}# + #{m 19380}# + #{esew 19381}# + #{mod 19628}# + #{exps 19383}#)) + #{tmp 19637}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 17638}#))))) - (if (eqv? #{type 17636}# 'local-syntax-form) - (#{expand-local-syntax 4339}# - #{value 17637}# - #{e 17638}# - #{r 17390}# - #{w 17639}# - #{s 17640}# - #{mod 17641}# - (lambda (#{body 17670}# - #{r 17671}# - #{w 17672}# - #{s 17673}# - #{mod 17674}#) - (#{scan 17258}# - #{body 17670}# - #{r 17671}# - #{w 17672}# - #{s 17673}# - #{m 17393}# - #{esew 17394}# - #{mod 17674}# - #{exps 17396}#))) - (if (eqv? #{type 17636}# 'eval-when-form) - (let ((#{tmp 17679}# + #{e 19625}#))))) + (if (eqv? #{type 19623}# 'local-syntax-form) + (#{expand-local-syntax 6326}# + #{value 19624}# + #{e 19625}# + #{r 19377}# + #{w 19626}# + #{s 19627}# + #{mod 19628}# + (lambda (#{body 19657}# + #{r 19658}# + #{w 19659}# + #{s 19660}# + #{mod 19661}#) + (#{scan 19245}# + #{body 19657}# + #{r 19658}# + #{w 19659}# + #{s 19660}# + #{m 19380}# + #{esew 19381}# + #{mod 19661}# + #{exps 19383}#))) + (if (eqv? #{type 19623}# 'eval-when-form) + (let ((#{tmp 19666}# ($sc-dispatch - #{e 17638}# + #{e 19625}# '(_ each-any any . each-any)))) - (if #{tmp 17679}# + (if #{tmp 19666}# (@apply - (lambda (#{x 17683}# - #{e1 17684}# - #{e2 17685}#) - (let ((#{when-list 17686}# - (#{parse-when-list 4332}# - #{e 17638}# - #{x 17683}#)) - (#{body 17687}# - (cons #{e1 17684}# - #{e2 17685}#))) - (if (eq? #{m 17393}# 'e) - (if (memq 'eval #{when-list 17686}#) - (#{scan 17258}# - #{body 17687}# - #{r 17390}# - #{w 17639}# - #{s 17640}# + (lambda (#{x 19670}# + #{e1 19671}# + #{e2 19672}#) + (let ((#{when-list 19673}# + (#{parse-when-list 6319}# + #{e 19625}# + #{x 19670}#)) + (#{body 19674}# + (cons #{e1 19671}# + #{e2 19672}#))) + (if (eq? #{m 19380}# 'e) + (if (memq 'eval #{when-list 19673}#) + (#{scan 19245}# + #{body 19674}# + #{r 19377}# + #{w 19626}# + #{s 19627}# (if (memq 'expand - #{when-list 17686}#) + #{when-list 19673}#) 'c&e 'e) '(eval) - #{mod 17641}# - #{exps 17396}#) + #{mod 19628}# + #{exps 19383}#) (begin (if (memq 'expand - #{when-list 17686}#) - (let ((#{x 17764}# - (#{expand-top-sequence 4330}# - #{body 17687}# - #{r 17390}# - #{w 17639}# - #{s 17640}# + #{when-list 19673}#) + (let ((#{x 19751}# + (#{expand-top-sequence 6317}# + #{body 19674}# + #{r 19377}# + #{w 19626}# + #{s 19627}# 'e '(eval) - #{mod 17641}#))) + #{mod 19628}#))) (primitive-eval - #{x 17764}#))) - (values #{exps 17396}#))) - (if (memq 'load #{when-list 17686}#) - (if (let ((#{t 17790}# + #{x 19751}#))) + (values #{exps 19383}#))) + (if (memq 'load #{when-list 19673}#) + (if (let ((#{t 19777}# (memq 'compile - #{when-list 17686}#))) - (if #{t 17790}# - #{t 17790}# - (let ((#{t 17839}# + #{when-list 19673}#))) + (if #{t 19777}# + #{t 19777}# + (let ((#{t 19826}# (memq 'expand - #{when-list 17686}#))) - (if #{t 17839}# - #{t 17839}# - (if (eq? #{m 17393}# + #{when-list 19673}#))) + (if #{t 19826}# + #{t 19826}# + (if (eq? #{m 19380}# 'c&e) (memq 'eval - #{when-list 17686}#) + #{when-list 19673}#) #f))))) - (#{scan 17258}# - #{body 17687}# - #{r 17390}# - #{w 17639}# - #{s 17640}# + (#{scan 19245}# + #{body 19674}# + #{r 19377}# + #{w 19626}# + #{s 19627}# 'c&e '(compile load) - #{mod 17641}# - #{exps 17396}#) - (if (if (eq? #{m 17393}# 'c) + #{mod 19628}# + #{exps 19383}#) + (if (if (eq? #{m 19380}# 'c) #t - (eq? #{m 17393}# 'c&e)) - (#{scan 17258}# - #{body 17687}# - #{r 17390}# - #{w 17639}# - #{s 17640}# + (eq? #{m 19380}# 'c&e)) + (#{scan 19245}# + #{body 19674}# + #{r 19377}# + #{w 19626}# + #{s 19627}# 'c '(load) - #{mod 17641}# - #{exps 17396}#) - (values #{exps 17396}#))) - (if (let ((#{t 17968}# + #{mod 19628}# + #{exps 19383}#) + (values #{exps 19383}#))) + (if (let ((#{t 19955}# (memq 'compile - #{when-list 17686}#))) - (if #{t 17968}# - #{t 17968}# - (let ((#{t 18017}# + #{when-list 19673}#))) + (if #{t 19955}# + #{t 19955}# + (let ((#{t 20004}# (memq 'expand - #{when-list 17686}#))) - (if #{t 18017}# - #{t 18017}# - (if (eq? #{m 17393}# + #{when-list 19673}#))) + (if #{t 20004}# + #{t 20004}# + (if (eq? #{m 19380}# 'c&e) (memq 'eval - #{when-list 17686}#) + #{when-list 19673}#) #f))))) (begin - (let ((#{x 18141}# - (#{expand-top-sequence 4330}# - #{body 17687}# - #{r 17390}# - #{w 17639}# - #{s 17640}# + (let ((#{x 20128}# + (#{expand-top-sequence 6317}# + #{body 19674}# + #{r 19377}# + #{w 19626}# + #{s 19627}# 'e '(eval) - #{mod 17641}#))) - (primitive-eval #{x 18141}#)) - (values #{exps 17396}#)) - (values #{exps 17396}#)))))) - #{tmp 17679}#) + #{mod 19628}#))) + (primitive-eval #{x 20128}#)) + (values #{exps 19383}#)) + (values #{exps 19383}#)))))) + #{tmp 19666}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 17638}#))) - (if (eqv? #{type 17636}# 'define-syntax-form) - (let ((#{n 18182}# - (#{id-var-name 4321}# - #{value 17637}# - #{w 17639}#)) - (#{r 18183}# - (#{macros-only-env 4298}# - #{r 17390}#))) - (if (eqv? #{m 17393}# 'c) - (if (memq 'compile #{esew 17394}#) - (let ((#{e 18187}# - (#{expand-install-global 4331}# - #{n 18182}# - (#{expand 4334}# - #{e 17638}# - #{r 18183}# - #{w 17639}# - #{mod 17641}#)))) + #{e 19625}#))) + (if (eqv? #{type 19623}# 'define-syntax-form) + (let ((#{n 20169}# + (#{id-var-name 6308}# + #{value 19624}# + #{w 19626}#)) + (#{r 20170}# + (#{macros-only-env 6285}# + #{r 19377}#))) + (if (eqv? #{m 19380}# 'c) + (if (memq 'compile #{esew 19381}#) + (let ((#{e 20174}# + (#{expand-install-global 6318}# + #{n 20169}# + (#{expand 6321}# + #{e 19625}# + #{r 20170}# + #{w 19626}# + #{mod 19628}#)))) (begin - (#{top-level-eval-hook 4262}# - #{e 18187}# - #{mod 17641}#) - (if (memq 'load #{esew 17394}#) + (#{top-level-eval-hook 6249}# + #{e 20174}# + #{mod 19628}#) + (if (memq 'load #{esew 19381}#) (values - (cons #{e 18187}# - #{exps 17396}#)) - (values #{exps 17396}#)))) - (if (memq 'load #{esew 17394}#) + (cons #{e 20174}# + #{exps 19383}#)) + (values #{exps 19383}#)))) + (if (memq 'load #{esew 19381}#) (values - (cons (#{expand-install-global 4331}# - #{n 18182}# - (#{expand 4334}# - #{e 17638}# - #{r 18183}# - #{w 17639}# - #{mod 17641}#)) - #{exps 17396}#)) - (values #{exps 17396}#))) - (if (eqv? #{m 17393}# 'c&e) - (let ((#{e 18634}# - (#{expand-install-global 4331}# - #{n 18182}# - (#{expand 4334}# - #{e 17638}# - #{r 18183}# - #{w 17639}# - #{mod 17641}#)))) + (cons (#{expand-install-global 6318}# + #{n 20169}# + (#{expand 6321}# + #{e 19625}# + #{r 20170}# + #{w 19626}# + #{mod 19628}#)) + #{exps 19383}#)) + (values #{exps 19383}#))) + (if (eqv? #{m 19380}# 'c&e) + (let ((#{e 20621}# + (#{expand-install-global 6318}# + #{n 20169}# + (#{expand 6321}# + #{e 19625}# + #{r 20170}# + #{w 19626}# + #{mod 19628}#)))) (begin - (#{top-level-eval-hook 4262}# - #{e 18634}# - #{mod 17641}#) + (#{top-level-eval-hook 6249}# + #{e 20621}# + #{mod 19628}#) (values - (cons #{e 18634}# - #{exps 17396}#)))) + (cons #{e 20621}# + #{exps 19383}#)))) (begin - (if (memq 'eval #{esew 17394}#) - (#{top-level-eval-hook 4262}# - (#{expand-install-global 4331}# - #{n 18182}# - (#{expand 4334}# - #{e 17638}# - #{r 18183}# - #{w 17639}# - #{mod 17641}#)) - #{mod 17641}#)) - (values #{exps 17396}#))))) - (if (eqv? #{type 17636}# 'define-form) - (let ((#{n 19269}# - (#{id-var-name 4321}# - #{value 17637}# - #{w 17639}#))) - (let ((#{type 19270}# - (car (let ((#{t 20014}# - (assq #{n 19269}# - #{r 17390}#))) - (if #{t 20014}# - (cdr #{t 20014}#) - (if (symbol? #{n 19269}#) - (let ((#{t 20019}# + (if (memq 'eval #{esew 19381}#) + (#{top-level-eval-hook 6249}# + (#{expand-install-global 6318}# + #{n 20169}# + (#{expand 6321}# + #{e 19625}# + #{r 20170}# + #{w 19626}# + #{mod 19628}#)) + #{mod 19628}#)) + (values #{exps 19383}#))))) + (if (eqv? #{type 19623}# 'define-form) + (let ((#{n 21256}# + (#{id-var-name 6308}# + #{value 19624}# + #{w 19626}#))) + (let ((#{type 21257}# + (car (let ((#{t 22001}# + (assq #{n 21256}# + #{r 19377}#))) + (if #{t 22001}# + (cdr #{t 22001}#) + (if (symbol? #{n 21256}#) + (let ((#{t 22006}# (begin - (if (if (not #{mod 17641}#) + (if (if (not #{mod 19628}#) (current-module) #f) (warn "module system is booted, we should have a module" - #{n 19269}#)) - (let ((#{v 20056}# + #{n 21256}#)) + (let ((#{v 22043}# (module-variable - (if #{mod 17641}# + (if #{mod 19628}# (resolve-module - (cdr #{mod 17641}#)) + (cdr #{mod 19628}#)) (current-module)) - #{n 19269}#))) - (if #{v 20056}# + #{n 21256}#))) + (if #{v 22043}# (if (variable-bound? - #{v 20056}#) - (let ((#{val 20065}# + #{v 22043}#) + (let ((#{val 22052}# (variable-ref - #{v 20056}#))) + #{v 22043}#))) (if (macro? - #{val 20065}#) + #{val 22052}#) (if (macro-type - #{val 20065}#) + #{val 22052}#) (cons (macro-type - #{val 20065}#) + #{val 22052}#) (macro-binding - #{val 20065}#)) + #{val 22052}#)) #f) #f)) #f) #f))))) - (if #{t 20019}# - #{t 20019}# + (if #{t 22006}# + #{t 22006}# '(global))) '(displaced-lexical))))))) - (if (let ((#{t 19304}# #{type 19270}#)) - (if (eqv? #{t 19304}# 'global) + (if (let ((#{t 21291}# #{type 21257}#)) + (if (eqv? #{t 21291}# 'global) #t - (if (eqv? #{t 19304}# 'core) + (if (eqv? #{t 21291}# 'core) #t - (if (eqv? #{t 19304}# 'macro) + (if (eqv? #{t 21291}# 'macro) #t - (eqv? #{t 19304}# + (eqv? #{t 21291}# 'module-ref))))) (begin - (if (if (if (eq? #{m 17393}# 'c) + (if (if (if (eq? #{m 19380}# 'c) #t - (eq? #{m 17393}# 'c&e)) + (eq? #{m 19380}# 'c&e)) (if (not (module-local-variable (current-module) - #{n 19269}#)) + #{n 21256}#)) (current-module) #f) #f) - (let ((#{old 19468}# + (let ((#{old 21455}# (module-variable (current-module) - #{n 19269}#))) - (if (if (variable? #{old 19468}#) + #{n 21256}#))) + (if (if (variable? #{old 21455}#) (variable-bound? - #{old 19468}#) + #{old 21455}#) #f) (module-define! (current-module) - #{n 19269}# - (variable-ref #{old 19468}#)) + #{n 21256}# + (variable-ref #{old 21455}#)) (module-add! (current-module) - #{n 19269}# + #{n 21256}# (make-undefined-variable))))) (values - (cons (if (eq? #{m 17393}# 'c&e) - (let ((#{x 19470}# - (#{build-global-definition 4277}# - #{s 17640}# - #{n 19269}# - (#{expand 4334}# - #{e 17638}# - #{r 17390}# - #{w 17639}# - #{mod 17641}#)))) + (cons (if (eq? #{m 19380}# 'c&e) + (let ((#{x 21457}# + (#{build-global-definition 6264}# + #{s 19627}# + #{n 21256}# + (#{expand 6321}# + #{e 19625}# + #{r 19377}# + #{w 19626}# + #{mod 19628}#)))) (begin - (#{top-level-eval-hook 4262}# - #{x 19470}# - #{mod 17641}#) - #{x 19470}#)) + (#{top-level-eval-hook 6249}# + #{x 21457}# + #{mod 19628}#) + #{x 21457}#)) (lambda () - (#{build-global-definition 4277}# - #{s 17640}# - #{n 19269}# - (#{expand 4334}# - #{e 17638}# - #{r 17390}# - #{w 17639}# - #{mod 17641}#)))) - #{exps 17396}#))) - (if (let ((#{t 19941}# #{type 19270}#)) - (eqv? #{t 19941}# + (#{build-global-definition 6264}# + #{s 19627}# + #{n 21256}# + (#{expand 6321}# + #{e 19625}# + #{r 19377}# + #{w 19626}# + #{mod 19628}#)))) + #{exps 19383}#))) + (if (let ((#{t 21928}# #{type 21257}#)) + (eqv? #{t 21928}# 'displaced-lexical)) (syntax-violation #f "identifier out of context" - #{e 17638}# - (#{wrap 4327}# - #{value 17637}# - #{w 17639}# - #{mod 17641}#)) + #{e 19625}# + (#{wrap 6314}# + #{value 19624}# + #{w 19626}# + #{mod 19628}#)) (syntax-violation #f "cannot define keyword at top level" - #{e 17638}# - (#{wrap 4327}# - #{value 17637}# - #{w 17639}# - #{mod 17641}#)))))) + #{e 19625}# + (#{wrap 6314}# + #{value 19624}# + #{w 19626}# + #{mod 19628}#)))))) (values - (cons (if (eq? #{m 17393}# 'c&e) - (let ((#{x 20076}# - (#{expand-expr 4335}# - #{type 17636}# - #{value 17637}# - #{e 17638}# - #{r 17390}# - #{w 17639}# - #{s 17640}# - #{mod 17641}#))) + (cons (if (eq? #{m 19380}# 'c&e) + (let ((#{x 22063}# + (#{expand-expr 6322}# + #{type 19623}# + #{value 19624}# + #{e 19625}# + #{r 19377}# + #{w 19626}# + #{s 19627}# + #{mod 19628}#))) (begin - (primitive-eval #{x 20076}#) - #{x 20076}#)) + (primitive-eval #{x 22063}#) + #{x 22063}#)) (lambda () - (#{expand-expr 4335}# - #{type 17636}# - #{value 17637}# - #{e 17638}# - #{r 17390}# - #{w 17639}# - #{s 17640}# - #{mod 17641}#))) - #{exps 17396}#)))))))))) - (lambda (#{exps 20085}#) - (#{scan 17258}# - (cdr #{body 17389}#) - #{r 17390}# - #{w 17391}# - #{s 17392}# - #{m 17393}# - #{esew 17394}# - #{mod 17395}# - #{exps 20085}#))))))) + (#{expand-expr 6322}# + #{type 19623}# + #{value 19624}# + #{e 19625}# + #{r 19377}# + #{w 19626}# + #{s 19627}# + #{mod 19628}#))) + #{exps 19383}#)))))))))) + (lambda (#{exps 22072}#) + (#{scan 19245}# + (cdr #{body 19376}#) + #{r 19377}# + #{w 19378}# + #{s 19379}# + #{m 19380}# + #{esew 19381}# + #{mod 19382}# + #{exps 22072}#))))))) (call-with-values (lambda () - (#{scan 17258}# - #{body 17251}# - #{r 17252}# - #{w 17253}# - #{s 17254}# - #{m 17255}# - #{esew 17256}# - #{mod 17257}# + (#{scan 19245}# + #{body 19238}# + #{r 19239}# + #{w 19240}# + #{s 19241}# + #{m 19242}# + #{esew 19243}# + #{mod 19244}# '())) - (lambda (#{exps 17261}#) - (if (null? #{exps 17261}#) + (lambda (#{exps 19248}#) + (if (null? #{exps 19248}#) (make-struct/no-tail (vector-ref %expanded-vtables 0) - #{s 17254}#) - (#{build-sequence 4283}# - #{s 17254}# + #{s 19241}#) + (#{build-sequence 6270}# + #{s 19241}# (letrec* - ((#{lp 17301}# - (lambda (#{in 17385}# #{out 17386}#) - (if (null? #{in 17385}#) - #{out 17386}# - (let ((#{e 17387}# (car #{in 17385}#))) - (#{lp 17301}# - (cdr #{in 17385}#) - (cons (if (procedure? #{e 17387}#) - (#{e 17387}#) - #{e 17387}#) - #{out 17386}#))))))) - (#{lp 17301}# #{exps 17261}# '()))))))))) - (#{expand-install-global 4331}# - (lambda (#{name 20086}# #{e 20087}#) - (let ((#{exp 20093}# - (let ((#{fun-exp 20103}# + ((#{lp 19288}# + (lambda (#{in 19372}# #{out 19373}#) + (if (null? #{in 19372}#) + #{out 19373}# + (let ((#{e 19374}# (car #{in 19372}#))) + (#{lp 19288}# + (cdr #{in 19372}#) + (cons (if (procedure? #{e 19374}#) + (#{e 19374}#) + #{e 19374}#) + #{out 19373}#))))))) + (#{lp 19288}# #{exps 19248}# '()))))))))) + (#{expand-install-global 6318}# + (lambda (#{name 22073}# #{e 22074}#) + (let ((#{exp 22080}# + (let ((#{fun-exp 22090}# (if (equal? (module-name (current-module)) '(guile)) (make-struct/no-tail (vector-ref %expanded-vtables 7) @@ -1238,416 +1238,416 @@ '(guile) 'make-syntax-transformer #f))) - (#{arg-exps 20104}# + (#{arg-exps 22091}# (list (make-struct/no-tail (vector-ref %expanded-vtables 1) #f - #{name 20086}#) + #{name 22073}#) (make-struct/no-tail (vector-ref %expanded-vtables 1) #f 'macro) - #{e 20087}#))) + #{e 22074}#))) (make-struct/no-tail (vector-ref %expanded-vtables 11) #f - #{fun-exp 20103}# - #{arg-exps 20104}#)))) + #{fun-exp 22090}# + #{arg-exps 22091}#)))) (begin - (if (if (struct? #{exp 20093}#) - (eq? (struct-vtable #{exp 20093}#) + (if (if (struct? #{exp 22080}#) + (eq? (struct-vtable #{exp 22080}#) (vector-ref %expanded-vtables 13)) #f) - (let ((#{meta 20145}# (struct-ref #{exp 20093}# 1))) - (if (not (assq 'name #{meta 20145}#)) - (let ((#{v 20152}# - (cons (cons 'name #{name 20086}#) #{meta 20145}#))) - (struct-set! #{exp 20093}# 1 #{v 20152}#))))) + (let ((#{meta 22132}# (struct-ref #{exp 22080}# 1))) + (if (not (assq 'name #{meta 22132}#)) + (let ((#{v 22139}# + (cons (cons 'name #{name 22073}#) #{meta 22132}#))) + (struct-set! #{exp 22080}# 1 #{v 22139}#))))) (make-struct/no-tail (vector-ref %expanded-vtables 9) #f - #{name 20086}# - #{exp 20093}#))))) - (#{parse-when-list 4332}# - (lambda (#{e 20163}# #{when-list 20164}#) - (let ((#{result 20165}# - (#{strip 4347}# #{when-list 20164}# '(())))) + #{name 22073}# + #{exp 22080}#))))) + (#{parse-when-list 6319}# + (lambda (#{e 22150}# #{when-list 22151}#) + (let ((#{result 22152}# + (#{strip 6334}# #{when-list 22151}# '(())))) (letrec* - ((#{lp 20166}# - (lambda (#{l 20220}#) - (if (null? #{l 20220}#) - #{result 20165}# - (if (let ((#{t 20222}# (car #{l 20220}#))) - (if (eq? #{t 20222}# 'compile) + ((#{lp 22153}# + (lambda (#{l 22207}#) + (if (null? #{l 22207}#) + #{result 22152}# + (if (let ((#{t 22209}# (car #{l 22207}#))) + (if (eq? #{t 22209}# 'compile) #t - (if (eq? #{t 20222}# 'load) + (if (eq? #{t 22209}# 'load) #t - (if (eq? #{t 20222}# 'eval) + (if (eq? #{t 22209}# 'eval) #t - (eq? #{t 20222}# 'expand))))) - (#{lp 20166}# (cdr #{l 20220}#)) + (eq? #{t 22209}# 'expand))))) + (#{lp 22153}# (cdr #{l 22207}#)) (syntax-violation 'eval-when "invalid situation" - #{e 20163}# - (car #{l 20220}#))))))) - (#{lp 20166}# #{result 20165}#))))) - (#{syntax-type 4333}# - (lambda (#{e 20224}# - #{r 20225}# - #{w 20226}# - #{s 20227}# - #{rib 20228}# - #{mod 20229}# - #{for-car? 20230}#) - (if (symbol? #{e 20224}#) - (let ((#{n 20231}# - (#{id-var-name 4321}# #{e 20224}# #{w 20226}#))) - (let ((#{b 20232}# - (let ((#{t 20807}# (assq #{n 20231}# #{r 20225}#))) - (if #{t 20807}# - (cdr #{t 20807}#) - (if (symbol? #{n 20231}#) - (let ((#{t 20812}# + #{e 22150}# + (car #{l 22207}#))))))) + (#{lp 22153}# #{result 22152}#))))) + (#{syntax-type 6320}# + (lambda (#{e 22211}# + #{r 22212}# + #{w 22213}# + #{s 22214}# + #{rib 22215}# + #{mod 22216}# + #{for-car? 22217}#) + (if (symbol? #{e 22211}#) + (let ((#{n 22218}# + (#{id-var-name 6308}# #{e 22211}# #{w 22213}#))) + (let ((#{b 22219}# + (let ((#{t 22794}# (assq #{n 22218}# #{r 22212}#))) + (if #{t 22794}# + (cdr #{t 22794}#) + (if (symbol? #{n 22218}#) + (let ((#{t 22799}# (begin - (if (if (not #{mod 20229}#) + (if (if (not #{mod 22216}#) (current-module) #f) (warn "module system is booted, we should have a module" - #{n 20231}#)) - (let ((#{v 20849}# + #{n 22218}#)) + (let ((#{v 22836}# (module-variable - (if #{mod 20229}# + (if #{mod 22216}# (resolve-module - (cdr #{mod 20229}#)) + (cdr #{mod 22216}#)) (current-module)) - #{n 20231}#))) - (if #{v 20849}# - (if (variable-bound? #{v 20849}#) - (let ((#{val 20858}# - (variable-ref #{v 20849}#))) - (if (macro? #{val 20858}#) - (if (macro-type #{val 20858}#) - (cons (macro-type #{val 20858}#) + #{n 22218}#))) + (if #{v 22836}# + (if (variable-bound? #{v 22836}#) + (let ((#{val 22845}# + (variable-ref #{v 22836}#))) + (if (macro? #{val 22845}#) + (if (macro-type #{val 22845}#) + (cons (macro-type #{val 22845}#) (macro-binding - #{val 20858}#)) + #{val 22845}#)) #f) #f)) #f) #f))))) - (if #{t 20812}# #{t 20812}# '(global))) + (if #{t 22799}# #{t 22799}# '(global))) '(displaced-lexical)))))) - (let ((#{type 20233}# (car #{b 20232}#))) - (if (let ((#{t 20267}# #{type 20233}#)) - (eqv? #{t 20267}# 'lexical)) + (let ((#{type 22220}# (car #{b 22219}#))) + (if (let ((#{t 22254}# #{type 22220}#)) + (eqv? #{t 22254}# 'lexical)) (values - #{type 20233}# - (cdr #{b 20232}#) - #{e 20224}# - #{w 20226}# - #{s 20227}# - #{mod 20229}#) - (if (let ((#{t 20424}# #{type 20233}#)) - (eqv? #{t 20424}# 'global)) + #{type 22220}# + (cdr #{b 22219}#) + #{e 22211}# + #{w 22213}# + #{s 22214}# + #{mod 22216}#) + (if (let ((#{t 22411}# #{type 22220}#)) + (eqv? #{t 22411}# 'global)) (values - #{type 20233}# - #{n 20231}# - #{e 20224}# - #{w 20226}# - #{s 20227}# - #{mod 20229}#) - (if (let ((#{t 20550}# #{type 20233}#)) - (eqv? #{t 20550}# 'macro)) - (if #{for-car? 20230}# + #{type 22220}# + #{n 22218}# + #{e 22211}# + #{w 22213}# + #{s 22214}# + #{mod 22216}#) + (if (let ((#{t 22537}# #{type 22220}#)) + (eqv? #{t 22537}# 'macro)) + (if #{for-car? 22217}# (values - #{type 20233}# - (cdr #{b 20232}#) - #{e 20224}# - #{w 20226}# - #{s 20227}# - #{mod 20229}#) - (#{syntax-type 4333}# - (#{expand-macro 4337}# - (cdr #{b 20232}#) - #{e 20224}# - #{r 20225}# - #{w 20226}# - #{s 20227}# - #{rib 20228}# - #{mod 20229}#) - #{r 20225}# + #{type 22220}# + (cdr #{b 22219}#) + #{e 22211}# + #{w 22213}# + #{s 22214}# + #{mod 22216}#) + (#{syntax-type 6320}# + (#{expand-macro 6324}# + (cdr #{b 22219}#) + #{e 22211}# + #{r 22212}# + #{w 22213}# + #{s 22214}# + #{rib 22215}# + #{mod 22216}#) + #{r 22212}# '(()) - #{s 20227}# - #{rib 20228}# - #{mod 20229}# + #{s 22214}# + #{rib 22215}# + #{mod 22216}# #f)) (values - #{type 20233}# - (cdr #{b 20232}#) - #{e 20224}# - #{w 20226}# - #{s 20227}# - #{mod 20229}#))))))) - (if (pair? #{e 20224}#) - (let ((#{first 20869}# (car #{e 20224}#))) + #{type 22220}# + (cdr #{b 22219}#) + #{e 22211}# + #{w 22213}# + #{s 22214}# + #{mod 22216}#))))))) + (if (pair? #{e 22211}#) + (let ((#{first 22856}# (car #{e 22211}#))) (call-with-values (lambda () - (#{syntax-type 4333}# - #{first 20869}# - #{r 20225}# - #{w 20226}# - #{s 20227}# - #{rib 20228}# - #{mod 20229}# + (#{syntax-type 6320}# + #{first 22856}# + #{r 22212}# + #{w 22213}# + #{s 22214}# + #{rib 22215}# + #{mod 22216}# #t)) - (lambda (#{ftype 20871}# - #{fval 20872}# - #{fe 20873}# - #{fw 20874}# - #{fs 20875}# - #{fmod 20876}#) - (if (eqv? #{ftype 20871}# 'lexical) + (lambda (#{ftype 22858}# + #{fval 22859}# + #{fe 22860}# + #{fw 22861}# + #{fs 22862}# + #{fmod 22863}#) + (if (eqv? #{ftype 22858}# 'lexical) (values 'lexical-call - #{fval 20872}# - #{e 20224}# - #{w 20226}# - #{s 20227}# - #{mod 20229}#) - (if (eqv? #{ftype 20871}# 'global) + #{fval 22859}# + #{e 22211}# + #{w 22213}# + #{s 22214}# + #{mod 22216}#) + (if (eqv? #{ftype 22858}# 'global) (values 'global-call (vector 'syntax-object - #{fval 20872}# - #{w 20226}# - #{fmod 20876}#) - #{e 20224}# - #{w 20226}# - #{s 20227}# - #{mod 20229}#) - (if (eqv? #{ftype 20871}# 'macro) - (#{syntax-type 4333}# - (#{expand-macro 4337}# - #{fval 20872}# - #{e 20224}# - #{r 20225}# - #{w 20226}# - #{s 20227}# - #{rib 20228}# - #{mod 20229}#) - #{r 20225}# + #{fval 22859}# + #{w 22213}# + #{fmod 22863}#) + #{e 22211}# + #{w 22213}# + #{s 22214}# + #{mod 22216}#) + (if (eqv? #{ftype 22858}# 'macro) + (#{syntax-type 6320}# + (#{expand-macro 6324}# + #{fval 22859}# + #{e 22211}# + #{r 22212}# + #{w 22213}# + #{s 22214}# + #{rib 22215}# + #{mod 22216}#) + #{r 22212}# '(()) - #{s 20227}# - #{rib 20228}# - #{mod 20229}# - #{for-car? 20230}#) - (if (eqv? #{ftype 20871}# 'module-ref) + #{s 22214}# + #{rib 22215}# + #{mod 22216}# + #{for-car? 22217}#) + (if (eqv? #{ftype 22858}# 'module-ref) (call-with-values (lambda () - (#{fval 20872}# - #{e 20224}# - #{r 20225}# - #{w 20226}#)) - (lambda (#{e 20897}# - #{r 20898}# - #{w 20899}# - #{s 20900}# - #{mod 20901}#) - (#{syntax-type 4333}# - #{e 20897}# - #{r 20898}# - #{w 20899}# - #{s 20900}# - #{rib 20228}# - #{mod 20901}# - #{for-car? 20230}#))) - (if (eqv? #{ftype 20871}# 'core) + (#{fval 22859}# + #{e 22211}# + #{r 22212}# + #{w 22213}#)) + (lambda (#{e 22884}# + #{r 22885}# + #{w 22886}# + #{s 22887}# + #{mod 22888}#) + (#{syntax-type 6320}# + #{e 22884}# + #{r 22885}# + #{w 22886}# + #{s 22887}# + #{rib 22215}# + #{mod 22888}# + #{for-car? 22217}#))) + (if (eqv? #{ftype 22858}# 'core) (values 'core-form - #{fval 20872}# - #{e 20224}# - #{w 20226}# - #{s 20227}# - #{mod 20229}#) - (if (eqv? #{ftype 20871}# 'local-syntax) + #{fval 22859}# + #{e 22211}# + #{w 22213}# + #{s 22214}# + #{mod 22216}#) + (if (eqv? #{ftype 22858}# 'local-syntax) (values 'local-syntax-form - #{fval 20872}# - #{e 20224}# - #{w 20226}# - #{s 20227}# - #{mod 20229}#) - (if (eqv? #{ftype 20871}# 'begin) + #{fval 22859}# + #{e 22211}# + #{w 22213}# + #{s 22214}# + #{mod 22216}#) + (if (eqv? #{ftype 22858}# 'begin) (values 'begin-form #f - #{e 20224}# - #{w 20226}# - #{s 20227}# - #{mod 20229}#) - (if (eqv? #{ftype 20871}# 'eval-when) + #{e 22211}# + #{w 22213}# + #{s 22214}# + #{mod 22216}#) + (if (eqv? #{ftype 22858}# 'eval-when) (values 'eval-when-form #f - #{e 20224}# - #{w 20226}# - #{s 20227}# - #{mod 20229}#) - (if (eqv? #{ftype 20871}# 'define) - (let ((#{tmp 20918}# + #{e 22211}# + #{w 22213}# + #{s 22214}# + #{mod 22216}#) + (if (eqv? #{ftype 22858}# 'define) + (let ((#{tmp 22905}# ($sc-dispatch - #{e 20224}# + #{e 22211}# '(_ any any)))) - (if (if #{tmp 20918}# + (if (if #{tmp 22905}# (@apply - (lambda (#{name 20922}# - #{val 20923}#) - (if (symbol? #{name 20922}#) + (lambda (#{name 22909}# + #{val 22910}#) + (if (symbol? #{name 22909}#) #t (if (if (vector? - #{name 20922}#) + #{name 22909}#) (if (= (vector-length - #{name 20922}#) + #{name 22909}#) 4) (eq? (vector-ref - #{name 20922}# + #{name 22909}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{name 20922}# + #{name 22909}# 1)) #f))) - #{tmp 20918}#) + #{tmp 22905}#) #f) (@apply - (lambda (#{name 20950}# #{val 20951}#) + (lambda (#{name 22937}# #{val 22938}#) (values 'define-form - #{name 20950}# - #{val 20951}# - #{w 20226}# - #{s 20227}# - #{mod 20229}#)) - #{tmp 20918}#) - (let ((#{tmp 20952}# + #{name 22937}# + #{val 22938}# + #{w 22213}# + #{s 22214}# + #{mod 22216}#)) + #{tmp 22905}#) + (let ((#{tmp 22939}# ($sc-dispatch - #{e 20224}# + #{e 22211}# '(_ (any . any) any . each-any)))) - (if (if #{tmp 20952}# + (if (if #{tmp 22939}# (@apply - (lambda (#{name 20956}# - #{args 20957}# - #{e1 20958}# - #{e2 20959}#) + (lambda (#{name 22943}# + #{args 22944}# + #{e1 22945}# + #{e2 22946}#) (if (if (symbol? - #{name 20956}#) + #{name 22943}#) #t (if (if (vector? - #{name 20956}#) + #{name 22943}#) (if (= (vector-length - #{name 20956}#) + #{name 22943}#) 4) (eq? (vector-ref - #{name 20956}# + #{name 22943}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{name 20956}# + #{name 22943}# 1)) #f)) - (#{valid-bound-ids? 4324}# + (#{valid-bound-ids? 6311}# (letrec* - ((#{lvl 21108}# - (lambda (#{vars 21110}# - #{ls 21111}# - #{w 21112}#) - (if (pair? #{vars 21110}#) - (#{lvl 21108}# - (cdr #{vars 21110}#) - (cons (#{wrap 4327}# - (car #{vars 21110}#) - #{w 21112}# + ((#{lvl 23095}# + (lambda (#{vars 23097}# + #{ls 23098}# + #{w 23099}#) + (if (pair? #{vars 23097}#) + (#{lvl 23095}# + (cdr #{vars 23097}#) + (cons (#{wrap 6314}# + (car #{vars 23097}#) + #{w 23099}# #f) - #{ls 21111}#) - #{w 21112}#) + #{ls 23098}#) + #{w 23099}#) (if (if (symbol? - #{vars 21110}#) + #{vars 23097}#) #t (if (if (vector? - #{vars 21110}#) + #{vars 23097}#) (if (= (vector-length - #{vars 21110}#) + #{vars 23097}#) 4) (eq? (vector-ref - #{vars 21110}# + #{vars 23097}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{vars 21110}# + #{vars 23097}# 1)) #f)) - (cons (#{wrap 4327}# - #{vars 21110}# - #{w 21112}# + (cons (#{wrap 6314}# + #{vars 23097}# + #{w 23099}# #f) - #{ls 21111}#) - (if (null? #{vars 21110}#) - #{ls 21111}# + #{ls 23098}#) + (if (null? #{vars 23097}#) + #{ls 23098}# (if (if (vector? - #{vars 21110}#) + #{vars 23097}#) (if (= (vector-length - #{vars 21110}#) + #{vars 23097}#) 4) (eq? (vector-ref - #{vars 21110}# + #{vars 23097}# 0) 'syntax-object) #f) #f) - (#{lvl 21108}# + (#{lvl 23095}# (vector-ref - #{vars 21110}# + #{vars 23097}# 1) - #{ls 21111}# - (#{join-wraps 4318}# - #{w 21112}# + #{ls 23098}# + (#{join-wraps 6305}# + #{w 23099}# (vector-ref - #{vars 21110}# + #{vars 23097}# 2))) - (cons #{vars 21110}# - #{ls 21111}#)))))))) - (#{lvl 21108}# - #{args 20957}# + (cons #{vars 23097}# + #{ls 23098}#)))))))) + (#{lvl 23095}# + #{args 22944}# '() '(())))) #f)) - #{tmp 20952}#) + #{tmp 22939}#) #f) (@apply - (lambda (#{name 21156}# - #{args 21157}# - #{e1 21158}# - #{e2 21159}#) + (lambda (#{name 23143}# + #{args 23144}# + #{e1 23145}# + #{e2 23146}#) (values 'define-form - (#{wrap 4327}# - #{name 21156}# - #{w 20226}# - #{mod 20229}#) - (let ((#{e 21165}# + (#{wrap 6314}# + #{name 23143}# + #{w 22213}# + #{mod 22216}#) + (let ((#{e 23152}# (cons '#(syntax-object lambda ((top) @@ -1660,10 +1660,10 @@ (top) (top) (top)) - #("i1843" - "i1844" - "i1845" - "i1846")) + #("i3830" + "i3831" + "i3832" + "i3833")) #(ribcage () () @@ -1685,12 +1685,12 @@ (top) (top) (top)) - #("i1796" - "i1797" - "i1798" - "i1799" - "i1800" - "i1801")) + #("i3783" + "i3784" + "i3785" + "i3786" + "i3787" + "i3788")) #(ribcage () () @@ -1698,7 +1698,7 @@ #(ribcage #(first) #((top)) - #("i1788")) + #("i3775")) #(ribcage () () @@ -1726,13 +1726,13 @@ (top) (top) (top)) - #("i1760" - "i1761" - "i1762" - "i1763" - "i1764" - "i1765" - "i1766")) + #("i3747" + "i3748" + "i3749" + "i3750" + "i3751" + "i3752" + "i3753")) #(ribcage (lambda-var-list gen-var @@ -2006,142 +2006,142 @@ (top) (top) (top)) - ("i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i398" - "i396" - "i393" - "i392" - "i391" - "i389" - "i388" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i369" - "i367" - "i366" - "i364" - "i362" - "i360" - "i358" - "i357" - "i356" - "i355" - "i353" - "i352" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i336" - "i335" - "i333" - "i331" - "i330" - "i327" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i260" - "i257" - "i255" - "i254" - "i253" - "i252" - "i251" - "i249" - "i247" - "i245" - "i242" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208")) + ("i2454" + "i2452" + "i2450" + "i2448" + "i2446" + "i2444" + "i2442" + "i2440" + "i2438" + "i2436" + "i2434" + "i2432" + "i2430" + "i2428" + "i2426" + "i2424" + "i2422" + "i2420" + "i2418" + "i2416" + "i2414" + "i2412" + "i2410" + "i2408" + "i2406" + "i2404" + "i2402" + "i2400" + "i2398" + "i2396" + "i2394" + "i2392" + "i2390" + "i2388" + "i2386" + "i2385" + "i2383" + "i2380" + "i2379" + "i2378" + "i2376" + "i2375" + "i2373" + "i2371" + "i2369" + "i2367" + "i2365" + "i2363" + "i2361" + "i2359" + "i2356" + "i2354" + "i2353" + "i2351" + "i2349" + "i2347" + "i2345" + "i2344" + "i2343" + "i2342" + "i2340" + "i2339" + "i2336" + "i2334" + "i2332" + "i2330" + "i2328" + "i2326" + "i2324" + "i2323" + "i2322" + "i2320" + "i2318" + "i2317" + "i2314" + "i2313" + "i2311" + "i2309" + "i2307" + "i2305" + "i2303" + "i2301" + "i2299" + "i2297" + "i2295" + "i2292" + "i2290" + "i2288" + "i2286" + "i2284" + "i2282" + "i2280" + "i2278" + "i2276" + "i2274" + "i2272" + "i2270" + "i2268" + "i2266" + "i2264" + "i2262" + "i2260" + "i2258" + "i2256" + "i2254" + "i2252" + "i2250" + "i2248" + "i2247" + "i2244" + "i2242" + "i2241" + "i2240" + "i2239" + "i2238" + "i2236" + "i2234" + "i2232" + "i2229" + "i2227" + "i2225" + "i2223" + "i2221" + "i2219" + "i2217" + "i2215" + "i2213" + "i2211" + "i2209" + "i2207" + "i2205" + "i2203" + "i2201" + "i2199" + "i2197" + "i2195")) #(ribcage (define-structure define-expansion-accessors @@ -2149,72 +2149,72 @@ ((top) (top) (top)) - ("i46" - "i45" - "i44"))) + ("i2033" + "i2032" + "i2031"))) (hygiene guile)) - (#{wrap 4327}# - (cons #{args 21157}# - (cons #{e1 21158}# - #{e2 21159}#)) - #{w 20226}# - #{mod 20229}#)))) + (#{wrap 6314}# + (cons #{args 23144}# + (cons #{e1 23145}# + #{e2 23146}#)) + #{w 22213}# + #{mod 22216}#)))) (begin - (if (if (pair? #{e 21165}#) - #{s 20227}# + (if (if (pair? #{e 23152}#) + #{s 22214}# #f) (set-source-properties! - #{e 21165}# - #{s 20227}#)) - #{e 21165}#)) + #{e 23152}# + #{s 22214}#)) + #{e 23152}#)) '(()) - #{s 20227}# - #{mod 20229}#)) - #{tmp 20952}#) - (let ((#{tmp 21172}# + #{s 22214}# + #{mod 22216}#)) + #{tmp 22939}#) + (let ((#{tmp 23159}# ($sc-dispatch - #{e 20224}# + #{e 22211}# '(_ any)))) - (if (if #{tmp 21172}# + (if (if #{tmp 23159}# (@apply - (lambda (#{name 21176}#) + (lambda (#{name 23163}#) (if (symbol? - #{name 21176}#) + #{name 23163}#) #t (if (if (vector? - #{name 21176}#) + #{name 23163}#) (if (= (vector-length - #{name 21176}#) + #{name 23163}#) 4) (eq? (vector-ref - #{name 21176}# + #{name 23163}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{name 21176}# + #{name 23163}# 1)) #f))) - #{tmp 21172}#) + #{tmp 23159}#) #f) (@apply - (lambda (#{name 21203}#) + (lambda (#{name 23190}#) (values 'define-form - (#{wrap 4327}# - #{name 21203}# - #{w 20226}# - #{mod 20229}#) + (#{wrap 6314}# + #{name 23190}# + #{w 22213}# + #{mod 22216}#) '(#(syntax-object if ((top) #(ribcage #(name) #((top)) - #("i1856")) + #("i3843")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage @@ -2230,17 +2230,17 @@ (top) (top) (top)) - #("i1796" - "i1797" - "i1798" - "i1799" - "i1800" - "i1801")) + #("i3783" + "i3784" + "i3785" + "i3786" + "i3787" + "i3788")) #(ribcage () () ()) #(ribcage #(first) #((top)) - #("i1788")) + #("i3775")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ()) @@ -2259,13 +2259,13 @@ (top) (top) (top)) - #("i1760" - "i1761" - "i1762" - "i1763" - "i1764" - "i1765" - "i1766")) + #("i3747" + "i3748" + "i3749" + "i3750" + "i3751" + "i3752" + "i3753")) #(ribcage (lambda-var-list gen-var @@ -2539,150 +2539,150 @@ (top) (top) (top)) - ("i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i398" - "i396" - "i393" - "i392" - "i391" - "i389" - "i388" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i369" - "i367" - "i366" - "i364" - "i362" - "i360" - "i358" - "i357" - "i356" - "i355" - "i353" - "i352" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i336" - "i335" - "i333" - "i331" - "i330" - "i327" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i260" - "i257" - "i255" - "i254" - "i253" - "i252" - "i251" - "i249" - "i247" - "i245" - "i242" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208")) + ("i2454" + "i2452" + "i2450" + "i2448" + "i2446" + "i2444" + "i2442" + "i2440" + "i2438" + "i2436" + "i2434" + "i2432" + "i2430" + "i2428" + "i2426" + "i2424" + "i2422" + "i2420" + "i2418" + "i2416" + "i2414" + "i2412" + "i2410" + "i2408" + "i2406" + "i2404" + "i2402" + "i2400" + "i2398" + "i2396" + "i2394" + "i2392" + "i2390" + "i2388" + "i2386" + "i2385" + "i2383" + "i2380" + "i2379" + "i2378" + "i2376" + "i2375" + "i2373" + "i2371" + "i2369" + "i2367" + "i2365" + "i2363" + "i2361" + "i2359" + "i2356" + "i2354" + "i2353" + "i2351" + "i2349" + "i2347" + "i2345" + "i2344" + "i2343" + "i2342" + "i2340" + "i2339" + "i2336" + "i2334" + "i2332" + "i2330" + "i2328" + "i2326" + "i2324" + "i2323" + "i2322" + "i2320" + "i2318" + "i2317" + "i2314" + "i2313" + "i2311" + "i2309" + "i2307" + "i2305" + "i2303" + "i2301" + "i2299" + "i2297" + "i2295" + "i2292" + "i2290" + "i2288" + "i2286" + "i2284" + "i2282" + "i2280" + "i2278" + "i2276" + "i2274" + "i2272" + "i2270" + "i2268" + "i2266" + "i2264" + "i2262" + "i2260" + "i2258" + "i2256" + "i2254" + "i2252" + "i2250" + "i2248" + "i2247" + "i2244" + "i2242" + "i2241" + "i2240" + "i2239" + "i2238" + "i2236" + "i2234" + "i2232" + "i2229" + "i2227" + "i2225" + "i2223" + "i2221" + "i2219" + "i2217" + "i2215" + "i2213" + "i2211" + "i2209" + "i2207" + "i2205" + "i2203" + "i2201" + "i2199" + "i2197" + "i2195")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i46" - "i45" - "i44"))) + ("i2033" + "i2032" + "i2031"))) (hygiene guile)) #(syntax-object #f @@ -2690,7 +2690,7 @@ #(ribcage #(name) #((top)) - #("i1856")) + #("i3843")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage @@ -2706,17 +2706,17 @@ (top) (top) (top)) - #("i1796" - "i1797" - "i1798" - "i1799" - "i1800" - "i1801")) + #("i3783" + "i3784" + "i3785" + "i3786" + "i3787" + "i3788")) #(ribcage () () ()) #(ribcage #(first) #((top)) - #("i1788")) + #("i3775")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ()) @@ -2735,13 +2735,13 @@ (top) (top) (top)) - #("i1760" - "i1761" - "i1762" - "i1763" - "i1764" - "i1765" - "i1766")) + #("i3747" + "i3748" + "i3749" + "i3750" + "i3751" + "i3752" + "i3753")) #(ribcage (lambda-var-list gen-var @@ -3015,150 +3015,150 @@ (top) (top) (top)) - ("i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i398" - "i396" - "i393" - "i392" - "i391" - "i389" - "i388" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i369" - "i367" - "i366" - "i364" - "i362" - "i360" - "i358" - "i357" - "i356" - "i355" - "i353" - "i352" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i336" - "i335" - "i333" - "i331" - "i330" - "i327" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i260" - "i257" - "i255" - "i254" - "i253" - "i252" - "i251" - "i249" - "i247" - "i245" - "i242" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208")) + ("i2454" + "i2452" + "i2450" + "i2448" + "i2446" + "i2444" + "i2442" + "i2440" + "i2438" + "i2436" + "i2434" + "i2432" + "i2430" + "i2428" + "i2426" + "i2424" + "i2422" + "i2420" + "i2418" + "i2416" + "i2414" + "i2412" + "i2410" + "i2408" + "i2406" + "i2404" + "i2402" + "i2400" + "i2398" + "i2396" + "i2394" + "i2392" + "i2390" + "i2388" + "i2386" + "i2385" + "i2383" + "i2380" + "i2379" + "i2378" + "i2376" + "i2375" + "i2373" + "i2371" + "i2369" + "i2367" + "i2365" + "i2363" + "i2361" + "i2359" + "i2356" + "i2354" + "i2353" + "i2351" + "i2349" + "i2347" + "i2345" + "i2344" + "i2343" + "i2342" + "i2340" + "i2339" + "i2336" + "i2334" + "i2332" + "i2330" + "i2328" + "i2326" + "i2324" + "i2323" + "i2322" + "i2320" + "i2318" + "i2317" + "i2314" + "i2313" + "i2311" + "i2309" + "i2307" + "i2305" + "i2303" + "i2301" + "i2299" + "i2297" + "i2295" + "i2292" + "i2290" + "i2288" + "i2286" + "i2284" + "i2282" + "i2280" + "i2278" + "i2276" + "i2274" + "i2272" + "i2270" + "i2268" + "i2266" + "i2264" + "i2262" + "i2260" + "i2258" + "i2256" + "i2254" + "i2252" + "i2250" + "i2248" + "i2247" + "i2244" + "i2242" + "i2241" + "i2240" + "i2239" + "i2238" + "i2236" + "i2234" + "i2232" + "i2229" + "i2227" + "i2225" + "i2223" + "i2221" + "i2219" + "i2217" + "i2215" + "i2213" + "i2211" + "i2209" + "i2207" + "i2205" + "i2203" + "i2201" + "i2199" + "i2197" + "i2195")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i46" - "i45" - "i44"))) + ("i2033" + "i2032" + "i2031"))) (hygiene guile)) #(syntax-object #f @@ -3166,7 +3166,7 @@ #(ribcage #(name) #((top)) - #("i1856")) + #("i3843")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage @@ -3182,17 +3182,17 @@ (top) (top) (top)) - #("i1796" - "i1797" - "i1798" - "i1799" - "i1800" - "i1801")) + #("i3783" + "i3784" + "i3785" + "i3786" + "i3787" + "i3788")) #(ribcage () () ()) #(ribcage #(first) #((top)) - #("i1788")) + #("i3775")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ()) @@ -3211,13 +3211,13 @@ (top) (top) (top)) - #("i1760" - "i1761" - "i1762" - "i1763" - "i1764" - "i1765" - "i1766")) + #("i3747" + "i3748" + "i3749" + "i3750" + "i3751" + "i3752" + "i3753")) #(ribcage (lambda-var-list gen-var @@ -3491,1207 +3491,1222 @@ (top) (top) (top)) - ("i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i398" - "i396" - "i393" - "i392" - "i391" - "i389" - "i388" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i369" - "i367" - "i366" - "i364" - "i362" - "i360" - "i358" - "i357" - "i356" - "i355" - "i353" - "i352" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i336" - "i335" - "i333" - "i331" - "i330" - "i327" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i260" - "i257" - "i255" - "i254" - "i253" - "i252" - "i251" - "i249" - "i247" - "i245" - "i242" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208")) + ("i2454" + "i2452" + "i2450" + "i2448" + "i2446" + "i2444" + "i2442" + "i2440" + "i2438" + "i2436" + "i2434" + "i2432" + "i2430" + "i2428" + "i2426" + "i2424" + "i2422" + "i2420" + "i2418" + "i2416" + "i2414" + "i2412" + "i2410" + "i2408" + "i2406" + "i2404" + "i2402" + "i2400" + "i2398" + "i2396" + "i2394" + "i2392" + "i2390" + "i2388" + "i2386" + "i2385" + "i2383" + "i2380" + "i2379" + "i2378" + "i2376" + "i2375" + "i2373" + "i2371" + "i2369" + "i2367" + "i2365" + "i2363" + "i2361" + "i2359" + "i2356" + "i2354" + "i2353" + "i2351" + "i2349" + "i2347" + "i2345" + "i2344" + "i2343" + "i2342" + "i2340" + "i2339" + "i2336" + "i2334" + "i2332" + "i2330" + "i2328" + "i2326" + "i2324" + "i2323" + "i2322" + "i2320" + "i2318" + "i2317" + "i2314" + "i2313" + "i2311" + "i2309" + "i2307" + "i2305" + "i2303" + "i2301" + "i2299" + "i2297" + "i2295" + "i2292" + "i2290" + "i2288" + "i2286" + "i2284" + "i2282" + "i2280" + "i2278" + "i2276" + "i2274" + "i2272" + "i2270" + "i2268" + "i2266" + "i2264" + "i2262" + "i2260" + "i2258" + "i2256" + "i2254" + "i2252" + "i2250" + "i2248" + "i2247" + "i2244" + "i2242" + "i2241" + "i2240" + "i2239" + "i2238" + "i2236" + "i2234" + "i2232" + "i2229" + "i2227" + "i2225" + "i2223" + "i2221" + "i2219" + "i2217" + "i2215" + "i2213" + "i2211" + "i2209" + "i2207" + "i2205" + "i2203" + "i2201" + "i2199" + "i2197" + "i2195")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i46" - "i45" - "i44"))) + ("i2033" + "i2032" + "i2031"))) (hygiene guile))) '(()) - #{s 20227}# - #{mod 20229}#)) - #{tmp 21172}#) + #{s 22214}# + #{mod 22216}#)) + #{tmp 23159}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 20224}#))))))) - (if (eqv? #{ftype 20871}# 'define-syntax) - (let ((#{tmp 21222}# + #{e 22211}#))))))) + (if (eqv? #{ftype 22858}# 'define-syntax) + (let ((#{tmp 23209}# ($sc-dispatch - #{e 20224}# + #{e 22211}# '(_ any any)))) - (if (if #{tmp 21222}# + (if (if #{tmp 23209}# (@apply - (lambda (#{name 21226}# - #{val 21227}#) - (if (symbol? #{name 21226}#) + (lambda (#{name 23213}# + #{val 23214}#) + (if (symbol? #{name 23213}#) #t (if (if (vector? - #{name 21226}#) + #{name 23213}#) (if (= (vector-length - #{name 21226}#) + #{name 23213}#) 4) (eq? (vector-ref - #{name 21226}# + #{name 23213}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{name 21226}# + #{name 23213}# 1)) #f))) - #{tmp 21222}#) + #{tmp 23209}#) #f) (@apply - (lambda (#{name 21254}# - #{val 21255}#) + (lambda (#{name 23241}# + #{val 23242}#) (values 'define-syntax-form - #{name 21254}# - #{val 21255}# - #{w 20226}# - #{s 20227}# - #{mod 20229}#)) - #{tmp 21222}#) + #{name 23241}# + #{val 23242}# + #{w 22213}# + #{s 22214}# + #{mod 22216}#)) + #{tmp 23209}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 20224}#))) + #{e 22211}#))) (values 'call #f - #{e 20224}# - #{w 20226}# - #{s 20227}# - #{mod 20229}#)))))))))))))) - (if (if (vector? #{e 20224}#) - (if (= (vector-length #{e 20224}#) 4) - (eq? (vector-ref #{e 20224}# 0) 'syntax-object) + #{e 22211}# + #{w 22213}# + #{s 22214}# + #{mod 22216}#)))))))))))))) + (if (if (vector? #{e 22211}#) + (if (= (vector-length #{e 22211}#) 4) + (eq? (vector-ref #{e 22211}# 0) 'syntax-object) #f) #f) - (#{syntax-type 4333}# - (vector-ref #{e 20224}# 1) - #{r 20225}# - (#{join-wraps 4318}# - #{w 20226}# - (vector-ref #{e 20224}# 2)) - (let ((#{t 21282}# - (#{source-annotation 4295}# #{e 20224}#))) - (if #{t 21282}# #{t 21282}# #{s 20227}#)) - #{rib 20228}# - (let ((#{t 21517}# (vector-ref #{e 20224}# 3))) - (if #{t 21517}# #{t 21517}# #{mod 20229}#)) - #{for-car? 20230}#) - (if (self-evaluating? #{e 20224}#) + (#{syntax-type 6320}# + (vector-ref #{e 22211}# 1) + #{r 22212}# + (#{join-wraps 6305}# + #{w 22213}# + (vector-ref #{e 22211}# 2)) + (let ((#{t 23269}# + (#{source-annotation 6282}# #{e 22211}#))) + (if #{t 23269}# #{t 23269}# #{s 22214}#)) + #{rib 22215}# + (let ((#{t 23504}# (vector-ref #{e 22211}# 3))) + (if #{t 23504}# #{t 23504}# #{mod 22216}#)) + #{for-car? 22217}#) + (if (self-evaluating? #{e 22211}#) (values 'constant #f - #{e 20224}# - #{w 20226}# - #{s 20227}# - #{mod 20229}#) + #{e 22211}# + #{w 22213}# + #{s 22214}# + #{mod 22216}#) (values 'other #f - #{e 20224}# - #{w 20226}# - #{s 20227}# - #{mod 20229}#))))))) - (#{expand 4334}# - (lambda (#{e 21526}# - #{r 21527}# - #{w 21528}# - #{mod 21529}#) + #{e 22211}# + #{w 22213}# + #{s 22214}# + #{mod 22216}#))))))) + (#{expand 6321}# + (lambda (#{e 23513}# + #{r 23514}# + #{w 23515}# + #{mod 23516}#) (call-with-values (lambda () - (#{syntax-type 4333}# - #{e 21526}# - #{r 21527}# - #{w 21528}# - (#{source-annotation 4295}# #{e 21526}#) + (#{syntax-type 6320}# + #{e 23513}# + #{r 23514}# + #{w 23515}# + (#{source-annotation 6282}# #{e 23513}#) #f - #{mod 21529}# + #{mod 23516}# #f)) - (lambda (#{type 21684}# - #{value 21685}# - #{e 21686}# - #{w 21687}# - #{s 21688}# - #{mod 21689}#) - (#{expand-expr 4335}# - #{type 21684}# - #{value 21685}# - #{e 21686}# - #{r 21527}# - #{w 21687}# - #{s 21688}# - #{mod 21689}#))))) - (#{expand-expr 4335}# - (lambda (#{type 21692}# - #{value 21693}# - #{e 21694}# - #{r 21695}# - #{w 21696}# - #{s 21697}# - #{mod 21698}#) - (if (eqv? #{type 21692}# 'lexical) + (lambda (#{type 23671}# + #{value 23672}# + #{e 23673}# + #{w 23674}# + #{s 23675}# + #{mod 23676}#) + (#{expand-expr 6322}# + #{type 23671}# + #{value 23672}# + #{e 23673}# + #{r 23514}# + #{w 23674}# + #{s 23675}# + #{mod 23676}#))))) + (#{expand-expr 6322}# + (lambda (#{type 23679}# + #{value 23680}# + #{e 23681}# + #{r 23682}# + #{w 23683}# + #{s 23684}# + #{mod 23685}#) + (if (eqv? #{type 23679}# 'lexical) (make-struct/no-tail (vector-ref %expanded-vtables 3) - #{s 21697}# - #{e 21694}# - #{value 21693}#) - (if (if (eqv? #{type 21692}# 'core) + #{s 23684}# + #{e 23681}# + #{value 23680}#) + (if (if (eqv? #{type 23679}# 'core) #t - (eqv? #{type 21692}# 'core-form)) - (#{value 21693}# - #{e 21694}# - #{r 21695}# - #{w 21696}# - #{s 21697}# - #{mod 21698}#) - (if (eqv? #{type 21692}# 'module-ref) + (eqv? #{type 23679}# 'core-form)) + (#{value 23680}# + #{e 23681}# + #{r 23682}# + #{w 23683}# + #{s 23684}# + #{mod 23685}#) + (if (eqv? #{type 23679}# 'module-ref) (call-with-values (lambda () - (#{value 21693}# - #{e 21694}# - #{r 21695}# - #{w 21696}#)) - (lambda (#{e 21724}# - #{r 21725}# - #{w 21726}# - #{s 21727}# - #{mod 21728}#) - (#{expand 4334}# - #{e 21724}# - #{r 21725}# - #{w 21726}# - #{mod 21728}#))) - (if (eqv? #{type 21692}# 'lexical-call) - (#{expand-application 4336}# - (let ((#{id 21803}# (car #{e 21694}#))) - (#{build-lexical-reference 4272}# + (#{value 23680}# + #{e 23681}# + #{r 23682}# + #{w 23683}#)) + (lambda (#{e 23711}# + #{r 23712}# + #{w 23713}# + #{s 23714}# + #{mod 23715}#) + (#{expand 6321}# + #{e 23711}# + #{r 23712}# + #{w 23713}# + #{mod 23715}#))) + (if (eqv? #{type 23679}# 'lexical-call) + (#{expand-application 6323}# + (let ((#{id 23790}# (car #{e 23681}#))) + (#{build-lexical-reference 6259}# 'fun - (#{source-annotation 4295}# #{id 21803}#) - (if (if (vector? #{id 21803}#) - (if (= (vector-length #{id 21803}#) 4) - (eq? (vector-ref #{id 21803}# 0) 'syntax-object) + (#{source-annotation 6282}# #{id 23790}#) + (if (if (vector? #{id 23790}#) + (if (= (vector-length #{id 23790}#) 4) + (eq? (vector-ref #{id 23790}# 0) 'syntax-object) #f) #f) - (syntax->datum #{id 21803}#) - #{id 21803}#) - #{value 21693}#)) - #{e 21694}# - #{r 21695}# - #{w 21696}# - #{s 21697}# - #{mod 21698}#) - (if (eqv? #{type 21692}# 'global-call) - (#{expand-application 4336}# - (#{build-global-reference 4275}# - (#{source-annotation 4295}# (car #{e 21694}#)) - (if (if (vector? #{value 21693}#) - (if (= (vector-length #{value 21693}#) 4) - (eq? (vector-ref #{value 21693}# 0) + (syntax->datum #{id 23790}#) + #{id 23790}#) + #{value 23680}#)) + #{e 23681}# + #{r 23682}# + #{w 23683}# + #{s 23684}# + #{mod 23685}#) + (if (eqv? #{type 23679}# 'global-call) + (#{expand-application 6323}# + (#{build-global-reference 6262}# + (#{source-annotation 6282}# (car #{e 23681}#)) + (if (if (vector? #{value 23680}#) + (if (= (vector-length #{value 23680}#) 4) + (eq? (vector-ref #{value 23680}# 0) 'syntax-object) #f) #f) - (vector-ref #{value 21693}# 1) - #{value 21693}#) - (if (if (vector? #{value 21693}#) - (if (= (vector-length #{value 21693}#) 4) - (eq? (vector-ref #{value 21693}# 0) + (vector-ref #{value 23680}# 1) + #{value 23680}#) + (if (if (vector? #{value 23680}#) + (if (= (vector-length #{value 23680}#) 4) + (eq? (vector-ref #{value 23680}# 0) 'syntax-object) #f) #f) - (vector-ref #{value 21693}# 3) - #{mod 21698}#)) - #{e 21694}# - #{r 21695}# - #{w 21696}# - #{s 21697}# - #{mod 21698}#) - (if (eqv? #{type 21692}# 'constant) - (let ((#{exp 22140}# - (#{strip 4347}# - (#{wrap 4327}# + (vector-ref #{value 23680}# 3) + #{mod 23685}#)) + #{e 23681}# + #{r 23682}# + #{w 23683}# + #{s 23684}# + #{mod 23685}#) + (if (eqv? #{type 23679}# 'constant) + (let ((#{exp 24127}# + (#{strip 6334}# + (#{wrap 6314}# (begin - (if (if (pair? #{e 21694}#) #{s 21697}# #f) + (if (if (pair? #{e 23681}#) #{s 23684}# #f) (set-source-properties! - #{e 21694}# - #{s 21697}#)) - #{e 21694}#) - #{w 21696}# - #{mod 21698}#) + #{e 23681}# + #{s 23684}#)) + #{e 23681}#) + #{w 23683}# + #{mod 23685}#) '(())))) (make-struct/no-tail (vector-ref %expanded-vtables 1) - #{s 21697}# - #{exp 22140}#)) - (if (eqv? #{type 21692}# 'global) - (#{analyze-variable 4274}# - #{mod 21698}# - #{value 21693}# - (lambda (#{mod 22176}# #{var 22177}# #{public? 22178}#) + #{s 23684}# + #{exp 24127}#)) + (if (eqv? #{type 23679}# 'global) + (#{analyze-variable 6261}# + #{mod 23685}# + #{value 23680}# + (lambda (#{mod 24163}# #{var 24164}# #{public? 24165}#) (make-struct/no-tail (vector-ref %expanded-vtables 5) - #{s 21697}# - #{mod 22176}# - #{var 22177}# - #{public? 22178}#)) - (lambda (#{var 22187}#) + #{s 23684}# + #{mod 24163}# + #{var 24164}# + #{public? 24165}#)) + (lambda (#{var 24174}#) (make-struct/no-tail (vector-ref %expanded-vtables 7) - #{s 21697}# - #{var 22187}#))) - (if (eqv? #{type 21692}# 'call) - (#{expand-application 4336}# - (#{expand 4334}# - (car #{e 21694}#) - #{r 21695}# - #{w 21696}# - #{mod 21698}#) - #{e 21694}# - #{r 21695}# - #{w 21696}# - #{s 21697}# - #{mod 21698}#) - (if (eqv? #{type 21692}# 'begin-form) - (let ((#{tmp 22262}# + #{s 23684}# + #{var 24174}#))) + (if (eqv? #{type 23679}# 'call) + (#{expand-application 6323}# + (#{expand 6321}# + (car #{e 23681}#) + #{r 23682}# + #{w 23683}# + #{mod 23685}#) + #{e 23681}# + #{r 23682}# + #{w 23683}# + #{s 23684}# + #{mod 23685}#) + (if (eqv? #{type 23679}# 'begin-form) + (let ((#{tmp 24249}# ($sc-dispatch - #{e 21694}# + #{e 23681}# '(_ any . each-any)))) - (if #{tmp 22262}# + (if #{tmp 24249}# (@apply - (lambda (#{e1 22266}# #{e2 22267}#) - (#{expand-sequence 4329}# - (cons #{e1 22266}# #{e2 22267}#) - #{r 21695}# - #{w 21696}# - #{s 21697}# - #{mod 21698}#)) - #{tmp 22262}#) - (let ((#{tmp 22354}# - ($sc-dispatch #{e 21694}# '(_)))) - (if #{tmp 22354}# + (lambda (#{e1 24253}# #{e2 24254}#) + (#{expand-sequence 6316}# + (cons #{e1 24253}# #{e2 24254}#) + #{r 23682}# + #{w 23683}# + #{s 23684}# + #{mod 23685}#)) + #{tmp 24249}#) + (let ((#{tmp 24341}# + ($sc-dispatch #{e 23681}# '(_)))) + (if #{tmp 24341}# (@apply (lambda () - (begin - (issue-deprecation-warning - "Sequences of zero expressions are deprecated. Use *unspecified*.") - (make-struct/no-tail - (vector-ref %expanded-vtables 0) - #f))) - #{tmp 22354}#) + (if (include-deprecated-features) + (begin + (issue-deprecation-warning + "Sequences of zero expressions are deprecated. Use *unspecified*.") + (make-struct/no-tail + (vector-ref %expanded-vtables 0) + #f)) + (syntax-violation + #f + "sequence of zero expressions" + (#{wrap 6314}# + (begin + (if (if (pair? #{e 23681}#) + #{s 23684}# + #f) + (set-source-properties! + #{e 23681}# + #{s 23684}#)) + #{e 23681}#) + #{w 23683}# + #{mod 23685}#)))) + #{tmp 24341}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 21694}#))))) - (if (eqv? #{type 21692}# 'local-syntax-form) - (#{expand-local-syntax 4339}# - #{value 21693}# - #{e 21694}# - #{r 21695}# - #{w 21696}# - #{s 21697}# - #{mod 21698}# - #{expand-sequence 4329}#) - (if (eqv? #{type 21692}# 'eval-when-form) - (let ((#{tmp 22443}# + #{e 23681}#))))) + (if (eqv? #{type 23679}# 'local-syntax-form) + (#{expand-local-syntax 6326}# + #{value 23680}# + #{e 23681}# + #{r 23682}# + #{w 23683}# + #{s 23684}# + #{mod 23685}# + #{expand-sequence 6316}#) + (if (eqv? #{type 23679}# 'eval-when-form) + (let ((#{tmp 24452}# ($sc-dispatch - #{e 21694}# + #{e 23681}# '(_ each-any any . each-any)))) - (if #{tmp 22443}# + (if #{tmp 24452}# (@apply - (lambda (#{x 22447}# - #{e1 22448}# - #{e2 22449}#) - (let ((#{when-list 22450}# - (#{parse-when-list 4332}# - #{e 21694}# - #{x 22447}#))) - (if (memq 'eval #{when-list 22450}#) - (#{expand-sequence 4329}# - (cons #{e1 22448}# #{e2 22449}#) - #{r 21695}# - #{w 21696}# - #{s 21697}# - #{mod 21698}#) + (lambda (#{x 24456}# + #{e1 24457}# + #{e2 24458}#) + (let ((#{when-list 24459}# + (#{parse-when-list 6319}# + #{e 23681}# + #{x 24456}#))) + (if (memq 'eval #{when-list 24459}#) + (#{expand-sequence 6316}# + (cons #{e1 24457}# #{e2 24458}#) + #{r 23682}# + #{w 23683}# + #{s 23684}# + #{mod 23685}#) (make-struct/no-tail (vector-ref %expanded-vtables 0) #f)))) - #{tmp 22443}#) + #{tmp 24452}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 21694}#))) - (if (if (eqv? #{type 21692}# 'define-form) + #{e 23681}#))) + (if (if (eqv? #{type 23679}# 'define-form) #t - (eqv? #{type 21692}# 'define-syntax-form)) + (eqv? #{type 23679}# 'define-syntax-form)) (syntax-violation #f "definition in expression context" - #{e 21694}# - (#{wrap 4327}# - #{value 21693}# - #{w 21696}# - #{mod 21698}#)) - (if (eqv? #{type 21692}# 'syntax) + #{e 23681}# + (#{wrap 6314}# + #{value 23680}# + #{w 23683}# + #{mod 23685}#)) + (if (eqv? #{type 23679}# 'syntax) (syntax-violation #f "reference to pattern variable outside syntax form" - (#{wrap 4327}# + (#{wrap 6314}# (begin - (if (if (pair? #{e 21694}#) - #{s 21697}# + (if (if (pair? #{e 23681}#) + #{s 23684}# #f) (set-source-properties! - #{e 21694}# - #{s 21697}#)) - #{e 21694}#) - #{w 21696}# - #{mod 21698}#)) - (if (eqv? #{type 21692}# 'displaced-lexical) + #{e 23681}# + #{s 23684}#)) + #{e 23681}#) + #{w 23683}# + #{mod 23685}#)) + (if (eqv? #{type 23679}# 'displaced-lexical) (syntax-violation #f "reference to identifier outside its scope" - (#{wrap 4327}# + (#{wrap 6314}# (begin - (if (if (pair? #{e 21694}#) - #{s 21697}# + (if (if (pair? #{e 23681}#) + #{s 23684}# #f) (set-source-properties! - #{e 21694}# - #{s 21697}#)) - #{e 21694}#) - #{w 21696}# - #{mod 21698}#)) + #{e 23681}# + #{s 23684}#)) + #{e 23681}#) + #{w 23683}# + #{mod 23685}#)) (syntax-violation #f "unexpected syntax" - (#{wrap 4327}# + (#{wrap 6314}# (begin - (if (if (pair? #{e 21694}#) - #{s 21697}# + (if (if (pair? #{e 23681}#) + #{s 23684}# #f) (set-source-properties! - #{e 21694}# - #{s 21697}#)) - #{e 21694}#) - #{w 21696}# - #{mod 21698}#)))))))))))))))))) - (#{expand-application 4336}# - (lambda (#{x 22687}# - #{e 22688}# - #{r 22689}# - #{w 22690}# - #{s 22691}# - #{mod 22692}#) - (let ((#{tmp 22694}# - ($sc-dispatch #{e 22688}# '(any . each-any)))) - (if #{tmp 22694}# + #{e 23681}# + #{s 23684}#)) + #{e 23681}#) + #{w 23683}# + #{mod 23685}#)))))))))))))))))) + (#{expand-application 6323}# + (lambda (#{x 24696}# + #{e 24697}# + #{r 24698}# + #{w 24699}# + #{s 24700}# + #{mod 24701}#) + (let ((#{tmp 24703}# + ($sc-dispatch #{e 24697}# '(any . each-any)))) + (if #{tmp 24703}# (@apply - (lambda (#{e0 22698}# #{e1 22699}#) - (#{build-application 4269}# - #{s 22691}# - #{x 22687}# - (map (lambda (#{e 22779}#) - (#{expand 4334}# - #{e 22779}# - #{r 22689}# - #{w 22690}# - #{mod 22692}#)) - #{e1 22699}#))) - #{tmp 22694}#) + (lambda (#{e0 24707}# #{e1 24708}#) + (#{build-application 6256}# + #{s 24700}# + #{x 24696}# + (map (lambda (#{e 24788}#) + (#{expand 6321}# + #{e 24788}# + #{r 24698}# + #{w 24699}# + #{mod 24701}#)) + #{e1 24708}#))) + #{tmp 24703}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 22688}#))))) - (#{expand-macro 4337}# - (lambda (#{p 22855}# - #{e 22856}# - #{r 22857}# - #{w 22858}# - #{s 22859}# - #{rib 22860}# - #{mod 22861}#) + #{e 24697}#))))) + (#{expand-macro 6324}# + (lambda (#{p 24864}# + #{e 24865}# + #{r 24866}# + #{w 24867}# + #{s 24868}# + #{rib 24869}# + #{mod 24870}#) (letrec* - ((#{rebuild-macro-output 22862}# - (lambda (#{x 22893}# #{m 22894}#) - (if (pair? #{x 22893}#) - (let ((#{e 22898}# - (cons (#{rebuild-macro-output 22862}# - (car #{x 22893}#) - #{m 22894}#) - (#{rebuild-macro-output 22862}# - (cdr #{x 22893}#) - #{m 22894}#)))) + ((#{rebuild-macro-output 24871}# + (lambda (#{x 24902}# #{m 24903}#) + (if (pair? #{x 24902}#) + (let ((#{e 24907}# + (cons (#{rebuild-macro-output 24871}# + (car #{x 24902}#) + #{m 24903}#) + (#{rebuild-macro-output 24871}# + (cdr #{x 24902}#) + #{m 24903}#)))) (begin - (if (if (pair? #{e 22898}#) #{s 22859}# #f) - (set-source-properties! #{e 22898}# #{s 22859}#)) - #{e 22898}#)) - (if (if (vector? #{x 22893}#) - (if (= (vector-length #{x 22893}#) 4) - (eq? (vector-ref #{x 22893}# 0) 'syntax-object) + (if (if (pair? #{e 24907}#) #{s 24868}# #f) + (set-source-properties! #{e 24907}# #{s 24868}#)) + #{e 24907}#)) + (if (if (vector? #{x 24902}#) + (if (= (vector-length #{x 24902}#) 4) + (eq? (vector-ref #{x 24902}# 0) 'syntax-object) #f) #f) - (let ((#{w 22914}# (vector-ref #{x 22893}# 2))) - (let ((#{ms 22915}# (car #{w 22914}#)) - (#{s 22916}# (cdr #{w 22914}#))) - (if (if (pair? #{ms 22915}#) - (eq? (car #{ms 22915}#) #f) + (let ((#{w 24923}# (vector-ref #{x 24902}# 2))) + (let ((#{ms 24924}# (car #{w 24923}#)) + (#{s 24925}# (cdr #{w 24923}#))) + (if (if (pair? #{ms 24924}#) + (eq? (car #{ms 24924}#) #f) #f) - (let ((#{expression 22924}# (vector-ref #{x 22893}# 1)) - (#{wrap 22925}# - (cons (cdr #{ms 22915}#) - (if #{rib 22860}# - (cons #{rib 22860}# (cdr #{s 22916}#)) - (cdr #{s 22916}#)))) - (#{module 22926}# (vector-ref #{x 22893}# 3))) + (let ((#{expression 24933}# (vector-ref #{x 24902}# 1)) + (#{wrap 24934}# + (cons (cdr #{ms 24924}#) + (if #{rib 24869}# + (cons #{rib 24869}# (cdr #{s 24925}#)) + (cdr #{s 24925}#)))) + (#{module 24935}# (vector-ref #{x 24902}# 3))) (vector 'syntax-object - #{expression 22924}# - #{wrap 22925}# - #{module 22926}#)) - (let ((#{expression 22936}# - (let ((#{e 22941}# (vector-ref #{x 22893}# 1))) + #{expression 24933}# + #{wrap 24934}# + #{module 24935}#)) + (let ((#{expression 24945}# + (let ((#{e 24950}# (vector-ref #{x 24902}# 1))) (begin - (if (if (pair? #{e 22941}#) #{s 22916}# #f) + (if (if (pair? #{e 24950}#) #{s 24925}# #f) (set-source-properties! - #{e 22941}# - #{s 22916}#)) - #{e 22941}#))) - (#{wrap 22937}# - (cons (cons #{m 22894}# #{ms 22915}#) - (if #{rib 22860}# - (cons #{rib 22860}# - (cons 'shift #{s 22916}#)) - (cons 'shift #{s 22916}#)))) - (#{module 22938}# (vector-ref #{x 22893}# 3))) + #{e 24950}# + #{s 24925}#)) + #{e 24950}#))) + (#{wrap 24946}# + (cons (cons #{m 24903}# #{ms 24924}#) + (if #{rib 24869}# + (cons #{rib 24869}# + (cons 'shift #{s 24925}#)) + (cons 'shift #{s 24925}#)))) + (#{module 24947}# (vector-ref #{x 24902}# 3))) (vector 'syntax-object - #{expression 22936}# - #{wrap 22937}# - #{module 22938}#))))) - (if (vector? #{x 22893}#) - (let ((#{n 22953}# (vector-length #{x 22893}#))) - (let ((#{v 22954}# - (let ((#{e 22962}# (make-vector #{n 22953}#))) + #{expression 24945}# + #{wrap 24946}# + #{module 24947}#))))) + (if (vector? #{x 24902}#) + (let ((#{n 24962}# (vector-length #{x 24902}#))) + (let ((#{v 24963}# + (let ((#{e 24971}# (make-vector #{n 24962}#))) (begin - (if (if (pair? #{e 22962}#) #{x 22893}# #f) + (if (if (pair? #{e 24971}#) #{x 24902}# #f) (set-source-properties! - #{e 22962}# - #{x 22893}#)) - #{e 22962}#)))) + #{e 24971}# + #{x 24902}#)) + #{e 24971}#)))) (letrec* - ((#{loop 22955}# - (lambda (#{i 23007}#) - (if (= #{i 23007}# #{n 22953}#) - #{v 22954}# + ((#{loop 24964}# + (lambda (#{i 25016}#) + (if (= #{i 25016}# #{n 24962}#) + #{v 24963}# (begin (vector-set! - #{v 22954}# - #{i 23007}# - (#{rebuild-macro-output 22862}# - (vector-ref #{x 22893}# #{i 23007}#) - #{m 22894}#)) - (#{loop 22955}# (#{1+}# #{i 23007}#))))))) - (#{loop 22955}# 0)))) - (if (symbol? #{x 22893}#) + #{v 24963}# + #{i 25016}# + (#{rebuild-macro-output 24871}# + (vector-ref #{x 24902}# #{i 25016}#) + #{m 24903}#)) + (#{loop 24964}# (#{1+}# #{i 25016}#))))))) + (#{loop 24964}# 0)))) + (if (symbol? #{x 24902}#) (syntax-violation #f "encountered raw symbol in macro output" - (let ((#{s 23013}# (cdr #{w 22858}#))) - (#{wrap 4327}# + (let ((#{s 25022}# (cdr #{w 24867}#))) + (#{wrap 6314}# (begin - (if (if (pair? #{e 22856}#) #{s 23013}# #f) + (if (if (pair? #{e 24865}#) #{s 25022}# #f) (set-source-properties! - #{e 22856}# - #{s 23013}#)) - #{e 22856}#) - #{w 22858}# - #{mod 22861}#)) - #{x 22893}#) + #{e 24865}# + #{s 25022}#)) + #{e 24865}#) + #{w 24867}# + #{mod 24870}#)) + #{x 24902}#) (begin - (if (if (pair? #{x 22893}#) #{s 22859}# #f) - (set-source-properties! #{x 22893}# #{s 22859}#)) - #{x 22893}#)))))))) - (#{rebuild-macro-output 22862}# - (#{p 22855}# - (let ((#{w 22869}# - (cons (cons #f (car #{w 22858}#)) - (cons 'shift (cdr #{w 22858}#))))) - (#{wrap 4327}# + (if (if (pair? #{x 24902}#) #{s 24868}# #f) + (set-source-properties! #{x 24902}# #{s 24868}#)) + #{x 24902}#)))))))) + (#{rebuild-macro-output 24871}# + (#{p 24864}# + (let ((#{w 24878}# + (cons (cons #f (car #{w 24867}#)) + (cons 'shift (cdr #{w 24867}#))))) + (#{wrap 6314}# (begin - (if (if (pair? #{e 22856}#) #{s 22859}# #f) - (set-source-properties! #{e 22856}# #{s 22859}#)) - #{e 22856}#) - #{w 22869}# - #{mod 22861}#))) + (if (if (pair? #{e 24865}#) #{s 24868}# #f) + (set-source-properties! #{e 24865}# #{s 24868}#)) + #{e 24865}#) + #{w 24878}# + #{mod 24870}#))) (gensym "m"))))) - (#{expand-body 4338}# - (lambda (#{body 23045}# - #{outer-form 23046}# - #{r 23047}# - #{w 23048}# - #{mod 23049}#) - (let ((#{r 23050}# - (cons '("placeholder" placeholder) #{r 23047}#))) - (let ((#{ribcage 23051}# (vector 'ribcage '() '() '()))) - (let ((#{w 23052}# - (cons (car #{w 23048}#) - (cons #{ribcage 23051}# (cdr #{w 23048}#))))) + (#{expand-body 6325}# + (lambda (#{body 25054}# + #{outer-form 25055}# + #{r 25056}# + #{w 25057}# + #{mod 25058}#) + (let ((#{r 25059}# + (cons '("placeholder" placeholder) #{r 25056}#))) + (let ((#{ribcage 25060}# (vector 'ribcage '() '() '()))) + (let ((#{w 25061}# + (cons (car #{w 25057}#) + (cons #{ribcage 25060}# (cdr #{w 25057}#))))) (letrec* - ((#{parse 23053}# - (lambda (#{body 23066}# - #{ids 23067}# - #{labels 23068}# - #{var-ids 23069}# - #{vars 23070}# - #{vals 23071}# - #{bindings 23072}#) - (if (null? #{body 23066}#) + ((#{parse 25062}# + (lambda (#{body 25075}# + #{ids 25076}# + #{labels 25077}# + #{var-ids 25078}# + #{vars 25079}# + #{vals 25080}# + #{bindings 25081}#) + (if (null? #{body 25075}#) (syntax-violation #f "no expressions in body" - #{outer-form 23046}#) - (let ((#{e 23073}# (cdr (car #{body 23066}#))) - (#{er 23074}# (car (car #{body 23066}#)))) + #{outer-form 25055}#) + (let ((#{e 25082}# (cdr (car #{body 25075}#))) + (#{er 25083}# (car (car #{body 25075}#)))) (call-with-values (lambda () - (#{syntax-type 4333}# - #{e 23073}# - #{er 23074}# + (#{syntax-type 6320}# + #{e 25082}# + #{er 25083}# '(()) - (#{source-annotation 4295}# #{er 23074}#) - #{ribcage 23051}# - #{mod 23049}# + (#{source-annotation 6282}# #{er 25083}#) + #{ribcage 25060}# + #{mod 25058}# #f)) - (lambda (#{type 23231}# - #{value 23232}# - #{e 23233}# - #{w 23234}# - #{s 23235}# - #{mod 23236}#) - (if (eqv? #{type 23231}# 'define-form) - (let ((#{id 23240}# - (#{wrap 4327}# - #{value 23232}# - #{w 23234}# - #{mod 23236}#)) - (#{label 23241}# + (lambda (#{type 25240}# + #{value 25241}# + #{e 25242}# + #{w 25243}# + #{s 25244}# + #{mod 25245}#) + (if (eqv? #{type 25240}# 'define-form) + (let ((#{id 25249}# + (#{wrap 6314}# + #{value 25241}# + #{w 25243}# + #{mod 25245}#)) + (#{label 25250}# (symbol->string (gensym "i")))) - (let ((#{var 23242}# - (let ((#{id 23302}# - (if (if (vector? #{id 23240}#) + (let ((#{var 25251}# + (let ((#{id 25311}# + (if (if (vector? #{id 25249}#) (if (= (vector-length - #{id 23240}#) + #{id 25249}#) 4) (eq? (vector-ref - #{id 23240}# + #{id 25249}# 0) 'syntax-object) #f) #f) - (vector-ref #{id 23240}# 1) - #{id 23240}#))) + (vector-ref #{id 25249}# 1) + #{id 25249}#))) (gensym (string-append - (symbol->string #{id 23302}#) + (symbol->string #{id 25311}#) " "))))) (begin - (let ((#{update 23292}# - (cons (vector-ref #{id 23240}# 1) + (let ((#{update 25301}# + (cons (vector-ref #{id 25249}# 1) (vector-ref - #{ribcage 23051}# + #{ribcage 25060}# 1)))) (vector-set! - #{ribcage 23051}# + #{ribcage 25060}# 1 - #{update 23292}#)) - (let ((#{update 23294}# + #{update 25301}#)) + (let ((#{update 25303}# (cons (car (vector-ref - #{id 23240}# + #{id 25249}# 2)) (vector-ref - #{ribcage 23051}# + #{ribcage 25060}# 2)))) (vector-set! - #{ribcage 23051}# + #{ribcage 25060}# 2 - #{update 23294}#)) - (let ((#{update 23296}# - (cons #{label 23241}# + #{update 25303}#)) + (let ((#{update 25305}# + (cons #{label 25250}# (vector-ref - #{ribcage 23051}# + #{ribcage 25060}# 3)))) (vector-set! - #{ribcage 23051}# + #{ribcage 25060}# 3 - #{update 23296}#)) - (#{parse 23053}# - (cdr #{body 23066}#) - (cons #{id 23240}# #{ids 23067}#) - (cons #{label 23241}# #{labels 23068}#) - (cons #{id 23240}# #{var-ids 23069}#) - (cons #{var 23242}# #{vars 23070}#) - (cons (cons #{er 23074}# - (#{wrap 4327}# - #{e 23233}# - #{w 23234}# - #{mod 23236}#)) - #{vals 23071}#) - (cons (cons 'lexical #{var 23242}#) - #{bindings 23072}#))))) - (if (eqv? #{type 23231}# 'define-syntax-form) - (let ((#{id 23330}# - (#{wrap 4327}# - #{value 23232}# - #{w 23234}# - #{mod 23236}#)) - (#{label 23331}# + #{update 25305}#)) + (#{parse 25062}# + (cdr #{body 25075}#) + (cons #{id 25249}# #{ids 25076}#) + (cons #{label 25250}# #{labels 25077}#) + (cons #{id 25249}# #{var-ids 25078}#) + (cons #{var 25251}# #{vars 25079}#) + (cons (cons #{er 25083}# + (#{wrap 6314}# + #{e 25242}# + #{w 25243}# + #{mod 25245}#)) + #{vals 25080}#) + (cons (cons 'lexical #{var 25251}#) + #{bindings 25081}#))))) + (if (eqv? #{type 25240}# 'define-syntax-form) + (let ((#{id 25339}# + (#{wrap 6314}# + #{value 25241}# + #{w 25243}# + #{mod 25245}#)) + (#{label 25340}# (symbol->string (gensym "i")))) (begin - (let ((#{update 23381}# - (cons (vector-ref #{id 23330}# 1) + (let ((#{update 25390}# + (cons (vector-ref #{id 25339}# 1) (vector-ref - #{ribcage 23051}# + #{ribcage 25060}# 1)))) (vector-set! - #{ribcage 23051}# + #{ribcage 25060}# 1 - #{update 23381}#)) - (let ((#{update 23383}# + #{update 25390}#)) + (let ((#{update 25392}# (cons (car (vector-ref - #{id 23330}# + #{id 25339}# 2)) (vector-ref - #{ribcage 23051}# + #{ribcage 25060}# 2)))) (vector-set! - #{ribcage 23051}# + #{ribcage 25060}# 2 - #{update 23383}#)) - (let ((#{update 23385}# - (cons #{label 23331}# + #{update 25392}#)) + (let ((#{update 25394}# + (cons #{label 25340}# (vector-ref - #{ribcage 23051}# + #{ribcage 25060}# 3)))) (vector-set! - #{ribcage 23051}# + #{ribcage 25060}# 3 - #{update 23385}#)) - (#{parse 23053}# - (cdr #{body 23066}#) - (cons #{id 23330}# #{ids 23067}#) - (cons #{label 23331}# #{labels 23068}#) - #{var-ids 23069}# - #{vars 23070}# - #{vals 23071}# + #{update 25394}#)) + (#{parse 25062}# + (cdr #{body 25075}#) + (cons #{id 25339}# #{ids 25076}#) + (cons #{label 25340}# #{labels 25077}#) + #{var-ids 25078}# + #{vars 25079}# + #{vals 25080}# (cons (cons 'macro - (cons #{er 23074}# - (#{wrap 4327}# - #{e 23233}# - #{w 23234}# - #{mod 23236}#))) - #{bindings 23072}#)))) - (if (eqv? #{type 23231}# 'begin-form) - (let ((#{tmp 23393}# + (cons #{er 25083}# + (#{wrap 6314}# + #{e 25242}# + #{w 25243}# + #{mod 25245}#))) + #{bindings 25081}#)))) + (if (eqv? #{type 25240}# 'begin-form) + (let ((#{tmp 25402}# ($sc-dispatch - #{e 23233}# + #{e 25242}# '(_ . each-any)))) - (if #{tmp 23393}# + (if #{tmp 25402}# (@apply - (lambda (#{e1 23397}#) - (#{parse 23053}# + (lambda (#{e1 25406}#) + (#{parse 25062}# (letrec* - ((#{f 23398}# - (lambda (#{forms 23461}#) - (if (null? #{forms 23461}#) - (cdr #{body 23066}#) - (cons (cons #{er 23074}# - (#{wrap 4327}# - (car #{forms 23461}#) - #{w 23234}# - #{mod 23236}#)) - (#{f 23398}# - (cdr #{forms 23461}#))))))) - (#{f 23398}# #{e1 23397}#)) - #{ids 23067}# - #{labels 23068}# - #{var-ids 23069}# - #{vars 23070}# - #{vals 23071}# - #{bindings 23072}#)) - #{tmp 23393}#) + ((#{f 25407}# + (lambda (#{forms 25470}#) + (if (null? #{forms 25470}#) + (cdr #{body 25075}#) + (cons (cons #{er 25083}# + (#{wrap 6314}# + (car #{forms 25470}#) + #{w 25243}# + #{mod 25245}#)) + (#{f 25407}# + (cdr #{forms 25470}#))))))) + (#{f 25407}# #{e1 25406}#)) + #{ids 25076}# + #{labels 25077}# + #{var-ids 25078}# + #{vars 25079}# + #{vals 25080}# + #{bindings 25081}#)) + #{tmp 25402}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 23233}#))) - (if (eqv? #{type 23231}# 'local-syntax-form) - (#{expand-local-syntax 4339}# - #{value 23232}# - #{e 23233}# - #{er 23074}# - #{w 23234}# - #{s 23235}# - #{mod 23236}# - (lambda (#{forms 23475}# - #{er 23476}# - #{w 23477}# - #{s 23478}# - #{mod 23479}#) - (#{parse 23053}# + #{e 25242}#))) + (if (eqv? #{type 25240}# 'local-syntax-form) + (#{expand-local-syntax 6326}# + #{value 25241}# + #{e 25242}# + #{er 25083}# + #{w 25243}# + #{s 25244}# + #{mod 25245}# + (lambda (#{forms 25484}# + #{er 25485}# + #{w 25486}# + #{s 25487}# + #{mod 25488}#) + (#{parse 25062}# (letrec* - ((#{f 23480}# - (lambda (#{forms 23543}#) - (if (null? #{forms 23543}#) - (cdr #{body 23066}#) - (cons (cons #{er 23476}# - (#{wrap 4327}# - (car #{forms 23543}#) - #{w 23477}# - #{mod 23479}#)) - (#{f 23480}# - (cdr #{forms 23543}#))))))) - (#{f 23480}# #{forms 23475}#)) - #{ids 23067}# - #{labels 23068}# - #{var-ids 23069}# - #{vars 23070}# - #{vals 23071}# - #{bindings 23072}#))) - (if (null? #{ids 23067}#) - (#{build-sequence 4283}# + ((#{f 25489}# + (lambda (#{forms 25552}#) + (if (null? #{forms 25552}#) + (cdr #{body 25075}#) + (cons (cons #{er 25485}# + (#{wrap 6314}# + (car #{forms 25552}#) + #{w 25486}# + #{mod 25488}#)) + (#{f 25489}# + (cdr #{forms 25552}#))))))) + (#{f 25489}# #{forms 25484}#)) + #{ids 25076}# + #{labels 25077}# + #{var-ids 25078}# + #{vars 25079}# + #{vals 25080}# + #{bindings 25081}#))) + (if (null? #{ids 25076}#) + (#{build-sequence 6270}# #f - (map (lambda (#{x 23608}#) - (let ((#{e 23612}# - (cdr #{x 23608}#)) - (#{r 23613}# - (car #{x 23608}#))) + (map (lambda (#{x 25617}#) + (let ((#{e 25621}# + (cdr #{x 25617}#)) + (#{r 25622}# + (car #{x 25617}#))) (call-with-values (lambda () - (#{syntax-type 4333}# - #{e 23612}# - #{r 23613}# + (#{syntax-type 6320}# + #{e 25621}# + #{r 25622}# '(()) - (#{source-annotation 4295}# - #{e 23612}#) + (#{source-annotation 6282}# + #{e 25621}#) #f - #{mod 23236}# + #{mod 25245}# #f)) - (lambda (#{type 23617}# - #{value 23618}# - #{e 23619}# - #{w 23620}# - #{s 23621}# - #{mod 23622}#) - (#{expand-expr 4335}# - #{type 23617}# - #{value 23618}# - #{e 23619}# - #{r 23613}# - #{w 23620}# - #{s 23621}# - #{mod 23622}#))))) - (cons (cons #{er 23074}# - (#{wrap 4327}# + (lambda (#{type 25626}# + #{value 25627}# + #{e 25628}# + #{w 25629}# + #{s 25630}# + #{mod 25631}#) + (#{expand-expr 6322}# + #{type 25626}# + #{value 25627}# + #{e 25628}# + #{r 25622}# + #{w 25629}# + #{s 25630}# + #{mod 25631}#))))) + (cons (cons #{er 25083}# + (#{wrap 6314}# (begin - (if (if (pair? #{e 23233}#) - #{s 23235}# + (if (if (pair? #{e 25242}#) + #{s 25244}# #f) (set-source-properties! - #{e 23233}# - #{s 23235}#)) - #{e 23233}#) - #{w 23234}# - #{mod 23236}#)) - (cdr #{body 23066}#)))) + #{e 25242}# + #{s 25244}#)) + #{e 25242}#) + #{w 25243}# + #{mod 25245}#)) + (cdr #{body 25075}#)))) (begin - (if (not (#{valid-bound-ids? 4324}# - #{ids 23067}#)) + (if (not (#{valid-bound-ids? 6311}# + #{ids 25076}#)) (syntax-violation #f "invalid or duplicate identifier in definition" - #{outer-form 23046}#)) + #{outer-form 25055}#)) (letrec* - ((#{loop 23723}# - (lambda (#{bs 23726}# - #{er-cache 23727}# - #{r-cache 23728}#) - (if (not (null? #{bs 23726}#)) - (let ((#{b 23729}# - (car #{bs 23726}#))) - (if (eq? (car #{b 23729}#) + ((#{loop 25732}# + (lambda (#{bs 25735}# + #{er-cache 25736}# + #{r-cache 25737}#) + (if (not (null? #{bs 25735}#)) + (let ((#{b 25738}# + (car #{bs 25735}#))) + (if (eq? (car #{b 25738}#) 'macro) - (let ((#{er 23731}# - (car (cdr #{b 23729}#)))) - (let ((#{r-cache 23732}# - (if (eq? #{er 23731}# - #{er-cache 23727}#) - #{r-cache 23728}# - (#{macros-only-env 4298}# - #{er 23731}#)))) + (let ((#{er 25740}# + (car (cdr #{b 25738}#)))) + (let ((#{r-cache 25741}# + (if (eq? #{er 25740}# + #{er-cache 25736}#) + #{r-cache 25737}# + (#{macros-only-env 6285}# + #{er 25740}#)))) (begin (set-cdr! - #{b 23729}# - (#{eval-local-transformer 4340}# - (#{expand 4334}# - (cdr (cdr #{b 23729}#)) - #{r-cache 23732}# + #{b 25738}# + (#{eval-local-transformer 6327}# + (#{expand 6321}# + (cdr (cdr #{b 25738}#)) + #{r-cache 25741}# '(()) - #{mod 23236}#) - #{mod 23236}#)) - (#{loop 23723}# - (cdr #{bs 23726}#) - #{er 23731}# - #{r-cache 23732}#)))) - (#{loop 23723}# - (cdr #{bs 23726}#) - #{er-cache 23727}# - #{r-cache 23728}#))))))) - (#{loop 23723}# - #{bindings 23072}# + #{mod 25245}#) + #{mod 25245}#)) + (#{loop 25732}# + (cdr #{bs 25735}#) + #{er 25740}# + #{r-cache 25741}#)))) + (#{loop 25732}# + (cdr #{bs 25735}#) + #{er-cache 25736}# + #{r-cache 25737}#))))))) + (#{loop 25732}# + #{bindings 25081}# #f #f)) (set-cdr! - #{r 23050}# - (#{extend-env 4296}# - #{labels 23068}# - #{bindings 23072}# - (cdr #{r 23050}#))) - (#{build-letrec 4286}# + #{r 25059}# + (#{extend-env 6283}# + #{labels 25077}# + #{bindings 25081}# + (cdr #{r 25059}#))) + (#{build-letrec 6273}# #f #t (reverse (map syntax->datum - #{var-ids 23069}#)) - (reverse #{vars 23070}#) - (map (lambda (#{x 24075}#) - (let ((#{e 24079}# - (cdr #{x 24075}#)) - (#{r 24080}# - (car #{x 24075}#))) + #{var-ids 25078}#)) + (reverse #{vars 25079}#) + (map (lambda (#{x 26084}#) + (let ((#{e 26088}# + (cdr #{x 26084}#)) + (#{r 26089}# + (car #{x 26084}#))) (call-with-values (lambda () - (#{syntax-type 4333}# - #{e 24079}# - #{r 24080}# + (#{syntax-type 6320}# + #{e 26088}# + #{r 26089}# '(()) - (#{source-annotation 4295}# - #{e 24079}#) + (#{source-annotation 6282}# + #{e 26088}#) #f - #{mod 23236}# + #{mod 25245}# #f)) - (lambda (#{type 24084}# - #{value 24085}# - #{e 24086}# - #{w 24087}# - #{s 24088}# - #{mod 24089}#) - (#{expand-expr 4335}# - #{type 24084}# - #{value 24085}# - #{e 24086}# - #{r 24080}# - #{w 24087}# - #{s 24088}# - #{mod 24089}#))))) - (reverse #{vals 23071}#)) - (let ((#{exps 24095}# - (map (lambda (#{x 24096}#) - (let ((#{e 24099}# - (cdr #{x 24096}#)) - (#{r 24100}# - (car #{x 24096}#))) + (lambda (#{type 26093}# + #{value 26094}# + #{e 26095}# + #{w 26096}# + #{s 26097}# + #{mod 26098}#) + (#{expand-expr 6322}# + #{type 26093}# + #{value 26094}# + #{e 26095}# + #{r 26089}# + #{w 26096}# + #{s 26097}# + #{mod 26098}#))))) + (reverse #{vals 25080}#)) + (let ((#{exps 26104}# + (map (lambda (#{x 26105}#) + (let ((#{e 26108}# + (cdr #{x 26105}#)) + (#{r 26109}# + (car #{x 26105}#))) (call-with-values (lambda () - (#{syntax-type 4333}# - #{e 24099}# - #{r 24100}# + (#{syntax-type 6320}# + #{e 26108}# + #{r 26109}# '(()) - (#{source-annotation 4295}# - #{e 24099}#) + (#{source-annotation 6282}# + #{e 26108}#) #f - #{mod 23236}# + #{mod 25245}# #f)) - (lambda (#{type 24104}# - #{value 24105}# - #{e 24106}# - #{w 24107}# - #{s 24108}# - #{mod 24109}#) - (#{expand-expr 4335}# - #{type 24104}# - #{value 24105}# - #{e 24106}# - #{r 24100}# - #{w 24107}# - #{s 24108}# - #{mod 24109}#))))) - (cons (cons #{er 23074}# - (#{wrap 4327}# + (lambda (#{type 26113}# + #{value 26114}# + #{e 26115}# + #{w 26116}# + #{s 26117}# + #{mod 26118}#) + (#{expand-expr 6322}# + #{type 26113}# + #{value 26114}# + #{e 26115}# + #{r 26109}# + #{w 26116}# + #{s 26117}# + #{mod 26118}#))))) + (cons (cons #{er 25083}# + (#{wrap 6314}# (begin - (if (if (pair? #{e 23233}#) - #{s 23235}# + (if (if (pair? #{e 25242}#) + #{s 25244}# #f) (set-source-properties! - #{e 23233}# - #{s 23235}#)) - #{e 23233}#) - #{w 23234}# - #{mod 23236}#)) - (cdr #{body 23066}#))))) - (if (null? (cdr #{exps 24095}#)) - (car #{exps 24095}#) + #{e 25242}# + #{s 25244}#)) + #{e 25242}#) + #{w 25243}# + #{mod 25245}#)) + (cdr #{body 25075}#))))) + (if (null? (cdr #{exps 26104}#)) + (car #{exps 26104}#) (make-struct/no-tail (vector-ref %expanded-vtables 12) #f - #{exps 24095}#))))))))))))))))) - (#{parse 23053}# - (map (lambda (#{x 23056}#) - (cons #{r 23050}# - (#{wrap 4327}# - #{x 23056}# - #{w 23052}# - #{mod 23049}#))) - #{body 23045}#) + #{exps 26104}#))))))))))))))))) + (#{parse 25062}# + (map (lambda (#{x 25065}#) + (cons #{r 25059}# + (#{wrap 6314}# + #{x 25065}# + #{w 25061}# + #{mod 25058}#))) + #{body 25054}#) '() '() '() '() '() '()))))))) - (#{expand-local-syntax 4339}# - (lambda (#{rec? 24135}# - #{e 24136}# - #{r 24137}# - #{w 24138}# - #{s 24139}# - #{mod 24140}# - #{k 24141}#) - (let ((#{tmp 24143}# + (#{expand-local-syntax 6326}# + (lambda (#{rec? 26144}# + #{e 26145}# + #{r 26146}# + #{w 26147}# + #{s 26148}# + #{mod 26149}# + #{k 26150}#) + (let ((#{tmp 26152}# ($sc-dispatch - #{e 24136}# + #{e 26145}# '(_ #(each (any any)) any . each-any)))) - (if #{tmp 24143}# + (if #{tmp 26152}# (@apply - (lambda (#{id 24147}# - #{val 24148}# - #{e1 24149}# - #{e2 24150}#) - (if (not (#{valid-bound-ids? 4324}# #{id 24147}#)) + (lambda (#{id 26156}# + #{val 26157}# + #{e1 26158}# + #{e2 26159}#) + (if (not (#{valid-bound-ids? 6311}# #{id 26156}#)) (syntax-violation #f "duplicate bound keyword" - #{e 24136}#) - (let ((#{labels 24240}# - (#{gen-labels 4305}# #{id 24147}#))) - (let ((#{new-w 24241}# - (#{make-binding-wrap 4316}# - #{id 24147}# - #{labels 24240}# - #{w 24138}#))) - (#{k 24141}# - (cons #{e1 24149}# #{e2 24150}#) - (#{extend-env 4296}# - #{labels 24240}# - (let ((#{trans-r 24279}# - (#{macros-only-env 4298}# #{r 24137}#))) + #{e 26145}#) + (let ((#{labels 26249}# + (#{gen-labels 6292}# #{id 26156}#))) + (let ((#{new-w 26250}# + (#{make-binding-wrap 6303}# + #{id 26156}# + #{labels 26249}# + #{w 26147}#))) + (#{k 26150}# + (cons #{e1 26158}# #{e2 26159}#) + (#{extend-env 6283}# + #{labels 26249}# + (let ((#{trans-r 26288}# + (#{macros-only-env 6285}# #{r 26146}#))) (begin - (if #{rec? 24135}# #{new-w 24241}# #{w 24138}#) - (map (lambda (#{x 24280}#) + (if #{rec? 26144}# #{new-w 26250}# #{w 26147}#) + (map (lambda (#{x 26289}#) (cons 'macro - (#{eval-local-transformer 4340}# - (#{expand 4334}# - #{x 24280}# - #{trans-r 24279}# + (#{eval-local-transformer 6327}# + (#{expand 6321}# + #{x 26289}# + #{trans-r 26288}# (values - (if #{rec? 24135}# - #{new-w 24241}# - #{w 24138}#)) - #{mod 24140}#) - #{mod 24140}#))) - #{val 24148}#))) - #{r 24137}#) - #{new-w 24241}# - #{s 24139}# - #{mod 24140}#))))) - #{tmp 24143}#) + (if #{rec? 26144}# + #{new-w 26250}# + #{w 26147}#)) + #{mod 26149}#) + #{mod 26149}#))) + #{val 26157}#))) + #{r 26146}#) + #{new-w 26250}# + #{s 26148}# + #{mod 26149}#))))) + #{tmp 26152}#) (syntax-violation #f "bad local syntax definition" - (#{wrap 4327}# + (#{wrap 6314}# (begin - (if (if (pair? #{e 24136}#) #{s 24139}# #f) - (set-source-properties! #{e 24136}# #{s 24139}#)) - #{e 24136}#) - #{w 24138}# - #{mod 24140}#)))))) - (#{eval-local-transformer 4340}# - (lambda (#{expanded 24576}# #{mod 24577}#) - (let ((#{p 24578}# (primitive-eval #{expanded 24576}#))) - (if (procedure? #{p 24578}#) - #{p 24578}# + (if (if (pair? #{e 26145}#) #{s 26148}# #f) + (set-source-properties! #{e 26145}# #{s 26148}#)) + #{e 26145}#) + #{w 26147}# + #{mod 26149}#)))))) + (#{eval-local-transformer 6327}# + (lambda (#{expanded 26585}# #{mod 26586}#) + (let ((#{p 26587}# (primitive-eval #{expanded 26585}#))) + (if (procedure? #{p 26587}#) + #{p 26587}# (syntax-violation #f "nonprocedure transformer" - #{p 24578}#))))) - (#{ellipsis? 4342}# - (lambda (#{x 5143}#) - (if (if (if (vector? #{x 5143}#) - (if (= (vector-length #{x 5143}#) 4) - (eq? (vector-ref #{x 5143}# 0) 'syntax-object) + #{p 26587}#))))) + (#{ellipsis? 6329}# + (lambda (#{x 7130}#) + (if (if (if (vector? #{x 7130}#) + (if (= (vector-length #{x 7130}#) 4) + (eq? (vector-ref #{x 7130}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{x 5143}# 1)) + (symbol? (vector-ref #{x 7130}# 1)) #f) - (if (eq? (if (if (vector? #{x 5143}#) - (if (= (vector-length #{x 5143}#) 4) - (eq? (vector-ref #{x 5143}# 0) 'syntax-object) + (if (eq? (if (if (vector? #{x 7130}#) + (if (= (vector-length #{x 7130}#) 4) + (eq? (vector-ref #{x 7130}# 0) 'syntax-object) #f) #f) - (vector-ref #{x 5143}# 1) - #{x 5143}#) + (vector-ref #{x 7130}# 1) + #{x 7130}#) (if (if (= (vector-length '#(syntax-object ... ((top) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i2219")) + #(ribcage #(x) #((top)) #("i4206")) #(ribcage (lambda-var-list gen-var @@ -4965,148 +4980,148 @@ (top) (top) (top)) - ("i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i398" - "i396" - "i393" - "i392" - "i391" - "i389" - "i388" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i369" - "i367" - "i366" - "i364" - "i362" - "i360" - "i358" - "i357" - "i356" - "i355" - "i353" - "i352" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i336" - "i335" - "i333" - "i331" - "i330" - "i327" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i260" - "i257" - "i255" - "i254" - "i253" - "i252" - "i251" - "i249" - "i247" - "i245" - "i242" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208")) + ("i2454" + "i2452" + "i2450" + "i2448" + "i2446" + "i2444" + "i2442" + "i2440" + "i2438" + "i2436" + "i2434" + "i2432" + "i2430" + "i2428" + "i2426" + "i2424" + "i2422" + "i2420" + "i2418" + "i2416" + "i2414" + "i2412" + "i2410" + "i2408" + "i2406" + "i2404" + "i2402" + "i2400" + "i2398" + "i2396" + "i2394" + "i2392" + "i2390" + "i2388" + "i2386" + "i2385" + "i2383" + "i2380" + "i2379" + "i2378" + "i2376" + "i2375" + "i2373" + "i2371" + "i2369" + "i2367" + "i2365" + "i2363" + "i2361" + "i2359" + "i2356" + "i2354" + "i2353" + "i2351" + "i2349" + "i2347" + "i2345" + "i2344" + "i2343" + "i2342" + "i2340" + "i2339" + "i2336" + "i2334" + "i2332" + "i2330" + "i2328" + "i2326" + "i2324" + "i2323" + "i2322" + "i2320" + "i2318" + "i2317" + "i2314" + "i2313" + "i2311" + "i2309" + "i2307" + "i2305" + "i2303" + "i2301" + "i2299" + "i2297" + "i2295" + "i2292" + "i2290" + "i2288" + "i2286" + "i2284" + "i2282" + "i2280" + "i2278" + "i2276" + "i2274" + "i2272" + "i2270" + "i2268" + "i2266" + "i2264" + "i2262" + "i2260" + "i2258" + "i2256" + "i2254" + "i2252" + "i2250" + "i2248" + "i2247" + "i2244" + "i2242" + "i2241" + "i2240" + "i2239" + "i2238" + "i2236" + "i2234" + "i2232" + "i2229" + "i2227" + "i2225" + "i2223" + "i2221" + "i2219" + "i2217" + "i2215" + "i2213" + "i2211" + "i2209" + "i2207" + "i2205" + "i2203" + "i2201" + "i2199" + "i2197" + "i2195")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i46" "i45" "i44"))) + ("i2033" "i2032" "i2031"))) (hygiene guile))) 4) #t @@ -5117,7 +5132,7 @@ ((top) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i2219")) + #(ribcage #(x) #((top)) #("i4206")) #(ribcage (lambda-var-list gen-var @@ -5391,157 +5406,157 @@ (top) (top) (top)) - ("i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i398" - "i396" - "i393" - "i392" - "i391" - "i389" - "i388" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i369" - "i367" - "i366" - "i364" - "i362" - "i360" - "i358" - "i357" - "i356" - "i355" - "i353" - "i352" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i336" - "i335" - "i333" - "i331" - "i330" - "i327" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i260" - "i257" - "i255" - "i254" - "i253" - "i252" - "i251" - "i249" - "i247" - "i245" - "i242" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208")) + ("i2454" + "i2452" + "i2450" + "i2448" + "i2446" + "i2444" + "i2442" + "i2440" + "i2438" + "i2436" + "i2434" + "i2432" + "i2430" + "i2428" + "i2426" + "i2424" + "i2422" + "i2420" + "i2418" + "i2416" + "i2414" + "i2412" + "i2410" + "i2408" + "i2406" + "i2404" + "i2402" + "i2400" + "i2398" + "i2396" + "i2394" + "i2392" + "i2390" + "i2388" + "i2386" + "i2385" + "i2383" + "i2380" + "i2379" + "i2378" + "i2376" + "i2375" + "i2373" + "i2371" + "i2369" + "i2367" + "i2365" + "i2363" + "i2361" + "i2359" + "i2356" + "i2354" + "i2353" + "i2351" + "i2349" + "i2347" + "i2345" + "i2344" + "i2343" + "i2342" + "i2340" + "i2339" + "i2336" + "i2334" + "i2332" + "i2330" + "i2328" + "i2326" + "i2324" + "i2323" + "i2322" + "i2320" + "i2318" + "i2317" + "i2314" + "i2313" + "i2311" + "i2309" + "i2307" + "i2305" + "i2303" + "i2301" + "i2299" + "i2297" + "i2295" + "i2292" + "i2290" + "i2288" + "i2286" + "i2284" + "i2282" + "i2280" + "i2278" + "i2276" + "i2274" + "i2272" + "i2270" + "i2268" + "i2266" + "i2264" + "i2262" + "i2260" + "i2258" + "i2256" + "i2254" + "i2252" + "i2250" + "i2248" + "i2247" + "i2244" + "i2242" + "i2241" + "i2240" + "i2239" + "i2238" + "i2236" + "i2234" + "i2232" + "i2229" + "i2227" + "i2225" + "i2223" + "i2221" + "i2219" + "i2217" + "i2215" + "i2213" + "i2211" + "i2209" + "i2207" + "i2205" + "i2203" + "i2201" + "i2199" + "i2197" + "i2195")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i46" "i45" "i44"))) + ("i2033" "i2032" "i2031"))) (hygiene guile)))) - (eq? (#{id-var-name 4321}# #{x 5143}# '(())) - (#{id-var-name 4321}# + (eq? (#{id-var-name 6308}# #{x 7130}# '(())) + (#{id-var-name 6308}# '#(syntax-object ... ((top) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i2219")) + #(ribcage #(x) #((top)) #("i4206")) #(ribcage (lambda-var-list gen-var @@ -5815,446 +5830,446 @@ (top) (top) (top)) - ("i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i398" - "i396" - "i393" - "i392" - "i391" - "i389" - "i388" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i369" - "i367" - "i366" - "i364" - "i362" - "i360" - "i358" - "i357" - "i356" - "i355" - "i353" - "i352" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i336" - "i335" - "i333" - "i331" - "i330" - "i327" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i260" - "i257" - "i255" - "i254" - "i253" - "i252" - "i251" - "i249" - "i247" - "i245" - "i242" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208")) + ("i2454" + "i2452" + "i2450" + "i2448" + "i2446" + "i2444" + "i2442" + "i2440" + "i2438" + "i2436" + "i2434" + "i2432" + "i2430" + "i2428" + "i2426" + "i2424" + "i2422" + "i2420" + "i2418" + "i2416" + "i2414" + "i2412" + "i2410" + "i2408" + "i2406" + "i2404" + "i2402" + "i2400" + "i2398" + "i2396" + "i2394" + "i2392" + "i2390" + "i2388" + "i2386" + "i2385" + "i2383" + "i2380" + "i2379" + "i2378" + "i2376" + "i2375" + "i2373" + "i2371" + "i2369" + "i2367" + "i2365" + "i2363" + "i2361" + "i2359" + "i2356" + "i2354" + "i2353" + "i2351" + "i2349" + "i2347" + "i2345" + "i2344" + "i2343" + "i2342" + "i2340" + "i2339" + "i2336" + "i2334" + "i2332" + "i2330" + "i2328" + "i2326" + "i2324" + "i2323" + "i2322" + "i2320" + "i2318" + "i2317" + "i2314" + "i2313" + "i2311" + "i2309" + "i2307" + "i2305" + "i2303" + "i2301" + "i2299" + "i2297" + "i2295" + "i2292" + "i2290" + "i2288" + "i2286" + "i2284" + "i2282" + "i2280" + "i2278" + "i2276" + "i2274" + "i2272" + "i2270" + "i2268" + "i2266" + "i2264" + "i2262" + "i2260" + "i2258" + "i2256" + "i2254" + "i2252" + "i2250" + "i2248" + "i2247" + "i2244" + "i2242" + "i2241" + "i2240" + "i2239" + "i2238" + "i2236" + "i2234" + "i2232" + "i2229" + "i2227" + "i2225" + "i2223" + "i2221" + "i2219" + "i2217" + "i2215" + "i2213" + "i2211" + "i2209" + "i2207" + "i2205" + "i2203" + "i2201" + "i2199" + "i2197" + "i2195")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i46" "i45" "i44"))) + ("i2033" "i2032" "i2031"))) (hygiene guile)) '(()))) #f) #f))) - (#{lambda-formals 4343}# - (lambda (#{orig-args 24583}#) + (#{lambda-formals 6330}# + (lambda (#{orig-args 26592}#) (letrec* - ((#{req 24584}# - (lambda (#{args 24588}# #{rreq 24589}#) - (let ((#{tmp 24591}# ($sc-dispatch #{args 24588}# '()))) - (if #{tmp 24591}# + ((#{req 26593}# + (lambda (#{args 26597}# #{rreq 26598}#) + (let ((#{tmp 26600}# ($sc-dispatch #{args 26597}# '()))) + (if #{tmp 26600}# (@apply (lambda () - (#{check 24585}# (reverse #{rreq 24589}#) #f)) - #{tmp 24591}#) - (let ((#{tmp 24714}# - ($sc-dispatch #{args 24588}# '(any . any)))) - (if (if #{tmp 24714}# + (#{check 26594}# (reverse #{rreq 26598}#) #f)) + #{tmp 26600}#) + (let ((#{tmp 26723}# + ($sc-dispatch #{args 26597}# '(any . any)))) + (if (if #{tmp 26723}# (@apply - (lambda (#{a 24718}# #{b 24719}#) - (if (symbol? #{a 24718}#) + (lambda (#{a 26727}# #{b 26728}#) + (if (symbol? #{a 26727}#) #t - (if (if (vector? #{a 24718}#) - (if (= (vector-length #{a 24718}#) 4) - (eq? (vector-ref #{a 24718}# 0) + (if (if (vector? #{a 26727}#) + (if (= (vector-length #{a 26727}#) 4) + (eq? (vector-ref #{a 26727}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{a 24718}# 1)) + (symbol? (vector-ref #{a 26727}# 1)) #f))) - #{tmp 24714}#) + #{tmp 26723}#) #f) (@apply - (lambda (#{a 24746}# #{b 24747}#) - (#{req 24584}# - #{b 24747}# - (cons #{a 24746}# #{rreq 24589}#))) - #{tmp 24714}#) - (let ((#{tmp 24748}# (list #{args 24588}#))) + (lambda (#{a 26755}# #{b 26756}#) + (#{req 26593}# + #{b 26756}# + (cons #{a 26755}# #{rreq 26598}#))) + #{tmp 26723}#) + (let ((#{tmp 26757}# (list #{args 26597}#))) (if (@apply - (lambda (#{r 24750}#) - (if (symbol? #{r 24750}#) + (lambda (#{r 26759}#) + (if (symbol? #{r 26759}#) #t - (if (if (vector? #{r 24750}#) - (if (= (vector-length #{r 24750}#) 4) - (eq? (vector-ref #{r 24750}# 0) + (if (if (vector? #{r 26759}#) + (if (= (vector-length #{r 26759}#) 4) + (eq? (vector-ref #{r 26759}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{r 24750}# 1)) + (symbol? (vector-ref #{r 26759}# 1)) #f))) - #{tmp 24748}#) + #{tmp 26757}#) (@apply - (lambda (#{r 24780}#) - (#{check 24585}# - (reverse #{rreq 24589}#) - #{r 24780}#)) - #{tmp 24748}#) + (lambda (#{r 26789}#) + (#{check 26594}# + (reverse #{rreq 26598}#) + #{r 26789}#)) + #{tmp 26757}#) (syntax-violation 'lambda "invalid argument list" - #{orig-args 24583}# - #{args 24588}#))))))))) - (#{check 24585}# - (lambda (#{req 24911}# #{rest 24912}#) - (if (#{distinct-bound-ids? 4325}# - (if #{rest 24912}# - (cons #{rest 24912}# #{req 24911}#) - #{req 24911}#)) - (values #{req 24911}# #f #{rest 24912}# #f) + #{orig-args 26592}# + #{args 26597}#))))))))) + (#{check 26594}# + (lambda (#{req 26920}# #{rest 26921}#) + (if (#{distinct-bound-ids? 6312}# + (if #{rest 26921}# + (cons #{rest 26921}# #{req 26920}#) + #{req 26920}#)) + (values #{req 26920}# #f #{rest 26921}# #f) (syntax-violation 'lambda "duplicate identifier in argument list" - #{orig-args 24583}#))))) - (#{req 24584}# #{orig-args 24583}# '())))) - (#{expand-simple-lambda 4344}# - (lambda (#{e 25028}# - #{r 25029}# - #{w 25030}# - #{s 25031}# - #{mod 25032}# - #{req 25033}# - #{rest 25034}# - #{meta 25035}# - #{body 25036}#) - (let ((#{ids 25037}# - (if #{rest 25034}# - (append #{req 25033}# (list #{rest 25034}#)) - #{req 25033}#))) - (let ((#{vars 25038}# - (map #{gen-var 4348}# #{ids 25037}#))) - (let ((#{labels 25039}# - (#{gen-labels 4305}# #{ids 25037}#))) - (#{build-simple-lambda 4278}# - #{s 25031}# - (map syntax->datum #{req 25033}#) - (if #{rest 25034}# - (syntax->datum #{rest 25034}#) + #{orig-args 26592}#))))) + (#{req 26593}# #{orig-args 26592}# '())))) + (#{expand-simple-lambda 6331}# + (lambda (#{e 27037}# + #{r 27038}# + #{w 27039}# + #{s 27040}# + #{mod 27041}# + #{req 27042}# + #{rest 27043}# + #{meta 27044}# + #{body 27045}#) + (let ((#{ids 27046}# + (if #{rest 27043}# + (append #{req 27042}# (list #{rest 27043}#)) + #{req 27042}#))) + (let ((#{vars 27047}# + (map #{gen-var 6335}# #{ids 27046}#))) + (let ((#{labels 27048}# + (#{gen-labels 6292}# #{ids 27046}#))) + (#{build-simple-lambda 6265}# + #{s 27040}# + (map syntax->datum #{req 27042}#) + (if #{rest 27043}# + (syntax->datum #{rest 27043}#) #f) - #{vars 25038}# - #{meta 25035}# - (#{expand-body 4338}# - #{body 25036}# - (#{wrap 4327}# + #{vars 27047}# + #{meta 27044}# + (#{expand-body 6325}# + #{body 27045}# + (#{wrap 6314}# (begin - (if (if (pair? #{e 25028}#) #{s 25031}# #f) - (set-source-properties! #{e 25028}# #{s 25031}#)) - #{e 25028}#) - #{w 25030}# - #{mod 25032}#) - (#{extend-var-env 4297}# - #{labels 25039}# - #{vars 25038}# - #{r 25029}#) - (#{make-binding-wrap 4316}# - #{ids 25037}# - #{labels 25039}# - #{w 25030}#) - #{mod 25032}#))))))) - (#{lambda*-formals 4345}# - (lambda (#{orig-args 25339}#) + (if (if (pair? #{e 27037}#) #{s 27040}# #f) + (set-source-properties! #{e 27037}# #{s 27040}#)) + #{e 27037}#) + #{w 27039}# + #{mod 27041}#) + (#{extend-var-env 6284}# + #{labels 27048}# + #{vars 27047}# + #{r 27038}#) + (#{make-binding-wrap 6303}# + #{ids 27046}# + #{labels 27048}# + #{w 27039}#) + #{mod 27041}#))))))) + (#{lambda*-formals 6332}# + (lambda (#{orig-args 27348}#) (letrec* - ((#{req 25340}# - (lambda (#{args 25347}# #{rreq 25348}#) - (let ((#{tmp 25350}# ($sc-dispatch #{args 25347}# '()))) - (if #{tmp 25350}# + ((#{req 27349}# + (lambda (#{args 27356}# #{rreq 27357}#) + (let ((#{tmp 27359}# ($sc-dispatch #{args 27356}# '()))) + (if #{tmp 27359}# (@apply (lambda () - (#{check 25344}# - (reverse #{rreq 25348}#) + (#{check 27353}# + (reverse #{rreq 27357}#) '() #f '())) - #{tmp 25350}#) - (let ((#{tmp 25356}# - ($sc-dispatch #{args 25347}# '(any . any)))) - (if (if #{tmp 25356}# + #{tmp 27359}#) + (let ((#{tmp 27365}# + ($sc-dispatch #{args 27356}# '(any . any)))) + (if (if #{tmp 27365}# (@apply - (lambda (#{a 25360}# #{b 25361}#) - (if (symbol? #{a 25360}#) + (lambda (#{a 27369}# #{b 27370}#) + (if (symbol? #{a 27369}#) #t - (if (if (vector? #{a 25360}#) - (if (= (vector-length #{a 25360}#) 4) - (eq? (vector-ref #{a 25360}# 0) + (if (if (vector? #{a 27369}#) + (if (= (vector-length #{a 27369}#) 4) + (eq? (vector-ref #{a 27369}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{a 25360}# 1)) + (symbol? (vector-ref #{a 27369}# 1)) #f))) - #{tmp 25356}#) + #{tmp 27365}#) #f) (@apply - (lambda (#{a 25388}# #{b 25389}#) - (#{req 25340}# - #{b 25389}# - (cons #{a 25388}# #{rreq 25348}#))) - #{tmp 25356}#) - (let ((#{tmp 25390}# - ($sc-dispatch #{args 25347}# '(any . any)))) - (if (if #{tmp 25390}# + (lambda (#{a 27397}# #{b 27398}#) + (#{req 27349}# + #{b 27398}# + (cons #{a 27397}# #{rreq 27357}#))) + #{tmp 27365}#) + (let ((#{tmp 27399}# + ($sc-dispatch #{args 27356}# '(any . any)))) + (if (if #{tmp 27399}# (@apply - (lambda (#{a 25394}# #{b 25395}#) - (eq? (syntax->datum #{a 25394}#) #:optional)) - #{tmp 25390}#) + (lambda (#{a 27403}# #{b 27404}#) + (eq? (syntax->datum #{a 27403}#) #:optional)) + #{tmp 27399}#) #f) (@apply - (lambda (#{a 25396}# #{b 25397}#) - (#{opt 25341}# - #{b 25397}# - (reverse #{rreq 25348}#) + (lambda (#{a 27405}# #{b 27406}#) + (#{opt 27350}# + #{b 27406}# + (reverse #{rreq 27357}#) '())) - #{tmp 25390}#) - (let ((#{tmp 25400}# - ($sc-dispatch #{args 25347}# '(any . any)))) - (if (if #{tmp 25400}# + #{tmp 27399}#) + (let ((#{tmp 27409}# + ($sc-dispatch #{args 27356}# '(any . any)))) + (if (if #{tmp 27409}# (@apply - (lambda (#{a 25404}# #{b 25405}#) - (eq? (syntax->datum #{a 25404}#) #:key)) - #{tmp 25400}#) + (lambda (#{a 27413}# #{b 27414}#) + (eq? (syntax->datum #{a 27413}#) #:key)) + #{tmp 27409}#) #f) (@apply - (lambda (#{a 25406}# #{b 25407}#) - (#{key 25342}# - #{b 25407}# - (reverse #{rreq 25348}#) + (lambda (#{a 27415}# #{b 27416}#) + (#{key 27351}# + #{b 27416}# + (reverse #{rreq 27357}#) '() '())) - #{tmp 25400}#) - (let ((#{tmp 25410}# + #{tmp 27409}#) + (let ((#{tmp 27419}# ($sc-dispatch - #{args 25347}# + #{args 27356}# '(any any)))) - (if (if #{tmp 25410}# + (if (if #{tmp 27419}# (@apply - (lambda (#{a 25414}# #{b 25415}#) - (eq? (syntax->datum #{a 25414}#) + (lambda (#{a 27423}# #{b 27424}#) + (eq? (syntax->datum #{a 27423}#) #:rest)) - #{tmp 25410}#) + #{tmp 27419}#) #f) (@apply - (lambda (#{a 25416}# #{b 25417}#) - (#{rest 25343}# - #{b 25417}# - (reverse #{rreq 25348}#) + (lambda (#{a 27425}# #{b 27426}#) + (#{rest 27352}# + #{b 27426}# + (reverse #{rreq 27357}#) '() '())) - #{tmp 25410}#) - (let ((#{tmp 25420}# (list #{args 25347}#))) + #{tmp 27419}#) + (let ((#{tmp 27429}# (list #{args 27356}#))) (if (@apply - (lambda (#{r 25422}#) - (if (symbol? #{r 25422}#) + (lambda (#{r 27431}#) + (if (symbol? #{r 27431}#) #t - (if (if (vector? #{r 25422}#) + (if (if (vector? #{r 27431}#) (if (= (vector-length - #{r 25422}#) + #{r 27431}#) 4) (eq? (vector-ref - #{r 25422}# + #{r 27431}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{r 25422}# 1)) + (vector-ref #{r 27431}# 1)) #f))) - #{tmp 25420}#) + #{tmp 27429}#) (@apply - (lambda (#{r 25452}#) - (#{rest 25343}# - #{r 25452}# - (reverse #{rreq 25348}#) + (lambda (#{r 27461}#) + (#{rest 27352}# + #{r 27461}# + (reverse #{rreq 27357}#) '() '())) - #{tmp 25420}#) + #{tmp 27429}#) (syntax-violation 'lambda* "invalid argument list" - #{orig-args 25339}# - #{args 25347}#))))))))))))))) - (#{opt 25341}# - (lambda (#{args 25471}# #{req 25472}# #{ropt 25473}#) - (let ((#{tmp 25475}# ($sc-dispatch #{args 25471}# '()))) - (if #{tmp 25475}# + #{orig-args 27348}# + #{args 27356}#))))))))))))))) + (#{opt 27350}# + (lambda (#{args 27480}# #{req 27481}# #{ropt 27482}#) + (let ((#{tmp 27484}# ($sc-dispatch #{args 27480}# '()))) + (if #{tmp 27484}# (@apply (lambda () - (#{check 25344}# - #{req 25472}# - (reverse #{ropt 25473}#) + (#{check 27353}# + #{req 27481}# + (reverse #{ropt 27482}#) #f '())) - #{tmp 25475}#) - (let ((#{tmp 25481}# - ($sc-dispatch #{args 25471}# '(any . any)))) - (if (if #{tmp 25481}# + #{tmp 27484}#) + (let ((#{tmp 27490}# + ($sc-dispatch #{args 27480}# '(any . any)))) + (if (if #{tmp 27490}# (@apply - (lambda (#{a 25485}# #{b 25486}#) - (if (symbol? #{a 25485}#) + (lambda (#{a 27494}# #{b 27495}#) + (if (symbol? #{a 27494}#) #t - (if (if (vector? #{a 25485}#) - (if (= (vector-length #{a 25485}#) 4) - (eq? (vector-ref #{a 25485}# 0) + (if (if (vector? #{a 27494}#) + (if (= (vector-length #{a 27494}#) 4) + (eq? (vector-ref #{a 27494}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{a 25485}# 1)) + (symbol? (vector-ref #{a 27494}# 1)) #f))) - #{tmp 25481}#) + #{tmp 27490}#) #f) (@apply - (lambda (#{a 25513}# #{b 25514}#) - (#{opt 25341}# - #{b 25514}# - #{req 25472}# - (cons (cons #{a 25513}# + (lambda (#{a 27522}# #{b 27523}#) + (#{opt 27350}# + #{b 27523}# + #{req 27481}# + (cons (cons #{a 27522}# '(#(syntax-object #f ((top) #(ribcage #(a b) #((top) (top)) - #("i2358" "i2359")) + #("i4345" "i4346")) #(ribcage () () ()) #(ribcage #(args req ropt) #((top) (top) (top)) - #("i2348" "i2349" "i2350")) + #("i4335" "i4336" "i4337")) #(ribcage (check rest key opt req) ((top) (top) (top) (top) (top)) - ("i2294" - "i2292" - "i2290" - "i2288" - "i2286")) + ("i4281" + "i4279" + "i4277" + "i4275" + "i4273")) #(ribcage #(orig-args) #((top)) - #("i2285")) + #("i4272")) #(ribcage (lambda-var-list gen-var @@ -6528,290 +6543,290 @@ (top) (top) (top)) - ("i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i398" - "i396" - "i393" - "i392" - "i391" - "i389" - "i388" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i369" - "i367" - "i366" - "i364" - "i362" - "i360" - "i358" - "i357" - "i356" - "i355" - "i353" - "i352" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i336" - "i335" - "i333" - "i331" - "i330" - "i327" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i260" - "i257" - "i255" - "i254" - "i253" - "i252" - "i251" - "i249" - "i247" - "i245" - "i242" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208")) + ("i2454" + "i2452" + "i2450" + "i2448" + "i2446" + "i2444" + "i2442" + "i2440" + "i2438" + "i2436" + "i2434" + "i2432" + "i2430" + "i2428" + "i2426" + "i2424" + "i2422" + "i2420" + "i2418" + "i2416" + "i2414" + "i2412" + "i2410" + "i2408" + "i2406" + "i2404" + "i2402" + "i2400" + "i2398" + "i2396" + "i2394" + "i2392" + "i2390" + "i2388" + "i2386" + "i2385" + "i2383" + "i2380" + "i2379" + "i2378" + "i2376" + "i2375" + "i2373" + "i2371" + "i2369" + "i2367" + "i2365" + "i2363" + "i2361" + "i2359" + "i2356" + "i2354" + "i2353" + "i2351" + "i2349" + "i2347" + "i2345" + "i2344" + "i2343" + "i2342" + "i2340" + "i2339" + "i2336" + "i2334" + "i2332" + "i2330" + "i2328" + "i2326" + "i2324" + "i2323" + "i2322" + "i2320" + "i2318" + "i2317" + "i2314" + "i2313" + "i2311" + "i2309" + "i2307" + "i2305" + "i2303" + "i2301" + "i2299" + "i2297" + "i2295" + "i2292" + "i2290" + "i2288" + "i2286" + "i2284" + "i2282" + "i2280" + "i2278" + "i2276" + "i2274" + "i2272" + "i2270" + "i2268" + "i2266" + "i2264" + "i2262" + "i2260" + "i2258" + "i2256" + "i2254" + "i2252" + "i2250" + "i2248" + "i2247" + "i2244" + "i2242" + "i2241" + "i2240" + "i2239" + "i2238" + "i2236" + "i2234" + "i2232" + "i2229" + "i2227" + "i2225" + "i2223" + "i2221" + "i2219" + "i2217" + "i2215" + "i2213" + "i2211" + "i2209" + "i2207" + "i2205" + "i2203" + "i2201" + "i2199" + "i2197" + "i2195")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i46" "i45" "i44"))) + ("i2033" "i2032" "i2031"))) (hygiene guile)))) - #{ropt 25473}#))) - #{tmp 25481}#) - (let ((#{tmp 25515}# + #{ropt 27482}#))) + #{tmp 27490}#) + (let ((#{tmp 27524}# ($sc-dispatch - #{args 25471}# + #{args 27480}# '((any any) . any)))) - (if (if #{tmp 25515}# + (if (if #{tmp 27524}# (@apply - (lambda (#{a 25519}# - #{init 25520}# - #{b 25521}#) - (if (symbol? #{a 25519}#) + (lambda (#{a 27528}# + #{init 27529}# + #{b 27530}#) + (if (symbol? #{a 27528}#) #t - (if (if (vector? #{a 25519}#) - (if (= (vector-length #{a 25519}#) 4) - (eq? (vector-ref #{a 25519}# 0) + (if (if (vector? #{a 27528}#) + (if (= (vector-length #{a 27528}#) 4) + (eq? (vector-ref #{a 27528}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{a 25519}# 1)) + (symbol? (vector-ref #{a 27528}# 1)) #f))) - #{tmp 25515}#) + #{tmp 27524}#) #f) (@apply - (lambda (#{a 25548}# #{init 25549}# #{b 25550}#) - (#{opt 25341}# - #{b 25550}# - #{req 25472}# - (cons (list #{a 25548}# #{init 25549}#) - #{ropt 25473}#))) - #{tmp 25515}#) - (let ((#{tmp 25551}# - ($sc-dispatch #{args 25471}# '(any . any)))) - (if (if #{tmp 25551}# + (lambda (#{a 27557}# #{init 27558}# #{b 27559}#) + (#{opt 27350}# + #{b 27559}# + #{req 27481}# + (cons (list #{a 27557}# #{init 27558}#) + #{ropt 27482}#))) + #{tmp 27524}#) + (let ((#{tmp 27560}# + ($sc-dispatch #{args 27480}# '(any . any)))) + (if (if #{tmp 27560}# (@apply - (lambda (#{a 25555}# #{b 25556}#) - (eq? (syntax->datum #{a 25555}#) #:key)) - #{tmp 25551}#) + (lambda (#{a 27564}# #{b 27565}#) + (eq? (syntax->datum #{a 27564}#) #:key)) + #{tmp 27560}#) #f) (@apply - (lambda (#{a 25557}# #{b 25558}#) - (#{key 25342}# - #{b 25558}# - #{req 25472}# - (reverse #{ropt 25473}#) + (lambda (#{a 27566}# #{b 27567}#) + (#{key 27351}# + #{b 27567}# + #{req 27481}# + (reverse #{ropt 27482}#) '())) - #{tmp 25551}#) - (let ((#{tmp 25561}# + #{tmp 27560}#) + (let ((#{tmp 27570}# ($sc-dispatch - #{args 25471}# + #{args 27480}# '(any any)))) - (if (if #{tmp 25561}# + (if (if #{tmp 27570}# (@apply - (lambda (#{a 25565}# #{b 25566}#) - (eq? (syntax->datum #{a 25565}#) + (lambda (#{a 27574}# #{b 27575}#) + (eq? (syntax->datum #{a 27574}#) #:rest)) - #{tmp 25561}#) + #{tmp 27570}#) #f) (@apply - (lambda (#{a 25567}# #{b 25568}#) - (#{rest 25343}# - #{b 25568}# - #{req 25472}# - (reverse #{ropt 25473}#) + (lambda (#{a 27576}# #{b 27577}#) + (#{rest 27352}# + #{b 27577}# + #{req 27481}# + (reverse #{ropt 27482}#) '())) - #{tmp 25561}#) - (let ((#{tmp 25571}# (list #{args 25471}#))) + #{tmp 27570}#) + (let ((#{tmp 27580}# (list #{args 27480}#))) (if (@apply - (lambda (#{r 25573}#) - (if (symbol? #{r 25573}#) + (lambda (#{r 27582}#) + (if (symbol? #{r 27582}#) #t - (if (if (vector? #{r 25573}#) + (if (if (vector? #{r 27582}#) (if (= (vector-length - #{r 25573}#) + #{r 27582}#) 4) (eq? (vector-ref - #{r 25573}# + #{r 27582}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{r 25573}# 1)) + (vector-ref #{r 27582}# 1)) #f))) - #{tmp 25571}#) + #{tmp 27580}#) (@apply - (lambda (#{r 25603}#) - (#{rest 25343}# - #{r 25603}# - #{req 25472}# - (reverse #{ropt 25473}#) + (lambda (#{r 27612}#) + (#{rest 27352}# + #{r 27612}# + #{req 27481}# + (reverse #{ropt 27482}#) '())) - #{tmp 25571}#) + #{tmp 27580}#) (syntax-violation 'lambda* "invalid optional argument list" - #{orig-args 25339}# - #{args 25471}#))))))))))))))) - (#{key 25342}# - (lambda (#{args 25622}# - #{req 25623}# - #{opt 25624}# - #{rkey 25625}#) - (let ((#{tmp 25627}# ($sc-dispatch #{args 25622}# '()))) - (if #{tmp 25627}# + #{orig-args 27348}# + #{args 27480}#))))))))))))))) + (#{key 27351}# + (lambda (#{args 27631}# + #{req 27632}# + #{opt 27633}# + #{rkey 27634}#) + (let ((#{tmp 27636}# ($sc-dispatch #{args 27631}# '()))) + (if #{tmp 27636}# (@apply (lambda () - (#{check 25344}# - #{req 25623}# - #{opt 25624}# + (#{check 27353}# + #{req 27632}# + #{opt 27633}# #f - (cons #f (reverse #{rkey 25625}#)))) - #{tmp 25627}#) - (let ((#{tmp 25633}# - ($sc-dispatch #{args 25622}# '(any . any)))) - (if (if #{tmp 25633}# + (cons #f (reverse #{rkey 27634}#)))) + #{tmp 27636}#) + (let ((#{tmp 27642}# + ($sc-dispatch #{args 27631}# '(any . any)))) + (if (if #{tmp 27642}# (@apply - (lambda (#{a 25637}# #{b 25638}#) - (if (symbol? #{a 25637}#) + (lambda (#{a 27646}# #{b 27647}#) + (if (symbol? #{a 27646}#) #t - (if (if (vector? #{a 25637}#) - (if (= (vector-length #{a 25637}#) 4) - (eq? (vector-ref #{a 25637}# 0) + (if (if (vector? #{a 27646}#) + (if (= (vector-length #{a 27646}#) 4) + (eq? (vector-ref #{a 27646}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{a 25637}# 1)) + (symbol? (vector-ref #{a 27646}# 1)) #f))) - #{tmp 25633}#) + #{tmp 27642}#) #f) (@apply - (lambda (#{a 25665}# #{b 25666}#) - (let ((#{tmp 25667}# + (lambda (#{a 27674}# #{b 27675}#) + (let ((#{tmp 27676}# (symbol->keyword - (syntax->datum #{a 25665}#)))) - (#{key 25342}# - #{b 25666}# - #{req 25623}# - #{opt 25624}# - (cons (cons #{tmp 25667}# - (cons #{a 25665}# + (syntax->datum #{a 27674}#)))) + (#{key 27351}# + #{b 27675}# + #{req 27632}# + #{opt 27633}# + (cons (cons #{tmp 27676}# + (cons #{a 27674}# '(#(syntax-object #f ((top) @@ -6819,11 +6834,11 @@ #(ribcage #(k) #((top)) - #("i2421")) + #("i4408")) #(ribcage #(a b) #((top) (top)) - #("i2415" "i2416")) + #("i4402" "i4403")) #(ribcage () () ()) #(ribcage #(args req opt rkey) @@ -6831,10 +6846,10 @@ (top) (top) (top)) - #("i2404" - "i2405" - "i2406" - "i2407")) + #("i4391" + "i4392" + "i4393" + "i4394")) #(ribcage (check rest key opt req) ((top) @@ -6842,15 +6857,15 @@ (top) (top) (top)) - ("i2294" - "i2292" - "i2290" - "i2288" - "i2286")) + ("i4281" + "i4279" + "i4277" + "i4275" + "i4273")) #(ribcage #(orig-args) #((top)) - #("i2285")) + #("i4272")) #(ribcage (lambda-var-list gen-var @@ -7124,923 +7139,925 @@ (top) (top) (top)) - ("i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i398" - "i396" - "i393" - "i392" - "i391" - "i389" - "i388" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i369" - "i367" - "i366" - "i364" - "i362" - "i360" - "i358" - "i357" - "i356" - "i355" - "i353" - "i352" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i336" - "i335" - "i333" - "i331" - "i330" - "i327" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i260" - "i257" - "i255" - "i254" - "i253" - "i252" - "i251" - "i249" - "i247" - "i245" - "i242" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208")) + ("i2454" + "i2452" + "i2450" + "i2448" + "i2446" + "i2444" + "i2442" + "i2440" + "i2438" + "i2436" + "i2434" + "i2432" + "i2430" + "i2428" + "i2426" + "i2424" + "i2422" + "i2420" + "i2418" + "i2416" + "i2414" + "i2412" + "i2410" + "i2408" + "i2406" + "i2404" + "i2402" + "i2400" + "i2398" + "i2396" + "i2394" + "i2392" + "i2390" + "i2388" + "i2386" + "i2385" + "i2383" + "i2380" + "i2379" + "i2378" + "i2376" + "i2375" + "i2373" + "i2371" + "i2369" + "i2367" + "i2365" + "i2363" + "i2361" + "i2359" + "i2356" + "i2354" + "i2353" + "i2351" + "i2349" + "i2347" + "i2345" + "i2344" + "i2343" + "i2342" + "i2340" + "i2339" + "i2336" + "i2334" + "i2332" + "i2330" + "i2328" + "i2326" + "i2324" + "i2323" + "i2322" + "i2320" + "i2318" + "i2317" + "i2314" + "i2313" + "i2311" + "i2309" + "i2307" + "i2305" + "i2303" + "i2301" + "i2299" + "i2297" + "i2295" + "i2292" + "i2290" + "i2288" + "i2286" + "i2284" + "i2282" + "i2280" + "i2278" + "i2276" + "i2274" + "i2272" + "i2270" + "i2268" + "i2266" + "i2264" + "i2262" + "i2260" + "i2258" + "i2256" + "i2254" + "i2252" + "i2250" + "i2248" + "i2247" + "i2244" + "i2242" + "i2241" + "i2240" + "i2239" + "i2238" + "i2236" + "i2234" + "i2232" + "i2229" + "i2227" + "i2225" + "i2223" + "i2221" + "i2219" + "i2217" + "i2215" + "i2213" + "i2211" + "i2209" + "i2207" + "i2205" + "i2203" + "i2201" + "i2199" + "i2197" + "i2195")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i46" "i45" "i44"))) + ("i2033" + "i2032" + "i2031"))) (hygiene guile))))) - #{rkey 25625}#)))) - #{tmp 25633}#) - (let ((#{tmp 25670}# + #{rkey 27634}#)))) + #{tmp 27642}#) + (let ((#{tmp 27679}# ($sc-dispatch - #{args 25622}# + #{args 27631}# '((any any) . any)))) - (if (if #{tmp 25670}# + (if (if #{tmp 27679}# (@apply - (lambda (#{a 25674}# - #{init 25675}# - #{b 25676}#) - (if (symbol? #{a 25674}#) + (lambda (#{a 27683}# + #{init 27684}# + #{b 27685}#) + (if (symbol? #{a 27683}#) #t - (if (if (vector? #{a 25674}#) - (if (= (vector-length #{a 25674}#) 4) - (eq? (vector-ref #{a 25674}# 0) + (if (if (vector? #{a 27683}#) + (if (= (vector-length #{a 27683}#) 4) + (eq? (vector-ref #{a 27683}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{a 25674}# 1)) + (symbol? (vector-ref #{a 27683}# 1)) #f))) - #{tmp 25670}#) + #{tmp 27679}#) #f) (@apply - (lambda (#{a 25703}# #{init 25704}# #{b 25705}#) - (let ((#{tmp 25706}# + (lambda (#{a 27712}# #{init 27713}# #{b 27714}#) + (let ((#{tmp 27715}# (symbol->keyword - (syntax->datum #{a 25703}#)))) - (#{key 25342}# - #{b 25705}# - #{req 25623}# - #{opt 25624}# - (cons (list #{tmp 25706}# - #{a 25703}# - #{init 25704}#) - #{rkey 25625}#)))) - #{tmp 25670}#) - (let ((#{tmp 25709}# + (syntax->datum #{a 27712}#)))) + (#{key 27351}# + #{b 27714}# + #{req 27632}# + #{opt 27633}# + (cons (list #{tmp 27715}# + #{a 27712}# + #{init 27713}#) + #{rkey 27634}#)))) + #{tmp 27679}#) + (let ((#{tmp 27718}# ($sc-dispatch - #{args 25622}# + #{args 27631}# '((any any any) . any)))) - (if (if #{tmp 25709}# + (if (if #{tmp 27718}# (@apply - (lambda (#{a 25713}# - #{init 25714}# - #{k 25715}# - #{b 25716}#) - (if (if (symbol? #{a 25713}#) + (lambda (#{a 27722}# + #{init 27723}# + #{k 27724}# + #{b 27725}#) + (if (if (symbol? #{a 27722}#) #t - (if (if (vector? #{a 25713}#) + (if (if (vector? #{a 27722}#) (if (= (vector-length - #{a 25713}#) + #{a 27722}#) 4) (eq? (vector-ref - #{a 25713}# + #{a 27722}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{a 25713}# 1)) + (vector-ref #{a 27722}# 1)) #f)) - (keyword? (syntax->datum #{k 25715}#)) + (keyword? (syntax->datum #{k 27724}#)) #f)) - #{tmp 25709}#) + #{tmp 27718}#) #f) (@apply - (lambda (#{a 25743}# - #{init 25744}# - #{k 25745}# - #{b 25746}#) - (#{key 25342}# - #{b 25746}# - #{req 25623}# - #{opt 25624}# - (cons (list #{k 25745}# - #{a 25743}# - #{init 25744}#) - #{rkey 25625}#))) - #{tmp 25709}#) - (let ((#{tmp 25747}# - ($sc-dispatch #{args 25622}# '(any)))) - (if (if #{tmp 25747}# + (lambda (#{a 27752}# + #{init 27753}# + #{k 27754}# + #{b 27755}#) + (#{key 27351}# + #{b 27755}# + #{req 27632}# + #{opt 27633}# + (cons (list #{k 27754}# + #{a 27752}# + #{init 27753}#) + #{rkey 27634}#))) + #{tmp 27718}#) + (let ((#{tmp 27756}# + ($sc-dispatch #{args 27631}# '(any)))) + (if (if #{tmp 27756}# (@apply - (lambda (#{aok 25751}#) - (eq? (syntax->datum #{aok 25751}#) + (lambda (#{aok 27760}#) + (eq? (syntax->datum #{aok 27760}#) #:allow-other-keys)) - #{tmp 25747}#) + #{tmp 27756}#) #f) (@apply - (lambda (#{aok 25752}#) - (#{check 25344}# - #{req 25623}# - #{opt 25624}# + (lambda (#{aok 27761}#) + (#{check 27353}# + #{req 27632}# + #{opt 27633}# #f - (cons #t (reverse #{rkey 25625}#)))) - #{tmp 25747}#) - (let ((#{tmp 25755}# + (cons #t (reverse #{rkey 27634}#)))) + #{tmp 27756}#) + (let ((#{tmp 27764}# ($sc-dispatch - #{args 25622}# + #{args 27631}# '(any any any)))) - (if (if #{tmp 25755}# + (if (if #{tmp 27764}# (@apply - (lambda (#{aok 25759}# - #{a 25760}# - #{b 25761}#) + (lambda (#{aok 27768}# + #{a 27769}# + #{b 27770}#) (if (eq? (syntax->datum - #{aok 25759}#) + #{aok 27768}#) #:allow-other-keys) (eq? (syntax->datum - #{a 25760}#) + #{a 27769}#) #:rest) #f)) - #{tmp 25755}#) + #{tmp 27764}#) #f) (@apply - (lambda (#{aok 25762}# - #{a 25763}# - #{b 25764}#) - (#{rest 25343}# - #{b 25764}# - #{req 25623}# - #{opt 25624}# + (lambda (#{aok 27771}# + #{a 27772}# + #{b 27773}#) + (#{rest 27352}# + #{b 27773}# + #{req 27632}# + #{opt 27633}# (cons #t - (reverse #{rkey 25625}#)))) - #{tmp 25755}#) - (let ((#{tmp 25767}# + (reverse #{rkey 27634}#)))) + #{tmp 27764}#) + (let ((#{tmp 27776}# ($sc-dispatch - #{args 25622}# + #{args 27631}# '(any . any)))) - (if (if #{tmp 25767}# + (if (if #{tmp 27776}# (@apply - (lambda (#{aok 25771}# - #{r 25772}#) + (lambda (#{aok 27780}# + #{r 27781}#) (if (eq? (syntax->datum - #{aok 25771}#) + #{aok 27780}#) #:allow-other-keys) - (if (symbol? #{r 25772}#) + (if (symbol? #{r 27781}#) #t (if (if (vector? - #{r 25772}#) + #{r 27781}#) (if (= (vector-length - #{r 25772}#) + #{r 27781}#) 4) (eq? (vector-ref - #{r 25772}# + #{r 27781}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{r 25772}# + #{r 27781}# 1)) #f)) #f)) - #{tmp 25767}#) + #{tmp 27776}#) #f) (@apply - (lambda (#{aok 25799}# #{r 25800}#) - (#{rest 25343}# - #{r 25800}# - #{req 25623}# - #{opt 25624}# + (lambda (#{aok 27808}# #{r 27809}#) + (#{rest 27352}# + #{r 27809}# + #{req 27632}# + #{opt 27633}# (cons #t (reverse - #{rkey 25625}#)))) - #{tmp 25767}#) - (let ((#{tmp 25803}# + #{rkey 27634}#)))) + #{tmp 27776}#) + (let ((#{tmp 27812}# ($sc-dispatch - #{args 25622}# + #{args 27631}# '(any any)))) - (if (if #{tmp 25803}# + (if (if #{tmp 27812}# (@apply - (lambda (#{a 25807}# - #{b 25808}#) + (lambda (#{a 27816}# + #{b 27817}#) (eq? (syntax->datum - #{a 25807}#) + #{a 27816}#) #:rest)) - #{tmp 25803}#) + #{tmp 27812}#) #f) (@apply - (lambda (#{a 25809}# - #{b 25810}#) - (#{rest 25343}# - #{b 25810}# - #{req 25623}# - #{opt 25624}# + (lambda (#{a 27818}# + #{b 27819}#) + (#{rest 27352}# + #{b 27819}# + #{req 27632}# + #{opt 27633}# (cons #f (reverse - #{rkey 25625}#)))) - #{tmp 25803}#) - (let ((#{tmp 25813}# - (list #{args 25622}#))) + #{rkey 27634}#)))) + #{tmp 27812}#) + (let ((#{tmp 27822}# + (list #{args 27631}#))) (if (@apply - (lambda (#{r 25815}#) + (lambda (#{r 27824}#) (if (symbol? - #{r 25815}#) + #{r 27824}#) #t (if (if (vector? - #{r 25815}#) + #{r 27824}#) (if (= (vector-length - #{r 25815}#) + #{r 27824}#) 4) (eq? (vector-ref - #{r 25815}# + #{r 27824}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{r 25815}# + #{r 27824}# 1)) #f))) - #{tmp 25813}#) + #{tmp 27822}#) (@apply - (lambda (#{r 25845}#) - (#{rest 25343}# - #{r 25845}# - #{req 25623}# - #{opt 25624}# + (lambda (#{r 27854}#) + (#{rest 27352}# + #{r 27854}# + #{req 27632}# + #{opt 27633}# (cons #f (reverse - #{rkey 25625}#)))) - #{tmp 25813}#) + #{rkey 27634}#)))) + #{tmp 27822}#) (syntax-violation 'lambda* "invalid keyword argument list" - #{orig-args 25339}# - #{args 25622}#))))))))))))))))))))) - (#{rest 25343}# - (lambda (#{args 25873}# - #{req 25874}# - #{opt 25875}# - #{kw 25876}#) - (let ((#{tmp 25878}# (list #{args 25873}#))) + #{orig-args 27348}# + #{args 27631}#))))))))))))))))))))) + (#{rest 27352}# + (lambda (#{args 27882}# + #{req 27883}# + #{opt 27884}# + #{kw 27885}#) + (let ((#{tmp 27887}# (list #{args 27882}#))) (if (@apply - (lambda (#{r 25880}#) - (if (symbol? #{r 25880}#) + (lambda (#{r 27889}#) + (if (symbol? #{r 27889}#) #t - (if (if (vector? #{r 25880}#) - (if (= (vector-length #{r 25880}#) 4) - (eq? (vector-ref #{r 25880}# 0) + (if (if (vector? #{r 27889}#) + (if (= (vector-length #{r 27889}#) 4) + (eq? (vector-ref #{r 27889}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{r 25880}# 1)) + (symbol? (vector-ref #{r 27889}# 1)) #f))) - #{tmp 25878}#) + #{tmp 27887}#) (@apply - (lambda (#{r 25910}#) - (#{check 25344}# - #{req 25874}# - #{opt 25875}# - #{r 25910}# - #{kw 25876}#)) - #{tmp 25878}#) + (lambda (#{r 27919}#) + (#{check 27353}# + #{req 27883}# + #{opt 27884}# + #{r 27919}# + #{kw 27885}#)) + #{tmp 27887}#) (syntax-violation 'lambda* "invalid rest argument" - #{orig-args 25339}# - #{args 25873}#))))) - (#{check 25344}# - (lambda (#{req 25914}# - #{opt 25915}# - #{rest 25916}# - #{kw 25917}#) - (if (#{distinct-bound-ids? 4325}# + #{orig-args 27348}# + #{args 27882}#))))) + (#{check 27353}# + (lambda (#{req 27923}# + #{opt 27924}# + #{rest 27925}# + #{kw 27926}#) + (if (#{distinct-bound-ids? 6312}# (append - #{req 25914}# - (map car #{opt 25915}#) - (if #{rest 25916}# (list #{rest 25916}#) '()) - (if (pair? #{kw 25917}#) - (map cadr (cdr #{kw 25917}#)) + #{req 27923}# + (map car #{opt 27924}#) + (if #{rest 27925}# (list #{rest 27925}#) '()) + (if (pair? #{kw 27926}#) + (map cadr (cdr #{kw 27926}#)) '()))) (values - #{req 25914}# - #{opt 25915}# - #{rest 25916}# - #{kw 25917}#) + #{req 27923}# + #{opt 27924}# + #{rest 27925}# + #{kw 27926}#) (syntax-violation 'lambda* "duplicate identifier in argument list" - #{orig-args 25339}#))))) - (#{req 25340}# #{orig-args 25339}# '())))) - (#{expand-lambda-case 4346}# - (lambda (#{e 26033}# - #{r 26034}# - #{w 26035}# - #{s 26036}# - #{mod 26037}# - #{get-formals 26038}# - #{clauses 26039}#) + #{orig-args 27348}#))))) + (#{req 27349}# #{orig-args 27348}# '())))) + (#{expand-lambda-case 6333}# + (lambda (#{e 28042}# + #{r 28043}# + #{w 28044}# + #{s 28045}# + #{mod 28046}# + #{get-formals 28047}# + #{clauses 28048}#) (letrec* - ((#{parse-req 26040}# - (lambda (#{req 26173}# - #{opt 26174}# - #{rest 26175}# - #{kw 26176}# - #{body 26177}#) - (let ((#{vars 26178}# - (map #{gen-var 4348}# #{req 26173}#)) - (#{labels 26179}# - (#{gen-labels 4305}# #{req 26173}#))) - (let ((#{r* 26180}# - (#{extend-var-env 4297}# - #{labels 26179}# - #{vars 26178}# - #{r 26034}#)) - (#{w* 26181}# - (#{make-binding-wrap 4316}# - #{req 26173}# - #{labels 26179}# - #{w 26035}#))) - (#{parse-opt 26041}# - (map syntax->datum #{req 26173}#) - #{opt 26174}# - #{rest 26175}# - #{kw 26176}# - #{body 26177}# - (reverse #{vars 26178}#) - #{r* 26180}# - #{w* 26181}# + ((#{parse-req 28049}# + (lambda (#{req 28182}# + #{opt 28183}# + #{rest 28184}# + #{kw 28185}# + #{body 28186}#) + (let ((#{vars 28187}# + (map #{gen-var 6335}# #{req 28182}#)) + (#{labels 28188}# + (#{gen-labels 6292}# #{req 28182}#))) + (let ((#{r* 28189}# + (#{extend-var-env 6284}# + #{labels 28188}# + #{vars 28187}# + #{r 28043}#)) + (#{w* 28190}# + (#{make-binding-wrap 6303}# + #{req 28182}# + #{labels 28188}# + #{w 28044}#))) + (#{parse-opt 28050}# + (map syntax->datum #{req 28182}#) + #{opt 28183}# + #{rest 28184}# + #{kw 28185}# + #{body 28186}# + (reverse #{vars 28187}#) + #{r* 28189}# + #{w* 28190}# '() '()))))) - (#{parse-opt 26041}# - (lambda (#{req 26395}# - #{opt 26396}# - #{rest 26397}# - #{kw 26398}# - #{body 26399}# - #{vars 26400}# - #{r* 26401}# - #{w* 26402}# - #{out 26403}# - #{inits 26404}#) - (if (pair? #{opt 26396}#) - (let ((#{tmp 26405}# (car #{opt 26396}#))) - (let ((#{tmp 26406}# - ($sc-dispatch #{tmp 26405}# '(any any)))) - (if #{tmp 26406}# + (#{parse-opt 28050}# + (lambda (#{req 28404}# + #{opt 28405}# + #{rest 28406}# + #{kw 28407}# + #{body 28408}# + #{vars 28409}# + #{r* 28410}# + #{w* 28411}# + #{out 28412}# + #{inits 28413}#) + (if (pair? #{opt 28405}#) + (let ((#{tmp 28414}# (car #{opt 28405}#))) + (let ((#{tmp 28415}# + ($sc-dispatch #{tmp 28414}# '(any any)))) + (if #{tmp 28415}# (@apply - (lambda (#{id 26408}# #{i 26409}#) - (let ((#{v 26410}# - (let ((#{id 26418}# - (if (if (vector? #{id 26408}#) + (lambda (#{id 28417}# #{i 28418}#) + (let ((#{v 28419}# + (let ((#{id 28427}# + (if (if (vector? #{id 28417}#) (if (= (vector-length - #{id 26408}#) + #{id 28417}#) 4) (eq? (vector-ref - #{id 26408}# + #{id 28417}# 0) 'syntax-object) #f) #f) - (vector-ref #{id 26408}# 1) - #{id 26408}#))) + (vector-ref #{id 28417}# 1) + #{id 28417}#))) (gensym (string-append - (symbol->string #{id 26418}#) + (symbol->string #{id 28427}#) " "))))) - (let ((#{l 26411}# - (#{gen-labels 4305}# (list #{v 26410}#)))) - (let ((#{r** 26412}# - (#{extend-var-env 4297}# - #{l 26411}# - (list #{v 26410}#) - #{r* 26401}#))) - (let ((#{w** 26413}# - (#{make-binding-wrap 4316}# - (list #{id 26408}#) - #{l 26411}# - #{w* 26402}#))) - (#{parse-opt 26041}# - #{req 26395}# - (cdr #{opt 26396}#) - #{rest 26397}# - #{kw 26398}# - #{body 26399}# - (cons #{v 26410}# #{vars 26400}#) - #{r** 26412}# - #{w** 26413}# - (cons (syntax->datum #{id 26408}#) - #{out 26403}#) - (cons (#{expand 4334}# - #{i 26409}# - #{r* 26401}# - #{w* 26402}# - #{mod 26037}#) - #{inits 26404}#))))))) - #{tmp 26406}#) + (let ((#{l 28420}# + (#{gen-labels 6292}# (list #{v 28419}#)))) + (let ((#{r** 28421}# + (#{extend-var-env 6284}# + #{l 28420}# + (list #{v 28419}#) + #{r* 28410}#))) + (let ((#{w** 28422}# + (#{make-binding-wrap 6303}# + (list #{id 28417}#) + #{l 28420}# + #{w* 28411}#))) + (#{parse-opt 28050}# + #{req 28404}# + (cdr #{opt 28405}#) + #{rest 28406}# + #{kw 28407}# + #{body 28408}# + (cons #{v 28419}# #{vars 28409}#) + #{r** 28421}# + #{w** 28422}# + (cons (syntax->datum #{id 28417}#) + #{out 28412}#) + (cons (#{expand 6321}# + #{i 28418}# + #{r* 28410}# + #{w* 28411}# + #{mod 28046}#) + #{inits 28413}#))))))) + #{tmp 28415}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 26405}#)))) - (if #{rest 26397}# - (let ((#{v 26683}# - (let ((#{id 26693}# - (if (if (vector? #{rest 26397}#) - (if (= (vector-length #{rest 26397}#) + #{tmp 28414}#)))) + (if #{rest 28406}# + (let ((#{v 28692}# + (let ((#{id 28702}# + (if (if (vector? #{rest 28406}#) + (if (= (vector-length #{rest 28406}#) 4) - (eq? (vector-ref #{rest 26397}# 0) + (eq? (vector-ref #{rest 28406}# 0) 'syntax-object) #f) #f) - (vector-ref #{rest 26397}# 1) - #{rest 26397}#))) + (vector-ref #{rest 28406}# 1) + #{rest 28406}#))) (gensym (string-append - (symbol->string #{id 26693}#) + (symbol->string #{id 28702}#) " "))))) - (let ((#{l 26684}# - (#{gen-labels 4305}# (list #{v 26683}#)))) - (let ((#{r* 26685}# - (#{extend-var-env 4297}# - #{l 26684}# - (list #{v 26683}#) - #{r* 26401}#))) - (let ((#{w* 26686}# - (#{make-binding-wrap 4316}# - (list #{rest 26397}#) - #{l 26684}# - #{w* 26402}#))) - (#{parse-kw 26042}# - #{req 26395}# - (if (pair? #{out 26403}#) - (reverse #{out 26403}#) + (let ((#{l 28693}# + (#{gen-labels 6292}# (list #{v 28692}#)))) + (let ((#{r* 28694}# + (#{extend-var-env 6284}# + #{l 28693}# + (list #{v 28692}#) + #{r* 28410}#))) + (let ((#{w* 28695}# + (#{make-binding-wrap 6303}# + (list #{rest 28406}#) + #{l 28693}# + #{w* 28411}#))) + (#{parse-kw 28051}# + #{req 28404}# + (if (pair? #{out 28412}#) + (reverse #{out 28412}#) #f) - (syntax->datum #{rest 26397}#) - (if (pair? #{kw 26398}#) - (cdr #{kw 26398}#) - #{kw 26398}#) - #{body 26399}# - (cons #{v 26683}# #{vars 26400}#) - #{r* 26685}# - #{w* 26686}# - (if (pair? #{kw 26398}#) (car #{kw 26398}#) #f) + (syntax->datum #{rest 28406}#) + (if (pair? #{kw 28407}#) + (cdr #{kw 28407}#) + #{kw 28407}#) + #{body 28408}# + (cons #{v 28692}# #{vars 28409}#) + #{r* 28694}# + #{w* 28695}# + (if (pair? #{kw 28407}#) (car #{kw 28407}#) #f) '() - #{inits 26404}#))))) - (#{parse-kw 26042}# - #{req 26395}# - (if (pair? #{out 26403}#) - (reverse #{out 26403}#) + #{inits 28413}#))))) + (#{parse-kw 28051}# + #{req 28404}# + (if (pair? #{out 28412}#) + (reverse #{out 28412}#) #f) #f - (if (pair? #{kw 26398}#) - (cdr #{kw 26398}#) - #{kw 26398}#) - #{body 26399}# - #{vars 26400}# - #{r* 26401}# - #{w* 26402}# - (if (pair? #{kw 26398}#) (car #{kw 26398}#) #f) + (if (pair? #{kw 28407}#) + (cdr #{kw 28407}#) + #{kw 28407}#) + #{body 28408}# + #{vars 28409}# + #{r* 28410}# + #{w* 28411}# + (if (pair? #{kw 28407}#) (car #{kw 28407}#) #f) '() - #{inits 26404}#))))) - (#{parse-kw 26042}# - (lambda (#{req 26891}# - #{opt 26892}# - #{rest 26893}# - #{kw 26894}# - #{body 26895}# - #{vars 26896}# - #{r* 26897}# - #{w* 26898}# - #{aok 26899}# - #{out 26900}# - #{inits 26901}#) - (if (pair? #{kw 26894}#) - (let ((#{tmp 26902}# (car #{kw 26894}#))) - (let ((#{tmp 26903}# - ($sc-dispatch #{tmp 26902}# '(any any any)))) - (if #{tmp 26903}# + #{inits 28413}#))))) + (#{parse-kw 28051}# + (lambda (#{req 28900}# + #{opt 28901}# + #{rest 28902}# + #{kw 28903}# + #{body 28904}# + #{vars 28905}# + #{r* 28906}# + #{w* 28907}# + #{aok 28908}# + #{out 28909}# + #{inits 28910}#) + (if (pair? #{kw 28903}#) + (let ((#{tmp 28911}# (car #{kw 28903}#))) + (let ((#{tmp 28912}# + ($sc-dispatch #{tmp 28911}# '(any any any)))) + (if #{tmp 28912}# (@apply - (lambda (#{k 26905}# #{id 26906}# #{i 26907}#) - (let ((#{v 26908}# - (let ((#{id 26916}# - (if (if (vector? #{id 26906}#) + (lambda (#{k 28914}# #{id 28915}# #{i 28916}#) + (let ((#{v 28917}# + (let ((#{id 28925}# + (if (if (vector? #{id 28915}#) (if (= (vector-length - #{id 26906}#) + #{id 28915}#) 4) (eq? (vector-ref - #{id 26906}# + #{id 28915}# 0) 'syntax-object) #f) #f) - (vector-ref #{id 26906}# 1) - #{id 26906}#))) + (vector-ref #{id 28915}# 1) + #{id 28915}#))) (gensym (string-append - (symbol->string #{id 26916}#) + (symbol->string #{id 28925}#) " "))))) - (let ((#{l 26909}# - (#{gen-labels 4305}# (list #{v 26908}#)))) - (let ((#{r** 26910}# - (#{extend-var-env 4297}# - #{l 26909}# - (list #{v 26908}#) - #{r* 26897}#))) - (let ((#{w** 26911}# - (#{make-binding-wrap 4316}# - (list #{id 26906}#) - #{l 26909}# - #{w* 26898}#))) - (#{parse-kw 26042}# - #{req 26891}# - #{opt 26892}# - #{rest 26893}# - (cdr #{kw 26894}#) - #{body 26895}# - (cons #{v 26908}# #{vars 26896}#) - #{r** 26910}# - #{w** 26911}# - #{aok 26899}# - (cons (list (syntax->datum #{k 26905}#) - (syntax->datum #{id 26906}#) - #{v 26908}#) - #{out 26900}#) - (cons (#{expand 4334}# - #{i 26907}# - #{r* 26897}# - #{w* 26898}# - #{mod 26037}#) - #{inits 26901}#))))))) - #{tmp 26903}#) + (let ((#{l 28918}# + (#{gen-labels 6292}# (list #{v 28917}#)))) + (let ((#{r** 28919}# + (#{extend-var-env 6284}# + #{l 28918}# + (list #{v 28917}#) + #{r* 28906}#))) + (let ((#{w** 28920}# + (#{make-binding-wrap 6303}# + (list #{id 28915}#) + #{l 28918}# + #{w* 28907}#))) + (#{parse-kw 28051}# + #{req 28900}# + #{opt 28901}# + #{rest 28902}# + (cdr #{kw 28903}#) + #{body 28904}# + (cons #{v 28917}# #{vars 28905}#) + #{r** 28919}# + #{w** 28920}# + #{aok 28908}# + (cons (list (syntax->datum #{k 28914}#) + (syntax->datum #{id 28915}#) + #{v 28917}#) + #{out 28909}#) + (cons (#{expand 6321}# + #{i 28916}# + #{r* 28906}# + #{w* 28907}# + #{mod 28046}#) + #{inits 28910}#))))))) + #{tmp 28912}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 26902}#)))) - (#{parse-body 26043}# - #{req 26891}# - #{opt 26892}# - #{rest 26893}# - (if (if #{aok 26899}# - #{aok 26899}# - (pair? #{out 26900}#)) - (cons #{aok 26899}# (reverse #{out 26900}#)) + #{tmp 28911}#)))) + (#{parse-body 28052}# + #{req 28900}# + #{opt 28901}# + #{rest 28902}# + (if (if #{aok 28908}# + #{aok 28908}# + (pair? #{out 28909}#)) + (cons #{aok 28908}# (reverse #{out 28909}#)) #f) - #{body 26895}# - (reverse #{vars 26896}#) - #{r* 26897}# - #{w* 26898}# - (reverse #{inits 26901}#) + #{body 28904}# + (reverse #{vars 28905}#) + #{r* 28906}# + #{w* 28907}# + (reverse #{inits 28910}#) '())))) - (#{parse-body 26043}# - (lambda (#{req 27190}# - #{opt 27191}# - #{rest 27192}# - #{kw 27193}# - #{body 27194}# - #{vars 27195}# - #{r* 27196}# - #{w* 27197}# - #{inits 27198}# - #{meta 27199}#) - (let ((#{tmp 27201}# + (#{parse-body 28052}# + (lambda (#{req 29199}# + #{opt 29200}# + #{rest 29201}# + #{kw 29202}# + #{body 29203}# + #{vars 29204}# + #{r* 29205}# + #{w* 29206}# + #{inits 29207}# + #{meta 29208}#) + (let ((#{tmp 29210}# ($sc-dispatch - #{body 27194}# + #{body 29203}# '(any any . each-any)))) - (if (if #{tmp 27201}# + (if (if #{tmp 29210}# (@apply - (lambda (#{docstring 27205}# #{e1 27206}# #{e2 27207}#) - (string? (syntax->datum #{docstring 27205}#))) - #{tmp 27201}#) + (lambda (#{docstring 29214}# #{e1 29215}# #{e2 29216}#) + (string? (syntax->datum #{docstring 29214}#))) + #{tmp 29210}#) #f) (@apply - (lambda (#{docstring 27208}# #{e1 27209}# #{e2 27210}#) - (#{parse-body 26043}# - #{req 27190}# - #{opt 27191}# - #{rest 27192}# - #{kw 27193}# - (cons #{e1 27209}# #{e2 27210}#) - #{vars 27195}# - #{r* 27196}# - #{w* 27197}# - #{inits 27198}# + (lambda (#{docstring 29217}# #{e1 29218}# #{e2 29219}#) + (#{parse-body 28052}# + #{req 29199}# + #{opt 29200}# + #{rest 29201}# + #{kw 29202}# + (cons #{e1 29218}# #{e2 29219}#) + #{vars 29204}# + #{r* 29205}# + #{w* 29206}# + #{inits 29207}# (append - #{meta 27199}# + #{meta 29208}# (list (cons 'documentation - (syntax->datum #{docstring 27208}#)))))) - #{tmp 27201}#) - (let ((#{tmp 27211}# + (syntax->datum #{docstring 29217}#)))))) + #{tmp 29210}#) + (let ((#{tmp 29220}# ($sc-dispatch - #{body 27194}# + #{body 29203}# '(#(vector #(each (any . any))) any . each-any)))) - (if #{tmp 27211}# + (if #{tmp 29220}# (@apply - (lambda (#{k 27215}# - #{v 27216}# - #{e1 27217}# - #{e2 27218}#) - (#{parse-body 26043}# - #{req 27190}# - #{opt 27191}# - #{rest 27192}# - #{kw 27193}# - (cons #{e1 27217}# #{e2 27218}#) - #{vars 27195}# - #{r* 27196}# - #{w* 27197}# - #{inits 27198}# + (lambda (#{k 29224}# + #{v 29225}# + #{e1 29226}# + #{e2 29227}#) + (#{parse-body 28052}# + #{req 29199}# + #{opt 29200}# + #{rest 29201}# + #{kw 29202}# + (cons #{e1 29226}# #{e2 29227}#) + #{vars 29204}# + #{r* 29205}# + #{w* 29206}# + #{inits 29207}# (append - #{meta 27199}# + #{meta 29208}# (syntax->datum - (map cons #{k 27215}# #{v 27216}#))))) - #{tmp 27211}#) - (let ((#{tmp 27219}# - ($sc-dispatch #{body 27194}# '(any . each-any)))) - (if #{tmp 27219}# + (map cons #{k 29224}# #{v 29225}#))))) + #{tmp 29220}#) + (let ((#{tmp 29228}# + ($sc-dispatch #{body 29203}# '(any . each-any)))) + (if #{tmp 29228}# (@apply - (lambda (#{e1 27223}# #{e2 27224}#) + (lambda (#{e1 29232}# #{e2 29233}#) (values - #{meta 27199}# - #{req 27190}# - #{opt 27191}# - #{rest 27192}# - #{kw 27193}# - #{inits 27198}# - #{vars 27195}# - (#{expand-body 4338}# - (cons #{e1 27223}# #{e2 27224}#) - (#{wrap 4327}# + #{meta 29208}# + #{req 29199}# + #{opt 29200}# + #{rest 29201}# + #{kw 29202}# + #{inits 29207}# + #{vars 29204}# + (#{expand-body 6325}# + (cons #{e1 29232}# #{e2 29233}#) + (#{wrap 6314}# (begin - (if (if (pair? #{e 26033}#) - #{s 26036}# + (if (if (pair? #{e 28042}#) + #{s 28045}# #f) (set-source-properties! - #{e 26033}# - #{s 26036}#)) - #{e 26033}#) - #{w 26035}# - #{mod 26037}#) - #{r* 27196}# - #{w* 27197}# - #{mod 26037}#))) - #{tmp 27219}#) + #{e 28042}# + #{s 28045}#)) + #{e 28042}#) + #{w 28044}# + #{mod 28046}#) + #{r* 29205}# + #{w* 29206}# + #{mod 28046}#))) + #{tmp 29228}#) (syntax-violation #f "source expression failed to match any pattern" - #{body 27194}#)))))))))) - (let ((#{tmp 26045}# - ($sc-dispatch #{clauses 26039}# '()))) - (if #{tmp 26045}# + #{body 29203}#)))))))))) + (let ((#{tmp 28054}# + ($sc-dispatch #{clauses 28048}# '()))) + (if #{tmp 28054}# (@apply (lambda () (values '() #f)) - #{tmp 26045}#) - (let ((#{tmp 26049}# + #{tmp 28054}#) + (let ((#{tmp 28058}# ($sc-dispatch - #{clauses 26039}# + #{clauses 28048}# '((any any . each-any) . #(each (any any . each-any)))))) - (if #{tmp 26049}# + (if #{tmp 28058}# (@apply - (lambda (#{args 26053}# - #{e1 26054}# - #{e2 26055}# - #{args* 26056}# - #{e1* 26057}# - #{e2* 26058}#) + (lambda (#{args 28062}# + #{e1 28063}# + #{e2 28064}# + #{args* 28065}# + #{e1* 28066}# + #{e2* 28067}#) (call-with-values (lambda () - (#{get-formals 26038}# #{args 26053}#)) - (lambda (#{req 26059}# - #{opt 26060}# - #{rest 26061}# - #{kw 26062}#) + (#{get-formals 28047}# #{args 28062}#)) + (lambda (#{req 28068}# + #{opt 28069}# + #{rest 28070}# + #{kw 28071}#) (call-with-values (lambda () - (#{parse-req 26040}# - #{req 26059}# - #{opt 26060}# - #{rest 26061}# - #{kw 26062}# - (cons #{e1 26054}# #{e2 26055}#))) - (lambda (#{meta 26129}# - #{req 26130}# - #{opt 26131}# - #{rest 26132}# - #{kw 26133}# - #{inits 26134}# - #{vars 26135}# - #{body 26136}#) + (#{parse-req 28049}# + #{req 28068}# + #{opt 28069}# + #{rest 28070}# + #{kw 28071}# + (cons #{e1 28063}# #{e2 28064}#))) + (lambda (#{meta 28138}# + #{req 28139}# + #{opt 28140}# + #{rest 28141}# + #{kw 28142}# + #{inits 28143}# + #{vars 28144}# + #{body 28145}#) (call-with-values (lambda () - (#{expand-lambda-case 4346}# - #{e 26033}# - #{r 26034}# - #{w 26035}# - #{s 26036}# - #{mod 26037}# - #{get-formals 26038}# - (map (lambda (#{tmp 2764 26137}# - #{tmp 2763 26138}# - #{tmp 2762 26139}#) - (cons #{tmp 2762 26139}# - (cons #{tmp 2763 26138}# - #{tmp 2764 26137}#))) - #{e2* 26058}# - #{e1* 26057}# - #{args* 26056}#))) - (lambda (#{meta* 26140}# #{else* 26141}#) + (#{expand-lambda-case 6333}# + #{e 28042}# + #{r 28043}# + #{w 28044}# + #{s 28045}# + #{mod 28046}# + #{get-formals 28047}# + (map (lambda (#{tmp 4751 28146}# + #{tmp 4750 28147}# + #{tmp 4749 28148}#) + (cons #{tmp 4749 28148}# + (cons #{tmp 4750 28147}# + #{tmp 4751 28146}#))) + #{e2* 28067}# + #{e1* 28066}# + #{args* 28065}#))) + (lambda (#{meta* 28149}# #{else* 28150}#) (values - (append #{meta 26129}# #{meta* 26140}#) + (append #{meta 28138}# #{meta* 28149}#) (make-struct/no-tail (vector-ref %expanded-vtables 14) - #{s 26036}# - #{req 26130}# - #{opt 26131}# - #{rest 26132}# - #{kw 26133}# - #{inits 26134}# - #{vars 26135}# - #{body 26136}# - #{else* 26141}#))))))))) - #{tmp 26049}#) + #{s 28045}# + #{req 28139}# + #{opt 28140}# + #{rest 28141}# + #{kw 28142}# + #{inits 28143}# + #{vars 28144}# + #{body 28145}# + #{else* 28150}#))))))))) + #{tmp 28058}#) (syntax-violation #f "source expression failed to match any pattern" - #{clauses 26039}#)))))))) - (#{strip 4347}# - (lambda (#{x 27261}# #{w 27262}#) - (if (memq 'top (car #{w 27262}#)) - #{x 27261}# + #{clauses 28048}#)))))))) + (#{strip 6334}# + (lambda (#{x 29270}# #{w 29271}#) + (if (memq 'top (car #{w 29271}#)) + #{x 29270}# (letrec* - ((#{f 27263}# - (lambda (#{x 27266}#) - (if (if (vector? #{x 27266}#) - (if (= (vector-length #{x 27266}#) 4) - (eq? (vector-ref #{x 27266}# 0) 'syntax-object) + ((#{f 29272}# + (lambda (#{x 29275}#) + (if (if (vector? #{x 29275}#) + (if (= (vector-length #{x 29275}#) 4) + (eq? (vector-ref #{x 29275}# 0) 'syntax-object) #f) #f) - (#{strip 4347}# - (vector-ref #{x 27266}# 1) - (vector-ref #{x 27266}# 2)) - (if (pair? #{x 27266}#) - (let ((#{a 27285}# (#{f 27263}# (car #{x 27266}#))) - (#{d 27286}# (#{f 27263}# (cdr #{x 27266}#)))) - (if (if (eq? #{a 27285}# (car #{x 27266}#)) - (eq? #{d 27286}# (cdr #{x 27266}#)) + (#{strip 6334}# + (vector-ref #{x 29275}# 1) + (vector-ref #{x 29275}# 2)) + (if (pair? #{x 29275}#) + (let ((#{a 29294}# (#{f 29272}# (car #{x 29275}#))) + (#{d 29295}# (#{f 29272}# (cdr #{x 29275}#)))) + (if (if (eq? #{a 29294}# (car #{x 29275}#)) + (eq? #{d 29295}# (cdr #{x 29275}#)) #f) - #{x 27266}# - (cons #{a 27285}# #{d 27286}#))) - (if (vector? #{x 27266}#) - (let ((#{old 27289}# (vector->list #{x 27266}#))) - (let ((#{new 27290}# (map #{f 27263}# #{old 27289}#))) + #{x 29275}# + (cons #{a 29294}# #{d 29295}#))) + (if (vector? #{x 29275}#) + (let ((#{old 29298}# (vector->list #{x 29275}#))) + (let ((#{new 29299}# (map #{f 29272}# #{old 29298}#))) (letrec* - ((#{lp 27291}# - (lambda (#{l1 27367}# #{l2 27368}#) - (if (null? #{l1 27367}#) - #{x 27266}# - (if (eq? (car #{l1 27367}#) - (car #{l2 27368}#)) - (#{lp 27291}# - (cdr #{l1 27367}#) - (cdr #{l2 27368}#)) - (list->vector #{new 27290}#)))))) - (#{lp 27291}# #{old 27289}# #{new 27290}#)))) - #{x 27266}#)))))) - (#{f 27263}# #{x 27261}#))))) - (#{gen-var 4348}# - (lambda (#{id 26185}#) - (let ((#{id 26186}# - (if (if (vector? #{id 26185}#) - (if (= (vector-length #{id 26185}#) 4) - (eq? (vector-ref #{id 26185}# 0) 'syntax-object) + ((#{lp 29300}# + (lambda (#{l1 29376}# #{l2 29377}#) + (if (null? #{l1 29376}#) + #{x 29275}# + (if (eq? (car #{l1 29376}#) + (car #{l2 29377}#)) + (#{lp 29300}# + (cdr #{l1 29376}#) + (cdr #{l2 29377}#)) + (list->vector #{new 29299}#)))))) + (#{lp 29300}# #{old 29298}# #{new 29299}#)))) + #{x 29275}#)))))) + (#{f 29272}# #{x 29270}#))))) + (#{gen-var 6335}# + (lambda (#{id 28194}#) + (let ((#{id 28195}# + (if (if (vector? #{id 28194}#) + (if (= (vector-length #{id 28194}#) 4) + (eq? (vector-ref #{id 28194}# 0) 'syntax-object) #f) #f) - (vector-ref #{id 26185}# 1) - #{id 26185}#))) + (vector-ref #{id 28194}# 1) + #{id 28194}#))) (gensym - (string-append (symbol->string #{id 26186}#) " ")))))) + (string-append (symbol->string #{id 28195}#) " ")))))) (begin (module-define! (current-module) @@ -8056,1354 +8073,1357 @@ 'let-syntax 'local-syntax #f)) - (#{global-extend 4300}# + (#{global-extend 6287}# 'core 'fluid-let-syntax - (lambda (#{e 4469}# - #{r 4470}# - #{w 4471}# - #{s 4472}# - #{mod 4473}#) - (let ((#{tmp 4475}# + (lambda (#{e 6456}# + #{r 6457}# + #{w 6458}# + #{s 6459}# + #{mod 6460}#) + (let ((#{tmp 6462}# ($sc-dispatch - #{e 4469}# + #{e 6456}# '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp 4475}# + (if (if #{tmp 6462}# (@apply - (lambda (#{var 4479}# - #{val 4480}# - #{e1 4481}# - #{e2 4482}#) - (#{valid-bound-ids? 4324}# #{var 4479}#)) - #{tmp 4475}#) + (lambda (#{var 6466}# + #{val 6467}# + #{e1 6468}# + #{e2 6469}#) + (#{valid-bound-ids? 6311}# #{var 6466}#)) + #{tmp 6462}#) #f) (@apply - (lambda (#{var 4560}# - #{val 4561}# - #{e1 4562}# - #{e2 4563}#) - (let ((#{names 4564}# - (map (lambda (#{x 4754}#) - (#{id-var-name 4321}# #{x 4754}# #{w 4471}#)) - #{var 4560}#))) + (lambda (#{var 6547}# + #{val 6548}# + #{e1 6549}# + #{e2 6550}#) + (let ((#{names 6551}# + (map (lambda (#{x 6741}#) + (#{id-var-name 6308}# #{x 6741}# #{w 6458}#)) + #{var 6547}#))) (begin (for-each - (lambda (#{id 4565}# #{n 4566}#) - (let ((#{atom-key 4567}# - (car (let ((#{t 4691}# - (assq #{n 4566}# #{r 4470}#))) - (if #{t 4691}# - (cdr #{t 4691}#) - (if (symbol? #{n 4566}#) - (let ((#{t 4696}# + (lambda (#{id 6552}# #{n 6553}#) + (let ((#{atom-key 6554}# + (car (let ((#{t 6678}# + (assq #{n 6553}# #{r 6457}#))) + (if #{t 6678}# + (cdr #{t 6678}#) + (if (symbol? #{n 6553}#) + (let ((#{t 6683}# (begin - (if (if (not #{mod 4473}#) + (if (if (not #{mod 6460}#) (current-module) #f) (warn "module system is booted, we should have a module" - #{n 4566}#)) - (let ((#{v 4733}# + #{n 6553}#)) + (let ((#{v 6720}# (module-variable - (if #{mod 4473}# + (if #{mod 6460}# (resolve-module - (cdr #{mod 4473}#)) + (cdr #{mod 6460}#)) (current-module)) - #{n 4566}#))) - (if #{v 4733}# + #{n 6553}#))) + (if #{v 6720}# (if (variable-bound? - #{v 4733}#) - (let ((#{val 4742}# + #{v 6720}#) + (let ((#{val 6729}# (variable-ref - #{v 4733}#))) + #{v 6720}#))) (if (macro? - #{val 4742}#) + #{val 6729}#) (if (macro-type - #{val 4742}#) + #{val 6729}#) (cons (macro-type - #{val 4742}#) + #{val 6729}#) (macro-binding - #{val 4742}#)) + #{val 6729}#)) #f) #f)) #f) #f))))) - (if #{t 4696}# - #{t 4696}# + (if #{t 6683}# + #{t 6683}# '(global))) '(displaced-lexical))))))) - (if (let ((#{t 4600}# #{atom-key 4567}#)) - (eqv? #{t 4600}# 'displaced-lexical)) + (if (let ((#{t 6587}# #{atom-key 6554}#)) + (eqv? #{t 6587}# 'displaced-lexical)) (syntax-violation 'fluid-let-syntax "identifier out of context" - #{e 4469}# - (#{wrap 4327}# + #{e 6456}# + (#{wrap 6314}# (begin - (if (if (pair? #{id 4565}#) #{s 4472}# #f) + (if (if (pair? #{id 6552}#) #{s 6459}# #f) (set-source-properties! - #{id 4565}# - #{s 4472}#)) - #{id 4565}#) - #{w 4471}# - #{mod 4473}#))))) - #{var 4560}# - #{names 4564}#) - (#{expand-body 4338}# - (cons #{e1 4562}# #{e2 4563}#) - (#{wrap 4327}# + #{id 6552}# + #{s 6459}#)) + #{id 6552}#) + #{w 6458}# + #{mod 6460}#))))) + #{var 6547}# + #{names 6551}#) + (#{expand-body 6325}# + (cons #{e1 6549}# #{e2 6550}#) + (#{wrap 6314}# (begin - (if (if (pair? #{e 4469}#) #{s 4472}# #f) - (set-source-properties! #{e 4469}# #{s 4472}#)) - #{e 4469}#) - #{w 4471}# - #{mod 4473}#) - (#{extend-env 4296}# - #{names 4564}# - (let ((#{trans-r 4840}# - (#{macros-only-env 4298}# #{r 4470}#))) - (map (lambda (#{x 4841}#) + (if (if (pair? #{e 6456}#) #{s 6459}# #f) + (set-source-properties! #{e 6456}# #{s 6459}#)) + #{e 6456}#) + #{w 6458}# + #{mod 6460}#) + (#{extend-env 6283}# + #{names 6551}# + (let ((#{trans-r 6827}# + (#{macros-only-env 6285}# #{r 6457}#))) + (map (lambda (#{x 6828}#) (cons 'macro - (#{eval-local-transformer 4340}# - (#{expand 4334}# - #{x 4841}# - #{trans-r 4840}# - #{w 4471}# - #{mod 4473}#) - #{mod 4473}#))) - #{val 4561}#)) - #{r 4470}#) - #{w 4471}# - #{mod 4473}#)))) - #{tmp 4475}#) + (#{eval-local-transformer 6327}# + (#{expand 6321}# + #{x 6828}# + #{trans-r 6827}# + #{w 6458}# + #{mod 6460}#) + #{mod 6460}#))) + #{val 6548}#)) + #{r 6457}#) + #{w 6458}# + #{mod 6460}#)))) + #{tmp 6462}#) (syntax-violation 'fluid-let-syntax "bad syntax" - (#{wrap 4327}# + (#{wrap 6314}# (begin - (if (if (pair? #{e 4469}#) #{s 4472}# #f) - (set-source-properties! #{e 4469}# #{s 4472}#)) - #{e 4469}#) - #{w 4471}# - #{mod 4473}#)))))) + (if (if (pair? #{e 6456}#) #{s 6459}# #f) + (set-source-properties! #{e 6456}# #{s 6459}#)) + #{e 6456}#) + #{w 6458}# + #{mod 6460}#)))))) (module-define! (current-module) 'quote (make-syntax-transformer 'quote 'core - (lambda (#{e 5050}# - #{r 5051}# - #{w 5052}# - #{s 5053}# - #{mod 5054}#) - (let ((#{tmp 5056}# ($sc-dispatch #{e 5050}# '(_ any)))) - (if #{tmp 5056}# + (lambda (#{e 7037}# + #{r 7038}# + #{w 7039}# + #{s 7040}# + #{mod 7041}#) + (let ((#{tmp 7043}# ($sc-dispatch #{e 7037}# '(_ any)))) + (if #{tmp 7043}# (@apply - (lambda (#{e 5059}#) - (let ((#{exp 5063}# - (#{strip 4347}# #{e 5059}# #{w 5052}#))) + (lambda (#{e 7046}#) + (let ((#{exp 7050}# + (#{strip 6334}# #{e 7046}# #{w 7039}#))) (make-struct/no-tail (vector-ref %expanded-vtables 1) - #{s 5053}# - #{exp 5063}#))) - #{tmp 5056}#) + #{s 7040}# + #{exp 7050}#))) + #{tmp 7043}#) (syntax-violation 'quote "bad syntax" - (#{wrap 4327}# + (#{wrap 6314}# (begin - (if (if (pair? #{e 5050}#) #{s 5053}# #f) - (set-source-properties! #{e 5050}# #{s 5053}#)) - #{e 5050}#) - #{w 5052}# - #{mod 5054}#))))))) - (#{global-extend 4300}# + (if (if (pair? #{e 7037}#) #{s 7040}# #f) + (set-source-properties! #{e 7037}# #{s 7040}#)) + #{e 7037}#) + #{w 7039}# + #{mod 7041}#))))))) + (#{global-extend 6287}# 'core 'syntax (letrec* - ((#{gen-syntax 5290}# - (lambda (#{src 5392}# - #{e 5393}# - #{r 5394}# - #{maps 5395}# - #{ellipsis? 5396}# - #{mod 5397}#) - (if (if (symbol? #{e 5393}#) + ((#{gen-syntax 7277}# + (lambda (#{src 7379}# + #{e 7380}# + #{r 7381}# + #{maps 7382}# + #{ellipsis? 7383}# + #{mod 7384}#) + (if (if (symbol? #{e 7380}#) #t - (if (if (vector? #{e 5393}#) - (if (= (vector-length #{e 5393}#) 4) - (eq? (vector-ref #{e 5393}# 0) 'syntax-object) + (if (if (vector? #{e 7380}#) + (if (= (vector-length #{e 7380}#) 4) + (eq? (vector-ref #{e 7380}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{e 5393}# 1)) + (symbol? (vector-ref #{e 7380}# 1)) #f)) - (let ((#{label 5424}# - (#{id-var-name 4321}# #{e 5393}# '(())))) - (let ((#{b 5425}# - (let ((#{t 5562}# (assq #{label 5424}# #{r 5394}#))) - (if #{t 5562}# - (cdr #{t 5562}#) - (if (symbol? #{label 5424}#) - (let ((#{t 5567}# + (let ((#{label 7411}# + (#{id-var-name 6308}# #{e 7380}# '(())))) + (let ((#{b 7412}# + (let ((#{t 7549}# (assq #{label 7411}# #{r 7381}#))) + (if #{t 7549}# + (cdr #{t 7549}#) + (if (symbol? #{label 7411}#) + (let ((#{t 7554}# (begin - (if (if (not #{mod 5397}#) + (if (if (not #{mod 7384}#) (current-module) #f) (warn "module system is booted, we should have a module" - #{label 5424}#)) - (let ((#{v 5604}# + #{label 7411}#)) + (let ((#{v 7591}# (module-variable - (if #{mod 5397}# + (if #{mod 7384}# (resolve-module - (cdr #{mod 5397}#)) + (cdr #{mod 7384}#)) (current-module)) - #{label 5424}#))) - (if #{v 5604}# - (if (variable-bound? #{v 5604}#) - (let ((#{val 5613}# + #{label 7411}#))) + (if #{v 7591}# + (if (variable-bound? #{v 7591}#) + (let ((#{val 7600}# (variable-ref - #{v 5604}#))) - (if (macro? #{val 5613}#) + #{v 7591}#))) + (if (macro? #{val 7600}#) (if (macro-type - #{val 5613}#) + #{val 7600}#) (cons (macro-type - #{val 5613}#) + #{val 7600}#) (macro-binding - #{val 5613}#)) + #{val 7600}#)) #f) #f)) #f) #f))))) - (if #{t 5567}# #{t 5567}# '(global))) + (if #{t 7554}# #{t 7554}# '(global))) '(displaced-lexical)))))) - (if (eq? (car #{b 5425}#) 'syntax) + (if (eq? (car #{b 7412}#) 'syntax) (call-with-values (lambda () - (let ((#{var.lev 5458}# (cdr #{b 5425}#))) - (#{gen-ref 5291}# - #{src 5392}# - (car #{var.lev 5458}#) - (cdr #{var.lev 5458}#) - #{maps 5395}#))) - (lambda (#{var 5554}# #{maps 5555}#) - (values (list 'ref #{var 5554}#) #{maps 5555}#))) - (if (#{ellipsis? 5396}# #{e 5393}#) + (let ((#{var.lev 7445}# (cdr #{b 7412}#))) + (#{gen-ref 7278}# + #{src 7379}# + (car #{var.lev 7445}#) + (cdr #{var.lev 7445}#) + #{maps 7382}#))) + (lambda (#{var 7541}# #{maps 7542}#) + (values (list 'ref #{var 7541}#) #{maps 7542}#))) + (if (#{ellipsis? 7383}# #{e 7380}#) (syntax-violation 'syntax "misplaced ellipsis" - #{src 5392}#) - (values (list 'quote #{e 5393}#) #{maps 5395}#))))) - (let ((#{tmp 5625}# - ($sc-dispatch #{e 5393}# '(any any)))) - (if (if #{tmp 5625}# + #{src 7379}#) + (values (list 'quote #{e 7380}#) #{maps 7382}#))))) + (let ((#{tmp 7612}# + ($sc-dispatch #{e 7380}# '(any any)))) + (if (if #{tmp 7612}# (@apply - (lambda (#{dots 5629}# #{e 5630}#) - (#{ellipsis? 5396}# #{dots 5629}#)) - #{tmp 5625}#) + (lambda (#{dots 7616}# #{e 7617}#) + (#{ellipsis? 7383}# #{dots 7616}#)) + #{tmp 7612}#) #f) (@apply - (lambda (#{dots 5631}# #{e 5632}#) - (#{gen-syntax 5290}# - #{src 5392}# - #{e 5632}# - #{r 5394}# - #{maps 5395}# - (lambda (#{x 5633}#) #f) - #{mod 5397}#)) - #{tmp 5625}#) - (let ((#{tmp 5634}# - ($sc-dispatch #{e 5393}# '(any any . any)))) - (if (if #{tmp 5634}# + (lambda (#{dots 7618}# #{e 7619}#) + (#{gen-syntax 7277}# + #{src 7379}# + #{e 7619}# + #{r 7381}# + #{maps 7382}# + (lambda (#{x 7620}#) #f) + #{mod 7384}#)) + #{tmp 7612}#) + (let ((#{tmp 7621}# + ($sc-dispatch #{e 7380}# '(any any . any)))) + (if (if #{tmp 7621}# (@apply - (lambda (#{x 5638}# #{dots 5639}# #{y 5640}#) - (#{ellipsis? 5396}# #{dots 5639}#)) - #{tmp 5634}#) + (lambda (#{x 7625}# #{dots 7626}# #{y 7627}#) + (#{ellipsis? 7383}# #{dots 7626}#)) + #{tmp 7621}#) #f) (@apply - (lambda (#{x 5641}# #{dots 5642}# #{y 5643}#) + (lambda (#{x 7628}# #{dots 7629}# #{y 7630}#) (letrec* - ((#{f 5644}# - (lambda (#{y 5652}# #{k 5653}#) - (let ((#{tmp 5655}# + ((#{f 7631}# + (lambda (#{y 7639}# #{k 7640}#) + (let ((#{tmp 7642}# ($sc-dispatch - #{y 5652}# + #{y 7639}# '(any . any)))) - (if (if #{tmp 5655}# + (if (if #{tmp 7642}# (@apply - (lambda (#{dots 5659}# #{y 5660}#) - (#{ellipsis? 5396}# - #{dots 5659}#)) - #{tmp 5655}#) + (lambda (#{dots 7646}# #{y 7647}#) + (#{ellipsis? 7383}# + #{dots 7646}#)) + #{tmp 7642}#) #f) (@apply - (lambda (#{dots 5661}# #{y 5662}#) - (#{f 5644}# - #{y 5662}# - (lambda (#{maps 5663}#) + (lambda (#{dots 7648}# #{y 7649}#) + (#{f 7631}# + #{y 7649}# + (lambda (#{maps 7650}#) (call-with-values (lambda () - (#{k 5653}# - (cons '() #{maps 5663}#))) - (lambda (#{x 5664}# - #{maps 5665}#) - (if (null? (car #{maps 5665}#)) + (#{k 7640}# + (cons '() #{maps 7650}#))) + (lambda (#{x 7651}# + #{maps 7652}#) + (if (null? (car #{maps 7652}#)) (syntax-violation 'syntax "extra ellipsis" - #{src 5392}#) + #{src 7379}#) (values - (let ((#{map-env 5669}# - (car #{maps 5665}#))) + (let ((#{map-env 7656}# + (car #{maps 7652}#))) (list 'apply '(primitive append) - (#{gen-map 5293}# - #{x 5664}# - #{map-env 5669}#))) - (cdr #{maps 5665}#)))))))) - #{tmp 5655}#) + (#{gen-map 7280}# + #{x 7651}# + #{map-env 7656}#))) + (cdr #{maps 7652}#)))))))) + #{tmp 7642}#) (call-with-values (lambda () - (#{gen-syntax 5290}# - #{src 5392}# - #{y 5652}# - #{r 5394}# - #{maps 5395}# - #{ellipsis? 5396}# - #{mod 5397}#)) - (lambda (#{y 5672}# #{maps 5673}#) + (#{gen-syntax 7277}# + #{src 7379}# + #{y 7639}# + #{r 7381}# + #{maps 7382}# + #{ellipsis? 7383}# + #{mod 7384}#)) + (lambda (#{y 7659}# #{maps 7660}#) (call-with-values (lambda () - (#{k 5653}# #{maps 5673}#)) - (lambda (#{x 5674}# #{maps 5675}#) + (#{k 7640}# #{maps 7660}#)) + (lambda (#{x 7661}# #{maps 7662}#) (values - (if (equal? #{y 5672}# ''()) - #{x 5674}# + (if (equal? #{y 7659}# ''()) + #{x 7661}# (list 'append - #{x 5674}# - #{y 5672}#)) - #{maps 5675}#)))))))))) - (#{f 5644}# - #{y 5643}# - (lambda (#{maps 5647}#) + #{x 7661}# + #{y 7659}#)) + #{maps 7662}#)))))))))) + (#{f 7631}# + #{y 7630}# + (lambda (#{maps 7634}#) (call-with-values (lambda () - (#{gen-syntax 5290}# - #{src 5392}# - #{x 5641}# - #{r 5394}# - (cons '() #{maps 5647}#) - #{ellipsis? 5396}# - #{mod 5397}#)) - (lambda (#{x 5648}# #{maps 5649}#) - (if (null? (car #{maps 5649}#)) + (#{gen-syntax 7277}# + #{src 7379}# + #{x 7628}# + #{r 7381}# + (cons '() #{maps 7634}#) + #{ellipsis? 7383}# + #{mod 7384}#)) + (lambda (#{x 7635}# #{maps 7636}#) + (if (null? (car #{maps 7636}#)) (syntax-violation 'syntax "extra ellipsis" - #{src 5392}#) + #{src 7379}#) (values - (#{gen-map 5293}# - #{x 5648}# - (car #{maps 5649}#)) - (cdr #{maps 5649}#))))))))) - #{tmp 5634}#) - (let ((#{tmp 5691}# - ($sc-dispatch #{e 5393}# '(any . any)))) - (if #{tmp 5691}# + (#{gen-map 7280}# + #{x 7635}# + (car #{maps 7636}#)) + (cdr #{maps 7636}#))))))))) + #{tmp 7621}#) + (let ((#{tmp 7678}# + ($sc-dispatch #{e 7380}# '(any . any)))) + (if #{tmp 7678}# (@apply - (lambda (#{x 5695}# #{y 5696}#) + (lambda (#{x 7682}# #{y 7683}#) (call-with-values (lambda () - (#{gen-syntax 5290}# - #{src 5392}# - #{x 5695}# - #{r 5394}# - #{maps 5395}# - #{ellipsis? 5396}# - #{mod 5397}#)) - (lambda (#{x 5697}# #{maps 5698}#) + (#{gen-syntax 7277}# + #{src 7379}# + #{x 7682}# + #{r 7381}# + #{maps 7382}# + #{ellipsis? 7383}# + #{mod 7384}#)) + (lambda (#{x 7684}# #{maps 7685}#) (call-with-values (lambda () - (#{gen-syntax 5290}# - #{src 5392}# - #{y 5696}# - #{r 5394}# - #{maps 5698}# - #{ellipsis? 5396}# - #{mod 5397}#)) - (lambda (#{y 5699}# #{maps 5700}#) + (#{gen-syntax 7277}# + #{src 7379}# + #{y 7683}# + #{r 7381}# + #{maps 7685}# + #{ellipsis? 7383}# + #{mod 7384}#)) + (lambda (#{y 7686}# #{maps 7687}#) (values - (let ((#{atom-key 5705}# - (car #{y 5699}#))) - (if (eqv? #{atom-key 5705}# 'quote) - (if (eq? (car #{x 5697}#) 'quote) + (let ((#{atom-key 7692}# + (car #{y 7686}#))) + (if (eqv? #{atom-key 7692}# 'quote) + (if (eq? (car #{x 7684}#) 'quote) (list 'quote - (cons (car (cdr #{x 5697}#)) - (car (cdr #{y 5699}#)))) - (if (eq? (car (cdr #{y 5699}#)) + (cons (car (cdr #{x 7684}#)) + (car (cdr #{y 7686}#)))) + (if (eq? (car (cdr #{y 7686}#)) '()) - (list 'list #{x 5697}#) + (list 'list #{x 7684}#) (list 'cons - #{x 5697}# - #{y 5699}#))) - (if (eqv? #{atom-key 5705}# 'list) + #{x 7684}# + #{y 7686}#))) + (if (eqv? #{atom-key 7692}# 'list) (cons 'list - (cons #{x 5697}# - (cdr #{y 5699}#))) + (cons #{x 7684}# + (cdr #{y 7686}#))) (list 'cons - #{x 5697}# - #{y 5699}#)))) - #{maps 5700}#)))))) - #{tmp 5691}#) - (let ((#{tmp 5734}# + #{x 7684}# + #{y 7686}#)))) + #{maps 7687}#)))))) + #{tmp 7678}#) + (let ((#{tmp 7721}# ($sc-dispatch - #{e 5393}# + #{e 7380}# '#(vector (any . each-any))))) - (if #{tmp 5734}# + (if #{tmp 7721}# (@apply - (lambda (#{e1 5738}# #{e2 5739}#) + (lambda (#{e1 7725}# #{e2 7726}#) (call-with-values (lambda () - (#{gen-syntax 5290}# - #{src 5392}# - (cons #{e1 5738}# #{e2 5739}#) - #{r 5394}# - #{maps 5395}# - #{ellipsis? 5396}# - #{mod 5397}#)) - (lambda (#{e 5740}# #{maps 5741}#) + (#{gen-syntax 7277}# + #{src 7379}# + (cons #{e1 7725}# #{e2 7726}#) + #{r 7381}# + #{maps 7382}# + #{ellipsis? 7383}# + #{mod 7384}#)) + (lambda (#{e 7727}# #{maps 7728}#) (values - (if (eq? (car #{e 5740}#) 'list) - (cons 'vector (cdr #{e 5740}#)) - (if (eq? (car #{e 5740}#) 'quote) + (if (eq? (car #{e 7727}#) 'list) + (cons 'vector (cdr #{e 7727}#)) + (if (eq? (car #{e 7727}#) 'quote) (list 'quote (list->vector - (car (cdr #{e 5740}#)))) - (list 'list->vector #{e 5740}#))) - #{maps 5741}#)))) - #{tmp 5734}#) + (car (cdr #{e 7727}#)))) + (list 'list->vector #{e 7727}#))) + #{maps 7728}#)))) + #{tmp 7721}#) (values - (list 'quote #{e 5393}#) - #{maps 5395}#)))))))))))) - (#{gen-ref 5291}# - (lambda (#{src 5768}# - #{var 5769}# - #{level 5770}# - #{maps 5771}#) - (if (= #{level 5770}# 0) - (values #{var 5769}# #{maps 5771}#) - (if (null? #{maps 5771}#) + (list 'quote #{e 7380}#) + #{maps 7382}#)))))))))))) + (#{gen-ref 7278}# + (lambda (#{src 7755}# + #{var 7756}# + #{level 7757}# + #{maps 7758}#) + (if (= #{level 7757}# 0) + (values #{var 7756}# #{maps 7758}#) + (if (null? #{maps 7758}#) (syntax-violation 'syntax "missing ellipsis" - #{src 5768}#) + #{src 7755}#) (call-with-values (lambda () - (#{gen-ref 5291}# - #{src 5768}# - #{var 5769}# - (#{1-}# #{level 5770}#) - (cdr #{maps 5771}#))) - (lambda (#{outer-var 5772}# #{outer-maps 5773}#) - (let ((#{b 5774}# - (assq #{outer-var 5772}# (car #{maps 5771}#)))) - (if #{b 5774}# - (values (cdr #{b 5774}#) #{maps 5771}#) - (let ((#{inner-var 5776}# + (#{gen-ref 7278}# + #{src 7755}# + #{var 7756}# + (#{1-}# #{level 7757}#) + (cdr #{maps 7758}#))) + (lambda (#{outer-var 7759}# #{outer-maps 7760}#) + (let ((#{b 7761}# + (assq #{outer-var 7759}# (car #{maps 7758}#)))) + (if #{b 7761}# + (values (cdr #{b 7761}#) #{maps 7758}#) + (let ((#{inner-var 7763}# (gensym (string-append (symbol->string 'tmp) " ")))) (values - #{inner-var 5776}# - (cons (cons (cons #{outer-var 5772}# - #{inner-var 5776}#) - (car #{maps 5771}#)) - #{outer-maps 5773}#))))))))))) - (#{gen-map 5293}# - (lambda (#{e 5790}# #{map-env 5791}#) - (let ((#{formals 5792}# (map cdr #{map-env 5791}#)) - (#{actuals 5793}# - (map (lambda (#{x 5795}#) - (list 'ref (car #{x 5795}#))) - #{map-env 5791}#))) - (if (eq? (car #{e 5790}#) 'ref) - (car #{actuals 5793}#) + #{inner-var 7763}# + (cons (cons (cons #{outer-var 7759}# + #{inner-var 7763}#) + (car #{maps 7758}#)) + #{outer-maps 7760}#))))))))))) + (#{gen-map 7280}# + (lambda (#{e 7777}# #{map-env 7778}#) + (let ((#{formals 7779}# (map cdr #{map-env 7778}#)) + (#{actuals 7780}# + (map (lambda (#{x 7782}#) + (list 'ref (car #{x 7782}#))) + #{map-env 7778}#))) + (if (eq? (car #{e 7777}#) 'ref) + (car #{actuals 7780}#) (if (and-map - (lambda (#{x 5796}#) - (if (eq? (car #{x 5796}#) 'ref) - (memq (car (cdr #{x 5796}#)) #{formals 5792}#) + (lambda (#{x 7783}#) + (if (eq? (car #{x 7783}#) 'ref) + (memq (car (cdr #{x 7783}#)) #{formals 7779}#) #f)) - (cdr #{e 5790}#)) + (cdr #{e 7777}#)) (cons 'map - (cons (list 'primitive (car #{e 5790}#)) - (map (let ((#{r 5798}# + (cons (list 'primitive (car #{e 7777}#)) + (map (let ((#{r 7785}# (map cons - #{formals 5792}# - #{actuals 5793}#))) - (lambda (#{x 5799}#) - (cdr (assq (car (cdr #{x 5799}#)) - #{r 5798}#)))) - (cdr #{e 5790}#)))) + #{formals 7779}# + #{actuals 7780}#))) + (lambda (#{x 7786}#) + (cdr (assq (car (cdr #{x 7786}#)) + #{r 7785}#)))) + (cdr #{e 7777}#)))) (cons 'map - (cons (list 'lambda #{formals 5792}# #{e 5790}#) - #{actuals 5793}#))))))) - (#{regen 5297}# - (lambda (#{x 5801}#) - (let ((#{atom-key 5802}# (car #{x 5801}#))) - (if (eqv? #{atom-key 5802}# 'ref) - (let ((#{name 5812}# (car (cdr #{x 5801}#))) - (#{var 5813}# (car (cdr #{x 5801}#)))) + (cons (list 'lambda #{formals 7779}# #{e 7777}#) + #{actuals 7780}#))))))) + (#{regen 7284}# + (lambda (#{x 7788}#) + (let ((#{atom-key 7789}# (car #{x 7788}#))) + (if (eqv? #{atom-key 7789}# 'ref) + (let ((#{name 7799}# (car (cdr #{x 7788}#))) + (#{var 7800}# (car (cdr #{x 7788}#)))) (make-struct/no-tail (vector-ref %expanded-vtables 3) #f - #{name 5812}# - #{var 5813}#)) - (if (eqv? #{atom-key 5802}# 'primitive) - (let ((#{name 5825}# (car (cdr #{x 5801}#)))) + #{name 7799}# + #{var 7800}#)) + (if (eqv? #{atom-key 7789}# 'primitive) + (let ((#{name 7812}# (car (cdr #{x 7788}#)))) (if (equal? (module-name (current-module)) '(guile)) (make-struct/no-tail (vector-ref %expanded-vtables 7) #f - #{name 5825}#) + #{name 7812}#) (make-struct/no-tail (vector-ref %expanded-vtables 5) #f '(guile) - #{name 5825}# + #{name 7812}# #f))) - (if (eqv? #{atom-key 5802}# 'quote) - (let ((#{exp 5843}# (car (cdr #{x 5801}#)))) + (if (eqv? #{atom-key 7789}# 'quote) + (let ((#{exp 7830}# (car (cdr #{x 7788}#)))) (make-struct/no-tail (vector-ref %expanded-vtables 1) #f - #{exp 5843}#)) - (if (eqv? #{atom-key 5802}# 'lambda) - (if (list? (car (cdr #{x 5801}#))) - (let ((#{req 5854}# (car (cdr #{x 5801}#))) - (#{vars 5856}# (car (cdr #{x 5801}#))) - (#{exp 5858}# - (#{regen 5297}# - (car (cdr (cdr #{x 5801}#)))))) - (let ((#{body 5863}# + #{exp 7830}#)) + (if (eqv? #{atom-key 7789}# 'lambda) + (if (list? (car (cdr #{x 7788}#))) + (let ((#{req 7841}# (car (cdr #{x 7788}#))) + (#{vars 7843}# (car (cdr #{x 7788}#))) + (#{exp 7845}# + (#{regen 7284}# + (car (cdr (cdr #{x 7788}#)))))) + (let ((#{body 7850}# (make-struct/no-tail (vector-ref %expanded-vtables 14) #f - #{req 5854}# + #{req 7841}# #f #f #f '() - #{vars 5856}# - #{exp 5858}# + #{vars 7843}# + #{exp 7845}# #f))) (make-struct/no-tail (vector-ref %expanded-vtables 13) #f '() - #{body 5863}#))) - (error "how did we get here" #{x 5801}#)) - (let ((#{fun-exp 5879}# - (let ((#{name 5888}# (car #{x 5801}#))) + #{body 7850}#))) + (error "how did we get here" #{x 7788}#)) + (let ((#{fun-exp 7866}# + (let ((#{name 7875}# (car #{x 7788}#))) (if (equal? (module-name (current-module)) '(guile)) (make-struct/no-tail (vector-ref %expanded-vtables 7) #f - #{name 5888}#) + #{name 7875}#) (make-struct/no-tail (vector-ref %expanded-vtables 5) #f '(guile) - #{name 5888}# + #{name 7875}# #f)))) - (#{arg-exps 5880}# - (map #{regen 5297}# (cdr #{x 5801}#)))) + (#{arg-exps 7867}# + (map #{regen 7284}# (cdr #{x 7788}#)))) (make-struct/no-tail (vector-ref %expanded-vtables 11) #f - #{fun-exp 5879}# - #{arg-exps 5880}#)))))))))) - (lambda (#{e 5298}# - #{r 5299}# - #{w 5300}# - #{s 5301}# - #{mod 5302}#) - (let ((#{e 5303}# - (#{wrap 4327}# + #{fun-exp 7866}# + #{arg-exps 7867}#)))))))))) + (lambda (#{e 7285}# + #{r 7286}# + #{w 7287}# + #{s 7288}# + #{mod 7289}#) + (let ((#{e 7290}# + (#{wrap 6314}# (begin - (if (if (pair? #{e 5298}#) #{s 5301}# #f) - (set-source-properties! #{e 5298}# #{s 5301}#)) - #{e 5298}#) - #{w 5300}# - #{mod 5302}#))) - (let ((#{tmp 5305}# ($sc-dispatch #{e 5303}# '(_ any)))) - (if #{tmp 5305}# + (if (if (pair? #{e 7285}#) #{s 7288}# #f) + (set-source-properties! #{e 7285}# #{s 7288}#)) + #{e 7285}#) + #{w 7287}# + #{mod 7289}#))) + (let ((#{tmp 7292}# ($sc-dispatch #{e 7290}# '(_ any)))) + (if #{tmp 7292}# (@apply - (lambda (#{x 5330}#) + (lambda (#{x 7317}#) (call-with-values (lambda () - (#{gen-syntax 5290}# - #{e 5303}# - #{x 5330}# - #{r 5299}# + (#{gen-syntax 7277}# + #{e 7290}# + #{x 7317}# + #{r 7286}# '() - #{ellipsis? 4342}# - #{mod 5302}#)) - (lambda (#{e 5384}# #{maps 5385}#) - (#{regen 5297}# #{e 5384}#)))) - #{tmp 5305}#) + #{ellipsis? 6329}# + #{mod 7289}#)) + (lambda (#{e 7371}# #{maps 7372}#) + (#{regen 7284}# #{e 7371}#)))) + #{tmp 7292}#) (syntax-violation 'syntax "bad `syntax' form" - #{e 5303}#))))))) - (#{global-extend 4300}# + #{e 7290}#))))))) + (#{global-extend 6287}# 'core 'lambda - (lambda (#{e 6081}# - #{r 6082}# - #{w 6083}# - #{s 6084}# - #{mod 6085}#) - (let ((#{tmp 6087}# - ($sc-dispatch #{e 6081}# '(_ any any . each-any)))) - (if #{tmp 6087}# + (lambda (#{e 8068}# + #{r 8069}# + #{w 8070}# + #{s 8071}# + #{mod 8072}#) + (let ((#{tmp 8074}# + ($sc-dispatch #{e 8068}# '(_ any any . each-any)))) + (if #{tmp 8074}# (@apply - (lambda (#{args 6091}# #{e1 6092}# #{e2 6093}#) + (lambda (#{args 8078}# #{e1 8079}# #{e2 8080}#) (call-with-values (lambda () - (#{lambda-formals 4343}# #{args 6091}#)) - (lambda (#{req 6096}# - #{opt 6097}# - #{rest 6098}# - #{kw 6099}#) + (#{lambda-formals 6330}# #{args 8078}#)) + (lambda (#{req 8083}# + #{opt 8084}# + #{rest 8085}# + #{kw 8086}#) (letrec* - ((#{lp 6100}# - (lambda (#{body 6103}# #{meta 6104}#) - (let ((#{tmp 6106}# + ((#{lp 8087}# + (lambda (#{body 8090}# #{meta 8091}#) + (let ((#{tmp 8093}# ($sc-dispatch - #{body 6103}# + #{body 8090}# '(any any . each-any)))) - (if (if #{tmp 6106}# + (if (if #{tmp 8093}# (@apply - (lambda (#{docstring 6110}# - #{e1 6111}# - #{e2 6112}#) + (lambda (#{docstring 8097}# + #{e1 8098}# + #{e2 8099}#) (string? - (syntax->datum #{docstring 6110}#))) - #{tmp 6106}#) + (syntax->datum #{docstring 8097}#))) + #{tmp 8093}#) #f) (@apply - (lambda (#{docstring 6113}# - #{e1 6114}# - #{e2 6115}#) - (#{lp 6100}# - (cons #{e1 6114}# #{e2 6115}#) + (lambda (#{docstring 8100}# + #{e1 8101}# + #{e2 8102}#) + (#{lp 8087}# + (cons #{e1 8101}# #{e2 8102}#) (append - #{meta 6104}# + #{meta 8091}# (list (cons 'documentation (syntax->datum - #{docstring 6113}#)))))) - #{tmp 6106}#) - (let ((#{tmp 6116}# + #{docstring 8100}#)))))) + #{tmp 8093}#) + (let ((#{tmp 8103}# ($sc-dispatch - #{body 6103}# + #{body 8090}# '(#(vector #(each (any . any))) any . each-any)))) - (if #{tmp 6116}# + (if #{tmp 8103}# (@apply - (lambda (#{k 6120}# - #{v 6121}# - #{e1 6122}# - #{e2 6123}#) - (#{lp 6100}# - (cons #{e1 6122}# #{e2 6123}#) + (lambda (#{k 8107}# + #{v 8108}# + #{e1 8109}# + #{e2 8110}#) + (#{lp 8087}# + (cons #{e1 8109}# #{e2 8110}#) (append - #{meta 6104}# + #{meta 8091}# (syntax->datum (map cons - #{k 6120}# - #{v 6121}#))))) - #{tmp 6116}#) - (#{expand-simple-lambda 4344}# - #{e 6081}# - #{r 6082}# - #{w 6083}# - #{s 6084}# - #{mod 6085}# - #{req 6096}# - #{rest 6098}# - #{meta 6104}# - #{body 6103}#)))))))) - (#{lp 6100}# (cons #{e1 6092}# #{e2 6093}#) '()))))) - #{tmp 6087}#) + #{k 8107}# + #{v 8108}#))))) + #{tmp 8103}#) + (#{expand-simple-lambda 6331}# + #{e 8068}# + #{r 8069}# + #{w 8070}# + #{s 8071}# + #{mod 8072}# + #{req 8083}# + #{rest 8085}# + #{meta 8091}# + #{body 8090}#)))))))) + (#{lp 8087}# (cons #{e1 8079}# #{e2 8080}#) '()))))) + #{tmp 8074}#) (syntax-violation 'lambda "bad lambda" - #{e 6081}#))))) - (#{global-extend 4300}# + #{e 8068}#))))) + (#{global-extend 6287}# 'core 'lambda* - (lambda (#{e 6414}# - #{r 6415}# - #{w 6416}# - #{s 6417}# - #{mod 6418}#) - (let ((#{tmp 6420}# - ($sc-dispatch #{e 6414}# '(_ any any . each-any)))) - (if #{tmp 6420}# + (lambda (#{e 8401}# + #{r 8402}# + #{w 8403}# + #{s 8404}# + #{mod 8405}#) + (let ((#{tmp 8407}# + ($sc-dispatch #{e 8401}# '(_ any any . each-any)))) + (if #{tmp 8407}# (@apply - (lambda (#{args 6424}# #{e1 6425}# #{e2 6426}#) + (lambda (#{args 8411}# #{e1 8412}# #{e2 8413}#) (call-with-values (lambda () - (#{expand-lambda-case 4346}# - #{e 6414}# - #{r 6415}# - #{w 6416}# - #{s 6417}# - #{mod 6418}# - #{lambda*-formals 4345}# - (list (cons #{args 6424}# - (cons #{e1 6425}# #{e2 6426}#))))) - (lambda (#{meta 6429}# #{lcase 6430}#) + (#{expand-lambda-case 6333}# + #{e 8401}# + #{r 8402}# + #{w 8403}# + #{s 8404}# + #{mod 8405}# + #{lambda*-formals 6332}# + (list (cons #{args 8411}# + (cons #{e1 8412}# #{e2 8413}#))))) + (lambda (#{meta 8416}# #{lcase 8417}#) (make-struct/no-tail (vector-ref %expanded-vtables 13) - #{s 6417}# - #{meta 6429}# - #{lcase 6430}#)))) - #{tmp 6420}#) + #{s 8404}# + #{meta 8416}# + #{lcase 8417}#)))) + #{tmp 8407}#) (syntax-violation 'lambda "bad lambda*" - #{e 6414}#))))) - (#{global-extend 4300}# + #{e 8401}#))))) + (#{global-extend 6287}# 'core 'case-lambda - (lambda (#{e 6600}# - #{r 6601}# - #{w 6602}# - #{s 6603}# - #{mod 6604}#) - (let ((#{tmp 6606}# + (lambda (#{e 8587}# + #{r 8588}# + #{w 8589}# + #{s 8590}# + #{mod 8591}#) + (let ((#{tmp 8593}# ($sc-dispatch - #{e 6600}# + #{e 8587}# '(_ (any any . each-any) . #(each (any any . each-any)))))) - (if #{tmp 6606}# + (if #{tmp 8593}# (@apply - (lambda (#{args 6610}# - #{e1 6611}# - #{e2 6612}# - #{args* 6613}# - #{e1* 6614}# - #{e2* 6615}#) + (lambda (#{args 8597}# + #{e1 8598}# + #{e2 8599}# + #{args* 8600}# + #{e1* 8601}# + #{e2* 8602}#) (call-with-values (lambda () - (#{expand-lambda-case 4346}# - #{e 6600}# - #{r 6601}# - #{w 6602}# - #{s 6603}# - #{mod 6604}# - #{lambda-formals 4343}# - (cons (cons #{args 6610}# - (cons #{e1 6611}# #{e2 6612}#)) - (map (lambda (#{tmp 3263 6618}# - #{tmp 3262 6619}# - #{tmp 3261 6620}#) - (cons #{tmp 3261 6620}# - (cons #{tmp 3262 6619}# - #{tmp 3263 6618}#))) - #{e2* 6615}# - #{e1* 6614}# - #{args* 6613}#)))) - (lambda (#{meta 6621}# #{lcase 6622}#) + (#{expand-lambda-case 6333}# + #{e 8587}# + #{r 8588}# + #{w 8589}# + #{s 8590}# + #{mod 8591}# + #{lambda-formals 6330}# + (cons (cons #{args 8597}# + (cons #{e1 8598}# #{e2 8599}#)) + (map (lambda (#{tmp 5250 8605}# + #{tmp 5249 8606}# + #{tmp 5248 8607}#) + (cons #{tmp 5248 8607}# + (cons #{tmp 5249 8606}# + #{tmp 5250 8605}#))) + #{e2* 8602}# + #{e1* 8601}# + #{args* 8600}#)))) + (lambda (#{meta 8608}# #{lcase 8609}#) (make-struct/no-tail (vector-ref %expanded-vtables 13) - #{s 6603}# - #{meta 6621}# - #{lcase 6622}#)))) - #{tmp 6606}#) + #{s 8590}# + #{meta 8608}# + #{lcase 8609}#)))) + #{tmp 8593}#) (syntax-violation 'case-lambda "bad case-lambda" - #{e 6600}#))))) - (#{global-extend 4300}# + #{e 8587}#))))) + (#{global-extend 6287}# 'core 'case-lambda* - (lambda (#{e 6784}# - #{r 6785}# - #{w 6786}# - #{s 6787}# - #{mod 6788}#) - (let ((#{tmp 6790}# + (lambda (#{e 8771}# + #{r 8772}# + #{w 8773}# + #{s 8774}# + #{mod 8775}#) + (let ((#{tmp 8777}# ($sc-dispatch - #{e 6784}# + #{e 8771}# '(_ (any any . each-any) . #(each (any any . each-any)))))) - (if #{tmp 6790}# + (if #{tmp 8777}# (@apply - (lambda (#{args 6794}# - #{e1 6795}# - #{e2 6796}# - #{args* 6797}# - #{e1* 6798}# - #{e2* 6799}#) + (lambda (#{args 8781}# + #{e1 8782}# + #{e2 8783}# + #{args* 8784}# + #{e1* 8785}# + #{e2* 8786}#) (call-with-values (lambda () - (#{expand-lambda-case 4346}# - #{e 6784}# - #{r 6785}# - #{w 6786}# - #{s 6787}# - #{mod 6788}# - #{lambda*-formals 4345}# - (cons (cons #{args 6794}# - (cons #{e1 6795}# #{e2 6796}#)) - (map (lambda (#{tmp 3298 6802}# - #{tmp 3297 6803}# - #{tmp 3296 6804}#) - (cons #{tmp 3296 6804}# - (cons #{tmp 3297 6803}# - #{tmp 3298 6802}#))) - #{e2* 6799}# - #{e1* 6798}# - #{args* 6797}#)))) - (lambda (#{meta 6805}# #{lcase 6806}#) + (#{expand-lambda-case 6333}# + #{e 8771}# + #{r 8772}# + #{w 8773}# + #{s 8774}# + #{mod 8775}# + #{lambda*-formals 6332}# + (cons (cons #{args 8781}# + (cons #{e1 8782}# #{e2 8783}#)) + (map (lambda (#{tmp 5285 8789}# + #{tmp 5284 8790}# + #{tmp 5283 8791}#) + (cons #{tmp 5283 8791}# + (cons #{tmp 5284 8790}# + #{tmp 5285 8789}#))) + #{e2* 8786}# + #{e1* 8785}# + #{args* 8784}#)))) + (lambda (#{meta 8792}# #{lcase 8793}#) (make-struct/no-tail (vector-ref %expanded-vtables 13) - #{s 6787}# - #{meta 6805}# - #{lcase 6806}#)))) - #{tmp 6790}#) + #{s 8774}# + #{meta 8792}# + #{lcase 8793}#)))) + #{tmp 8777}#) (syntax-violation 'case-lambda "bad case-lambda*" - #{e 6784}#))))) - (#{global-extend 4300}# + #{e 8771}#))))) + (#{global-extend 6287}# 'core 'let (letrec* - ((#{expand-let 6997}# - (lambda (#{e 7146}# - #{r 7147}# - #{w 7148}# - #{s 7149}# - #{mod 7150}# - #{constructor 7151}# - #{ids 7152}# - #{vals 7153}# - #{exps 7154}#) - (if (not (#{valid-bound-ids? 4324}# #{ids 7152}#)) + ((#{expand-let 8984}# + (lambda (#{e 9133}# + #{r 9134}# + #{w 9135}# + #{s 9136}# + #{mod 9137}# + #{constructor 9138}# + #{ids 9139}# + #{vals 9140}# + #{exps 9141}#) + (if (not (#{valid-bound-ids? 6311}# #{ids 9139}#)) (syntax-violation 'let "duplicate bound variable" - #{e 7146}#) - (let ((#{labels 7232}# - (#{gen-labels 4305}# #{ids 7152}#)) - (#{new-vars 7233}# - (map #{gen-var 4348}# #{ids 7152}#))) - (let ((#{nw 7234}# - (#{make-binding-wrap 4316}# - #{ids 7152}# - #{labels 7232}# - #{w 7148}#)) - (#{nr 7235}# - (#{extend-var-env 4297}# - #{labels 7232}# - #{new-vars 7233}# - #{r 7147}#))) - (#{constructor 7151}# - #{s 7149}# - (map syntax->datum #{ids 7152}#) - #{new-vars 7233}# - (map (lambda (#{x 7252}#) - (#{expand 4334}# - #{x 7252}# - #{r 7147}# - #{w 7148}# - #{mod 7150}#)) - #{vals 7153}#) - (#{expand-body 4338}# - #{exps 7154}# - (#{source-wrap 4328}# - #{e 7146}# - #{nw 7234}# - #{s 7149}# - #{mod 7150}#) - #{nr 7235}# - #{nw 7234}# - #{mod 7150}#)))))))) - (lambda (#{e 6998}# - #{r 6999}# - #{w 7000}# - #{s 7001}# - #{mod 7002}#) - (let ((#{tmp 7004}# + #{e 9133}#) + (let ((#{labels 9219}# + (#{gen-labels 6292}# #{ids 9139}#)) + (#{new-vars 9220}# + (map #{gen-var 6335}# #{ids 9139}#))) + (let ((#{nw 9221}# + (#{make-binding-wrap 6303}# + #{ids 9139}# + #{labels 9219}# + #{w 9135}#)) + (#{nr 9222}# + (#{extend-var-env 6284}# + #{labels 9219}# + #{new-vars 9220}# + #{r 9134}#))) + (#{constructor 9138}# + #{s 9136}# + (map syntax->datum #{ids 9139}#) + #{new-vars 9220}# + (map (lambda (#{x 9239}#) + (#{expand 6321}# + #{x 9239}# + #{r 9134}# + #{w 9135}# + #{mod 9137}#)) + #{vals 9140}#) + (#{expand-body 6325}# + #{exps 9141}# + (#{source-wrap 6315}# + #{e 9133}# + #{nw 9221}# + #{s 9136}# + #{mod 9137}#) + #{nr 9222}# + #{nw 9221}# + #{mod 9137}#)))))))) + (lambda (#{e 8985}# + #{r 8986}# + #{w 8987}# + #{s 8988}# + #{mod 8989}#) + (let ((#{tmp 8991}# ($sc-dispatch - #{e 6998}# + #{e 8985}# '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp 7004}# + (if (if #{tmp 8991}# (@apply - (lambda (#{id 7008}# - #{val 7009}# - #{e1 7010}# - #{e2 7011}#) - (and-map #{id? 4302}# #{id 7008}#)) - #{tmp 7004}#) + (lambda (#{id 8995}# + #{val 8996}# + #{e1 8997}# + #{e2 8998}#) + (and-map #{id? 6289}# #{id 8995}#)) + #{tmp 8991}#) #f) (@apply - (lambda (#{id 7027}# - #{val 7028}# - #{e1 7029}# - #{e2 7030}#) - (#{expand-let 6997}# - #{e 6998}# - #{r 6999}# - #{w 7000}# - #{s 7001}# - #{mod 7002}# - #{build-let 4284}# - #{id 7027}# - #{val 7028}# - (cons #{e1 7029}# #{e2 7030}#))) - #{tmp 7004}#) - (let ((#{tmp 7060}# + (lambda (#{id 9014}# + #{val 9015}# + #{e1 9016}# + #{e2 9017}#) + (#{expand-let 8984}# + #{e 8985}# + #{r 8986}# + #{w 8987}# + #{s 8988}# + #{mod 8989}# + #{build-let 6271}# + #{id 9014}# + #{val 9015}# + (cons #{e1 9016}# #{e2 9017}#))) + #{tmp 8991}#) + (let ((#{tmp 9047}# ($sc-dispatch - #{e 6998}# + #{e 8985}# '(_ any #(each (any any)) any . each-any)))) - (if (if #{tmp 7060}# + (if (if #{tmp 9047}# (@apply - (lambda (#{f 7064}# - #{id 7065}# - #{val 7066}# - #{e1 7067}# - #{e2 7068}#) - (if (if (symbol? #{f 7064}#) + (lambda (#{f 9051}# + #{id 9052}# + #{val 9053}# + #{e1 9054}# + #{e2 9055}#) + (if (if (symbol? #{f 9051}#) #t - (if (if (vector? #{f 7064}#) - (if (= (vector-length #{f 7064}#) 4) - (eq? (vector-ref #{f 7064}# 0) + (if (if (vector? #{f 9051}#) + (if (= (vector-length #{f 9051}#) 4) + (eq? (vector-ref #{f 9051}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{f 7064}# 1)) + (symbol? (vector-ref #{f 9051}# 1)) #f)) - (and-map #{id? 4302}# #{id 7065}#) + (and-map #{id? 6289}# #{id 9052}#) #f)) - #{tmp 7060}#) + #{tmp 9047}#) #f) (@apply - (lambda (#{f 7110}# - #{id 7111}# - #{val 7112}# - #{e1 7113}# - #{e2 7114}#) - (#{expand-let 6997}# - #{e 6998}# - #{r 6999}# - #{w 7000}# - #{s 7001}# - #{mod 7002}# - #{build-named-let 4285}# - (cons #{f 7110}# #{id 7111}#) - #{val 7112}# - (cons #{e1 7113}# #{e2 7114}#))) - #{tmp 7060}#) + (lambda (#{f 9097}# + #{id 9098}# + #{val 9099}# + #{e1 9100}# + #{e2 9101}#) + (#{expand-let 8984}# + #{e 8985}# + #{r 8986}# + #{w 8987}# + #{s 8988}# + #{mod 8989}# + #{build-named-let 6272}# + (cons #{f 9097}# #{id 9098}#) + #{val 9099}# + (cons #{e1 9100}# #{e2 9101}#))) + #{tmp 9047}#) (syntax-violation 'let "bad let" - (#{wrap 4327}# + (#{wrap 6314}# (begin - (if (if (pair? #{e 6998}#) #{s 7001}# #f) - (set-source-properties! #{e 6998}# #{s 7001}#)) - #{e 6998}#) - #{w 7000}# - #{mod 7002}#))))))))) - (#{global-extend 4300}# + (if (if (pair? #{e 8985}#) #{s 8988}# #f) + (set-source-properties! #{e 8985}# #{s 8988}#)) + #{e 8985}#) + #{w 8987}# + #{mod 8989}#))))))))) + (#{global-extend 6287}# 'core 'letrec - (lambda (#{e 7694}# - #{r 7695}# - #{w 7696}# - #{s 7697}# - #{mod 7698}#) - (let ((#{tmp 7700}# + (lambda (#{e 9681}# + #{r 9682}# + #{w 9683}# + #{s 9684}# + #{mod 9685}#) + (let ((#{tmp 9687}# ($sc-dispatch - #{e 7694}# + #{e 9681}# '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp 7700}# + (if (if #{tmp 9687}# (@apply - (lambda (#{id 7704}# - #{val 7705}# - #{e1 7706}# - #{e2 7707}#) - (and-map #{id? 4302}# #{id 7704}#)) - #{tmp 7700}#) + (lambda (#{id 9691}# + #{val 9692}# + #{e1 9693}# + #{e2 9694}#) + (and-map #{id? 6289}# #{id 9691}#)) + #{tmp 9687}#) #f) (@apply - (lambda (#{id 7723}# - #{val 7724}# - #{e1 7725}# - #{e2 7726}#) - (if (not (#{valid-bound-ids? 4324}# #{id 7723}#)) + (lambda (#{id 9710}# + #{val 9711}# + #{e1 9712}# + #{e2 9713}#) + (if (not (#{valid-bound-ids? 6311}# #{id 9710}#)) (syntax-violation 'letrec "duplicate bound variable" - #{e 7694}#) - (let ((#{labels 7816}# - (#{gen-labels 4305}# #{id 7723}#)) - (#{new-vars 7817}# - (map #{gen-var 4348}# #{id 7723}#))) - (let ((#{w 7818}# - (#{make-binding-wrap 4316}# - #{id 7723}# - #{labels 7816}# - #{w 7696}#)) - (#{r 7819}# - (#{extend-var-env 4297}# - #{labels 7816}# - #{new-vars 7817}# - #{r 7695}#))) - (#{build-letrec 4286}# - #{s 7697}# + #{e 9681}#) + (let ((#{labels 9803}# + (#{gen-labels 6292}# #{id 9710}#)) + (#{new-vars 9804}# + (map #{gen-var 6335}# #{id 9710}#))) + (let ((#{w 9805}# + (#{make-binding-wrap 6303}# + #{id 9710}# + #{labels 9803}# + #{w 9683}#)) + (#{r 9806}# + (#{extend-var-env 6284}# + #{labels 9803}# + #{new-vars 9804}# + #{r 9682}#))) + (#{build-letrec 6273}# + #{s 9684}# #f - (map syntax->datum #{id 7723}#) - #{new-vars 7817}# - (map (lambda (#{x 7906}#) - (#{expand 4334}# - #{x 7906}# - #{r 7819}# - #{w 7818}# - #{mod 7698}#)) - #{val 7724}#) - (#{expand-body 4338}# - (cons #{e1 7725}# #{e2 7726}#) - (#{wrap 4327}# + (map syntax->datum #{id 9710}#) + #{new-vars 9804}# + (map (lambda (#{x 9893}#) + (#{expand 6321}# + #{x 9893}# + #{r 9806}# + #{w 9805}# + #{mod 9685}#)) + #{val 9711}#) + (#{expand-body 6325}# + (cons #{e1 9712}# #{e2 9713}#) + (#{wrap 6314}# (begin - (if (if (pair? #{e 7694}#) #{s 7697}# #f) - (set-source-properties! #{e 7694}# #{s 7697}#)) - #{e 7694}#) - #{w 7818}# - #{mod 7698}#) - #{r 7819}# - #{w 7818}# - #{mod 7698}#)))))) - #{tmp 7700}#) + (if (if (pair? #{e 9681}#) #{s 9684}# #f) + (set-source-properties! #{e 9681}# #{s 9684}#)) + #{e 9681}#) + #{w 9805}# + #{mod 9685}#) + #{r 9806}# + #{w 9805}# + #{mod 9685}#)))))) + #{tmp 9687}#) (syntax-violation 'letrec "bad letrec" - (#{wrap 4327}# + (#{wrap 6314}# (begin - (if (if (pair? #{e 7694}#) #{s 7697}# #f) - (set-source-properties! #{e 7694}# #{s 7697}#)) - #{e 7694}#) - #{w 7696}# - #{mod 7698}#)))))) - (#{global-extend 4300}# + (if (if (pair? #{e 9681}#) #{s 9684}# #f) + (set-source-properties! #{e 9681}# #{s 9684}#)) + #{e 9681}#) + #{w 9683}# + #{mod 9685}#)))))) + (#{global-extend 6287}# 'core 'letrec* - (lambda (#{e 8323}# - #{r 8324}# - #{w 8325}# - #{s 8326}# - #{mod 8327}#) - (let ((#{tmp 8329}# + (lambda (#{e 10310}# + #{r 10311}# + #{w 10312}# + #{s 10313}# + #{mod 10314}#) + (let ((#{tmp 10316}# ($sc-dispatch - #{e 8323}# + #{e 10310}# '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp 8329}# + (if (if #{tmp 10316}# (@apply - (lambda (#{id 8333}# - #{val 8334}# - #{e1 8335}# - #{e2 8336}#) - (and-map #{id? 4302}# #{id 8333}#)) - #{tmp 8329}#) + (lambda (#{id 10320}# + #{val 10321}# + #{e1 10322}# + #{e2 10323}#) + (and-map #{id? 6289}# #{id 10320}#)) + #{tmp 10316}#) #f) (@apply - (lambda (#{id 8352}# - #{val 8353}# - #{e1 8354}# - #{e2 8355}#) - (if (not (#{valid-bound-ids? 4324}# #{id 8352}#)) + (lambda (#{id 10339}# + #{val 10340}# + #{e1 10341}# + #{e2 10342}#) + (if (not (#{valid-bound-ids? 6311}# #{id 10339}#)) (syntax-violation 'letrec* "duplicate bound variable" - #{e 8323}#) - (let ((#{labels 8445}# - (#{gen-labels 4305}# #{id 8352}#)) - (#{new-vars 8446}# - (map #{gen-var 4348}# #{id 8352}#))) - (let ((#{w 8447}# - (#{make-binding-wrap 4316}# - #{id 8352}# - #{labels 8445}# - #{w 8325}#)) - (#{r 8448}# - (#{extend-var-env 4297}# - #{labels 8445}# - #{new-vars 8446}# - #{r 8324}#))) - (#{build-letrec 4286}# - #{s 8326}# + #{e 10310}#) + (let ((#{labels 10432}# + (#{gen-labels 6292}# #{id 10339}#)) + (#{new-vars 10433}# + (map #{gen-var 6335}# #{id 10339}#))) + (let ((#{w 10434}# + (#{make-binding-wrap 6303}# + #{id 10339}# + #{labels 10432}# + #{w 10312}#)) + (#{r 10435}# + (#{extend-var-env 6284}# + #{labels 10432}# + #{new-vars 10433}# + #{r 10311}#))) + (#{build-letrec 6273}# + #{s 10313}# #t - (map syntax->datum #{id 8352}#) - #{new-vars 8446}# - (map (lambda (#{x 8535}#) - (#{expand 4334}# - #{x 8535}# - #{r 8448}# - #{w 8447}# - #{mod 8327}#)) - #{val 8353}#) - (#{expand-body 4338}# - (cons #{e1 8354}# #{e2 8355}#) - (#{wrap 4327}# + (map syntax->datum #{id 10339}#) + #{new-vars 10433}# + (map (lambda (#{x 10522}#) + (#{expand 6321}# + #{x 10522}# + #{r 10435}# + #{w 10434}# + #{mod 10314}#)) + #{val 10340}#) + (#{expand-body 6325}# + (cons #{e1 10341}# #{e2 10342}#) + (#{wrap 6314}# (begin - (if (if (pair? #{e 8323}#) #{s 8326}# #f) - (set-source-properties! #{e 8323}# #{s 8326}#)) - #{e 8323}#) - #{w 8447}# - #{mod 8327}#) - #{r 8448}# - #{w 8447}# - #{mod 8327}#)))))) - #{tmp 8329}#) + (if (if (pair? #{e 10310}#) #{s 10313}# #f) + (set-source-properties! + #{e 10310}# + #{s 10313}#)) + #{e 10310}#) + #{w 10434}# + #{mod 10314}#) + #{r 10435}# + #{w 10434}# + #{mod 10314}#)))))) + #{tmp 10316}#) (syntax-violation 'letrec* "bad letrec*" - (#{wrap 4327}# + (#{wrap 6314}# (begin - (if (if (pair? #{e 8323}#) #{s 8326}# #f) - (set-source-properties! #{e 8323}# #{s 8326}#)) - #{e 8323}#) - #{w 8325}# - #{mod 8327}#)))))) - (#{global-extend 4300}# + (if (if (pair? #{e 10310}#) #{s 10313}# #f) + (set-source-properties! #{e 10310}# #{s 10313}#)) + #{e 10310}#) + #{w 10312}# + #{mod 10314}#)))))) + (#{global-extend 6287}# 'core 'set! - (lambda (#{e 8994}# - #{r 8995}# - #{w 8996}# - #{s 8997}# - #{mod 8998}#) - (let ((#{tmp 9000}# - ($sc-dispatch #{e 8994}# '(_ any any)))) - (if (if #{tmp 9000}# + (lambda (#{e 10981}# + #{r 10982}# + #{w 10983}# + #{s 10984}# + #{mod 10985}#) + (let ((#{tmp 10987}# + ($sc-dispatch #{e 10981}# '(_ any any)))) + (if (if #{tmp 10987}# (@apply - (lambda (#{id 9004}# #{val 9005}#) - (if (symbol? #{id 9004}#) + (lambda (#{id 10991}# #{val 10992}#) + (if (symbol? #{id 10991}#) #t - (if (if (vector? #{id 9004}#) - (if (= (vector-length #{id 9004}#) 4) - (eq? (vector-ref #{id 9004}# 0) 'syntax-object) + (if (if (vector? #{id 10991}#) + (if (= (vector-length #{id 10991}#) 4) + (eq? (vector-ref #{id 10991}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{id 9004}# 1)) + (symbol? (vector-ref #{id 10991}# 1)) #f))) - #{tmp 9000}#) + #{tmp 10987}#) #f) (@apply - (lambda (#{id 9032}# #{val 9033}#) - (let ((#{n 9034}# - (#{id-var-name 4321}# #{id 9032}# #{w 8996}#)) - (#{id-mod 9035}# - (if (if (vector? #{id 9032}#) - (if (= (vector-length #{id 9032}#) 4) - (eq? (vector-ref #{id 9032}# 0) 'syntax-object) + (lambda (#{id 11019}# #{val 11020}#) + (let ((#{n 11021}# + (#{id-var-name 6308}# #{id 11019}# #{w 10983}#)) + (#{id-mod 11022}# + (if (if (vector? #{id 11019}#) + (if (= (vector-length #{id 11019}#) 4) + (eq? (vector-ref #{id 11019}# 0) + 'syntax-object) #f) #f) - (vector-ref #{id 9032}# 3) - #{mod 8998}#))) - (let ((#{b 9036}# - (let ((#{t 9698}# (assq #{n 9034}# #{r 8995}#))) - (if #{t 9698}# - (cdr #{t 9698}#) - (if (symbol? #{n 9034}#) - (let ((#{t 9703}# + (vector-ref #{id 11019}# 3) + #{mod 10985}#))) + (let ((#{b 11023}# + (let ((#{t 11685}# (assq #{n 11021}# #{r 10982}#))) + (if #{t 11685}# + (cdr #{t 11685}#) + (if (symbol? #{n 11021}#) + (let ((#{t 11690}# (begin - (if (if (not #{id-mod 9035}#) + (if (if (not #{id-mod 11022}#) (current-module) #f) (warn "module system is booted, we should have a module" - #{n 9034}#)) - (let ((#{v 9740}# + #{n 11021}#)) + (let ((#{v 11727}# (module-variable - (if #{id-mod 9035}# + (if #{id-mod 11022}# (resolve-module - (cdr #{id-mod 9035}#)) + (cdr #{id-mod 11022}#)) (current-module)) - #{n 9034}#))) - (if #{v 9740}# - (if (variable-bound? #{v 9740}#) - (let ((#{val 9749}# + #{n 11021}#))) + (if #{v 11727}# + (if (variable-bound? #{v 11727}#) + (let ((#{val 11736}# (variable-ref - #{v 9740}#))) - (if (macro? #{val 9749}#) + #{v 11727}#))) + (if (macro? #{val 11736}#) (if (macro-type - #{val 9749}#) + #{val 11736}#) (cons (macro-type - #{val 9749}#) + #{val 11736}#) (macro-binding - #{val 9749}#)) + #{val 11736}#)) #f) #f)) #f) #f))))) - (if #{t 9703}# #{t 9703}# '(global))) + (if #{t 11690}# #{t 11690}# '(global))) '(displaced-lexical)))))) - (let ((#{atom-key 9037}# (car #{b 9036}#))) - (if (let ((#{t 9069}# #{atom-key 9037}#)) - (eqv? #{t 9069}# 'lexical)) - (#{build-lexical-assignment 4273}# - #{s 8997}# - (syntax->datum #{id 9032}#) - (cdr #{b 9036}#) - (#{expand 4334}# - #{val 9033}# - #{r 8995}# - #{w 8996}# - #{mod 8998}#)) - (if (let ((#{t 9344}# #{atom-key 9037}#)) - (eqv? #{t 9344}# 'global)) - (#{build-global-assignment 4276}# - #{s 8997}# - #{n 9034}# - (#{expand 4334}# - #{val 9033}# - #{r 8995}# - #{w 8996}# - #{mod 8998}#) - #{id-mod 9035}#) - (if (let ((#{t 9589}# #{atom-key 9037}#)) - (eqv? #{t 9589}# 'macro)) - (let ((#{p 9652}# (cdr #{b 9036}#))) + (let ((#{atom-key 11024}# (car #{b 11023}#))) + (if (let ((#{t 11056}# #{atom-key 11024}#)) + (eqv? #{t 11056}# 'lexical)) + (#{build-lexical-assignment 6260}# + #{s 10984}# + (syntax->datum #{id 11019}#) + (cdr #{b 11023}#) + (#{expand 6321}# + #{val 11020}# + #{r 10982}# + #{w 10983}# + #{mod 10985}#)) + (if (let ((#{t 11331}# #{atom-key 11024}#)) + (eqv? #{t 11331}# 'global)) + (#{build-global-assignment 6263}# + #{s 10984}# + #{n 11021}# + (#{expand 6321}# + #{val 11020}# + #{r 10982}# + #{w 10983}# + #{mod 10985}#) + #{id-mod 11022}#) + (if (let ((#{t 11576}# #{atom-key 11024}#)) + (eqv? #{t 11576}# 'macro)) + (let ((#{p 11639}# (cdr #{b 11023}#))) (if (procedure-property - #{p 9652}# + #{p 11639}# 'variable-transformer) - (#{expand 4334}# - (#{expand-macro 4337}# - #{p 9652}# - #{e 8994}# - #{r 8995}# - #{w 8996}# - #{s 8997}# + (#{expand 6321}# + (#{expand-macro 6324}# + #{p 11639}# + #{e 10981}# + #{r 10982}# + #{w 10983}# + #{s 10984}# #f - #{mod 8998}#) - #{r 8995}# + #{mod 10985}#) + #{r 10982}# '(()) - #{mod 8998}#) + #{mod 10985}#) (syntax-violation 'set! "not a variable transformer" - (#{wrap 4327}# - #{e 8994}# - #{w 8996}# - #{mod 8998}#) - (#{wrap 4327}# - #{id 9032}# - #{w 8996}# - #{id-mod 9035}#)))) - (if (eqv? #{atom-key 9037}# 'displaced-lexical) + (#{wrap 6314}# + #{e 10981}# + #{w 10983}# + #{mod 10985}#) + (#{wrap 6314}# + #{id 11019}# + #{w 10983}# + #{id-mod 11022}#)))) + (if (eqv? #{atom-key 11024}# 'displaced-lexical) (syntax-violation 'set! "identifier out of context" - (#{wrap 4327}# - #{id 9032}# - #{w 8996}# - #{mod 8998}#)) + (#{wrap 6314}# + #{id 11019}# + #{w 10983}# + #{mod 10985}#)) (syntax-violation 'set! "bad set!" - (#{wrap 4327}# + (#{wrap 6314}# (begin - (if (if (pair? #{e 8994}#) #{s 8997}# #f) + (if (if (pair? #{e 10981}#) #{s 10984}# #f) (set-source-properties! - #{e 8994}# - #{s 8997}#)) - #{e 8994}#) - #{w 8996}# - #{mod 8998}#)))))))))) - #{tmp 9000}#) - (let ((#{tmp 9845}# + #{e 10981}# + #{s 10984}#)) + #{e 10981}#) + #{w 10983}# + #{mod 10985}#)))))))))) + #{tmp 10987}#) + (let ((#{tmp 11832}# ($sc-dispatch - #{e 8994}# + #{e 10981}# '(_ (any . each-any) any)))) - (if #{tmp 9845}# + (if #{tmp 11832}# (@apply - (lambda (#{head 9849}# #{tail 9850}# #{val 9851}#) + (lambda (#{head 11836}# #{tail 11837}# #{val 11838}#) (call-with-values (lambda () - (#{syntax-type 4333}# - #{head 9849}# - #{r 8995}# + (#{syntax-type 6320}# + #{head 11836}# + #{r 10982}# '(()) #f #f - #{mod 8998}# + #{mod 10985}# #t)) - (lambda (#{type 9854}# - #{value 9855}# - #{ee 9856}# - #{ww 9857}# - #{ss 9858}# - #{modmod 9859}#) - (if (eqv? #{type 9854}# 'module-ref) - (let ((#{val 9863}# - (#{expand 4334}# - #{val 9851}# - #{r 8995}# - #{w 8996}# - #{mod 8998}#))) + (lambda (#{type 11841}# + #{value 11842}# + #{ee 11843}# + #{ww 11844}# + #{ss 11845}# + #{modmod 11846}#) + (if (eqv? #{type 11841}# 'module-ref) + (let ((#{val 11850}# + (#{expand 6321}# + #{val 11838}# + #{r 10982}# + #{w 10983}# + #{mod 10985}#))) (call-with-values (lambda () - (#{value 9855}# - (cons #{head 9849}# #{tail 9850}#) - #{r 8995}# - #{w 8996}#)) - (lambda (#{e 9864}# - #{r 9865}# - #{w 9866}# - #{s* 9867}# - #{mod 9868}#) - (let ((#{tmp 9870}# (list #{e 9864}#))) + (#{value 11842}# + (cons #{head 11836}# #{tail 11837}#) + #{r 10982}# + #{w 10983}#)) + (lambda (#{e 11851}# + #{r 11852}# + #{w 11853}# + #{s* 11854}# + #{mod 11855}#) + (let ((#{tmp 11857}# (list #{e 11851}#))) (if (@apply - (lambda (#{e 9872}#) - (if (symbol? #{e 9872}#) + (lambda (#{e 11859}#) + (if (symbol? #{e 11859}#) #t - (if (if (vector? #{e 9872}#) + (if (if (vector? #{e 11859}#) (if (= (vector-length - #{e 9872}#) + #{e 11859}#) 4) (eq? (vector-ref - #{e 9872}# + #{e 11859}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{e 9872}# 1)) + (vector-ref #{e 11859}# 1)) #f))) - #{tmp 9870}#) + #{tmp 11857}#) (@apply - (lambda (#{e 9902}#) - (#{build-global-assignment 4276}# - #{s 8997}# - (syntax->datum #{e 9902}#) - #{val 9863}# - #{mod 9868}#)) - #{tmp 9870}#) + (lambda (#{e 11889}#) + (#{build-global-assignment 6263}# + #{s 10984}# + (syntax->datum #{e 11889}#) + #{val 11850}# + #{mod 11855}#)) + #{tmp 11857}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 9864}#)))))) - (#{build-application 4269}# - #{s 8997}# - (let ((#{e 10127}# + #{e 11851}#)))))) + (#{build-application 6256}# + #{s 10984}# + (let ((#{e 12114}# (list '#(syntax-object setter ((top) @@ -9417,16 +9437,16 @@ (top) (top) (top)) - #("i3544" - "i3545" - "i3546" - "i3547" - "i3548" - "i3549")) + #("i5531" + "i5532" + "i5533" + "i5534" + "i5535" + "i5536")) #(ribcage #(head tail val) #((top) (top) (top)) - #("i3530" "i3531" "i3532")) + #("i5517" "i5518" "i5519")) #(ribcage () () ()) #(ribcage #(e r w s mod) @@ -9435,11 +9455,11 @@ (top) (top) (top)) - #("i3494" - "i3495" - "i3496" - "i3497" - "i3498")) + #("i5481" + "i5482" + "i5483" + "i5484" + "i5485")) #(ribcage (lambda-var-list gen-var @@ -9713,246 +9733,246 @@ (top) (top) (top)) - ("i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i398" - "i396" - "i393" - "i392" - "i391" - "i389" - "i388" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i369" - "i367" - "i366" - "i364" - "i362" - "i360" - "i358" - "i357" - "i356" - "i355" - "i353" - "i352" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i336" - "i335" - "i333" - "i331" - "i330" - "i327" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i260" - "i257" - "i255" - "i254" - "i253" - "i252" - "i251" - "i249" - "i247" - "i245" - "i242" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208")) + ("i2454" + "i2452" + "i2450" + "i2448" + "i2446" + "i2444" + "i2442" + "i2440" + "i2438" + "i2436" + "i2434" + "i2432" + "i2430" + "i2428" + "i2426" + "i2424" + "i2422" + "i2420" + "i2418" + "i2416" + "i2414" + "i2412" + "i2410" + "i2408" + "i2406" + "i2404" + "i2402" + "i2400" + "i2398" + "i2396" + "i2394" + "i2392" + "i2390" + "i2388" + "i2386" + "i2385" + "i2383" + "i2380" + "i2379" + "i2378" + "i2376" + "i2375" + "i2373" + "i2371" + "i2369" + "i2367" + "i2365" + "i2363" + "i2361" + "i2359" + "i2356" + "i2354" + "i2353" + "i2351" + "i2349" + "i2347" + "i2345" + "i2344" + "i2343" + "i2342" + "i2340" + "i2339" + "i2336" + "i2334" + "i2332" + "i2330" + "i2328" + "i2326" + "i2324" + "i2323" + "i2322" + "i2320" + "i2318" + "i2317" + "i2314" + "i2313" + "i2311" + "i2309" + "i2307" + "i2305" + "i2303" + "i2301" + "i2299" + "i2297" + "i2295" + "i2292" + "i2290" + "i2288" + "i2286" + "i2284" + "i2282" + "i2280" + "i2278" + "i2276" + "i2274" + "i2272" + "i2270" + "i2268" + "i2266" + "i2264" + "i2262" + "i2260" + "i2258" + "i2256" + "i2254" + "i2252" + "i2250" + "i2248" + "i2247" + "i2244" + "i2242" + "i2241" + "i2240" + "i2239" + "i2238" + "i2236" + "i2234" + "i2232" + "i2229" + "i2227" + "i2225" + "i2223" + "i2221" + "i2219" + "i2217" + "i2215" + "i2213" + "i2211" + "i2209" + "i2207" + "i2205" + "i2203" + "i2201" + "i2199" + "i2197" + "i2195")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i46" "i45" "i44"))) + ("i2033" "i2032" "i2031"))) (hygiene guile)) - #{head 9849}#))) + #{head 11836}#))) (call-with-values (lambda () - (#{syntax-type 4333}# - #{e 10127}# - #{r 8995}# - #{w 8996}# - (#{source-annotation 4295}# #{e 10127}#) + (#{syntax-type 6320}# + #{e 12114}# + #{r 10982}# + #{w 10983}# + (#{source-annotation 6282}# #{e 12114}#) #f - #{mod 8998}# + #{mod 10985}# #f)) - (lambda (#{type 10134}# - #{value 10135}# - #{e 10136}# - #{w 10137}# - #{s 10138}# - #{mod 10139}#) - (#{expand-expr 4335}# - #{type 10134}# - #{value 10135}# - #{e 10136}# - #{r 8995}# - #{w 10137}# - #{s 10138}# - #{mod 10139}#)))) - (map (lambda (#{e 10143}#) + (lambda (#{type 12121}# + #{value 12122}# + #{e 12123}# + #{w 12124}# + #{s 12125}# + #{mod 12126}#) + (#{expand-expr 6322}# + #{type 12121}# + #{value 12122}# + #{e 12123}# + #{r 10982}# + #{w 12124}# + #{s 12125}# + #{mod 12126}#)))) + (map (lambda (#{e 12130}#) (call-with-values (lambda () - (#{syntax-type 4333}# - #{e 10143}# - #{r 8995}# - #{w 8996}# - (#{source-annotation 4295}# - #{e 10143}#) + (#{syntax-type 6320}# + #{e 12130}# + #{r 10982}# + #{w 10983}# + (#{source-annotation 6282}# + #{e 12130}#) #f - #{mod 8998}# + #{mod 10985}# #f)) - (lambda (#{type 10158}# - #{value 10159}# - #{e 10160}# - #{w 10161}# - #{s 10162}# - #{mod 10163}#) - (#{expand-expr 4335}# - #{type 10158}# - #{value 10159}# - #{e 10160}# - #{r 8995}# - #{w 10161}# - #{s 10162}# - #{mod 10163}#)))) + (lambda (#{type 12145}# + #{value 12146}# + #{e 12147}# + #{w 12148}# + #{s 12149}# + #{mod 12150}#) + (#{expand-expr 6322}# + #{type 12145}# + #{value 12146}# + #{e 12147}# + #{r 10982}# + #{w 12148}# + #{s 12149}# + #{mod 12150}#)))) (append - #{tail 9850}# - (list #{val 9851}#)))))))) - #{tmp 9845}#) + #{tail 11837}# + (list #{val 11838}#)))))))) + #{tmp 11832}#) (syntax-violation 'set! "bad set!" - (#{wrap 4327}# + (#{wrap 6314}# (begin - (if (if (pair? #{e 8994}#) #{s 8997}# #f) - (set-source-properties! #{e 8994}# #{s 8997}#)) - #{e 8994}#) - #{w 8996}# - #{mod 8998}#)))))))) + (if (if (pair? #{e 10981}#) #{s 10984}# #f) + (set-source-properties! #{e 10981}# #{s 10984}#)) + #{e 10981}#) + #{w 10983}# + #{mod 10985}#)))))))) (module-define! (current-module) '@ (make-syntax-transformer '@ 'module-ref - (lambda (#{e 10206}# #{r 10207}# #{w 10208}#) - (let ((#{tmp 10210}# - ($sc-dispatch #{e 10206}# '(_ each-any any)))) - (if (if #{tmp 10210}# + (lambda (#{e 12193}# #{r 12194}# #{w 12195}#) + (let ((#{tmp 12197}# + ($sc-dispatch #{e 12193}# '(_ each-any any)))) + (if (if #{tmp 12197}# (@apply - (lambda (#{mod 10213}# #{id 10214}#) - (if (and-map #{id? 4302}# #{mod 10213}#) - (if (symbol? #{id 10214}#) + (lambda (#{mod 12200}# #{id 12201}#) + (if (and-map #{id? 6289}# #{mod 12200}#) + (if (symbol? #{id 12201}#) #t - (if (if (vector? #{id 10214}#) - (if (= (vector-length #{id 10214}#) 4) - (eq? (vector-ref #{id 10214}# 0) + (if (if (vector? #{id 12201}#) + (if (= (vector-length #{id 12201}#) 4) + (eq? (vector-ref #{id 12201}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{id 10214}# 1)) + (symbol? (vector-ref #{id 12201}# 1)) #f)) #f)) - #{tmp 10210}#) + #{tmp 12197}#) #f) (@apply - (lambda (#{mod 10254}# #{id 10255}#) + (lambda (#{mod 12241}# #{id 12242}#) (values - (syntax->datum #{id 10255}#) - #{r 10207}# - #{w 10208}# + (syntax->datum #{id 12242}#) + #{r 12194}# + #{w 12195}# #f (syntax->datum (cons '#(syntax-object @@ -9961,12 +9981,12 @@ #(ribcage #(mod id) #((top) (top)) - #("i3591" "i3592")) + #("i5578" "i5579")) #(ribcage () () ()) #(ribcage #(e r w) #((top) (top) (top)) - #("i3579" "i3580" "i3581")) + #("i5566" "i5567" "i5568")) #(ribcage (lambda-var-list gen-var @@ -10240,213 +10260,213 @@ (top) (top) (top)) - ("i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i398" - "i396" - "i393" - "i392" - "i391" - "i389" - "i388" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i369" - "i367" - "i366" - "i364" - "i362" - "i360" - "i358" - "i357" - "i356" - "i355" - "i353" - "i352" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i336" - "i335" - "i333" - "i331" - "i330" - "i327" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i260" - "i257" - "i255" - "i254" - "i253" - "i252" - "i251" - "i249" - "i247" - "i245" - "i242" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208")) + ("i2454" + "i2452" + "i2450" + "i2448" + "i2446" + "i2444" + "i2442" + "i2440" + "i2438" + "i2436" + "i2434" + "i2432" + "i2430" + "i2428" + "i2426" + "i2424" + "i2422" + "i2420" + "i2418" + "i2416" + "i2414" + "i2412" + "i2410" + "i2408" + "i2406" + "i2404" + "i2402" + "i2400" + "i2398" + "i2396" + "i2394" + "i2392" + "i2390" + "i2388" + "i2386" + "i2385" + "i2383" + "i2380" + "i2379" + "i2378" + "i2376" + "i2375" + "i2373" + "i2371" + "i2369" + "i2367" + "i2365" + "i2363" + "i2361" + "i2359" + "i2356" + "i2354" + "i2353" + "i2351" + "i2349" + "i2347" + "i2345" + "i2344" + "i2343" + "i2342" + "i2340" + "i2339" + "i2336" + "i2334" + "i2332" + "i2330" + "i2328" + "i2326" + "i2324" + "i2323" + "i2322" + "i2320" + "i2318" + "i2317" + "i2314" + "i2313" + "i2311" + "i2309" + "i2307" + "i2305" + "i2303" + "i2301" + "i2299" + "i2297" + "i2295" + "i2292" + "i2290" + "i2288" + "i2286" + "i2284" + "i2282" + "i2280" + "i2278" + "i2276" + "i2274" + "i2272" + "i2270" + "i2268" + "i2266" + "i2264" + "i2262" + "i2260" + "i2258" + "i2256" + "i2254" + "i2252" + "i2250" + "i2248" + "i2247" + "i2244" + "i2242" + "i2241" + "i2240" + "i2239" + "i2238" + "i2236" + "i2234" + "i2232" + "i2229" + "i2227" + "i2225" + "i2223" + "i2221" + "i2219" + "i2217" + "i2215" + "i2213" + "i2211" + "i2209" + "i2207" + "i2205" + "i2203" + "i2201" + "i2199" + "i2197" + "i2195")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i46" "i45" "i44"))) + ("i2033" "i2032" "i2031"))) (hygiene guile)) - #{mod 10254}#)))) - #{tmp 10210}#) + #{mod 12241}#)))) + #{tmp 12197}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 10206}#)))))) - (#{global-extend 4300}# + #{e 12193}#)))))) + (#{global-extend 6287}# 'module-ref '@@ - (lambda (#{e 10347}# #{r 10348}# #{w 10349}#) + (lambda (#{e 12334}# #{r 12335}# #{w 12336}#) (letrec* - ((#{remodulate 10350}# - (lambda (#{x 10385}# #{mod 10386}#) - (if (pair? #{x 10385}#) - (cons (#{remodulate 10350}# - (car #{x 10385}#) - #{mod 10386}#) - (#{remodulate 10350}# - (cdr #{x 10385}#) - #{mod 10386}#)) - (if (if (vector? #{x 10385}#) - (if (= (vector-length #{x 10385}#) 4) - (eq? (vector-ref #{x 10385}# 0) 'syntax-object) + ((#{remodulate 12337}# + (lambda (#{x 12372}# #{mod 12373}#) + (if (pair? #{x 12372}#) + (cons (#{remodulate 12337}# + (car #{x 12372}#) + #{mod 12373}#) + (#{remodulate 12337}# + (cdr #{x 12372}#) + #{mod 12373}#)) + (if (if (vector? #{x 12372}#) + (if (= (vector-length #{x 12372}#) 4) + (eq? (vector-ref #{x 12372}# 0) 'syntax-object) #f) #f) - (let ((#{expression 10400}# - (#{remodulate 10350}# - (vector-ref #{x 10385}# 1) - #{mod 10386}#)) - (#{wrap 10401}# (vector-ref #{x 10385}# 2))) + (let ((#{expression 12387}# + (#{remodulate 12337}# + (vector-ref #{x 12372}# 1) + #{mod 12373}#)) + (#{wrap 12388}# (vector-ref #{x 12372}# 2))) (vector 'syntax-object - #{expression 10400}# - #{wrap 10401}# - #{mod 10386}#)) - (if (vector? #{x 10385}#) - (let ((#{n 10409}# (vector-length #{x 10385}#))) - (let ((#{v 10410}# (make-vector #{n 10409}#))) + #{expression 12387}# + #{wrap 12388}# + #{mod 12373}#)) + (if (vector? #{x 12372}#) + (let ((#{n 12396}# (vector-length #{x 12372}#))) + (let ((#{v 12397}# (make-vector #{n 12396}#))) (letrec* - ((#{loop 10411}# - (lambda (#{i 10458}#) - (if (= #{i 10458}# #{n 10409}#) - #{v 10410}# + ((#{loop 12398}# + (lambda (#{i 12445}#) + (if (= #{i 12445}# #{n 12396}#) + #{v 12397}# (begin (vector-set! - #{v 10410}# - #{i 10458}# - (#{remodulate 10350}# - (vector-ref #{x 10385}# #{i 10458}#) - #{mod 10386}#)) - (#{loop 10411}# (#{1+}# #{i 10458}#))))))) - (#{loop 10411}# 0)))) - #{x 10385}#)))))) - (let ((#{tmp 10352}# - ($sc-dispatch #{e 10347}# '(_ each-any any)))) - (if (if #{tmp 10352}# + #{v 12397}# + #{i 12445}# + (#{remodulate 12337}# + (vector-ref #{x 12372}# #{i 12445}#) + #{mod 12373}#)) + (#{loop 12398}# (#{1+}# #{i 12445}#))))))) + (#{loop 12398}# 0)))) + #{x 12372}#)))))) + (let ((#{tmp 12339}# + ($sc-dispatch #{e 12334}# '(_ each-any any)))) + (if (if #{tmp 12339}# (@apply - (lambda (#{mod 10356}# #{exp 10357}#) - (and-map #{id? 4302}# #{mod 10356}#)) - #{tmp 10352}#) + (lambda (#{mod 12343}# #{exp 12344}#) + (and-map #{id? 6289}# #{mod 12343}#)) + #{tmp 12339}#) #f) (@apply - (lambda (#{mod 10373}# #{exp 10374}#) - (let ((#{mod 10375}# + (lambda (#{mod 12360}# #{exp 12361}#) + (let ((#{mod 12362}# (syntax->datum (cons '#(syntax-object private @@ -10454,12 +10474,12 @@ #(ribcage #(mod exp) #((top) (top)) - #("i3635" "i3636")) - #(ribcage (remodulate) ((top)) ("i3602")) + #("i5622" "i5623")) + #(ribcage (remodulate) ((top)) ("i5589")) #(ribcage #(e r w) #((top) (top) (top)) - #("i3599" "i3600" "i3601")) + #("i5586" "i5587" "i5588")) #(ribcage (lambda-var-list gen-var @@ -10733,270 +10753,270 @@ (top) (top) (top)) - ("i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i398" - "i396" - "i393" - "i392" - "i391" - "i389" - "i388" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i369" - "i367" - "i366" - "i364" - "i362" - "i360" - "i358" - "i357" - "i356" - "i355" - "i353" - "i352" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i336" - "i335" - "i333" - "i331" - "i330" - "i327" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i260" - "i257" - "i255" - "i254" - "i253" - "i252" - "i251" - "i249" - "i247" - "i245" - "i242" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208")) + ("i2454" + "i2452" + "i2450" + "i2448" + "i2446" + "i2444" + "i2442" + "i2440" + "i2438" + "i2436" + "i2434" + "i2432" + "i2430" + "i2428" + "i2426" + "i2424" + "i2422" + "i2420" + "i2418" + "i2416" + "i2414" + "i2412" + "i2410" + "i2408" + "i2406" + "i2404" + "i2402" + "i2400" + "i2398" + "i2396" + "i2394" + "i2392" + "i2390" + "i2388" + "i2386" + "i2385" + "i2383" + "i2380" + "i2379" + "i2378" + "i2376" + "i2375" + "i2373" + "i2371" + "i2369" + "i2367" + "i2365" + "i2363" + "i2361" + "i2359" + "i2356" + "i2354" + "i2353" + "i2351" + "i2349" + "i2347" + "i2345" + "i2344" + "i2343" + "i2342" + "i2340" + "i2339" + "i2336" + "i2334" + "i2332" + "i2330" + "i2328" + "i2326" + "i2324" + "i2323" + "i2322" + "i2320" + "i2318" + "i2317" + "i2314" + "i2313" + "i2311" + "i2309" + "i2307" + "i2305" + "i2303" + "i2301" + "i2299" + "i2297" + "i2295" + "i2292" + "i2290" + "i2288" + "i2286" + "i2284" + "i2282" + "i2280" + "i2278" + "i2276" + "i2274" + "i2272" + "i2270" + "i2268" + "i2266" + "i2264" + "i2262" + "i2260" + "i2258" + "i2256" + "i2254" + "i2252" + "i2250" + "i2248" + "i2247" + "i2244" + "i2242" + "i2241" + "i2240" + "i2239" + "i2238" + "i2236" + "i2234" + "i2232" + "i2229" + "i2227" + "i2225" + "i2223" + "i2221" + "i2219" + "i2217" + "i2215" + "i2213" + "i2211" + "i2209" + "i2207" + "i2205" + "i2203" + "i2201" + "i2199" + "i2197" + "i2195")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i46" "i45" "i44"))) + ("i2033" "i2032" "i2031"))) (hygiene guile)) - #{mod 10373}#)))) + #{mod 12360}#)))) (values - (#{remodulate 10350}# - #{exp 10374}# - #{mod 10375}#) - #{r 10348}# - #{w 10349}# - (#{source-annotation 4295}# #{exp 10374}#) - #{mod 10375}#))) - #{tmp 10352}#) + (#{remodulate 12337}# + #{exp 12361}# + #{mod 12362}#) + #{r 12335}# + #{w 12336}# + (#{source-annotation 6282}# #{exp 12361}#) + #{mod 12362}#))) + #{tmp 12339}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 10347}#)))))) - (#{global-extend 4300}# + #{e 12334}#)))))) + (#{global-extend 6287}# 'core 'if - (lambda (#{e 10559}# - #{r 10560}# - #{w 10561}# - #{s 10562}# - #{mod 10563}#) - (let ((#{tmp 10565}# - ($sc-dispatch #{e 10559}# '(_ any any)))) - (if #{tmp 10565}# + (lambda (#{e 12546}# + #{r 12547}# + #{w 12548}# + #{s 12549}# + #{mod 12550}#) + (let ((#{tmp 12552}# + ($sc-dispatch #{e 12546}# '(_ any any)))) + (if #{tmp 12552}# (@apply - (lambda (#{test 10569}# #{then 10570}#) - (#{build-conditional 4270}# - #{s 10562}# - (#{expand 4334}# - #{test 10569}# - #{r 10560}# - #{w 10561}# - #{mod 10563}#) - (#{expand 4334}# - #{then 10570}# - #{r 10560}# - #{w 10561}# - #{mod 10563}#) + (lambda (#{test 12556}# #{then 12557}#) + (#{build-conditional 6257}# + #{s 12549}# + (#{expand 6321}# + #{test 12556}# + #{r 12547}# + #{w 12548}# + #{mod 12550}#) + (#{expand 6321}# + #{then 12557}# + #{r 12547}# + #{w 12548}# + #{mod 12550}#) (make-struct/no-tail (vector-ref %expanded-vtables 0) #f))) - #{tmp 10565}#) - (let ((#{tmp 10795}# - ($sc-dispatch #{e 10559}# '(_ any any any)))) - (if #{tmp 10795}# + #{tmp 12552}#) + (let ((#{tmp 12782}# + ($sc-dispatch #{e 12546}# '(_ any any any)))) + (if #{tmp 12782}# (@apply - (lambda (#{test 10799}# #{then 10800}# #{else 10801}#) - (#{build-conditional 4270}# - #{s 10562}# - (#{expand 4334}# - #{test 10799}# - #{r 10560}# - #{w 10561}# - #{mod 10563}#) - (#{expand 4334}# - #{then 10800}# - #{r 10560}# - #{w 10561}# - #{mod 10563}#) - (#{expand 4334}# - #{else 10801}# - #{r 10560}# - #{w 10561}# - #{mod 10563}#))) - #{tmp 10795}#) + (lambda (#{test 12786}# #{then 12787}# #{else 12788}#) + (#{build-conditional 6257}# + #{s 12549}# + (#{expand 6321}# + #{test 12786}# + #{r 12547}# + #{w 12548}# + #{mod 12550}#) + (#{expand 6321}# + #{then 12787}# + #{r 12547}# + #{w 12548}# + #{mod 12550}#) + (#{expand 6321}# + #{else 12788}# + #{r 12547}# + #{w 12548}# + #{mod 12550}#))) + #{tmp 12782}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 10559}#))))))) - (#{global-extend 4300}# + #{e 12546}#))))))) + (#{global-extend 6287}# 'core 'with-fluids - (lambda (#{e 11200}# - #{r 11201}# - #{w 11202}# - #{s 11203}# - #{mod 11204}#) - (let ((#{tmp 11206}# + (lambda (#{e 13187}# + #{r 13188}# + #{w 13189}# + #{s 13190}# + #{mod 13191}#) + (let ((#{tmp 13193}# ($sc-dispatch - #{e 11200}# + #{e 13187}# '(_ #(each (any any)) any . each-any)))) - (if #{tmp 11206}# + (if #{tmp 13193}# (@apply - (lambda (#{fluid 11210}# - #{val 11211}# - #{b 11212}# - #{b* 11213}#) - (#{build-dynlet 4271}# - #{s 11203}# - (map (lambda (#{x 11294}#) - (#{expand 4334}# - #{x 11294}# - #{r 11201}# - #{w 11202}# - #{mod 11204}#)) - #{fluid 11210}#) - (map (lambda (#{x 11364}#) - (#{expand 4334}# - #{x 11364}# - #{r 11201}# - #{w 11202}# - #{mod 11204}#)) - #{val 11211}#) - (#{expand-body 4338}# - (cons #{b 11212}# #{b* 11213}#) - (#{wrap 4327}# + (lambda (#{fluid 13197}# + #{val 13198}# + #{b 13199}# + #{b* 13200}#) + (#{build-dynlet 6258}# + #{s 13190}# + (map (lambda (#{x 13281}#) + (#{expand 6321}# + #{x 13281}# + #{r 13188}# + #{w 13189}# + #{mod 13191}#)) + #{fluid 13197}#) + (map (lambda (#{x 13351}#) + (#{expand 6321}# + #{x 13351}# + #{r 13188}# + #{w 13189}# + #{mod 13191}#)) + #{val 13198}#) + (#{expand-body 6325}# + (cons #{b 13199}# #{b* 13200}#) + (#{wrap 6314}# (begin - (if (if (pair? #{e 11200}#) #{s 11203}# #f) - (set-source-properties! #{e 11200}# #{s 11203}#)) - #{e 11200}#) - #{w 11202}# - #{mod 11204}#) - #{r 11201}# - #{w 11202}# - #{mod 11204}#))) - #{tmp 11206}#) + (if (if (pair? #{e 13187}#) #{s 13190}# #f) + (set-source-properties! #{e 13187}# #{s 13190}#)) + #{e 13187}#) + #{w 13189}# + #{mod 13191}#) + #{r 13188}# + #{w 13189}# + #{mod 13191}#))) + #{tmp 13193}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 11200}#))))) + #{e 13187}#))))) (module-define! (current-module) 'begin @@ -11019,75 +11039,75 @@ 'eval-when 'eval-when '())) - (#{global-extend 4300}# + (#{global-extend 6287}# 'core 'syntax-case (letrec* - ((#{convert-pattern 11722}# - (lambda (#{pattern 13319}# #{keys 13320}#) + ((#{convert-pattern 13709}# + (lambda (#{pattern 15306}# #{keys 15307}#) (letrec* - ((#{cvt* 13321}# - (lambda (#{p* 13945}# #{n 13946}# #{ids 13947}#) - (if (not (pair? #{p* 13945}#)) - (#{cvt 13323}# - #{p* 13945}# - #{n 13946}# - #{ids 13947}#) + ((#{cvt* 15308}# + (lambda (#{p* 15932}# #{n 15933}# #{ids 15934}#) + (if (not (pair? #{p* 15932}#)) + (#{cvt 15310}# + #{p* 15932}# + #{n 15933}# + #{ids 15934}#) (call-with-values (lambda () - (#{cvt* 13321}# - (cdr #{p* 13945}#) - #{n 13946}# - #{ids 13947}#)) - (lambda (#{y 13950}# #{ids 13951}#) + (#{cvt* 15308}# + (cdr #{p* 15932}#) + #{n 15933}# + #{ids 15934}#)) + (lambda (#{y 15937}# #{ids 15938}#) (call-with-values (lambda () - (#{cvt 13323}# - (car #{p* 13945}#) - #{n 13946}# - #{ids 13951}#)) - (lambda (#{x 13954}# #{ids 13955}#) + (#{cvt 15310}# + (car #{p* 15932}#) + #{n 15933}# + #{ids 15938}#)) + (lambda (#{x 15941}# #{ids 15942}#) (values - (cons #{x 13954}# #{y 13950}#) - #{ids 13955}#)))))))) - (#{v-reverse 13322}# - (lambda (#{x 13956}#) + (cons #{x 15941}# #{y 15937}#) + #{ids 15942}#)))))))) + (#{v-reverse 15309}# + (lambda (#{x 15943}#) (letrec* - ((#{loop 13957}# - (lambda (#{r 14037}# #{x 14038}#) - (if (not (pair? #{x 14038}#)) - (values #{r 14037}# #{x 14038}#) - (#{loop 13957}# - (cons (car #{x 14038}#) #{r 14037}#) - (cdr #{x 14038}#)))))) - (#{loop 13957}# '() #{x 13956}#)))) - (#{cvt 13323}# - (lambda (#{p 13326}# #{n 13327}# #{ids 13328}#) - (if (if (symbol? #{p 13326}#) + ((#{loop 15944}# + (lambda (#{r 16024}# #{x 16025}#) + (if (not (pair? #{x 16025}#)) + (values #{r 16024}# #{x 16025}#) + (#{loop 15944}# + (cons (car #{x 16025}#) #{r 16024}#) + (cdr #{x 16025}#)))))) + (#{loop 15944}# '() #{x 15943}#)))) + (#{cvt 15310}# + (lambda (#{p 15313}# #{n 15314}# #{ids 15315}#) + (if (if (symbol? #{p 15313}#) #t - (if (if (vector? #{p 13326}#) - (if (= (vector-length #{p 13326}#) 4) - (eq? (vector-ref #{p 13326}# 0) + (if (if (vector? #{p 15313}#) + (if (= (vector-length #{p 15313}#) 4) + (eq? (vector-ref #{p 15313}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{p 13326}# 1)) + (symbol? (vector-ref #{p 15313}# 1)) #f)) - (if (#{bound-id-member? 4326}# - #{p 13326}# - #{keys 13320}#) + (if (#{bound-id-member? 6313}# + #{p 15313}# + #{keys 15307}#) (values - (vector 'free-id #{p 13326}#) - #{ids 13328}#) - (if (if (eq? (if (if (vector? #{p 13326}#) - (if (= (vector-length #{p 13326}#) + (vector 'free-id #{p 15313}#) + #{ids 15315}#) + (if (if (eq? (if (if (vector? #{p 15313}#) + (if (= (vector-length #{p 15313}#) 4) - (eq? (vector-ref #{p 13326}# 0) + (eq? (vector-ref #{p 15313}# 0) 'syntax-object) #f) #f) - (vector-ref #{p 13326}# 1) - #{p 13326}#) + (vector-ref #{p 15313}# 1) + #{p 15313}#) (if (if (= (vector-length '#(syntax-object _ @@ -11096,19 +11116,19 @@ #(ribcage #(p n ids) #((top) (top) (top)) - #("i3736" - "i3737" - "i3738")) + #("i5723" + "i5724" + "i5725")) #(ribcage (cvt v-reverse cvt*) ((top) (top) (top)) - ("i3709" - "i3707" - "i3705")) + ("i5696" + "i5694" + "i5692")) #(ribcage #(pattern keys) #((top) (top)) - #("i3703" "i3704")) + #("i5690" "i5691")) #(ribcage (gen-syntax-case gen-clause @@ -11118,10 +11138,10 @@ (top) (top) (top)) - ("i3699" - "i3697" - "i3695" - "i3693")) + ("i5686" + "i5684" + "i5682" + "i5680")) #(ribcage (lambda-var-list gen-var @@ -11395,148 +11415,150 @@ (top) (top) (top)) - ("i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i398" - "i396" - "i393" - "i392" - "i391" - "i389" - "i388" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i369" - "i367" - "i366" - "i364" - "i362" - "i360" - "i358" - "i357" - "i356" - "i355" - "i353" - "i352" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i336" - "i335" - "i333" - "i331" - "i330" - "i327" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i260" - "i257" - "i255" - "i254" - "i253" - "i252" - "i251" - "i249" - "i247" - "i245" - "i242" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208")) + ("i2454" + "i2452" + "i2450" + "i2448" + "i2446" + "i2444" + "i2442" + "i2440" + "i2438" + "i2436" + "i2434" + "i2432" + "i2430" + "i2428" + "i2426" + "i2424" + "i2422" + "i2420" + "i2418" + "i2416" + "i2414" + "i2412" + "i2410" + "i2408" + "i2406" + "i2404" + "i2402" + "i2400" + "i2398" + "i2396" + "i2394" + "i2392" + "i2390" + "i2388" + "i2386" + "i2385" + "i2383" + "i2380" + "i2379" + "i2378" + "i2376" + "i2375" + "i2373" + "i2371" + "i2369" + "i2367" + "i2365" + "i2363" + "i2361" + "i2359" + "i2356" + "i2354" + "i2353" + "i2351" + "i2349" + "i2347" + "i2345" + "i2344" + "i2343" + "i2342" + "i2340" + "i2339" + "i2336" + "i2334" + "i2332" + "i2330" + "i2328" + "i2326" + "i2324" + "i2323" + "i2322" + "i2320" + "i2318" + "i2317" + "i2314" + "i2313" + "i2311" + "i2309" + "i2307" + "i2305" + "i2303" + "i2301" + "i2299" + "i2297" + "i2295" + "i2292" + "i2290" + "i2288" + "i2286" + "i2284" + "i2282" + "i2280" + "i2278" + "i2276" + "i2274" + "i2272" + "i2270" + "i2268" + "i2266" + "i2264" + "i2262" + "i2260" + "i2258" + "i2256" + "i2254" + "i2252" + "i2250" + "i2248" + "i2247" + "i2244" + "i2242" + "i2241" + "i2240" + "i2239" + "i2238" + "i2236" + "i2234" + "i2232" + "i2229" + "i2227" + "i2225" + "i2223" + "i2221" + "i2219" + "i2217" + "i2215" + "i2213" + "i2211" + "i2209" + "i2207" + "i2205" + "i2203" + "i2201" + "i2199" + "i2197" + "i2195")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i46" "i45" "i44"))) + ("i2033" + "i2032" + "i2031"))) (hygiene guile))) 4) #t @@ -11549,22 +11571,22 @@ #(ribcage #(p n ids) #((top) (top) (top)) - #("i3736" "i3737" "i3738")) + #("i5723" "i5724" "i5725")) #(ribcage (cvt v-reverse cvt*) ((top) (top) (top)) - ("i3709" "i3707" "i3705")) + ("i5696" "i5694" "i5692")) #(ribcage #(pattern keys) #((top) (top)) - #("i3703" "i3704")) + #("i5690" "i5691")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("i3699" "i3697" "i3695" "i3693")) + ("i5686" "i5684" "i5682" "i5680")) #(ribcage (lambda-var-list gen-var @@ -11838,151 +11860,151 @@ (top) (top) (top)) - ("i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i398" - "i396" - "i393" - "i392" - "i391" - "i389" - "i388" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i369" - "i367" - "i366" - "i364" - "i362" - "i360" - "i358" - "i357" - "i356" - "i355" - "i353" - "i352" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i336" - "i335" - "i333" - "i331" - "i330" - "i327" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i260" - "i257" - "i255" - "i254" - "i253" - "i252" - "i251" - "i249" - "i247" - "i245" - "i242" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208")) + ("i2454" + "i2452" + "i2450" + "i2448" + "i2446" + "i2444" + "i2442" + "i2440" + "i2438" + "i2436" + "i2434" + "i2432" + "i2430" + "i2428" + "i2426" + "i2424" + "i2422" + "i2420" + "i2418" + "i2416" + "i2414" + "i2412" + "i2410" + "i2408" + "i2406" + "i2404" + "i2402" + "i2400" + "i2398" + "i2396" + "i2394" + "i2392" + "i2390" + "i2388" + "i2386" + "i2385" + "i2383" + "i2380" + "i2379" + "i2378" + "i2376" + "i2375" + "i2373" + "i2371" + "i2369" + "i2367" + "i2365" + "i2363" + "i2361" + "i2359" + "i2356" + "i2354" + "i2353" + "i2351" + "i2349" + "i2347" + "i2345" + "i2344" + "i2343" + "i2342" + "i2340" + "i2339" + "i2336" + "i2334" + "i2332" + "i2330" + "i2328" + "i2326" + "i2324" + "i2323" + "i2322" + "i2320" + "i2318" + "i2317" + "i2314" + "i2313" + "i2311" + "i2309" + "i2307" + "i2305" + "i2303" + "i2301" + "i2299" + "i2297" + "i2295" + "i2292" + "i2290" + "i2288" + "i2286" + "i2284" + "i2282" + "i2280" + "i2278" + "i2276" + "i2274" + "i2272" + "i2270" + "i2268" + "i2266" + "i2264" + "i2262" + "i2260" + "i2258" + "i2256" + "i2254" + "i2252" + "i2250" + "i2248" + "i2247" + "i2244" + "i2242" + "i2241" + "i2240" + "i2239" + "i2238" + "i2236" + "i2234" + "i2232" + "i2229" + "i2227" + "i2225" + "i2223" + "i2221" + "i2219" + "i2217" + "i2215" + "i2213" + "i2211" + "i2209" + "i2207" + "i2205" + "i2203" + "i2201" + "i2199" + "i2197" + "i2195")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i46" "i45" "i44"))) + ("i2033" "i2032" "i2031"))) (hygiene guile)))) - (eq? (#{id-var-name 4321}# #{p 13326}# '(())) - (#{id-var-name 4321}# + (eq? (#{id-var-name 6308}# #{p 15313}# '(())) + (#{id-var-name 6308}# '#(syntax-object _ ((top) @@ -11990,22 +12012,22 @@ #(ribcage #(p n ids) #((top) (top) (top)) - #("i3736" "i3737" "i3738")) + #("i5723" "i5724" "i5725")) #(ribcage (cvt v-reverse cvt*) ((top) (top) (top)) - ("i3709" "i3707" "i3705")) + ("i5696" "i5694" "i5692")) #(ribcage #(pattern keys) #((top) (top)) - #("i3703" "i3704")) + #("i5690" "i5691")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("i3699" "i3697" "i3695" "i3693")) + ("i5686" "i5684" "i5682" "i5680")) #(ribcage (lambda-var-list gen-var @@ -12279,185 +12301,185 @@ (top) (top) (top)) - ("i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i398" - "i396" - "i393" - "i392" - "i391" - "i389" - "i388" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i369" - "i367" - "i366" - "i364" - "i362" - "i360" - "i358" - "i357" - "i356" - "i355" - "i353" - "i352" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i336" - "i335" - "i333" - "i331" - "i330" - "i327" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i260" - "i257" - "i255" - "i254" - "i253" - "i252" - "i251" - "i249" - "i247" - "i245" - "i242" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208")) + ("i2454" + "i2452" + "i2450" + "i2448" + "i2446" + "i2444" + "i2442" + "i2440" + "i2438" + "i2436" + "i2434" + "i2432" + "i2430" + "i2428" + "i2426" + "i2424" + "i2422" + "i2420" + "i2418" + "i2416" + "i2414" + "i2412" + "i2410" + "i2408" + "i2406" + "i2404" + "i2402" + "i2400" + "i2398" + "i2396" + "i2394" + "i2392" + "i2390" + "i2388" + "i2386" + "i2385" + "i2383" + "i2380" + "i2379" + "i2378" + "i2376" + "i2375" + "i2373" + "i2371" + "i2369" + "i2367" + "i2365" + "i2363" + "i2361" + "i2359" + "i2356" + "i2354" + "i2353" + "i2351" + "i2349" + "i2347" + "i2345" + "i2344" + "i2343" + "i2342" + "i2340" + "i2339" + "i2336" + "i2334" + "i2332" + "i2330" + "i2328" + "i2326" + "i2324" + "i2323" + "i2322" + "i2320" + "i2318" + "i2317" + "i2314" + "i2313" + "i2311" + "i2309" + "i2307" + "i2305" + "i2303" + "i2301" + "i2299" + "i2297" + "i2295" + "i2292" + "i2290" + "i2288" + "i2286" + "i2284" + "i2282" + "i2280" + "i2278" + "i2276" + "i2274" + "i2272" + "i2270" + "i2268" + "i2266" + "i2264" + "i2262" + "i2260" + "i2258" + "i2256" + "i2254" + "i2252" + "i2250" + "i2248" + "i2247" + "i2244" + "i2242" + "i2241" + "i2240" + "i2239" + "i2238" + "i2236" + "i2234" + "i2232" + "i2229" + "i2227" + "i2225" + "i2223" + "i2221" + "i2219" + "i2217" + "i2215" + "i2213" + "i2211" + "i2209" + "i2207" + "i2205" + "i2203" + "i2201" + "i2199" + "i2197" + "i2195")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i46" "i45" "i44"))) + ("i2033" "i2032" "i2031"))) (hygiene guile)) '(()))) #f) - (values '_ #{ids 13328}#) + (values '_ #{ids 15315}#) (values 'any - (cons (cons #{p 13326}# #{n 13327}#) - #{ids 13328}#)))) - (let ((#{tmp 13648}# - ($sc-dispatch #{p 13326}# '(any any)))) - (if (if #{tmp 13648}# + (cons (cons #{p 15313}# #{n 15314}#) + #{ids 15315}#)))) + (let ((#{tmp 15635}# + ($sc-dispatch #{p 15313}# '(any any)))) + (if (if #{tmp 15635}# (@apply - (lambda (#{x 13652}# #{dots 13653}#) - (if (if (if (vector? #{dots 13653}#) + (lambda (#{x 15639}# #{dots 15640}#) + (if (if (if (vector? #{dots 15640}#) (if (= (vector-length - #{dots 13653}#) + #{dots 15640}#) 4) (eq? (vector-ref - #{dots 13653}# + #{dots 15640}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{dots 13653}# 1)) + (symbol? (vector-ref #{dots 15640}# 1)) #f) - (if (eq? (if (if (vector? #{dots 13653}#) + (if (eq? (if (if (vector? #{dots 15640}#) (if (= (vector-length - #{dots 13653}#) + #{dots 15640}#) 4) (eq? (vector-ref - #{dots 13653}# + #{dots 15640}# 0) 'syntax-object) #f) #f) - (vector-ref #{dots 13653}# 1) - #{dots 13653}#) + (vector-ref #{dots 15640}# 1) + #{dots 15640}#) (if (if (= (vector-length '#(syntax-object ... @@ -12473,7 +12495,7 @@ #(ribcage #(x) #((top)) - #("i2219")) + #("i4206")) #(ribcage (lambda-var-list gen-var @@ -12747,142 +12769,142 @@ (top) (top) (top)) - ("i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i398" - "i396" - "i393" - "i392" - "i391" - "i389" - "i388" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i369" - "i367" - "i366" - "i364" - "i362" - "i360" - "i358" - "i357" - "i356" - "i355" - "i353" - "i352" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i336" - "i335" - "i333" - "i331" - "i330" - "i327" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i260" - "i257" - "i255" - "i254" - "i253" - "i252" - "i251" - "i249" - "i247" - "i245" - "i242" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208")) + ("i2454" + "i2452" + "i2450" + "i2448" + "i2446" + "i2444" + "i2442" + "i2440" + "i2438" + "i2436" + "i2434" + "i2432" + "i2430" + "i2428" + "i2426" + "i2424" + "i2422" + "i2420" + "i2418" + "i2416" + "i2414" + "i2412" + "i2410" + "i2408" + "i2406" + "i2404" + "i2402" + "i2400" + "i2398" + "i2396" + "i2394" + "i2392" + "i2390" + "i2388" + "i2386" + "i2385" + "i2383" + "i2380" + "i2379" + "i2378" + "i2376" + "i2375" + "i2373" + "i2371" + "i2369" + "i2367" + "i2365" + "i2363" + "i2361" + "i2359" + "i2356" + "i2354" + "i2353" + "i2351" + "i2349" + "i2347" + "i2345" + "i2344" + "i2343" + "i2342" + "i2340" + "i2339" + "i2336" + "i2334" + "i2332" + "i2330" + "i2328" + "i2326" + "i2324" + "i2323" + "i2322" + "i2320" + "i2318" + "i2317" + "i2314" + "i2313" + "i2311" + "i2309" + "i2307" + "i2305" + "i2303" + "i2301" + "i2299" + "i2297" + "i2295" + "i2292" + "i2290" + "i2288" + "i2286" + "i2284" + "i2282" + "i2280" + "i2278" + "i2276" + "i2274" + "i2272" + "i2270" + "i2268" + "i2266" + "i2264" + "i2262" + "i2260" + "i2258" + "i2256" + "i2254" + "i2252" + "i2250" + "i2248" + "i2247" + "i2244" + "i2242" + "i2241" + "i2240" + "i2239" + "i2238" + "i2236" + "i2234" + "i2232" + "i2229" + "i2227" + "i2225" + "i2223" + "i2221" + "i2219" + "i2217" + "i2215" + "i2213" + "i2211" + "i2209" + "i2207" + "i2205" + "i2203" + "i2201" + "i2199" + "i2197" + "i2195")) #(ribcage (define-structure define-expansion-accessors @@ -12890,9 +12912,9 @@ ((top) (top) (top)) - ("i46" - "i45" - "i44"))) + ("i2033" + "i2032" + "i2031"))) (hygiene guile))) 4) #t @@ -12906,7 +12928,7 @@ #(ribcage #(x) #((top)) - #("i2219")) + #("i4206")) #(ribcage (lambda-var-list gen-var @@ -13180,153 +13202,155 @@ (top) (top) (top)) - ("i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i398" - "i396" - "i393" - "i392" - "i391" - "i389" - "i388" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i369" - "i367" - "i366" - "i364" - "i362" - "i360" - "i358" - "i357" - "i356" - "i355" - "i353" - "i352" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i336" - "i335" - "i333" - "i331" - "i330" - "i327" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i260" - "i257" - "i255" - "i254" - "i253" - "i252" - "i251" - "i249" - "i247" - "i245" - "i242" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208")) + ("i2454" + "i2452" + "i2450" + "i2448" + "i2446" + "i2444" + "i2442" + "i2440" + "i2438" + "i2436" + "i2434" + "i2432" + "i2430" + "i2428" + "i2426" + "i2424" + "i2422" + "i2420" + "i2418" + "i2416" + "i2414" + "i2412" + "i2410" + "i2408" + "i2406" + "i2404" + "i2402" + "i2400" + "i2398" + "i2396" + "i2394" + "i2392" + "i2390" + "i2388" + "i2386" + "i2385" + "i2383" + "i2380" + "i2379" + "i2378" + "i2376" + "i2375" + "i2373" + "i2371" + "i2369" + "i2367" + "i2365" + "i2363" + "i2361" + "i2359" + "i2356" + "i2354" + "i2353" + "i2351" + "i2349" + "i2347" + "i2345" + "i2344" + "i2343" + "i2342" + "i2340" + "i2339" + "i2336" + "i2334" + "i2332" + "i2330" + "i2328" + "i2326" + "i2324" + "i2323" + "i2322" + "i2320" + "i2318" + "i2317" + "i2314" + "i2313" + "i2311" + "i2309" + "i2307" + "i2305" + "i2303" + "i2301" + "i2299" + "i2297" + "i2295" + "i2292" + "i2290" + "i2288" + "i2286" + "i2284" + "i2282" + "i2280" + "i2278" + "i2276" + "i2274" + "i2272" + "i2270" + "i2268" + "i2266" + "i2264" + "i2262" + "i2260" + "i2258" + "i2256" + "i2254" + "i2252" + "i2250" + "i2248" + "i2247" + "i2244" + "i2242" + "i2241" + "i2240" + "i2239" + "i2238" + "i2236" + "i2234" + "i2232" + "i2229" + "i2227" + "i2225" + "i2223" + "i2221" + "i2219" + "i2217" + "i2215" + "i2213" + "i2211" + "i2209" + "i2207" + "i2205" + "i2203" + "i2201" + "i2199" + "i2197" + "i2195")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i46" "i45" "i44"))) + ("i2033" + "i2032" + "i2031"))) (hygiene guile)))) - (eq? (#{id-var-name 4321}# - #{dots 13653}# + (eq? (#{id-var-name 6308}# + #{dots 15640}# '(())) - (#{id-var-name 4321}# + (#{id-var-name 6308}# '#(syntax-object ... ((top) @@ -13335,7 +13359,7 @@ #(ribcage #(x) #((top)) - #("i2219")) + #("i4206")) #(ribcage (lambda-var-list gen-var @@ -13609,204 +13633,204 @@ (top) (top) (top)) - ("i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i398" - "i396" - "i393" - "i392" - "i391" - "i389" - "i388" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i369" - "i367" - "i366" - "i364" - "i362" - "i360" - "i358" - "i357" - "i356" - "i355" - "i353" - "i352" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i336" - "i335" - "i333" - "i331" - "i330" - "i327" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i260" - "i257" - "i255" - "i254" - "i253" - "i252" - "i251" - "i249" - "i247" - "i245" - "i242" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208")) + ("i2454" + "i2452" + "i2450" + "i2448" + "i2446" + "i2444" + "i2442" + "i2440" + "i2438" + "i2436" + "i2434" + "i2432" + "i2430" + "i2428" + "i2426" + "i2424" + "i2422" + "i2420" + "i2418" + "i2416" + "i2414" + "i2412" + "i2410" + "i2408" + "i2406" + "i2404" + "i2402" + "i2400" + "i2398" + "i2396" + "i2394" + "i2392" + "i2390" + "i2388" + "i2386" + "i2385" + "i2383" + "i2380" + "i2379" + "i2378" + "i2376" + "i2375" + "i2373" + "i2371" + "i2369" + "i2367" + "i2365" + "i2363" + "i2361" + "i2359" + "i2356" + "i2354" + "i2353" + "i2351" + "i2349" + "i2347" + "i2345" + "i2344" + "i2343" + "i2342" + "i2340" + "i2339" + "i2336" + "i2334" + "i2332" + "i2330" + "i2328" + "i2326" + "i2324" + "i2323" + "i2322" + "i2320" + "i2318" + "i2317" + "i2314" + "i2313" + "i2311" + "i2309" + "i2307" + "i2305" + "i2303" + "i2301" + "i2299" + "i2297" + "i2295" + "i2292" + "i2290" + "i2288" + "i2286" + "i2284" + "i2282" + "i2280" + "i2278" + "i2276" + "i2274" + "i2272" + "i2270" + "i2268" + "i2266" + "i2264" + "i2262" + "i2260" + "i2258" + "i2256" + "i2254" + "i2252" + "i2250" + "i2248" + "i2247" + "i2244" + "i2242" + "i2241" + "i2240" + "i2239" + "i2238" + "i2236" + "i2234" + "i2232" + "i2229" + "i2227" + "i2225" + "i2223" + "i2221" + "i2219" + "i2217" + "i2215" + "i2213" + "i2211" + "i2209" + "i2207" + "i2205" + "i2203" + "i2201" + "i2199" + "i2197" + "i2195")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i46" "i45" "i44"))) + ("i2033" "i2032" "i2031"))) (hygiene guile)) '(()))) #f) #f)) - #{tmp 13648}#) + #{tmp 15635}#) #f) (@apply - (lambda (#{x 13753}# #{dots 13754}#) + (lambda (#{x 15740}# #{dots 15741}#) (call-with-values (lambda () - (#{cvt 13323}# - #{x 13753}# - (#{1+}# #{n 13327}#) - #{ids 13328}#)) - (lambda (#{p 13755}# #{ids 13756}#) + (#{cvt 15310}# + #{x 15740}# + (#{1+}# #{n 15314}#) + #{ids 15315}#)) + (lambda (#{p 15742}# #{ids 15743}#) (values - (if (eq? #{p 13755}# 'any) + (if (eq? #{p 15742}# 'any) 'each-any - (vector 'each #{p 13755}#)) - #{ids 13756}#)))) - #{tmp 13648}#) - (let ((#{tmp 13757}# - ($sc-dispatch #{p 13326}# '(any any . any)))) - (if (if #{tmp 13757}# + (vector 'each #{p 15742}#)) + #{ids 15743}#)))) + #{tmp 15635}#) + (let ((#{tmp 15744}# + ($sc-dispatch #{p 15313}# '(any any . any)))) + (if (if #{tmp 15744}# (@apply - (lambda (#{x 13761}# - #{dots 13762}# - #{ys 13763}#) - (if (if (if (vector? #{dots 13762}#) + (lambda (#{x 15748}# + #{dots 15749}# + #{ys 15750}#) + (if (if (if (vector? #{dots 15749}#) (if (= (vector-length - #{dots 13762}#) + #{dots 15749}#) 4) (eq? (vector-ref - #{dots 13762}# + #{dots 15749}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{dots 13762}# 1)) + (vector-ref #{dots 15749}# 1)) #f) (if (eq? (if (if (vector? - #{dots 13762}#) + #{dots 15749}#) (if (= (vector-length - #{dots 13762}#) + #{dots 15749}#) 4) (eq? (vector-ref - #{dots 13762}# + #{dots 15749}# 0) 'syntax-object) #f) #f) (vector-ref - #{dots 13762}# + #{dots 15749}# 1) - #{dots 13762}#) + #{dots 15749}#) (if (if (= (vector-length '#(syntax-object ... @@ -13822,7 +13846,7 @@ #(ribcage #(x) #((top)) - #("i2219")) + #("i4206")) #(ribcage (lambda-var-list gen-var @@ -14096,142 +14120,142 @@ (top) (top) (top)) - ("i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i398" - "i396" - "i393" - "i392" - "i391" - "i389" - "i388" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i369" - "i367" - "i366" - "i364" - "i362" - "i360" - "i358" - "i357" - "i356" - "i355" - "i353" - "i352" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i336" - "i335" - "i333" - "i331" - "i330" - "i327" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i260" - "i257" - "i255" - "i254" - "i253" - "i252" - "i251" - "i249" - "i247" - "i245" - "i242" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208")) + ("i2454" + "i2452" + "i2450" + "i2448" + "i2446" + "i2444" + "i2442" + "i2440" + "i2438" + "i2436" + "i2434" + "i2432" + "i2430" + "i2428" + "i2426" + "i2424" + "i2422" + "i2420" + "i2418" + "i2416" + "i2414" + "i2412" + "i2410" + "i2408" + "i2406" + "i2404" + "i2402" + "i2400" + "i2398" + "i2396" + "i2394" + "i2392" + "i2390" + "i2388" + "i2386" + "i2385" + "i2383" + "i2380" + "i2379" + "i2378" + "i2376" + "i2375" + "i2373" + "i2371" + "i2369" + "i2367" + "i2365" + "i2363" + "i2361" + "i2359" + "i2356" + "i2354" + "i2353" + "i2351" + "i2349" + "i2347" + "i2345" + "i2344" + "i2343" + "i2342" + "i2340" + "i2339" + "i2336" + "i2334" + "i2332" + "i2330" + "i2328" + "i2326" + "i2324" + "i2323" + "i2322" + "i2320" + "i2318" + "i2317" + "i2314" + "i2313" + "i2311" + "i2309" + "i2307" + "i2305" + "i2303" + "i2301" + "i2299" + "i2297" + "i2295" + "i2292" + "i2290" + "i2288" + "i2286" + "i2284" + "i2282" + "i2280" + "i2278" + "i2276" + "i2274" + "i2272" + "i2270" + "i2268" + "i2266" + "i2264" + "i2262" + "i2260" + "i2258" + "i2256" + "i2254" + "i2252" + "i2250" + "i2248" + "i2247" + "i2244" + "i2242" + "i2241" + "i2240" + "i2239" + "i2238" + "i2236" + "i2234" + "i2232" + "i2229" + "i2227" + "i2225" + "i2223" + "i2221" + "i2219" + "i2217" + "i2215" + "i2213" + "i2211" + "i2209" + "i2207" + "i2205" + "i2203" + "i2201" + "i2199" + "i2197" + "i2195")) #(ribcage (define-structure define-expansion-accessors @@ -14239,9 +14263,9 @@ ((top) (top) (top)) - ("i46" - "i45" - "i44"))) + ("i2033" + "i2032" + "i2031"))) (hygiene guile))) 4) @@ -14256,7 +14280,7 @@ #(ribcage #(x) #((top)) - #("i2219")) + #("i4206")) #(ribcage (lambda-var-list gen-var @@ -14530,153 +14554,155 @@ (top) (top) (top)) - ("i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i398" - "i396" - "i393" - "i392" - "i391" - "i389" - "i388" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i369" - "i367" - "i366" - "i364" - "i362" - "i360" - "i358" - "i357" - "i356" - "i355" - "i353" - "i352" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i336" - "i335" - "i333" - "i331" - "i330" - "i327" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i260" - "i257" - "i255" - "i254" - "i253" - "i252" - "i251" - "i249" - "i247" - "i245" - "i242" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208")) + ("i2454" + "i2452" + "i2450" + "i2448" + "i2446" + "i2444" + "i2442" + "i2440" + "i2438" + "i2436" + "i2434" + "i2432" + "i2430" + "i2428" + "i2426" + "i2424" + "i2422" + "i2420" + "i2418" + "i2416" + "i2414" + "i2412" + "i2410" + "i2408" + "i2406" + "i2404" + "i2402" + "i2400" + "i2398" + "i2396" + "i2394" + "i2392" + "i2390" + "i2388" + "i2386" + "i2385" + "i2383" + "i2380" + "i2379" + "i2378" + "i2376" + "i2375" + "i2373" + "i2371" + "i2369" + "i2367" + "i2365" + "i2363" + "i2361" + "i2359" + "i2356" + "i2354" + "i2353" + "i2351" + "i2349" + "i2347" + "i2345" + "i2344" + "i2343" + "i2342" + "i2340" + "i2339" + "i2336" + "i2334" + "i2332" + "i2330" + "i2328" + "i2326" + "i2324" + "i2323" + "i2322" + "i2320" + "i2318" + "i2317" + "i2314" + "i2313" + "i2311" + "i2309" + "i2307" + "i2305" + "i2303" + "i2301" + "i2299" + "i2297" + "i2295" + "i2292" + "i2290" + "i2288" + "i2286" + "i2284" + "i2282" + "i2280" + "i2278" + "i2276" + "i2274" + "i2272" + "i2270" + "i2268" + "i2266" + "i2264" + "i2262" + "i2260" + "i2258" + "i2256" + "i2254" + "i2252" + "i2250" + "i2248" + "i2247" + "i2244" + "i2242" + "i2241" + "i2240" + "i2239" + "i2238" + "i2236" + "i2234" + "i2232" + "i2229" + "i2227" + "i2225" + "i2223" + "i2221" + "i2219" + "i2217" + "i2215" + "i2213" + "i2211" + "i2209" + "i2207" + "i2205" + "i2203" + "i2201" + "i2199" + "i2197" + "i2195")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i46" "i45" "i44"))) + ("i2033" + "i2032" + "i2031"))) (hygiene guile)))) - (eq? (#{id-var-name 4321}# - #{dots 13762}# + (eq? (#{id-var-name 6308}# + #{dots 15749}# '(())) - (#{id-var-name 4321}# + (#{id-var-name 6308}# '#(syntax-object ... ((top) @@ -14685,7 +14711,7 @@ #(ribcage #(x) #((top)) - #("i2219")) + #("i4206")) #(ribcage (lambda-var-list gen-var @@ -14959,257 +14985,259 @@ (top) (top) (top)) - ("i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i398" - "i396" - "i393" - "i392" - "i391" - "i389" - "i388" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i369" - "i367" - "i366" - "i364" - "i362" - "i360" - "i358" - "i357" - "i356" - "i355" - "i353" - "i352" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i336" - "i335" - "i333" - "i331" - "i330" - "i327" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i260" - "i257" - "i255" - "i254" - "i253" - "i252" - "i251" - "i249" - "i247" - "i245" - "i242" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208")) + ("i2454" + "i2452" + "i2450" + "i2448" + "i2446" + "i2444" + "i2442" + "i2440" + "i2438" + "i2436" + "i2434" + "i2432" + "i2430" + "i2428" + "i2426" + "i2424" + "i2422" + "i2420" + "i2418" + "i2416" + "i2414" + "i2412" + "i2410" + "i2408" + "i2406" + "i2404" + "i2402" + "i2400" + "i2398" + "i2396" + "i2394" + "i2392" + "i2390" + "i2388" + "i2386" + "i2385" + "i2383" + "i2380" + "i2379" + "i2378" + "i2376" + "i2375" + "i2373" + "i2371" + "i2369" + "i2367" + "i2365" + "i2363" + "i2361" + "i2359" + "i2356" + "i2354" + "i2353" + "i2351" + "i2349" + "i2347" + "i2345" + "i2344" + "i2343" + "i2342" + "i2340" + "i2339" + "i2336" + "i2334" + "i2332" + "i2330" + "i2328" + "i2326" + "i2324" + "i2323" + "i2322" + "i2320" + "i2318" + "i2317" + "i2314" + "i2313" + "i2311" + "i2309" + "i2307" + "i2305" + "i2303" + "i2301" + "i2299" + "i2297" + "i2295" + "i2292" + "i2290" + "i2288" + "i2286" + "i2284" + "i2282" + "i2280" + "i2278" + "i2276" + "i2274" + "i2272" + "i2270" + "i2268" + "i2266" + "i2264" + "i2262" + "i2260" + "i2258" + "i2256" + "i2254" + "i2252" + "i2250" + "i2248" + "i2247" + "i2244" + "i2242" + "i2241" + "i2240" + "i2239" + "i2238" + "i2236" + "i2234" + "i2232" + "i2229" + "i2227" + "i2225" + "i2223" + "i2221" + "i2219" + "i2217" + "i2215" + "i2213" + "i2211" + "i2209" + "i2207" + "i2205" + "i2203" + "i2201" + "i2199" + "i2197" + "i2195")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i46" "i45" "i44"))) + ("i2033" + "i2032" + "i2031"))) (hygiene guile)) '(()))) #f) #f)) - #{tmp 13757}#) + #{tmp 15744}#) #f) (@apply - (lambda (#{x 13863}# - #{dots 13864}# - #{ys 13865}#) + (lambda (#{x 15850}# + #{dots 15851}# + #{ys 15852}#) (call-with-values (lambda () - (#{cvt* 13321}# - #{ys 13865}# - #{n 13327}# - #{ids 13328}#)) - (lambda (#{ys 13868}# #{ids 13869}#) + (#{cvt* 15308}# + #{ys 15852}# + #{n 15314}# + #{ids 15315}#)) + (lambda (#{ys 15855}# #{ids 15856}#) (call-with-values (lambda () - (#{cvt 13323}# - #{x 13863}# - (#{1+}# #{n 13327}#) - #{ids 13869}#)) - (lambda (#{x 13870}# #{ids 13871}#) + (#{cvt 15310}# + #{x 15850}# + (#{1+}# #{n 15314}#) + #{ids 15856}#)) + (lambda (#{x 15857}# #{ids 15858}#) (call-with-values (lambda () - (#{v-reverse 13322}# - #{ys 13868}#)) - (lambda (#{ys 13904}# #{e 13905}#) + (#{v-reverse 15309}# + #{ys 15855}#)) + (lambda (#{ys 15891}# #{e 15892}#) (values (vector 'each+ - #{x 13870}# - #{ys 13904}# - #{e 13905}#) - #{ids 13871}#)))))))) - #{tmp 13757}#) - (let ((#{tmp 13906}# - ($sc-dispatch #{p 13326}# '(any . any)))) - (if #{tmp 13906}# + #{x 15857}# + #{ys 15891}# + #{e 15892}#) + #{ids 15858}#)))))))) + #{tmp 15744}#) + (let ((#{tmp 15893}# + ($sc-dispatch #{p 15313}# '(any . any)))) + (if #{tmp 15893}# (@apply - (lambda (#{x 13910}# #{y 13911}#) + (lambda (#{x 15897}# #{y 15898}#) (call-with-values (lambda () - (#{cvt 13323}# - #{y 13911}# - #{n 13327}# - #{ids 13328}#)) - (lambda (#{y 13912}# #{ids 13913}#) + (#{cvt 15310}# + #{y 15898}# + #{n 15314}# + #{ids 15315}#)) + (lambda (#{y 15899}# #{ids 15900}#) (call-with-values (lambda () - (#{cvt 13323}# - #{x 13910}# - #{n 13327}# - #{ids 13913}#)) - (lambda (#{x 13914}# #{ids 13915}#) + (#{cvt 15310}# + #{x 15897}# + #{n 15314}# + #{ids 15900}#)) + (lambda (#{x 15901}# #{ids 15902}#) (values - (cons #{x 13914}# #{y 13912}#) - #{ids 13915}#)))))) - #{tmp 13906}#) - (let ((#{tmp 13916}# - ($sc-dispatch #{p 13326}# '()))) - (if #{tmp 13916}# + (cons #{x 15901}# #{y 15899}#) + #{ids 15902}#)))))) + #{tmp 15893}#) + (let ((#{tmp 15903}# + ($sc-dispatch #{p 15313}# '()))) + (if #{tmp 15903}# (@apply - (lambda () (values '() #{ids 13328}#)) - #{tmp 13916}#) - (let ((#{tmp 13920}# + (lambda () (values '() #{ids 15315}#)) + #{tmp 15903}#) + (let ((#{tmp 15907}# ($sc-dispatch - #{p 13326}# + #{p 15313}# '#(vector each-any)))) - (if #{tmp 13920}# + (if #{tmp 15907}# (@apply - (lambda (#{x 13924}#) + (lambda (#{x 15911}#) (call-with-values (lambda () - (#{cvt 13323}# - #{x 13924}# - #{n 13327}# - #{ids 13328}#)) - (lambda (#{p 13925}# - #{ids 13926}#) + (#{cvt 15310}# + #{x 15911}# + #{n 15314}# + #{ids 15315}#)) + (lambda (#{p 15912}# + #{ids 15913}#) (values (vector 'vector - #{p 13925}#) - #{ids 13926}#)))) - #{tmp 13920}#) + #{p 15912}#) + #{ids 15913}#)))) + #{tmp 15907}#) (values (vector 'atom - (#{strip 4347}# - #{p 13326}# + (#{strip 6334}# + #{p 15313}# '(()))) - #{ids 13328}#))))))))))))))) - (#{cvt 13323}# #{pattern 13319}# 0 '())))) - (#{build-dispatch-call 11723}# - (lambda (#{pvars 14039}# - #{exp 14040}# - #{y 14041}# - #{r 14042}# - #{mod 14043}#) - (let ((#{ids 14044}# (map car #{pvars 14039}#))) + #{ids 15315}#))))))))))))))) + (#{cvt 15310}# #{pattern 15306}# 0 '())))) + (#{build-dispatch-call 13710}# + (lambda (#{pvars 16026}# + #{exp 16027}# + #{y 16028}# + #{r 16029}# + #{mod 16030}#) + (let ((#{ids 16031}# (map car #{pvars 16026}#))) (begin - (map cdr #{pvars 14039}#) - (let ((#{labels 14046}# - (#{gen-labels 4305}# #{ids 14044}#)) - (#{new-vars 14047}# - (map #{gen-var 4348}# #{ids 14044}#))) - (#{build-application 4269}# + (map cdr #{pvars 16026}#) + (let ((#{labels 16033}# + (#{gen-labels 6292}# #{ids 16031}#)) + (#{new-vars 16034}# + (map #{gen-var 6335}# #{ids 16031}#))) + (#{build-application 6256}# #f (if (equal? (module-name (current-module)) '(guile)) (make-struct/no-tail @@ -15222,78 +15250,78 @@ '(guile) 'apply #f)) - (list (#{build-simple-lambda 4278}# + (list (#{build-simple-lambda 6265}# #f - (map syntax->datum #{ids 14044}#) + (map syntax->datum #{ids 16031}#) #f - #{new-vars 14047}# + #{new-vars 16034}# '() - (#{expand 4334}# - #{exp 14040}# - (#{extend-env 4296}# - #{labels 14046}# - (map (lambda (#{var 14372}# #{level 14373}#) + (#{expand 6321}# + #{exp 16027}# + (#{extend-env 6283}# + #{labels 16033}# + (map (lambda (#{var 16359}# #{level 16360}#) (cons 'syntax - (cons #{var 14372}# - #{level 14373}#))) - #{new-vars 14047}# - (map cdr #{pvars 14039}#)) - #{r 14042}#) - (#{make-binding-wrap 4316}# - #{ids 14044}# - #{labels 14046}# + (cons #{var 16359}# + #{level 16360}#))) + #{new-vars 16034}# + (map cdr #{pvars 16026}#)) + #{r 16029}#) + (#{make-binding-wrap 6303}# + #{ids 16031}# + #{labels 16033}# '(())) - #{mod 14043}#)) - #{y 14041}#))))))) - (#{gen-clause 11724}# - (lambda (#{x 12691}# - #{keys 12692}# - #{clauses 12693}# - #{r 12694}# - #{pat 12695}# - #{fender 12696}# - #{exp 12697}# - #{mod 12698}#) + #{mod 16030}#)) + #{y 16028}#))))))) + (#{gen-clause 13711}# + (lambda (#{x 14678}# + #{keys 14679}# + #{clauses 14680}# + #{r 14681}# + #{pat 14682}# + #{fender 14683}# + #{exp 14684}# + #{mod 14685}#) (call-with-values (lambda () - (#{convert-pattern 11722}# - #{pat 12695}# - #{keys 12692}#)) - (lambda (#{p 12853}# #{pvars 12854}#) - (if (not (#{distinct-bound-ids? 4325}# - (map car #{pvars 12854}#))) + (#{convert-pattern 13709}# + #{pat 14682}# + #{keys 14679}#)) + (lambda (#{p 14840}# #{pvars 14841}#) + (if (not (#{distinct-bound-ids? 6312}# + (map car #{pvars 14841}#))) (syntax-violation 'syntax-case "duplicate pattern variable" - #{pat 12695}#) + #{pat 14682}#) (if (not (and-map - (lambda (#{x 12970}#) - (not (let ((#{x 12974}# (car #{x 12970}#))) - (if (if (if (vector? #{x 12974}#) + (lambda (#{x 14957}#) + (not (let ((#{x 14961}# (car #{x 14957}#))) + (if (if (if (vector? #{x 14961}#) (if (= (vector-length - #{x 12974}#) + #{x 14961}#) 4) (eq? (vector-ref - #{x 12974}# + #{x 14961}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{x 12974}# 1)) + (vector-ref #{x 14961}# 1)) #f) - (if (eq? (if (if (vector? #{x 12974}#) + (if (eq? (if (if (vector? #{x 14961}#) (if (= (vector-length - #{x 12974}#) + #{x 14961}#) 4) (eq? (vector-ref - #{x 12974}# + #{x 14961}# 0) 'syntax-object) #f) #f) - (vector-ref #{x 12974}# 1) - #{x 12974}#) + (vector-ref #{x 14961}# 1) + #{x 14961}#) (if (if (= (vector-length '#(syntax-object ... @@ -15309,7 +15337,7 @@ #(ribcage #(x) #((top)) - #("i2219")) + #("i4206")) #(ribcage (lambda-var-list gen-var @@ -15583,142 +15611,142 @@ (top) (top) (top)) - ("i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i398" - "i396" - "i393" - "i392" - "i391" - "i389" - "i388" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i369" - "i367" - "i366" - "i364" - "i362" - "i360" - "i358" - "i357" - "i356" - "i355" - "i353" - "i352" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i336" - "i335" - "i333" - "i331" - "i330" - "i327" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i260" - "i257" - "i255" - "i254" - "i253" - "i252" - "i251" - "i249" - "i247" - "i245" - "i242" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208")) + ("i2454" + "i2452" + "i2450" + "i2448" + "i2446" + "i2444" + "i2442" + "i2440" + "i2438" + "i2436" + "i2434" + "i2432" + "i2430" + "i2428" + "i2426" + "i2424" + "i2422" + "i2420" + "i2418" + "i2416" + "i2414" + "i2412" + "i2410" + "i2408" + "i2406" + "i2404" + "i2402" + "i2400" + "i2398" + "i2396" + "i2394" + "i2392" + "i2390" + "i2388" + "i2386" + "i2385" + "i2383" + "i2380" + "i2379" + "i2378" + "i2376" + "i2375" + "i2373" + "i2371" + "i2369" + "i2367" + "i2365" + "i2363" + "i2361" + "i2359" + "i2356" + "i2354" + "i2353" + "i2351" + "i2349" + "i2347" + "i2345" + "i2344" + "i2343" + "i2342" + "i2340" + "i2339" + "i2336" + "i2334" + "i2332" + "i2330" + "i2328" + "i2326" + "i2324" + "i2323" + "i2322" + "i2320" + "i2318" + "i2317" + "i2314" + "i2313" + "i2311" + "i2309" + "i2307" + "i2305" + "i2303" + "i2301" + "i2299" + "i2297" + "i2295" + "i2292" + "i2290" + "i2288" + "i2286" + "i2284" + "i2282" + "i2280" + "i2278" + "i2276" + "i2274" + "i2272" + "i2270" + "i2268" + "i2266" + "i2264" + "i2262" + "i2260" + "i2258" + "i2256" + "i2254" + "i2252" + "i2250" + "i2248" + "i2247" + "i2244" + "i2242" + "i2241" + "i2240" + "i2239" + "i2238" + "i2236" + "i2234" + "i2232" + "i2229" + "i2227" + "i2225" + "i2223" + "i2221" + "i2219" + "i2217" + "i2215" + "i2213" + "i2211" + "i2209" + "i2207" + "i2205" + "i2203" + "i2201" + "i2199" + "i2197" + "i2195")) #(ribcage (define-structure define-expansion-accessors @@ -15726,9 +15754,9 @@ ((top) (top) (top)) - ("i46" - "i45" - "i44"))) + ("i2033" + "i2032" + "i2031"))) (hygiene guile))) 4) @@ -15743,7 +15771,7 @@ #(ribcage #(x) #((top)) - #("i2219")) + #("i4206")) #(ribcage (lambda-var-list gen-var @@ -16017,153 +16045,155 @@ (top) (top) (top)) - ("i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i398" - "i396" - "i393" - "i392" - "i391" - "i389" - "i388" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i369" - "i367" - "i366" - "i364" - "i362" - "i360" - "i358" - "i357" - "i356" - "i355" - "i353" - "i352" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i336" - "i335" - "i333" - "i331" - "i330" - "i327" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i260" - "i257" - "i255" - "i254" - "i253" - "i252" - "i251" - "i249" - "i247" - "i245" - "i242" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208")) + ("i2454" + "i2452" + "i2450" + "i2448" + "i2446" + "i2444" + "i2442" + "i2440" + "i2438" + "i2436" + "i2434" + "i2432" + "i2430" + "i2428" + "i2426" + "i2424" + "i2422" + "i2420" + "i2418" + "i2416" + "i2414" + "i2412" + "i2410" + "i2408" + "i2406" + "i2404" + "i2402" + "i2400" + "i2398" + "i2396" + "i2394" + "i2392" + "i2390" + "i2388" + "i2386" + "i2385" + "i2383" + "i2380" + "i2379" + "i2378" + "i2376" + "i2375" + "i2373" + "i2371" + "i2369" + "i2367" + "i2365" + "i2363" + "i2361" + "i2359" + "i2356" + "i2354" + "i2353" + "i2351" + "i2349" + "i2347" + "i2345" + "i2344" + "i2343" + "i2342" + "i2340" + "i2339" + "i2336" + "i2334" + "i2332" + "i2330" + "i2328" + "i2326" + "i2324" + "i2323" + "i2322" + "i2320" + "i2318" + "i2317" + "i2314" + "i2313" + "i2311" + "i2309" + "i2307" + "i2305" + "i2303" + "i2301" + "i2299" + "i2297" + "i2295" + "i2292" + "i2290" + "i2288" + "i2286" + "i2284" + "i2282" + "i2280" + "i2278" + "i2276" + "i2274" + "i2272" + "i2270" + "i2268" + "i2266" + "i2264" + "i2262" + "i2260" + "i2258" + "i2256" + "i2254" + "i2252" + "i2250" + "i2248" + "i2247" + "i2244" + "i2242" + "i2241" + "i2240" + "i2239" + "i2238" + "i2236" + "i2234" + "i2232" + "i2229" + "i2227" + "i2225" + "i2223" + "i2221" + "i2219" + "i2217" + "i2215" + "i2213" + "i2211" + "i2209" + "i2207" + "i2205" + "i2203" + "i2201" + "i2199" + "i2197" + "i2195")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i46" "i45" "i44"))) + ("i2033" + "i2032" + "i2031"))) (hygiene guile)))) - (eq? (#{id-var-name 4321}# - #{x 12974}# + (eq? (#{id-var-name 6308}# + #{x 14961}# '(())) - (#{id-var-name 4321}# + (#{id-var-name 6308}# '#(syntax-object ... ((top) @@ -16172,7 +16202,7 @@ #(ribcage #(x) #((top)) - #("i2219")) + #("i4206")) #(ribcage (lambda-var-list gen-var @@ -16446,188 +16476,190 @@ (top) (top) (top)) - ("i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i398" - "i396" - "i393" - "i392" - "i391" - "i389" - "i388" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i369" - "i367" - "i366" - "i364" - "i362" - "i360" - "i358" - "i357" - "i356" - "i355" - "i353" - "i352" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i336" - "i335" - "i333" - "i331" - "i330" - "i327" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i260" - "i257" - "i255" - "i254" - "i253" - "i252" - "i251" - "i249" - "i247" - "i245" - "i242" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208")) + ("i2454" + "i2452" + "i2450" + "i2448" + "i2446" + "i2444" + "i2442" + "i2440" + "i2438" + "i2436" + "i2434" + "i2432" + "i2430" + "i2428" + "i2426" + "i2424" + "i2422" + "i2420" + "i2418" + "i2416" + "i2414" + "i2412" + "i2410" + "i2408" + "i2406" + "i2404" + "i2402" + "i2400" + "i2398" + "i2396" + "i2394" + "i2392" + "i2390" + "i2388" + "i2386" + "i2385" + "i2383" + "i2380" + "i2379" + "i2378" + "i2376" + "i2375" + "i2373" + "i2371" + "i2369" + "i2367" + "i2365" + "i2363" + "i2361" + "i2359" + "i2356" + "i2354" + "i2353" + "i2351" + "i2349" + "i2347" + "i2345" + "i2344" + "i2343" + "i2342" + "i2340" + "i2339" + "i2336" + "i2334" + "i2332" + "i2330" + "i2328" + "i2326" + "i2324" + "i2323" + "i2322" + "i2320" + "i2318" + "i2317" + "i2314" + "i2313" + "i2311" + "i2309" + "i2307" + "i2305" + "i2303" + "i2301" + "i2299" + "i2297" + "i2295" + "i2292" + "i2290" + "i2288" + "i2286" + "i2284" + "i2282" + "i2280" + "i2278" + "i2276" + "i2274" + "i2272" + "i2270" + "i2268" + "i2266" + "i2264" + "i2262" + "i2260" + "i2258" + "i2256" + "i2254" + "i2252" + "i2250" + "i2248" + "i2247" + "i2244" + "i2242" + "i2241" + "i2240" + "i2239" + "i2238" + "i2236" + "i2234" + "i2232" + "i2229" + "i2227" + "i2225" + "i2223" + "i2221" + "i2219" + "i2217" + "i2215" + "i2213" + "i2211" + "i2209" + "i2207" + "i2205" + "i2203" + "i2201" + "i2199" + "i2197" + "i2195")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i46" "i45" "i44"))) + ("i2033" + "i2032" + "i2031"))) (hygiene guile)) '(()))) #f) #f)))) - #{pvars 12854}#)) + #{pvars 14841}#)) (syntax-violation 'syntax-case "misplaced ellipsis" - #{pat 12695}#) - (let ((#{y 13050}# + #{pat 14682}#) + (let ((#{y 15037}# (gensym (string-append (symbol->string 'tmp) " ")))) - (#{build-application 4269}# + (#{build-application 6256}# #f - (let ((#{req 13193}# (list 'tmp)) - (#{vars 13195}# (list #{y 13050}#)) - (#{exp 13197}# - (let ((#{y 13214}# + (let ((#{req 15180}# (list 'tmp)) + (#{vars 15182}# (list #{y 15037}#)) + (#{exp 15184}# + (let ((#{y 15201}# (make-struct/no-tail (vector-ref %expanded-vtables 3) #f 'tmp - #{y 13050}#))) - (let ((#{test-exp 13218}# - (let ((#{tmp 13227}# + #{y 15037}#))) + (let ((#{test-exp 15205}# + (let ((#{tmp 15214}# ($sc-dispatch - #{fender 12696}# + #{fender 14683}# '#(atom #t)))) - (if #{tmp 13227}# + (if #{tmp 15214}# (@apply - (lambda () #{y 13214}#) - #{tmp 13227}#) - (let ((#{then-exp 13245}# - (#{build-dispatch-call 11723}# - #{pvars 12854}# - #{fender 12696}# - #{y 13214}# - #{r 12694}# - #{mod 12698}#)) - (#{else-exp 13246}# + (lambda () #{y 15201}#) + #{tmp 15214}#) + (let ((#{then-exp 15232}# + (#{build-dispatch-call 13710}# + #{pvars 14841}# + #{fender 14683}# + #{y 15201}# + #{r 14681}# + #{mod 14685}#)) + (#{else-exp 15233}# (make-struct/no-tail (vector-ref %expanded-vtables @@ -16639,48 +16671,48 @@ %expanded-vtables 10) #f - #{y 13214}# - #{then-exp 13245}# - #{else-exp 13246}#))))) - (#{then-exp 13219}# - (#{build-dispatch-call 11723}# - #{pvars 12854}# - #{exp 12697}# - #{y 13214}# - #{r 12694}# - #{mod 12698}#)) - (#{else-exp 13220}# - (#{gen-syntax-case 11725}# - #{x 12691}# - #{keys 12692}# - #{clauses 12693}# - #{r 12694}# - #{mod 12698}#))) + #{y 15201}# + #{then-exp 15232}# + #{else-exp 15233}#))))) + (#{then-exp 15206}# + (#{build-dispatch-call 13710}# + #{pvars 14841}# + #{exp 14684}# + #{y 15201}# + #{r 14681}# + #{mod 14685}#)) + (#{else-exp 15207}# + (#{gen-syntax-case 13712}# + #{x 14678}# + #{keys 14679}# + #{clauses 14680}# + #{r 14681}# + #{mod 14685}#))) (make-struct/no-tail (vector-ref %expanded-vtables 10) #f - #{test-exp 13218}# - #{then-exp 13219}# - #{else-exp 13220}#))))) - (let ((#{body 13202}# + #{test-exp 15205}# + #{then-exp 15206}# + #{else-exp 15207}#))))) + (let ((#{body 15189}# (make-struct/no-tail (vector-ref %expanded-vtables 14) #f - #{req 13193}# + #{req 15180}# #f #f #f '() - #{vars 13195}# - #{exp 13197}# + #{vars 15182}# + #{exp 15184}# #f))) (make-struct/no-tail (vector-ref %expanded-vtables 13) #f '() - #{body 13202}#))) - (list (if (eq? #{p 12853}# 'any) - (let ((#{fun-exp 13268}# + #{body 15189}#))) + (list (if (eq? #{p 14840}# 'any) + (let ((#{fun-exp 15255}# (if (equal? (module-name (current-module)) '(guile)) @@ -16694,13 +16726,13 @@ '(guile) 'list #f))) - (#{arg-exps 13269}# (list #{x 12691}#))) + (#{arg-exps 15256}# (list #{x 14678}#))) (make-struct/no-tail (vector-ref %expanded-vtables 11) #f - #{fun-exp 13268}# - #{arg-exps 13269}#)) - (let ((#{fun-exp 13292}# + #{fun-exp 15255}# + #{arg-exps 15256}#)) + (let ((#{fun-exp 15279}# (if (equal? (module-name (current-module)) '(guile)) @@ -16714,27 +16746,27 @@ '(guile) '$sc-dispatch #f))) - (#{arg-exps 13293}# - (list #{x 12691}# + (#{arg-exps 15280}# + (list #{x 14678}# (make-struct/no-tail (vector-ref %expanded-vtables 1) #f - #{p 12853}#)))) + #{p 14840}#)))) (make-struct/no-tail (vector-ref %expanded-vtables 11) #f - #{fun-exp 13292}# - #{arg-exps 13293}#)))))))))))) - (#{gen-syntax-case 11725}# - (lambda (#{x 12124}# - #{keys 12125}# - #{clauses 12126}# - #{r 12127}# - #{mod 12128}#) - (if (null? #{clauses 12126}#) - (let ((#{fun-exp 12133}# + #{fun-exp 15279}# + #{arg-exps 15280}#)))))))))))) + (#{gen-syntax-case 13712}# + (lambda (#{x 14111}# + #{keys 14112}# + #{clauses 14113}# + #{r 14114}# + #{mod 14115}#) + (if (null? #{clauses 14113}#) + (let ((#{fun-exp 14120}# (if (equal? (module-name (current-module)) '(guile)) (make-struct/no-tail (vector-ref %expanded-vtables 7) @@ -16746,7 +16778,7 @@ '(guile) 'syntax-violation #f))) - (#{arg-exps 12134}# + (#{arg-exps 14121}# (list (make-struct/no-tail (vector-ref %expanded-vtables 1) #f @@ -16755,61 +16787,61 @@ (vector-ref %expanded-vtables 1) #f "source expression failed to match any pattern") - #{x 12124}#))) + #{x 14111}#))) (make-struct/no-tail (vector-ref %expanded-vtables 11) #f - #{fun-exp 12133}# - #{arg-exps 12134}#)) - (let ((#{tmp 12167}# (car #{clauses 12126}#))) - (let ((#{tmp 12168}# - ($sc-dispatch #{tmp 12167}# '(any any)))) - (if #{tmp 12168}# + #{fun-exp 14120}# + #{arg-exps 14121}#)) + (let ((#{tmp 14154}# (car #{clauses 14113}#))) + (let ((#{tmp 14155}# + ($sc-dispatch #{tmp 14154}# '(any any)))) + (if #{tmp 14155}# (@apply - (lambda (#{pat 12170}# #{exp 12171}#) - (if (if (if (symbol? #{pat 12170}#) + (lambda (#{pat 14157}# #{exp 14158}#) + (if (if (if (symbol? #{pat 14157}#) #t - (if (if (vector? #{pat 12170}#) - (if (= (vector-length #{pat 12170}#) + (if (if (vector? #{pat 14157}#) + (if (= (vector-length #{pat 14157}#) 4) - (eq? (vector-ref #{pat 12170}# 0) + (eq? (vector-ref #{pat 14157}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{pat 12170}# 1)) + (symbol? (vector-ref #{pat 14157}# 1)) #f)) (and-map - (lambda (#{x 12198}#) + (lambda (#{x 14185}#) (not (if (eq? (if (if (vector? - #{pat 12170}#) + #{pat 14157}#) (if (= (vector-length - #{pat 12170}#) + #{pat 14157}#) 4) (eq? (vector-ref - #{pat 12170}# + #{pat 14157}# 0) 'syntax-object) #f) #f) - (vector-ref #{pat 12170}# 1) - #{pat 12170}#) - (if (if (vector? #{x 12198}#) + (vector-ref #{pat 14157}# 1) + #{pat 14157}#) + (if (if (vector? #{x 14185}#) (if (= (vector-length - #{x 12198}#) + #{x 14185}#) 4) (eq? (vector-ref - #{x 12198}# + #{x 14185}# 0) 'syntax-object) #f) #f) - (vector-ref #{x 12198}# 1) - #{x 12198}#)) - (eq? (#{id-var-name 4321}# - #{pat 12170}# + (vector-ref #{x 14185}# 1) + #{x 14185}#)) + (eq? (#{id-var-name 6308}# + #{pat 14157}# '(())) - (#{id-var-name 4321}# - #{x 12198}# + (#{id-var-name 6308}# + #{x 14185}# '(()))) #f))) (cons '#(syntax-object @@ -16818,23 +16850,23 @@ #(ribcage #(pat exp) #((top) (top)) - #("i3900" "i3901")) + #("i5887" "i5888")) #(ribcage () () ()) #(ribcage #(x keys clauses r mod) #((top) (top) (top) (top) (top)) - #("i3889" - "i3890" - "i3891" - "i3892" - "i3893")) + #("i5876" + "i5877" + "i5878" + "i5879" + "i5880")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("i3699" "i3697" "i3695" "i3693")) + ("i5686" "i5684" "i5682" "i5680")) #(ribcage (lambda-var-list gen-var @@ -17108,150 +17140,150 @@ (top) (top) (top)) - ("i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i398" - "i396" - "i393" - "i392" - "i391" - "i389" - "i388" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i369" - "i367" - "i366" - "i364" - "i362" - "i360" - "i358" - "i357" - "i356" - "i355" - "i353" - "i352" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i336" - "i335" - "i333" - "i331" - "i330" - "i327" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i260" - "i257" - "i255" - "i254" - "i253" - "i252" - "i251" - "i249" - "i247" - "i245" - "i242" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208")) + ("i2454" + "i2452" + "i2450" + "i2448" + "i2446" + "i2444" + "i2442" + "i2440" + "i2438" + "i2436" + "i2434" + "i2432" + "i2430" + "i2428" + "i2426" + "i2424" + "i2422" + "i2420" + "i2418" + "i2416" + "i2414" + "i2412" + "i2410" + "i2408" + "i2406" + "i2404" + "i2402" + "i2400" + "i2398" + "i2396" + "i2394" + "i2392" + "i2390" + "i2388" + "i2386" + "i2385" + "i2383" + "i2380" + "i2379" + "i2378" + "i2376" + "i2375" + "i2373" + "i2371" + "i2369" + "i2367" + "i2365" + "i2363" + "i2361" + "i2359" + "i2356" + "i2354" + "i2353" + "i2351" + "i2349" + "i2347" + "i2345" + "i2344" + "i2343" + "i2342" + "i2340" + "i2339" + "i2336" + "i2334" + "i2332" + "i2330" + "i2328" + "i2326" + "i2324" + "i2323" + "i2322" + "i2320" + "i2318" + "i2317" + "i2314" + "i2313" + "i2311" + "i2309" + "i2307" + "i2305" + "i2303" + "i2301" + "i2299" + "i2297" + "i2295" + "i2292" + "i2290" + "i2288" + "i2286" + "i2284" + "i2282" + "i2280" + "i2278" + "i2276" + "i2274" + "i2272" + "i2270" + "i2268" + "i2266" + "i2264" + "i2262" + "i2260" + "i2258" + "i2256" + "i2254" + "i2252" + "i2250" + "i2248" + "i2247" + "i2244" + "i2242" + "i2241" + "i2240" + "i2239" + "i2238" + "i2236" + "i2234" + "i2232" + "i2229" + "i2227" + "i2225" + "i2223" + "i2221" + "i2219" + "i2217" + "i2215" + "i2213" + "i2211" + "i2209" + "i2207" + "i2205" + "i2203" + "i2201" + "i2199" + "i2197" + "i2195")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i46" "i45" "i44"))) + ("i2033" "i2032" "i2031"))) (hygiene guile)) - #{keys 12125}#)) + #{keys 14112}#)) #f) (if (if (eq? (if (if (= (vector-length '#(syntax-object @@ -17260,7 +17292,7 @@ #(ribcage #(pat exp) #((top) (top)) - #("i3900" "i3901")) + #("i5887" "i5888")) #(ribcage () () ()) #(ribcage #(x @@ -17273,11 +17305,11 @@ (top) (top) (top)) - #("i3889" - "i3890" - "i3891" - "i3892" - "i3893")) + #("i5876" + "i5877" + "i5878" + "i5879" + "i5880")) #(ribcage (gen-syntax-case gen-clause @@ -17287,10 +17319,10 @@ (top) (top) (top)) - ("i3699" - "i3697" - "i3695" - "i3693")) + ("i5686" + "i5684" + "i5682" + "i5680")) #(ribcage (lambda-var-list gen-var @@ -17564,150 +17596,150 @@ (top) (top) (top)) - ("i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i398" - "i396" - "i393" - "i392" - "i391" - "i389" - "i388" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i369" - "i367" - "i366" - "i364" - "i362" - "i360" - "i358" - "i357" - "i356" - "i355" - "i353" - "i352" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i336" - "i335" - "i333" - "i331" - "i330" - "i327" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i260" - "i257" - "i255" - "i254" - "i253" - "i252" - "i251" - "i249" - "i247" - "i245" - "i242" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208")) + ("i2454" + "i2452" + "i2450" + "i2448" + "i2446" + "i2444" + "i2442" + "i2440" + "i2438" + "i2436" + "i2434" + "i2432" + "i2430" + "i2428" + "i2426" + "i2424" + "i2422" + "i2420" + "i2418" + "i2416" + "i2414" + "i2412" + "i2410" + "i2408" + "i2406" + "i2404" + "i2402" + "i2400" + "i2398" + "i2396" + "i2394" + "i2392" + "i2390" + "i2388" + "i2386" + "i2385" + "i2383" + "i2380" + "i2379" + "i2378" + "i2376" + "i2375" + "i2373" + "i2371" + "i2369" + "i2367" + "i2365" + "i2363" + "i2361" + "i2359" + "i2356" + "i2354" + "i2353" + "i2351" + "i2349" + "i2347" + "i2345" + "i2344" + "i2343" + "i2342" + "i2340" + "i2339" + "i2336" + "i2334" + "i2332" + "i2330" + "i2328" + "i2326" + "i2324" + "i2323" + "i2322" + "i2320" + "i2318" + "i2317" + "i2314" + "i2313" + "i2311" + "i2309" + "i2307" + "i2305" + "i2303" + "i2301" + "i2299" + "i2297" + "i2295" + "i2292" + "i2290" + "i2288" + "i2286" + "i2284" + "i2282" + "i2280" + "i2278" + "i2276" + "i2274" + "i2272" + "i2270" + "i2268" + "i2266" + "i2264" + "i2262" + "i2260" + "i2258" + "i2256" + "i2254" + "i2252" + "i2250" + "i2248" + "i2247" + "i2244" + "i2242" + "i2241" + "i2240" + "i2239" + "i2238" + "i2236" + "i2234" + "i2232" + "i2229" + "i2227" + "i2225" + "i2223" + "i2221" + "i2219" + "i2217" + "i2215" + "i2213" + "i2211" + "i2209" + "i2207" + "i2205" + "i2203" + "i2201" + "i2199" + "i2197" + "i2195")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i46" - "i45" - "i44"))) + ("i2033" + "i2032" + "i2031"))) (hygiene guile))) 4) #t @@ -17719,7 +17751,7 @@ #(ribcage #(pat exp) #((top) (top)) - #("i3900" "i3901")) + #("i5887" "i5888")) #(ribcage () () ()) #(ribcage #(x keys clauses r mod) @@ -17728,21 +17760,21 @@ (top) (top) (top)) - #("i3889" - "i3890" - "i3891" - "i3892" - "i3893")) + #("i5876" + "i5877" + "i5878" + "i5879" + "i5880")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("i3699" - "i3697" - "i3695" - "i3693")) + ("i5686" + "i5684" + "i5682" + "i5680")) #(ribcage (lambda-var-list gen-var @@ -18016,148 +18048,148 @@ (top) (top) (top)) - ("i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i398" - "i396" - "i393" - "i392" - "i391" - "i389" - "i388" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i369" - "i367" - "i366" - "i364" - "i362" - "i360" - "i358" - "i357" - "i356" - "i355" - "i353" - "i352" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i336" - "i335" - "i333" - "i331" - "i330" - "i327" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i260" - "i257" - "i255" - "i254" - "i253" - "i252" - "i251" - "i249" - "i247" - "i245" - "i242" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208")) + ("i2454" + "i2452" + "i2450" + "i2448" + "i2446" + "i2444" + "i2442" + "i2440" + "i2438" + "i2436" + "i2434" + "i2432" + "i2430" + "i2428" + "i2426" + "i2424" + "i2422" + "i2420" + "i2418" + "i2416" + "i2414" + "i2412" + "i2410" + "i2408" + "i2406" + "i2404" + "i2402" + "i2400" + "i2398" + "i2396" + "i2394" + "i2392" + "i2390" + "i2388" + "i2386" + "i2385" + "i2383" + "i2380" + "i2379" + "i2378" + "i2376" + "i2375" + "i2373" + "i2371" + "i2369" + "i2367" + "i2365" + "i2363" + "i2361" + "i2359" + "i2356" + "i2354" + "i2353" + "i2351" + "i2349" + "i2347" + "i2345" + "i2344" + "i2343" + "i2342" + "i2340" + "i2339" + "i2336" + "i2334" + "i2332" + "i2330" + "i2328" + "i2326" + "i2324" + "i2323" + "i2322" + "i2320" + "i2318" + "i2317" + "i2314" + "i2313" + "i2311" + "i2309" + "i2307" + "i2305" + "i2303" + "i2301" + "i2299" + "i2297" + "i2295" + "i2292" + "i2290" + "i2288" + "i2286" + "i2284" + "i2282" + "i2280" + "i2278" + "i2276" + "i2274" + "i2272" + "i2270" + "i2268" + "i2266" + "i2264" + "i2262" + "i2260" + "i2258" + "i2256" + "i2254" + "i2252" + "i2250" + "i2248" + "i2247" + "i2244" + "i2242" + "i2241" + "i2240" + "i2239" + "i2238" + "i2236" + "i2234" + "i2232" + "i2229" + "i2227" + "i2225" + "i2223" + "i2221" + "i2219" + "i2217" + "i2215" + "i2213" + "i2211" + "i2209" + "i2207" + "i2205" + "i2203" + "i2201" + "i2199" + "i2197" + "i2195")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i46" "i45" "i44"))) + ("i2033" "i2032" "i2031"))) (hygiene guile))) (if (if (= (vector-length '#(syntax-object @@ -18166,7 +18198,7 @@ #(ribcage #(pat exp) #((top) (top)) - #("i3900" "i3901")) + #("i5887" "i5888")) #(ribcage () () ()) #(ribcage #(x @@ -18179,11 +18211,11 @@ (top) (top) (top)) - #("i3889" - "i3890" - "i3891" - "i3892" - "i3893")) + #("i5876" + "i5877" + "i5878" + "i5879" + "i5880")) #(ribcage (gen-syntax-case gen-clause @@ -18193,10 +18225,10 @@ (top) (top) (top)) - ("i3699" - "i3697" - "i3695" - "i3693")) + ("i5686" + "i5684" + "i5682" + "i5680")) #(ribcage (lambda-var-list gen-var @@ -18470,150 +18502,150 @@ (top) (top) (top)) - ("i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i398" - "i396" - "i393" - "i392" - "i391" - "i389" - "i388" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i369" - "i367" - "i366" - "i364" - "i362" - "i360" - "i358" - "i357" - "i356" - "i355" - "i353" - "i352" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i336" - "i335" - "i333" - "i331" - "i330" - "i327" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i260" - "i257" - "i255" - "i254" - "i253" - "i252" - "i251" - "i249" - "i247" - "i245" - "i242" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208")) + ("i2454" + "i2452" + "i2450" + "i2448" + "i2446" + "i2444" + "i2442" + "i2440" + "i2438" + "i2436" + "i2434" + "i2432" + "i2430" + "i2428" + "i2426" + "i2424" + "i2422" + "i2420" + "i2418" + "i2416" + "i2414" + "i2412" + "i2410" + "i2408" + "i2406" + "i2404" + "i2402" + "i2400" + "i2398" + "i2396" + "i2394" + "i2392" + "i2390" + "i2388" + "i2386" + "i2385" + "i2383" + "i2380" + "i2379" + "i2378" + "i2376" + "i2375" + "i2373" + "i2371" + "i2369" + "i2367" + "i2365" + "i2363" + "i2361" + "i2359" + "i2356" + "i2354" + "i2353" + "i2351" + "i2349" + "i2347" + "i2345" + "i2344" + "i2343" + "i2342" + "i2340" + "i2339" + "i2336" + "i2334" + "i2332" + "i2330" + "i2328" + "i2326" + "i2324" + "i2323" + "i2322" + "i2320" + "i2318" + "i2317" + "i2314" + "i2313" + "i2311" + "i2309" + "i2307" + "i2305" + "i2303" + "i2301" + "i2299" + "i2297" + "i2295" + "i2292" + "i2290" + "i2288" + "i2286" + "i2284" + "i2282" + "i2280" + "i2278" + "i2276" + "i2274" + "i2272" + "i2270" + "i2268" + "i2266" + "i2264" + "i2262" + "i2260" + "i2258" + "i2256" + "i2254" + "i2252" + "i2250" + "i2248" + "i2247" + "i2244" + "i2242" + "i2241" + "i2240" + "i2239" + "i2238" + "i2236" + "i2234" + "i2232" + "i2229" + "i2227" + "i2225" + "i2223" + "i2221" + "i2219" + "i2217" + "i2215" + "i2213" + "i2211" + "i2209" + "i2207" + "i2205" + "i2203" + "i2201" + "i2199" + "i2197" + "i2195")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i46" - "i45" - "i44"))) + ("i2033" + "i2032" + "i2031"))) (hygiene guile))) 4) #t @@ -18625,7 +18657,7 @@ #(ribcage #(pat exp) #((top) (top)) - #("i3900" "i3901")) + #("i5887" "i5888")) #(ribcage () () ()) #(ribcage #(x keys clauses r mod) @@ -18634,21 +18666,21 @@ (top) (top) (top)) - #("i3889" - "i3890" - "i3891" - "i3892" - "i3893")) + #("i5876" + "i5877" + "i5878" + "i5879" + "i5880")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("i3699" - "i3697" - "i3695" - "i3693")) + ("i5686" + "i5684" + "i5682" + "i5680")) #(ribcage (lambda-var-list gen-var @@ -18922,176 +18954,176 @@ (top) (top) (top)) - ("i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i398" - "i396" - "i393" - "i392" - "i391" - "i389" - "i388" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i369" - "i367" - "i366" - "i364" - "i362" - "i360" - "i358" - "i357" - "i356" - "i355" - "i353" - "i352" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i336" - "i335" - "i333" - "i331" - "i330" - "i327" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i260" - "i257" - "i255" - "i254" - "i253" - "i252" - "i251" - "i249" - "i247" - "i245" - "i242" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208")) + ("i2454" + "i2452" + "i2450" + "i2448" + "i2446" + "i2444" + "i2442" + "i2440" + "i2438" + "i2436" + "i2434" + "i2432" + "i2430" + "i2428" + "i2426" + "i2424" + "i2422" + "i2420" + "i2418" + "i2416" + "i2414" + "i2412" + "i2410" + "i2408" + "i2406" + "i2404" + "i2402" + "i2400" + "i2398" + "i2396" + "i2394" + "i2392" + "i2390" + "i2388" + "i2386" + "i2385" + "i2383" + "i2380" + "i2379" + "i2378" + "i2376" + "i2375" + "i2373" + "i2371" + "i2369" + "i2367" + "i2365" + "i2363" + "i2361" + "i2359" + "i2356" + "i2354" + "i2353" + "i2351" + "i2349" + "i2347" + "i2345" + "i2344" + "i2343" + "i2342" + "i2340" + "i2339" + "i2336" + "i2334" + "i2332" + "i2330" + "i2328" + "i2326" + "i2324" + "i2323" + "i2322" + "i2320" + "i2318" + "i2317" + "i2314" + "i2313" + "i2311" + "i2309" + "i2307" + "i2305" + "i2303" + "i2301" + "i2299" + "i2297" + "i2295" + "i2292" + "i2290" + "i2288" + "i2286" + "i2284" + "i2282" + "i2280" + "i2278" + "i2276" + "i2274" + "i2272" + "i2270" + "i2268" + "i2266" + "i2264" + "i2262" + "i2260" + "i2258" + "i2256" + "i2254" + "i2252" + "i2250" + "i2248" + "i2247" + "i2244" + "i2242" + "i2241" + "i2240" + "i2239" + "i2238" + "i2236" + "i2234" + "i2232" + "i2229" + "i2227" + "i2225" + "i2223" + "i2221" + "i2219" + "i2217" + "i2215" + "i2213" + "i2211" + "i2209" + "i2207" + "i2205" + "i2203" + "i2201" + "i2199" + "i2197" + "i2195")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i46" "i45" "i44"))) + ("i2033" "i2032" "i2031"))) (hygiene guile)))) - (eq? (#{id-var-name 4321}# + (eq? (#{id-var-name 6308}# '#(syntax-object pad ((top) #(ribcage #(pat exp) #((top) (top)) - #("i3900" "i3901")) + #("i5887" "i5888")) #(ribcage () () ()) #(ribcage #(x keys clauses r mod) #((top) (top) (top) (top) (top)) - #("i3889" - "i3890" - "i3891" - "i3892" - "i3893")) + #("i5876" + "i5877" + "i5878" + "i5879" + "i5880")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("i3699" - "i3697" - "i3695" - "i3693")) + ("i5686" + "i5684" + "i5682" + "i5680")) #(ribcage (lambda-var-list gen-var @@ -19365,177 +19397,177 @@ (top) (top) (top)) - ("i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i398" - "i396" - "i393" - "i392" - "i391" - "i389" - "i388" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i369" - "i367" - "i366" - "i364" - "i362" - "i360" - "i358" - "i357" - "i356" - "i355" - "i353" - "i352" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i336" - "i335" - "i333" - "i331" - "i330" - "i327" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i260" - "i257" - "i255" - "i254" - "i253" - "i252" - "i251" - "i249" - "i247" - "i245" - "i242" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208")) + ("i2454" + "i2452" + "i2450" + "i2448" + "i2446" + "i2444" + "i2442" + "i2440" + "i2438" + "i2436" + "i2434" + "i2432" + "i2430" + "i2428" + "i2426" + "i2424" + "i2422" + "i2420" + "i2418" + "i2416" + "i2414" + "i2412" + "i2410" + "i2408" + "i2406" + "i2404" + "i2402" + "i2400" + "i2398" + "i2396" + "i2394" + "i2392" + "i2390" + "i2388" + "i2386" + "i2385" + "i2383" + "i2380" + "i2379" + "i2378" + "i2376" + "i2375" + "i2373" + "i2371" + "i2369" + "i2367" + "i2365" + "i2363" + "i2361" + "i2359" + "i2356" + "i2354" + "i2353" + "i2351" + "i2349" + "i2347" + "i2345" + "i2344" + "i2343" + "i2342" + "i2340" + "i2339" + "i2336" + "i2334" + "i2332" + "i2330" + "i2328" + "i2326" + "i2324" + "i2323" + "i2322" + "i2320" + "i2318" + "i2317" + "i2314" + "i2313" + "i2311" + "i2309" + "i2307" + "i2305" + "i2303" + "i2301" + "i2299" + "i2297" + "i2295" + "i2292" + "i2290" + "i2288" + "i2286" + "i2284" + "i2282" + "i2280" + "i2278" + "i2276" + "i2274" + "i2272" + "i2270" + "i2268" + "i2266" + "i2264" + "i2262" + "i2260" + "i2258" + "i2256" + "i2254" + "i2252" + "i2250" + "i2248" + "i2247" + "i2244" + "i2242" + "i2241" + "i2240" + "i2239" + "i2238" + "i2236" + "i2234" + "i2232" + "i2229" + "i2227" + "i2225" + "i2223" + "i2221" + "i2219" + "i2217" + "i2215" + "i2213" + "i2211" + "i2209" + "i2207" + "i2205" + "i2203" + "i2201" + "i2199" + "i2197" + "i2195")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i46" "i45" "i44"))) + ("i2033" "i2032" "i2031"))) (hygiene guile)) '(())) - (#{id-var-name 4321}# + (#{id-var-name 6308}# '#(syntax-object _ ((top) #(ribcage #(pat exp) #((top) (top)) - #("i3900" "i3901")) + #("i5887" "i5888")) #(ribcage () () ()) #(ribcage #(x keys clauses r mod) #((top) (top) (top) (top) (top)) - #("i3889" - "i3890" - "i3891" - "i3892" - "i3893")) + #("i5876" + "i5877" + "i5878" + "i5879" + "i5880")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("i3699" - "i3697" - "i3695" - "i3693")) + ("i5686" + "i5684" + "i5682" + "i5680")) #(ribcage (lambda-var-list gen-var @@ -19809,281 +19841,281 @@ (top) (top) (top)) - ("i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i398" - "i396" - "i393" - "i392" - "i391" - "i389" - "i388" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i369" - "i367" - "i366" - "i364" - "i362" - "i360" - "i358" - "i357" - "i356" - "i355" - "i353" - "i352" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i336" - "i335" - "i333" - "i331" - "i330" - "i327" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i260" - "i257" - "i255" - "i254" - "i253" - "i252" - "i251" - "i249" - "i247" - "i245" - "i242" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208")) + ("i2454" + "i2452" + "i2450" + "i2448" + "i2446" + "i2444" + "i2442" + "i2440" + "i2438" + "i2436" + "i2434" + "i2432" + "i2430" + "i2428" + "i2426" + "i2424" + "i2422" + "i2420" + "i2418" + "i2416" + "i2414" + "i2412" + "i2410" + "i2408" + "i2406" + "i2404" + "i2402" + "i2400" + "i2398" + "i2396" + "i2394" + "i2392" + "i2390" + "i2388" + "i2386" + "i2385" + "i2383" + "i2380" + "i2379" + "i2378" + "i2376" + "i2375" + "i2373" + "i2371" + "i2369" + "i2367" + "i2365" + "i2363" + "i2361" + "i2359" + "i2356" + "i2354" + "i2353" + "i2351" + "i2349" + "i2347" + "i2345" + "i2344" + "i2343" + "i2342" + "i2340" + "i2339" + "i2336" + "i2334" + "i2332" + "i2330" + "i2328" + "i2326" + "i2324" + "i2323" + "i2322" + "i2320" + "i2318" + "i2317" + "i2314" + "i2313" + "i2311" + "i2309" + "i2307" + "i2305" + "i2303" + "i2301" + "i2299" + "i2297" + "i2295" + "i2292" + "i2290" + "i2288" + "i2286" + "i2284" + "i2282" + "i2280" + "i2278" + "i2276" + "i2274" + "i2272" + "i2270" + "i2268" + "i2266" + "i2264" + "i2262" + "i2260" + "i2258" + "i2256" + "i2254" + "i2252" + "i2250" + "i2248" + "i2247" + "i2244" + "i2242" + "i2241" + "i2240" + "i2239" + "i2238" + "i2236" + "i2234" + "i2232" + "i2229" + "i2227" + "i2225" + "i2223" + "i2221" + "i2219" + "i2217" + "i2215" + "i2213" + "i2211" + "i2209" + "i2207" + "i2205" + "i2203" + "i2201" + "i2199" + "i2197" + "i2195")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i46" "i45" "i44"))) + ("i2033" "i2032" "i2031"))) (hygiene guile)) '(()))) #f) - (#{expand 4334}# - #{exp 12171}# - #{r 12127}# + (#{expand 6321}# + #{exp 14158}# + #{r 14114}# '(()) - #{mod 12128}#) - (let ((#{labels 12374}# + #{mod 14115}#) + (let ((#{labels 14361}# (list (symbol->string (gensym "i")))) - (#{var 12375}# - (let ((#{id 12413}# - (if (if (vector? #{pat 12170}#) + (#{var 14362}# + (let ((#{id 14400}# + (if (if (vector? #{pat 14157}#) (if (= (vector-length - #{pat 12170}#) + #{pat 14157}#) 4) (eq? (vector-ref - #{pat 12170}# + #{pat 14157}# 0) 'syntax-object) #f) #f) - (vector-ref #{pat 12170}# 1) - #{pat 12170}#))) + (vector-ref #{pat 14157}# 1) + #{pat 14157}#))) (gensym (string-append - (symbol->string #{id 12413}#) + (symbol->string #{id 14400}#) " "))))) - (#{build-application 4269}# + (#{build-application 6256}# #f - (#{build-simple-lambda 4278}# + (#{build-simple-lambda 6265}# #f - (list (syntax->datum #{pat 12170}#)) + (list (syntax->datum #{pat 14157}#)) #f - (list #{var 12375}#) + (list #{var 14362}#) '() - (#{expand 4334}# - #{exp 12171}# - (#{extend-env 4296}# - #{labels 12374}# + (#{expand 6321}# + #{exp 14158}# + (#{extend-env 6283}# + #{labels 14361}# (list (cons 'syntax - (cons #{var 12375}# 0))) - #{r 12127}#) - (#{make-binding-wrap 4316}# - (list #{pat 12170}#) - #{labels 12374}# + (cons #{var 14362}# 0))) + #{r 14114}#) + (#{make-binding-wrap 6303}# + (list #{pat 14157}#) + #{labels 14361}# '(())) - #{mod 12128}#)) - (list #{x 12124}#)))) - (#{gen-clause 11724}# - #{x 12124}# - #{keys 12125}# - (cdr #{clauses 12126}#) - #{r 12127}# - #{pat 12170}# + #{mod 14115}#)) + (list #{x 14111}#)))) + (#{gen-clause 13711}# + #{x 14111}# + #{keys 14112}# + (cdr #{clauses 14113}#) + #{r 14114}# + #{pat 14157}# #t - #{exp 12171}# - #{mod 12128}#))) - #{tmp 12168}#) - (let ((#{tmp 12683}# - ($sc-dispatch #{tmp 12167}# '(any any any)))) - (if #{tmp 12683}# + #{exp 14158}# + #{mod 14115}#))) + #{tmp 14155}#) + (let ((#{tmp 14670}# + ($sc-dispatch #{tmp 14154}# '(any any any)))) + (if #{tmp 14670}# (@apply - (lambda (#{pat 12685}# - #{fender 12686}# - #{exp 12687}#) - (#{gen-clause 11724}# - #{x 12124}# - #{keys 12125}# - (cdr #{clauses 12126}#) - #{r 12127}# - #{pat 12685}# - #{fender 12686}# - #{exp 12687}# - #{mod 12128}#)) - #{tmp 12683}#) + (lambda (#{pat 14672}# + #{fender 14673}# + #{exp 14674}#) + (#{gen-clause 13711}# + #{x 14111}# + #{keys 14112}# + (cdr #{clauses 14113}#) + #{r 14114}# + #{pat 14672}# + #{fender 14673}# + #{exp 14674}# + #{mod 14115}#)) + #{tmp 14670}#) (syntax-violation 'syntax-case "invalid clause" - (car #{clauses 12126}#))))))))))) - (lambda (#{e 11726}# - #{r 11727}# - #{w 11728}# - #{s 11729}# - #{mod 11730}#) - (let ((#{e 11731}# - (#{wrap 4327}# + (car #{clauses 14113}#))))))))))) + (lambda (#{e 13713}# + #{r 13714}# + #{w 13715}# + #{s 13716}# + #{mod 13717}#) + (let ((#{e 13718}# + (#{wrap 6314}# (begin - (if (if (pair? #{e 11726}#) #{s 11729}# #f) - (set-source-properties! #{e 11726}# #{s 11729}#)) - #{e 11726}#) - #{w 11728}# - #{mod 11730}#))) - (let ((#{tmp 11733}# + (if (if (pair? #{e 13713}#) #{s 13716}# #f) + (set-source-properties! #{e 13713}# #{s 13716}#)) + #{e 13713}#) + #{w 13715}# + #{mod 13717}#))) + (let ((#{tmp 13720}# ($sc-dispatch - #{e 11731}# + #{e 13718}# '(_ any each-any . each-any)))) - (if #{tmp 11733}# + (if #{tmp 13720}# (@apply - (lambda (#{val 11758}# #{key 11759}# #{m 11760}#) + (lambda (#{val 13745}# #{key 13746}# #{m 13747}#) (if (and-map - (lambda (#{x 11761}#) - (if (if (symbol? #{x 11761}#) + (lambda (#{x 13748}#) + (if (if (symbol? #{x 13748}#) #t - (if (if (vector? #{x 11761}#) - (if (= (vector-length #{x 11761}#) 4) - (eq? (vector-ref #{x 11761}# 0) + (if (if (vector? #{x 13748}#) + (if (= (vector-length #{x 13748}#) 4) + (eq? (vector-ref #{x 13748}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{x 11761}# 1)) + (symbol? (vector-ref #{x 13748}# 1)) #f)) - (not (if (if (if (vector? #{x 11761}#) - (if (= (vector-length #{x 11761}#) + (not (if (if (if (vector? #{x 13748}#) + (if (= (vector-length #{x 13748}#) 4) - (eq? (vector-ref #{x 11761}# 0) + (eq? (vector-ref #{x 13748}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{x 11761}# 1)) + (symbol? (vector-ref #{x 13748}# 1)) #f) - (if (eq? (if (if (vector? #{x 11761}#) + (if (eq? (if (if (vector? #{x 13748}#) (if (= (vector-length - #{x 11761}#) + #{x 13748}#) 4) (eq? (vector-ref - #{x 11761}# + #{x 13748}# 0) 'syntax-object) #f) #f) - (vector-ref #{x 11761}# 1) - #{x 11761}#) + (vector-ref #{x 13748}# 1) + #{x 13748}#) (if (if (= (vector-length '#(syntax-object ... @@ -20099,7 +20131,7 @@ #(ribcage #(x) #((top)) - #("i2219")) + #("i4206")) #(ribcage (lambda-var-list gen-var @@ -20373,142 +20405,142 @@ (top) (top) (top)) - ("i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i398" - "i396" - "i393" - "i392" - "i391" - "i389" - "i388" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i369" - "i367" - "i366" - "i364" - "i362" - "i360" - "i358" - "i357" - "i356" - "i355" - "i353" - "i352" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i336" - "i335" - "i333" - "i331" - "i330" - "i327" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i260" - "i257" - "i255" - "i254" - "i253" - "i252" - "i251" - "i249" - "i247" - "i245" - "i242" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208")) + ("i2454" + "i2452" + "i2450" + "i2448" + "i2446" + "i2444" + "i2442" + "i2440" + "i2438" + "i2436" + "i2434" + "i2432" + "i2430" + "i2428" + "i2426" + "i2424" + "i2422" + "i2420" + "i2418" + "i2416" + "i2414" + "i2412" + "i2410" + "i2408" + "i2406" + "i2404" + "i2402" + "i2400" + "i2398" + "i2396" + "i2394" + "i2392" + "i2390" + "i2388" + "i2386" + "i2385" + "i2383" + "i2380" + "i2379" + "i2378" + "i2376" + "i2375" + "i2373" + "i2371" + "i2369" + "i2367" + "i2365" + "i2363" + "i2361" + "i2359" + "i2356" + "i2354" + "i2353" + "i2351" + "i2349" + "i2347" + "i2345" + "i2344" + "i2343" + "i2342" + "i2340" + "i2339" + "i2336" + "i2334" + "i2332" + "i2330" + "i2328" + "i2326" + "i2324" + "i2323" + "i2322" + "i2320" + "i2318" + "i2317" + "i2314" + "i2313" + "i2311" + "i2309" + "i2307" + "i2305" + "i2303" + "i2301" + "i2299" + "i2297" + "i2295" + "i2292" + "i2290" + "i2288" + "i2286" + "i2284" + "i2282" + "i2280" + "i2278" + "i2276" + "i2274" + "i2272" + "i2270" + "i2268" + "i2266" + "i2264" + "i2262" + "i2260" + "i2258" + "i2256" + "i2254" + "i2252" + "i2250" + "i2248" + "i2247" + "i2244" + "i2242" + "i2241" + "i2240" + "i2239" + "i2238" + "i2236" + "i2234" + "i2232" + "i2229" + "i2227" + "i2225" + "i2223" + "i2221" + "i2219" + "i2217" + "i2215" + "i2213" + "i2211" + "i2209" + "i2207" + "i2205" + "i2203" + "i2201" + "i2199" + "i2197" + "i2195")) #(ribcage (define-structure define-expansion-accessors @@ -20516,9 +20548,9 @@ ((top) (top) (top)) - ("i46" - "i45" - "i44"))) + ("i2033" + "i2032" + "i2031"))) (hygiene guile))) 4) #t @@ -20532,7 +20564,7 @@ #(ribcage #(x) #((top)) - #("i2219")) + #("i4206")) #(ribcage (lambda-var-list gen-var @@ -20806,153 +20838,155 @@ (top) (top) (top)) - ("i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i398" - "i396" - "i393" - "i392" - "i391" - "i389" - "i388" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i369" - "i367" - "i366" - "i364" - "i362" - "i360" - "i358" - "i357" - "i356" - "i355" - "i353" - "i352" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i336" - "i335" - "i333" - "i331" - "i330" - "i327" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i260" - "i257" - "i255" - "i254" - "i253" - "i252" - "i251" - "i249" - "i247" - "i245" - "i242" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208")) + ("i2454" + "i2452" + "i2450" + "i2448" + "i2446" + "i2444" + "i2442" + "i2440" + "i2438" + "i2436" + "i2434" + "i2432" + "i2430" + "i2428" + "i2426" + "i2424" + "i2422" + "i2420" + "i2418" + "i2416" + "i2414" + "i2412" + "i2410" + "i2408" + "i2406" + "i2404" + "i2402" + "i2400" + "i2398" + "i2396" + "i2394" + "i2392" + "i2390" + "i2388" + "i2386" + "i2385" + "i2383" + "i2380" + "i2379" + "i2378" + "i2376" + "i2375" + "i2373" + "i2371" + "i2369" + "i2367" + "i2365" + "i2363" + "i2361" + "i2359" + "i2356" + "i2354" + "i2353" + "i2351" + "i2349" + "i2347" + "i2345" + "i2344" + "i2343" + "i2342" + "i2340" + "i2339" + "i2336" + "i2334" + "i2332" + "i2330" + "i2328" + "i2326" + "i2324" + "i2323" + "i2322" + "i2320" + "i2318" + "i2317" + "i2314" + "i2313" + "i2311" + "i2309" + "i2307" + "i2305" + "i2303" + "i2301" + "i2299" + "i2297" + "i2295" + "i2292" + "i2290" + "i2288" + "i2286" + "i2284" + "i2282" + "i2280" + "i2278" + "i2276" + "i2274" + "i2272" + "i2270" + "i2268" + "i2266" + "i2264" + "i2262" + "i2260" + "i2258" + "i2256" + "i2254" + "i2252" + "i2250" + "i2248" + "i2247" + "i2244" + "i2242" + "i2241" + "i2240" + "i2239" + "i2238" + "i2236" + "i2234" + "i2232" + "i2229" + "i2227" + "i2225" + "i2223" + "i2221" + "i2219" + "i2217" + "i2215" + "i2213" + "i2211" + "i2209" + "i2207" + "i2205" + "i2203" + "i2201" + "i2199" + "i2197" + "i2195")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i46" "i45" "i44"))) + ("i2033" + "i2032" + "i2031"))) (hygiene guile)))) - (eq? (#{id-var-name 4321}# - #{x 11761}# + (eq? (#{id-var-name 6308}# + #{x 13748}# '(())) - (#{id-var-name 4321}# + (#{id-var-name 6308}# '#(syntax-object ... ((top) @@ -20961,7 +20995,7 @@ #(ribcage #(x) #((top)) - #("i2219")) + #("i4206")) #(ribcage (lambda-var-list gen-var @@ -21235,738 +21269,738 @@ (top) (top) (top)) - ("i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i415" - "i413" - "i411" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i398" - "i396" - "i393" - "i392" - "i391" - "i389" - "i388" - "i386" - "i384" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i369" - "i367" - "i366" - "i364" - "i362" - "i360" - "i358" - "i357" - "i356" - "i355" - "i353" - "i352" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i336" - "i335" - "i333" - "i331" - "i330" - "i327" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i260" - "i257" - "i255" - "i254" - "i253" - "i252" - "i251" - "i249" - "i247" - "i245" - "i242" - "i240" - "i238" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208")) + ("i2454" + "i2452" + "i2450" + "i2448" + "i2446" + "i2444" + "i2442" + "i2440" + "i2438" + "i2436" + "i2434" + "i2432" + "i2430" + "i2428" + "i2426" + "i2424" + "i2422" + "i2420" + "i2418" + "i2416" + "i2414" + "i2412" + "i2410" + "i2408" + "i2406" + "i2404" + "i2402" + "i2400" + "i2398" + "i2396" + "i2394" + "i2392" + "i2390" + "i2388" + "i2386" + "i2385" + "i2383" + "i2380" + "i2379" + "i2378" + "i2376" + "i2375" + "i2373" + "i2371" + "i2369" + "i2367" + "i2365" + "i2363" + "i2361" + "i2359" + "i2356" + "i2354" + "i2353" + "i2351" + "i2349" + "i2347" + "i2345" + "i2344" + "i2343" + "i2342" + "i2340" + "i2339" + "i2336" + "i2334" + "i2332" + "i2330" + "i2328" + "i2326" + "i2324" + "i2323" + "i2322" + "i2320" + "i2318" + "i2317" + "i2314" + "i2313" + "i2311" + "i2309" + "i2307" + "i2305" + "i2303" + "i2301" + "i2299" + "i2297" + "i2295" + "i2292" + "i2290" + "i2288" + "i2286" + "i2284" + "i2282" + "i2280" + "i2278" + "i2276" + "i2274" + "i2272" + "i2270" + "i2268" + "i2266" + "i2264" + "i2262" + "i2260" + "i2258" + "i2256" + "i2254" + "i2252" + "i2250" + "i2248" + "i2247" + "i2244" + "i2242" + "i2241" + "i2240" + "i2239" + "i2238" + "i2236" + "i2234" + "i2232" + "i2229" + "i2227" + "i2225" + "i2223" + "i2221" + "i2219" + "i2217" + "i2215" + "i2213" + "i2211" + "i2209" + "i2207" + "i2205" + "i2203" + "i2201" + "i2199" + "i2197" + "i2195")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i46" "i45" "i44"))) + ("i2033" "i2032" "i2031"))) (hygiene guile)) '(()))) #f) #f)) #f)) - #{key 11759}#) - (let ((#{x 11887}# + #{key 13746}#) + (let ((#{x 13874}# (gensym (string-append (symbol->string 'tmp) " ")))) - (#{build-application 4269}# - #{s 11729}# - (let ((#{req 12017}# (list 'tmp)) - (#{vars 12019}# (list #{x 11887}#)) - (#{exp 12021}# - (#{gen-syntax-case 11725}# + (#{build-application 6256}# + #{s 13716}# + (let ((#{req 14004}# (list 'tmp)) + (#{vars 14006}# (list #{x 13874}#)) + (#{exp 14008}# + (#{gen-syntax-case 13712}# (make-struct/no-tail (vector-ref %expanded-vtables 3) #f 'tmp - #{x 11887}#) - #{key 11759}# - #{m 11760}# - #{r 11727}# - #{mod 11730}#))) - (let ((#{body 12026}# + #{x 13874}#) + #{key 13746}# + #{m 13747}# + #{r 13714}# + #{mod 13717}#))) + (let ((#{body 14013}# (make-struct/no-tail (vector-ref %expanded-vtables 14) #f - #{req 12017}# + #{req 14004}# #f #f #f '() - #{vars 12019}# - #{exp 12021}# + #{vars 14006}# + #{exp 14008}# #f))) (make-struct/no-tail (vector-ref %expanded-vtables 13) #f '() - #{body 12026}#))) - (list (#{expand 4334}# - #{val 11758}# - #{r 11727}# + #{body 14013}#))) + (list (#{expand 6321}# + #{val 13745}# + #{r 13714}# '(()) - #{mod 11730}#)))) + #{mod 13717}#)))) (syntax-violation 'syntax-case "invalid literals list" - #{e 11731}#))) - #{tmp 11733}#) + #{e 13718}#))) + #{tmp 13720}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 11731}#))))))) + #{e 13718}#))))))) (set! macroexpand (lambda* - (#{x 14464}# + (#{x 16451}# #:optional - (#{m 14465}# 'e) - (#{esew 14466}# '(eval))) - (#{expand-top-sequence 4330}# - (list #{x 14464}#) + (#{m 16452}# 'e) + (#{esew 16453}# '(eval))) + (#{expand-top-sequence 6317}# + (list #{x 16451}#) '() '((top)) #f - #{m 14465}# - #{esew 14466}# + #{m 16452}# + #{esew 16453}# (cons 'hygiene (module-name (current-module)))))) (set! identifier? - (lambda (#{x 14469}#) - (if (if (vector? #{x 14469}#) - (if (= (vector-length #{x 14469}#) 4) - (eq? (vector-ref #{x 14469}# 0) 'syntax-object) + (lambda (#{x 16456}#) + (if (if (vector? #{x 16456}#) + (if (= (vector-length #{x 16456}#) 4) + (eq? (vector-ref #{x 16456}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{x 14469}# 1)) + (symbol? (vector-ref #{x 16456}# 1)) #f))) (set! datum->syntax - (lambda (#{id 14494}# #{datum 14495}#) - (let ((#{wrap 14500}# (vector-ref #{id 14494}# 2)) - (#{module 14501}# (vector-ref #{id 14494}# 3))) + (lambda (#{id 16481}# #{datum 16482}#) + (let ((#{wrap 16487}# (vector-ref #{id 16481}# 2)) + (#{module 16488}# (vector-ref #{id 16481}# 3))) (vector 'syntax-object - #{datum 14495}# - #{wrap 14500}# - #{module 14501}#)))) + #{datum 16482}# + #{wrap 16487}# + #{module 16488}#)))) (set! syntax->datum - (lambda (#{x 14508}#) - (#{strip 4347}# #{x 14508}# '(())))) + (lambda (#{x 16495}#) + (#{strip 6334}# #{x 16495}# '(())))) (set! syntax-source - (lambda (#{x 14511}#) - (#{source-annotation 4295}# #{x 14511}#))) + (lambda (#{x 16498}#) + (#{source-annotation 6282}# #{x 16498}#))) (set! generate-temporaries - (lambda (#{ls 14664}#) + (lambda (#{ls 16651}#) (begin - (if (not (list? #{ls 14664}#)) + (if (not (list? #{ls 16651}#)) (syntax-violation 'generate-temporaries "invalid argument" - #{ls 14664}#)) - (let ((#{mod 14672}# + #{ls 16651}#)) + (let ((#{mod 16659}# (cons 'hygiene (module-name (current-module))))) - (map (lambda (#{x 14673}#) - (#{wrap 4327}# (gensym) '((top)) #{mod 14672}#)) - #{ls 14664}#))))) + (map (lambda (#{x 16660}#) + (#{wrap 6314}# (gensym) '((top)) #{mod 16659}#)) + #{ls 16651}#))))) (set! free-identifier=? - (lambda (#{x 14677}# #{y 14678}#) + (lambda (#{x 16664}# #{y 16665}#) (begin - (if (not (if (if (vector? #{x 14677}#) - (if (= (vector-length #{x 14677}#) 4) - (eq? (vector-ref #{x 14677}# 0) 'syntax-object) + (if (not (if (if (vector? #{x 16664}#) + (if (= (vector-length #{x 16664}#) 4) + (eq? (vector-ref #{x 16664}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{x 14677}# 1)) + (symbol? (vector-ref #{x 16664}# 1)) #f)) (syntax-violation 'free-identifier=? "invalid argument" - #{x 14677}#)) - (if (not (if (if (vector? #{y 14678}#) - (if (= (vector-length #{y 14678}#) 4) - (eq? (vector-ref #{y 14678}# 0) 'syntax-object) + #{x 16664}#)) + (if (not (if (if (vector? #{y 16665}#) + (if (= (vector-length #{y 16665}#) 4) + (eq? (vector-ref #{y 16665}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{y 14678}# 1)) + (symbol? (vector-ref #{y 16665}# 1)) #f)) (syntax-violation 'free-identifier=? "invalid argument" - #{y 14678}#)) - (if (eq? (if (if (vector? #{x 14677}#) - (if (= (vector-length #{x 14677}#) 4) - (eq? (vector-ref #{x 14677}# 0) 'syntax-object) + #{y 16665}#)) + (if (eq? (if (if (vector? #{x 16664}#) + (if (= (vector-length #{x 16664}#) 4) + (eq? (vector-ref #{x 16664}# 0) 'syntax-object) #f) #f) - (vector-ref #{x 14677}# 1) - #{x 14677}#) - (if (if (vector? #{y 14678}#) - (if (= (vector-length #{y 14678}#) 4) - (eq? (vector-ref #{y 14678}# 0) 'syntax-object) + (vector-ref #{x 16664}# 1) + #{x 16664}#) + (if (if (vector? #{y 16665}#) + (if (= (vector-length #{y 16665}#) 4) + (eq? (vector-ref #{y 16665}# 0) 'syntax-object) #f) #f) - (vector-ref #{y 14678}# 1) - #{y 14678}#)) - (eq? (#{id-var-name 4321}# #{x 14677}# '(())) - (#{id-var-name 4321}# #{y 14678}# '(()))) + (vector-ref #{y 16665}# 1) + #{y 16665}#)) + (eq? (#{id-var-name 6308}# #{x 16664}# '(())) + (#{id-var-name 6308}# #{y 16665}# '(()))) #f)))) (set! bound-identifier=? - (lambda (#{x 14828}# #{y 14829}#) + (lambda (#{x 16815}# #{y 16816}#) (begin - (if (not (if (if (vector? #{x 14828}#) - (if (= (vector-length #{x 14828}#) 4) - (eq? (vector-ref #{x 14828}# 0) 'syntax-object) + (if (not (if (if (vector? #{x 16815}#) + (if (= (vector-length #{x 16815}#) 4) + (eq? (vector-ref #{x 16815}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{x 14828}# 1)) + (symbol? (vector-ref #{x 16815}# 1)) #f)) (syntax-violation 'bound-identifier=? "invalid argument" - #{x 14828}#)) - (if (not (if (if (vector? #{y 14829}#) - (if (= (vector-length #{y 14829}#) 4) - (eq? (vector-ref #{y 14829}# 0) 'syntax-object) + #{x 16815}#)) + (if (not (if (if (vector? #{y 16816}#) + (if (= (vector-length #{y 16816}#) 4) + (eq? (vector-ref #{y 16816}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{y 14829}# 1)) + (symbol? (vector-ref #{y 16816}# 1)) #f)) (syntax-violation 'bound-identifier=? "invalid argument" - #{y 14829}#)) - (if (if (if (vector? #{x 14828}#) - (if (= (vector-length #{x 14828}#) 4) - (eq? (vector-ref #{x 14828}# 0) 'syntax-object) + #{y 16816}#)) + (if (if (if (vector? #{x 16815}#) + (if (= (vector-length #{x 16815}#) 4) + (eq? (vector-ref #{x 16815}# 0) 'syntax-object) #f) #f) - (if (vector? #{y 14829}#) - (if (= (vector-length #{y 14829}#) 4) - (eq? (vector-ref #{y 14829}# 0) 'syntax-object) + (if (vector? #{y 16816}#) + (if (= (vector-length #{y 16816}#) 4) + (eq? (vector-ref #{y 16816}# 0) 'syntax-object) #f) #f) #f) - (if (eq? (vector-ref #{x 14828}# 1) - (vector-ref #{y 14829}# 1)) - (#{same-marks? 4320}# - (car (vector-ref #{x 14828}# 2)) - (car (vector-ref #{y 14829}# 2))) + (if (eq? (vector-ref #{x 16815}# 1) + (vector-ref #{y 16816}# 1)) + (#{same-marks? 6307}# + (car (vector-ref #{x 16815}# 2)) + (car (vector-ref #{y 16816}# 2))) #f) - (eq? #{x 14828}# #{y 14829}#))))) + (eq? #{x 16815}# #{y 16816}#))))) (set! syntax-violation (lambda* - (#{who 14962}# - #{message 14963}# - #{form 14964}# + (#{who 16949}# + #{message 16950}# + #{form 16951}# #:optional - (#{subform 14965}# #f)) + (#{subform 16952}# #f)) (begin - (if (not (if (not #{who 14962}#) - (not #{who 14962}#) - (let ((#{t 14983}# (string? #{who 14962}#))) - (if #{t 14983}# - #{t 14983}# - (symbol? #{who 14962}#))))) + (if (not (if (not #{who 16949}#) + (not #{who 16949}#) + (let ((#{t 16970}# (string? #{who 16949}#))) + (if #{t 16970}# + #{t 16970}# + (symbol? #{who 16949}#))))) (syntax-violation 'syntax-violation "invalid argument" - #{who 14962}#)) - (if (not (string? #{message 14963}#)) + #{who 16949}#)) + (if (not (string? #{message 16950}#)) (syntax-violation 'syntax-violation "invalid argument" - #{message 14963}#)) + #{message 16950}#)) (throw 'syntax-error - #{who 14962}# - #{message 14963}# - (#{source-annotation 4295}# - (if #{form 14964}# - #{form 14964}# - #{subform 14965}#)) - (#{strip 4347}# #{form 14964}# '(())) - (if #{subform 14965}# - (#{strip 4347}# #{subform 14965}# '(())) + #{who 16949}# + #{message 16950}# + (#{source-annotation 6282}# + (if #{form 16951}# + #{form 16951}# + #{subform 16952}#)) + (#{strip 6334}# #{form 16951}# '(())) + (if #{subform 16952}# + (#{strip 6334}# #{subform 16952}# '(())) #f))))) (letrec* - ((#{match-each 15186}# - (lambda (#{e 15773}# - #{p 15774}# - #{w 15775}# - #{mod 15776}#) - (if (pair? #{e 15773}#) - (let ((#{first 15777}# - (#{match 15192}# - (car #{e 15773}#) - #{p 15774}# - #{w 15775}# + ((#{match-each 17173}# + (lambda (#{e 17760}# + #{p 17761}# + #{w 17762}# + #{mod 17763}#) + (if (pair? #{e 17760}#) + (let ((#{first 17764}# + (#{match 17179}# + (car #{e 17760}#) + #{p 17761}# + #{w 17762}# '() - #{mod 15776}#))) - (if #{first 15777}# - (let ((#{rest 15780}# - (#{match-each 15186}# - (cdr #{e 15773}#) - #{p 15774}# - #{w 15775}# - #{mod 15776}#))) - (if #{rest 15780}# - (cons #{first 15777}# #{rest 15780}#) + #{mod 17763}#))) + (if #{first 17764}# + (let ((#{rest 17767}# + (#{match-each 17173}# + (cdr #{e 17760}#) + #{p 17761}# + #{w 17762}# + #{mod 17763}#))) + (if #{rest 17767}# + (cons #{first 17764}# #{rest 17767}#) #f)) #f)) - (if (null? #{e 15773}#) + (if (null? #{e 17760}#) '() - (if (if (vector? #{e 15773}#) - (if (= (vector-length #{e 15773}#) 4) - (eq? (vector-ref #{e 15773}# 0) 'syntax-object) + (if (if (vector? #{e 17760}#) + (if (= (vector-length #{e 17760}#) 4) + (eq? (vector-ref #{e 17760}# 0) 'syntax-object) #f) #f) - (#{match-each 15186}# - (vector-ref #{e 15773}# 1) - #{p 15774}# - (#{join-wraps 4318}# - #{w 15775}# - (vector-ref #{e 15773}# 2)) - (vector-ref #{e 15773}# 3)) + (#{match-each 17173}# + (vector-ref #{e 17760}# 1) + #{p 17761}# + (#{join-wraps 6305}# + #{w 17762}# + (vector-ref #{e 17760}# 2)) + (vector-ref #{e 17760}# 3)) #f))))) - (#{match-each-any 15188}# - (lambda (#{e 15808}# #{w 15809}# #{mod 15810}#) - (if (pair? #{e 15808}#) - (let ((#{l 15811}# - (#{match-each-any 15188}# - (cdr #{e 15808}#) - #{w 15809}# - #{mod 15810}#))) - (if #{l 15811}# - (cons (#{wrap 4327}# - (car #{e 15808}#) - #{w 15809}# - #{mod 15810}#) - #{l 15811}#) + (#{match-each-any 17175}# + (lambda (#{e 17795}# #{w 17796}# #{mod 17797}#) + (if (pair? #{e 17795}#) + (let ((#{l 17798}# + (#{match-each-any 17175}# + (cdr #{e 17795}#) + #{w 17796}# + #{mod 17797}#))) + (if #{l 17798}# + (cons (#{wrap 6314}# + (car #{e 17795}#) + #{w 17796}# + #{mod 17797}#) + #{l 17798}#) #f)) - (if (null? #{e 15808}#) + (if (null? #{e 17795}#) '() - (if (if (vector? #{e 15808}#) - (if (= (vector-length #{e 15808}#) 4) - (eq? (vector-ref #{e 15808}# 0) 'syntax-object) + (if (if (vector? #{e 17795}#) + (if (= (vector-length #{e 17795}#) 4) + (eq? (vector-ref #{e 17795}# 0) 'syntax-object) #f) #f) - (#{match-each-any 15188}# - (vector-ref #{e 15808}# 1) - (#{join-wraps 4318}# - #{w 15809}# - (vector-ref #{e 15808}# 2)) - #{mod 15810}#) + (#{match-each-any 17175}# + (vector-ref #{e 17795}# 1) + (#{join-wraps 6305}# + #{w 17796}# + (vector-ref #{e 17795}# 2)) + #{mod 17797}#) #f))))) - (#{match-empty 15189}# - (lambda (#{p 15835}# #{r 15836}#) - (if (null? #{p 15835}#) - #{r 15836}# - (if (eq? #{p 15835}# '_) - #{r 15836}# - (if (eq? #{p 15835}# 'any) - (cons '() #{r 15836}#) - (if (pair? #{p 15835}#) - (#{match-empty 15189}# - (car #{p 15835}#) - (#{match-empty 15189}# - (cdr #{p 15835}#) - #{r 15836}#)) - (if (eq? #{p 15835}# 'each-any) - (cons '() #{r 15836}#) - (let ((#{atom-key 15837}# (vector-ref #{p 15835}# 0))) - (if (eqv? #{atom-key 15837}# 'each) - (#{match-empty 15189}# - (vector-ref #{p 15835}# 1) - #{r 15836}#) - (if (eqv? #{atom-key 15837}# 'each+) - (#{match-empty 15189}# - (vector-ref #{p 15835}# 1) - (#{match-empty 15189}# - (reverse (vector-ref #{p 15835}# 2)) - (#{match-empty 15189}# - (vector-ref #{p 15835}# 3) - #{r 15836}#))) - (if (if (eqv? #{atom-key 15837}# 'free-id) + (#{match-empty 17176}# + (lambda (#{p 17822}# #{r 17823}#) + (if (null? #{p 17822}#) + #{r 17823}# + (if (eq? #{p 17822}# '_) + #{r 17823}# + (if (eq? #{p 17822}# 'any) + (cons '() #{r 17823}#) + (if (pair? #{p 17822}#) + (#{match-empty 17176}# + (car #{p 17822}#) + (#{match-empty 17176}# + (cdr #{p 17822}#) + #{r 17823}#)) + (if (eq? #{p 17822}# 'each-any) + (cons '() #{r 17823}#) + (let ((#{atom-key 17824}# (vector-ref #{p 17822}# 0))) + (if (eqv? #{atom-key 17824}# 'each) + (#{match-empty 17176}# + (vector-ref #{p 17822}# 1) + #{r 17823}#) + (if (eqv? #{atom-key 17824}# 'each+) + (#{match-empty 17176}# + (vector-ref #{p 17822}# 1) + (#{match-empty 17176}# + (reverse (vector-ref #{p 17822}# 2)) + (#{match-empty 17176}# + (vector-ref #{p 17822}# 3) + #{r 17823}#))) + (if (if (eqv? #{atom-key 17824}# 'free-id) #t - (eqv? #{atom-key 15837}# 'atom)) - #{r 15836}# - (if (eqv? #{atom-key 15837}# 'vector) - (#{match-empty 15189}# - (vector-ref #{p 15835}# 1) - #{r 15836}#))))))))))))) - (#{combine 15190}# - (lambda (#{r* 15856}# #{r 15857}#) - (if (null? (car #{r* 15856}#)) - #{r 15857}# - (cons (map car #{r* 15856}#) - (#{combine 15190}# - (map cdr #{r* 15856}#) - #{r 15857}#))))) - (#{match* 15191}# - (lambda (#{e 15221}# - #{p 15222}# - #{w 15223}# - #{r 15224}# - #{mod 15225}#) - (if (null? #{p 15222}#) - (if (null? #{e 15221}#) #{r 15224}# #f) - (if (pair? #{p 15222}#) - (if (pair? #{e 15221}#) - (#{match 15192}# - (car #{e 15221}#) - (car #{p 15222}#) - #{w 15223}# - (#{match 15192}# - (cdr #{e 15221}#) - (cdr #{p 15222}#) - #{w 15223}# - #{r 15224}# - #{mod 15225}#) - #{mod 15225}#) + (eqv? #{atom-key 17824}# 'atom)) + #{r 17823}# + (if (eqv? #{atom-key 17824}# 'vector) + (#{match-empty 17176}# + (vector-ref #{p 17822}# 1) + #{r 17823}#))))))))))))) + (#{combine 17177}# + (lambda (#{r* 17843}# #{r 17844}#) + (if (null? (car #{r* 17843}#)) + #{r 17844}# + (cons (map car #{r* 17843}#) + (#{combine 17177}# + (map cdr #{r* 17843}#) + #{r 17844}#))))) + (#{match* 17178}# + (lambda (#{e 17208}# + #{p 17209}# + #{w 17210}# + #{r 17211}# + #{mod 17212}#) + (if (null? #{p 17209}#) + (if (null? #{e 17208}#) #{r 17211}# #f) + (if (pair? #{p 17209}#) + (if (pair? #{e 17208}#) + (#{match 17179}# + (car #{e 17208}#) + (car #{p 17209}#) + #{w 17210}# + (#{match 17179}# + (cdr #{e 17208}#) + (cdr #{p 17209}#) + #{w 17210}# + #{r 17211}# + #{mod 17212}#) + #{mod 17212}#) #f) - (if (eq? #{p 15222}# 'each-any) - (let ((#{l 15230}# - (#{match-each-any 15188}# - #{e 15221}# - #{w 15223}# - #{mod 15225}#))) - (if #{l 15230}# - (cons #{l 15230}# #{r 15224}#) + (if (eq? #{p 17209}# 'each-any) + (let ((#{l 17217}# + (#{match-each-any 17175}# + #{e 17208}# + #{w 17210}# + #{mod 17212}#))) + (if #{l 17217}# + (cons #{l 17217}# #{r 17211}#) #f)) - (let ((#{atom-key 15235}# (vector-ref #{p 15222}# 0))) - (if (eqv? #{atom-key 15235}# 'each) - (if (null? #{e 15221}#) - (#{match-empty 15189}# - (vector-ref #{p 15222}# 1) - #{r 15224}#) - (let ((#{l 15242}# - (#{match-each 15186}# - #{e 15221}# - (vector-ref #{p 15222}# 1) - #{w 15223}# - #{mod 15225}#))) - (if #{l 15242}# + (let ((#{atom-key 17222}# (vector-ref #{p 17209}# 0))) + (if (eqv? #{atom-key 17222}# 'each) + (if (null? #{e 17208}#) + (#{match-empty 17176}# + (vector-ref #{p 17209}# 1) + #{r 17211}#) + (let ((#{l 17229}# + (#{match-each 17173}# + #{e 17208}# + (vector-ref #{p 17209}# 1) + #{w 17210}# + #{mod 17212}#))) + (if #{l 17229}# (letrec* - ((#{collect 15245}# - (lambda (#{l 15296}#) - (if (null? (car #{l 15296}#)) - #{r 15224}# - (cons (map car #{l 15296}#) - (#{collect 15245}# - (map cdr #{l 15296}#))))))) - (#{collect 15245}# #{l 15242}#)) + ((#{collect 17232}# + (lambda (#{l 17283}#) + (if (null? (car #{l 17283}#)) + #{r 17211}# + (cons (map car #{l 17283}#) + (#{collect 17232}# + (map cdr #{l 17283}#))))))) + (#{collect 17232}# #{l 17229}#)) #f))) - (if (eqv? #{atom-key 15235}# 'each+) + (if (eqv? #{atom-key 17222}# 'each+) (call-with-values (lambda () - (let ((#{x-pat 15305}# (vector-ref #{p 15222}# 1)) - (#{y-pat 15306}# (vector-ref #{p 15222}# 2)) - (#{z-pat 15307}# (vector-ref #{p 15222}# 3))) + (let ((#{x-pat 17292}# (vector-ref #{p 17209}# 1)) + (#{y-pat 17293}# (vector-ref #{p 17209}# 2)) + (#{z-pat 17294}# (vector-ref #{p 17209}# 3))) (letrec* - ((#{f 15311}# - (lambda (#{e 15313}# #{w 15314}#) - (if (pair? #{e 15313}#) + ((#{f 17298}# + (lambda (#{e 17300}# #{w 17301}#) + (if (pair? #{e 17300}#) (call-with-values (lambda () - (#{f 15311}# - (cdr #{e 15313}#) - #{w 15314}#)) - (lambda (#{xr* 15315}# - #{y-pat 15316}# - #{r 15317}#) - (if #{r 15317}# - (if (null? #{y-pat 15316}#) - (let ((#{xr 15318}# - (#{match 15192}# - (car #{e 15313}#) - #{x-pat 15305}# - #{w 15314}# + (#{f 17298}# + (cdr #{e 17300}#) + #{w 17301}#)) + (lambda (#{xr* 17302}# + #{y-pat 17303}# + #{r 17304}#) + (if #{r 17304}# + (if (null? #{y-pat 17303}#) + (let ((#{xr 17305}# + (#{match 17179}# + (car #{e 17300}#) + #{x-pat 17292}# + #{w 17301}# '() - #{mod 15225}#))) - (if #{xr 15318}# + #{mod 17212}#))) + (if #{xr 17305}# (values - (cons #{xr 15318}# - #{xr* 15315}#) - #{y-pat 15316}# - #{r 15317}#) + (cons #{xr 17305}# + #{xr* 17302}#) + #{y-pat 17303}# + #{r 17304}#) (values #f #f #f))) (values '() - (cdr #{y-pat 15316}#) - (#{match 15192}# - (car #{e 15313}#) - (car #{y-pat 15316}#) - #{w 15314}# - #{r 15317}# - #{mod 15225}#))) + (cdr #{y-pat 17303}#) + (#{match 17179}# + (car #{e 17300}#) + (car #{y-pat 17303}#) + #{w 17301}# + #{r 17304}# + #{mod 17212}#))) (values #f #f #f)))) - (if (if (vector? #{e 15313}#) - (if (= (vector-length #{e 15313}#) + (if (if (vector? #{e 17300}#) + (if (= (vector-length #{e 17300}#) 4) - (eq? (vector-ref #{e 15313}# 0) + (eq? (vector-ref #{e 17300}# 0) 'syntax-object) #f) #f) - (#{f 15311}# - (vector-ref #{e 15313}# 1) - (#{join-wraps 4318}# - #{w 15314}# - #{e 15313}#)) + (#{f 17298}# + (vector-ref #{e 17300}# 1) + (#{join-wraps 6305}# + #{w 17301}# + #{e 17300}#)) (values '() - #{y-pat 15306}# - (#{match 15192}# - #{e 15313}# - #{z-pat 15307}# - #{w 15314}# - #{r 15224}# - #{mod 15225}#))))))) - (#{f 15311}# #{e 15221}# #{w 15223}#)))) - (lambda (#{xr* 15344}# #{y-pat 15345}# #{r 15346}#) - (if #{r 15346}# - (if (null? #{y-pat 15345}#) - (if (null? #{xr* 15344}#) - (#{match-empty 15189}# - (vector-ref #{p 15222}# 1) - #{r 15346}#) - (#{combine 15190}# #{xr* 15344}# #{r 15346}#)) + #{y-pat 17293}# + (#{match 17179}# + #{e 17300}# + #{z-pat 17294}# + #{w 17301}# + #{r 17211}# + #{mod 17212}#))))))) + (#{f 17298}# #{e 17208}# #{w 17210}#)))) + (lambda (#{xr* 17331}# #{y-pat 17332}# #{r 17333}#) + (if #{r 17333}# + (if (null? #{y-pat 17332}#) + (if (null? #{xr* 17331}#) + (#{match-empty 17176}# + (vector-ref #{p 17209}# 1) + #{r 17333}#) + (#{combine 17177}# #{xr* 17331}# #{r 17333}#)) #f) #f))) - (if (eqv? #{atom-key 15235}# 'free-id) - (if (if (symbol? #{e 15221}#) + (if (eqv? #{atom-key 17222}# 'free-id) + (if (if (symbol? #{e 17208}#) #t - (if (if (vector? #{e 15221}#) - (if (= (vector-length #{e 15221}#) 4) - (eq? (vector-ref #{e 15221}# 0) + (if (if (vector? #{e 17208}#) + (if (= (vector-length #{e 17208}#) 4) + (eq? (vector-ref #{e 17208}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{e 15221}# 1)) + (symbol? (vector-ref #{e 17208}# 1)) #f)) - (if (let ((#{i 15677}# - (#{wrap 4327}# - #{e 15221}# - #{w 15223}# - #{mod 15225}#)) - (#{j 15678}# (vector-ref #{p 15222}# 1))) - (if (eq? (if (if (vector? #{i 15677}#) + (if (let ((#{i 17664}# + (#{wrap 6314}# + #{e 17208}# + #{w 17210}# + #{mod 17212}#)) + (#{j 17665}# (vector-ref #{p 17209}# 1))) + (if (eq? (if (if (vector? #{i 17664}#) (if (= (vector-length - #{i 15677}#) + #{i 17664}#) 4) (eq? (vector-ref - #{i 15677}# + #{i 17664}# 0) 'syntax-object) #f) #f) - (vector-ref #{i 15677}# 1) - #{i 15677}#) - (if (if (vector? #{j 15678}#) + (vector-ref #{i 17664}# 1) + #{i 17664}#) + (if (if (vector? #{j 17665}#) (if (= (vector-length - #{j 15678}#) + #{j 17665}#) 4) (eq? (vector-ref - #{j 15678}# + #{j 17665}# 0) 'syntax-object) #f) #f) - (vector-ref #{j 15678}# 1) - #{j 15678}#)) - (eq? (#{id-var-name 4321}# - #{i 15677}# + (vector-ref #{j 17665}# 1) + #{j 17665}#)) + (eq? (#{id-var-name 6308}# + #{i 17664}# '(())) - (#{id-var-name 4321}# - #{j 15678}# + (#{id-var-name 6308}# + #{j 17665}# '(()))) #f)) - #{r 15224}# + #{r 17211}# #f) #f) - (if (eqv? #{atom-key 15235}# 'atom) + (if (eqv? #{atom-key 17222}# 'atom) (if (equal? - (vector-ref #{p 15222}# 1) - (#{strip 4347}# #{e 15221}# #{w 15223}#)) - #{r 15224}# + (vector-ref #{p 17209}# 1) + (#{strip 6334}# #{e 17208}# #{w 17210}#)) + #{r 17211}# #f) - (if (eqv? #{atom-key 15235}# 'vector) - (if (vector? #{e 15221}#) - (#{match 15192}# - (vector->list #{e 15221}#) - (vector-ref #{p 15222}# 1) - #{w 15223}# - #{r 15224}# - #{mod 15225}#) + (if (eqv? #{atom-key 17222}# 'vector) + (if (vector? #{e 17208}#) + (#{match 17179}# + (vector->list #{e 17208}#) + (vector-ref #{p 17209}# 1) + #{w 17210}# + #{r 17211}# + #{mod 17212}#) #f)))))))))))) - (#{match 15192}# - (lambda (#{e 15738}# - #{p 15739}# - #{w 15740}# - #{r 15741}# - #{mod 15742}#) - (if (not #{r 15741}#) + (#{match 17179}# + (lambda (#{e 17725}# + #{p 17726}# + #{w 17727}# + #{r 17728}# + #{mod 17729}#) + (if (not #{r 17728}#) #f - (if (eq? #{p 15739}# '_) - #{r 15741}# - (if (eq? #{p 15739}# 'any) - (cons (#{wrap 4327}# - #{e 15738}# - #{w 15740}# - #{mod 15742}#) - #{r 15741}#) - (if (if (vector? #{e 15738}#) - (if (= (vector-length #{e 15738}#) 4) - (eq? (vector-ref #{e 15738}# 0) 'syntax-object) + (if (eq? #{p 17726}# '_) + #{r 17728}# + (if (eq? #{p 17726}# 'any) + (cons (#{wrap 6314}# + #{e 17725}# + #{w 17727}# + #{mod 17729}#) + #{r 17728}#) + (if (if (vector? #{e 17725}#) + (if (= (vector-length #{e 17725}#) 4) + (eq? (vector-ref #{e 17725}# 0) 'syntax-object) #f) #f) - (#{match* 15191}# - (vector-ref #{e 15738}# 1) - #{p 15739}# - (#{join-wraps 4318}# - #{w 15740}# - (vector-ref #{e 15738}# 2)) - #{r 15741}# - (vector-ref #{e 15738}# 3)) - (#{match* 15191}# - #{e 15738}# - #{p 15739}# - #{w 15740}# - #{r 15741}# - #{mod 15742}#)))))))) + (#{match* 17178}# + (vector-ref #{e 17725}# 1) + #{p 17726}# + (#{join-wraps 6305}# + #{w 17727}# + (vector-ref #{e 17725}# 2)) + #{r 17728}# + (vector-ref #{e 17725}# 3)) + (#{match* 17178}# + #{e 17725}# + #{p 17726}# + #{w 17727}# + #{r 17728}# + #{mod 17729}#)))))))) (set! $sc-dispatch - (lambda (#{e 15193}# #{p 15194}#) - (if (eq? #{p 15194}# 'any) - (list #{e 15193}#) - (if (eq? #{p 15194}# '_) + (lambda (#{e 17180}# #{p 17181}#) + (if (eq? #{p 17181}# 'any) + (list #{e 17180}#) + (if (eq? #{p 17181}# '_) '() - (if (if (vector? #{e 15193}#) - (if (= (vector-length #{e 15193}#) 4) - (eq? (vector-ref #{e 15193}# 0) 'syntax-object) + (if (if (vector? #{e 17180}#) + (if (= (vector-length #{e 17180}#) 4) + (eq? (vector-ref #{e 17180}# 0) 'syntax-object) #f) #f) - (#{match* 15191}# - (vector-ref #{e 15193}# 1) - #{p 15194}# - (vector-ref #{e 15193}# 2) + (#{match* 17178}# + (vector-ref #{e 17180}# 1) + #{p 17181}# + (vector-ref #{e 17180}# 2) '() - (vector-ref #{e 15193}# 3)) - (#{match* 15191}# - #{e 15193}# - #{p 15194}# + (vector-ref #{e 17180}# 3)) + (#{match* 17178}# + #{e 17180}# + #{p 17181}# '(()) '() #f))))))))) @@ -21975,82 +22009,82 @@ (make-syntax-transformer 'with-syntax 'macro - (lambda (#{x 27949}#) - (let ((#{tmp 27951}# - ($sc-dispatch #{x 27949}# '(_ () any . each-any)))) - (if #{tmp 27951}# + (lambda (#{x 29958}#) + (let ((#{tmp 29960}# + ($sc-dispatch #{x 29958}# '(_ () any . each-any)))) + (if #{tmp 29960}# (@apply - (lambda (#{e1 27955}# #{e2 27956}#) + (lambda (#{e1 29964}# #{e2 29965}#) (cons '#(syntax-object let ((top) #(ribcage #(e1 e2) #((top) (top)) - #("i27922" "i27923")) + #("i29931" "i29932")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i27919"))) + #(ribcage #(x) #((top)) #("i29928"))) (hygiene guile)) - (cons '() (cons #{e1 27955}# #{e2 27956}#)))) - #{tmp 27951}#) - (let ((#{tmp 27957}# + (cons '() (cons #{e1 29964}# #{e2 29965}#)))) + #{tmp 29960}#) + (let ((#{tmp 29966}# ($sc-dispatch - #{x 27949}# + #{x 29958}# '(_ ((any any)) any . each-any)))) - (if #{tmp 27957}# + (if #{tmp 29966}# (@apply - (lambda (#{out 27961}# - #{in 27962}# - #{e1 27963}# - #{e2 27964}#) + (lambda (#{out 29970}# + #{in 29971}# + #{e1 29972}# + #{e2 29973}#) (list '#(syntax-object syntax-case ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("i27928" "i27929" "i27930" "i27931")) + #("i29937" "i29938" "i29939" "i29940")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i27919"))) + #(ribcage #(x) #((top)) #("i29928"))) (hygiene guile)) - #{in 27962}# + #{in 29971}# '() - (list #{out 27961}# + (list #{out 29970}# (cons '#(syntax-object let ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("i27928" - "i27929" - "i27930" - "i27931")) + #("i29937" + "i29938" + "i29939" + "i29940")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i27919"))) + #(ribcage #(x) #((top)) #("i29928"))) (hygiene guile)) (cons '() - (cons #{e1 27963}# #{e2 27964}#)))))) - #{tmp 27957}#) - (let ((#{tmp 27965}# + (cons #{e1 29972}# #{e2 29973}#)))))) + #{tmp 29966}#) + (let ((#{tmp 29974}# ($sc-dispatch - #{x 27949}# + #{x 29958}# '(_ #(each (any any)) any . each-any)))) - (if #{tmp 27965}# + (if #{tmp 29974}# (@apply - (lambda (#{out 27969}# - #{in 27970}# - #{e1 27971}# - #{e2 27972}#) + (lambda (#{out 29978}# + #{in 29979}# + #{e1 29980}# + #{e2 29981}#) (list '#(syntax-object syntax-case ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("i27938" "i27939" "i27940" "i27941")) + #("i29947" "i29948" "i29949" "i29950")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i27919"))) + #(ribcage #(x) #((top)) #("i29928"))) (hygiene guile)) (cons '#(syntax-object list @@ -22058,62 +22092,62 @@ #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("i27938" "i27939" "i27940" "i27941")) + #("i29947" "i29948" "i29949" "i29950")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i27919"))) + #(ribcage #(x) #((top)) #("i29928"))) (hygiene guile)) - #{in 27970}#) + #{in 29979}#) '() - (list #{out 27969}# + (list #{out 29978}# (cons '#(syntax-object let ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("i27938" - "i27939" - "i27940" - "i27941")) + #("i29947" + "i29948" + "i29949" + "i29950")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i27919"))) + #("i29928"))) (hygiene guile)) (cons '() - (cons #{e1 27971}# - #{e2 27972}#)))))) - #{tmp 27965}#) + (cons #{e1 29980}# + #{e2 29981}#)))))) + #{tmp 29974}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 27949}#)))))))))) + #{x 29958}#)))))))))) (define syntax-rules (make-syntax-transformer 'syntax-rules 'macro - (lambda (#{x 28026}#) - (let ((#{tmp 28028}# + (lambda (#{x 30035}#) + (let ((#{tmp 30037}# ($sc-dispatch - #{x 28026}# + #{x 30035}# '(_ each-any . #(each ((any . any) any)))))) - (if #{tmp 28028}# + (if #{tmp 30037}# (@apply - (lambda (#{k 28032}# - #{keyword 28033}# - #{pattern 28034}# - #{template 28035}#) + (lambda (#{k 30041}# + #{keyword 30042}# + #{pattern 30043}# + #{template 30044}#) (list '#(syntax-object lambda ((top) #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i27989" "i27990" "i27991" "i27992")) + #("i29998" "i29999" "i30000" "i30001")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i27986"))) + #(ribcage #(x) #((top)) #("i29995"))) (hygiene guile)) '(#(syntax-object x @@ -22121,9 +22155,9 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i27989" "i27990" "i27991" "i27992")) + #("i29998" "i29999" "i30000" "i30001")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i27986"))) + #(ribcage #(x) #((top)) #("i29995"))) (hygiene guile))) (vector '(#(syntax-object @@ -22132,9 +22166,9 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i27989" "i27990" "i27991" "i27992")) + #("i29998" "i29999" "i30000" "i30001")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i27986"))) + #(ribcage #(x) #((top)) #("i29995"))) (hygiene guile)) . #(syntax-object @@ -22143,9 +22177,9 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i27989" "i27990" "i27991" "i27992")) + #("i29998" "i29999" "i30000" "i30001")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i27986"))) + #(ribcage #(x) #((top)) #("i29995"))) (hygiene guile))) (cons '#(syntax-object patterns @@ -22153,20 +22187,20 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i27989" "i27990" "i27991" "i27992")) + #("i29998" "i29999" "i30000" "i30001")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i27986"))) + #(ribcage #(x) #((top)) #("i29995"))) (hygiene guile)) - #{pattern 28034}#)) + #{pattern 30043}#)) (cons '#(syntax-object syntax-case ((top) #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i27989" "i27990" "i27991" "i27992")) + #("i29998" "i29999" "i30000" "i30001")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i27986"))) + #(ribcage #(x) #((top)) #("i29995"))) (hygiene guile)) (cons '#(syntax-object x @@ -22174,13 +22208,13 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i27989" "i27990" "i27991" "i27992")) + #("i29998" "i29999" "i30000" "i30001")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i27986"))) + #(ribcage #(x) #((top)) #("i29995"))) (hygiene guile)) - (cons #{k 28032}# - (map (lambda (#{tmp 28000 28036}# - #{tmp 27999 28037}#) + (cons #{k 30041}# + (map (lambda (#{tmp 30009 30045}# + #{tmp 30008 30046}#) (list (cons '#(syntax-object dummy ((top) @@ -22193,10 +22227,10 @@ (top) (top) (top)) - #("i27989" - "i27990" - "i27991" - "i27992")) + #("i29998" + "i29999" + "i30000" + "i30001")) #(ribcage () () @@ -22204,9 +22238,9 @@ #(ribcage #(x) #((top)) - #("i27986"))) + #("i29995"))) (hygiene guile)) - #{tmp 27999 28037}#) + #{tmp 30008 30046}#) (list '#(syntax-object syntax ((top) @@ -22219,10 +22253,10 @@ (top) (top) (top)) - #("i27989" - "i27990" - "i27991" - "i27992")) + #("i29998" + "i29999" + "i30000" + "i30001")) #(ribcage () () @@ -22230,41 +22264,41 @@ #(ribcage #(x) #((top)) - #("i27986"))) + #("i29995"))) (hygiene guile)) - #{tmp 28000 28036}#))) - #{template 28035}# - #{pattern 28034}#)))))) - #{tmp 28028}#) - (let ((#{tmp 28038}# + #{tmp 30009 30045}#))) + #{template 30044}# + #{pattern 30043}#)))))) + #{tmp 30037}#) + (let ((#{tmp 30047}# ($sc-dispatch - #{x 28026}# + #{x 30035}# '(_ each-any any . #(each ((any . any) any)))))) - (if (if #{tmp 28038}# + (if (if #{tmp 30047}# (@apply - (lambda (#{k 28042}# - #{docstring 28043}# - #{keyword 28044}# - #{pattern 28045}# - #{template 28046}#) - (string? (syntax->datum #{docstring 28043}#))) - #{tmp 28038}#) + (lambda (#{k 30051}# + #{docstring 30052}# + #{keyword 30053}# + #{pattern 30054}# + #{template 30055}#) + (string? (syntax->datum #{docstring 30052}#))) + #{tmp 30047}#) #f) (@apply - (lambda (#{k 28047}# - #{docstring 28048}# - #{keyword 28049}# - #{pattern 28050}# - #{template 28051}#) + (lambda (#{k 30056}# + #{docstring 30057}# + #{keyword 30058}# + #{pattern 30059}# + #{template 30060}#) (list '#(syntax-object lambda ((top) #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("i28012" "i28013" "i28014" "i28015" "i28016")) + #("i30021" "i30022" "i30023" "i30024" "i30025")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i27986"))) + #(ribcage #(x) #((top)) #("i29995"))) (hygiene guile)) '(#(syntax-object x @@ -22272,11 +22306,11 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("i28012" "i28013" "i28014" "i28015" "i28016")) + #("i30021" "i30022" "i30023" "i30024" "i30025")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i27986"))) + #(ribcage #(x) #((top)) #("i29995"))) (hygiene guile))) - #{docstring 28048}# + #{docstring 30057}# (vector '(#(syntax-object macro-type @@ -22284,13 +22318,13 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("i28012" - "i28013" - "i28014" - "i28015" - "i28016")) + #("i30021" + "i30022" + "i30023" + "i30024" + "i30025")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i27986"))) + #(ribcage #(x) #((top)) #("i29995"))) (hygiene guile)) . #(syntax-object @@ -22299,13 +22333,13 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("i28012" - "i28013" - "i28014" - "i28015" - "i28016")) + #("i30021" + "i30022" + "i30023" + "i30024" + "i30025")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i27986"))) + #(ribcage #(x) #((top)) #("i29995"))) (hygiene guile))) (cons '#(syntax-object patterns @@ -22313,28 +22347,28 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("i28012" - "i28013" - "i28014" - "i28015" - "i28016")) + #("i30021" + "i30022" + "i30023" + "i30024" + "i30025")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i27986"))) + #(ribcage #(x) #((top)) #("i29995"))) (hygiene guile)) - #{pattern 28050}#)) + #{pattern 30059}#)) (cons '#(syntax-object syntax-case ((top) #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("i28012" - "i28013" - "i28014" - "i28015" - "i28016")) + #("i30021" + "i30022" + "i30023" + "i30024" + "i30025")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i27986"))) + #(ribcage #(x) #((top)) #("i29995"))) (hygiene guile)) (cons '#(syntax-object x @@ -22346,17 +22380,17 @@ pattern template) #((top) (top) (top) (top) (top)) - #("i28012" - "i28013" - "i28014" - "i28015" - "i28016")) + #("i30021" + "i30022" + "i30023" + "i30024" + "i30025")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i27986"))) + #(ribcage #(x) #((top)) #("i29995"))) (hygiene guile)) - (cons #{k 28047}# - (map (lambda (#{tmp 28025 28052}# - #{tmp 28024 28053}#) + (cons #{k 30056}# + (map (lambda (#{tmp 30034 30061}# + #{tmp 30033 30062}#) (list (cons '#(syntax-object dummy ((top) @@ -22371,11 +22405,11 @@ (top) (top) (top)) - #("i28012" - "i28013" - "i28014" - "i28015" - "i28016")) + #("i30021" + "i30022" + "i30023" + "i30024" + "i30025")) #(ribcage () () @@ -22383,10 +22417,10 @@ #(ribcage #(x) #((top)) - #("i27986"))) + #("i29995"))) (hygiene guile)) - #{tmp 28024 28053}#) + #{tmp 30033 30062}#) (list '#(syntax-object syntax ((top) @@ -22401,11 +22435,11 @@ (top) (top) (top)) - #("i28012" - "i28013" - "i28014" - "i28015" - "i28016")) + #("i30021" + "i30022" + "i30023" + "i30024" + "i30025")) #(ribcage () () @@ -22413,50 +22447,50 @@ #(ribcage #(x) #((top)) - #("i27986"))) + #("i29995"))) (hygiene guile)) - #{tmp 28025 28052}#))) - #{template 28051}# - #{pattern 28050}#)))))) - #{tmp 28038}#) + #{tmp 30034 30061}#))) + #{template 30060}# + #{pattern 30059}#)))))) + #{tmp 30047}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 28026}#)))))))) + #{x 30035}#)))))))) (define define-syntax-rule (make-syntax-transformer 'define-syntax-rule 'macro - (lambda (#{x 28090}#) - (let ((#{tmp 28092}# - ($sc-dispatch #{x 28090}# '(_ (any . any) any)))) - (if #{tmp 28092}# + (lambda (#{x 30099}#) + (let ((#{tmp 30101}# + ($sc-dispatch #{x 30099}# '(_ (any . any) any)))) + (if #{tmp 30101}# (@apply - (lambda (#{name 28096}# - #{pattern 28097}# - #{template 28098}#) + (lambda (#{name 30105}# + #{pattern 30106}# + #{template 30107}#) (list '#(syntax-object define-syntax ((top) #(ribcage #(name pattern template) #((top) (top) (top)) - #("i28067" "i28068" "i28069")) + #("i30076" "i30077" "i30078")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28064"))) + #(ribcage #(x) #((top)) #("i30073"))) (hygiene guile)) - #{name 28096}# + #{name 30105}# (list '#(syntax-object syntax-rules ((top) #(ribcage #(name pattern template) #((top) (top) (top)) - #("i28067" "i28068" "i28069")) + #("i30076" "i30077" "i30078")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28064"))) + #(ribcage #(x) #((top)) #("i30073"))) (hygiene guile)) '() (list (cons '#(syntax-object @@ -22465,54 +22499,54 @@ #(ribcage #(name pattern template) #((top) (top) (top)) - #("i28067" "i28068" "i28069")) + #("i30076" "i30077" "i30078")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28064"))) + #(ribcage #(x) #((top)) #("i30073"))) (hygiene guile)) - #{pattern 28097}#) - #{template 28098}#)))) - #{tmp 28092}#) - (let ((#{tmp 28099}# + #{pattern 30106}#) + #{template 30107}#)))) + #{tmp 30101}#) + (let ((#{tmp 30108}# ($sc-dispatch - #{x 28090}# + #{x 30099}# '(_ (any . any) any any)))) - (if (if #{tmp 28099}# + (if (if #{tmp 30108}# (@apply - (lambda (#{name 28103}# - #{pattern 28104}# - #{docstring 28105}# - #{template 28106}#) - (string? (syntax->datum #{docstring 28105}#))) - #{tmp 28099}#) + (lambda (#{name 30112}# + #{pattern 30113}# + #{docstring 30114}# + #{template 30115}#) + (string? (syntax->datum #{docstring 30114}#))) + #{tmp 30108}#) #f) (@apply - (lambda (#{name 28107}# - #{pattern 28108}# - #{docstring 28109}# - #{template 28110}#) + (lambda (#{name 30116}# + #{pattern 30117}# + #{docstring 30118}# + #{template 30119}#) (list '#(syntax-object define-syntax ((top) #(ribcage #(name pattern docstring template) #((top) (top) (top) (top)) - #("i28082" "i28083" "i28084" "i28085")) + #("i30091" "i30092" "i30093" "i30094")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28064"))) + #(ribcage #(x) #((top)) #("i30073"))) (hygiene guile)) - #{name 28107}# + #{name 30116}# (list '#(syntax-object syntax-rules ((top) #(ribcage #(name pattern docstring template) #((top) (top) (top) (top)) - #("i28082" "i28083" "i28084" "i28085")) + #("i30091" "i30092" "i30093" "i30094")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28064"))) + #(ribcage #(x) #((top)) #("i30073"))) (hygiene guile)) '() - #{docstring 28109}# + #{docstring 30118}# (list (cons '#(syntax-object _ ((top) @@ -22522,53 +22556,53 @@ docstring template) #((top) (top) (top) (top)) - #("i28082" - "i28083" - "i28084" - "i28085")) + #("i30091" + "i30092" + "i30093" + "i30094")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i28064"))) + #("i30073"))) (hygiene guile)) - #{pattern 28108}#) - #{template 28110}#)))) - #{tmp 28099}#) + #{pattern 30117}#) + #{template 30119}#)))) + #{tmp 30108}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 28090}#)))))))) + #{x 30099}#)))))))) (define let* (make-syntax-transformer 'let* 'macro - (lambda (#{x 28159}#) - (let ((#{tmp 28161}# + (lambda (#{x 30168}#) + (let ((#{tmp 30170}# ($sc-dispatch - #{x 28159}# + #{x 30168}# '(any #(each (any any)) any . each-any)))) - (if (if #{tmp 28161}# + (if (if #{tmp 30170}# (@apply - (lambda (#{let* 28165}# - #{x 28166}# - #{v 28167}# - #{e1 28168}# - #{e2 28169}#) - (and-map identifier? #{x 28166}#)) - #{tmp 28161}#) + (lambda (#{let* 30174}# + #{x 30175}# + #{v 30176}# + #{e1 30177}# + #{e2 30178}#) + (and-map identifier? #{x 30175}#)) + #{tmp 30170}#) #f) (@apply - (lambda (#{let* 28170}# - #{x 28171}# - #{v 28172}# - #{e1 28173}# - #{e2 28174}#) + (lambda (#{let* 30179}# + #{x 30180}# + #{v 30181}# + #{e1 30182}# + #{e2 30183}#) (letrec* - ((#{f 28175}# - (lambda (#{bindings 28178}#) - (if (null? #{bindings 28178}#) + ((#{f 30184}# + (lambda (#{bindings 30187}#) + (if (null? #{bindings 30187}#) (cons '#(syntax-object let ((top) @@ -22576,27 +22610,27 @@ #(ribcage #(f bindings) #((top) (top)) - #("i28145" "i28146")) + #("i30154" "i30155")) #(ribcage #(let* x v e1 e2) #((top) (top) (top) (top) (top)) - #("i28135" - "i28136" - "i28137" - "i28138" - "i28139")) + #("i30144" + "i30145" + "i30146" + "i30147" + "i30148")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28121"))) + #(ribcage #(x) #((top)) #("i30130"))) (hygiene guile)) - (cons '() (cons #{e1 28173}# #{e2 28174}#))) - (let ((#{tmp 28179}# - (list (#{f 28175}# (cdr #{bindings 28178}#)) - (car #{bindings 28178}#)))) - (let ((#{tmp 28180}# - ($sc-dispatch #{tmp 28179}# '(any any)))) - (if #{tmp 28180}# + (cons '() (cons #{e1 30182}# #{e2 30183}#))) + (let ((#{tmp 30188}# + (list (#{f 30184}# (cdr #{bindings 30187}#)) + (car #{bindings 30187}#)))) + (let ((#{tmp 30189}# + ($sc-dispatch #{tmp 30188}# '(any any)))) + (if #{tmp 30189}# (@apply - (lambda (#{body 28182}# #{binding 28183}#) + (lambda (#{body 30191}# #{binding 30192}#) (list '#(syntax-object let ((top) @@ -22604,86 +22638,86 @@ #(ribcage #(body binding) #((top) (top)) - #("i28155" "i28156")) + #("i30164" "i30165")) #(ribcage () () ()) #(ribcage #(f bindings) #((top) (top)) - #("i28145" "i28146")) + #("i30154" "i30155")) #(ribcage #(let* x v e1 e2) #((top) (top) (top) (top) (top)) - #("i28135" - "i28136" - "i28137" - "i28138" - "i28139")) + #("i30144" + "i30145" + "i30146" + "i30147" + "i30148")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i28121"))) + #("i30130"))) (hygiene guile)) - (list #{binding 28183}#) - #{body 28182}#)) - #{tmp 28180}#) + (list #{binding 30192}#) + #{body 30191}#)) + #{tmp 30189}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 28179}#)))))))) - (#{f 28175}# (map list #{x 28171}# #{v 28172}#)))) - #{tmp 28161}#) + #{tmp 30188}#)))))))) + (#{f 30184}# (map list #{x 30180}# #{v 30181}#)))) + #{tmp 30170}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 28159}#)))))) + #{x 30168}#)))))) (define do (make-syntax-transformer 'do 'macro - (lambda (#{orig-x 28241}#) - (let ((#{tmp 28243}# + (lambda (#{orig-x 30250}#) + (let ((#{tmp 30252}# ($sc-dispatch - #{orig-x 28241}# + #{orig-x 30250}# '(_ #(each (any any . any)) (any . each-any) . each-any)))) - (if #{tmp 28243}# + (if #{tmp 30252}# (@apply - (lambda (#{var 28247}# - #{init 28248}# - #{step 28249}# - #{e0 28250}# - #{e1 28251}# - #{c 28252}#) - (let ((#{tmp 28253}# - (map (lambda (#{v 28256}# #{s 28257}#) - (let ((#{tmp 28259}# - ($sc-dispatch #{s 28257}# '()))) - (if #{tmp 28259}# - (@apply (lambda () #{v 28256}#) #{tmp 28259}#) - (let ((#{tmp 28262}# - ($sc-dispatch #{s 28257}# '(any)))) - (if #{tmp 28262}# + (lambda (#{var 30256}# + #{init 30257}# + #{step 30258}# + #{e0 30259}# + #{e1 30260}# + #{c 30261}#) + (let ((#{tmp 30262}# + (map (lambda (#{v 30265}# #{s 30266}#) + (let ((#{tmp 30268}# + ($sc-dispatch #{s 30266}# '()))) + (if #{tmp 30268}# + (@apply (lambda () #{v 30265}#) #{tmp 30268}#) + (let ((#{tmp 30271}# + ($sc-dispatch #{s 30266}# '(any)))) + (if #{tmp 30271}# (@apply - (lambda (#{e 28265}#) #{e 28265}#) - #{tmp 28262}#) + (lambda (#{e 30274}#) #{e 30274}#) + #{tmp 30271}#) (syntax-violation 'do "bad step expression" - #{orig-x 28241}# - #{s 28257}#)))))) - #{var 28247}# - #{step 28249}#))) - (let ((#{tmp 28254}# - ($sc-dispatch #{tmp 28253}# 'each-any))) - (if #{tmp 28254}# + #{orig-x 30250}# + #{s 30266}#)))))) + #{var 30256}# + #{step 30258}#))) + (let ((#{tmp 30263}# + ($sc-dispatch #{tmp 30262}# 'each-any))) + (if #{tmp 30263}# (@apply - (lambda (#{step 28271}#) - (let ((#{tmp 28273}# ($sc-dispatch #{e1 28251}# '()))) - (if #{tmp 28273}# + (lambda (#{step 30280}#) + (let ((#{tmp 30282}# ($sc-dispatch #{e1 30260}# '()))) + (if #{tmp 30282}# (@apply (lambda () (list '#(syntax-object @@ -22693,7 +22727,7 @@ #(ribcage #(step) #((top)) - #("i28209")) + #("i30218")) #(ribcage #(var init step e0 e1 c) #((top) @@ -22702,17 +22736,17 @@ (top) (top) (top)) - #("i28194" - "i28195" - "i28196" - "i28197" - "i28198" - "i28199")) + #("i30203" + "i30204" + "i30205" + "i30206" + "i30207" + "i30208")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i28191"))) + #("i30200"))) (hygiene guile)) '#(syntax-object doloop @@ -22721,7 +22755,7 @@ #(ribcage #(step) #((top)) - #("i28209")) + #("i30218")) #(ribcage #(var init step e0 e1 c) #((top) @@ -22730,19 +22764,19 @@ (top) (top) (top)) - #("i28194" - "i28195" - "i28196" - "i28197" - "i28198" - "i28199")) + #("i30203" + "i30204" + "i30205" + "i30206" + "i30207" + "i30208")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i28191"))) + #("i30200"))) (hygiene guile)) - (map list #{var 28247}# #{init 28248}#) + (map list #{var 30256}# #{init 30257}#) (list '#(syntax-object if ((top) @@ -22750,7 +22784,7 @@ #(ribcage #(step) #((top)) - #("i28209")) + #("i30218")) #(ribcage #(var init step e0 e1 c) #((top) @@ -22759,17 +22793,17 @@ (top) (top) (top)) - #("i28194" - "i28195" - "i28196" - "i28197" - "i28198" - "i28199")) + #("i30203" + "i30204" + "i30205" + "i30206" + "i30207" + "i30208")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i28191"))) + #("i30200"))) (hygiene guile)) (list '#(syntax-object not @@ -22778,7 +22812,7 @@ #(ribcage #(step) #((top)) - #("i28209")) + #("i30218")) #(ribcage #(var init @@ -22792,19 +22826,19 @@ (top) (top) (top)) - #("i28194" - "i28195" - "i28196" - "i28197" - "i28198" - "i28199")) + #("i30203" + "i30204" + "i30205" + "i30206" + "i30207" + "i30208")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i28191"))) + #("i30200"))) (hygiene guile)) - #{e0 28250}#) + #{e0 30259}#) (cons '#(syntax-object begin ((top) @@ -22812,7 +22846,7 @@ #(ribcage #(step) #((top)) - #("i28209")) + #("i30218")) #(ribcage #(var init @@ -22826,20 +22860,20 @@ (top) (top) (top)) - #("i28194" - "i28195" - "i28196" - "i28197" - "i28198" - "i28199")) + #("i30203" + "i30204" + "i30205" + "i30206" + "i30207" + "i30208")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i28191"))) + #("i30200"))) (hygiene guile)) (append - #{c 28252}# + #{c 30261}# (list (cons '#(syntax-object doloop ((top) @@ -22850,7 +22884,7 @@ #(ribcage #(step) #((top)) - #("i28209")) + #("i30218")) #(ribcage #(var init @@ -22864,12 +22898,12 @@ (top) (top) (top)) - #("i28194" - "i28195" - "i28196" - "i28197" - "i28198" - "i28199")) + #("i30203" + "i30204" + "i30205" + "i30206" + "i30207" + "i30208")) #(ribcage () () @@ -22877,30 +22911,30 @@ #(ribcage #(orig-x) #((top)) - #("i28191"))) + #("i30200"))) (hygiene guile)) - #{step 28271}#))))))) - #{tmp 28273}#) - (let ((#{tmp 28277}# + #{step 30280}#))))))) + #{tmp 30282}#) + (let ((#{tmp 30286}# ($sc-dispatch - #{e1 28251}# + #{e1 30260}# '(any . each-any)))) - (if #{tmp 28277}# + (if #{tmp 30286}# (@apply - (lambda (#{e1 28281}# #{e2 28282}#) + (lambda (#{e1 30290}# #{e2 30291}#) (list '#(syntax-object let ((top) #(ribcage #(e1 e2) #((top) (top)) - #("i28218" "i28219")) + #("i30227" "i30228")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("i28209")) + #("i30218")) #(ribcage #(var init step e0 e1 c) #((top) @@ -22909,17 +22943,17 @@ (top) (top) (top)) - #("i28194" - "i28195" - "i28196" - "i28197" - "i28198" - "i28199")) + #("i30203" + "i30204" + "i30205" + "i30206" + "i30207" + "i30208")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i28191"))) + #("i30200"))) (hygiene guile)) '#(syntax-object doloop @@ -22927,12 +22961,12 @@ #(ribcage #(e1 e2) #((top) (top)) - #("i28218" "i28219")) + #("i30227" "i30228")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("i28209")) + #("i30218")) #(ribcage #(var init step e0 e1 c) #((top) @@ -22941,33 +22975,33 @@ (top) (top) (top)) - #("i28194" - "i28195" - "i28196" - "i28197" - "i28198" - "i28199")) + #("i30203" + "i30204" + "i30205" + "i30206" + "i30207" + "i30208")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i28191"))) + #("i30200"))) (hygiene guile)) (map list - #{var 28247}# - #{init 28248}#) + #{var 30256}# + #{init 30257}#) (list '#(syntax-object if ((top) #(ribcage #(e1 e2) #((top) (top)) - #("i28218" "i28219")) + #("i30227" "i30228")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("i28209")) + #("i30218")) #(ribcage #(var init step e0 e1 c) #((top) @@ -22976,32 +23010,32 @@ (top) (top) (top)) - #("i28194" - "i28195" - "i28196" - "i28197" - "i28198" - "i28199")) + #("i30203" + "i30204" + "i30205" + "i30206" + "i30207" + "i30208")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i28191"))) + #("i30200"))) (hygiene guile)) - #{e0 28250}# + #{e0 30259}# (cons '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) - #("i28218" - "i28219")) + #("i30227" + "i30228")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("i28209")) + #("i30218")) #(ribcage #(var init @@ -23015,33 +23049,33 @@ (top) (top) (top)) - #("i28194" - "i28195" - "i28196" - "i28197" - "i28198" - "i28199")) + #("i30203" + "i30204" + "i30205" + "i30206" + "i30207" + "i30208")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i28191"))) + #("i30200"))) (hygiene guile)) - (cons #{e1 28281}# - #{e2 28282}#)) + (cons #{e1 30290}# + #{e2 30291}#)) (cons '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) - #("i28218" - "i28219")) + #("i30227" + "i30228")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("i28209")) + #("i30218")) #(ribcage #(var init @@ -23055,20 +23089,20 @@ (top) (top) (top)) - #("i28194" - "i28195" - "i28196" - "i28197" - "i28198" - "i28199")) + #("i30203" + "i30204" + "i30205" + "i30206" + "i30207" + "i30208")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i28191"))) + #("i30200"))) (hygiene guile)) (append - #{c 28252}# + #{c 30261}# (list (cons '#(syntax-object doloop ((top) @@ -23077,8 +23111,8 @@ e2) #((top) (top)) - #("i28218" - "i28219")) + #("i30227" + "i30228")) #(ribcage () () @@ -23086,7 +23120,7 @@ #(ribcage #(step) #((top)) - #("i28209")) + #("i30218")) #(ribcage #(var init @@ -23100,12 +23134,12 @@ (top) (top) (top)) - #("i28194" - "i28195" - "i28196" - "i28197" - "i28198" - "i28199")) + #("i30203" + "i30204" + "i30205" + "i30206" + "i30207" + "i30208")) #(ribcage () () @@ -23113,36 +23147,36 @@ #(ribcage #(orig-x) #((top)) - #("i28191"))) + #("i30200"))) (hygiene guile)) - #{step 28271}#))))))) - #{tmp 28277}#) + #{step 30280}#))))))) + #{tmp 30286}#) (syntax-violation #f "source expression failed to match any pattern" - #{e1 28251}#)))))) - #{tmp 28254}#) + #{e1 30260}#)))))) + #{tmp 30263}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 28253}#))))) - #{tmp 28243}#) + #{tmp 30262}#))))) + #{tmp 30252}#) (syntax-violation #f "source expression failed to match any pattern" - #{orig-x 28241}#)))))) + #{orig-x 30250}#)))))) (define quasiquote (make-syntax-transformer 'quasiquote 'macro (letrec* - ((#{quasi 28568}# - (lambda (#{p 28592}# #{lev 28593}#) - (let ((#{tmp 28595}# + ((#{quasi 30577}# + (lambda (#{p 30601}# #{lev 30602}#) + (let ((#{tmp 30604}# ($sc-dispatch - #{p 28592}# + #{p 30601}# '(#(free-id #(syntax-object unquote @@ -23151,7 +23185,7 @@ #(ribcage #(p lev) #((top) (top)) - #("i28314" "i28315")) + #("i30323" "i30324")) #(ribcage (emit quasivector quasilist* @@ -23160,28 +23194,28 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i28310" - "i28308" - "i28306" - "i28304" - "i28302" - "i28300" - "i28298"))) + ("i30319" + "i30317" + "i30315" + "i30313" + "i30311" + "i30309" + "i30307"))) (hygiene guile))) any)))) - (if #{tmp 28595}# + (if #{tmp 30604}# (@apply - (lambda (#{p 28599}#) - (if (= #{lev 28593}# 0) + (lambda (#{p 30608}#) + (if (= #{lev 30602}# 0) (list '#(syntax-object "value" ((top) - #(ribcage #(p) #((top)) #("i28318")) + #(ribcage #(p) #((top)) #("i30327")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i28314" "i28315")) + #("i30323" "i30324")) #(ribcage (emit quasivector quasilist* @@ -23190,25 +23224,25 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i28310" - "i28308" - "i28306" - "i28304" - "i28302" - "i28300" - "i28298"))) + ("i30319" + "i30317" + "i30315" + "i30313" + "i30311" + "i30309" + "i30307"))) (hygiene guile)) - #{p 28599}#) - (#{quasicons 28570}# + #{p 30608}#) + (#{quasicons 30579}# '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("i28318")) + #(ribcage #(p) #((top)) #("i30327")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i28314" "i28315")) + #("i30323" "i30324")) #(ribcage (emit quasivector quasilist* @@ -23217,23 +23251,23 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i28310" - "i28308" - "i28306" - "i28304" - "i28302" - "i28300" - "i28298"))) + ("i30319" + "i30317" + "i30315" + "i30313" + "i30311" + "i30309" + "i30307"))) (hygiene guile)) #(syntax-object unquote ((top) - #(ribcage #(p) #((top)) #("i28318")) + #(ribcage #(p) #((top)) #("i30327")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i28314" "i28315")) + #("i30323" "i30324")) #(ribcage (emit quasivector quasilist* @@ -23242,21 +23276,21 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i28310" - "i28308" - "i28306" - "i28304" - "i28302" - "i28300" - "i28298"))) + ("i30319" + "i30317" + "i30315" + "i30313" + "i30311" + "i30309" + "i30307"))) (hygiene guile))) - (#{quasi 28568}# - (list #{p 28599}#) - (#{1-}# #{lev 28593}#))))) - #{tmp 28595}#) - (let ((#{tmp 28602}# + (#{quasi 30577}# + (list #{p 30608}#) + (#{1-}# #{lev 30602}#))))) + #{tmp 30604}#) + (let ((#{tmp 30611}# ($sc-dispatch - #{p 28592}# + #{p 30601}# '(#(free-id #(syntax-object quasiquote @@ -23265,7 +23299,7 @@ #(ribcage #(p lev) #((top) (top)) - #("i28314" "i28315")) + #("i30323" "i30324")) #(ribcage (emit quasivector quasilist* @@ -23274,28 +23308,28 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i28310" - "i28308" - "i28306" - "i28304" - "i28302" - "i28300" - "i28298"))) + ("i30319" + "i30317" + "i30315" + "i30313" + "i30311" + "i30309" + "i30307"))) (hygiene guile))) any)))) - (if #{tmp 28602}# + (if #{tmp 30611}# (@apply - (lambda (#{p 28606}#) - (#{quasicons 28570}# + (lambda (#{p 30615}#) + (#{quasicons 30579}# '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("i28321")) + #(ribcage #(p) #((top)) #("i30330")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i28314" "i28315")) + #("i30323" "i30324")) #(ribcage (emit quasivector quasilist* @@ -23304,23 +23338,23 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i28310" - "i28308" - "i28306" - "i28304" - "i28302" - "i28300" - "i28298"))) + ("i30319" + "i30317" + "i30315" + "i30313" + "i30311" + "i30309" + "i30307"))) (hygiene guile)) #(syntax-object quasiquote ((top) - #(ribcage #(p) #((top)) #("i28321")) + #(ribcage #(p) #((top)) #("i30330")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i28314" "i28315")) + #("i30323" "i30324")) #(ribcage (emit quasivector quasilist* @@ -23329,26 +23363,26 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i28310" - "i28308" - "i28306" - "i28304" - "i28302" - "i28300" - "i28298"))) + ("i30319" + "i30317" + "i30315" + "i30313" + "i30311" + "i30309" + "i30307"))) (hygiene guile))) - (#{quasi 28568}# - (list #{p 28606}#) - (#{1+}# #{lev 28593}#)))) - #{tmp 28602}#) - (let ((#{tmp 28609}# - ($sc-dispatch #{p 28592}# '(any . any)))) - (if #{tmp 28609}# + (#{quasi 30577}# + (list #{p 30615}#) + (#{1+}# #{lev 30602}#)))) + #{tmp 30611}#) + (let ((#{tmp 30618}# + ($sc-dispatch #{p 30601}# '(any . any)))) + (if #{tmp 30618}# (@apply - (lambda (#{p 28613}# #{q 28614}#) - (let ((#{tmp 28616}# + (lambda (#{p 30622}# #{q 30623}#) + (let ((#{tmp 30625}# ($sc-dispatch - #{p 28613}# + #{p 30622}# '(#(free-id #(syntax-object unquote @@ -23356,12 +23390,12 @@ #(ribcage #(p q) #((top) (top)) - #("i28324" "i28325")) + #("i30333" "i30334")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i28314" "i28315")) + #("i30323" "i30324")) #(ribcage (emit quasivector quasilist* @@ -23376,38 +23410,38 @@ (top) (top) (top)) - ("i28310" - "i28308" - "i28306" - "i28304" - "i28302" - "i28300" - "i28298"))) + ("i30319" + "i30317" + "i30315" + "i30313" + "i30311" + "i30309" + "i30307"))) (hygiene guile))) . each-any)))) - (if #{tmp 28616}# + (if #{tmp 30625}# (@apply - (lambda (#{p 28620}#) - (if (= #{lev 28593}# 0) - (#{quasilist* 28572}# - (map (lambda (#{tmp 28332 28656}#) + (lambda (#{p 30629}#) + (if (= #{lev 30602}# 0) + (#{quasilist* 30581}# + (map (lambda (#{tmp 30341 30665}#) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("i28330")) + #("i30339")) #(ribcage #(p q) #((top) (top)) - #("i28324" "i28325")) + #("i30333" "i30334")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i28314" "i28315")) + #("i30323" "i30324")) #(ribcage (emit quasivector quasilist* @@ -23422,37 +23456,37 @@ (top) (top) (top)) - ("i28310" - "i28308" - "i28306" - "i28304" - "i28302" - "i28300" - "i28298"))) + ("i30319" + "i30317" + "i30315" + "i30313" + "i30311" + "i30309" + "i30307"))) (hygiene guile)) - #{tmp 28332 28656}#)) - #{p 28620}#) - (#{quasi 28568}# - #{q 28614}# - #{lev 28593}#)) - (#{quasicons 28570}# - (#{quasicons 28570}# + #{tmp 30341 30665}#)) + #{p 30629}#) + (#{quasi 30577}# + #{q 30623}# + #{lev 30602}#)) + (#{quasicons 30579}# + (#{quasicons 30579}# '(#(syntax-object "quote" ((top) #(ribcage #(p) #((top)) - #("i28330")) + #("i30339")) #(ribcage #(p q) #((top) (top)) - #("i28324" "i28325")) + #("i30333" "i30334")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i28314" "i28315")) + #("i30323" "i30324")) #(ribcage (emit quasivector quasilist* @@ -23467,13 +23501,13 @@ (top) (top) (top)) - ("i28310" - "i28308" - "i28306" - "i28304" - "i28302" - "i28300" - "i28298"))) + ("i30319" + "i30317" + "i30315" + "i30313" + "i30311" + "i30309" + "i30307"))) (hygiene guile)) #(syntax-object unquote @@ -23481,16 +23515,16 @@ #(ribcage #(p) #((top)) - #("i28330")) + #("i30339")) #(ribcage #(p q) #((top) (top)) - #("i28324" "i28325")) + #("i30333" "i30334")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i28314" "i28315")) + #("i30323" "i30324")) #(ribcage (emit quasivector quasilist* @@ -23505,24 +23539,24 @@ (top) (top) (top)) - ("i28310" - "i28308" - "i28306" - "i28304" - "i28302" - "i28300" - "i28298"))) + ("i30319" + "i30317" + "i30315" + "i30313" + "i30311" + "i30309" + "i30307"))) (hygiene guile))) - (#{quasi 28568}# - #{p 28620}# - (#{1-}# #{lev 28593}#))) - (#{quasi 28568}# - #{q 28614}# - #{lev 28593}#)))) - #{tmp 28616}#) - (let ((#{tmp 28661}# + (#{quasi 30577}# + #{p 30629}# + (#{1-}# #{lev 30602}#))) + (#{quasi 30577}# + #{q 30623}# + #{lev 30602}#)))) + #{tmp 30625}#) + (let ((#{tmp 30670}# ($sc-dispatch - #{p 28613}# + #{p 30622}# '(#(free-id #(syntax-object unquote-splicing @@ -23530,12 +23564,12 @@ #(ribcage #(p q) #((top) (top)) - #("i28324" "i28325")) + #("i30333" "i30334")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i28314" "i28315")) + #("i30323" "i30324")) #(ribcage (emit quasivector quasilist* @@ -23550,40 +23584,40 @@ (top) (top) (top)) - ("i28310" - "i28308" - "i28306" - "i28304" - "i28302" - "i28300" - "i28298"))) + ("i30319" + "i30317" + "i30315" + "i30313" + "i30311" + "i30309" + "i30307"))) (hygiene guile))) . each-any)))) - (if #{tmp 28661}# + (if #{tmp 30670}# (@apply - (lambda (#{p 28665}#) - (if (= #{lev 28593}# 0) - (#{quasiappend 28571}# - (map (lambda (#{tmp 28337 28668}#) + (lambda (#{p 30674}#) + (if (= #{lev 30602}# 0) + (#{quasiappend 30580}# + (map (lambda (#{tmp 30346 30677}#) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("i28335")) + #("i30344")) #(ribcage #(p q) #((top) (top)) - #("i28324" - "i28325")) + #("i30333" + "i30334")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i28314" - "i28315")) + #("i30323" + "i30324")) #(ribcage (emit quasivector quasilist* @@ -23598,37 +23632,37 @@ (top) (top) (top)) - ("i28310" - "i28308" - "i28306" - "i28304" - "i28302" - "i28300" - "i28298"))) + ("i30319" + "i30317" + "i30315" + "i30313" + "i30311" + "i30309" + "i30307"))) (hygiene guile)) - #{tmp 28337 28668}#)) - #{p 28665}#) - (#{quasi 28568}# - #{q 28614}# - #{lev 28593}#)) - (#{quasicons 28570}# - (#{quasicons 28570}# + #{tmp 30346 30677}#)) + #{p 30674}#) + (#{quasi 30577}# + #{q 30623}# + #{lev 30602}#)) + (#{quasicons 30579}# + (#{quasicons 30579}# '(#(syntax-object "quote" ((top) #(ribcage #(p) #((top)) - #("i28335")) + #("i30344")) #(ribcage #(p q) #((top) (top)) - #("i28324" "i28325")) + #("i30333" "i30334")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i28314" "i28315")) + #("i30323" "i30324")) #(ribcage (emit quasivector quasilist* @@ -23643,13 +23677,13 @@ (top) (top) (top)) - ("i28310" - "i28308" - "i28306" - "i28304" - "i28302" - "i28300" - "i28298"))) + ("i30319" + "i30317" + "i30315" + "i30313" + "i30311" + "i30309" + "i30307"))) (hygiene guile)) #(syntax-object unquote-splicing @@ -23657,16 +23691,16 @@ #(ribcage #(p) #((top)) - #("i28335")) + #("i30344")) #(ribcage #(p q) #((top) (top)) - #("i28324" "i28325")) + #("i30333" "i30334")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i28314" "i28315")) + #("i30323" "i30324")) #(ribcage (emit quasivector quasilist* @@ -23681,57 +23715,57 @@ (top) (top) (top)) - ("i28310" - "i28308" - "i28306" - "i28304" - "i28302" - "i28300" - "i28298"))) + ("i30319" + "i30317" + "i30315" + "i30313" + "i30311" + "i30309" + "i30307"))) (hygiene guile))) - (#{quasi 28568}# - #{p 28665}# - (#{1-}# #{lev 28593}#))) - (#{quasi 28568}# - #{q 28614}# - #{lev 28593}#)))) - #{tmp 28661}#) - (#{quasicons 28570}# - (#{quasi 28568}# - #{p 28613}# - #{lev 28593}#) - (#{quasi 28568}# - #{q 28614}# - #{lev 28593}#))))))) - #{tmp 28609}#) - (let ((#{tmp 28682}# - ($sc-dispatch #{p 28592}# '#(vector each-any)))) - (if #{tmp 28682}# + (#{quasi 30577}# + #{p 30674}# + (#{1-}# #{lev 30602}#))) + (#{quasi 30577}# + #{q 30623}# + #{lev 30602}#)))) + #{tmp 30670}#) + (#{quasicons 30579}# + (#{quasi 30577}# + #{p 30622}# + #{lev 30602}#) + (#{quasi 30577}# + #{q 30623}# + #{lev 30602}#))))))) + #{tmp 30618}#) + (let ((#{tmp 30691}# + ($sc-dispatch #{p 30601}# '#(vector each-any)))) + (if #{tmp 30691}# (@apply - (lambda (#{x 28686}#) - (let ((#{x 28689}# - (#{vquasi 28569}# - #{x 28686}# - #{lev 28593}#))) - (let ((#{tmp 28691}# + (lambda (#{x 30695}#) + (let ((#{x 30698}# + (#{vquasi 30578}# + #{x 30695}# + #{lev 30602}#))) + (let ((#{tmp 30700}# ($sc-dispatch - #{x 28689}# + #{x 30698}# '(#(atom "quote") each-any)))) - (if #{tmp 28691}# + (if #{tmp 30700}# (@apply - (lambda (#{x 28695}#) + (lambda (#{x 30704}#) (list '#(syntax-object "quote" ((top) #(ribcage #(x) #((top)) - #("i28442")) + #("i30451")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i28439")) + #("i30448")) #(ribcage (emit quasivector quasilist* @@ -23746,36 +23780,36 @@ (top) (top) (top)) - ("i28310" - "i28308" - "i28306" - "i28304" - "i28302" - "i28300" - "i28298"))) + ("i30319" + "i30317" + "i30315" + "i30313" + "i30311" + "i30309" + "i30307"))) (hygiene guile)) - (list->vector #{x 28695}#))) - #{tmp 28691}#) + (list->vector #{x 30704}#))) + #{tmp 30700}#) (letrec* - ((#{f 28697}# - (lambda (#{y 28709}# #{k 28710}#) - (let ((#{tmp 28712}# + ((#{f 30706}# + (lambda (#{y 30718}# #{k 30719}#) + (let ((#{tmp 30721}# ($sc-dispatch - #{y 28709}# + #{y 30718}# '(#(atom "quote") each-any)))) - (if #{tmp 28712}# + (if #{tmp 30721}# (@apply - (lambda (#{y 28715}#) - (#{k 28710}# - (map (lambda (#{tmp 28467 28716}#) + (lambda (#{y 30724}#) + (#{k 30719}# + (map (lambda (#{tmp 30476 30725}#) (list '#(syntax-object "quote" ((top) #(ribcage #(y) #((top)) - #("i28465")) + #("i30474")) #(ribcage () () @@ -23787,13 +23821,13 @@ #((top) (top) (top)) - #("i28447" - "i28448" - "i28449")) + #("i30456" + "i30457" + "i30458")) #(ribcage #(_) #((top)) - #("i28445")) + #("i30454")) #(ribcage () () @@ -23801,7 +23835,7 @@ #(ribcage #(x) #((top)) - #("i28439")) + #("i30448")) #(ribcage (emit quasivector quasilist* @@ -23816,51 +23850,51 @@ (top) (top) (top)) - ("i28310" - "i28308" - "i28306" - "i28304" - "i28302" - "i28300" - "i28298"))) + ("i30319" + "i30317" + "i30315" + "i30313" + "i30311" + "i30309" + "i30307"))) (hygiene guile)) - #{tmp 28467 28716}#)) - #{y 28715}#))) - #{tmp 28712}#) - (let ((#{tmp 28717}# + #{tmp 30476 30725}#)) + #{y 30724}#))) + #{tmp 30721}#) + (let ((#{tmp 30726}# ($sc-dispatch - #{y 28709}# + #{y 30718}# '(#(atom "list") . each-any)))) - (if #{tmp 28717}# + (if #{tmp 30726}# (@apply - (lambda (#{y 28720}#) - (#{k 28710}# - #{y 28720}#)) - #{tmp 28717}#) - (let ((#{tmp 28721}# + (lambda (#{y 30729}#) + (#{k 30719}# + #{y 30729}#)) + #{tmp 30726}#) + (let ((#{tmp 30730}# ($sc-dispatch - #{y 28709}# + #{y 30718}# '(#(atom "list*") . #(each+ any (any) ()))))) - (if #{tmp 28721}# + (if #{tmp 30730}# (@apply - (lambda (#{y 28724}# - #{z 28725}#) - (#{f 28697}# - #{z 28725}# - (lambda (#{ls 28726}#) - (#{k 28710}# + (lambda (#{y 30733}# + #{z 30734}#) + (#{f 30706}# + #{z 30734}# + (lambda (#{ls 30735}#) + (#{k 30719}# (append - #{y 28724}# - #{ls 28726}#))))) - #{tmp 28721}#) + #{y 30733}# + #{ls 30735}#))))) + #{tmp 30730}#) (list '#(syntax-object "list->vector" ((top) @@ -23869,14 +23903,14 @@ () ()) #(ribcage - #(#{ g28482}#) - #((m28483 + #(#{ g30491}#) + #((m30492 top)) - #("i28486")) + #("i30495")) #(ribcage #(else) #((top)) - #("i28480")) + #("i30489")) #(ribcage () () @@ -23886,13 +23920,13 @@ #((top) (top) (top)) - #("i28447" - "i28448" - "i28449")) + #("i30456" + "i30457" + "i30458")) #(ribcage #(_) #((top)) - #("i28445")) + #("i30454")) #(ribcage () () @@ -23900,7 +23934,7 @@ #(ribcage #(x) #((top)) - #("i28439")) + #("i30448")) #(ribcage (emit quasivector quasilist* @@ -23915,26 +23949,26 @@ (top) (top) (top)) - ("i28310" - "i28308" - "i28306" - "i28304" - "i28302" - "i28300" - "i28298"))) + ("i30319" + "i30317" + "i30315" + "i30313" + "i30311" + "i30309" + "i30307"))) (hygiene guile)) - #{x 28689}#)))))))))) - (#{f 28697}# - #{x 28689}# - (lambda (#{ls 28699}#) - (let ((#{tmp 28701}# + #{x 30698}#)))))))))) + (#{f 30706}# + #{x 30698}# + (lambda (#{ls 30708}#) + (let ((#{tmp 30710}# ($sc-dispatch - #{ls 28699}# + #{ls 30708}# 'each-any))) - (if #{tmp 28701}# + (if #{tmp 30710}# (@apply - (lambda (#{ g28455 28704}#) + (lambda (#{ g30464 30713}#) (cons '#(syntax-object "vector" ((top) @@ -23943,9 +23977,9 @@ () ()) #(ribcage - #(#{ g28455}#) - #((m28456 top)) - #("i28460")) + #(#{ g30464}#) + #((m30465 top)) + #("i30469")) #(ribcage () () @@ -23961,11 +23995,11 @@ #(ribcage #(ls) #((top)) - #("i28454")) + #("i30463")) #(ribcage #(_) #((top)) - #("i28445")) + #("i30454")) #(ribcage () () @@ -23973,7 +24007,7 @@ #(ribcage #(x) #((top)) - #("i28439")) + #("i30448")) #(ribcage (emit quasivector quasilist* @@ -23988,30 +24022,30 @@ (top) (top) (top)) - ("i28310" - "i28308" - "i28306" - "i28304" - "i28302" - "i28300" - "i28298"))) + ("i30319" + "i30317" + "i30315" + "i30313" + "i30311" + "i30309" + "i30307"))) (hygiene guile)) - #{ g28455 28704}#)) - #{tmp 28701}#) + #{ g30464 30713}#)) + #{tmp 30710}#) (syntax-violation #f "source expression failed to match any pattern" - #{ls 28699}#)))))))))) - #{tmp 28682}#) + #{ls 30708}#)))))))))) + #{tmp 30691}#) (list '#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("i28345")) + #(ribcage #(p) #((top)) #("i30354")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i28314" "i28315")) + #("i30323" "i30324")) #(ribcage (emit quasivector quasilist* @@ -24026,25 +24060,25 @@ (top) (top) (top)) - ("i28310" - "i28308" - "i28306" - "i28304" - "i28302" - "i28300" - "i28298"))) + ("i30319" + "i30317" + "i30315" + "i30313" + "i30311" + "i30309" + "i30307"))) (hygiene guile)) - #{p 28592}#))))))))))) - (#{vquasi 28569}# - (lambda (#{p 28754}# #{lev 28755}#) - (let ((#{tmp 28757}# - ($sc-dispatch #{p 28754}# '(any . any)))) - (if #{tmp 28757}# + #{p 30601}#))))))))))) + (#{vquasi 30578}# + (lambda (#{p 30763}# #{lev 30764}#) + (let ((#{tmp 30766}# + ($sc-dispatch #{p 30763}# '(any . any)))) + (if #{tmp 30766}# (@apply - (lambda (#{p 28761}# #{q 28762}#) - (let ((#{tmp 28764}# + (lambda (#{p 30770}# #{q 30771}#) + (let ((#{tmp 30773}# ($sc-dispatch - #{p 28761}# + #{p 30770}# '(#(free-id #(syntax-object unquote @@ -24052,12 +24086,12 @@ #(ribcage #(p q) #((top) (top)) - #("i28353" "i28354")) + #("i30362" "i30363")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i28349" "i28350")) + #("i30358" "i30359")) #(ribcage (emit quasivector quasilist* @@ -24072,38 +24106,38 @@ (top) (top) (top)) - ("i28310" - "i28308" - "i28306" - "i28304" - "i28302" - "i28300" - "i28298"))) + ("i30319" + "i30317" + "i30315" + "i30313" + "i30311" + "i30309" + "i30307"))) (hygiene guile))) . each-any)))) - (if #{tmp 28764}# + (if #{tmp 30773}# (@apply - (lambda (#{p 28768}#) - (if (= #{lev 28755}# 0) - (#{quasilist* 28572}# - (map (lambda (#{tmp 28361 28804}#) + (lambda (#{p 30777}#) + (if (= #{lev 30764}# 0) + (#{quasilist* 30581}# + (map (lambda (#{tmp 30370 30813}#) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("i28359")) + #("i30368")) #(ribcage #(p q) #((top) (top)) - #("i28353" "i28354")) + #("i30362" "i30363")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i28349" "i28350")) + #("i30358" "i30359")) #(ribcage (emit quasivector quasilist* @@ -24118,32 +24152,32 @@ (top) (top) (top)) - ("i28310" - "i28308" - "i28306" - "i28304" - "i28302" - "i28300" - "i28298"))) + ("i30319" + "i30317" + "i30315" + "i30313" + "i30311" + "i30309" + "i30307"))) (hygiene guile)) - #{tmp 28361 28804}#)) - #{p 28768}#) - (#{vquasi 28569}# #{q 28762}# #{lev 28755}#)) - (#{quasicons 28570}# - (#{quasicons 28570}# + #{tmp 30370 30813}#)) + #{p 30777}#) + (#{vquasi 30578}# #{q 30771}# #{lev 30764}#)) + (#{quasicons 30579}# + (#{quasicons 30579}# '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("i28359")) + #(ribcage #(p) #((top)) #("i30368")) #(ribcage #(p q) #((top) (top)) - #("i28353" "i28354")) + #("i30362" "i30363")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i28349" "i28350")) + #("i30358" "i30359")) #(ribcage (emit quasivector quasilist* @@ -24158,27 +24192,27 @@ (top) (top) (top)) - ("i28310" - "i28308" - "i28306" - "i28304" - "i28302" - "i28300" - "i28298"))) + ("i30319" + "i30317" + "i30315" + "i30313" + "i30311" + "i30309" + "i30307"))) (hygiene guile)) #(syntax-object unquote ((top) - #(ribcage #(p) #((top)) #("i28359")) + #(ribcage #(p) #((top)) #("i30368")) #(ribcage #(p q) #((top) (top)) - #("i28353" "i28354")) + #("i30362" "i30363")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i28349" "i28350")) + #("i30358" "i30359")) #(ribcage (emit quasivector quasilist* @@ -24193,22 +24227,22 @@ (top) (top) (top)) - ("i28310" - "i28308" - "i28306" - "i28304" - "i28302" - "i28300" - "i28298"))) + ("i30319" + "i30317" + "i30315" + "i30313" + "i30311" + "i30309" + "i30307"))) (hygiene guile))) - (#{quasi 28568}# - #{p 28768}# - (#{1-}# #{lev 28755}#))) - (#{vquasi 28569}# #{q 28762}# #{lev 28755}#)))) - #{tmp 28764}#) - (let ((#{tmp 28811}# + (#{quasi 30577}# + #{p 30777}# + (#{1-}# #{lev 30764}#))) + (#{vquasi 30578}# #{q 30771}# #{lev 30764}#)))) + #{tmp 30773}#) + (let ((#{tmp 30820}# ($sc-dispatch - #{p 28761}# + #{p 30770}# '(#(free-id #(syntax-object unquote-splicing @@ -24216,12 +24250,12 @@ #(ribcage #(p q) #((top) (top)) - #("i28353" "i28354")) + #("i30362" "i30363")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i28349" "i28350")) + #("i30358" "i30359")) #(ribcage (emit quasivector quasilist* @@ -24236,38 +24270,38 @@ (top) (top) (top)) - ("i28310" - "i28308" - "i28306" - "i28304" - "i28302" - "i28300" - "i28298"))) + ("i30319" + "i30317" + "i30315" + "i30313" + "i30311" + "i30309" + "i30307"))) (hygiene guile))) . each-any)))) - (if #{tmp 28811}# + (if #{tmp 30820}# (@apply - (lambda (#{p 28815}#) - (if (= #{lev 28755}# 0) - (#{quasiappend 28571}# - (map (lambda (#{tmp 28366 28818}#) + (lambda (#{p 30824}#) + (if (= #{lev 30764}# 0) + (#{quasiappend 30580}# + (map (lambda (#{tmp 30375 30827}#) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("i28364")) + #("i30373")) #(ribcage #(p q) #((top) (top)) - #("i28353" "i28354")) + #("i30362" "i30363")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i28349" "i28350")) + #("i30358" "i30359")) #(ribcage (emit quasivector quasilist* @@ -24282,34 +24316,34 @@ (top) (top) (top)) - ("i28310" - "i28308" - "i28306" - "i28304" - "i28302" - "i28300" - "i28298"))) + ("i30319" + "i30317" + "i30315" + "i30313" + "i30311" + "i30309" + "i30307"))) (hygiene guile)) - #{tmp 28366 28818}#)) - #{p 28815}#) - (#{vquasi 28569}# - #{q 28762}# - #{lev 28755}#)) - (#{quasicons 28570}# - (#{quasicons 28570}# + #{tmp 30375 30827}#)) + #{p 30824}#) + (#{vquasi 30578}# + #{q 30771}# + #{lev 30764}#)) + (#{quasicons 30579}# + (#{quasicons 30579}# '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("i28364")) + #(ribcage #(p) #((top)) #("i30373")) #(ribcage #(p q) #((top) (top)) - #("i28353" "i28354")) + #("i30362" "i30363")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i28349" "i28350")) + #("i30358" "i30359")) #(ribcage (emit quasivector quasilist* @@ -24324,27 +24358,27 @@ (top) (top) (top)) - ("i28310" - "i28308" - "i28306" - "i28304" - "i28302" - "i28300" - "i28298"))) + ("i30319" + "i30317" + "i30315" + "i30313" + "i30311" + "i30309" + "i30307"))) (hygiene guile)) #(syntax-object unquote-splicing ((top) - #(ribcage #(p) #((top)) #("i28364")) + #(ribcage #(p) #((top)) #("i30373")) #(ribcage #(p q) #((top) (top)) - #("i28353" "i28354")) + #("i30362" "i30363")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i28349" "i28350")) + #("i30358" "i30359")) #(ribcage (emit quasivector quasilist* @@ -24359,27 +24393,27 @@ (top) (top) (top)) - ("i28310" - "i28308" - "i28306" - "i28304" - "i28302" - "i28300" - "i28298"))) + ("i30319" + "i30317" + "i30315" + "i30313" + "i30311" + "i30309" + "i30307"))) (hygiene guile))) - (#{quasi 28568}# - #{p 28815}# - (#{1-}# #{lev 28755}#))) - (#{vquasi 28569}# - #{q 28762}# - #{lev 28755}#)))) - #{tmp 28811}#) - (#{quasicons 28570}# - (#{quasi 28568}# #{p 28761}# #{lev 28755}#) - (#{vquasi 28569}# #{q 28762}# #{lev 28755}#))))))) - #{tmp 28757}#) - (let ((#{tmp 28836}# ($sc-dispatch #{p 28754}# '()))) - (if #{tmp 28836}# + (#{quasi 30577}# + #{p 30824}# + (#{1-}# #{lev 30764}#))) + (#{vquasi 30578}# + #{q 30771}# + #{lev 30764}#)))) + #{tmp 30820}#) + (#{quasicons 30579}# + (#{quasi 30577}# #{p 30770}# #{lev 30764}#) + (#{vquasi 30578}# #{q 30771}# #{lev 30764}#))))))) + #{tmp 30766}#) + (let ((#{tmp 30845}# ($sc-dispatch #{p 30763}# '()))) + (if #{tmp 30845}# (@apply (lambda () '(#(syntax-object @@ -24389,7 +24423,7 @@ #(ribcage #(p lev) #((top) (top)) - #("i28349" "i28350")) + #("i30358" "i30359")) #(ribcage (emit quasivector quasilist* @@ -24398,64 +24432,64 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i28310" - "i28308" - "i28306" - "i28304" - "i28302" - "i28300" - "i28298"))) + ("i30319" + "i30317" + "i30315" + "i30313" + "i30311" + "i30309" + "i30307"))) (hygiene guile)) ())) - #{tmp 28836}#) + #{tmp 30845}#) (syntax-violation #f "source expression failed to match any pattern" - #{p 28754}#))))))) - (#{quasicons 28570}# - (lambda (#{x 28849}# #{y 28850}#) - (let ((#{tmp 28851}# (list #{x 28849}# #{y 28850}#))) - (let ((#{tmp 28852}# - ($sc-dispatch #{tmp 28851}# '(any any)))) - (if #{tmp 28852}# + #{p 30763}#))))))) + (#{quasicons 30579}# + (lambda (#{x 30858}# #{y 30859}#) + (let ((#{tmp 30860}# (list #{x 30858}# #{y 30859}#))) + (let ((#{tmp 30861}# + ($sc-dispatch #{tmp 30860}# '(any any)))) + (if #{tmp 30861}# (@apply - (lambda (#{x 28854}# #{y 28855}#) - (let ((#{tmp 28857}# + (lambda (#{x 30863}# #{y 30864}#) + (let ((#{tmp 30866}# ($sc-dispatch - #{y 28855}# + #{y 30864}# '(#(atom "quote") any)))) - (if #{tmp 28857}# + (if #{tmp 30866}# (@apply - (lambda (#{dy 28861}#) - (let ((#{tmp 28863}# + (lambda (#{dy 30870}#) + (let ((#{tmp 30872}# ($sc-dispatch - #{x 28854}# + #{x 30863}# '(#(atom "quote") any)))) - (if #{tmp 28863}# + (if #{tmp 30872}# (@apply - (lambda (#{dx 28867}#) + (lambda (#{dx 30876}#) (list '#(syntax-object "quote" ((top) #(ribcage #(dx) #((top)) - #("i28388")) + #("i30397")) #(ribcage #(dy) #((top)) - #("i28384")) + #("i30393")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i28378" "i28379")) + #("i30387" "i30388")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i28373" "i28374")) + #("i30382" "i30383")) #(ribcage (emit quasivector quasilist* @@ -24470,39 +24504,39 @@ (top) (top) (top)) - ("i28310" - "i28308" - "i28306" - "i28304" - "i28302" - "i28300" - "i28298"))) + ("i30319" + "i30317" + "i30315" + "i30313" + "i30311" + "i30309" + "i30307"))) (hygiene guile)) - (cons #{dx 28867}# #{dy 28861}#))) - #{tmp 28863}#) - (if (null? #{dy 28861}#) + (cons #{dx 30876}# #{dy 30870}#))) + #{tmp 30872}#) + (if (null? #{dy 30870}#) (list '#(syntax-object "list" ((top) #(ribcage #(_) #((top)) - #("i28390")) + #("i30399")) #(ribcage #(dy) #((top)) - #("i28384")) + #("i30393")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i28378" "i28379")) + #("i30387" "i30388")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i28373" "i28374")) + #("i30382" "i30383")) #(ribcage (emit quasivector quasilist* @@ -24517,37 +24551,37 @@ (top) (top) (top)) - ("i28310" - "i28308" - "i28306" - "i28304" - "i28302" - "i28300" - "i28298"))) + ("i30319" + "i30317" + "i30315" + "i30313" + "i30311" + "i30309" + "i30307"))) (hygiene guile)) - #{x 28854}#) + #{x 30863}#) (list '#(syntax-object "list*" ((top) #(ribcage #(_) #((top)) - #("i28390")) + #("i30399")) #(ribcage #(dy) #((top)) - #("i28384")) + #("i30393")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i28378" "i28379")) + #("i30387" "i30388")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i28373" "i28374")) + #("i30382" "i30383")) #(ribcage (emit quasivector quasilist* @@ -24562,42 +24596,42 @@ (top) (top) (top)) - ("i28310" - "i28308" - "i28306" - "i28304" - "i28302" - "i28300" - "i28298"))) + ("i30319" + "i30317" + "i30315" + "i30313" + "i30311" + "i30309" + "i30307"))) (hygiene guile)) - #{x 28854}# - #{y 28855}#))))) - #{tmp 28857}#) - (let ((#{tmp 28872}# + #{x 30863}# + #{y 30864}#))))) + #{tmp 30866}#) + (let ((#{tmp 30881}# ($sc-dispatch - #{y 28855}# + #{y 30864}# '(#(atom "list") . any)))) - (if #{tmp 28872}# + (if #{tmp 30881}# (@apply - (lambda (#{stuff 28876}#) + (lambda (#{stuff 30885}#) (cons '#(syntax-object "list" ((top) #(ribcage #(stuff) #((top)) - #("i28393")) + #("i30402")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i28378" "i28379")) + #("i30387" "i30388")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i28373" "i28374")) + #("i30382" "i30383")) #(ribcage (emit quasivector quasilist* @@ -24612,41 +24646,41 @@ (top) (top) (top)) - ("i28310" - "i28308" - "i28306" - "i28304" - "i28302" - "i28300" - "i28298"))) + ("i30319" + "i30317" + "i30315" + "i30313" + "i30311" + "i30309" + "i30307"))) (hygiene guile)) - (cons #{x 28854}# #{stuff 28876}#))) - #{tmp 28872}#) - (let ((#{tmp 28877}# + (cons #{x 30863}# #{stuff 30885}#))) + #{tmp 30881}#) + (let ((#{tmp 30886}# ($sc-dispatch - #{y 28855}# + #{y 30864}# '(#(atom "list*") . any)))) - (if #{tmp 28877}# + (if #{tmp 30886}# (@apply - (lambda (#{stuff 28881}#) + (lambda (#{stuff 30890}#) (cons '#(syntax-object "list*" ((top) #(ribcage #(stuff) #((top)) - #("i28396")) + #("i30405")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i28378" "i28379")) + #("i30387" "i30388")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i28373" "i28374")) + #("i30382" "i30383")) #(ribcage (emit quasivector quasilist* @@ -24661,31 +24695,31 @@ (top) (top) (top)) - ("i28310" - "i28308" - "i28306" - "i28304" - "i28302" - "i28300" - "i28298"))) + ("i30319" + "i30317" + "i30315" + "i30313" + "i30311" + "i30309" + "i30307"))) (hygiene guile)) - (cons #{x 28854}# #{stuff 28881}#))) - #{tmp 28877}#) + (cons #{x 30863}# #{stuff 30890}#))) + #{tmp 30886}#) (list '#(syntax-object "list*" ((top) - #(ribcage #(_) #((top)) #("i28398")) + #(ribcage #(_) #((top)) #("i30407")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i28378" "i28379")) + #("i30387" "i30388")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i28373" "i28374")) + #("i30382" "i30383")) #(ribcage (emit quasivector quasilist* @@ -24700,29 +24734,29 @@ (top) (top) (top)) - ("i28310" - "i28308" - "i28306" - "i28304" - "i28302" - "i28300" - "i28298"))) + ("i30319" + "i30317" + "i30315" + "i30313" + "i30311" + "i30309" + "i30307"))) (hygiene guile)) - #{x 28854}# - #{y 28855}#)))))))) - #{tmp 28852}#) + #{x 30863}# + #{y 30864}#)))))))) + #{tmp 30861}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 28851}#)))))) - (#{quasiappend 28571}# - (lambda (#{x 28892}# #{y 28893}#) - (let ((#{tmp 28895}# - ($sc-dispatch #{y 28893}# '(#(atom "quote") ())))) - (if #{tmp 28895}# + #{tmp 30860}#)))))) + (#{quasiappend 30580}# + (lambda (#{x 30901}# #{y 30902}#) + (let ((#{tmp 30904}# + ($sc-dispatch #{y 30902}# '(#(atom "quote") ())))) + (if #{tmp 30904}# (@apply (lambda () - (if (null? #{x 28892}#) + (if (null? #{x 30901}#) '(#(syntax-object "quote" ((top) @@ -24730,7 +24764,7 @@ #(ribcage #(x y) #((top) (top)) - #("i28402" "i28403")) + #("i30411" "i30412")) #(ribcage (emit quasivector quasilist* @@ -24739,32 +24773,32 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i28310" - "i28308" - "i28306" - "i28304" - "i28302" - "i28300" - "i28298"))) + ("i30319" + "i30317" + "i30315" + "i30313" + "i30311" + "i30309" + "i30307"))) (hygiene guile)) ()) - (if (null? (cdr #{x 28892}#)) - (car #{x 28892}#) - (let ((#{tmp 28900}# - ($sc-dispatch #{x 28892}# 'each-any))) - (if #{tmp 28900}# + (if (null? (cdr #{x 30901}#)) + (car #{x 30901}#) + (let ((#{tmp 30909}# + ($sc-dispatch #{x 30901}# 'each-any))) + (if #{tmp 30909}# (@apply - (lambda (#{p 28904}#) + (lambda (#{p 30913}#) (cons '#(syntax-object "append" ((top) #(ribcage () () ()) - #(ribcage #(p) #((top)) #("i28414")) + #(ribcage #(p) #((top)) #("i30423")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i28402" "i28403")) + #("i30411" "i30412")) #(ribcage (emit quasivector quasilist* @@ -24779,29 +24813,29 @@ (top) (top) (top)) - ("i28310" - "i28308" - "i28306" - "i28304" - "i28302" - "i28300" - "i28298"))) + ("i30319" + "i30317" + "i30315" + "i30313" + "i30311" + "i30309" + "i30307"))) (hygiene guile)) - #{p 28904}#)) - #{tmp 28900}#) + #{p 30913}#)) + #{tmp 30909}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 28892}#)))))) - #{tmp 28895}#) - (if (null? #{x 28892}#) - #{y 28893}# - (let ((#{tmp 28912}# (list #{x 28892}# #{y 28893}#))) - (let ((#{tmp 28913}# - ($sc-dispatch #{tmp 28912}# '(each-any any)))) - (if #{tmp 28913}# + #{x 30901}#)))))) + #{tmp 30904}#) + (if (null? #{x 30901}#) + #{y 30902}# + (let ((#{tmp 30921}# (list #{x 30901}# #{y 30902}#))) + (let ((#{tmp 30922}# + ($sc-dispatch #{tmp 30921}# '(each-any any)))) + (if #{tmp 30922}# (@apply - (lambda (#{p 28915}# #{y 28916}#) + (lambda (#{p 30924}# #{y 30925}#) (cons '#(syntax-object "append" ((top) @@ -24809,13 +24843,13 @@ #(ribcage #(p y) #((top) (top)) - #("i28425" "i28426")) - #(ribcage #(_) #((top)) #("i28417")) + #("i30434" "i30435")) + #(ribcage #(_) #((top)) #("i30426")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i28402" "i28403")) + #("i30411" "i30412")) #(ribcage (emit quasivector quasilist* @@ -24830,44 +24864,44 @@ (top) (top) (top)) - ("i28310" - "i28308" - "i28306" - "i28304" - "i28302" - "i28300" - "i28298"))) + ("i30319" + "i30317" + "i30315" + "i30313" + "i30311" + "i30309" + "i30307"))) (hygiene guile)) - (append #{p 28915}# (list #{y 28916}#)))) - #{tmp 28913}#) + (append #{p 30924}# (list #{y 30925}#)))) + #{tmp 30922}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 28912}#))))))))) - (#{quasilist* 28572}# - (lambda (#{x 28920}# #{y 28921}#) + #{tmp 30921}#))))))))) + (#{quasilist* 30581}# + (lambda (#{x 30929}# #{y 30930}#) (letrec* - ((#{f 28922}# - (lambda (#{x 29011}#) - (if (null? #{x 29011}#) - #{y 28921}# - (#{quasicons 28570}# - (car #{x 29011}#) - (#{f 28922}# (cdr #{x 29011}#))))))) - (#{f 28922}# #{x 28920}#)))) - (#{emit 28574}# - (lambda (#{x 29014}#) - (let ((#{tmp 29016}# - ($sc-dispatch #{x 29014}# '(#(atom "quote") any)))) - (if #{tmp 29016}# + ((#{f 30931}# + (lambda (#{x 31020}#) + (if (null? #{x 31020}#) + #{y 30930}# + (#{quasicons 30579}# + (car #{x 31020}#) + (#{f 30931}# (cdr #{x 31020}#))))))) + (#{f 30931}# #{x 30929}#)))) + (#{emit 30583}# + (lambda (#{x 31023}#) + (let ((#{tmp 31025}# + ($sc-dispatch #{x 31023}# '(#(atom "quote") any)))) + (if #{tmp 31025}# (@apply - (lambda (#{x 29020}#) + (lambda (#{x 31029}#) (list '#(syntax-object quote ((top) - #(ribcage #(x) #((top)) #("i28492")) + #(ribcage #(x) #((top)) #("i30501")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28489")) + #(ribcage #(x) #((top)) #("i30498")) #(ribcage (emit quasivector quasilist* @@ -24876,40 +24910,40 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i28310" - "i28308" - "i28306" - "i28304" - "i28302" - "i28300" - "i28298"))) + ("i30319" + "i30317" + "i30315" + "i30313" + "i30311" + "i30309" + "i30307"))) (hygiene guile)) - #{x 29020}#)) - #{tmp 29016}#) - (let ((#{tmp 29021}# + #{x 31029}#)) + #{tmp 31025}#) + (let ((#{tmp 31030}# ($sc-dispatch - #{x 29014}# + #{x 31023}# '(#(atom "list") . each-any)))) - (if #{tmp 29021}# + (if #{tmp 31030}# (@apply - (lambda (#{x 29025}#) - (let ((#{tmp 29026}# (map #{emit 28574}# #{x 29025}#))) - (let ((#{tmp 29027}# - ($sc-dispatch #{tmp 29026}# 'each-any))) - (if #{tmp 29027}# + (lambda (#{x 31034}#) + (let ((#{tmp 31035}# (map #{emit 30583}# #{x 31034}#))) + (let ((#{tmp 31036}# + ($sc-dispatch #{tmp 31035}# 'each-any))) + (if #{tmp 31036}# (@apply - (lambda (#{ g28497 29029}#) + (lambda (#{ g30506 31038}#) (cons '#(syntax-object list ((top) #(ribcage () () ()) #(ribcage - #(#{ g28497}#) - #((m28498 top)) - #("i28502")) - #(ribcage #(x) #((top)) #("i28495")) + #(#{ g30506}#) + #((m30507 top)) + #("i30511")) + #(ribcage #(x) #((top)) #("i30504")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28489")) + #(ribcage #(x) #((top)) #("i30498")) #(ribcage (emit quasivector quasilist* @@ -24924,70 +24958,70 @@ (top) (top) (top)) - ("i28310" - "i28308" - "i28306" - "i28304" - "i28302" - "i28300" - "i28298"))) + ("i30319" + "i30317" + "i30315" + "i30313" + "i30311" + "i30309" + "i30307"))) (hygiene guile)) - #{ g28497 29029}#)) - #{tmp 29027}#) + #{ g30506 31038}#)) + #{tmp 31036}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 29026}#))))) - #{tmp 29021}#) - (let ((#{tmp 29030}# + #{tmp 31035}#))))) + #{tmp 31030}#) + (let ((#{tmp 31039}# ($sc-dispatch - #{x 29014}# + #{x 31023}# '(#(atom "list*") . #(each+ any (any) ()))))) - (if #{tmp 29030}# + (if #{tmp 31039}# (@apply - (lambda (#{x 29034}# #{y 29035}#) + (lambda (#{x 31043}# #{y 31044}#) (letrec* - ((#{f 29036}# - (lambda (#{x* 29039}#) - (if (null? #{x* 29039}#) - (#{emit 28574}# #{y 29035}#) - (let ((#{tmp 29040}# - (list (#{emit 28574}# - (car #{x* 29039}#)) - (#{f 29036}# - (cdr #{x* 29039}#))))) - (let ((#{tmp 29041}# + ((#{f 31045}# + (lambda (#{x* 31048}#) + (if (null? #{x* 31048}#) + (#{emit 30583}# #{y 31044}#) + (let ((#{tmp 31049}# + (list (#{emit 30583}# + (car #{x* 31048}#)) + (#{f 31045}# + (cdr #{x* 31048}#))))) + (let ((#{tmp 31050}# ($sc-dispatch - #{tmp 29040}# + #{tmp 31049}# '(any any)))) - (if #{tmp 29041}# + (if #{tmp 31050}# (@apply - (lambda (#{ g28517 29043}# - #{ g28516 29044}#) + (lambda (#{ g30526 31052}# + #{ g30525 31053}#) (list '#(syntax-object cons ((top) #(ribcage () () ()) #(ribcage - #(#{ g28517}# - #{ g28516}#) - #((m28518 top) - (m28518 top)) - #("i28522" "i28523")) + #(#{ g30526}# + #{ g30525}#) + #((m30527 top) + (m30527 top)) + #("i30531" "i30532")) #(ribcage () () ()) #(ribcage #(f x*) #((top) (top)) - #("i28511" "i28512")) + #("i30520" "i30521")) #(ribcage #(x y) #((top) (top)) - #("i28507" "i28508")) + #("i30516" "i30517")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i28489")) + #("i30498")) #(ribcage (emit quasivector quasilist* @@ -25002,56 +25036,56 @@ (top) (top) (top)) - ("i28310" - "i28308" - "i28306" - "i28304" - "i28302" - "i28300" - "i28298"))) + ("i30319" + "i30317" + "i30315" + "i30313" + "i30311" + "i30309" + "i30307"))) (hygiene guile)) - #{ g28517 29043}# - #{ g28516 29044}#)) - #{tmp 29041}#) + #{ g30526 31052}# + #{ g30525 31053}#)) + #{tmp 31050}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 29040}#)))))))) - (#{f 29036}# #{x 29034}#))) - #{tmp 29030}#) - (let ((#{tmp 29045}# + #{tmp 31049}#)))))))) + (#{f 31045}# #{x 31043}#))) + #{tmp 31039}#) + (let ((#{tmp 31054}# ($sc-dispatch - #{x 29014}# + #{x 31023}# '(#(atom "append") . each-any)))) - (if #{tmp 29045}# + (if #{tmp 31054}# (@apply - (lambda (#{x 29049}#) - (let ((#{tmp 29050}# - (map #{emit 28574}# #{x 29049}#))) - (let ((#{tmp 29051}# + (lambda (#{x 31058}#) + (let ((#{tmp 31059}# + (map #{emit 30583}# #{x 31058}#))) + (let ((#{tmp 31060}# ($sc-dispatch - #{tmp 29050}# + #{tmp 31059}# 'each-any))) - (if #{tmp 29051}# + (if #{tmp 31060}# (@apply - (lambda (#{ g28529 29053}#) + (lambda (#{ g30538 31062}#) (cons '#(syntax-object append ((top) #(ribcage () () ()) #(ribcage - #(#{ g28529}#) - #((m28530 top)) - #("i28534")) + #(#{ g30538}#) + #((m30539 top)) + #("i30543")) #(ribcage #(x) #((top)) - #("i28527")) + #("i30536")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i28489")) + #("i30498")) #(ribcage (emit quasivector quasilist* @@ -25066,54 +25100,54 @@ (top) (top) (top)) - ("i28310" - "i28308" - "i28306" - "i28304" - "i28302" - "i28300" - "i28298"))) + ("i30319" + "i30317" + "i30315" + "i30313" + "i30311" + "i30309" + "i30307"))) (hygiene guile)) - #{ g28529 29053}#)) - #{tmp 29051}#) + #{ g30538 31062}#)) + #{tmp 31060}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 29050}#))))) - #{tmp 29045}#) - (let ((#{tmp 29054}# + #{tmp 31059}#))))) + #{tmp 31054}#) + (let ((#{tmp 31063}# ($sc-dispatch - #{x 29014}# + #{x 31023}# '(#(atom "vector") . each-any)))) - (if #{tmp 29054}# + (if #{tmp 31063}# (@apply - (lambda (#{x 29058}#) - (let ((#{tmp 29059}# - (map #{emit 28574}# #{x 29058}#))) - (let ((#{tmp 29060}# + (lambda (#{x 31067}#) + (let ((#{tmp 31068}# + (map #{emit 30583}# #{x 31067}#))) + (let ((#{tmp 31069}# ($sc-dispatch - #{tmp 29059}# + #{tmp 31068}# 'each-any))) - (if #{tmp 29060}# + (if #{tmp 31069}# (@apply - (lambda (#{ g28541 29062}#) + (lambda (#{ g30550 31071}#) (cons '#(syntax-object vector ((top) #(ribcage () () ()) #(ribcage - #(#{ g28541}#) - #((m28542 top)) - #("i28546")) + #(#{ g30550}#) + #((m30551 top)) + #("i30555")) #(ribcage #(x) #((top)) - #("i28539")) + #("i30548")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i28489")) + #("i30498")) #(ribcage (emit quasivector quasilist* @@ -25128,47 +25162,47 @@ (top) (top) (top)) - ("i28310" - "i28308" - "i28306" - "i28304" - "i28302" - "i28300" - "i28298"))) + ("i30319" + "i30317" + "i30315" + "i30313" + "i30311" + "i30309" + "i30307"))) (hygiene guile)) - #{ g28541 29062}#)) - #{tmp 29060}#) + #{ g30550 31071}#)) + #{tmp 31069}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 29059}#))))) - #{tmp 29054}#) - (let ((#{tmp 29063}# + #{tmp 31068}#))))) + #{tmp 31063}#) + (let ((#{tmp 31072}# ($sc-dispatch - #{x 29014}# + #{x 31023}# '(#(atom "list->vector") any)))) - (if #{tmp 29063}# + (if #{tmp 31072}# (@apply - (lambda (#{x 29067}#) - (let ((#{tmp 29068}# - (#{emit 28574}# #{x 29067}#))) + (lambda (#{x 31076}#) + (let ((#{tmp 31077}# + (#{emit 30583}# #{x 31076}#))) (list '#(syntax-object list->vector ((top) #(ribcage () () ()) #(ribcage - #(#{ g28553}#) - #((m28554 top)) - #("i28557")) + #(#{ g30562}#) + #((m30563 top)) + #("i30566")) #(ribcage #(x) #((top)) - #("i28551")) + #("i30560")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i28489")) + #("i30498")) #(ribcage (emit quasivector quasilist* @@ -25183,188 +25217,188 @@ (top) (top) (top)) - ("i28310" - "i28308" - "i28306" - "i28304" - "i28302" - "i28300" - "i28298"))) + ("i30319" + "i30317" + "i30315" + "i30313" + "i30311" + "i30309" + "i30307"))) (hygiene guile)) - #{tmp 29068}#))) - #{tmp 29063}#) - (let ((#{tmp 29071}# + #{tmp 31077}#))) + #{tmp 31072}#) + (let ((#{tmp 31080}# ($sc-dispatch - #{x 29014}# + #{x 31023}# '(#(atom "value") any)))) - (if #{tmp 29071}# + (if #{tmp 31080}# (@apply - (lambda (#{x 29075}#) #{x 29075}#) - #{tmp 29071}#) + (lambda (#{x 31084}#) #{x 31084}#) + #{tmp 31080}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 29014}#)))))))))))))))))) - (lambda (#{x 28575}#) - (let ((#{tmp 28577}# - ($sc-dispatch #{x 28575}# '(_ any)))) - (if #{tmp 28577}# + #{x 31023}#)))))))))))))))))) + (lambda (#{x 30584}#) + (let ((#{tmp 30586}# + ($sc-dispatch #{x 30584}# '(_ any)))) + (if #{tmp 30586}# (@apply - (lambda (#{e 28581}#) - (#{emit 28574}# (#{quasi 28568}# #{e 28581}# 0))) - #{tmp 28577}#) + (lambda (#{e 30590}#) + (#{emit 30583}# (#{quasi 30577}# #{e 30590}# 0))) + #{tmp 30586}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 28575}#))))))) + #{x 30584}#))))))) (define include (make-syntax-transformer 'include 'macro - (lambda (#{x 29130}#) + (lambda (#{x 31139}#) (letrec* - ((#{read-file 29131}# - (lambda (#{fn 29240}# #{k 29241}#) - (let ((#{p 29242}# (open-input-file #{fn 29240}#))) + ((#{read-file 31140}# + (lambda (#{fn 31249}# #{k 31250}#) + (let ((#{p 31251}# (open-input-file #{fn 31249}#))) (letrec* - ((#{f 29243}# - (lambda (#{x 29297}# #{result 29298}#) - (if (eof-object? #{x 29297}#) + ((#{f 31252}# + (lambda (#{x 31306}# #{result 31307}#) + (if (eof-object? #{x 31306}#) (begin - (close-input-port #{p 29242}#) - (reverse #{result 29298}#)) - (#{f 29243}# - (read #{p 29242}#) - (cons (datum->syntax #{k 29241}# #{x 29297}#) - #{result 29298}#)))))) - (#{f 29243}# (read #{p 29242}#) '())))))) - (let ((#{tmp 29133}# - ($sc-dispatch #{x 29130}# '(any any)))) - (if #{tmp 29133}# + (close-input-port #{p 31251}#) + (reverse #{result 31307}#)) + (#{f 31252}# + (read #{p 31251}#) + (cons (datum->syntax #{k 31250}# #{x 31306}#) + #{result 31307}#)))))) + (#{f 31252}# (read #{p 31251}#) '())))))) + (let ((#{tmp 31142}# + ($sc-dispatch #{x 31139}# '(any any)))) + (if #{tmp 31142}# (@apply - (lambda (#{k 29137}# #{filename 29138}#) - (let ((#{fn 29139}# (syntax->datum #{filename 29138}#))) - (let ((#{tmp 29140}# - (#{read-file 29131}# - #{fn 29139}# - #{filename 29138}#))) - (let ((#{tmp 29141}# - ($sc-dispatch #{tmp 29140}# 'each-any))) - (if #{tmp 29141}# + (lambda (#{k 31146}# #{filename 31147}#) + (let ((#{fn 31148}# (syntax->datum #{filename 31147}#))) + (let ((#{tmp 31149}# + (#{read-file 31140}# + #{fn 31148}# + #{filename 31147}#))) + (let ((#{tmp 31150}# + ($sc-dispatch #{tmp 31149}# 'each-any))) + (if #{tmp 31150}# (@apply - (lambda (#{exp 29159}#) + (lambda (#{exp 31168}#) (cons '#(syntax-object begin ((top) #(ribcage () () ()) - #(ribcage #(exp) #((top)) #("i29127")) + #(ribcage #(exp) #((top)) #("i31136")) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(fn) #((top)) #("i29122")) + #(ribcage #(fn) #((top)) #("i31131")) #(ribcage #(k filename) #((top) (top)) - #("i29118" "i29119")) - #(ribcage (read-file) ((top)) ("i29102")) - #(ribcage #(x) #((top)) #("i29101"))) + #("i31127" "i31128")) + #(ribcage (read-file) ((top)) ("i31111")) + #(ribcage #(x) #((top)) #("i31110"))) (hygiene guile)) - #{exp 29159}#)) - #{tmp 29141}#) + #{exp 31168}#)) + #{tmp 31150}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 29140}#)))))) - #{tmp 29133}#) + #{tmp 31149}#)))))) + #{tmp 31142}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 29130}#))))))) + #{x 31139}#))))))) (define include-from-path (make-syntax-transformer 'include-from-path 'macro - (lambda (#{x 29317}#) - (let ((#{tmp 29319}# - ($sc-dispatch #{x 29317}# '(any any)))) - (if #{tmp 29319}# + (lambda (#{x 31326}#) + (let ((#{tmp 31328}# + ($sc-dispatch #{x 31326}# '(any any)))) + (if #{tmp 31328}# (@apply - (lambda (#{k 29323}# #{filename 29324}#) - (let ((#{fn 29325}# (syntax->datum #{filename 29324}#))) - (let ((#{tmp 29326}# + (lambda (#{k 31332}# #{filename 31333}#) + (let ((#{fn 31334}# (syntax->datum #{filename 31333}#))) + (let ((#{tmp 31335}# (datum->syntax - #{filename 29324}# - (let ((#{t 29329}# (%search-load-path #{fn 29325}#))) - (if #{t 29329}# - #{t 29329}# + #{filename 31333}# + (let ((#{t 31338}# (%search-load-path #{fn 31334}#))) + (if #{t 31338}# + #{t 31338}# (syntax-violation 'include-from-path "file not found in path" - #{x 29317}# - #{filename 29324}#)))))) + #{x 31326}# + #{filename 31333}#)))))) (list '#(syntax-object include ((top) #(ribcage () () ()) - #(ribcage #(fn) #((top)) #("i29311")) + #(ribcage #(fn) #((top)) #("i31320")) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(fn) #((top)) #("i29307")) + #(ribcage #(fn) #((top)) #("i31316")) #(ribcage #(k filename) #((top) (top)) - #("i29303" "i29304")) + #("i31312" "i31313")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29300"))) + #(ribcage #(x) #((top)) #("i31309"))) (hygiene guile)) - #{tmp 29326}#)))) - #{tmp 29319}#) + #{tmp 31335}#)))) + #{tmp 31328}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 29317}#)))))) + #{x 31326}#)))))) (define unquote (make-syntax-transformer 'unquote 'macro - (lambda (#{x 29338}#) + (lambda (#{x 31347}#) (syntax-violation 'unquote "expression not valid outside of quasiquote" - #{x 29338}#)))) + #{x 31347}#)))) (define unquote-splicing (make-syntax-transformer 'unquote-splicing 'macro - (lambda (#{x 29341}#) + (lambda (#{x 31350}#) (syntax-violation 'unquote-splicing "expression not valid outside of quasiquote" - #{x 29341}#)))) + #{x 31350}#)))) (define case (make-syntax-transformer 'case 'macro - (lambda (#{x 29397}#) - (let ((#{tmp 29399}# + (lambda (#{x 31406}#) + (let ((#{tmp 31408}# ($sc-dispatch - #{x 29397}# + #{x 31406}# '(_ any any . each-any)))) - (if #{tmp 29399}# + (if #{tmp 31408}# (@apply - (lambda (#{e 29403}# #{m1 29404}# #{m2 29405}#) - (let ((#{tmp 29406}# + (lambda (#{e 31412}# #{m1 31413}# #{m2 31414}#) + (let ((#{tmp 31415}# (letrec* - ((#{f 29448}# - (lambda (#{clause 29451}# #{clauses 29452}#) - (if (null? #{clauses 29452}#) - (let ((#{tmp 29454}# + ((#{f 31457}# + (lambda (#{clause 31460}# #{clauses 31461}#) + (if (null? #{clauses 31461}#) + (let ((#{tmp 31463}# ($sc-dispatch - #{clause 29451}# + #{clause 31460}# '(#(free-id #(syntax-object else @@ -25373,91 +25407,91 @@ #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i29356" - "i29357" - "i29358")) + #("i31365" + "i31366" + "i31367")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i29346" - "i29347" - "i29348")) + #("i31355" + "i31356" + "i31357")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i29343"))) + #("i31352"))) (hygiene guile))) any . each-any)))) - (if #{tmp 29454}# + (if #{tmp 31463}# (@apply - (lambda (#{e1 29458}# #{e2 29459}#) + (lambda (#{e1 31467}# #{e2 31468}#) (cons '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) - #("i29365" "i29366")) + #("i31374" "i31375")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i29356" - "i29357" - "i29358")) + #("i31365" + "i31366" + "i31367")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i29346" - "i29347" - "i29348")) + #("i31355" + "i31356" + "i31357")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i29343"))) + #("i31352"))) (hygiene guile)) - (cons #{e1 29458}# #{e2 29459}#))) - #{tmp 29454}#) - (let ((#{tmp 29460}# + (cons #{e1 31467}# #{e2 31468}#))) + #{tmp 31463}#) + (let ((#{tmp 31469}# ($sc-dispatch - #{clause 29451}# + #{clause 31460}# '(each-any any . each-any)))) - (if #{tmp 29460}# + (if #{tmp 31469}# (@apply - (lambda (#{k 29464}# - #{e1 29465}# - #{e2 29466}#) + (lambda (#{k 31473}# + #{e1 31474}# + #{e2 31475}#) (list '#(syntax-object if ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) - #("i29371" - "i29372" - "i29373")) + #("i31380" + "i31381" + "i31382")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i29356" - "i29357" - "i29358")) + #("i31365" + "i31366" + "i31367")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i29346" - "i29347" - "i29348")) + #("i31355" + "i31356" + "i31357")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i29343"))) + #("i31352"))) (hygiene guile)) (list '#(syntax-object memv @@ -25467,9 +25501,9 @@ #((top) (top) (top)) - #("i29371" - "i29372" - "i29373")) + #("i31380" + "i31381" + "i31382")) #(ribcage () () ()) #(ribcage #(f @@ -25478,22 +25512,22 @@ #((top) (top) (top)) - #("i29356" - "i29357" - "i29358")) + #("i31365" + "i31366" + "i31367")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i29346" - "i29347" - "i29348")) + #("i31355" + "i31356" + "i31357")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i29343"))) + #("i31352"))) (hygiene guile)) '#(syntax-object t @@ -25503,9 +25537,9 @@ #((top) (top) (top)) - #("i29371" - "i29372" - "i29373")) + #("i31380" + "i31381" + "i31382")) #(ribcage () () ()) #(ribcage #(f @@ -25514,22 +25548,22 @@ #((top) (top) (top)) - #("i29356" - "i29357" - "i29358")) + #("i31365" + "i31366" + "i31367")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i29346" - "i29347" - "i29348")) + #("i31355" + "i31356" + "i31357")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i29343"))) + #("i31352"))) (hygiene guile)) (list '#(syntax-object quote @@ -25539,9 +25573,9 @@ #((top) (top) (top)) - #("i29371" - "i29372" - "i29373")) + #("i31380" + "i31381" + "i31382")) #(ribcage () () @@ -25553,17 +25587,17 @@ #((top) (top) (top)) - #("i29356" - "i29357" - "i29358")) + #("i31365" + "i31366" + "i31367")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i29346" - "i29347" - "i29348")) + #("i31355" + "i31356" + "i31357")) #(ribcage () () @@ -25571,10 +25605,10 @@ #(ribcage #(x) #((top)) - #("i29343"))) + #("i31352"))) (hygiene guile)) - #{k 29464}#)) + #{k 31473}#)) (cons '#(syntax-object begin ((top) @@ -25583,9 +25617,9 @@ #((top) (top) (top)) - #("i29371" - "i29372" - "i29373")) + #("i31380" + "i31381" + "i31382")) #(ribcage () () ()) #(ribcage #(f @@ -25594,76 +25628,76 @@ #((top) (top) (top)) - #("i29356" - "i29357" - "i29358")) + #("i31365" + "i31366" + "i31367")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i29346" - "i29347" - "i29348")) + #("i31355" + "i31356" + "i31357")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i29343"))) + #("i31352"))) (hygiene guile)) - (cons #{e1 29465}# - #{e2 29466}#)))) - #{tmp 29460}#) + (cons #{e1 31474}# + #{e2 31475}#)))) + #{tmp 31469}#) (syntax-violation 'case "bad clause" - #{x 29397}# - #{clause 29451}#))))) - (let ((#{tmp 29474}# - (#{f 29448}# - (car #{clauses 29452}#) - (cdr #{clauses 29452}#)))) - (let ((#{tmp 29477}# + #{x 31406}# + #{clause 31460}#))))) + (let ((#{tmp 31483}# + (#{f 31457}# + (car #{clauses 31461}#) + (cdr #{clauses 31461}#)))) + (let ((#{tmp 31486}# ($sc-dispatch - #{clause 29451}# + #{clause 31460}# '(each-any any . each-any)))) - (if #{tmp 29477}# + (if #{tmp 31486}# (@apply - (lambda (#{k 29481}# - #{e1 29482}# - #{e2 29483}#) + (lambda (#{k 31490}# + #{e1 31491}# + #{e2 31492}#) (list '#(syntax-object if ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) - #("i29387" - "i29388" - "i29389")) + #("i31396" + "i31397" + "i31398")) #(ribcage () () ()) #(ribcage #(rest) #((top)) - #("i29383")) + #("i31392")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i29356" - "i29357" - "i29358")) + #("i31365" + "i31366" + "i31367")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i29346" - "i29347" - "i29348")) + #("i31355" + "i31356" + "i31357")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i29343"))) + #("i31352"))) (hygiene guile)) (list '#(syntax-object memv @@ -25671,32 +25705,32 @@ #(ribcage #(k e1 e2) #((top) (top) (top)) - #("i29387" - "i29388" - "i29389")) + #("i31396" + "i31397" + "i31398")) #(ribcage () () ()) #(ribcage #(rest) #((top)) - #("i29383")) + #("i31392")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i29356" - "i29357" - "i29358")) + #("i31365" + "i31366" + "i31367")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i29346" - "i29347" - "i29348")) + #("i31355" + "i31356" + "i31357")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i29343"))) + #("i31352"))) (hygiene guile)) '#(syntax-object t @@ -25704,32 +25738,32 @@ #(ribcage #(k e1 e2) #((top) (top) (top)) - #("i29387" - "i29388" - "i29389")) + #("i31396" + "i31397" + "i31398")) #(ribcage () () ()) #(ribcage #(rest) #((top)) - #("i29383")) + #("i31392")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i29356" - "i29357" - "i29358")) + #("i31365" + "i31366" + "i31367")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i29346" - "i29347" - "i29348")) + #("i31355" + "i31356" + "i31357")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i29343"))) + #("i31352"))) (hygiene guile)) (list '#(syntax-object quote @@ -25739,9 +25773,9 @@ #((top) (top) (top)) - #("i29387" - "i29388" - "i29389")) + #("i31396" + "i31397" + "i31398")) #(ribcage () () @@ -25749,7 +25783,7 @@ #(ribcage #(rest) #((top)) - #("i29383")) + #("i31392")) #(ribcage () () @@ -25761,17 +25795,17 @@ #((top) (top) (top)) - #("i29356" - "i29357" - "i29358")) + #("i31365" + "i31366" + "i31367")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i29346" - "i29347" - "i29348")) + #("i31355" + "i31356" + "i31357")) #(ribcage () () @@ -25779,232 +25813,232 @@ #(ribcage #(x) #((top)) - #("i29343"))) + #("i31352"))) (hygiene guile)) - #{k 29481}#)) + #{k 31490}#)) (cons '#(syntax-object begin ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) - #("i29387" - "i29388" - "i29389")) + #("i31396" + "i31397" + "i31398")) #(ribcage () () ()) #(ribcage #(rest) #((top)) - #("i29383")) + #("i31392")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i29356" - "i29357" - "i29358")) + #("i31365" + "i31366" + "i31367")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i29346" - "i29347" - "i29348")) + #("i31355" + "i31356" + "i31357")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i29343"))) + #("i31352"))) (hygiene guile)) - (cons #{e1 29482}# - #{e2 29483}#)) - #{tmp 29474}#)) - #{tmp 29477}#) + (cons #{e1 31491}# + #{e2 31492}#)) + #{tmp 31483}#)) + #{tmp 31486}#) (syntax-violation 'case "bad clause" - #{x 29397}# - #{clause 29451}#)))))))) - (#{f 29448}# #{m1 29404}# #{m2 29405}#)))) - (let ((#{body 29407}# #{tmp 29406}#)) + #{x 31406}# + #{clause 31460}#)))))))) + (#{f 31457}# #{m1 31413}# #{m2 31414}#)))) + (let ((#{body 31416}# #{tmp 31415}#)) (list '#(syntax-object let ((top) #(ribcage () () ()) - #(ribcage #(body) #((top)) #("i29354")) + #(ribcage #(body) #((top)) #("i31363")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i29346" "i29347" "i29348")) + #("i31355" "i31356" "i31357")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29343"))) + #(ribcage #(x) #((top)) #("i31352"))) (hygiene guile)) (list (list '#(syntax-object t ((top) #(ribcage () () ()) - #(ribcage #(body) #((top)) #("i29354")) + #(ribcage #(body) #((top)) #("i31363")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i29346" "i29347" "i29348")) + #("i31355" "i31356" "i31357")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29343"))) + #(ribcage #(x) #((top)) #("i31352"))) (hygiene guile)) - #{e 29403}#)) - #{body 29407}#)))) - #{tmp 29399}#) + #{e 31412}#)) + #{body 31416}#)))) + #{tmp 31408}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 29397}#)))))) + #{x 31406}#)))))) (define make-variable-transformer - (lambda (#{proc 29501}#) - (if (procedure? #{proc 29501}#) + (lambda (#{proc 31510}#) + (if (procedure? #{proc 31510}#) (letrec* - ((#{trans 29502}# - (lambda (#{x 29508}#) - (#{proc 29501}# #{x 29508}#)))) + ((#{trans 31511}# + (lambda (#{x 31517}#) + (#{proc 31510}# #{x 31517}#)))) (begin (set-procedure-property! - #{trans 29502}# + #{trans 31511}# 'variable-transformer #t) - #{trans 29502}#)) + #{trans 31511}#)) (error "variable transformer not a procedure" - #{proc 29501}#)))) + #{proc 31510}#)))) (define identifier-syntax (make-syntax-transformer 'identifier-syntax 'macro - (lambda (#{x 29540}#) - (let ((#{tmp 29542}# - ($sc-dispatch #{x 29540}# '(_ any)))) - (if #{tmp 29542}# + (lambda (#{x 31549}#) + (let ((#{tmp 31551}# + ($sc-dispatch #{x 31549}# '(_ any)))) + (if #{tmp 31551}# (@apply - (lambda (#{e 29546}#) + (lambda (#{e 31555}#) (list '#(syntax-object lambda ((top) - #(ribcage #(e) #((top)) #("i29515")) + #(ribcage #(e) #((top)) #("i31524")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29512"))) + #(ribcage #(x) #((top)) #("i31521"))) (hygiene guile)) '(#(syntax-object x ((top) - #(ribcage #(e) #((top)) #("i29515")) + #(ribcage #(e) #((top)) #("i31524")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29512"))) + #(ribcage #(x) #((top)) #("i31521"))) (hygiene guile))) '#((#(syntax-object macro-type ((top) - #(ribcage #(e) #((top)) #("i29515")) + #(ribcage #(e) #((top)) #("i31524")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29512"))) + #(ribcage #(x) #((top)) #("i31521"))) (hygiene guile)) . #(syntax-object identifier-syntax ((top) - #(ribcage #(e) #((top)) #("i29515")) + #(ribcage #(e) #((top)) #("i31524")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29512"))) + #(ribcage #(x) #((top)) #("i31521"))) (hygiene guile)))) (list '#(syntax-object syntax-case ((top) - #(ribcage #(e) #((top)) #("i29515")) + #(ribcage #(e) #((top)) #("i31524")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29512"))) + #(ribcage #(x) #((top)) #("i31521"))) (hygiene guile)) '#(syntax-object x ((top) - #(ribcage #(e) #((top)) #("i29515")) + #(ribcage #(e) #((top)) #("i31524")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29512"))) + #(ribcage #(x) #((top)) #("i31521"))) (hygiene guile)) '() (list '#(syntax-object id ((top) - #(ribcage #(e) #((top)) #("i29515")) + #(ribcage #(e) #((top)) #("i31524")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29512"))) + #(ribcage #(x) #((top)) #("i31521"))) (hygiene guile)) '(#(syntax-object identifier? ((top) - #(ribcage #(e) #((top)) #("i29515")) + #(ribcage #(e) #((top)) #("i31524")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29512"))) + #(ribcage #(x) #((top)) #("i31521"))) (hygiene guile)) (#(syntax-object syntax ((top) - #(ribcage #(e) #((top)) #("i29515")) + #(ribcage #(e) #((top)) #("i31524")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29512"))) + #(ribcage #(x) #((top)) #("i31521"))) (hygiene guile)) #(syntax-object id ((top) - #(ribcage #(e) #((top)) #("i29515")) + #(ribcage #(e) #((top)) #("i31524")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29512"))) + #(ribcage #(x) #((top)) #("i31521"))) (hygiene guile)))) (list '#(syntax-object syntax ((top) - #(ribcage #(e) #((top)) #("i29515")) + #(ribcage #(e) #((top)) #("i31524")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29512"))) + #(ribcage #(x) #((top)) #("i31521"))) (hygiene guile)) - #{e 29546}#)) + #{e 31555}#)) (list '(#(syntax-object _ ((top) - #(ribcage #(e) #((top)) #("i29515")) + #(ribcage #(e) #((top)) #("i31524")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29512"))) + #(ribcage #(x) #((top)) #("i31521"))) (hygiene guile)) #(syntax-object x ((top) - #(ribcage #(e) #((top)) #("i29515")) + #(ribcage #(e) #((top)) #("i31524")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29512"))) + #(ribcage #(x) #((top)) #("i31521"))) (hygiene guile)) #(syntax-object ... ((top) - #(ribcage #(e) #((top)) #("i29515")) + #(ribcage #(e) #((top)) #("i31524")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29512"))) + #(ribcage #(x) #((top)) #("i31521"))) (hygiene guile))) (list '#(syntax-object syntax ((top) - #(ribcage #(e) #((top)) #("i29515")) + #(ribcage #(e) #((top)) #("i31524")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29512"))) + #(ribcage #(x) #((top)) #("i31521"))) (hygiene guile)) - (cons #{e 29546}# + (cons #{e 31555}# '(#(syntax-object x ((top) #(ribcage #(e) #((top)) - #("i29515")) + #("i31524")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i29512"))) + #("i31521"))) (hygiene guile)) #(syntax-object ... @@ -26012,55 +26046,55 @@ #(ribcage #(e) #((top)) - #("i29515")) + #("i31524")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i29512"))) + #("i31521"))) (hygiene guile))))))))) - #{tmp 29542}#) - (let ((#{tmp 29547}# + #{tmp 31551}#) + (let ((#{tmp 31556}# ($sc-dispatch - #{x 29540}# + #{x 31549}# '(_ (any any) ((#(free-id #(syntax-object set! ((top) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29512"))) + #(ribcage #(x) #((top)) #("i31521"))) (hygiene guile))) any any) any))))) - (if (if #{tmp 29547}# + (if (if #{tmp 31556}# (@apply - (lambda (#{id 29551}# - #{exp1 29552}# - #{var 29553}# - #{val 29554}# - #{exp2 29555}#) - (if (identifier? #{id 29551}#) - (identifier? #{var 29553}#) + (lambda (#{id 31560}# + #{exp1 31561}# + #{var 31562}# + #{val 31563}# + #{exp2 31564}#) + (if (identifier? #{id 31560}#) + (identifier? #{var 31562}#) #f)) - #{tmp 29547}#) + #{tmp 31556}#) #f) (@apply - (lambda (#{id 29556}# - #{exp1 29557}# - #{var 29558}# - #{val 29559}# - #{exp2 29560}#) + (lambda (#{id 31565}# + #{exp1 31566}# + #{var 31567}# + #{val 31568}# + #{exp2 31569}#) (list '#(syntax-object make-variable-transformer ((top) #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i29530" "i29531" "i29532" "i29533" "i29534")) + #("i31539" "i31540" "i31541" "i31542" "i31543")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29512"))) + #(ribcage #(x) #((top)) #("i31521"))) (hygiene guile)) (list '#(syntax-object lambda @@ -26068,13 +26102,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i29530" - "i29531" - "i29532" - "i29533" - "i29534")) + #("i31539" + "i31540" + "i31541" + "i31542" + "i31543")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29512"))) + #(ribcage #(x) #((top)) #("i31521"))) (hygiene guile)) '(#(syntax-object x @@ -26082,13 +26116,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i29530" - "i29531" - "i29532" - "i29533" - "i29534")) + #("i31539" + "i31540" + "i31541" + "i31542" + "i31543")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29512"))) + #(ribcage #(x) #((top)) #("i31521"))) (hygiene guile))) '#((#(syntax-object macro-type @@ -26096,13 +26130,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i29530" - "i29531" - "i29532" - "i29533" - "i29534")) + #("i31539" + "i31540" + "i31541" + "i31542" + "i31543")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29512"))) + #(ribcage #(x) #((top)) #("i31521"))) (hygiene guile)) . #(syntax-object @@ -26111,13 +26145,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i29530" - "i29531" - "i29532" - "i29533" - "i29534")) + #("i31539" + "i31540" + "i31541" + "i31542" + "i31543")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29512"))) + #(ribcage #(x) #((top)) #("i31521"))) (hygiene guile)))) (list '#(syntax-object syntax-case @@ -26125,13 +26159,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i29530" - "i29531" - "i29532" - "i29533" - "i29534")) + #("i31539" + "i31540" + "i31541" + "i31542" + "i31543")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29512"))) + #(ribcage #(x) #((top)) #("i31521"))) (hygiene guile)) '#(syntax-object x @@ -26139,13 +26173,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i29530" - "i29531" - "i29532" - "i29533" - "i29534")) + #("i31539" + "i31540" + "i31541" + "i31542" + "i31543")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29512"))) + #(ribcage #(x) #((top)) #("i31521"))) (hygiene guile)) '(#(syntax-object set! @@ -26153,13 +26187,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i29530" - "i29531" - "i29532" - "i29533" - "i29534")) + #("i31539" + "i31540" + "i31541" + "i31542" + "i31543")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29512"))) + #(ribcage #(x) #((top)) #("i31521"))) (hygiene guile))) (list (list '#(syntax-object set! @@ -26171,19 +26205,19 @@ (top) (top) (top)) - #("i29530" - "i29531" - "i29532" - "i29533" - "i29534")) + #("i31539" + "i31540" + "i31541" + "i31542" + "i31543")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i29512"))) + #("i31521"))) (hygiene guile)) - #{var 29558}# - #{val 29559}#) + #{var 31567}# + #{val 31568}#) (list '#(syntax-object syntax ((top) @@ -26194,19 +26228,19 @@ (top) (top) (top)) - #("i29530" - "i29531" - "i29532" - "i29533" - "i29534")) + #("i31539" + "i31540" + "i31541" + "i31542" + "i31543")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i29512"))) + #("i31521"))) (hygiene guile)) - #{exp2 29560}#)) - (list (cons #{id 29556}# + #{exp2 31569}#)) + (list (cons #{id 31565}# '(#(syntax-object x ((top) @@ -26217,16 +26251,16 @@ (top) (top) (top)) - #("i29530" - "i29531" - "i29532" - "i29533" - "i29534")) + #("i31539" + "i31540" + "i31541" + "i31542" + "i31543")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i29512"))) + #("i31521"))) (hygiene guile)) #(syntax-object ... @@ -26238,16 +26272,16 @@ (top) (top) (top)) - #("i29530" - "i29531" - "i29532" - "i29533" - "i29534")) + #("i31539" + "i31540" + "i31541" + "i31542" + "i31543")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i29512"))) + #("i31521"))) (hygiene guile)))) (list '#(syntax-object syntax @@ -26259,18 +26293,18 @@ (top) (top) (top)) - #("i29530" - "i29531" - "i29532" - "i29533" - "i29534")) + #("i31539" + "i31540" + "i31541" + "i31542" + "i31543")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i29512"))) + #("i31521"))) (hygiene guile)) - (cons #{exp1 29557}# + (cons #{exp1 31566}# '(#(syntax-object x ((top) @@ -26285,16 +26319,16 @@ (top) (top) (top)) - #("i29530" - "i29531" - "i29532" - "i29533" - "i29534")) + #("i31539" + "i31540" + "i31541" + "i31542" + "i31543")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i29512"))) + #("i31521"))) (hygiene guile)) #(syntax-object ... @@ -26310,18 +26344,18 @@ (top) (top) (top)) - #("i29530" - "i29531" - "i29532" - "i29533" - "i29534")) + #("i31539" + "i31540" + "i31541" + "i31542" + "i31543")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i29512"))) + #("i31521"))) (hygiene guile)))))) - (list #{id 29556}# + (list #{id 31565}# (list '#(syntax-object identifier? ((top) @@ -26332,16 +26366,16 @@ (top) (top) (top)) - #("i29530" - "i29531" - "i29532" - "i29533" - "i29534")) + #("i31539" + "i31540" + "i31541" + "i31542" + "i31543")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i29512"))) + #("i31521"))) (hygiene guile)) (list '#(syntax-object syntax @@ -26357,18 +26391,18 @@ (top) (top) (top)) - #("i29530" - "i29531" - "i29532" - "i29533" - "i29534")) + #("i31539" + "i31540" + "i31541" + "i31542" + "i31543")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i29512"))) + #("i31521"))) (hygiene guile)) - #{id 29556}#)) + #{id 31565}#)) (list '#(syntax-object syntax ((top) @@ -26379,68 +26413,68 @@ (top) (top) (top)) - #("i29530" - "i29531" - "i29532" - "i29533" - "i29534")) + #("i31539" + "i31540" + "i31541" + "i31542" + "i31543")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i29512"))) + #("i31521"))) (hygiene guile)) - #{exp1 29557}#)))))) - #{tmp 29547}#) + #{exp1 31566}#)))))) + #{tmp 31556}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 29540}#)))))))) + #{x 31549}#)))))))) (define define* (make-syntax-transformer 'define* 'macro - (lambda (#{x 29592}#) - (let ((#{tmp 29594}# + (lambda (#{x 31601}#) + (let ((#{tmp 31603}# ($sc-dispatch - #{x 29592}# + #{x 31601}# '(_ (any . any) any . each-any)))) - (if #{tmp 29594}# + (if #{tmp 31603}# (@apply - (lambda (#{id 29598}# - #{args 29599}# - #{b0 29600}# - #{b1 29601}#) + (lambda (#{id 31607}# + #{args 31608}# + #{b0 31609}# + #{b1 31610}#) (list '#(syntax-object define ((top) #(ribcage #(id args b0 b1) #((top) (top) (top) (top)) - #("i29574" "i29575" "i29576" "i29577")) + #("i31583" "i31584" "i31585" "i31586")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29571"))) + #(ribcage #(x) #((top)) #("i31580"))) (hygiene guile)) - #{id 29598}# + #{id 31607}# (cons '#(syntax-object lambda* ((top) #(ribcage #(id args b0 b1) #((top) (top) (top) (top)) - #("i29574" "i29575" "i29576" "i29577")) + #("i31583" "i31584" "i31585" "i31586")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29571"))) + #(ribcage #(x) #((top)) #("i31580"))) (hygiene guile)) - (cons #{args 29599}# - (cons #{b0 29600}# #{b1 29601}#))))) - #{tmp 29594}#) - (let ((#{tmp 29602}# - ($sc-dispatch #{x 29592}# '(_ any any)))) - (if (if #{tmp 29602}# + (cons #{args 31608}# + (cons #{b0 31609}# #{b1 31610}#))))) + #{tmp 31603}#) + (let ((#{tmp 31611}# + ($sc-dispatch #{x 31601}# '(_ any any)))) + (if (if #{tmp 31611}# (@apply - (lambda (#{id 29606}# #{val 29607}#) + (lambda (#{id 31615}# #{val 31616}#) (identifier? '#(syntax-object x @@ -26448,29 +26482,29 @@ #(ribcage #(id val) #((top) (top)) - #("i29584" "i29585")) + #("i31593" "i31594")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29571"))) + #(ribcage #(x) #((top)) #("i31580"))) (hygiene guile)))) - #{tmp 29602}#) + #{tmp 31611}#) #f) (@apply - (lambda (#{id 29608}# #{val 29609}#) + (lambda (#{id 31617}# #{val 31618}#) (list '#(syntax-object define ((top) #(ribcage #(id val) #((top) (top)) - #("i29588" "i29589")) + #("i31597" "i31598")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29571"))) + #(ribcage #(x) #((top)) #("i31580"))) (hygiene guile)) - #{id 29608}# - #{val 29609}#)) - #{tmp 29602}#) + #{id 31617}# + #{val 31618}#)) + #{tmp 31611}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 29592}#)))))))) + #{x 31601}#)))))))) |