diff options
| -rw-r--r-- | module/ice-9/psyntax-pp.scm | 25315 | ||||
| -rw-r--r-- | module/ice-9/psyntax.scm | 340 |
2 files changed, 6855 insertions, 18800 deletions
diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm index de8320943..fd6398972 100644 --- a/module/ice-9/psyntax-pp.scm +++ b/module/ice-9/psyntax-pp.scm @@ -3,1211 +3,1211 @@ (letrec* ((#{top-level-eval-hook 4273}# - (lambda (#{x 28142}# #{mod 28143}#) - (primitive-eval #{x 28142}#))) + (lambda (#{x 28128}# #{mod 28129}#) + (primitive-eval #{x 28128}#))) (#{maybe-name-value! 4278}# - (lambda (#{name 16638}# #{val 16639}#) - (if (if (struct? #{val 16639}#) - (eq? (struct-vtable #{val 16639}#) + (lambda (#{name 16665}# #{val 16666}#) + (if (if (struct? #{val 16666}#) + (eq? (struct-vtable #{val 16666}#) (vector-ref %expanded-vtables 13)) #f) - (let ((#{meta 16646}# (struct-ref #{val 16639}# 1))) - (if (not (assq 'name #{meta 16646}#)) - (let ((#{v 16651}# - (cons (cons 'name #{name 16638}#) #{meta 16646}#))) - (struct-set! #{val 16639}# 1 #{v 16651}#))))))) + (let ((#{meta 16673}# (struct-ref #{val 16666}# 1))) + (if (not (assq 'name #{meta 16673}#)) + (let ((#{v 16678}# + (cons (cons 'name #{name 16665}#) #{meta 16673}#))) + (struct-set! #{val 16666}# 1 #{v 16678}#))))))) (#{build-application 4280}# - (lambda (#{source 16363}# - #{fun-exp 16364}# - #{arg-exps 16365}#) + (lambda (#{source 16390}# + #{fun-exp 16391}# + #{arg-exps 16392}#) (make-struct/no-tail (vector-ref %expanded-vtables 11) - #{source 16363}# - #{fun-exp 16364}# - #{arg-exps 16365}#))) + #{source 16390}# + #{fun-exp 16391}# + #{arg-exps 16392}#))) (#{build-conditional 4281}# - (lambda (#{source 16371}# - #{test-exp 16372}# - #{then-exp 16373}# - #{else-exp 16374}#) + (lambda (#{source 16398}# + #{test-exp 16399}# + #{then-exp 16400}# + #{else-exp 16401}#) (make-struct/no-tail (vector-ref %expanded-vtables 10) - #{source 16371}# - #{test-exp 16372}# - #{then-exp 16373}# - #{else-exp 16374}#))) + #{source 16398}# + #{test-exp 16399}# + #{then-exp 16400}# + #{else-exp 16401}#))) (#{build-dynlet 4282}# - (lambda (#{source 16381}# - #{fluids 16382}# - #{vals 16383}# - #{body 16384}#) + (lambda (#{source 16408}# + #{fluids 16409}# + #{vals 16410}# + #{body 16411}#) (make-struct/no-tail (vector-ref %expanded-vtables 17) - #{source 16381}# - #{fluids 16382}# - #{vals 16383}# - #{body 16384}#))) + #{source 16408}# + #{fluids 16409}# + #{vals 16410}# + #{body 16411}#))) (#{build-lexical-reference 4283}# - (lambda (#{type 28144}# - #{source 28145}# - #{name 28146}# - #{var 28147}#) + (lambda (#{type 28130}# + #{source 28131}# + #{name 28132}# + #{var 28133}#) (make-struct/no-tail (vector-ref %expanded-vtables 3) - #{source 28145}# - #{name 28146}# - #{var 28147}#))) + #{source 28131}# + #{name 28132}# + #{var 28133}#))) (#{build-lexical-assignment 4284}# - (lambda (#{source 16391}# - #{name 16392}# - #{var 16393}# - #{exp 16394}#) + (lambda (#{source 16418}# + #{name 16419}# + #{var 16420}# + #{exp 16421}#) (begin - (if (if (struct? #{exp 16394}#) - (eq? (struct-vtable #{exp 16394}#) + (if (if (struct? #{exp 16421}#) + (eq? (struct-vtable #{exp 16421}#) (vector-ref %expanded-vtables 13)) #f) - (let ((#{meta 16410}# (struct-ref #{exp 16394}# 1))) - (if (not (assq 'name #{meta 16410}#)) - (let ((#{v 16417}# - (cons (cons 'name #{name 16392}#) #{meta 16410}#))) - (struct-set! #{exp 16394}# 1 #{v 16417}#))))) + (let ((#{meta 16437}# (struct-ref #{exp 16421}# 1))) + (if (not (assq 'name #{meta 16437}#)) + (let ((#{v 16444}# + (cons (cons 'name #{name 16419}#) #{meta 16437}#))) + (struct-set! #{exp 16421}# 1 #{v 16444}#))))) (make-struct/no-tail (vector-ref %expanded-vtables 4) - #{source 16391}# - #{name 16392}# - #{var 16393}# - #{exp 16394}#)))) + #{source 16418}# + #{name 16419}# + #{var 16420}# + #{exp 16421}#)))) (#{analyze-variable 4285}# - (lambda (#{mod 28153}# - #{var 28154}# - #{modref-cont 28155}# - #{bare-cont 28156}#) - (if (not #{mod 28153}#) - (#{bare-cont 28156}# #{var 28154}#) - (let ((#{kind 28157}# (car #{mod 28153}#)) - (#{mod 28158}# (cdr #{mod 28153}#))) - (if (eqv? #{kind 28157}# 'public) - (#{modref-cont 28155}# - #{mod 28158}# - #{var 28154}# + (lambda (#{mod 28139}# + #{var 28140}# + #{modref-cont 28141}# + #{bare-cont 28142}#) + (if (not #{mod 28139}#) + (#{bare-cont 28142}# #{var 28140}#) + (let ((#{kind 28143}# (car #{mod 28139}#)) + (#{mod 28144}# (cdr #{mod 28139}#))) + (if (eqv? #{kind 28143}# 'public) + (#{modref-cont 28141}# + #{mod 28144}# + #{var 28140}# #t) - (if (eqv? #{kind 28157}# 'private) + (if (eqv? #{kind 28143}# 'private) (if (not (equal? - #{mod 28158}# + #{mod 28144}# (module-name (current-module)))) - (#{modref-cont 28155}# - #{mod 28158}# - #{var 28154}# + (#{modref-cont 28141}# + #{mod 28144}# + #{var 28140}# #f) - (#{bare-cont 28156}# #{var 28154}#)) - (if (eqv? #{kind 28157}# 'bare) - (#{bare-cont 28156}# #{var 28154}#) - (if (eqv? #{kind 28157}# 'hygiene) + (#{bare-cont 28142}# #{var 28140}#)) + (if (eqv? #{kind 28143}# 'bare) + (#{bare-cont 28142}# #{var 28140}#) + (if (eqv? #{kind 28143}# 'hygiene) (if (if (not (equal? - #{mod 28158}# + #{mod 28144}# (module-name (current-module)))) (module-variable - (resolve-module #{mod 28158}#) - #{var 28154}#) + (resolve-module #{mod 28144}#) + #{var 28140}#) #f) - (#{modref-cont 28155}# - #{mod 28158}# - #{var 28154}# + (#{modref-cont 28141}# + #{mod 28144}# + #{var 28140}# #f) - (#{bare-cont 28156}# #{var 28154}#)) + (#{bare-cont 28142}# #{var 28140}#)) (syntax-violation #f "bad module kind" - #{var 28154}# - #{mod 28158}#))))))))) + #{var 28140}# + #{mod 28144}#))))))))) (#{build-global-reference 4286}# - (lambda (#{source 28173}# #{var 28174}# #{mod 28175}#) + (lambda (#{source 28159}# #{var 28160}# #{mod 28161}#) (#{analyze-variable 4285}# - #{mod 28175}# - #{var 28174}# - (lambda (#{mod 28178}# #{var 28179}# #{public? 28180}#) + #{mod 28161}# + #{var 28160}# + (lambda (#{mod 28164}# #{var 28165}# #{public? 28166}#) (make-struct/no-tail (vector-ref %expanded-vtables 5) - #{source 28173}# - #{mod 28178}# - #{var 28179}# - #{public? 28180}#)) - (lambda (#{var 28188}#) + #{source 28159}# + #{mod 28164}# + #{var 28165}# + #{public? 28166}#)) + (lambda (#{var 28174}#) (make-struct/no-tail (vector-ref %expanded-vtables 7) - #{source 28173}# - #{var 28188}#))))) + #{source 28159}# + #{var 28174}#))))) (#{build-global-assignment 4287}# - (lambda (#{source 16426}# - #{var 16427}# - #{exp 16428}# - #{mod 16429}#) + (lambda (#{source 16453}# + #{var 16454}# + #{exp 16455}# + #{mod 16456}#) (begin - (if (if (struct? #{exp 16428}#) - (eq? (struct-vtable #{exp 16428}#) + (if (if (struct? #{exp 16455}#) + (eq? (struct-vtable #{exp 16455}#) (vector-ref %expanded-vtables 13)) #f) - (let ((#{meta 16445}# (struct-ref #{exp 16428}# 1))) - (if (not (assq 'name #{meta 16445}#)) - (let ((#{v 16452}# - (cons (cons 'name #{var 16427}#) #{meta 16445}#))) - (struct-set! #{exp 16428}# 1 #{v 16452}#))))) + (let ((#{meta 16472}# (struct-ref #{exp 16455}# 1))) + (if (not (assq 'name #{meta 16472}#)) + (let ((#{v 16479}# + (cons (cons 'name #{var 16454}#) #{meta 16472}#))) + (struct-set! #{exp 16455}# 1 #{v 16479}#))))) (#{analyze-variable 4285}# - #{mod 16429}# - #{var 16427}# - (lambda (#{mod 16457}# #{var 16458}# #{public? 16459}#) + #{mod 16456}# + #{var 16454}# + (lambda (#{mod 16484}# #{var 16485}# #{public? 16486}#) (make-struct/no-tail (vector-ref %expanded-vtables 6) - #{source 16426}# - #{mod 16457}# - #{var 16458}# - #{public? 16459}# - #{exp 16428}#)) - (lambda (#{var 16467}#) + #{source 16453}# + #{mod 16484}# + #{var 16485}# + #{public? 16486}# + #{exp 16455}#)) + (lambda (#{var 16494}#) (make-struct/no-tail (vector-ref %expanded-vtables 8) - #{source 16426}# - #{var 16467}# - #{exp 16428}#)))))) + #{source 16453}# + #{var 16494}# + #{exp 16455}#)))))) (#{build-global-definition 4288}# - (lambda (#{source 28194}# #{var 28195}# #{exp 28196}#) + (lambda (#{source 28180}# #{var 28181}# #{exp 28182}#) (begin - (if (if (struct? #{exp 28196}#) - (eq? (struct-vtable #{exp 28196}#) + (if (if (struct? #{exp 28182}#) + (eq? (struct-vtable #{exp 28182}#) (vector-ref %expanded-vtables 13)) #f) - (let ((#{meta 28212}# (struct-ref #{exp 28196}# 1))) - (if (not (assq 'name #{meta 28212}#)) - (let ((#{v 28219}# - (cons (cons 'name #{var 28195}#) #{meta 28212}#))) - (struct-set! #{exp 28196}# 1 #{v 28219}#))))) + (let ((#{meta 28198}# (struct-ref #{exp 28182}# 1))) + (if (not (assq 'name #{meta 28198}#)) + (let ((#{v 28205}# + (cons (cons 'name #{var 28181}#) #{meta 28198}#))) + (struct-set! #{exp 28182}# 1 #{v 28205}#))))) (make-struct/no-tail (vector-ref %expanded-vtables 9) - #{source 28194}# - #{var 28195}# - #{exp 28196}#)))) + #{source 28180}# + #{var 28181}# + #{exp 28182}#)))) (#{build-simple-lambda 4289}# - (lambda (#{src 16473}# - #{req 16474}# - #{rest 16475}# - #{vars 16476}# - #{meta 16477}# - #{exp 16478}#) - (let ((#{body 16484}# + (lambda (#{src 16500}# + #{req 16501}# + #{rest 16502}# + #{vars 16503}# + #{meta 16504}# + #{exp 16505}#) + (let ((#{body 16511}# (make-struct/no-tail (vector-ref %expanded-vtables 14) - #{src 16473}# - #{req 16474}# + #{src 16500}# + #{req 16501}# #f - #{rest 16475}# + #{rest 16502}# #f '() - #{vars 16476}# - #{exp 16478}# + #{vars 16503}# + #{exp 16505}# #f))) (make-struct/no-tail (vector-ref %expanded-vtables 13) - #{src 16473}# - #{meta 16477}# - #{body 16484}#)))) + #{src 16500}# + #{meta 16504}# + #{body 16511}#)))) (#{build-sequence 4294}# - (lambda (#{src 28227}# #{exps 28228}#) - (if (null? (cdr #{exps 28228}#)) - (car #{exps 28228}#) + (lambda (#{src 28213}# #{exps 28214}#) + (if (null? (cdr #{exps 28214}#)) + (car #{exps 28214}#) (make-struct/no-tail (vector-ref %expanded-vtables 12) - #{src 28227}# - #{exps 28228}#)))) + #{src 28213}# + #{exps 28214}#)))) (#{build-let 4295}# - (lambda (#{src 16496}# - #{ids 16497}# - #{vars 16498}# - #{val-exps 16499}# - #{body-exp 16500}#) + (lambda (#{src 16523}# + #{ids 16524}# + #{vars 16525}# + #{val-exps 16526}# + #{body-exp 16527}#) (begin (for-each #{maybe-name-value! 4278}# - #{ids 16497}# - #{val-exps 16499}#) - (if (null? #{vars 16498}#) - #{body-exp 16500}# + #{ids 16524}# + #{val-exps 16526}#) + (if (null? #{vars 16525}#) + #{body-exp 16527}# (make-struct/no-tail (vector-ref %expanded-vtables 15) - #{src 16496}# - #{ids 16497}# - #{vars 16498}# - #{val-exps 16499}# - #{body-exp 16500}#))))) + #{src 16523}# + #{ids 16524}# + #{vars 16525}# + #{val-exps 16526}# + #{body-exp 16527}#))))) (#{build-named-let 4296}# - (lambda (#{src 16524}# - #{ids 16525}# - #{vars 16526}# - #{val-exps 16527}# - #{body-exp 16528}#) - (let ((#{f 16529}# (car #{vars 16526}#)) - (#{f-name 16530}# (car #{ids 16525}#)) - (#{vars 16531}# (cdr #{vars 16526}#)) - (#{ids 16532}# (cdr #{ids 16525}#))) - (let ((#{proc 16533}# - (let ((#{body 16553}# + (lambda (#{src 16551}# + #{ids 16552}# + #{vars 16553}# + #{val-exps 16554}# + #{body-exp 16555}#) + (let ((#{f 16556}# (car #{vars 16553}#)) + (#{f-name 16557}# (car #{ids 16552}#)) + (#{vars 16558}# (cdr #{vars 16553}#)) + (#{ids 16559}# (cdr #{ids 16552}#))) + (let ((#{proc 16560}# + (let ((#{body 16580}# (make-struct/no-tail (vector-ref %expanded-vtables 14) - #{src 16524}# - #{ids 16532}# + #{src 16551}# + #{ids 16559}# #f #f #f '() - #{vars 16531}# - #{body-exp 16528}# + #{vars 16558}# + #{body-exp 16555}# #f))) (make-struct/no-tail (vector-ref %expanded-vtables 13) - #{src 16524}# + #{src 16551}# '() - #{body 16553}#)))) + #{body 16580}#)))) (begin - (if (if (struct? #{proc 16533}#) - (eq? (struct-vtable #{proc 16533}#) + (if (if (struct? #{proc 16560}#) + (eq? (struct-vtable #{proc 16560}#) (vector-ref %expanded-vtables 13)) #f) - (let ((#{meta 16577}# (struct-ref #{proc 16533}# 1))) - (if (not (assq 'name #{meta 16577}#)) - (let ((#{v 16584}# - (cons (cons 'name #{f-name 16530}#) - #{meta 16577}#))) - (struct-set! #{proc 16533}# 1 #{v 16584}#))))) + (let ((#{meta 16604}# (struct-ref #{proc 16560}# 1))) + (if (not (assq 'name #{meta 16604}#)) + (let ((#{v 16611}# + (cons (cons 'name #{f-name 16557}#) + #{meta 16604}#))) + (struct-set! #{proc 16560}# 1 #{v 16611}#))))) (for-each #{maybe-name-value! 4278}# - #{ids 16532}# - #{val-exps 16527}#) - (let ((#{names 16608}# (list #{f-name 16530}#)) - (#{gensyms 16609}# (list #{f 16529}#)) - (#{vals 16610}# (list #{proc 16533}#)) - (#{body 16611}# - (let ((#{fun-exp 16615}# + #{ids 16559}# + #{val-exps 16554}#) + (let ((#{names 16635}# (list #{f-name 16557}#)) + (#{gensyms 16636}# (list #{f 16556}#)) + (#{vals 16637}# (list #{proc 16560}#)) + (#{body 16638}# + (let ((#{fun-exp 16642}# (make-struct/no-tail (vector-ref %expanded-vtables 3) - #{src 16524}# - #{f-name 16530}# - #{f 16529}#))) + #{src 16551}# + #{f-name 16557}# + #{f 16556}#))) (make-struct/no-tail (vector-ref %expanded-vtables 11) - #{src 16524}# - #{fun-exp 16615}# - #{val-exps 16527}#)))) + #{src 16551}# + #{fun-exp 16642}# + #{val-exps 16554}#)))) (make-struct/no-tail (vector-ref %expanded-vtables 16) - #{src 16524}# + #{src 16551}# #f - #{names 16608}# - #{gensyms 16609}# - #{vals 16610}# - #{body 16611}#))))))) + #{names 16635}# + #{gensyms 16636}# + #{vals 16637}# + #{body 16638}#))))))) (#{build-letrec 4297}# - (lambda (#{src 16631}# - #{in-order? 16632}# - #{ids 16633}# - #{vars 16634}# - #{val-exps 16635}# - #{body-exp 16636}#) - (if (null? #{vars 16634}#) - #{body-exp 16636}# + (lambda (#{src 16658}# + #{in-order? 16659}# + #{ids 16660}# + #{vars 16661}# + #{val-exps 16662}# + #{body-exp 16663}#) + (if (null? #{vars 16661}#) + #{body-exp 16663}# (begin (for-each #{maybe-name-value! 4278}# - #{ids 16633}# - #{val-exps 16635}#) + #{ids 16660}# + #{val-exps 16662}#) (make-struct/no-tail (vector-ref %expanded-vtables 16) - #{src 16631}# - #{in-order? 16632}# - #{ids 16633}# - #{vars 16634}# - #{val-exps 16635}# - #{body-exp 16636}#))))) + #{src 16658}# + #{in-order? 16659}# + #{ids 16660}# + #{vars 16661}# + #{val-exps 16662}# + #{body-exp 16663}#))))) (#{source-annotation 4306}# - (lambda (#{x 16662}#) - (if (if (vector? #{x 16662}#) - (if (= (vector-length #{x 16662}#) 4) - (eq? (vector-ref #{x 16662}# 0) 'syntax-object) + (lambda (#{x 16689}#) + (if (if (vector? #{x 16689}#) + (if (= (vector-length #{x 16689}#) 4) + (eq? (vector-ref #{x 16689}# 0) 'syntax-object) #f) #f) (#{source-annotation 4306}# - (vector-ref #{x 16662}# 1)) - (if (pair? #{x 16662}#) - (let ((#{props 16677}# (source-properties #{x 16662}#))) - (if (pair? #{props 16677}#) #{props 16677}# #f)) + (vector-ref #{x 16689}# 1)) + (if (pair? #{x 16689}#) + (let ((#{props 16704}# (source-properties #{x 16689}#))) + (if (pair? #{props 16704}#) #{props 16704}# #f)) #f)))) (#{extend-env 4307}# - (lambda (#{labels 16679}# #{bindings 16680}# #{r 16681}#) - (if (null? #{labels 16679}#) - #{r 16681}# + (lambda (#{labels 16706}# #{bindings 16707}# #{r 16708}#) + (if (null? #{labels 16706}#) + #{r 16708}# (#{extend-env 4307}# - (cdr #{labels 16679}#) - (cdr #{bindings 16680}#) - (cons (cons (car #{labels 16679}#) - (car #{bindings 16680}#)) - #{r 16681}#))))) + (cdr #{labels 16706}#) + (cdr #{bindings 16707}#) + (cons (cons (car #{labels 16706}#) + (car #{bindings 16707}#)) + #{r 16708}#))))) (#{extend-var-env 4308}# - (lambda (#{labels 16682}# #{vars 16683}# #{r 16684}#) - (if (null? #{labels 16682}#) - #{r 16684}# + (lambda (#{labels 16709}# #{vars 16710}# #{r 16711}#) + (if (null? #{labels 16709}#) + #{r 16711}# (#{extend-var-env 4308}# - (cdr #{labels 16682}#) - (cdr #{vars 16683}#) - (cons (cons (car #{labels 16682}#) - (cons 'lexical (car #{vars 16683}#))) - #{r 16684}#))))) + (cdr #{labels 16709}#) + (cdr #{vars 16710}#) + (cons (cons (car #{labels 16709}#) + (cons 'lexical (car #{vars 16710}#))) + #{r 16711}#))))) (#{macros-only-env 4309}# - (lambda (#{r 16685}#) - (if (null? #{r 16685}#) + (lambda (#{r 16712}#) + (if (null? #{r 16712}#) '() - (let ((#{a 16686}# (car #{r 16685}#))) - (if (eq? (car (cdr #{a 16686}#)) 'macro) - (cons #{a 16686}# - (#{macros-only-env 4309}# (cdr #{r 16685}#))) - (#{macros-only-env 4309}# (cdr #{r 16685}#))))))) + (let ((#{a 16713}# (car #{r 16712}#))) + (if (eq? (car (cdr #{a 16713}#)) 'macro) + (cons #{a 16713}# + (#{macros-only-env 4309}# (cdr #{r 16712}#))) + (#{macros-only-env 4309}# (cdr #{r 16712}#))))))) (#{global-extend 4311}# - (lambda (#{type 16688}# #{sym 16689}# #{val 16690}#) + (lambda (#{type 16715}# #{sym 16716}# #{val 16717}#) (module-define! (current-module) - #{sym 16689}# + #{sym 16716}# (make-syntax-transformer - #{sym 16689}# - #{type 16688}# - #{val 16690}#)))) + #{sym 16716}# + #{type 16715}# + #{val 16717}#)))) (#{id? 4313}# - (lambda (#{x 10546}#) - (if (symbol? #{x 10546}#) + (lambda (#{x 10549}#) + (if (symbol? #{x 10549}#) #t - (if (if (vector? #{x 10546}#) - (if (= (vector-length #{x 10546}#) 4) - (eq? (vector-ref #{x 10546}# 0) 'syntax-object) + (if (if (vector? #{x 10549}#) + (if (= (vector-length #{x 10549}#) 4) + (eq? (vector-ref #{x 10549}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{x 10546}# 1)) + (symbol? (vector-ref #{x 10549}# 1)) #f)))) (#{gen-labels 4316}# - (lambda (#{ls 16700}#) - (if (null? #{ls 16700}#) + (lambda (#{ls 16727}#) + (if (null? #{ls 16727}#) '() (cons (symbol->string (gensym "i")) - (#{gen-labels 4316}# (cdr #{ls 16700}#)))))) + (#{gen-labels 4316}# (cdr #{ls 16727}#)))))) (#{make-binding-wrap 4327}# - (lambda (#{ids 16704}# #{labels 16705}# #{w 16706}#) - (if (null? #{ids 16704}#) - #{w 16706}# - (cons (car #{w 16706}#) - (cons (let ((#{labelvec 16707}# - (list->vector #{labels 16705}#))) - (let ((#{n 16708}# (vector-length #{labelvec 16707}#))) - (let ((#{symnamevec 16709}# (make-vector #{n 16708}#)) - (#{marksvec 16710}# (make-vector #{n 16708}#))) + (lambda (#{ids 16731}# #{labels 16732}# #{w 16733}#) + (if (null? #{ids 16731}#) + #{w 16733}# + (cons (car #{w 16733}#) + (cons (let ((#{labelvec 16734}# + (list->vector #{labels 16732}#))) + (let ((#{n 16735}# (vector-length #{labelvec 16734}#))) + (let ((#{symnamevec 16736}# (make-vector #{n 16735}#)) + (#{marksvec 16737}# (make-vector #{n 16735}#))) (begin (letrec* - ((#{f 16711}# - (lambda (#{ids 16714}# #{i 16715}#) - (if (not (null? #{ids 16714}#)) + ((#{f 16738}# + (lambda (#{ids 16741}# #{i 16742}#) + (if (not (null? #{ids 16741}#)) (call-with-values (lambda () - (let ((#{x 16718}# - (car #{ids 16714}#))) - (if (if (vector? #{x 16718}#) + (let ((#{x 16745}# + (car #{ids 16741}#))) + (if (if (vector? #{x 16745}#) (if (= (vector-length - #{x 16718}#) + #{x 16745}#) 4) (eq? (vector-ref - #{x 16718}# + #{x 16745}# 0) 'syntax-object) #f) #f) (values - (vector-ref #{x 16718}# 1) - (let ((#{m1 16734}# - (car #{w 16706}#)) - (#{m2 16735}# + (vector-ref #{x 16745}# 1) + (let ((#{m1 16761}# + (car #{w 16733}#)) + (#{m2 16762}# (car (vector-ref - #{x 16718}# + #{x 16745}# 2)))) - (if (null? #{m2 16735}#) - #{m1 16734}# + (if (null? #{m2 16762}#) + #{m1 16761}# (append - #{m1 16734}# - #{m2 16735}#)))) + #{m1 16761}# + #{m2 16762}#)))) (values - #{x 16718}# - (car #{w 16706}#))))) - (lambda (#{symname 16755}# - #{marks 16756}#) + #{x 16745}# + (car #{w 16733}#))))) + (lambda (#{symname 16782}# + #{marks 16783}#) (begin (vector-set! - #{symnamevec 16709}# - #{i 16715}# - #{symname 16755}#) + #{symnamevec 16736}# + #{i 16742}# + #{symname 16782}#) (vector-set! - #{marksvec 16710}# - #{i 16715}# - #{marks 16756}#) - (#{f 16711}# - (cdr #{ids 16714}#) - (#{1+}# #{i 16715}#))))))))) - (#{f 16711}# #{ids 16704}# 0)) + #{marksvec 16737}# + #{i 16742}# + #{marks 16783}#) + (#{f 16738}# + (cdr #{ids 16741}#) + (#{1+}# #{i 16742}#))))))))) + (#{f 16738}# #{ids 16731}# 0)) (vector 'ribcage - #{symnamevec 16709}# - #{marksvec 16710}# - #{labelvec 16707}#))))) - (cdr #{w 16706}#)))))) + #{symnamevec 16736}# + #{marksvec 16737}# + #{labelvec 16734}#))))) + (cdr #{w 16733}#)))))) (#{join-wraps 4329}# - (lambda (#{w1 16765}# #{w2 16766}#) - (let ((#{m1 16767}# (car #{w1 16765}#)) - (#{s1 16768}# (cdr #{w1 16765}#))) - (if (null? #{m1 16767}#) - (if (null? #{s1 16768}#) - #{w2 16766}# - (cons (car #{w2 16766}#) - (let ((#{m2 16775}# (cdr #{w2 16766}#))) - (if (null? #{m2 16775}#) - #{s1 16768}# - (append #{s1 16768}# #{m2 16775}#))))) - (cons (let ((#{m2 16784}# (car #{w2 16766}#))) - (if (null? #{m2 16784}#) - #{m1 16767}# - (append #{m1 16767}# #{m2 16784}#))) - (let ((#{m2 16793}# (cdr #{w2 16766}#))) - (if (null? #{m2 16793}#) - #{s1 16768}# - (append #{s1 16768}# #{m2 16793}#)))))))) + (lambda (#{w1 16792}# #{w2 16793}#) + (let ((#{m1 16794}# (car #{w1 16792}#)) + (#{s1 16795}# (cdr #{w1 16792}#))) + (if (null? #{m1 16794}#) + (if (null? #{s1 16795}#) + #{w2 16793}# + (cons (car #{w2 16793}#) + (let ((#{m2 16802}# (cdr #{w2 16793}#))) + (if (null? #{m2 16802}#) + #{s1 16795}# + (append #{s1 16795}# #{m2 16802}#))))) + (cons (let ((#{m2 16811}# (car #{w2 16793}#))) + (if (null? #{m2 16811}#) + #{m1 16794}# + (append #{m1 16794}# #{m2 16811}#))) + (let ((#{m2 16820}# (cdr #{w2 16793}#))) + (if (null? #{m2 16820}#) + #{s1 16795}# + (append #{s1 16795}# #{m2 16820}#)))))))) (#{same-marks? 4331}# - (lambda (#{x 16798}# #{y 16799}#) - (if (eq? #{x 16798}# #{y 16799}#) - (eq? #{x 16798}# #{y 16799}#) - (if (not (null? #{x 16798}#)) - (if (not (null? #{y 16799}#)) - (if (eq? (car #{x 16798}#) (car #{y 16799}#)) + (lambda (#{x 16825}# #{y 16826}#) + (if (eq? #{x 16825}# #{y 16826}#) + (eq? #{x 16825}# #{y 16826}#) + (if (not (null? #{x 16825}#)) + (if (not (null? #{y 16826}#)) + (if (eq? (car #{x 16825}#) (car #{y 16826}#)) (#{same-marks? 4331}# - (cdr #{x 16798}#) - (cdr #{y 16799}#)) + (cdr #{x 16825}#) + (cdr #{y 16826}#)) #f) #f) #f)))) (#{id-var-name 4332}# - (lambda (#{id 16807}# #{w 16808}#) + (lambda (#{id 16834}# #{w 16835}#) (letrec* - ((#{search 16809}# - (lambda (#{sym 16870}# #{subst 16871}# #{marks 16872}#) - (if (null? #{subst 16871}#) - (values #f #{marks 16872}#) - (let ((#{fst 16873}# (car #{subst 16871}#))) - (if (eq? #{fst 16873}# 'shift) - (#{search 16809}# - #{sym 16870}# - (cdr #{subst 16871}#) - (cdr #{marks 16872}#)) - (let ((#{symnames 16875}# (vector-ref #{fst 16873}# 1))) - (if (vector? #{symnames 16875}#) - (let ((#{n 16887}# (vector-length #{symnames 16875}#))) + ((#{search 16836}# + (lambda (#{sym 16897}# #{subst 16898}# #{marks 16899}#) + (if (null? #{subst 16898}#) + (values #f #{marks 16899}#) + (let ((#{fst 16900}# (car #{subst 16898}#))) + (if (eq? #{fst 16900}# 'shift) + (#{search 16836}# + #{sym 16897}# + (cdr #{subst 16898}#) + (cdr #{marks 16899}#)) + (let ((#{symnames 16902}# (vector-ref #{fst 16900}# 1))) + (if (vector? #{symnames 16902}#) + (let ((#{n 16914}# (vector-length #{symnames 16902}#))) (letrec* - ((#{f 16888}# - (lambda (#{i 16890}#) - (if (= #{i 16890}# #{n 16887}#) - (#{search 16809}# - #{sym 16870}# - (cdr #{subst 16871}#) - #{marks 16872}#) + ((#{f 16915}# + (lambda (#{i 16917}#) + (if (= #{i 16917}# #{n 16914}#) + (#{search 16836}# + #{sym 16897}# + (cdr #{subst 16898}#) + #{marks 16899}#) (if (if (eq? (vector-ref - #{symnames 16875}# - #{i 16890}#) - #{sym 16870}#) + #{symnames 16902}# + #{i 16917}#) + #{sym 16897}#) (#{same-marks? 4331}# - #{marks 16872}# + #{marks 16899}# (vector-ref - (vector-ref #{fst 16873}# 2) - #{i 16890}#)) + (vector-ref #{fst 16900}# 2) + #{i 16917}#)) #f) (values (vector-ref - (vector-ref #{fst 16873}# 3) - #{i 16890}#) - #{marks 16872}#) - (#{f 16888}# (#{1+}# #{i 16890}#))))))) - (#{f 16888}# 0))) + (vector-ref #{fst 16900}# 3) + #{i 16917}#) + #{marks 16899}#) + (#{f 16915}# (#{1+}# #{i 16917}#))))))) + (#{f 16915}# 0))) (letrec* - ((#{f 16923}# - (lambda (#{symnames 16925}# #{i 16926}#) - (if (null? #{symnames 16925}#) - (#{search 16809}# - #{sym 16870}# - (cdr #{subst 16871}#) - #{marks 16872}#) - (if (if (eq? (car #{symnames 16925}#) - #{sym 16870}#) + ((#{f 16950}# + (lambda (#{symnames 16952}# #{i 16953}#) + (if (null? #{symnames 16952}#) + (#{search 16836}# + #{sym 16897}# + (cdr #{subst 16898}#) + #{marks 16899}#) + (if (if (eq? (car #{symnames 16952}#) + #{sym 16897}#) (#{same-marks? 4331}# - #{marks 16872}# + #{marks 16899}# (list-ref - (vector-ref #{fst 16873}# 2) - #{i 16926}#)) + (vector-ref #{fst 16900}# 2) + #{i 16953}#)) #f) (values (list-ref - (vector-ref #{fst 16873}# 3) - #{i 16926}#) - #{marks 16872}#) - (#{f 16923}# - (cdr #{symnames 16925}#) - (#{1+}# #{i 16926}#))))))) - (#{f 16923}# #{symnames 16875}# 0)))))))))) - (if (symbol? #{id 16807}#) - (let ((#{t 16812}# - (#{search 16809}# - #{id 16807}# - (cdr #{w 16808}#) - (car #{w 16808}#)))) - (if #{t 16812}# #{t 16812}# #{id 16807}#)) - (if (if (vector? #{id 16807}#) - (if (= (vector-length #{id 16807}#) 4) - (eq? (vector-ref #{id 16807}# 0) 'syntax-object) + (vector-ref #{fst 16900}# 3) + #{i 16953}#) + #{marks 16899}#) + (#{f 16950}# + (cdr #{symnames 16952}#) + (#{1+}# #{i 16953}#))))))) + (#{f 16950}# #{symnames 16902}# 0)))))))))) + (if (symbol? #{id 16834}#) + (let ((#{t 16839}# + (#{search 16836}# + #{id 16834}# + (cdr #{w 16835}#) + (car #{w 16835}#)))) + (if #{t 16839}# #{t 16839}# #{id 16834}#)) + (if (if (vector? #{id 16834}#) + (if (= (vector-length #{id 16834}#) 4) + (eq? (vector-ref #{id 16834}# 0) 'syntax-object) #f) #f) - (let ((#{id 16827}# (vector-ref #{id 16807}# 1)) - (#{w1 16828}# (vector-ref #{id 16807}# 2))) - (let ((#{marks 16829}# - (let ((#{m1 16839}# (car #{w 16808}#)) - (#{m2 16840}# (car #{w1 16828}#))) - (if (null? #{m2 16840}#) - #{m1 16839}# - (append #{m1 16839}# #{m2 16840}#))))) + (let ((#{id 16854}# (vector-ref #{id 16834}# 1)) + (#{w1 16855}# (vector-ref #{id 16834}# 2))) + (let ((#{marks 16856}# + (let ((#{m1 16866}# (car #{w 16835}#)) + (#{m2 16867}# (car #{w1 16855}#))) + (if (null? #{m2 16867}#) + #{m1 16866}# + (append #{m1 16866}# #{m2 16867}#))))) (call-with-values (lambda () - (#{search 16809}# - #{id 16827}# - (cdr #{w 16808}#) - #{marks 16829}#)) - (lambda (#{new-id 16856}# #{marks 16857}#) - (if #{new-id 16856}# - #{new-id 16856}# - (let ((#{t 16865}# - (#{search 16809}# - #{id 16827}# - (cdr #{w1 16828}#) - #{marks 16857}#))) - (if #{t 16865}# #{t 16865}# #{id 16827}#))))))) + (#{search 16836}# + #{id 16854}# + (cdr #{w 16835}#) + #{marks 16856}#)) + (lambda (#{new-id 16883}# #{marks 16884}#) + (if #{new-id 16883}# + #{new-id 16883}# + (let ((#{t 16892}# + (#{search 16836}# + #{id 16854}# + (cdr #{w1 16855}#) + #{marks 16884}#))) + (if #{t 16892}# #{t 16892}# #{id 16854}#))))))) (syntax-violation 'id-var-name "invalid id" - #{id 16807}#)))))) + #{id 16834}#)))))) (#{valid-bound-ids? 4335}# - (lambda (#{ids 16948}#) + (lambda (#{ids 16975}#) (if (letrec* - ((#{all-ids? 16949}# - (lambda (#{ids 17111}#) - (if (null? #{ids 17111}#) - (null? #{ids 17111}#) - (if (let ((#{x 17122}# (car #{ids 17111}#))) - (if (symbol? #{x 17122}#) + ((#{all-ids? 16976}# + (lambda (#{ids 17138}#) + (if (null? #{ids 17138}#) + (null? #{ids 17138}#) + (if (let ((#{x 17149}# (car #{ids 17138}#))) + (if (symbol? #{x 17149}#) #t - (if (if (vector? #{x 17122}#) - (if (= (vector-length #{x 17122}#) 4) - (eq? (vector-ref #{x 17122}# 0) + (if (if (vector? #{x 17149}#) + (if (= (vector-length #{x 17149}#) 4) + (eq? (vector-ref #{x 17149}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{x 17122}# 1)) + (symbol? (vector-ref #{x 17149}# 1)) #f))) - (#{all-ids? 16949}# (cdr #{ids 17111}#)) + (#{all-ids? 16976}# (cdr #{ids 17138}#)) #f))))) - (#{all-ids? 16949}# #{ids 16948}#)) - (#{distinct-bound-ids? 4336}# #{ids 16948}#) + (#{all-ids? 16976}# #{ids 16975}#)) + (#{distinct-bound-ids? 4336}# #{ids 16975}#) #f))) (#{distinct-bound-ids? 4336}# - (lambda (#{ids 17254}#) + (lambda (#{ids 17281}#) (letrec* - ((#{distinct? 17255}# - (lambda (#{ids 17371}#) - (if (null? #{ids 17371}#) - (null? #{ids 17371}#) + ((#{distinct? 17282}# + (lambda (#{ids 17398}#) + (if (null? #{ids 17398}#) + (null? #{ids 17398}#) (if (not (#{bound-id-member? 4337}# - (car #{ids 17371}#) - (cdr #{ids 17371}#))) - (#{distinct? 17255}# (cdr #{ids 17371}#)) + (car #{ids 17398}#) + (cdr #{ids 17398}#))) + (#{distinct? 17282}# (cdr #{ids 17398}#)) #f))))) - (#{distinct? 17255}# #{ids 17254}#)))) + (#{distinct? 17282}# #{ids 17281}#)))) (#{bound-id-member? 4337}# - (lambda (#{x 17591}# #{list 17592}#) - (if (not (null? #{list 17592}#)) - (let ((#{t 17593}# - (let ((#{j 17674}# (car #{list 17592}#))) - (if (if (if (vector? #{x 17591}#) - (if (= (vector-length #{x 17591}#) 4) - (eq? (vector-ref #{x 17591}# 0) 'syntax-object) + (lambda (#{x 17618}# #{list 17619}#) + (if (not (null? #{list 17619}#)) + (let ((#{t 17620}# + (let ((#{j 17701}# (car #{list 17619}#))) + (if (if (if (vector? #{x 17618}#) + (if (= (vector-length #{x 17618}#) 4) + (eq? (vector-ref #{x 17618}# 0) 'syntax-object) #f) #f) - (if (vector? #{j 17674}#) - (if (= (vector-length #{j 17674}#) 4) - (eq? (vector-ref #{j 17674}# 0) 'syntax-object) + (if (vector? #{j 17701}#) + (if (= (vector-length #{j 17701}#) 4) + (eq? (vector-ref #{j 17701}# 0) 'syntax-object) #f) #f) #f) - (if (eq? (vector-ref #{x 17591}# 1) - (vector-ref #{j 17674}# 1)) + (if (eq? (vector-ref #{x 17618}# 1) + (vector-ref #{j 17701}# 1)) (#{same-marks? 4331}# - (car (vector-ref #{x 17591}# 2)) - (car (vector-ref #{j 17674}# 2))) + (car (vector-ref #{x 17618}# 2)) + (car (vector-ref #{j 17701}# 2))) #f) - (eq? #{x 17591}# #{j 17674}#))))) - (if #{t 17593}# - #{t 17593}# + (eq? #{x 17618}# #{j 17701}#))))) + (if #{t 17620}# + #{t 17620}# (#{bound-id-member? 4337}# - #{x 17591}# - (cdr #{list 17592}#)))) + #{x 17618}# + (cdr #{list 17619}#)))) #f))) (#{wrap 4338}# - (lambda (#{x 17718}# #{w 17719}# #{defmod 17720}#) - (if (if (null? (car #{w 17719}#)) - (null? (cdr #{w 17719}#)) + (lambda (#{x 17745}# #{w 17746}# #{defmod 17747}#) + (if (if (null? (car #{w 17746}#)) + (null? (cdr #{w 17746}#)) #f) - #{x 17718}# - (if (if (vector? #{x 17718}#) - (if (= (vector-length #{x 17718}#) 4) - (eq? (vector-ref #{x 17718}# 0) 'syntax-object) + #{x 17745}# + (if (if (vector? #{x 17745}#) + (if (= (vector-length #{x 17745}#) 4) + (eq? (vector-ref #{x 17745}# 0) 'syntax-object) #f) #f) - (let ((#{expression 17734}# (vector-ref #{x 17718}# 1)) - (#{wrap 17735}# + (let ((#{expression 17761}# (vector-ref #{x 17745}# 1)) + (#{wrap 17762}# (#{join-wraps 4329}# - #{w 17719}# - (vector-ref #{x 17718}# 2))) - (#{module 17736}# (vector-ref #{x 17718}# 3))) + #{w 17746}# + (vector-ref #{x 17745}# 2))) + (#{module 17763}# (vector-ref #{x 17745}# 3))) (vector 'syntax-object - #{expression 17734}# - #{wrap 17735}# - #{module 17736}#)) - (if (null? #{x 17718}#) - #{x 17718}# + #{expression 17761}# + #{wrap 17762}# + #{module 17763}#)) + (if (null? #{x 17745}#) + #{x 17745}# (vector 'syntax-object - #{x 17718}# - #{w 17719}# - #{defmod 17720}#)))))) + #{x 17745}# + #{w 17746}# + #{defmod 17747}#)))))) (#{source-wrap 4339}# - (lambda (#{x 17753}# - #{w 17754}# - #{s 17755}# - #{defmod 17756}#) + (lambda (#{x 17780}# + #{w 17781}# + #{s 17782}# + #{defmod 17783}#) (#{wrap 4338}# (begin - (if (if (pair? #{x 17753}#) #{s 17755}# #f) - (set-source-properties! #{x 17753}# #{s 17755}#)) - #{x 17753}#) - #{w 17754}# - #{defmod 17756}#))) - (#{chi-sequence 4340}# - (lambda (#{body 28233}# - #{r 28234}# - #{w 28235}# - #{s 28236}# - #{mod 28237}#) + (if (if (pair? #{x 17780}#) #{s 17782}# #f) + (set-source-properties! #{x 17780}# #{s 17782}#)) + #{x 17780}#) + #{w 17781}# + #{defmod 17783}#))) + (#{expand-sequence 4340}# + (lambda (#{body 28219}# + #{r 28220}# + #{w 28221}# + #{s 28222}# + #{mod 28223}#) (#{build-sequence 4294}# - #{s 28236}# + #{s 28222}# (letrec* - ((#{dobody 28322}# - (lambda (#{body 28402}# - #{r 28403}# - #{w 28404}# - #{mod 28405}#) - (if (null? #{body 28402}#) + ((#{dobody 28308}# + (lambda (#{body 28388}# + #{r 28389}# + #{w 28390}# + #{mod 28391}#) + (if (null? #{body 28388}#) '() - (let ((#{first 28406}# - (#{chi 4345}# - (car #{body 28402}#) - #{r 28403}# - #{w 28404}# - #{mod 28405}#))) - (cons #{first 28406}# - (#{dobody 28322}# - (cdr #{body 28402}#) - #{r 28403}# - #{w 28404}# - #{mod 28405}#))))))) - (#{dobody 28322}# - #{body 28233}# - #{r 28234}# - #{w 28235}# - #{mod 28237}#))))) - (#{chi-top-sequence 4341}# - (lambda (#{body 17774}# - #{r 17775}# - #{w 17776}# - #{s 17777}# - #{m 17778}# - #{esew 17779}# - #{mod 17780}#) + (let ((#{first 28392}# + (#{expand 4345}# + (car #{body 28388}#) + #{r 28389}# + #{w 28390}# + #{mod 28391}#))) + (cons #{first 28392}# + (#{dobody 28308}# + (cdr #{body 28388}#) + #{r 28389}# + #{w 28390}# + #{mod 28391}#))))))) + (#{dobody 28308}# + #{body 28219}# + #{r 28220}# + #{w 28221}# + #{mod 28223}#))))) + (#{expand-top-sequence 4341}# + (lambda (#{body 17801}# + #{r 17802}# + #{w 17803}# + #{s 17804}# + #{m 17805}# + #{esew 17806}# + #{mod 17807}#) (letrec* - ((#{scan 17781}# - (lambda (#{body 17912}# - #{r 17913}# - #{w 17914}# - #{s 17915}# - #{m 17916}# - #{esew 17917}# - #{mod 17918}# - #{exps 17919}#) - (if (null? #{body 17912}#) - #{exps 17919}# + ((#{scan 17808}# + (lambda (#{body 17939}# + #{r 17940}# + #{w 17941}# + #{s 17942}# + #{m 17943}# + #{esew 17944}# + #{mod 17945}# + #{exps 17946}#) + (if (null? #{body 17939}#) + #{exps 17946}# (call-with-values (lambda () (call-with-values (lambda () - (let ((#{e 17920}# (car #{body 17912}#))) + (let ((#{e 17947}# (car #{body 17939}#))) (#{syntax-type 4344}# - #{e 17920}# - #{r 17913}# - #{w 17914}# - (let ((#{t 17924}# - (#{source-annotation 4306}# #{e 17920}#))) - (if #{t 17924}# #{t 17924}# #{s 17915}#)) + #{e 17947}# + #{r 17940}# + #{w 17941}# + (let ((#{t 17951}# + (#{source-annotation 4306}# #{e 17947}#))) + (if #{t 17951}# #{t 17951}# #{s 17942}#)) #f - #{mod 17918}# + #{mod 17945}# #f))) - (lambda (#{type 18184}# - #{value 18185}# - #{e 18186}# - #{w 18187}# - #{s 18188}# - #{mod 18189}#) - (if (eqv? #{type 18184}# 'begin-form) - (let ((#{tmp 18194}# - ($sc-dispatch #{e 18186}# '(_)))) - (if #{tmp 18194}# - (@apply (lambda () #{exps 17919}#) #{tmp 18194}#) - (let ((#{tmp 18198}# + (lambda (#{type 18211}# + #{value 18212}# + #{e 18213}# + #{w 18214}# + #{s 18215}# + #{mod 18216}#) + (if (eqv? #{type 18211}# 'begin-form) + (let ((#{tmp 18221}# + ($sc-dispatch #{e 18213}# '(_)))) + (if #{tmp 18221}# + (@apply (lambda () #{exps 17946}#) #{tmp 18221}#) + (let ((#{tmp 18225}# ($sc-dispatch - #{e 18186}# + #{e 18213}# '(_ any . each-any)))) - (if #{tmp 18198}# + (if #{tmp 18225}# (@apply - (lambda (#{e1 18202}# #{e2 18203}#) - (#{scan 17781}# - (cons #{e1 18202}# #{e2 18203}#) - #{r 17913}# - #{w 18187}# - #{s 18188}# - #{m 17916}# - #{esew 17917}# - #{mod 18189}# - #{exps 17919}#)) - #{tmp 18198}#) + (lambda (#{e1 18229}# #{e2 18230}#) + (#{scan 17808}# + (cons #{e1 18229}# #{e2 18230}#) + #{r 17940}# + #{w 18214}# + #{s 18215}# + #{m 17943}# + #{esew 17944}# + #{mod 18216}# + #{exps 17946}#)) + #{tmp 18225}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 18186}#))))) - (if (eqv? #{type 18184}# 'local-syntax-form) - (#{chi-local-syntax 4350}# - #{value 18185}# - #{e 18186}# - #{r 17913}# - #{w 18187}# - #{s 18188}# - #{mod 18189}# - (lambda (#{body 18218}# - #{r 18219}# - #{w 18220}# - #{s 18221}# - #{mod 18222}#) - (#{scan 17781}# - #{body 18218}# - #{r 18219}# - #{w 18220}# - #{s 18221}# - #{m 17916}# - #{esew 17917}# - #{mod 18222}# - #{exps 17919}#))) - (if (eqv? #{type 18184}# 'eval-when-form) - (let ((#{tmp 18227}# + #{e 18213}#))))) + (if (eqv? #{type 18211}# 'local-syntax-form) + (#{expand-local-syntax 4350}# + #{value 18212}# + #{e 18213}# + #{r 17940}# + #{w 18214}# + #{s 18215}# + #{mod 18216}# + (lambda (#{body 18245}# + #{r 18246}# + #{w 18247}# + #{s 18248}# + #{mod 18249}#) + (#{scan 17808}# + #{body 18245}# + #{r 18246}# + #{w 18247}# + #{s 18248}# + #{m 17943}# + #{esew 17944}# + #{mod 18249}# + #{exps 17946}#))) + (if (eqv? #{type 18211}# 'eval-when-form) + (let ((#{tmp 18254}# ($sc-dispatch - #{e 18186}# + #{e 18213}# '(_ each-any any . each-any)))) - (if #{tmp 18227}# + (if #{tmp 18254}# (@apply - (lambda (#{x 18231}# - #{e1 18232}# - #{e2 18233}#) - (let ((#{when-list 18234}# - (#{chi-when-list 4343}# - #{e 18186}# - #{x 18231}# - #{w 18187}#)) - (#{body 18235}# - (cons #{e1 18232}# - #{e2 18233}#))) - (if (eq? #{m 17916}# 'e) - (if (memq 'eval #{when-list 18234}#) - (#{scan 17781}# - #{body 18235}# - #{r 17913}# - #{w 18187}# - #{s 18188}# + (lambda (#{x 18258}# + #{e1 18259}# + #{e2 18260}#) + (let ((#{when-list 18261}# + (#{expand-when-list 4343}# + #{e 18213}# + #{x 18258}# + #{w 18214}#)) + (#{body 18262}# + (cons #{e1 18259}# + #{e2 18260}#))) + (if (eq? #{m 17943}# 'e) + (if (memq 'eval #{when-list 18261}#) + (#{scan 17808}# + #{body 18262}# + #{r 17940}# + #{w 18214}# + #{s 18215}# (if (memq 'expand - #{when-list 18234}#) + #{when-list 18261}#) 'c&e 'e) '(eval) - #{mod 18189}# - #{exps 17919}#) + #{mod 18216}# + #{exps 17946}#) (begin (if (memq 'expand - #{when-list 18234}#) - (let ((#{x 18242}# - (#{chi-top-sequence 4341}# - #{body 18235}# - #{r 17913}# - #{w 18187}# - #{s 18188}# + #{when-list 18261}#) + (let ((#{x 18269}# + (#{expand-top-sequence 4341}# + #{body 18262}# + #{r 17940}# + #{w 18214}# + #{s 18215}# 'e '(eval) - #{mod 18189}#))) + #{mod 18216}#))) (primitive-eval - #{x 18242}#))) - (values #{exps 17919}#))) - (if (memq 'load #{when-list 18234}#) - (if (let ((#{t 18244}# + #{x 18269}#))) + (values #{exps 17946}#))) + (if (memq 'load #{when-list 18261}#) + (if (let ((#{t 18271}# (memq 'compile - #{when-list 18234}#))) - (if #{t 18244}# - #{t 18244}# - (let ((#{t 18246}# + #{when-list 18261}#))) + (if #{t 18271}# + #{t 18271}# + (let ((#{t 18273}# (memq 'expand - #{when-list 18234}#))) - (if #{t 18246}# - #{t 18246}# - (if (eq? #{m 17916}# + #{when-list 18261}#))) + (if #{t 18273}# + #{t 18273}# + (if (eq? #{m 17943}# 'c&e) (memq 'eval - #{when-list 18234}#) + #{when-list 18261}#) #f))))) - (#{scan 17781}# - #{body 18235}# - #{r 17913}# - #{w 18187}# - #{s 18188}# + (#{scan 17808}# + #{body 18262}# + #{r 17940}# + #{w 18214}# + #{s 18215}# 'c&e '(compile load) - #{mod 18189}# - #{exps 17919}#) - (if (if (eq? #{m 17916}# 'c) + #{mod 18216}# + #{exps 17946}#) + (if (if (eq? #{m 17943}# 'c) #t - (eq? #{m 17916}# 'c&e)) - (#{scan 17781}# - #{body 18235}# - #{r 17913}# - #{w 18187}# - #{s 18188}# + (eq? #{m 17943}# 'c&e)) + (#{scan 17808}# + #{body 18262}# + #{r 17940}# + #{w 18214}# + #{s 18215}# 'c '(load) - #{mod 18189}# - #{exps 17919}#) - (values #{exps 17919}#))) - (if (let ((#{t 18256}# + #{mod 18216}# + #{exps 17946}#) + (values #{exps 17946}#))) + (if (let ((#{t 18283}# (memq 'compile - #{when-list 18234}#))) - (if #{t 18256}# - #{t 18256}# - (let ((#{t 18258}# + #{when-list 18261}#))) + (if #{t 18283}# + #{t 18283}# + (let ((#{t 18285}# (memq 'expand - #{when-list 18234}#))) - (if #{t 18258}# - #{t 18258}# - (if (eq? #{m 17916}# + #{when-list 18261}#))) + (if #{t 18285}# + #{t 18285}# + (if (eq? #{m 17943}# 'c&e) (memq 'eval - #{when-list 18234}#) + #{when-list 18261}#) #f))))) (begin - (let ((#{x 18263}# - (#{chi-top-sequence 4341}# - #{body 18235}# - #{r 17913}# - #{w 18187}# - #{s 18188}# + (let ((#{x 18290}# + (#{expand-top-sequence 4341}# + #{body 18262}# + #{r 17940}# + #{w 18214}# + #{s 18215}# 'e '(eval) - #{mod 18189}#))) - (primitive-eval #{x 18263}#)) - (values #{exps 17919}#)) - (values #{exps 17919}#)))))) - #{tmp 18227}#) + #{mod 18216}#))) + (primitive-eval #{x 18290}#)) + (values #{exps 17946}#)) + (values #{exps 17946}#)))))) + #{tmp 18254}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 18186}#))) - (if (eqv? #{type 18184}# 'define-syntax-form) - (let ((#{n 18274}# + #{e 18213}#))) + (if (eqv? #{type 18211}# 'define-syntax-form) + (let ((#{n 18301}# (#{id-var-name 4332}# - #{value 18185}# - #{w 18187}#)) - (#{r 18275}# + #{value 18212}# + #{w 18214}#)) + (#{r 18302}# (#{macros-only-env 4309}# - #{r 17913}#))) - (if (eqv? #{m 17916}# 'c) - (if (memq 'compile #{esew 17917}#) - (let ((#{e 18279}# - (#{chi-install-global 4342}# - #{n 18274}# - (#{chi 4345}# - #{e 18186}# - #{r 18275}# - #{w 18187}# - #{mod 18189}#)))) + #{r 17940}#))) + (if (eqv? #{m 17943}# 'c) + (if (memq 'compile #{esew 17944}#) + (let ((#{e 18306}# + (#{expand-install-global 4342}# + #{n 18301}# + (#{expand 4345}# + #{e 18213}# + #{r 18302}# + #{w 18214}# + #{mod 18216}#)))) (begin (#{top-level-eval-hook 4273}# - #{e 18279}# - #{mod 18189}#) - (if (memq 'load #{esew 17917}#) + #{e 18306}# + #{mod 18216}#) + (if (memq 'load #{esew 17944}#) (values - (cons #{e 18279}# - #{exps 17919}#)) - (values #{exps 17919}#)))) - (if (memq 'load #{esew 17917}#) + (cons #{e 18306}# + #{exps 17946}#)) + (values #{exps 17946}#)))) + (if (memq 'load #{esew 17944}#) (values - (cons (#{chi-install-global 4342}# - #{n 18274}# - (#{chi 4345}# - #{e 18186}# - #{r 18275}# - #{w 18187}# - #{mod 18189}#)) - #{exps 17919}#)) - (values #{exps 17919}#))) - (if (eqv? #{m 17916}# 'c&e) - (let ((#{e 18736}# - (#{chi-install-global 4342}# - #{n 18274}# - (#{chi 4345}# - #{e 18186}# - #{r 18275}# - #{w 18187}# - #{mod 18189}#)))) + (cons (#{expand-install-global 4342}# + #{n 18301}# + (#{expand 4345}# + #{e 18213}# + #{r 18302}# + #{w 18214}# + #{mod 18216}#)) + #{exps 17946}#)) + (values #{exps 17946}#))) + (if (eqv? #{m 17943}# 'c&e) + (let ((#{e 18763}# + (#{expand-install-global 4342}# + #{n 18301}# + (#{expand 4345}# + #{e 18213}# + #{r 18302}# + #{w 18214}# + #{mod 18216}#)))) (begin (#{top-level-eval-hook 4273}# - #{e 18736}# - #{mod 18189}#) + #{e 18763}# + #{mod 18216}#) (values - (cons #{e 18736}# - #{exps 17919}#)))) + (cons #{e 18763}# + #{exps 17946}#)))) (begin - (if (memq 'eval #{esew 17917}#) + (if (memq 'eval #{esew 17944}#) (#{top-level-eval-hook 4273}# - (#{chi-install-global 4342}# - #{n 18274}# - (#{chi 4345}# - #{e 18186}# - #{r 18275}# - #{w 18187}# - #{mod 18189}#)) - #{mod 18189}#)) - (values #{exps 17919}#))))) - (if (eqv? #{type 18184}# 'define-form) - (let ((#{n 19386}# + (#{expand-install-global 4342}# + #{n 18301}# + (#{expand 4345}# + #{e 18213}# + #{r 18302}# + #{w 18214}# + #{mod 18216}#)) + #{mod 18216}#)) + (values #{exps 17946}#))))) + (if (eqv? #{type 18211}# 'define-form) + (let ((#{n 19413}# (#{id-var-name 4332}# - #{value 18185}# - #{w 18187}#))) - (let ((#{type 19387}# - (car (let ((#{t 20156}# - (assq #{n 19386}# - #{r 17913}#))) - (if #{t 20156}# - (cdr #{t 20156}#) - (if (symbol? #{n 19386}#) - (let ((#{t 20161}# + #{value 18212}# + #{w 18214}#))) + (let ((#{type 19414}# + (car (let ((#{t 20183}# + (assq #{n 19413}# + #{r 17940}#))) + (if #{t 20183}# + (cdr #{t 20183}#) + (if (symbol? #{n 19413}#) + (let ((#{t 20188}# (begin - (if (if (not #{mod 18189}#) + (if (if (not #{mod 18216}#) (current-module) #f) (warn "module system is booted, we should have a module" - #{n 19386}#)) - (let ((#{v 20198}# + #{n 19413}#)) + (let ((#{v 20225}# (module-variable - (if #{mod 18189}# + (if #{mod 18216}# (resolve-module - (cdr #{mod 18189}#)) + (cdr #{mod 18216}#)) (current-module)) - #{n 19386}#))) - (if #{v 20198}# + #{n 19413}#))) + (if #{v 20225}# (if (variable-bound? - #{v 20198}#) - (let ((#{val 20207}# + #{v 20225}#) + (let ((#{val 20234}# (variable-ref - #{v 20198}#))) + #{v 20225}#))) (if (macro? - #{val 20207}#) + #{val 20234}#) (if (macro-type - #{val 20207}#) + #{val 20234}#) (cons (macro-type - #{val 20207}#) + #{val 20234}#) (macro-binding - #{val 20207}#)) + #{val 20234}#)) #f) #f)) #f) #f))))) - (if #{t 20161}# - #{t 20161}# + (if #{t 20188}# + #{t 20188}# '(global))) '(displaced-lexical))))))) - (if (let ((#{t 19421}# #{type 19387}#)) - (if (eqv? #{t 19421}# 'global) + (if (let ((#{t 19448}# #{type 19414}#)) + (if (eqv? #{t 19448}# 'global) #t - (if (eqv? #{t 19421}# 'core) + (if (eqv? #{t 19448}# 'core) #t - (if (eqv? #{t 19421}# 'macro) + (if (eqv? #{t 19448}# 'macro) #t - (eqv? #{t 19421}# + (eqv? #{t 19448}# 'module-ref))))) (begin - (if (if (if (eq? #{m 17916}# 'c) + (if (if (if (eq? #{m 17943}# 'c) #t - (eq? #{m 17916}# 'c&e)) + (eq? #{m 17943}# 'c&e)) (if (not (module-local-variable (current-module) - #{n 19386}#)) + #{n 19413}#)) (current-module) #f) #f) - (let ((#{old 19585}# + (let ((#{old 19612}# (module-variable (current-module) - #{n 19386}#))) - (if (if (variable? #{old 19585}#) + #{n 19413}#))) + (if (if (variable? #{old 19612}#) (variable-bound? - #{old 19585}#) + #{old 19612}#) #f) (module-define! (current-module) - #{n 19386}# - (variable-ref #{old 19585}#)) + #{n 19413}# + (variable-ref #{old 19612}#)) (module-add! (current-module) - #{n 19386}# + #{n 19413}# (make-undefined-variable))))) (values - (cons (if (eq? #{m 17916}# 'c&e) - (let ((#{x 19587}# + (cons (if (eq? #{m 17943}# 'c&e) + (let ((#{x 19614}# (#{build-global-definition 4288}# - #{s 18188}# - #{n 19386}# - (#{chi 4345}# - #{e 18186}# - #{r 17913}# - #{w 18187}# - #{mod 18189}#)))) + #{s 18215}# + #{n 19413}# + (#{expand 4345}# + #{e 18213}# + #{r 17940}# + #{w 18214}# + #{mod 18216}#)))) (begin (#{top-level-eval-hook 4273}# - #{x 19587}# - #{mod 18189}#) - #{x 19587}#)) + #{x 19614}# + #{mod 18216}#) + #{x 19614}#)) (lambda () (#{build-global-definition 4288}# - #{s 18188}# - #{n 19386}# - (#{chi 4345}# - #{e 18186}# - #{r 17913}# - #{w 18187}# - #{mod 18189}#)))) - #{exps 17919}#))) - (if (let ((#{t 20083}# #{type 19387}#)) - (eqv? #{t 20083}# + #{s 18215}# + #{n 19413}# + (#{expand 4345}# + #{e 18213}# + #{r 17940}# + #{w 18214}# + #{mod 18216}#)))) + #{exps 17946}#))) + (if (let ((#{t 20110}# #{type 19414}#)) + (eqv? #{t 20110}# 'displaced-lexical)) (syntax-violation #f "identifier out of context" - #{e 18186}# + #{e 18213}# (#{wrap 4338}# - #{value 18185}# - #{w 18187}# - #{mod 18189}#)) + #{value 18212}# + #{w 18214}# + #{mod 18216}#)) (syntax-violation #f "cannot define keyword at top level" - #{e 18186}# + #{e 18213}# (#{wrap 4338}# - #{value 18185}# - #{w 18187}# - #{mod 18189}#)))))) + #{value 18212}# + #{w 18214}# + #{mod 18216}#)))))) (values - (cons (if (eq? #{m 17916}# 'c&e) - (let ((#{x 20218}# - (#{chi-expr 4346}# - #{type 18184}# - #{value 18185}# - #{e 18186}# - #{r 17913}# - #{w 18187}# - #{s 18188}# - #{mod 18189}#))) + (cons (if (eq? #{m 17943}# 'c&e) + (let ((#{x 20245}# + (#{expand-expr 4346}# + #{type 18211}# + #{value 18212}# + #{e 18213}# + #{r 17940}# + #{w 18214}# + #{s 18215}# + #{mod 18216}#))) (begin - (primitive-eval #{x 20218}#) - #{x 20218}#)) + (primitive-eval #{x 20245}#) + #{x 20245}#)) (lambda () - (#{chi-expr 4346}# - #{type 18184}# - #{value 18185}# - #{e 18186}# - #{r 17913}# - #{w 18187}# - #{s 18188}# - #{mod 18189}#))) - #{exps 17919}#)))))))))) - (lambda (#{exps 20227}#) - (#{scan 17781}# - (cdr #{body 17912}#) - #{r 17913}# - #{w 17914}# - #{s 17915}# - #{m 17916}# - #{esew 17917}# - #{mod 17918}# - #{exps 20227}#))))))) + (#{expand-expr 4346}# + #{type 18211}# + #{value 18212}# + #{e 18213}# + #{r 17940}# + #{w 18214}# + #{s 18215}# + #{mod 18216}#))) + #{exps 17946}#)))))))))) + (lambda (#{exps 20254}#) + (#{scan 17808}# + (cdr #{body 17939}#) + #{r 17940}# + #{w 17941}# + #{s 17942}# + #{m 17943}# + #{esew 17944}# + #{mod 17945}# + #{exps 20254}#))))))) (call-with-values (lambda () - (#{scan 17781}# - #{body 17774}# - #{r 17775}# - #{w 17776}# - #{s 17777}# - #{m 17778}# - #{esew 17779}# - #{mod 17780}# + (#{scan 17808}# + #{body 17801}# + #{r 17802}# + #{w 17803}# + #{s 17804}# + #{m 17805}# + #{esew 17806}# + #{mod 17807}# '())) - (lambda (#{exps 17784}#) - (if (null? #{exps 17784}#) + (lambda (#{exps 17811}#) + (if (null? #{exps 17811}#) (make-struct/no-tail (vector-ref %expanded-vtables 0) - #{s 17777}#) + #{s 17804}#) (#{build-sequence 4294}# - #{s 17777}# + #{s 17804}# (letrec* - ((#{lp 17824}# - (lambda (#{in 17908}# #{out 17909}#) - (if (null? #{in 17908}#) - #{out 17909}# - (let ((#{e 17910}# (car #{in 17908}#))) - (#{lp 17824}# - (cdr #{in 17908}#) - (cons (if (procedure? #{e 17910}#) - (#{e 17910}#) - #{e 17910}#) - #{out 17909}#))))))) - (#{lp 17824}# #{exps 17784}# '()))))))))) - (#{chi-install-global 4342}# - (lambda (#{name 20228}# #{e 20229}#) - (let ((#{exp 20235}# - (let ((#{fun-exp 20245}# + ((#{lp 17851}# + (lambda (#{in 17935}# #{out 17936}#) + (if (null? #{in 17935}#) + #{out 17936}# + (let ((#{e 17937}# (car #{in 17935}#))) + (#{lp 17851}# + (cdr #{in 17935}#) + (cons (if (procedure? #{e 17937}#) + (#{e 17937}#) + #{e 17937}#) + #{out 17936}#))))))) + (#{lp 17851}# #{exps 17811}# '()))))))))) + (#{expand-install-global 4342}# + (lambda (#{name 20255}# #{e 20256}#) + (let ((#{exp 20262}# + (let ((#{fun-exp 20272}# (if (equal? (module-name (current-module)) '(guile)) (make-struct/no-tail (vector-ref %expanded-vtables 7) @@ -1219,55 +1219,55 @@ '(guile) 'make-syntax-transformer #f))) - (#{arg-exps 20246}# + (#{arg-exps 20273}# (list (make-struct/no-tail (vector-ref %expanded-vtables 1) #f - #{name 20228}#) + #{name 20255}#) (make-struct/no-tail (vector-ref %expanded-vtables 1) #f 'macro) - #{e 20229}#))) + #{e 20256}#))) (make-struct/no-tail (vector-ref %expanded-vtables 11) #f - #{fun-exp 20245}# - #{arg-exps 20246}#)))) + #{fun-exp 20272}# + #{arg-exps 20273}#)))) (begin - (if (if (struct? #{exp 20235}#) - (eq? (struct-vtable #{exp 20235}#) + (if (if (struct? #{exp 20262}#) + (eq? (struct-vtable #{exp 20262}#) (vector-ref %expanded-vtables 13)) #f) - (let ((#{meta 20287}# (struct-ref #{exp 20235}# 1))) - (if (not (assq 'name #{meta 20287}#)) - (let ((#{v 20294}# - (cons (cons 'name #{name 20228}#) #{meta 20287}#))) - (struct-set! #{exp 20235}# 1 #{v 20294}#))))) + (let ((#{meta 20314}# (struct-ref #{exp 20262}# 1))) + (if (not (assq 'name #{meta 20314}#)) + (let ((#{v 20321}# + (cons (cons 'name #{name 20255}#) #{meta 20314}#))) + (struct-set! #{exp 20262}# 1 #{v 20321}#))))) (make-struct/no-tail (vector-ref %expanded-vtables 9) #f - #{name 20228}# - #{exp 20235}#))))) - (#{chi-when-list 4343}# - (lambda (#{e 20305}# #{when-list 20306}# #{w 20307}#) + #{name 20255}# + #{exp 20262}#))))) + (#{expand-when-list 4343}# + (lambda (#{e 20332}# #{when-list 20333}# #{w 20334}#) (letrec* - ((#{f 20308}# - (lambda (#{when-list 20311}# #{situations 20312}#) - (if (null? #{when-list 20311}#) - #{situations 20312}# - (#{f 20308}# - (cdr #{when-list 20311}#) - (cons (let ((#{x 20313}# (car #{when-list 20311}#))) - (if (if (eq? (if (if (vector? #{x 20313}#) - (if (= (vector-length #{x 20313}#) + ((#{f 20335}# + (lambda (#{when-list 20338}# #{situations 20339}#) + (if (null? #{when-list 20338}#) + #{situations 20339}# + (#{f 20335}# + (cdr #{when-list 20338}#) + (cons (let ((#{x 20340}# (car #{when-list 20338}#))) + (if (if (eq? (if (if (vector? #{x 20340}#) + (if (= (vector-length #{x 20340}#) 4) - (eq? (vector-ref #{x 20313}# 0) + (eq? (vector-ref #{x 20340}# 0) 'syntax-object) #f) #f) - (vector-ref #{x 20313}# 1) - #{x 20313}#) + (vector-ref #{x 20340}# 1) + #{x 20340}#) (if (if (= (vector-length '#(syntax-object compile @@ -1299,24 +1299,24 @@ (lambda-var-list gen-var strip - chi-lambda-case + expand-lambda-case lambda*-formals - chi-simple-lambda + expand-simple-lambda lambda-formals ellipsis? - chi-void + expand-void eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi + expand-local-syntax + expand-body + expand-macro + expand-application + expand-expr + expand syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence + expand-when-list + expand-install-global + expand-top-sequence + expand-sequence source-wrap wrap bound-id-member? @@ -1712,890 +1712,9 @@ ("i46" "i45" "i44"))) (hygiene guile))) 4) - (eq? (vector-ref - '#(syntax-object - compile - ((top) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i1754")) - #(ribcage () () ()) - #(ribcage - #(f - when-list - situations) - #((top) (top) (top)) - #("i1748" - "i1749" - "i1750")) - #(ribcage () () ()) - #(ribcage - #(e when-list w) - #((top) (top) (top)) - #("i1745" - "i1746" - "i1747")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("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")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i46" "i45" "i44"))) - (hygiene guile)) - 0) - 'syntax-object) + #t #f) - (vector-ref - '#(syntax-object - compile - ((top) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i1754")) - #(ribcage () () ()) - #(ribcage - #(f when-list situations) - #((top) (top) (top)) - #("i1748" "i1749" "i1750")) - #(ribcage () () ()) - #(ribcage - #(e when-list w) - #((top) (top) (top)) - #("i1745" "i1746" "i1747")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("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")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i46" "i45" "i44"))) - (hygiene guile)) - 1) + 'compile '#(syntax-object compile ((top) @@ -2620,24 +1739,24 @@ (lambda-var-list gen-var strip - chi-lambda-case + expand-lambda-case lambda*-formals - chi-simple-lambda + expand-simple-lambda lambda-formals ellipsis? - chi-void + expand-void eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi + expand-local-syntax + expand-body + expand-macro + expand-application + expand-expr + expand syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence + expand-when-list + expand-install-global + expand-top-sequence + expand-sequence source-wrap wrap bound-id-member? @@ -3032,7 +2151,7 @@ ((top) (top) (top)) ("i46" "i45" "i44"))) (hygiene guile)))) - (eq? (#{id-var-name 4332}# #{x 20313}# '(())) + (eq? (#{id-var-name 4332}# #{x 20340}# '(())) (#{id-var-name 4332}# '#(syntax-object compile @@ -3055,24 +2174,24 @@ (lambda-var-list gen-var strip - chi-lambda-case + expand-lambda-case lambda*-formals - chi-simple-lambda + expand-simple-lambda lambda-formals ellipsis? - chi-void + expand-void eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi + expand-local-syntax + expand-body + expand-macro + expand-application + expand-expr + expand syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence + expand-when-list + expand-install-global + expand-top-sequence + expand-sequence source-wrap wrap bound-id-member? @@ -3470,18 +2589,18 @@ '(()))) #f) 'compile - (if (if (eq? (if (if (vector? #{x 20313}#) + (if (if (eq? (if (if (vector? #{x 20340}#) (if (= (vector-length - #{x 20313}#) + #{x 20340}#) 4) (eq? (vector-ref - #{x 20313}# + #{x 20340}# 0) 'syntax-object) #f) #f) - (vector-ref #{x 20313}# 1) - #{x 20313}#) + (vector-ref #{x 20340}# 1) + #{x 20340}#) (if (if (= (vector-length '#(syntax-object load @@ -3517,24 +2636,24 @@ (lambda-var-list gen-var strip - chi-lambda-case + expand-lambda-case lambda*-formals - chi-simple-lambda + expand-simple-lambda lambda-formals ellipsis? - chi-void + expand-void eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi + expand-local-syntax + expand-body + expand-macro + expand-application + expand-expr + expand syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence + expand-when-list + expand-install-global + expand-top-sequence + expand-sequence source-wrap wrap bound-id-member? @@ -3932,896 +3051,9 @@ "i44"))) (hygiene guile))) 4) - (eq? (vector-ref - '#(syntax-object - load - ((top) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i1754")) - #(ribcage () () ()) - #(ribcage - #(f - when-list - situations) - #((top) - (top) - (top)) - #("i1748" - "i1749" - "i1750")) - #(ribcage () () ()) - #(ribcage - #(e when-list w) - #((top) - (top) - (top)) - #("i1745" - "i1746" - "i1747")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("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")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i46" - "i45" - "i44"))) - (hygiene guile)) - 0) - 'syntax-object) + #t #f) - (vector-ref - '#(syntax-object - load - ((top) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i1754")) - #(ribcage () () ()) - #(ribcage - #(f when-list situations) - #((top) (top) (top)) - #("i1748" "i1749" "i1750")) - #(ribcage () () ()) - #(ribcage - #(e when-list w) - #((top) (top) (top)) - #("i1745" "i1746" "i1747")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("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")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i46" "i45" "i44"))) - (hygiene guile)) - 1) + 'load '#(syntax-object load ((top) @@ -4846,24 +3078,24 @@ (lambda-var-list gen-var strip - chi-lambda-case + expand-lambda-case lambda*-formals - chi-simple-lambda + expand-simple-lambda lambda-formals ellipsis? - chi-void + expand-void eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi + expand-local-syntax + expand-body + expand-macro + expand-application + expand-expr + expand syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence + expand-when-list + expand-install-global + expand-top-sequence + expand-sequence source-wrap wrap bound-id-member? @@ -5258,7 +3490,7 @@ ((top) (top) (top)) ("i46" "i45" "i44"))) (hygiene guile)))) - (eq? (#{id-var-name 4332}# #{x 20313}# '(())) + (eq? (#{id-var-name 4332}# #{x 20340}# '(())) (#{id-var-name 4332}# '#(syntax-object load @@ -5284,24 +3516,24 @@ (lambda-var-list gen-var strip - chi-lambda-case + expand-lambda-case lambda*-formals - chi-simple-lambda + expand-simple-lambda lambda-formals ellipsis? - chi-void + expand-void eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi + expand-local-syntax + expand-body + expand-macro + expand-application + expand-expr + expand syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence + expand-when-list + expand-install-global + expand-top-sequence + expand-sequence source-wrap wrap bound-id-member? @@ -5699,18 +3931,18 @@ '(()))) #f) 'load - (if (if (eq? (if (if (vector? #{x 20313}#) + (if (if (eq? (if (if (vector? #{x 20340}#) (if (= (vector-length - #{x 20313}#) + #{x 20340}#) 4) (eq? (vector-ref - #{x 20313}# + #{x 20340}# 0) 'syntax-object) #f) #f) - (vector-ref #{x 20313}# 1) - #{x 20313}#) + (vector-ref #{x 20340}# 1) + #{x 20340}#) (if (if (= (vector-length '#(syntax-object eval @@ -5746,24 +3978,24 @@ (lambda-var-list gen-var strip - chi-lambda-case + expand-lambda-case lambda*-formals - chi-simple-lambda + expand-simple-lambda lambda-formals ellipsis? - chi-void + expand-void eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi + expand-local-syntax + expand-body + expand-macro + expand-application + expand-expr + expand syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence + expand-when-list + expand-install-global + expand-top-sequence + expand-sequence source-wrap wrap bound-id-member? @@ -6163,902 +4395,9 @@ "i44"))) (hygiene guile))) 4) - (eq? (vector-ref - '#(syntax-object - eval - ((top) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i1754")) - #(ribcage () () ()) - #(ribcage - #(f - when-list - situations) - #((top) - (top) - (top)) - #("i1748" - "i1749" - "i1750")) - #(ribcage () () ()) - #(ribcage - #(e when-list w) - #((top) - (top) - (top)) - #("i1745" - "i1746" - "i1747")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("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")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) - (top) - (top)) - ("i46" - "i45" - "i44"))) - (hygiene guile)) - 0) - 'syntax-object) + #t #f) - (vector-ref - '#(syntax-object - eval - ((top) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i1754")) - #(ribcage () () ()) - #(ribcage - #(f when-list situations) - #((top) (top) (top)) - #("i1748" - "i1749" - "i1750")) - #(ribcage () () ()) - #(ribcage - #(e when-list w) - #((top) (top) (top)) - #("i1745" - "i1746" - "i1747")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("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")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i46" "i45" "i44"))) - (hygiene guile)) - 1) + 'eval '#(syntax-object eval ((top) @@ -7083,24 +4422,24 @@ (lambda-var-list gen-var strip - chi-lambda-case + expand-lambda-case lambda*-formals - chi-simple-lambda + expand-simple-lambda lambda-formals ellipsis? - chi-void + expand-void eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi + expand-local-syntax + expand-body + expand-macro + expand-application + expand-expr + expand syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence + expand-when-list + expand-install-global + expand-top-sequence + expand-sequence source-wrap wrap bound-id-member? @@ -7496,7 +4835,7 @@ ("i46" "i45" "i44"))) (hygiene guile)))) (eq? (#{id-var-name 4332}# - #{x 20313}# + #{x 20340}# '(())) (#{id-var-name 4332}# '#(syntax-object @@ -7523,24 +4862,24 @@ (lambda-var-list gen-var strip - chi-lambda-case + expand-lambda-case lambda*-formals - chi-simple-lambda + expand-simple-lambda lambda-formals ellipsis? - chi-void + expand-void eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi + expand-local-syntax + expand-body + expand-macro + expand-application + expand-expr + expand syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence + expand-when-list + expand-install-global + expand-top-sequence + expand-sequence source-wrap wrap bound-id-member? @@ -7938,2651 +5277,374 @@ '(()))) #f) 'eval - (if (if (eq? (if (if (vector? #{x 20313}#) - (if (= (vector-length - #{x 20313}#) - 4) - (eq? (vector-ref - #{x 20313}# - 0) - 'syntax-object) - #f) - #f) - (vector-ref #{x 20313}# 1) - #{x 20313}#) - (if (if (= (vector-length - '#(syntax-object - expand - ((top) - #(ribcage - () - () - ()) - #(ribcage - () - () - ()) - #(ribcage - () - () - ()) - #(ribcage - #(x) - #((top)) - #("i1754")) - #(ribcage - () - () - ()) - #(ribcage - #(f - when-list - situations) - #((top) - (top) - (top)) - #("i1748" - "i1749" - "i1750")) - #(ribcage - () - () - ()) - #(ribcage - #(e - when-list - w) - #((top) - (top) - (top)) - #("i1745" - "i1746" - "i1747")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("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")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) - (top) - (top)) - ("i46" - "i45" - "i44"))) - (hygiene guile))) - 4) - (eq? (vector-ref - '#(syntax-object - expand - ((top) - #(ribcage - () - () - ()) - #(ribcage - () - () - ()) - #(ribcage - () - () - ()) - #(ribcage - #(x) - #((top)) - #("i1754")) - #(ribcage - () - () - ()) - #(ribcage - #(f - when-list - situations) - #((top) - (top) - (top)) - #("i1748" - "i1749" - "i1750")) - #(ribcage - () - () - ()) - #(ribcage - #(e - when-list - w) - #((top) - (top) - (top)) - #("i1745" - "i1746" - "i1747")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("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")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) - (top) - (top)) - ("i46" - "i45" - "i44"))) - (hygiene guile)) - 0) - 'syntax-object) - #f) - (vector-ref - '#(syntax-object - expand - ((top) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i1754")) - #(ribcage () () ()) - #(ribcage - #(f - when-list - situations) - #((top) (top) (top)) - #("i1748" - "i1749" - "i1750")) - #(ribcage () () ()) - #(ribcage - #(e when-list w) - #((top) (top) (top)) - #("i1745" - "i1746" - "i1747")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("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")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i46" "i45" "i44"))) - (hygiene guile)) - 1) - '#(syntax-object - expand - ((top) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i1754")) - #(ribcage () () ()) - #(ribcage - #(f when-list situations) - #((top) (top) (top)) - #("i1748" - "i1749" - "i1750")) - #(ribcage () () ()) - #(ribcage - #(e when-list w) - #((top) (top) (top)) - #("i1745" - "i1746" - "i1747")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("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")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i46" "i45" "i44"))) - (hygiene guile)))) - (eq? (#{id-var-name 4332}# - #{x 20313}# - '(())) - (#{id-var-name 4332}# - '#(syntax-object - expand - ((top) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i1754")) - #(ribcage () () ()) - #(ribcage - #(f when-list situations) - #((top) (top) (top)) - #("i1748" "i1749" "i1750")) - #(ribcage () () ()) - #(ribcage - #(e when-list w) - #((top) (top) (top)) - #("i1745" "i1746" "i1747")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("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")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i46" "i45" "i44"))) - (hygiene guile)) - '(()))) - #f) + (if (eq? (syntax->datum #{x 20340}#) 'expand) 'expand (syntax-violation 'eval-when "invalid situation" - #{e 20305}# + #{e 20332}# (#{wrap 4338}# - #{x 20313}# - #{w 20307}# + #{x 20340}# + #{w 20334}# #f))))))) - #{situations 20312}#)))))) - (#{f 20308}# #{when-list 20306}# '())))) + #{situations 20339}#)))))) + (#{f 20335}# #{when-list 20333}# '())))) (#{syntax-type 4344}# - (lambda (#{e 20516}# - #{r 20517}# - #{w 20518}# - #{s 20519}# - #{rib 20520}# - #{mod 20521}# - #{for-car? 20522}#) - (if (symbol? #{e 20516}#) - (let ((#{n 20523}# - (#{id-var-name 4332}# #{e 20516}# #{w 20518}#))) - (let ((#{b 20524}# - (let ((#{t 21099}# (assq #{n 20523}# #{r 20517}#))) - (if #{t 21099}# - (cdr #{t 21099}#) - (if (symbol? #{n 20523}#) - (let ((#{t 21104}# + (lambda (#{e 20502}# + #{r 20503}# + #{w 20504}# + #{s 20505}# + #{rib 20506}# + #{mod 20507}# + #{for-car? 20508}#) + (if (symbol? #{e 20502}#) + (let ((#{n 20509}# + (#{id-var-name 4332}# #{e 20502}# #{w 20504}#))) + (let ((#{b 20510}# + (let ((#{t 21085}# (assq #{n 20509}# #{r 20503}#))) + (if #{t 21085}# + (cdr #{t 21085}#) + (if (symbol? #{n 20509}#) + (let ((#{t 21090}# (begin - (if (if (not #{mod 20521}#) + (if (if (not #{mod 20507}#) (current-module) #f) (warn "module system is booted, we should have a module" - #{n 20523}#)) - (let ((#{v 21141}# + #{n 20509}#)) + (let ((#{v 21127}# (module-variable - (if #{mod 20521}# + (if #{mod 20507}# (resolve-module - (cdr #{mod 20521}#)) + (cdr #{mod 20507}#)) (current-module)) - #{n 20523}#))) - (if #{v 21141}# - (if (variable-bound? #{v 21141}#) - (let ((#{val 21150}# - (variable-ref #{v 21141}#))) - (if (macro? #{val 21150}#) - (if (macro-type #{val 21150}#) - (cons (macro-type #{val 21150}#) + #{n 20509}#))) + (if #{v 21127}# + (if (variable-bound? #{v 21127}#) + (let ((#{val 21136}# + (variable-ref #{v 21127}#))) + (if (macro? #{val 21136}#) + (if (macro-type #{val 21136}#) + (cons (macro-type #{val 21136}#) (macro-binding - #{val 21150}#)) + #{val 21136}#)) #f) #f)) #f) #f))))) - (if #{t 21104}# #{t 21104}# '(global))) + (if #{t 21090}# #{t 21090}# '(global))) '(displaced-lexical)))))) - (let ((#{type 20525}# (car #{b 20524}#))) - (if (let ((#{t 20559}# #{type 20525}#)) - (eqv? #{t 20559}# 'lexical)) + (let ((#{type 20511}# (car #{b 20510}#))) + (if (let ((#{t 20545}# #{type 20511}#)) + (eqv? #{t 20545}# 'lexical)) (values - #{type 20525}# - (cdr #{b 20524}#) - #{e 20516}# - #{w 20518}# - #{s 20519}# - #{mod 20521}#) - (if (let ((#{t 20716}# #{type 20525}#)) - (eqv? #{t 20716}# 'global)) + #{type 20511}# + (cdr #{b 20510}#) + #{e 20502}# + #{w 20504}# + #{s 20505}# + #{mod 20507}#) + (if (let ((#{t 20702}# #{type 20511}#)) + (eqv? #{t 20702}# 'global)) (values - #{type 20525}# - #{n 20523}# - #{e 20516}# - #{w 20518}# - #{s 20519}# - #{mod 20521}#) - (if (let ((#{t 20842}# #{type 20525}#)) - (eqv? #{t 20842}# 'macro)) - (if #{for-car? 20522}# + #{type 20511}# + #{n 20509}# + #{e 20502}# + #{w 20504}# + #{s 20505}# + #{mod 20507}#) + (if (let ((#{t 20828}# #{type 20511}#)) + (eqv? #{t 20828}# 'macro)) + (if #{for-car? 20508}# (values - #{type 20525}# - (cdr #{b 20524}#) - #{e 20516}# - #{w 20518}# - #{s 20519}# - #{mod 20521}#) + #{type 20511}# + (cdr #{b 20510}#) + #{e 20502}# + #{w 20504}# + #{s 20505}# + #{mod 20507}#) (#{syntax-type 4344}# - (#{chi-macro 4348}# - (cdr #{b 20524}#) - #{e 20516}# - #{r 20517}# - #{w 20518}# - #{s 20519}# - #{rib 20520}# - #{mod 20521}#) - #{r 20517}# + (#{expand-macro 4348}# + (cdr #{b 20510}#) + #{e 20502}# + #{r 20503}# + #{w 20504}# + #{s 20505}# + #{rib 20506}# + #{mod 20507}#) + #{r 20503}# '(()) - #{s 20519}# - #{rib 20520}# - #{mod 20521}# + #{s 20505}# + #{rib 20506}# + #{mod 20507}# #f)) (values - #{type 20525}# - (cdr #{b 20524}#) - #{e 20516}# - #{w 20518}# - #{s 20519}# - #{mod 20521}#))))))) - (if (pair? #{e 20516}#) - (let ((#{first 21161}# (car #{e 20516}#))) + #{type 20511}# + (cdr #{b 20510}#) + #{e 20502}# + #{w 20504}# + #{s 20505}# + #{mod 20507}#))))))) + (if (pair? #{e 20502}#) + (let ((#{first 21147}# (car #{e 20502}#))) (call-with-values (lambda () (#{syntax-type 4344}# - #{first 21161}# - #{r 20517}# - #{w 20518}# - #{s 20519}# - #{rib 20520}# - #{mod 20521}# + #{first 21147}# + #{r 20503}# + #{w 20504}# + #{s 20505}# + #{rib 20506}# + #{mod 20507}# #t)) - (lambda (#{ftype 21163}# - #{fval 21164}# - #{fe 21165}# - #{fw 21166}# - #{fs 21167}# - #{fmod 21168}#) - (if (eqv? #{ftype 21163}# 'lexical) + (lambda (#{ftype 21149}# + #{fval 21150}# + #{fe 21151}# + #{fw 21152}# + #{fs 21153}# + #{fmod 21154}#) + (if (eqv? #{ftype 21149}# 'lexical) (values 'lexical-call - #{fval 21164}# - #{e 20516}# - #{w 20518}# - #{s 20519}# - #{mod 20521}#) - (if (eqv? #{ftype 21163}# 'global) + #{fval 21150}# + #{e 20502}# + #{w 20504}# + #{s 20505}# + #{mod 20507}#) + (if (eqv? #{ftype 21149}# 'global) (values 'global-call (vector 'syntax-object - #{fval 21164}# - #{w 20518}# - #{fmod 21168}#) - #{e 20516}# - #{w 20518}# - #{s 20519}# - #{mod 20521}#) - (if (eqv? #{ftype 21163}# 'macro) + #{fval 21150}# + #{w 20504}# + #{fmod 21154}#) + #{e 20502}# + #{w 20504}# + #{s 20505}# + #{mod 20507}#) + (if (eqv? #{ftype 21149}# 'macro) (#{syntax-type 4344}# - (#{chi-macro 4348}# - #{fval 21164}# - #{e 20516}# - #{r 20517}# - #{w 20518}# - #{s 20519}# - #{rib 20520}# - #{mod 20521}#) - #{r 20517}# + (#{expand-macro 4348}# + #{fval 21150}# + #{e 20502}# + #{r 20503}# + #{w 20504}# + #{s 20505}# + #{rib 20506}# + #{mod 20507}#) + #{r 20503}# '(()) - #{s 20519}# - #{rib 20520}# - #{mod 20521}# - #{for-car? 20522}#) - (if (eqv? #{ftype 21163}# 'module-ref) + #{s 20505}# + #{rib 20506}# + #{mod 20507}# + #{for-car? 20508}#) + (if (eqv? #{ftype 21149}# 'module-ref) (call-with-values (lambda () - (#{fval 21164}# - #{e 20516}# - #{r 20517}# - #{w 20518}#)) - (lambda (#{e 21189}# - #{r 21190}# - #{w 21191}# - #{s 21192}# - #{mod 21193}#) + (#{fval 21150}# + #{e 20502}# + #{r 20503}# + #{w 20504}#)) + (lambda (#{e 21175}# + #{r 21176}# + #{w 21177}# + #{s 21178}# + #{mod 21179}#) (#{syntax-type 4344}# - #{e 21189}# - #{r 21190}# - #{w 21191}# - #{s 21192}# - #{rib 20520}# - #{mod 21193}# - #{for-car? 20522}#))) - (if (eqv? #{ftype 21163}# 'core) + #{e 21175}# + #{r 21176}# + #{w 21177}# + #{s 21178}# + #{rib 20506}# + #{mod 21179}# + #{for-car? 20508}#))) + (if (eqv? #{ftype 21149}# 'core) (values 'core-form - #{fval 21164}# - #{e 20516}# - #{w 20518}# - #{s 20519}# - #{mod 20521}#) - (if (eqv? #{ftype 21163}# 'local-syntax) + #{fval 21150}# + #{e 20502}# + #{w 20504}# + #{s 20505}# + #{mod 20507}#) + (if (eqv? #{ftype 21149}# 'local-syntax) (values 'local-syntax-form - #{fval 21164}# - #{e 20516}# - #{w 20518}# - #{s 20519}# - #{mod 20521}#) - (if (eqv? #{ftype 21163}# 'begin) + #{fval 21150}# + #{e 20502}# + #{w 20504}# + #{s 20505}# + #{mod 20507}#) + (if (eqv? #{ftype 21149}# 'begin) (values 'begin-form #f - #{e 20516}# - #{w 20518}# - #{s 20519}# - #{mod 20521}#) - (if (eqv? #{ftype 21163}# 'eval-when) + #{e 20502}# + #{w 20504}# + #{s 20505}# + #{mod 20507}#) + (if (eqv? #{ftype 21149}# 'eval-when) (values 'eval-when-form #f - #{e 20516}# - #{w 20518}# - #{s 20519}# - #{mod 20521}#) - (if (eqv? #{ftype 21163}# 'define) - (let ((#{tmp 21210}# + #{e 20502}# + #{w 20504}# + #{s 20505}# + #{mod 20507}#) + (if (eqv? #{ftype 21149}# 'define) + (let ((#{tmp 21196}# ($sc-dispatch - #{e 20516}# + #{e 20502}# '(_ any any)))) - (if (if #{tmp 21210}# + (if (if #{tmp 21196}# (@apply - (lambda (#{name 21214}# - #{val 21215}#) - (if (symbol? #{name 21214}#) + (lambda (#{name 21200}# + #{val 21201}#) + (if (symbol? #{name 21200}#) #t (if (if (vector? - #{name 21214}#) + #{name 21200}#) (if (= (vector-length - #{name 21214}#) + #{name 21200}#) 4) (eq? (vector-ref - #{name 21214}# + #{name 21200}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{name 21214}# + #{name 21200}# 1)) #f))) - #{tmp 21210}#) + #{tmp 21196}#) #f) (@apply - (lambda (#{name 21242}# #{val 21243}#) + (lambda (#{name 21228}# #{val 21229}#) (values 'define-form - #{name 21242}# - #{val 21243}# - #{w 20518}# - #{s 20519}# - #{mod 20521}#)) - #{tmp 21210}#) - (let ((#{tmp 21244}# + #{name 21228}# + #{val 21229}# + #{w 20504}# + #{s 20505}# + #{mod 20507}#)) + #{tmp 21196}#) + (let ((#{tmp 21230}# ($sc-dispatch - #{e 20516}# + #{e 20502}# '(_ (any . any) any . each-any)))) - (if (if #{tmp 21244}# + (if (if #{tmp 21230}# (@apply - (lambda (#{name 21248}# - #{args 21249}# - #{e1 21250}# - #{e2 21251}#) + (lambda (#{name 21234}# + #{args 21235}# + #{e1 21236}# + #{e2 21237}#) (if (if (symbol? - #{name 21248}#) + #{name 21234}#) #t (if (if (vector? - #{name 21248}#) + #{name 21234}#) (if (= (vector-length - #{name 21248}#) + #{name 21234}#) 4) (eq? (vector-ref - #{name 21248}# + #{name 21234}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{name 21248}# + #{name 21234}# 1)) #f)) (#{valid-bound-ids? 4335}# (letrec* - ((#{lvl 21400}# - (lambda (#{vars 21402}# - #{ls 21403}# - #{w 21404}#) - (if (pair? #{vars 21402}#) - (#{lvl 21400}# - (cdr #{vars 21402}#) + ((#{lvl 21386}# + (lambda (#{vars 21388}# + #{ls 21389}# + #{w 21390}#) + (if (pair? #{vars 21388}#) + (#{lvl 21386}# + (cdr #{vars 21388}#) (cons (#{wrap 4338}# - (car #{vars 21402}#) - #{w 21404}# + (car #{vars 21388}#) + #{w 21390}# #f) - #{ls 21403}#) - #{w 21404}#) + #{ls 21389}#) + #{w 21390}#) (if (if (symbol? - #{vars 21402}#) + #{vars 21388}#) #t (if (if (vector? - #{vars 21402}#) + #{vars 21388}#) (if (= (vector-length - #{vars 21402}#) + #{vars 21388}#) 4) (eq? (vector-ref - #{vars 21402}# + #{vars 21388}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{vars 21402}# + #{vars 21388}# 1)) #f)) (cons (#{wrap 4338}# - #{vars 21402}# - #{w 21404}# + #{vars 21388}# + #{w 21390}# #f) - #{ls 21403}#) - (if (null? #{vars 21402}#) - #{ls 21403}# + #{ls 21389}#) + (if (null? #{vars 21388}#) + #{ls 21389}# (if (if (vector? - #{vars 21402}#) + #{vars 21388}#) (if (= (vector-length - #{vars 21402}#) + #{vars 21388}#) 4) (eq? (vector-ref - #{vars 21402}# + #{vars 21388}# 0) 'syntax-object) #f) #f) - (#{lvl 21400}# + (#{lvl 21386}# (vector-ref - #{vars 21402}# + #{vars 21388}# 1) - #{ls 21403}# + #{ls 21389}# (#{join-wraps 4329}# - #{w 21404}# + #{w 21390}# (vector-ref - #{vars 21402}# + #{vars 21388}# 2))) - (cons #{vars 21402}# - #{ls 21403}#)))))))) - (#{lvl 21400}# - #{args 21249}# + (cons #{vars 21388}# + #{ls 21389}#)))))))) + (#{lvl 21386}# + #{args 21235}# '() '(())))) #f)) - #{tmp 21244}#) + #{tmp 21230}#) #f) (@apply - (lambda (#{name 21448}# - #{args 21449}# - #{e1 21450}# - #{e2 21451}#) + (lambda (#{name 21434}# + #{args 21435}# + #{e1 21436}# + #{e2 21437}#) (values 'define-form (#{wrap 4338}# - #{name 21448}# - #{w 20518}# - #{mod 20521}#) - (let ((#{e 21457}# + #{name 21434}# + #{w 20504}# + #{mod 20507}#) + (let ((#{e 21443}# (cons '#(syntax-object lambda ((top) @@ -10672,24 +5734,24 @@ (lambda-var-list gen-var strip - chi-lambda-case + expand-lambda-case lambda*-formals - chi-simple-lambda + expand-simple-lambda lambda-formals ellipsis? - chi-void + expand-void eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi + expand-local-syntax + expand-body + expand-macro + expand-application + expand-expr + expand syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence + expand-when-list + expand-install-global + expand-top-sequence + expand-sequence source-wrap wrap bound-id-member? @@ -11090,59 +6152,59 @@ (hygiene guile)) (#{wrap 4338}# - (cons #{args 21449}# - (cons #{e1 21450}# - #{e2 21451}#)) - #{w 20518}# - #{mod 20521}#)))) + (cons #{args 21435}# + (cons #{e1 21436}# + #{e2 21437}#)) + #{w 20504}# + #{mod 20507}#)))) (begin - (if (if (pair? #{e 21457}#) - #{s 20519}# + (if (if (pair? #{e 21443}#) + #{s 20505}# #f) (set-source-properties! - #{e 21457}# - #{s 20519}#)) - #{e 21457}#)) + #{e 21443}# + #{s 20505}#)) + #{e 21443}#)) '(()) - #{s 20519}# - #{mod 20521}#)) - #{tmp 21244}#) - (let ((#{tmp 21464}# + #{s 20505}# + #{mod 20507}#)) + #{tmp 21230}#) + (let ((#{tmp 21450}# ($sc-dispatch - #{e 20516}# + #{e 20502}# '(_ any)))) - (if (if #{tmp 21464}# + (if (if #{tmp 21450}# (@apply - (lambda (#{name 21468}#) + (lambda (#{name 21454}#) (if (symbol? - #{name 21468}#) + #{name 21454}#) #t (if (if (vector? - #{name 21468}#) + #{name 21454}#) (if (= (vector-length - #{name 21468}#) + #{name 21454}#) 4) (eq? (vector-ref - #{name 21468}# + #{name 21454}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{name 21468}# + #{name 21454}# 1)) #f))) - #{tmp 21464}#) + #{tmp 21450}#) #f) (@apply - (lambda (#{name 21495}#) + (lambda (#{name 21481}#) (values 'define-form (#{wrap 4338}# - #{name 21495}# - #{w 20518}# - #{mod 20521}#) + #{name 21481}# + #{w 20504}# + #{mod 20507}#) '(#(syntax-object if ((top) @@ -11205,24 +6267,24 @@ (lambda-var-list gen-var strip - chi-lambda-case + expand-lambda-case lambda*-formals - chi-simple-lambda + expand-simple-lambda lambda-formals ellipsis? - chi-void + expand-void eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi + expand-local-syntax + expand-body + expand-macro + expand-application + expand-expr + expand syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence + expand-when-list + expand-install-global + expand-top-sequence + expand-sequence source-wrap wrap bound-id-member? @@ -11681,24 +6743,24 @@ (lambda-var-list gen-var strip - chi-lambda-case + expand-lambda-case lambda*-formals - chi-simple-lambda + expand-simple-lambda lambda-formals ellipsis? - chi-void + expand-void eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi + expand-local-syntax + expand-body + expand-macro + expand-application + expand-expr + expand syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence + expand-when-list + expand-install-global + expand-top-sequence + expand-sequence source-wrap wrap bound-id-member? @@ -12157,24 +7219,24 @@ (lambda-var-list gen-var strip - chi-lambda-case + expand-lambda-case lambda*-formals - chi-simple-lambda + expand-simple-lambda lambda-formals ellipsis? - chi-void + expand-void eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi + expand-local-syntax + expand-body + expand-macro + expand-application + expand-expr + expand syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence + expand-when-list + expand-install-global + expand-top-sequence + expand-sequence source-wrap wrap bound-id-member? @@ -12572,947 +7634,947 @@ "i44"))) (hygiene guile))) '(()) - #{s 20519}# - #{mod 20521}#)) - #{tmp 21464}#) + #{s 20505}# + #{mod 20507}#)) + #{tmp 21450}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 20516}#))))))) - (if (eqv? #{ftype 21163}# 'define-syntax) - (let ((#{tmp 21514}# + #{e 20502}#))))))) + (if (eqv? #{ftype 21149}# 'define-syntax) + (let ((#{tmp 21500}# ($sc-dispatch - #{e 20516}# + #{e 20502}# '(_ any any)))) - (if (if #{tmp 21514}# + (if (if #{tmp 21500}# (@apply - (lambda (#{name 21518}# - #{val 21519}#) - (if (symbol? #{name 21518}#) + (lambda (#{name 21504}# + #{val 21505}#) + (if (symbol? #{name 21504}#) #t (if (if (vector? - #{name 21518}#) + #{name 21504}#) (if (= (vector-length - #{name 21518}#) + #{name 21504}#) 4) (eq? (vector-ref - #{name 21518}# + #{name 21504}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{name 21518}# + #{name 21504}# 1)) #f))) - #{tmp 21514}#) + #{tmp 21500}#) #f) (@apply - (lambda (#{name 21546}# - #{val 21547}#) + (lambda (#{name 21532}# + #{val 21533}#) (values 'define-syntax-form - #{name 21546}# - #{val 21547}# - #{w 20518}# - #{s 20519}# - #{mod 20521}#)) - #{tmp 21514}#) + #{name 21532}# + #{val 21533}# + #{w 20504}# + #{s 20505}# + #{mod 20507}#)) + #{tmp 21500}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 20516}#))) + #{e 20502}#))) (values 'call #f - #{e 20516}# - #{w 20518}# - #{s 20519}# - #{mod 20521}#)))))))))))))) - (if (if (vector? #{e 20516}#) - (if (= (vector-length #{e 20516}#) 4) - (eq? (vector-ref #{e 20516}# 0) 'syntax-object) + #{e 20502}# + #{w 20504}# + #{s 20505}# + #{mod 20507}#)))))))))))))) + (if (if (vector? #{e 20502}#) + (if (= (vector-length #{e 20502}#) 4) + (eq? (vector-ref #{e 20502}# 0) 'syntax-object) #f) #f) (#{syntax-type 4344}# - (vector-ref #{e 20516}# 1) - #{r 20517}# + (vector-ref #{e 20502}# 1) + #{r 20503}# (#{join-wraps 4329}# - #{w 20518}# - (vector-ref #{e 20516}# 2)) - (let ((#{t 21574}# - (#{source-annotation 4306}# #{e 20516}#))) - (if #{t 21574}# #{t 21574}# #{s 20519}#)) - #{rib 20520}# - (let ((#{t 21834}# (vector-ref #{e 20516}# 3))) - (if #{t 21834}# #{t 21834}# #{mod 20521}#)) - #{for-car? 20522}#) - (if (self-evaluating? #{e 20516}#) + #{w 20504}# + (vector-ref #{e 20502}# 2)) + (let ((#{t 21560}# + (#{source-annotation 4306}# #{e 20502}#))) + (if #{t 21560}# #{t 21560}# #{s 20505}#)) + #{rib 20506}# + (let ((#{t 21820}# (vector-ref #{e 20502}# 3))) + (if #{t 21820}# #{t 21820}# #{mod 20507}#)) + #{for-car? 20508}#) + (if (self-evaluating? #{e 20502}#) (values 'constant #f - #{e 20516}# - #{w 20518}# - #{s 20519}# - #{mod 20521}#) + #{e 20502}# + #{w 20504}# + #{s 20505}# + #{mod 20507}#) (values 'other #f - #{e 20516}# - #{w 20518}# - #{s 20519}# - #{mod 20521}#))))))) - (#{chi 4345}# - (lambda (#{e 21843}# - #{r 21844}# - #{w 21845}# - #{mod 21846}#) + #{e 20502}# + #{w 20504}# + #{s 20505}# + #{mod 20507}#))))))) + (#{expand 4345}# + (lambda (#{e 21829}# + #{r 21830}# + #{w 21831}# + #{mod 21832}#) (call-with-values (lambda () (#{syntax-type 4344}# - #{e 21843}# - #{r 21844}# - #{w 21845}# - (#{source-annotation 4306}# #{e 21843}#) + #{e 21829}# + #{r 21830}# + #{w 21831}# + (#{source-annotation 4306}# #{e 21829}#) #f - #{mod 21846}# + #{mod 21832}# #f)) - (lambda (#{type 22020}# - #{value 22021}# - #{e 22022}# - #{w 22023}# - #{s 22024}# - #{mod 22025}#) - (#{chi-expr 4346}# - #{type 22020}# - #{value 22021}# - #{e 22022}# - #{r 21844}# - #{w 22023}# - #{s 22024}# - #{mod 22025}#))))) - (#{chi-expr 4346}# - (lambda (#{type 22028}# - #{value 22029}# - #{e 22030}# - #{r 22031}# - #{w 22032}# - #{s 22033}# - #{mod 22034}#) - (if (eqv? #{type 22028}# 'lexical) + (lambda (#{type 22006}# + #{value 22007}# + #{e 22008}# + #{w 22009}# + #{s 22010}# + #{mod 22011}#) + (#{expand-expr 4346}# + #{type 22006}# + #{value 22007}# + #{e 22008}# + #{r 21830}# + #{w 22009}# + #{s 22010}# + #{mod 22011}#))))) + (#{expand-expr 4346}# + (lambda (#{type 22014}# + #{value 22015}# + #{e 22016}# + #{r 22017}# + #{w 22018}# + #{s 22019}# + #{mod 22020}#) + (if (eqv? #{type 22014}# 'lexical) (make-struct/no-tail (vector-ref %expanded-vtables 3) - #{s 22033}# - #{e 22030}# - #{value 22029}#) - (if (if (eqv? #{type 22028}# 'core) + #{s 22019}# + #{e 22016}# + #{value 22015}#) + (if (if (eqv? #{type 22014}# 'core) #t - (eqv? #{type 22028}# 'core-form)) - (#{value 22029}# - #{e 22030}# - #{r 22031}# - #{w 22032}# - #{s 22033}# - #{mod 22034}#) - (if (eqv? #{type 22028}# 'module-ref) + (eqv? #{type 22014}# 'core-form)) + (#{value 22015}# + #{e 22016}# + #{r 22017}# + #{w 22018}# + #{s 22019}# + #{mod 22020}#) + (if (eqv? #{type 22014}# 'module-ref) (call-with-values (lambda () - (#{value 22029}# - #{e 22030}# - #{r 22031}# - #{w 22032}#)) - (lambda (#{e 22060}# - #{r 22061}# - #{w 22062}# - #{s 22063}# - #{mod 22064}#) - (#{chi 4345}# - #{e 22060}# - #{r 22061}# - #{w 22062}# - #{mod 22064}#))) - (if (eqv? #{type 22028}# 'lexical-call) - (#{chi-application 4347}# - (let ((#{id 22144}# (car #{e 22030}#))) + (#{value 22015}# + #{e 22016}# + #{r 22017}# + #{w 22018}#)) + (lambda (#{e 22046}# + #{r 22047}# + #{w 22048}# + #{s 22049}# + #{mod 22050}#) + (#{expand 4345}# + #{e 22046}# + #{r 22047}# + #{w 22048}# + #{mod 22050}#))) + (if (eqv? #{type 22014}# 'lexical-call) + (#{expand-application 4347}# + (let ((#{id 22130}# (car #{e 22016}#))) (#{build-lexical-reference 4283}# 'fun - (#{source-annotation 4306}# #{id 22144}#) - (if (if (vector? #{id 22144}#) - (if (= (vector-length #{id 22144}#) 4) - (eq? (vector-ref #{id 22144}# 0) 'syntax-object) + (#{source-annotation 4306}# #{id 22130}#) + (if (if (vector? #{id 22130}#) + (if (= (vector-length #{id 22130}#) 4) + (eq? (vector-ref #{id 22130}# 0) 'syntax-object) #f) #f) - (syntax->datum #{id 22144}#) - #{id 22144}#) - #{value 22029}#)) - #{e 22030}# - #{r 22031}# - #{w 22032}# - #{s 22033}# - #{mod 22034}#) - (if (eqv? #{type 22028}# 'global-call) - (#{chi-application 4347}# + (syntax->datum #{id 22130}#) + #{id 22130}#) + #{value 22015}#)) + #{e 22016}# + #{r 22017}# + #{w 22018}# + #{s 22019}# + #{mod 22020}#) + (if (eqv? #{type 22014}# 'global-call) + (#{expand-application 4347}# (#{build-global-reference 4286}# - (#{source-annotation 4306}# (car #{e 22030}#)) - (if (if (vector? #{value 22029}#) - (if (= (vector-length #{value 22029}#) 4) - (eq? (vector-ref #{value 22029}# 0) + (#{source-annotation 4306}# (car #{e 22016}#)) + (if (if (vector? #{value 22015}#) + (if (= (vector-length #{value 22015}#) 4) + (eq? (vector-ref #{value 22015}# 0) 'syntax-object) #f) #f) - (vector-ref #{value 22029}# 1) - #{value 22029}#) - (if (if (vector? #{value 22029}#) - (if (= (vector-length #{value 22029}#) 4) - (eq? (vector-ref #{value 22029}# 0) + (vector-ref #{value 22015}# 1) + #{value 22015}#) + (if (if (vector? #{value 22015}#) + (if (= (vector-length #{value 22015}#) 4) + (eq? (vector-ref #{value 22015}# 0) 'syntax-object) #f) #f) - (vector-ref #{value 22029}# 3) - #{mod 22034}#)) - #{e 22030}# - #{r 22031}# - #{w 22032}# - #{s 22033}# - #{mod 22034}#) - (if (eqv? #{type 22028}# 'constant) - (let ((#{exp 22680}# + (vector-ref #{value 22015}# 3) + #{mod 22020}#)) + #{e 22016}# + #{r 22017}# + #{w 22018}# + #{s 22019}# + #{mod 22020}#) + (if (eqv? #{type 22014}# 'constant) + (let ((#{exp 22666}# (#{strip 4358}# (#{wrap 4338}# (begin - (if (if (pair? #{e 22030}#) #{s 22033}# #f) + (if (if (pair? #{e 22016}#) #{s 22019}# #f) (set-source-properties! - #{e 22030}# - #{s 22033}#)) - #{e 22030}#) - #{w 22032}# - #{mod 22034}#) + #{e 22016}# + #{s 22019}#)) + #{e 22016}#) + #{w 22018}# + #{mod 22020}#) '(())))) (make-struct/no-tail (vector-ref %expanded-vtables 1) - #{s 22033}# - #{exp 22680}#)) - (if (eqv? #{type 22028}# 'global) + #{s 22019}# + #{exp 22666}#)) + (if (eqv? #{type 22014}# 'global) (#{analyze-variable 4285}# - #{mod 22034}# - #{value 22029}# - (lambda (#{mod 22716}# #{var 22717}# #{public? 22718}#) + #{mod 22020}# + #{value 22015}# + (lambda (#{mod 22702}# #{var 22703}# #{public? 22704}#) (make-struct/no-tail (vector-ref %expanded-vtables 5) - #{s 22033}# - #{mod 22716}# - #{var 22717}# - #{public? 22718}#)) - (lambda (#{var 22727}#) + #{s 22019}# + #{mod 22702}# + #{var 22703}# + #{public? 22704}#)) + (lambda (#{var 22713}#) (make-struct/no-tail (vector-ref %expanded-vtables 7) - #{s 22033}# - #{var 22727}#))) - (if (eqv? #{type 22028}# 'call) - (#{chi-application 4347}# - (#{chi 4345}# - (car #{e 22030}#) - #{r 22031}# - #{w 22032}# - #{mod 22034}#) - #{e 22030}# - #{r 22031}# - #{w 22032}# - #{s 22033}# - #{mod 22034}#) - (if (eqv? #{type 22028}# 'begin-form) - (let ((#{tmp 22807}# + #{s 22019}# + #{var 22713}#))) + (if (eqv? #{type 22014}# 'call) + (#{expand-application 4347}# + (#{expand 4345}# + (car #{e 22016}#) + #{r 22017}# + #{w 22018}# + #{mod 22020}#) + #{e 22016}# + #{r 22017}# + #{w 22018}# + #{s 22019}# + #{mod 22020}#) + (if (eqv? #{type 22014}# 'begin-form) + (let ((#{tmp 22793}# ($sc-dispatch - #{e 22030}# + #{e 22016}# '(_ any . each-any)))) - (if #{tmp 22807}# + (if #{tmp 22793}# (@apply - (lambda (#{e1 22811}# #{e2 22812}#) - (#{chi-sequence 4340}# - (cons #{e1 22811}# #{e2 22812}#) - #{r 22031}# - #{w 22032}# - #{s 22033}# - #{mod 22034}#)) - #{tmp 22807}#) + (lambda (#{e1 22797}# #{e2 22798}#) + (#{expand-sequence 4340}# + (cons #{e1 22797}# #{e2 22798}#) + #{r 22017}# + #{w 22018}# + #{s 22019}# + #{mod 22020}#)) + #{tmp 22793}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 22030}#))) - (if (eqv? #{type 22028}# 'local-syntax-form) - (#{chi-local-syntax 4350}# - #{value 22029}# - #{e 22030}# - #{r 22031}# - #{w 22032}# - #{s 22033}# - #{mod 22034}# - #{chi-sequence 4340}#) - (if (eqv? #{type 22028}# 'eval-when-form) - (let ((#{tmp 22978}# + #{e 22016}#))) + (if (eqv? #{type 22014}# 'local-syntax-form) + (#{expand-local-syntax 4350}# + #{value 22015}# + #{e 22016}# + #{r 22017}# + #{w 22018}# + #{s 22019}# + #{mod 22020}# + #{expand-sequence 4340}#) + (if (eqv? #{type 22014}# 'eval-when-form) + (let ((#{tmp 22964}# ($sc-dispatch - #{e 22030}# + #{e 22016}# '(_ each-any any . each-any)))) - (if #{tmp 22978}# + (if #{tmp 22964}# (@apply - (lambda (#{x 22982}# - #{e1 22983}# - #{e2 22984}#) - (let ((#{when-list 22985}# - (#{chi-when-list 4343}# - #{e 22030}# - #{x 22982}# - #{w 22032}#))) - (if (memq 'eval #{when-list 22985}#) - (#{chi-sequence 4340}# - (cons #{e1 22983}# #{e2 22984}#) - #{r 22031}# - #{w 22032}# - #{s 22033}# - #{mod 22034}#) + (lambda (#{x 22968}# + #{e1 22969}# + #{e2 22970}#) + (let ((#{when-list 22971}# + (#{expand-when-list 4343}# + #{e 22016}# + #{x 22968}# + #{w 22018}#))) + (if (memq 'eval #{when-list 22971}#) + (#{expand-sequence 4340}# + (cons #{e1 22969}# #{e2 22970}#) + #{r 22017}# + #{w 22018}# + #{s 22019}# + #{mod 22020}#) (make-struct/no-tail (vector-ref %expanded-vtables 0) #f)))) - #{tmp 22978}#) + #{tmp 22964}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 22030}#))) - (if (if (eqv? #{type 22028}# 'define-form) + #{e 22016}#))) + (if (if (eqv? #{type 22014}# 'define-form) #t - (eqv? #{type 22028}# 'define-syntax-form)) + (eqv? #{type 22014}# 'define-syntax-form)) (syntax-violation #f "definition in expression context" - #{e 22030}# + #{e 22016}# (#{wrap 4338}# - #{value 22029}# - #{w 22032}# - #{mod 22034}#)) - (if (eqv? #{type 22028}# 'syntax) + #{value 22015}# + #{w 22018}# + #{mod 22020}#)) + (if (eqv? #{type 22014}# 'syntax) (syntax-violation #f "reference to pattern variable outside syntax form" (#{wrap 4338}# (begin - (if (if (pair? #{e 22030}#) - #{s 22033}# + (if (if (pair? #{e 22016}#) + #{s 22019}# #f) (set-source-properties! - #{e 22030}# - #{s 22033}#)) - #{e 22030}#) - #{w 22032}# - #{mod 22034}#)) - (if (eqv? #{type 22028}# 'displaced-lexical) + #{e 22016}# + #{s 22019}#)) + #{e 22016}#) + #{w 22018}# + #{mod 22020}#)) + (if (eqv? #{type 22014}# 'displaced-lexical) (syntax-violation #f "reference to identifier outside its scope" (#{wrap 4338}# (begin - (if (if (pair? #{e 22030}#) - #{s 22033}# + (if (if (pair? #{e 22016}#) + #{s 22019}# #f) (set-source-properties! - #{e 22030}# - #{s 22033}#)) - #{e 22030}#) - #{w 22032}# - #{mod 22034}#)) + #{e 22016}# + #{s 22019}#)) + #{e 22016}#) + #{w 22018}# + #{mod 22020}#)) (syntax-violation #f "unexpected syntax" (#{wrap 4338}# (begin - (if (if (pair? #{e 22030}#) - #{s 22033}# + (if (if (pair? #{e 22016}#) + #{s 22019}# #f) (set-source-properties! - #{e 22030}# - #{s 22033}#)) - #{e 22030}#) - #{w 22032}# - #{mod 22034}#)))))))))))))))))) - (#{chi-application 4347}# - (lambda (#{x 23174}# - #{e 23175}# - #{r 23176}# - #{w 23177}# - #{s 23178}# - #{mod 23179}#) - (let ((#{tmp 23181}# - ($sc-dispatch #{e 23175}# '(any . each-any)))) - (if #{tmp 23181}# + #{e 22016}# + #{s 22019}#)) + #{e 22016}#) + #{w 22018}# + #{mod 22020}#)))))))))))))))))) + (#{expand-application 4347}# + (lambda (#{x 23160}# + #{e 23161}# + #{r 23162}# + #{w 23163}# + #{s 23164}# + #{mod 23165}#) + (let ((#{tmp 23167}# + ($sc-dispatch #{e 23161}# '(any . each-any)))) + (if #{tmp 23167}# (@apply - (lambda (#{e0 23185}# #{e1 23186}#) + (lambda (#{e0 23171}# #{e1 23172}#) (#{build-application 4280}# - #{s 23178}# - #{x 23174}# - (map (lambda (#{e 23271}#) - (#{chi 4345}# - #{e 23271}# - #{r 23176}# - #{w 23177}# - #{mod 23179}#)) - #{e1 23186}#))) - #{tmp 23181}#) + #{s 23164}# + #{x 23160}# + (map (lambda (#{e 23257}#) + (#{expand 4345}# + #{e 23257}# + #{r 23162}# + #{w 23163}# + #{mod 23165}#)) + #{e1 23172}#))) + #{tmp 23167}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 23175}#))))) - (#{chi-macro 4348}# - (lambda (#{p 23352}# - #{e 23353}# - #{r 23354}# - #{w 23355}# - #{s 23356}# - #{rib 23357}# - #{mod 23358}#) + #{e 23161}#))))) + (#{expand-macro 4348}# + (lambda (#{p 23338}# + #{e 23339}# + #{r 23340}# + #{w 23341}# + #{s 23342}# + #{rib 23343}# + #{mod 23344}#) (letrec* - ((#{rebuild-macro-output 23359}# - (lambda (#{x 23390}# #{m 23391}#) - (if (pair? #{x 23390}#) - (let ((#{e 23395}# - (cons (#{rebuild-macro-output 23359}# - (car #{x 23390}#) - #{m 23391}#) - (#{rebuild-macro-output 23359}# - (cdr #{x 23390}#) - #{m 23391}#)))) + ((#{rebuild-macro-output 23345}# + (lambda (#{x 23376}# #{m 23377}#) + (if (pair? #{x 23376}#) + (let ((#{e 23381}# + (cons (#{rebuild-macro-output 23345}# + (car #{x 23376}#) + #{m 23377}#) + (#{rebuild-macro-output 23345}# + (cdr #{x 23376}#) + #{m 23377}#)))) (begin - (if (if (pair? #{e 23395}#) #{s 23356}# #f) - (set-source-properties! #{e 23395}# #{s 23356}#)) - #{e 23395}#)) - (if (if (vector? #{x 23390}#) - (if (= (vector-length #{x 23390}#) 4) - (eq? (vector-ref #{x 23390}# 0) 'syntax-object) + (if (if (pair? #{e 23381}#) #{s 23342}# #f) + (set-source-properties! #{e 23381}# #{s 23342}#)) + #{e 23381}#)) + (if (if (vector? #{x 23376}#) + (if (= (vector-length #{x 23376}#) 4) + (eq? (vector-ref #{x 23376}# 0) 'syntax-object) #f) #f) - (let ((#{w 23411}# (vector-ref #{x 23390}# 2))) - (let ((#{ms 23412}# (car #{w 23411}#)) - (#{s 23413}# (cdr #{w 23411}#))) - (if (if (pair? #{ms 23412}#) - (eq? (car #{ms 23412}#) #f) + (let ((#{w 23397}# (vector-ref #{x 23376}# 2))) + (let ((#{ms 23398}# (car #{w 23397}#)) + (#{s 23399}# (cdr #{w 23397}#))) + (if (if (pair? #{ms 23398}#) + (eq? (car #{ms 23398}#) #f) #f) - (let ((#{expression 23421}# (vector-ref #{x 23390}# 1)) - (#{wrap 23422}# - (cons (cdr #{ms 23412}#) - (if #{rib 23357}# - (cons #{rib 23357}# (cdr #{s 23413}#)) - (cdr #{s 23413}#)))) - (#{module 23423}# (vector-ref #{x 23390}# 3))) + (let ((#{expression 23407}# (vector-ref #{x 23376}# 1)) + (#{wrap 23408}# + (cons (cdr #{ms 23398}#) + (if #{rib 23343}# + (cons #{rib 23343}# (cdr #{s 23399}#)) + (cdr #{s 23399}#)))) + (#{module 23409}# (vector-ref #{x 23376}# 3))) (vector 'syntax-object - #{expression 23421}# - #{wrap 23422}# - #{module 23423}#)) - (let ((#{expression 23433}# - (let ((#{e 23438}# (vector-ref #{x 23390}# 1))) + #{expression 23407}# + #{wrap 23408}# + #{module 23409}#)) + (let ((#{expression 23419}# + (let ((#{e 23424}# (vector-ref #{x 23376}# 1))) (begin - (if (if (pair? #{e 23438}#) #{s 23413}# #f) + (if (if (pair? #{e 23424}#) #{s 23399}# #f) (set-source-properties! - #{e 23438}# - #{s 23413}#)) - #{e 23438}#))) - (#{wrap 23434}# - (cons (cons #{m 23391}# #{ms 23412}#) - (if #{rib 23357}# - (cons #{rib 23357}# - (cons 'shift #{s 23413}#)) - (cons 'shift #{s 23413}#)))) - (#{module 23435}# (vector-ref #{x 23390}# 3))) + #{e 23424}# + #{s 23399}#)) + #{e 23424}#))) + (#{wrap 23420}# + (cons (cons #{m 23377}# #{ms 23398}#) + (if #{rib 23343}# + (cons #{rib 23343}# + (cons 'shift #{s 23399}#)) + (cons 'shift #{s 23399}#)))) + (#{module 23421}# (vector-ref #{x 23376}# 3))) (vector 'syntax-object - #{expression 23433}# - #{wrap 23434}# - #{module 23435}#))))) - (if (vector? #{x 23390}#) - (let ((#{n 23450}# (vector-length #{x 23390}#))) - (let ((#{v 23451}# - (let ((#{e 23459}# (make-vector #{n 23450}#))) + #{expression 23419}# + #{wrap 23420}# + #{module 23421}#))))) + (if (vector? #{x 23376}#) + (let ((#{n 23436}# (vector-length #{x 23376}#))) + (let ((#{v 23437}# + (let ((#{e 23445}# (make-vector #{n 23436}#))) (begin - (if (if (pair? #{e 23459}#) #{x 23390}# #f) + (if (if (pair? #{e 23445}#) #{x 23376}# #f) (set-source-properties! - #{e 23459}# - #{x 23390}#)) - #{e 23459}#)))) + #{e 23445}# + #{x 23376}#)) + #{e 23445}#)))) (letrec* - ((#{loop 23452}# - (lambda (#{i 23504}#) - (if (= #{i 23504}# #{n 23450}#) - #{v 23451}# + ((#{loop 23438}# + (lambda (#{i 23490}#) + (if (= #{i 23490}# #{n 23436}#) + #{v 23437}# (begin (vector-set! - #{v 23451}# - #{i 23504}# - (#{rebuild-macro-output 23359}# - (vector-ref #{x 23390}# #{i 23504}#) - #{m 23391}#)) - (#{loop 23452}# (#{1+}# #{i 23504}#))))))) - (#{loop 23452}# 0)))) - (if (symbol? #{x 23390}#) + #{v 23437}# + #{i 23490}# + (#{rebuild-macro-output 23345}# + (vector-ref #{x 23376}# #{i 23490}#) + #{m 23377}#)) + (#{loop 23438}# (#{1+}# #{i 23490}#))))))) + (#{loop 23438}# 0)))) + (if (symbol? #{x 23376}#) (syntax-violation #f "encountered raw symbol in macro output" - (let ((#{s 23510}# (cdr #{w 23355}#))) + (let ((#{s 23496}# (cdr #{w 23341}#))) (#{wrap 4338}# (begin - (if (if (pair? #{e 23353}#) #{s 23510}# #f) + (if (if (pair? #{e 23339}#) #{s 23496}# #f) (set-source-properties! - #{e 23353}# - #{s 23510}#)) - #{e 23353}#) - #{w 23355}# - #{mod 23358}#)) - #{x 23390}#) + #{e 23339}# + #{s 23496}#)) + #{e 23339}#) + #{w 23341}# + #{mod 23344}#)) + #{x 23376}#) (begin - (if (if (pair? #{x 23390}#) #{s 23356}# #f) - (set-source-properties! #{x 23390}# #{s 23356}#)) - #{x 23390}#)))))))) - (#{rebuild-macro-output 23359}# - (#{p 23352}# - (let ((#{w 23366}# - (cons (cons #f (car #{w 23355}#)) - (cons 'shift (cdr #{w 23355}#))))) + (if (if (pair? #{x 23376}#) #{s 23342}# #f) + (set-source-properties! #{x 23376}# #{s 23342}#)) + #{x 23376}#)))))))) + (#{rebuild-macro-output 23345}# + (#{p 23338}# + (let ((#{w 23352}# + (cons (cons #f (car #{w 23341}#)) + (cons 'shift (cdr #{w 23341}#))))) (#{wrap 4338}# (begin - (if (if (pair? #{e 23353}#) #{s 23356}# #f) - (set-source-properties! #{e 23353}# #{s 23356}#)) - #{e 23353}#) - #{w 23366}# - #{mod 23358}#))) + (if (if (pair? #{e 23339}#) #{s 23342}# #f) + (set-source-properties! #{e 23339}# #{s 23342}#)) + #{e 23339}#) + #{w 23352}# + #{mod 23344}#))) (gensym "m"))))) - (#{chi-body 4349}# - (lambda (#{body 23542}# - #{outer-form 23543}# - #{r 23544}# - #{w 23545}# - #{mod 23546}#) - (let ((#{r 23547}# - (cons '("placeholder" placeholder) #{r 23544}#))) - (let ((#{ribcage 23548}# (vector 'ribcage '() '() '()))) - (let ((#{w 23549}# - (cons (car #{w 23545}#) - (cons #{ribcage 23548}# (cdr #{w 23545}#))))) + (#{expand-body 4349}# + (lambda (#{body 23528}# + #{outer-form 23529}# + #{r 23530}# + #{w 23531}# + #{mod 23532}#) + (let ((#{r 23533}# + (cons '("placeholder" placeholder) #{r 23530}#))) + (let ((#{ribcage 23534}# (vector 'ribcage '() '() '()))) + (let ((#{w 23535}# + (cons (car #{w 23531}#) + (cons #{ribcage 23534}# (cdr #{w 23531}#))))) (letrec* - ((#{parse 23550}# - (lambda (#{body 23563}# - #{ids 23564}# - #{labels 23565}# - #{var-ids 23566}# - #{vars 23567}# - #{vals 23568}# - #{bindings 23569}#) - (if (null? #{body 23563}#) + ((#{parse 23536}# + (lambda (#{body 23549}# + #{ids 23550}# + #{labels 23551}# + #{var-ids 23552}# + #{vars 23553}# + #{vals 23554}# + #{bindings 23555}#) + (if (null? #{body 23549}#) (syntax-violation #f "no expressions in body" - #{outer-form 23543}#) - (let ((#{e 23570}# (cdr (car #{body 23563}#))) - (#{er 23571}# (car (car #{body 23563}#)))) + #{outer-form 23529}#) + (let ((#{e 23556}# (cdr (car #{body 23549}#))) + (#{er 23557}# (car (car #{body 23549}#)))) (call-with-values (lambda () (#{syntax-type 4344}# - #{e 23570}# - #{er 23571}# + #{e 23556}# + #{er 23557}# '(()) - (#{source-annotation 4306}# #{er 23571}#) - #{ribcage 23548}# - #{mod 23546}# + (#{source-annotation 4306}# #{er 23557}#) + #{ribcage 23534}# + #{mod 23532}# #f)) - (lambda (#{type 23747}# - #{value 23748}# - #{e 23749}# - #{w 23750}# - #{s 23751}# - #{mod 23752}#) - (if (eqv? #{type 23747}# 'define-form) - (let ((#{id 23756}# + (lambda (#{type 23733}# + #{value 23734}# + #{e 23735}# + #{w 23736}# + #{s 23737}# + #{mod 23738}#) + (if (eqv? #{type 23733}# 'define-form) + (let ((#{id 23742}# (#{wrap 4338}# - #{value 23748}# - #{w 23750}# - #{mod 23752}#)) - (#{label 23757}# + #{value 23734}# + #{w 23736}# + #{mod 23738}#)) + (#{label 23743}# (symbol->string (gensym "i")))) - (let ((#{var 23758}# - (let ((#{id 23818}# - (if (if (vector? #{id 23756}#) + (let ((#{var 23744}# + (let ((#{id 23804}# + (if (if (vector? #{id 23742}#) (if (= (vector-length - #{id 23756}#) + #{id 23742}#) 4) (eq? (vector-ref - #{id 23756}# + #{id 23742}# 0) 'syntax-object) #f) #f) - (vector-ref #{id 23756}# 1) - #{id 23756}#))) + (vector-ref #{id 23742}# 1) + #{id 23742}#))) (gensym (string-append - (symbol->string #{id 23818}#) + (symbol->string #{id 23804}#) " "))))) (begin - (let ((#{update 23808}# - (cons (vector-ref #{id 23756}# 1) + (let ((#{update 23794}# + (cons (vector-ref #{id 23742}# 1) (vector-ref - #{ribcage 23548}# + #{ribcage 23534}# 1)))) (vector-set! - #{ribcage 23548}# + #{ribcage 23534}# 1 - #{update 23808}#)) - (let ((#{update 23810}# + #{update 23794}#)) + (let ((#{update 23796}# (cons (car (vector-ref - #{id 23756}# + #{id 23742}# 2)) (vector-ref - #{ribcage 23548}# + #{ribcage 23534}# 2)))) (vector-set! - #{ribcage 23548}# + #{ribcage 23534}# 2 - #{update 23810}#)) - (let ((#{update 23812}# - (cons #{label 23757}# + #{update 23796}#)) + (let ((#{update 23798}# + (cons #{label 23743}# (vector-ref - #{ribcage 23548}# + #{ribcage 23534}# 3)))) (vector-set! - #{ribcage 23548}# + #{ribcage 23534}# 3 - #{update 23812}#)) - (#{parse 23550}# - (cdr #{body 23563}#) - (cons #{id 23756}# #{ids 23564}#) - (cons #{label 23757}# #{labels 23565}#) - (cons #{id 23756}# #{var-ids 23566}#) - (cons #{var 23758}# #{vars 23567}#) - (cons (cons #{er 23571}# + #{update 23798}#)) + (#{parse 23536}# + (cdr #{body 23549}#) + (cons #{id 23742}# #{ids 23550}#) + (cons #{label 23743}# #{labels 23551}#) + (cons #{id 23742}# #{var-ids 23552}#) + (cons #{var 23744}# #{vars 23553}#) + (cons (cons #{er 23557}# (#{wrap 4338}# - #{e 23749}# - #{w 23750}# - #{mod 23752}#)) - #{vals 23568}#) - (cons (cons 'lexical #{var 23758}#) - #{bindings 23569}#))))) - (if (eqv? #{type 23747}# 'define-syntax-form) - (let ((#{id 23846}# + #{e 23735}# + #{w 23736}# + #{mod 23738}#)) + #{vals 23554}#) + (cons (cons 'lexical #{var 23744}#) + #{bindings 23555}#))))) + (if (eqv? #{type 23733}# 'define-syntax-form) + (let ((#{id 23832}# (#{wrap 4338}# - #{value 23748}# - #{w 23750}# - #{mod 23752}#)) - (#{label 23847}# + #{value 23734}# + #{w 23736}# + #{mod 23738}#)) + (#{label 23833}# (symbol->string (gensym "i")))) (begin - (let ((#{update 23897}# - (cons (vector-ref #{id 23846}# 1) + (let ((#{update 23883}# + (cons (vector-ref #{id 23832}# 1) (vector-ref - #{ribcage 23548}# + #{ribcage 23534}# 1)))) (vector-set! - #{ribcage 23548}# + #{ribcage 23534}# 1 - #{update 23897}#)) - (let ((#{update 23899}# + #{update 23883}#)) + (let ((#{update 23885}# (cons (car (vector-ref - #{id 23846}# + #{id 23832}# 2)) (vector-ref - #{ribcage 23548}# + #{ribcage 23534}# 2)))) (vector-set! - #{ribcage 23548}# + #{ribcage 23534}# 2 - #{update 23899}#)) - (let ((#{update 23901}# - (cons #{label 23847}# + #{update 23885}#)) + (let ((#{update 23887}# + (cons #{label 23833}# (vector-ref - #{ribcage 23548}# + #{ribcage 23534}# 3)))) (vector-set! - #{ribcage 23548}# + #{ribcage 23534}# 3 - #{update 23901}#)) - (#{parse 23550}# - (cdr #{body 23563}#) - (cons #{id 23846}# #{ids 23564}#) - (cons #{label 23847}# #{labels 23565}#) - #{var-ids 23566}# - #{vars 23567}# - #{vals 23568}# + #{update 23887}#)) + (#{parse 23536}# + (cdr #{body 23549}#) + (cons #{id 23832}# #{ids 23550}#) + (cons #{label 23833}# #{labels 23551}#) + #{var-ids 23552}# + #{vars 23553}# + #{vals 23554}# (cons (cons 'macro - (cons #{er 23571}# + (cons #{er 23557}# (#{wrap 4338}# - #{e 23749}# - #{w 23750}# - #{mod 23752}#))) - #{bindings 23569}#)))) - (if (eqv? #{type 23747}# 'begin-form) - (let ((#{tmp 23909}# + #{e 23735}# + #{w 23736}# + #{mod 23738}#))) + #{bindings 23555}#)))) + (if (eqv? #{type 23733}# 'begin-form) + (let ((#{tmp 23895}# ($sc-dispatch - #{e 23749}# + #{e 23735}# '(_ . each-any)))) - (if #{tmp 23909}# + (if #{tmp 23895}# (@apply - (lambda (#{e1 23913}#) - (#{parse 23550}# + (lambda (#{e1 23899}#) + (#{parse 23536}# (letrec* - ((#{f 23914}# - (lambda (#{forms 23977}#) - (if (null? #{forms 23977}#) - (cdr #{body 23563}#) - (cons (cons #{er 23571}# + ((#{f 23900}# + (lambda (#{forms 23963}#) + (if (null? #{forms 23963}#) + (cdr #{body 23549}#) + (cons (cons #{er 23557}# (#{wrap 4338}# - (car #{forms 23977}#) - #{w 23750}# - #{mod 23752}#)) - (#{f 23914}# - (cdr #{forms 23977}#))))))) - (#{f 23914}# #{e1 23913}#)) - #{ids 23564}# - #{labels 23565}# - #{var-ids 23566}# - #{vars 23567}# - #{vals 23568}# - #{bindings 23569}#)) - #{tmp 23909}#) + (car #{forms 23963}#) + #{w 23736}# + #{mod 23738}#)) + (#{f 23900}# + (cdr #{forms 23963}#))))))) + (#{f 23900}# #{e1 23899}#)) + #{ids 23550}# + #{labels 23551}# + #{var-ids 23552}# + #{vars 23553}# + #{vals 23554}# + #{bindings 23555}#)) + #{tmp 23895}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 23749}#))) - (if (eqv? #{type 23747}# 'local-syntax-form) - (#{chi-local-syntax 4350}# - #{value 23748}# - #{e 23749}# - #{er 23571}# - #{w 23750}# - #{s 23751}# - #{mod 23752}# - (lambda (#{forms 23991}# - #{er 23992}# - #{w 23993}# - #{s 23994}# - #{mod 23995}#) - (#{parse 23550}# + #{e 23735}#))) + (if (eqv? #{type 23733}# 'local-syntax-form) + (#{expand-local-syntax 4350}# + #{value 23734}# + #{e 23735}# + #{er 23557}# + #{w 23736}# + #{s 23737}# + #{mod 23738}# + (lambda (#{forms 23977}# + #{er 23978}# + #{w 23979}# + #{s 23980}# + #{mod 23981}#) + (#{parse 23536}# (letrec* - ((#{f 23996}# - (lambda (#{forms 24059}#) - (if (null? #{forms 24059}#) - (cdr #{body 23563}#) - (cons (cons #{er 23992}# + ((#{f 23982}# + (lambda (#{forms 24045}#) + (if (null? #{forms 24045}#) + (cdr #{body 23549}#) + (cons (cons #{er 23978}# (#{wrap 4338}# - (car #{forms 24059}#) - #{w 23993}# - #{mod 23995}#)) - (#{f 23996}# - (cdr #{forms 24059}#))))))) - (#{f 23996}# #{forms 23991}#)) - #{ids 23564}# - #{labels 23565}# - #{var-ids 23566}# - #{vars 23567}# - #{vals 23568}# - #{bindings 23569}#))) - (if (null? #{ids 23564}#) + (car #{forms 24045}#) + #{w 23979}# + #{mod 23981}#)) + (#{f 23982}# + (cdr #{forms 24045}#))))))) + (#{f 23982}# #{forms 23977}#)) + #{ids 23550}# + #{labels 23551}# + #{var-ids 23552}# + #{vars 23553}# + #{vals 23554}# + #{bindings 23555}#))) + (if (null? #{ids 23550}#) (#{build-sequence 4294}# #f - (map (lambda (#{x 24129}#) - (#{chi 4345}# - (cdr #{x 24129}#) - (car #{x 24129}#) + (map (lambda (#{x 24115}#) + (#{expand 4345}# + (cdr #{x 24115}#) + (car #{x 24115}#) '(()) - #{mod 23752}#)) - (cons (cons #{er 23571}# + #{mod 23738}#)) + (cons (cons #{er 23557}# (#{wrap 4338}# (begin - (if (if (pair? #{e 23749}#) - #{s 23751}# + (if (if (pair? #{e 23735}#) + #{s 23737}# #f) (set-source-properties! - #{e 23749}# - #{s 23751}#)) - #{e 23749}#) - #{w 23750}# - #{mod 23752}#)) - (cdr #{body 23563}#)))) + #{e 23735}# + #{s 23737}#)) + #{e 23735}#) + #{w 23736}# + #{mod 23738}#)) + (cdr #{body 23549}#)))) (begin (if (not (#{valid-bound-ids? 4335}# - #{ids 23564}#)) + #{ids 23550}#)) (syntax-violation #f "invalid or duplicate identifier in definition" - #{outer-form 23543}#)) + #{outer-form 23529}#)) (letrec* - ((#{loop 24291}# - (lambda (#{bs 24294}# - #{er-cache 24295}# - #{r-cache 24296}#) - (if (not (null? #{bs 24294}#)) - (let ((#{b 24297}# - (car #{bs 24294}#))) - (if (eq? (car #{b 24297}#) + ((#{loop 24277}# + (lambda (#{bs 24280}# + #{er-cache 24281}# + #{r-cache 24282}#) + (if (not (null? #{bs 24280}#)) + (let ((#{b 24283}# + (car #{bs 24280}#))) + (if (eq? (car #{b 24283}#) 'macro) - (let ((#{er 24299}# - (car (cdr #{b 24297}#)))) - (let ((#{r-cache 24300}# - (if (eq? #{er 24299}# - #{er-cache 24295}#) - #{r-cache 24296}# + (let ((#{er 24285}# + (car (cdr #{b 24283}#)))) + (let ((#{r-cache 24286}# + (if (eq? #{er 24285}# + #{er-cache 24281}#) + #{r-cache 24282}# (#{macros-only-env 4309}# - #{er 24299}#)))) + #{er 24285}#)))) (begin (set-cdr! - #{b 24297}# + #{b 24283}# (#{eval-local-transformer 4351}# - (#{chi 4345}# - (cdr (cdr #{b 24297}#)) - #{r-cache 24300}# + (#{expand 4345}# + (cdr (cdr #{b 24283}#)) + #{r-cache 24286}# '(()) - #{mod 23752}#) - #{mod 23752}#)) - (#{loop 24291}# - (cdr #{bs 24294}#) - #{er 24299}# - #{r-cache 24300}#)))) - (#{loop 24291}# - (cdr #{bs 24294}#) - #{er-cache 24295}# - #{r-cache 24296}#))))))) - (#{loop 24291}# - #{bindings 23569}# + #{mod 23738}#) + #{mod 23738}#)) + (#{loop 24277}# + (cdr #{bs 24280}#) + #{er 24285}# + #{r-cache 24286}#)))) + (#{loop 24277}# + (cdr #{bs 24280}#) + #{er-cache 24281}# + #{r-cache 24282}#))))))) + (#{loop 24277}# + #{bindings 23555}# #f #f)) (set-cdr! - #{r 23547}# + #{r 23533}# (#{extend-env 4307}# - #{labels 23565}# - #{bindings 23569}# - (cdr #{r 23547}#))) + #{labels 23551}# + #{bindings 23555}# + (cdr #{r 23533}#))) (#{build-letrec 4297}# #f #t (reverse (map syntax->datum - #{var-ids 23566}#)) - (reverse #{vars 23567}#) - (map (lambda (#{x 24653}#) - (#{chi 4345}# - (cdr #{x 24653}#) - (car #{x 24653}#) + #{var-ids 23552}#)) + (reverse #{vars 23553}#) + (map (lambda (#{x 24639}#) + (#{expand 4345}# + (cdr #{x 24639}#) + (car #{x 24639}#) '(()) - #{mod 23752}#)) - (reverse #{vals 23568}#)) + #{mod 23738}#)) + (reverse #{vals 23554}#)) (#{build-sequence 4294}# #f - (map (lambda (#{x 24783}#) - (#{chi 4345}# - (cdr #{x 24783}#) - (car #{x 24783}#) + (map (lambda (#{x 24769}#) + (#{expand 4345}# + (cdr #{x 24769}#) + (car #{x 24769}#) '(()) - #{mod 23752}#)) - (cons (cons #{er 23571}# + #{mod 23738}#)) + (cons (cons #{er 23557}# (#{wrap 4338}# (begin - (if (if (pair? #{e 23749}#) - #{s 23751}# + (if (if (pair? #{e 23735}#) + #{s 23737}# #f) (set-source-properties! - #{e 23749}# - #{s 23751}#)) - #{e 23749}#) - #{w 23750}# - #{mod 23752}#)) - (cdr #{body 23563}#)))))))))))))))))) - (#{parse 23550}# - (map (lambda (#{x 23553}#) - (cons #{r 23547}# + #{e 23735}# + #{s 23737}#)) + #{e 23735}#) + #{w 23736}# + #{mod 23738}#)) + (cdr #{body 23549}#)))))))))))))))))) + (#{parse 23536}# + (map (lambda (#{x 23539}#) + (cons #{r 23533}# (#{wrap 4338}# - #{x 23553}# - #{w 23549}# - #{mod 23546}#))) - #{body 23542}#) + #{x 23539}# + #{w 23535}# + #{mod 23532}#))) + #{body 23528}#) '() '() '() '() '() '()))))))) - (#{chi-local-syntax 4350}# - (lambda (#{rec? 24868}# - #{e 24869}# - #{r 24870}# - #{w 24871}# - #{s 24872}# - #{mod 24873}# - #{k 24874}#) - (let ((#{tmp 24876}# + (#{expand-local-syntax 4350}# + (lambda (#{rec? 24854}# + #{e 24855}# + #{r 24856}# + #{w 24857}# + #{s 24858}# + #{mod 24859}# + #{k 24860}#) + (let ((#{tmp 24862}# ($sc-dispatch - #{e 24869}# + #{e 24855}# '(_ #(each (any any)) any . each-any)))) - (if #{tmp 24876}# + (if #{tmp 24862}# (@apply - (lambda (#{id 24880}# - #{val 24881}# - #{e1 24882}# - #{e2 24883}#) - (if (not (#{valid-bound-ids? 4335}# #{id 24880}#)) + (lambda (#{id 24866}# + #{val 24867}# + #{e1 24868}# + #{e2 24869}#) + (if (not (#{valid-bound-ids? 4335}# #{id 24866}#)) (syntax-violation #f "duplicate bound keyword" - #{e 24869}#) - (let ((#{labels 24973}# - (#{gen-labels 4316}# #{id 24880}#))) - (let ((#{new-w 24974}# + #{e 24855}#) + (let ((#{labels 24959}# + (#{gen-labels 4316}# #{id 24866}#))) + (let ((#{new-w 24960}# (#{make-binding-wrap 4327}# - #{id 24880}# - #{labels 24973}# - #{w 24871}#))) - (#{k 24874}# - (cons #{e1 24882}# #{e2 24883}#) + #{id 24866}# + #{labels 24959}# + #{w 24857}#))) + (#{k 24860}# + (cons #{e1 24868}# #{e2 24869}#) (#{extend-env 4307}# - #{labels 24973}# - (let ((#{trans-r 25012}# - (#{macros-only-env 4309}# #{r 24870}#))) + #{labels 24959}# + (let ((#{trans-r 24998}# + (#{macros-only-env 4309}# #{r 24856}#))) (begin - (if #{rec? 24868}# (if #f #f)) - (map (lambda (#{x 25013}#) + (if #{rec? 24854}# (if #f #f)) + (map (lambda (#{x 24999}#) (cons 'macro (#{eval-local-transformer 4351}# - (#{chi 4345}# - #{x 25013}# - #{trans-r 25012}# - (if #{rec? 24868}# - #{new-w 24974}# - #{w 24871}#) - #{mod 24873}#) - #{mod 24873}#))) - #{val 24881}#))) - #{r 24870}#) - #{new-w 24974}# - #{s 24872}# - #{mod 24873}#))))) - #{tmp 24876}#) + (#{expand 4345}# + #{x 24999}# + #{trans-r 24998}# + (if #{rec? 24854}# + #{new-w 24960}# + #{w 24857}#) + #{mod 24859}#) + #{mod 24859}#))) + #{val 24867}#))) + #{r 24856}#) + #{new-w 24960}# + #{s 24858}# + #{mod 24859}#))))) + #{tmp 24862}#) (syntax-violation #f "bad local syntax definition" (#{wrap 4338}# (begin - (if (if (pair? #{e 24869}#) #{s 24872}# #f) - (set-source-properties! #{e 24869}# #{s 24872}#)) - #{e 24869}#) - #{w 24871}# - #{mod 24873}#)))))) + (if (if (pair? #{e 24855}#) #{s 24858}# #f) + (set-source-properties! #{e 24855}# #{s 24858}#)) + #{e 24855}#) + #{w 24857}# + #{mod 24859}#)))))) (#{eval-local-transformer 4351}# - (lambda (#{expanded 25314}# #{mod 25315}#) - (let ((#{p 25316}# (primitive-eval #{expanded 25314}#))) - (if (procedure? #{p 25316}#) - #{p 25316}# + (lambda (#{expanded 25300}# #{mod 25301}#) + (let ((#{p 25302}# (primitive-eval #{expanded 25300}#))) + (if (procedure? #{p 25302}#) + #{p 25302}# (syntax-violation #f "nonprocedure transformer" - #{p 25316}#))))) + #{p 25302}#))))) (#{ellipsis? 4353}# (lambda (#{x 5159}#) (if (if (if (vector? #{x 5159}#) @@ -13540,24 +8602,24 @@ (lambda-var-list gen-var strip - chi-lambda-case + expand-lambda-case lambda*-formals - chi-simple-lambda + expand-simple-lambda lambda-formals ellipsis? - chi-void + expand-void eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi + expand-local-syntax + expand-body + expand-macro + expand-application + expand-expr + expand syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence + expand-when-list + expand-install-global + expand-top-sequence + expand-sequence source-wrap wrap bound-id-member? @@ -13953,856 +9015,9 @@ ("i46" "i45" "i44"))) (hygiene guile))) 4) - (eq? (vector-ref - '#(syntax-object - ... - ((top) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i2230")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("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")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i46" "i45" "i44"))) - (hygiene guile)) - 0) - 'syntax-object) + #t #f) - (vector-ref - '#(syntax-object - ... - ((top) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i2230")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("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")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i46" "i45" "i44"))) - (hygiene guile)) - 1) + '... '#(syntax-object ... ((top) @@ -14813,24 +9028,24 @@ (lambda-var-list gen-var strip - chi-lambda-case + expand-lambda-case lambda*-formals - chi-simple-lambda + expand-simple-lambda lambda-formals ellipsis? - chi-void + expand-void eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi + expand-local-syntax + expand-body + expand-macro + expand-application + expand-expr + expand syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence + expand-when-list + expand-install-global + expand-top-sequence + expand-sequence source-wrap wrap bound-id-member? @@ -15237,24 +9452,24 @@ (lambda-var-list gen-var strip - chi-lambda-case + expand-lambda-case lambda*-formals - chi-simple-lambda + expand-simple-lambda lambda-formals ellipsis? - chi-void + expand-void eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi + expand-local-syntax + expand-body + expand-macro + expand-application + expand-expr + expand syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence + expand-when-list + expand-install-global + expand-top-sequence + expand-sequence source-wrap wrap bound-id-member? @@ -15653,275 +9868,275 @@ #f) #f))) (#{lambda-formals 4354}# - (lambda (#{orig-args 25321}#) + (lambda (#{orig-args 25307}#) (letrec* - ((#{req 25322}# - (lambda (#{args 25326}# #{rreq 25327}#) - (let ((#{tmp 25329}# ($sc-dispatch #{args 25326}# '()))) - (if #{tmp 25329}# + ((#{req 25308}# + (lambda (#{args 25312}# #{rreq 25313}#) + (let ((#{tmp 25315}# ($sc-dispatch #{args 25312}# '()))) + (if #{tmp 25315}# (@apply (lambda () - (#{check 25323}# (reverse #{rreq 25327}#) #f)) - #{tmp 25329}#) - (let ((#{tmp 25456}# - ($sc-dispatch #{args 25326}# '(any . any)))) - (if (if #{tmp 25456}# + (#{check 25309}# (reverse #{rreq 25313}#) #f)) + #{tmp 25315}#) + (let ((#{tmp 25442}# + ($sc-dispatch #{args 25312}# '(any . any)))) + (if (if #{tmp 25442}# (@apply - (lambda (#{a 25460}# #{b 25461}#) - (if (symbol? #{a 25460}#) + (lambda (#{a 25446}# #{b 25447}#) + (if (symbol? #{a 25446}#) #t - (if (if (vector? #{a 25460}#) - (if (= (vector-length #{a 25460}#) 4) - (eq? (vector-ref #{a 25460}# 0) + (if (if (vector? #{a 25446}#) + (if (= (vector-length #{a 25446}#) 4) + (eq? (vector-ref #{a 25446}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{a 25460}# 1)) + (symbol? (vector-ref #{a 25446}# 1)) #f))) - #{tmp 25456}#) + #{tmp 25442}#) #f) (@apply - (lambda (#{a 25488}# #{b 25489}#) - (#{req 25322}# - #{b 25489}# - (cons #{a 25488}# #{rreq 25327}#))) - #{tmp 25456}#) - (let ((#{tmp 25490}# (list #{args 25326}#))) + (lambda (#{a 25474}# #{b 25475}#) + (#{req 25308}# + #{b 25475}# + (cons #{a 25474}# #{rreq 25313}#))) + #{tmp 25442}#) + (let ((#{tmp 25476}# (list #{args 25312}#))) (if (@apply - (lambda (#{r 25492}#) - (if (symbol? #{r 25492}#) + (lambda (#{r 25478}#) + (if (symbol? #{r 25478}#) #t - (if (if (vector? #{r 25492}#) - (if (= (vector-length #{r 25492}#) 4) - (eq? (vector-ref #{r 25492}# 0) + (if (if (vector? #{r 25478}#) + (if (= (vector-length #{r 25478}#) 4) + (eq? (vector-ref #{r 25478}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{r 25492}# 1)) + (symbol? (vector-ref #{r 25478}# 1)) #f))) - #{tmp 25490}#) + #{tmp 25476}#) (@apply - (lambda (#{r 25522}#) - (#{check 25323}# - (reverse #{rreq 25327}#) - #{r 25522}#)) - #{tmp 25490}#) + (lambda (#{r 25508}#) + (#{check 25309}# + (reverse #{rreq 25313}#) + #{r 25508}#)) + #{tmp 25476}#) (syntax-violation 'lambda "invalid argument list" - #{orig-args 25321}# - #{args 25326}#))))))))) - (#{check 25323}# - (lambda (#{req 25657}# #{rest 25658}#) + #{orig-args 25307}# + #{args 25312}#))))))))) + (#{check 25309}# + (lambda (#{req 25643}# #{rest 25644}#) (if (#{distinct-bound-ids? 4336}# - (if #{rest 25658}# - (cons #{rest 25658}# #{req 25657}#) - #{req 25657}#)) - (values #{req 25657}# #f #{rest 25658}# #f) + (if #{rest 25644}# + (cons #{rest 25644}# #{req 25643}#) + #{req 25643}#)) + (values #{req 25643}# #f #{rest 25644}# #f) (syntax-violation 'lambda "duplicate identifier in argument list" - #{orig-args 25321}#))))) - (#{req 25322}# #{orig-args 25321}# '())))) - (#{chi-simple-lambda 4355}# - (lambda (#{e 25778}# - #{r 25779}# - #{w 25780}# - #{s 25781}# - #{mod 25782}# - #{req 25783}# - #{rest 25784}# - #{meta 25785}# - #{body 25786}#) - (let ((#{ids 25787}# - (if #{rest 25784}# - (append #{req 25783}# (list #{rest 25784}#)) - #{req 25783}#))) - (let ((#{vars 25788}# - (map #{gen-var 4359}# #{ids 25787}#))) - (let ((#{labels 25789}# - (#{gen-labels 4316}# #{ids 25787}#))) + #{orig-args 25307}#))))) + (#{req 25308}# #{orig-args 25307}# '())))) + (#{expand-simple-lambda 4355}# + (lambda (#{e 25764}# + #{r 25765}# + #{w 25766}# + #{s 25767}# + #{mod 25768}# + #{req 25769}# + #{rest 25770}# + #{meta 25771}# + #{body 25772}#) + (let ((#{ids 25773}# + (if #{rest 25770}# + (append #{req 25769}# (list #{rest 25770}#)) + #{req 25769}#))) + (let ((#{vars 25774}# + (map #{gen-var 4359}# #{ids 25773}#))) + (let ((#{labels 25775}# + (#{gen-labels 4316}# #{ids 25773}#))) (#{build-simple-lambda 4289}# - #{s 25781}# - (map syntax->datum #{req 25783}#) - (if #{rest 25784}# - (syntax->datum #{rest 25784}#) + #{s 25767}# + (map syntax->datum #{req 25769}#) + (if #{rest 25770}# + (syntax->datum #{rest 25770}#) #f) - #{vars 25788}# - #{meta 25785}# - (#{chi-body 4349}# - #{body 25786}# + #{vars 25774}# + #{meta 25771}# + (#{expand-body 4349}# + #{body 25772}# (#{wrap 4338}# (begin - (if (if (pair? #{e 25778}#) #{s 25781}# #f) - (set-source-properties! #{e 25778}# #{s 25781}#)) - #{e 25778}#) - #{w 25780}# - #{mod 25782}#) + (if (if (pair? #{e 25764}#) #{s 25767}# #f) + (set-source-properties! #{e 25764}# #{s 25767}#)) + #{e 25764}#) + #{w 25766}# + #{mod 25768}#) (#{extend-var-env 4308}# - #{labels 25789}# - #{vars 25788}# - #{r 25779}#) + #{labels 25775}# + #{vars 25774}# + #{r 25765}#) (#{make-binding-wrap 4327}# - #{ids 25787}# - #{labels 25789}# - #{w 25780}#) - #{mod 25782}#))))))) + #{ids 25773}# + #{labels 25775}# + #{w 25766}#) + #{mod 25768}#))))))) (#{lambda*-formals 4356}# - (lambda (#{orig-args 26089}#) + (lambda (#{orig-args 26075}#) (letrec* - ((#{req 26090}# - (lambda (#{args 26097}# #{rreq 26098}#) - (let ((#{tmp 26100}# ($sc-dispatch #{args 26097}# '()))) - (if #{tmp 26100}# + ((#{req 26076}# + (lambda (#{args 26083}# #{rreq 26084}#) + (let ((#{tmp 26086}# ($sc-dispatch #{args 26083}# '()))) + (if #{tmp 26086}# (@apply (lambda () - (#{check 26094}# - (reverse #{rreq 26098}#) + (#{check 26080}# + (reverse #{rreq 26084}#) '() #f '())) - #{tmp 26100}#) - (let ((#{tmp 26106}# - ($sc-dispatch #{args 26097}# '(any . any)))) - (if (if #{tmp 26106}# + #{tmp 26086}#) + (let ((#{tmp 26092}# + ($sc-dispatch #{args 26083}# '(any . any)))) + (if (if #{tmp 26092}# (@apply - (lambda (#{a 26110}# #{b 26111}#) - (if (symbol? #{a 26110}#) + (lambda (#{a 26096}# #{b 26097}#) + (if (symbol? #{a 26096}#) #t - (if (if (vector? #{a 26110}#) - (if (= (vector-length #{a 26110}#) 4) - (eq? (vector-ref #{a 26110}# 0) + (if (if (vector? #{a 26096}#) + (if (= (vector-length #{a 26096}#) 4) + (eq? (vector-ref #{a 26096}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{a 26110}# 1)) + (symbol? (vector-ref #{a 26096}# 1)) #f))) - #{tmp 26106}#) + #{tmp 26092}#) #f) (@apply - (lambda (#{a 26138}# #{b 26139}#) - (#{req 26090}# - #{b 26139}# - (cons #{a 26138}# #{rreq 26098}#))) - #{tmp 26106}#) - (let ((#{tmp 26140}# - ($sc-dispatch #{args 26097}# '(any . any)))) - (if (if #{tmp 26140}# + (lambda (#{a 26124}# #{b 26125}#) + (#{req 26076}# + #{b 26125}# + (cons #{a 26124}# #{rreq 26084}#))) + #{tmp 26092}#) + (let ((#{tmp 26126}# + ($sc-dispatch #{args 26083}# '(any . any)))) + (if (if #{tmp 26126}# (@apply - (lambda (#{a 26144}# #{b 26145}#) - (eq? (syntax->datum #{a 26144}#) #:optional)) - #{tmp 26140}#) + (lambda (#{a 26130}# #{b 26131}#) + (eq? (syntax->datum #{a 26130}#) #:optional)) + #{tmp 26126}#) #f) (@apply - (lambda (#{a 26146}# #{b 26147}#) - (#{opt 26091}# - #{b 26147}# - (reverse #{rreq 26098}#) + (lambda (#{a 26132}# #{b 26133}#) + (#{opt 26077}# + #{b 26133}# + (reverse #{rreq 26084}#) '())) - #{tmp 26140}#) - (let ((#{tmp 26150}# - ($sc-dispatch #{args 26097}# '(any . any)))) - (if (if #{tmp 26150}# + #{tmp 26126}#) + (let ((#{tmp 26136}# + ($sc-dispatch #{args 26083}# '(any . any)))) + (if (if #{tmp 26136}# (@apply - (lambda (#{a 26154}# #{b 26155}#) - (eq? (syntax->datum #{a 26154}#) #:key)) - #{tmp 26150}#) + (lambda (#{a 26140}# #{b 26141}#) + (eq? (syntax->datum #{a 26140}#) #:key)) + #{tmp 26136}#) #f) (@apply - (lambda (#{a 26156}# #{b 26157}#) - (#{key 26092}# - #{b 26157}# - (reverse #{rreq 26098}#) + (lambda (#{a 26142}# #{b 26143}#) + (#{key 26078}# + #{b 26143}# + (reverse #{rreq 26084}#) '() '())) - #{tmp 26150}#) - (let ((#{tmp 26160}# + #{tmp 26136}#) + (let ((#{tmp 26146}# ($sc-dispatch - #{args 26097}# + #{args 26083}# '(any any)))) - (if (if #{tmp 26160}# + (if (if #{tmp 26146}# (@apply - (lambda (#{a 26164}# #{b 26165}#) - (eq? (syntax->datum #{a 26164}#) + (lambda (#{a 26150}# #{b 26151}#) + (eq? (syntax->datum #{a 26150}#) #:rest)) - #{tmp 26160}#) + #{tmp 26146}#) #f) (@apply - (lambda (#{a 26166}# #{b 26167}#) - (#{rest 26093}# - #{b 26167}# - (reverse #{rreq 26098}#) + (lambda (#{a 26152}# #{b 26153}#) + (#{rest 26079}# + #{b 26153}# + (reverse #{rreq 26084}#) '() '())) - #{tmp 26160}#) - (let ((#{tmp 26170}# (list #{args 26097}#))) + #{tmp 26146}#) + (let ((#{tmp 26156}# (list #{args 26083}#))) (if (@apply - (lambda (#{r 26172}#) - (if (symbol? #{r 26172}#) + (lambda (#{r 26158}#) + (if (symbol? #{r 26158}#) #t - (if (if (vector? #{r 26172}#) + (if (if (vector? #{r 26158}#) (if (= (vector-length - #{r 26172}#) + #{r 26158}#) 4) (eq? (vector-ref - #{r 26172}# + #{r 26158}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{r 26172}# 1)) + (vector-ref #{r 26158}# 1)) #f))) - #{tmp 26170}#) + #{tmp 26156}#) (@apply - (lambda (#{r 26202}#) - (#{rest 26093}# - #{r 26202}# - (reverse #{rreq 26098}#) + (lambda (#{r 26188}#) + (#{rest 26079}# + #{r 26188}# + (reverse #{rreq 26084}#) '() '())) - #{tmp 26170}#) + #{tmp 26156}#) (syntax-violation 'lambda* "invalid argument list" - #{orig-args 26089}# - #{args 26097}#))))))))))))))) - (#{opt 26091}# - (lambda (#{args 26221}# #{req 26222}# #{ropt 26223}#) - (let ((#{tmp 26225}# ($sc-dispatch #{args 26221}# '()))) - (if #{tmp 26225}# + #{orig-args 26075}# + #{args 26083}#))))))))))))))) + (#{opt 26077}# + (lambda (#{args 26207}# #{req 26208}# #{ropt 26209}#) + (let ((#{tmp 26211}# ($sc-dispatch #{args 26207}# '()))) + (if #{tmp 26211}# (@apply (lambda () - (#{check 26094}# - #{req 26222}# - (reverse #{ropt 26223}#) + (#{check 26080}# + #{req 26208}# + (reverse #{ropt 26209}#) #f '())) - #{tmp 26225}#) - (let ((#{tmp 26231}# - ($sc-dispatch #{args 26221}# '(any . any)))) - (if (if #{tmp 26231}# + #{tmp 26211}#) + (let ((#{tmp 26217}# + ($sc-dispatch #{args 26207}# '(any . any)))) + (if (if #{tmp 26217}# (@apply - (lambda (#{a 26235}# #{b 26236}#) - (if (symbol? #{a 26235}#) + (lambda (#{a 26221}# #{b 26222}#) + (if (symbol? #{a 26221}#) #t - (if (if (vector? #{a 26235}#) - (if (= (vector-length #{a 26235}#) 4) - (eq? (vector-ref #{a 26235}# 0) + (if (if (vector? #{a 26221}#) + (if (= (vector-length #{a 26221}#) 4) + (eq? (vector-ref #{a 26221}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{a 26235}# 1)) + (symbol? (vector-ref #{a 26221}# 1)) #f))) - #{tmp 26231}#) + #{tmp 26217}#) #f) (@apply - (lambda (#{a 26263}# #{b 26264}#) - (#{opt 26091}# - #{b 26264}# - #{req 26222}# - (cons (cons #{a 26263}# + (lambda (#{a 26249}# #{b 26250}#) + (#{opt 26077}# + #{b 26250}# + #{req 26208}# + (cons (cons #{a 26249}# '(#(syntax-object #f ((top) @@ -15950,24 +10165,24 @@ (lambda-var-list gen-var strip - chi-lambda-case + expand-lambda-case lambda*-formals - chi-simple-lambda + expand-simple-lambda lambda-formals ellipsis? - chi-void + expand-void eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi + expand-local-syntax + expand-body + expand-macro + expand-application + expand-expr + expand syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence + expand-when-list + expand-install-global + expand-top-sequence + expand-sequence source-wrap wrap bound-id-member? @@ -16362,147 +10577,147 @@ ((top) (top) (top)) ("i46" "i45" "i44"))) (hygiene guile)))) - #{ropt 26223}#))) - #{tmp 26231}#) - (let ((#{tmp 26265}# + #{ropt 26209}#))) + #{tmp 26217}#) + (let ((#{tmp 26251}# ($sc-dispatch - #{args 26221}# + #{args 26207}# '((any any) . any)))) - (if (if #{tmp 26265}# + (if (if #{tmp 26251}# (@apply - (lambda (#{a 26269}# - #{init 26270}# - #{b 26271}#) - (if (symbol? #{a 26269}#) + (lambda (#{a 26255}# + #{init 26256}# + #{b 26257}#) + (if (symbol? #{a 26255}#) #t - (if (if (vector? #{a 26269}#) - (if (= (vector-length #{a 26269}#) 4) - (eq? (vector-ref #{a 26269}# 0) + (if (if (vector? #{a 26255}#) + (if (= (vector-length #{a 26255}#) 4) + (eq? (vector-ref #{a 26255}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{a 26269}# 1)) + (symbol? (vector-ref #{a 26255}# 1)) #f))) - #{tmp 26265}#) + #{tmp 26251}#) #f) (@apply - (lambda (#{a 26298}# #{init 26299}# #{b 26300}#) - (#{opt 26091}# - #{b 26300}# - #{req 26222}# - (cons (list #{a 26298}# #{init 26299}#) - #{ropt 26223}#))) - #{tmp 26265}#) - (let ((#{tmp 26301}# - ($sc-dispatch #{args 26221}# '(any . any)))) - (if (if #{tmp 26301}# + (lambda (#{a 26284}# #{init 26285}# #{b 26286}#) + (#{opt 26077}# + #{b 26286}# + #{req 26208}# + (cons (list #{a 26284}# #{init 26285}#) + #{ropt 26209}#))) + #{tmp 26251}#) + (let ((#{tmp 26287}# + ($sc-dispatch #{args 26207}# '(any . any)))) + (if (if #{tmp 26287}# (@apply - (lambda (#{a 26305}# #{b 26306}#) - (eq? (syntax->datum #{a 26305}#) #:key)) - #{tmp 26301}#) + (lambda (#{a 26291}# #{b 26292}#) + (eq? (syntax->datum #{a 26291}#) #:key)) + #{tmp 26287}#) #f) (@apply - (lambda (#{a 26307}# #{b 26308}#) - (#{key 26092}# - #{b 26308}# - #{req 26222}# - (reverse #{ropt 26223}#) + (lambda (#{a 26293}# #{b 26294}#) + (#{key 26078}# + #{b 26294}# + #{req 26208}# + (reverse #{ropt 26209}#) '())) - #{tmp 26301}#) - (let ((#{tmp 26311}# + #{tmp 26287}#) + (let ((#{tmp 26297}# ($sc-dispatch - #{args 26221}# + #{args 26207}# '(any any)))) - (if (if #{tmp 26311}# + (if (if #{tmp 26297}# (@apply - (lambda (#{a 26315}# #{b 26316}#) - (eq? (syntax->datum #{a 26315}#) + (lambda (#{a 26301}# #{b 26302}#) + (eq? (syntax->datum #{a 26301}#) #:rest)) - #{tmp 26311}#) + #{tmp 26297}#) #f) (@apply - (lambda (#{a 26317}# #{b 26318}#) - (#{rest 26093}# - #{b 26318}# - #{req 26222}# - (reverse #{ropt 26223}#) + (lambda (#{a 26303}# #{b 26304}#) + (#{rest 26079}# + #{b 26304}# + #{req 26208}# + (reverse #{ropt 26209}#) '())) - #{tmp 26311}#) - (let ((#{tmp 26321}# (list #{args 26221}#))) + #{tmp 26297}#) + (let ((#{tmp 26307}# (list #{args 26207}#))) (if (@apply - (lambda (#{r 26323}#) - (if (symbol? #{r 26323}#) + (lambda (#{r 26309}#) + (if (symbol? #{r 26309}#) #t - (if (if (vector? #{r 26323}#) + (if (if (vector? #{r 26309}#) (if (= (vector-length - #{r 26323}#) + #{r 26309}#) 4) (eq? (vector-ref - #{r 26323}# + #{r 26309}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{r 26323}# 1)) + (vector-ref #{r 26309}# 1)) #f))) - #{tmp 26321}#) + #{tmp 26307}#) (@apply - (lambda (#{r 26353}#) - (#{rest 26093}# - #{r 26353}# - #{req 26222}# - (reverse #{ropt 26223}#) + (lambda (#{r 26339}#) + (#{rest 26079}# + #{r 26339}# + #{req 26208}# + (reverse #{ropt 26209}#) '())) - #{tmp 26321}#) + #{tmp 26307}#) (syntax-violation 'lambda* "invalid optional argument list" - #{orig-args 26089}# - #{args 26221}#))))))))))))))) - (#{key 26092}# - (lambda (#{args 26372}# - #{req 26373}# - #{opt 26374}# - #{rkey 26375}#) - (let ((#{tmp 26377}# ($sc-dispatch #{args 26372}# '()))) - (if #{tmp 26377}# + #{orig-args 26075}# + #{args 26207}#))))))))))))))) + (#{key 26078}# + (lambda (#{args 26358}# + #{req 26359}# + #{opt 26360}# + #{rkey 26361}#) + (let ((#{tmp 26363}# ($sc-dispatch #{args 26358}# '()))) + (if #{tmp 26363}# (@apply (lambda () - (#{check 26094}# - #{req 26373}# - #{opt 26374}# + (#{check 26080}# + #{req 26359}# + #{opt 26360}# #f - (cons #f (reverse #{rkey 26375}#)))) - #{tmp 26377}#) - (let ((#{tmp 26383}# - ($sc-dispatch #{args 26372}# '(any . any)))) - (if (if #{tmp 26383}# + (cons #f (reverse #{rkey 26361}#)))) + #{tmp 26363}#) + (let ((#{tmp 26369}# + ($sc-dispatch #{args 26358}# '(any . any)))) + (if (if #{tmp 26369}# (@apply - (lambda (#{a 26387}# #{b 26388}#) - (if (symbol? #{a 26387}#) + (lambda (#{a 26373}# #{b 26374}#) + (if (symbol? #{a 26373}#) #t - (if (if (vector? #{a 26387}#) - (if (= (vector-length #{a 26387}#) 4) - (eq? (vector-ref #{a 26387}# 0) + (if (if (vector? #{a 26373}#) + (if (= (vector-length #{a 26373}#) 4) + (eq? (vector-ref #{a 26373}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{a 26387}# 1)) + (symbol? (vector-ref #{a 26373}# 1)) #f))) - #{tmp 26383}#) + #{tmp 26369}#) #f) (@apply - (lambda (#{a 26415}# #{b 26416}#) - (let ((#{tmp 26417}# + (lambda (#{a 26401}# #{b 26402}#) + (let ((#{tmp 26403}# (symbol->keyword - (syntax->datum #{a 26415}#)))) - (#{key 26092}# - #{b 26416}# - #{req 26373}# - #{opt 26374}# - (cons (cons #{tmp 26417}# - (cons #{a 26415}# + (syntax->datum #{a 26401}#)))) + (#{key 26078}# + #{b 26402}# + #{req 26359}# + #{opt 26360}# + (cons (cons #{tmp 26403}# + (cons #{a 26401}# '(#(syntax-object #f ((top) @@ -16546,24 +10761,24 @@ (lambda-var-list gen-var strip - chi-lambda-case + expand-lambda-case lambda*-formals - chi-simple-lambda + expand-simple-lambda lambda-formals ellipsis? - chi-void + expand-void eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi + expand-local-syntax + expand-body + expand-macro + expand-application + expand-expr + expand syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence + expand-when-list + expand-install-global + expand-top-sequence + expand-sequence source-wrap wrap bound-id-member? @@ -16958,780 +11173,780 @@ ((top) (top) (top)) ("i46" "i45" "i44"))) (hygiene guile))))) - #{rkey 26375}#)))) - #{tmp 26383}#) - (let ((#{tmp 26420}# + #{rkey 26361}#)))) + #{tmp 26369}#) + (let ((#{tmp 26406}# ($sc-dispatch - #{args 26372}# + #{args 26358}# '((any any) . any)))) - (if (if #{tmp 26420}# + (if (if #{tmp 26406}# (@apply - (lambda (#{a 26424}# - #{init 26425}# - #{b 26426}#) - (if (symbol? #{a 26424}#) + (lambda (#{a 26410}# + #{init 26411}# + #{b 26412}#) + (if (symbol? #{a 26410}#) #t - (if (if (vector? #{a 26424}#) - (if (= (vector-length #{a 26424}#) 4) - (eq? (vector-ref #{a 26424}# 0) + (if (if (vector? #{a 26410}#) + (if (= (vector-length #{a 26410}#) 4) + (eq? (vector-ref #{a 26410}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{a 26424}# 1)) + (symbol? (vector-ref #{a 26410}# 1)) #f))) - #{tmp 26420}#) + #{tmp 26406}#) #f) (@apply - (lambda (#{a 26453}# #{init 26454}# #{b 26455}#) - (let ((#{tmp 26456}# + (lambda (#{a 26439}# #{init 26440}# #{b 26441}#) + (let ((#{tmp 26442}# (symbol->keyword - (syntax->datum #{a 26453}#)))) - (#{key 26092}# - #{b 26455}# - #{req 26373}# - #{opt 26374}# - (cons (list #{tmp 26456}# - #{a 26453}# - #{init 26454}#) - #{rkey 26375}#)))) - #{tmp 26420}#) - (let ((#{tmp 26459}# + (syntax->datum #{a 26439}#)))) + (#{key 26078}# + #{b 26441}# + #{req 26359}# + #{opt 26360}# + (cons (list #{tmp 26442}# + #{a 26439}# + #{init 26440}#) + #{rkey 26361}#)))) + #{tmp 26406}#) + (let ((#{tmp 26445}# ($sc-dispatch - #{args 26372}# + #{args 26358}# '((any any any) . any)))) - (if (if #{tmp 26459}# + (if (if #{tmp 26445}# (@apply - (lambda (#{a 26463}# - #{init 26464}# - #{k 26465}# - #{b 26466}#) - (if (if (symbol? #{a 26463}#) + (lambda (#{a 26449}# + #{init 26450}# + #{k 26451}# + #{b 26452}#) + (if (if (symbol? #{a 26449}#) #t - (if (if (vector? #{a 26463}#) + (if (if (vector? #{a 26449}#) (if (= (vector-length - #{a 26463}#) + #{a 26449}#) 4) (eq? (vector-ref - #{a 26463}# + #{a 26449}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{a 26463}# 1)) + (vector-ref #{a 26449}# 1)) #f)) - (keyword? (syntax->datum #{k 26465}#)) + (keyword? (syntax->datum #{k 26451}#)) #f)) - #{tmp 26459}#) + #{tmp 26445}#) #f) (@apply - (lambda (#{a 26493}# - #{init 26494}# - #{k 26495}# - #{b 26496}#) - (#{key 26092}# - #{b 26496}# - #{req 26373}# - #{opt 26374}# - (cons (list #{k 26495}# - #{a 26493}# - #{init 26494}#) - #{rkey 26375}#))) - #{tmp 26459}#) - (let ((#{tmp 26497}# - ($sc-dispatch #{args 26372}# '(any)))) - (if (if #{tmp 26497}# + (lambda (#{a 26479}# + #{init 26480}# + #{k 26481}# + #{b 26482}#) + (#{key 26078}# + #{b 26482}# + #{req 26359}# + #{opt 26360}# + (cons (list #{k 26481}# + #{a 26479}# + #{init 26480}#) + #{rkey 26361}#))) + #{tmp 26445}#) + (let ((#{tmp 26483}# + ($sc-dispatch #{args 26358}# '(any)))) + (if (if #{tmp 26483}# (@apply - (lambda (#{aok 26501}#) - (eq? (syntax->datum #{aok 26501}#) + (lambda (#{aok 26487}#) + (eq? (syntax->datum #{aok 26487}#) #:allow-other-keys)) - #{tmp 26497}#) + #{tmp 26483}#) #f) (@apply - (lambda (#{aok 26502}#) - (#{check 26094}# - #{req 26373}# - #{opt 26374}# + (lambda (#{aok 26488}#) + (#{check 26080}# + #{req 26359}# + #{opt 26360}# #f - (cons #t (reverse #{rkey 26375}#)))) - #{tmp 26497}#) - (let ((#{tmp 26505}# + (cons #t (reverse #{rkey 26361}#)))) + #{tmp 26483}#) + (let ((#{tmp 26491}# ($sc-dispatch - #{args 26372}# + #{args 26358}# '(any any any)))) - (if (if #{tmp 26505}# + (if (if #{tmp 26491}# (@apply - (lambda (#{aok 26509}# - #{a 26510}# - #{b 26511}#) + (lambda (#{aok 26495}# + #{a 26496}# + #{b 26497}#) (if (eq? (syntax->datum - #{aok 26509}#) + #{aok 26495}#) #:allow-other-keys) (eq? (syntax->datum - #{a 26510}#) + #{a 26496}#) #:rest) #f)) - #{tmp 26505}#) + #{tmp 26491}#) #f) (@apply - (lambda (#{aok 26512}# - #{a 26513}# - #{b 26514}#) - (#{rest 26093}# - #{b 26514}# - #{req 26373}# - #{opt 26374}# + (lambda (#{aok 26498}# + #{a 26499}# + #{b 26500}#) + (#{rest 26079}# + #{b 26500}# + #{req 26359}# + #{opt 26360}# (cons #t - (reverse #{rkey 26375}#)))) - #{tmp 26505}#) - (let ((#{tmp 26517}# + (reverse #{rkey 26361}#)))) + #{tmp 26491}#) + (let ((#{tmp 26503}# ($sc-dispatch - #{args 26372}# + #{args 26358}# '(any . any)))) - (if (if #{tmp 26517}# + (if (if #{tmp 26503}# (@apply - (lambda (#{aok 26521}# - #{r 26522}#) + (lambda (#{aok 26507}# + #{r 26508}#) (if (eq? (syntax->datum - #{aok 26521}#) + #{aok 26507}#) #:allow-other-keys) - (if (symbol? #{r 26522}#) + (if (symbol? #{r 26508}#) #t (if (if (vector? - #{r 26522}#) + #{r 26508}#) (if (= (vector-length - #{r 26522}#) + #{r 26508}#) 4) (eq? (vector-ref - #{r 26522}# + #{r 26508}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{r 26522}# + #{r 26508}# 1)) #f)) #f)) - #{tmp 26517}#) + #{tmp 26503}#) #f) (@apply - (lambda (#{aok 26549}# #{r 26550}#) - (#{rest 26093}# - #{r 26550}# - #{req 26373}# - #{opt 26374}# + (lambda (#{aok 26535}# #{r 26536}#) + (#{rest 26079}# + #{r 26536}# + #{req 26359}# + #{opt 26360}# (cons #t (reverse - #{rkey 26375}#)))) - #{tmp 26517}#) - (let ((#{tmp 26553}# + #{rkey 26361}#)))) + #{tmp 26503}#) + (let ((#{tmp 26539}# ($sc-dispatch - #{args 26372}# + #{args 26358}# '(any any)))) - (if (if #{tmp 26553}# + (if (if #{tmp 26539}# (@apply - (lambda (#{a 26557}# - #{b 26558}#) + (lambda (#{a 26543}# + #{b 26544}#) (eq? (syntax->datum - #{a 26557}#) + #{a 26543}#) #:rest)) - #{tmp 26553}#) + #{tmp 26539}#) #f) (@apply - (lambda (#{a 26559}# - #{b 26560}#) - (#{rest 26093}# - #{b 26560}# - #{req 26373}# - #{opt 26374}# + (lambda (#{a 26545}# + #{b 26546}#) + (#{rest 26079}# + #{b 26546}# + #{req 26359}# + #{opt 26360}# (cons #f (reverse - #{rkey 26375}#)))) - #{tmp 26553}#) - (let ((#{tmp 26563}# - (list #{args 26372}#))) + #{rkey 26361}#)))) + #{tmp 26539}#) + (let ((#{tmp 26549}# + (list #{args 26358}#))) (if (@apply - (lambda (#{r 26565}#) + (lambda (#{r 26551}#) (if (symbol? - #{r 26565}#) + #{r 26551}#) #t (if (if (vector? - #{r 26565}#) + #{r 26551}#) (if (= (vector-length - #{r 26565}#) + #{r 26551}#) 4) (eq? (vector-ref - #{r 26565}# + #{r 26551}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{r 26565}# + #{r 26551}# 1)) #f))) - #{tmp 26563}#) + #{tmp 26549}#) (@apply - (lambda (#{r 26595}#) - (#{rest 26093}# - #{r 26595}# - #{req 26373}# - #{opt 26374}# + (lambda (#{r 26581}#) + (#{rest 26079}# + #{r 26581}# + #{req 26359}# + #{opt 26360}# (cons #f (reverse - #{rkey 26375}#)))) - #{tmp 26563}#) + #{rkey 26361}#)))) + #{tmp 26549}#) (syntax-violation 'lambda* "invalid keyword argument list" - #{orig-args 26089}# - #{args 26372}#))))))))))))))))))))) - (#{rest 26093}# - (lambda (#{args 26623}# - #{req 26624}# - #{opt 26625}# - #{kw 26626}#) - (let ((#{tmp 26628}# (list #{args 26623}#))) + #{orig-args 26075}# + #{args 26358}#))))))))))))))))))))) + (#{rest 26079}# + (lambda (#{args 26609}# + #{req 26610}# + #{opt 26611}# + #{kw 26612}#) + (let ((#{tmp 26614}# (list #{args 26609}#))) (if (@apply - (lambda (#{r 26630}#) - (if (symbol? #{r 26630}#) + (lambda (#{r 26616}#) + (if (symbol? #{r 26616}#) #t - (if (if (vector? #{r 26630}#) - (if (= (vector-length #{r 26630}#) 4) - (eq? (vector-ref #{r 26630}# 0) + (if (if (vector? #{r 26616}#) + (if (= (vector-length #{r 26616}#) 4) + (eq? (vector-ref #{r 26616}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{r 26630}# 1)) + (symbol? (vector-ref #{r 26616}# 1)) #f))) - #{tmp 26628}#) + #{tmp 26614}#) (@apply - (lambda (#{r 26660}#) - (#{check 26094}# - #{req 26624}# - #{opt 26625}# - #{r 26660}# - #{kw 26626}#)) - #{tmp 26628}#) + (lambda (#{r 26646}#) + (#{check 26080}# + #{req 26610}# + #{opt 26611}# + #{r 26646}# + #{kw 26612}#)) + #{tmp 26614}#) (syntax-violation 'lambda* "invalid rest argument" - #{orig-args 26089}# - #{args 26623}#))))) - (#{check 26094}# - (lambda (#{req 26664}# - #{opt 26665}# - #{rest 26666}# - #{kw 26667}#) + #{orig-args 26075}# + #{args 26609}#))))) + (#{check 26080}# + (lambda (#{req 26650}# + #{opt 26651}# + #{rest 26652}# + #{kw 26653}#) (if (#{distinct-bound-ids? 4336}# (append - #{req 26664}# - (map car #{opt 26665}#) - (if #{rest 26666}# (list #{rest 26666}#) '()) - (if (pair? #{kw 26667}#) - (map cadr (cdr #{kw 26667}#)) + #{req 26650}# + (map car #{opt 26651}#) + (if #{rest 26652}# (list #{rest 26652}#) '()) + (if (pair? #{kw 26653}#) + (map cadr (cdr #{kw 26653}#)) '()))) (values - #{req 26664}# - #{opt 26665}# - #{rest 26666}# - #{kw 26667}#) + #{req 26650}# + #{opt 26651}# + #{rest 26652}# + #{kw 26653}#) (syntax-violation 'lambda* "duplicate identifier in argument list" - #{orig-args 26089}#))))) - (#{req 26090}# #{orig-args 26089}# '())))) - (#{chi-lambda-case 4357}# - (lambda (#{e 26787}# - #{r 26788}# - #{w 26789}# - #{s 26790}# - #{mod 26791}# - #{get-formals 26792}# - #{clauses 26793}#) + #{orig-args 26075}#))))) + (#{req 26076}# #{orig-args 26075}# '())))) + (#{expand-lambda-case 4357}# + (lambda (#{e 26773}# + #{r 26774}# + #{w 26775}# + #{s 26776}# + #{mod 26777}# + #{get-formals 26778}# + #{clauses 26779}#) (letrec* - ((#{expand-req 26794}# - (lambda (#{req 26928}# - #{opt 26929}# - #{rest 26930}# - #{kw 26931}# - #{body 26932}#) - (let ((#{vars 26933}# - (map #{gen-var 4359}# #{req 26928}#)) - (#{labels 26934}# - (#{gen-labels 4316}# #{req 26928}#))) - (let ((#{r* 26935}# + ((#{parse-req 26780}# + (lambda (#{req 26914}# + #{opt 26915}# + #{rest 26916}# + #{kw 26917}# + #{body 26918}#) + (let ((#{vars 26919}# + (map #{gen-var 4359}# #{req 26914}#)) + (#{labels 26920}# + (#{gen-labels 4316}# #{req 26914}#))) + (let ((#{r* 26921}# (#{extend-var-env 4308}# - #{labels 26934}# - #{vars 26933}# - #{r 26788}#)) - (#{w* 26936}# + #{labels 26920}# + #{vars 26919}# + #{r 26774}#)) + (#{w* 26922}# (#{make-binding-wrap 4327}# - #{req 26928}# - #{labels 26934}# - #{w 26789}#))) - (#{expand-opt 26795}# - (map syntax->datum #{req 26928}#) - #{opt 26929}# - #{rest 26930}# - #{kw 26931}# - #{body 26932}# - (reverse #{vars 26933}#) - #{r* 26935}# - #{w* 26936}# + #{req 26914}# + #{labels 26920}# + #{w 26775}#))) + (#{parse-opt 26781}# + (map syntax->datum #{req 26914}#) + #{opt 26915}# + #{rest 26916}# + #{kw 26917}# + #{body 26918}# + (reverse #{vars 26919}#) + #{r* 26921}# + #{w* 26922}# '() '()))))) - (#{expand-opt 26795}# - (lambda (#{req 27152}# - #{opt 27153}# - #{rest 27154}# - #{kw 27155}# - #{body 27156}# - #{vars 27157}# - #{r* 27158}# - #{w* 27159}# - #{out 27160}# - #{inits 27161}#) - (if (pair? #{opt 27153}#) - (let ((#{tmp 27162}# (car #{opt 27153}#))) - (let ((#{tmp 27163}# - ($sc-dispatch #{tmp 27162}# '(any any)))) - (if #{tmp 27163}# + (#{parse-opt 26781}# + (lambda (#{req 27138}# + #{opt 27139}# + #{rest 27140}# + #{kw 27141}# + #{body 27142}# + #{vars 27143}# + #{r* 27144}# + #{w* 27145}# + #{out 27146}# + #{inits 27147}#) + (if (pair? #{opt 27139}#) + (let ((#{tmp 27148}# (car #{opt 27139}#))) + (let ((#{tmp 27149}# + ($sc-dispatch #{tmp 27148}# '(any any)))) + (if #{tmp 27149}# (@apply - (lambda (#{id 27165}# #{i 27166}#) - (let ((#{v 27167}# - (let ((#{id 27175}# - (if (if (vector? #{id 27165}#) + (lambda (#{id 27151}# #{i 27152}#) + (let ((#{v 27153}# + (let ((#{id 27161}# + (if (if (vector? #{id 27151}#) (if (= (vector-length - #{id 27165}#) + #{id 27151}#) 4) (eq? (vector-ref - #{id 27165}# + #{id 27151}# 0) 'syntax-object) #f) #f) - (vector-ref #{id 27165}# 1) - #{id 27165}#))) + (vector-ref #{id 27151}# 1) + #{id 27151}#))) (gensym (string-append - (symbol->string #{id 27175}#) + (symbol->string #{id 27161}#) " "))))) - (let ((#{l 27168}# - (#{gen-labels 4316}# (list #{v 27167}#)))) - (let ((#{r** 27169}# + (let ((#{l 27154}# + (#{gen-labels 4316}# (list #{v 27153}#)))) + (let ((#{r** 27155}# (#{extend-var-env 4308}# - #{l 27168}# - (list #{v 27167}#) - #{r* 27158}#))) - (let ((#{w** 27170}# + #{l 27154}# + (list #{v 27153}#) + #{r* 27144}#))) + (let ((#{w** 27156}# (#{make-binding-wrap 4327}# - (list #{id 27165}#) - #{l 27168}# - #{w* 27159}#))) - (#{expand-opt 26795}# - #{req 27152}# - (cdr #{opt 27153}#) - #{rest 27154}# - #{kw 27155}# - #{body 27156}# - (cons #{v 27167}# #{vars 27157}#) - #{r** 27169}# - #{w** 27170}# - (cons (syntax->datum #{id 27165}#) - #{out 27160}#) - (cons (#{chi 4345}# - #{i 27166}# - #{r* 27158}# - #{w* 27159}# - #{mod 26791}#) - #{inits 27161}#))))))) - #{tmp 27163}#) + (list #{id 27151}#) + #{l 27154}# + #{w* 27145}#))) + (#{parse-opt 26781}# + #{req 27138}# + (cdr #{opt 27139}#) + #{rest 27140}# + #{kw 27141}# + #{body 27142}# + (cons #{v 27153}# #{vars 27143}#) + #{r** 27155}# + #{w** 27156}# + (cons (syntax->datum #{id 27151}#) + #{out 27146}#) + (cons (#{expand 4345}# + #{i 27152}# + #{r* 27144}# + #{w* 27145}# + #{mod 26777}#) + #{inits 27147}#))))))) + #{tmp 27149}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 27162}#)))) - (if #{rest 27154}# - (let ((#{v 27447}# - (let ((#{id 27457}# - (if (if (vector? #{rest 27154}#) - (if (= (vector-length #{rest 27154}#) + #{tmp 27148}#)))) + (if #{rest 27140}# + (let ((#{v 27433}# + (let ((#{id 27443}# + (if (if (vector? #{rest 27140}#) + (if (= (vector-length #{rest 27140}#) 4) - (eq? (vector-ref #{rest 27154}# 0) + (eq? (vector-ref #{rest 27140}# 0) 'syntax-object) #f) #f) - (vector-ref #{rest 27154}# 1) - #{rest 27154}#))) + (vector-ref #{rest 27140}# 1) + #{rest 27140}#))) (gensym (string-append - (symbol->string #{id 27457}#) + (symbol->string #{id 27443}#) " "))))) - (let ((#{l 27448}# - (#{gen-labels 4316}# (list #{v 27447}#)))) - (let ((#{r* 27449}# + (let ((#{l 27434}# + (#{gen-labels 4316}# (list #{v 27433}#)))) + (let ((#{r* 27435}# (#{extend-var-env 4308}# - #{l 27448}# - (list #{v 27447}#) - #{r* 27158}#))) - (let ((#{w* 27450}# + #{l 27434}# + (list #{v 27433}#) + #{r* 27144}#))) + (let ((#{w* 27436}# (#{make-binding-wrap 4327}# - (list #{rest 27154}#) - #{l 27448}# - #{w* 27159}#))) - (#{expand-kw 26796}# - #{req 27152}# - (if (pair? #{out 27160}#) - (reverse #{out 27160}#) + (list #{rest 27140}#) + #{l 27434}# + #{w* 27145}#))) + (#{parse-kw 26782}# + #{req 27138}# + (if (pair? #{out 27146}#) + (reverse #{out 27146}#) #f) - (syntax->datum #{rest 27154}#) - (if (pair? #{kw 27155}#) - (cdr #{kw 27155}#) - #{kw 27155}#) - #{body 27156}# - (cons #{v 27447}# #{vars 27157}#) - #{r* 27449}# - #{w* 27450}# - (if (pair? #{kw 27155}#) (car #{kw 27155}#) #f) + (syntax->datum #{rest 27140}#) + (if (pair? #{kw 27141}#) + (cdr #{kw 27141}#) + #{kw 27141}#) + #{body 27142}# + (cons #{v 27433}# #{vars 27143}#) + #{r* 27435}# + #{w* 27436}# + (if (pair? #{kw 27141}#) (car #{kw 27141}#) #f) '() - #{inits 27161}#))))) - (#{expand-kw 26796}# - #{req 27152}# - (if (pair? #{out 27160}#) - (reverse #{out 27160}#) + #{inits 27147}#))))) + (#{parse-kw 26782}# + #{req 27138}# + (if (pair? #{out 27146}#) + (reverse #{out 27146}#) #f) #f - (if (pair? #{kw 27155}#) - (cdr #{kw 27155}#) - #{kw 27155}#) - #{body 27156}# - #{vars 27157}# - #{r* 27158}# - #{w* 27159}# - (if (pair? #{kw 27155}#) (car #{kw 27155}#) #f) + (if (pair? #{kw 27141}#) + (cdr #{kw 27141}#) + #{kw 27141}#) + #{body 27142}# + #{vars 27143}# + #{r* 27144}# + #{w* 27145}# + (if (pair? #{kw 27141}#) (car #{kw 27141}#) #f) '() - #{inits 27161}#))))) - (#{expand-kw 26796}# - (lambda (#{req 27657}# - #{opt 27658}# - #{rest 27659}# - #{kw 27660}# - #{body 27661}# - #{vars 27662}# - #{r* 27663}# - #{w* 27664}# - #{aok 27665}# - #{out 27666}# - #{inits 27667}#) - (if (pair? #{kw 27660}#) - (let ((#{tmp 27668}# (car #{kw 27660}#))) - (let ((#{tmp 27669}# - ($sc-dispatch #{tmp 27668}# '(any any any)))) - (if #{tmp 27669}# + #{inits 27147}#))))) + (#{parse-kw 26782}# + (lambda (#{req 27643}# + #{opt 27644}# + #{rest 27645}# + #{kw 27646}# + #{body 27647}# + #{vars 27648}# + #{r* 27649}# + #{w* 27650}# + #{aok 27651}# + #{out 27652}# + #{inits 27653}#) + (if (pair? #{kw 27646}#) + (let ((#{tmp 27654}# (car #{kw 27646}#))) + (let ((#{tmp 27655}# + ($sc-dispatch #{tmp 27654}# '(any any any)))) + (if #{tmp 27655}# (@apply - (lambda (#{k 27671}# #{id 27672}# #{i 27673}#) - (let ((#{v 27674}# - (let ((#{id 27682}# - (if (if (vector? #{id 27672}#) + (lambda (#{k 27657}# #{id 27658}# #{i 27659}#) + (let ((#{v 27660}# + (let ((#{id 27668}# + (if (if (vector? #{id 27658}#) (if (= (vector-length - #{id 27672}#) + #{id 27658}#) 4) (eq? (vector-ref - #{id 27672}# + #{id 27658}# 0) 'syntax-object) #f) #f) - (vector-ref #{id 27672}# 1) - #{id 27672}#))) + (vector-ref #{id 27658}# 1) + #{id 27658}#))) (gensym (string-append - (symbol->string #{id 27682}#) + (symbol->string #{id 27668}#) " "))))) - (let ((#{l 27675}# - (#{gen-labels 4316}# (list #{v 27674}#)))) - (let ((#{r** 27676}# + (let ((#{l 27661}# + (#{gen-labels 4316}# (list #{v 27660}#)))) + (let ((#{r** 27662}# (#{extend-var-env 4308}# - #{l 27675}# - (list #{v 27674}#) - #{r* 27663}#))) - (let ((#{w** 27677}# + #{l 27661}# + (list #{v 27660}#) + #{r* 27649}#))) + (let ((#{w** 27663}# (#{make-binding-wrap 4327}# - (list #{id 27672}#) - #{l 27675}# - #{w* 27664}#))) - (#{expand-kw 26796}# - #{req 27657}# - #{opt 27658}# - #{rest 27659}# - (cdr #{kw 27660}#) - #{body 27661}# - (cons #{v 27674}# #{vars 27662}#) - #{r** 27676}# - #{w** 27677}# - #{aok 27665}# - (cons (list (syntax->datum #{k 27671}#) - (syntax->datum #{id 27672}#) - #{v 27674}#) - #{out 27666}#) - (cons (#{chi 4345}# - #{i 27673}# - #{r* 27663}# - #{w* 27664}# - #{mod 26791}#) - #{inits 27667}#))))))) - #{tmp 27669}#) + (list #{id 27658}#) + #{l 27661}# + #{w* 27650}#))) + (#{parse-kw 26782}# + #{req 27643}# + #{opt 27644}# + #{rest 27645}# + (cdr #{kw 27646}#) + #{body 27647}# + (cons #{v 27660}# #{vars 27648}#) + #{r** 27662}# + #{w** 27663}# + #{aok 27651}# + (cons (list (syntax->datum #{k 27657}#) + (syntax->datum #{id 27658}#) + #{v 27660}#) + #{out 27652}#) + (cons (#{expand 4345}# + #{i 27659}# + #{r* 27649}# + #{w* 27650}# + #{mod 26777}#) + #{inits 27653}#))))))) + #{tmp 27655}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 27668}#)))) - (#{expand-body 26797}# - #{req 27657}# - #{opt 27658}# - #{rest 27659}# - (if (if #{aok 27665}# - #{aok 27665}# - (pair? #{out 27666}#)) - (cons #{aok 27665}# (reverse #{out 27666}#)) + #{tmp 27654}#)))) + (#{parse-body 26783}# + #{req 27643}# + #{opt 27644}# + #{rest 27645}# + (if (if #{aok 27651}# + #{aok 27651}# + (pair? #{out 27652}#)) + (cons #{aok 27651}# (reverse #{out 27652}#)) #f) - #{body 27661}# - (reverse #{vars 27662}#) - #{r* 27663}# - #{w* 27664}# - (reverse #{inits 27667}#) + #{body 27647}# + (reverse #{vars 27648}#) + #{r* 27649}# + #{w* 27650}# + (reverse #{inits 27653}#) '())))) - (#{expand-body 26797}# - (lambda (#{req 27963}# - #{opt 27964}# - #{rest 27965}# - #{kw 27966}# - #{body 27967}# - #{vars 27968}# - #{r* 27969}# - #{w* 27970}# - #{inits 27971}# - #{meta 27972}#) - (let ((#{tmp 27974}# + (#{parse-body 26783}# + (lambda (#{req 27949}# + #{opt 27950}# + #{rest 27951}# + #{kw 27952}# + #{body 27953}# + #{vars 27954}# + #{r* 27955}# + #{w* 27956}# + #{inits 27957}# + #{meta 27958}#) + (let ((#{tmp 27960}# ($sc-dispatch - #{body 27967}# + #{body 27953}# '(any any . each-any)))) - (if (if #{tmp 27974}# + (if (if #{tmp 27960}# (@apply - (lambda (#{docstring 27978}# #{e1 27979}# #{e2 27980}#) - (string? (syntax->datum #{docstring 27978}#))) - #{tmp 27974}#) + (lambda (#{docstring 27964}# #{e1 27965}# #{e2 27966}#) + (string? (syntax->datum #{docstring 27964}#))) + #{tmp 27960}#) #f) (@apply - (lambda (#{docstring 27981}# #{e1 27982}# #{e2 27983}#) - (#{expand-body 26797}# - #{req 27963}# - #{opt 27964}# - #{rest 27965}# - #{kw 27966}# - (cons #{e1 27982}# #{e2 27983}#) - #{vars 27968}# - #{r* 27969}# - #{w* 27970}# - #{inits 27971}# + (lambda (#{docstring 27967}# #{e1 27968}# #{e2 27969}#) + (#{parse-body 26783}# + #{req 27949}# + #{opt 27950}# + #{rest 27951}# + #{kw 27952}# + (cons #{e1 27968}# #{e2 27969}#) + #{vars 27954}# + #{r* 27955}# + #{w* 27956}# + #{inits 27957}# (append - #{meta 27972}# + #{meta 27958}# (list (cons 'documentation - (syntax->datum #{docstring 27981}#)))))) - #{tmp 27974}#) - (let ((#{tmp 27984}# + (syntax->datum #{docstring 27967}#)))))) + #{tmp 27960}#) + (let ((#{tmp 27970}# ($sc-dispatch - #{body 27967}# + #{body 27953}# '(#(vector #(each (any . any))) any . each-any)))) - (if #{tmp 27984}# + (if #{tmp 27970}# (@apply - (lambda (#{k 27988}# - #{v 27989}# - #{e1 27990}# - #{e2 27991}#) - (#{expand-body 26797}# - #{req 27963}# - #{opt 27964}# - #{rest 27965}# - #{kw 27966}# - (cons #{e1 27990}# #{e2 27991}#) - #{vars 27968}# - #{r* 27969}# - #{w* 27970}# - #{inits 27971}# + (lambda (#{k 27974}# + #{v 27975}# + #{e1 27976}# + #{e2 27977}#) + (#{parse-body 26783}# + #{req 27949}# + #{opt 27950}# + #{rest 27951}# + #{kw 27952}# + (cons #{e1 27976}# #{e2 27977}#) + #{vars 27954}# + #{r* 27955}# + #{w* 27956}# + #{inits 27957}# (append - #{meta 27972}# + #{meta 27958}# (syntax->datum - (map cons #{k 27988}# #{v 27989}#))))) - #{tmp 27984}#) - (let ((#{tmp 27992}# - ($sc-dispatch #{body 27967}# '(any . each-any)))) - (if #{tmp 27992}# + (map cons #{k 27974}# #{v 27975}#))))) + #{tmp 27970}#) + (let ((#{tmp 27978}# + ($sc-dispatch #{body 27953}# '(any . each-any)))) + (if #{tmp 27978}# (@apply - (lambda (#{e1 27996}# #{e2 27997}#) + (lambda (#{e1 27982}# #{e2 27983}#) (values - #{meta 27972}# - #{req 27963}# - #{opt 27964}# - #{rest 27965}# - #{kw 27966}# - #{inits 27971}# - #{vars 27968}# - (#{chi-body 4349}# - (cons #{e1 27996}# #{e2 27997}#) + #{meta 27958}# + #{req 27949}# + #{opt 27950}# + #{rest 27951}# + #{kw 27952}# + #{inits 27957}# + #{vars 27954}# + (#{expand-body 4349}# + (cons #{e1 27982}# #{e2 27983}#) (#{wrap 4338}# (begin - (if (if (pair? #{e 26787}#) - #{s 26790}# + (if (if (pair? #{e 26773}#) + #{s 26776}# #f) (set-source-properties! - #{e 26787}# - #{s 26790}#)) - #{e 26787}#) - #{w 26789}# - #{mod 26791}#) - #{r* 27969}# - #{w* 27970}# - #{mod 26791}#))) - #{tmp 27992}#) + #{e 26773}# + #{s 26776}#)) + #{e 26773}#) + #{w 26775}# + #{mod 26777}#) + #{r* 27955}# + #{w* 27956}# + #{mod 26777}#))) + #{tmp 27978}#) (syntax-violation #f "source expression failed to match any pattern" - #{body 27967}#)))))))))) - (let ((#{tmp 26799}# - ($sc-dispatch #{clauses 26793}# '()))) - (if #{tmp 26799}# + #{body 27953}#)))))))))) + (let ((#{tmp 26785}# + ($sc-dispatch #{clauses 26779}# '()))) + (if #{tmp 26785}# (@apply (lambda () (values '() #f)) - #{tmp 26799}#) - (let ((#{tmp 26804}# + #{tmp 26785}#) + (let ((#{tmp 26790}# ($sc-dispatch - #{clauses 26793}# + #{clauses 26779}# '((any any . each-any) . #(each (any any . each-any)))))) - (if #{tmp 26804}# + (if #{tmp 26790}# (@apply - (lambda (#{args 26808}# - #{e1 26809}# - #{e2 26810}# - #{args* 26811}# - #{e1* 26812}# - #{e2* 26813}#) + (lambda (#{args 26794}# + #{e1 26795}# + #{e2 26796}# + #{args* 26797}# + #{e1* 26798}# + #{e2* 26799}#) (call-with-values (lambda () - (#{get-formals 26792}# #{args 26808}#)) - (lambda (#{req 26814}# - #{opt 26815}# - #{rest 26816}# - #{kw 26817}#) + (#{get-formals 26778}# #{args 26794}#)) + (lambda (#{req 26800}# + #{opt 26801}# + #{rest 26802}# + #{kw 26803}#) (call-with-values (lambda () - (#{expand-req 26794}# - #{req 26814}# - #{opt 26815}# - #{rest 26816}# - #{kw 26817}# - (cons #{e1 26809}# #{e2 26810}#))) - (lambda (#{meta 26884}# - #{req 26885}# - #{opt 26886}# - #{rest 26887}# - #{kw 26888}# - #{inits 26889}# - #{vars 26890}# - #{body 26891}#) + (#{parse-req 26780}# + #{req 26800}# + #{opt 26801}# + #{rest 26802}# + #{kw 26803}# + (cons #{e1 26795}# #{e2 26796}#))) + (lambda (#{meta 26870}# + #{req 26871}# + #{opt 26872}# + #{rest 26873}# + #{kw 26874}# + #{inits 26875}# + #{vars 26876}# + #{body 26877}#) (call-with-values (lambda () - (#{chi-lambda-case 4357}# - #{e 26787}# - #{r 26788}# - #{w 26789}# - #{s 26790}# - #{mod 26791}# - #{get-formals 26792}# - (map (lambda (#{tmp 2775 26892}# - #{tmp 2774 26893}# - #{tmp 2773 26894}#) - (cons #{tmp 2773 26894}# - (cons #{tmp 2774 26893}# - #{tmp 2775 26892}#))) - #{e2* 26813}# - #{e1* 26812}# - #{args* 26811}#))) - (lambda (#{meta* 26895}# #{else* 26896}#) + (#{expand-lambda-case 4357}# + #{e 26773}# + #{r 26774}# + #{w 26775}# + #{s 26776}# + #{mod 26777}# + #{get-formals 26778}# + (map (lambda (#{tmp 2775 26878}# + #{tmp 2774 26879}# + #{tmp 2773 26880}#) + (cons #{tmp 2773 26880}# + (cons #{tmp 2774 26879}# + #{tmp 2775 26878}#))) + #{e2* 26799}# + #{e1* 26798}# + #{args* 26797}#))) + (lambda (#{meta* 26881}# #{else* 26882}#) (values - (append #{meta 26884}# #{meta* 26895}#) + (append #{meta 26870}# #{meta* 26881}#) (make-struct/no-tail (vector-ref %expanded-vtables 14) - #{s 26790}# - #{req 26885}# - #{opt 26886}# - #{rest 26887}# - #{kw 26888}# - #{inits 26889}# - #{vars 26890}# - #{body 26891}# - #{else* 26896}#))))))))) - #{tmp 26804}#) + #{s 26776}# + #{req 26871}# + #{opt 26872}# + #{rest 26873}# + #{kw 26874}# + #{inits 26875}# + #{vars 26876}# + #{body 26877}# + #{else* 26882}#))))))))) + #{tmp 26790}#) (syntax-violation #f "source expression failed to match any pattern" - #{clauses 26793}#)))))))) + #{clauses 26779}#)))))))) (#{strip 4358}# - (lambda (#{x 28034}# #{w 28035}#) - (if (memq 'top (car #{w 28035}#)) - #{x 28034}# + (lambda (#{x 28020}# #{w 28021}#) + (if (memq 'top (car #{w 28021}#)) + #{x 28020}# (letrec* - ((#{f 28036}# - (lambda (#{x 28039}#) - (if (if (vector? #{x 28039}#) - (if (= (vector-length #{x 28039}#) 4) - (eq? (vector-ref #{x 28039}# 0) 'syntax-object) + ((#{f 28022}# + (lambda (#{x 28025}#) + (if (if (vector? #{x 28025}#) + (if (= (vector-length #{x 28025}#) 4) + (eq? (vector-ref #{x 28025}# 0) 'syntax-object) #f) #f) (#{strip 4358}# - (vector-ref #{x 28039}# 1) - (vector-ref #{x 28039}# 2)) - (if (pair? #{x 28039}#) - (let ((#{a 28058}# (#{f 28036}# (car #{x 28039}#))) - (#{d 28059}# (#{f 28036}# (cdr #{x 28039}#)))) - (if (if (eq? #{a 28058}# (car #{x 28039}#)) - (eq? #{d 28059}# (cdr #{x 28039}#)) + (vector-ref #{x 28025}# 1) + (vector-ref #{x 28025}# 2)) + (if (pair? #{x 28025}#) + (let ((#{a 28044}# (#{f 28022}# (car #{x 28025}#))) + (#{d 28045}# (#{f 28022}# (cdr #{x 28025}#)))) + (if (if (eq? #{a 28044}# (car #{x 28025}#)) + (eq? #{d 28045}# (cdr #{x 28025}#)) #f) - #{x 28039}# - (cons #{a 28058}# #{d 28059}#))) - (if (vector? #{x 28039}#) - (let ((#{old 28062}# (vector->list #{x 28039}#))) - (let ((#{new 28063}# (map #{f 28036}# #{old 28062}#))) + #{x 28025}# + (cons #{a 28044}# #{d 28045}#))) + (if (vector? #{x 28025}#) + (let ((#{old 28048}# (vector->list #{x 28025}#))) + (let ((#{new 28049}# (map #{f 28022}# #{old 28048}#))) (letrec* - ((#{lp 28064}# - (lambda (#{l1 28140}# #{l2 28141}#) - (if (null? #{l1 28140}#) - #{x 28039}# - (if (eq? (car #{l1 28140}#) - (car #{l2 28141}#)) - (#{lp 28064}# - (cdr #{l1 28140}#) - (cdr #{l2 28141}#)) - (list->vector #{new 28063}#)))))) - (#{lp 28064}# #{old 28062}# #{new 28063}#)))) - #{x 28039}#)))))) - (#{f 28036}# #{x 28034}#))))) + ((#{lp 28050}# + (lambda (#{l1 28126}# #{l2 28127}#) + (if (null? #{l1 28126}#) + #{x 28025}# + (if (eq? (car #{l1 28126}#) + (car #{l2 28127}#)) + (#{lp 28050}# + (cdr #{l1 28126}#) + (cdr #{l2 28127}#)) + (list->vector #{new 28049}#)))))) + (#{lp 28050}# #{old 28048}# #{new 28049}#)))) + #{x 28025}#)))))) + (#{f 28022}# #{x 28020}#))))) (#{gen-var 4359}# - (lambda (#{id 26940}#) - (let ((#{id 26941}# - (if (if (vector? #{id 26940}#) - (if (= (vector-length #{id 26940}#) 4) - (eq? (vector-ref #{id 26940}# 0) 'syntax-object) + (lambda (#{id 26926}#) + (let ((#{id 26927}# + (if (if (vector? #{id 26926}#) + (if (= (vector-length #{id 26926}#) 4) + (eq? (vector-ref #{id 26926}# 0) 'syntax-object) #f) #f) - (vector-ref #{id 26940}# 1) - #{id 26940}#))) + (vector-ref #{id 26926}# 1) + #{id 26926}#))) (gensym - (string-append (symbol->string #{id 26941}#) " ")))))) + (string-append (symbol->string #{id 26927}#) " ")))))) (begin (module-define! (current-module) @@ -17839,7 +12054,7 @@ #{mod 4484}#))))) #{var 4571}# #{names 4575}#) - (#{chi-body 4349}# + (#{expand-body 4349}# (cons #{e1 4573}# #{e2 4574}#) (#{wrap 4338}# (begin @@ -17855,7 +12070,7 @@ (map (lambda (#{x 4852}#) (cons 'macro (#{eval-local-transformer 4351}# - (#{chi 4345}# + (#{expand 4345}# #{x 4852}# #{trans-r 4851}# #{w 4482}# @@ -17912,1189 +12127,1189 @@ 'core 'syntax (letrec* - ((#{gen-syntax 5303}# - (lambda (#{src 5405}# - #{e 5406}# - #{r 5407}# - #{maps 5408}# - #{ellipsis? 5409}# - #{mod 5410}#) - (if (if (symbol? #{e 5406}#) + ((#{gen-syntax 5306}# + (lambda (#{src 5408}# + #{e 5409}# + #{r 5410}# + #{maps 5411}# + #{ellipsis? 5412}# + #{mod 5413}#) + (if (if (symbol? #{e 5409}#) #t - (if (if (vector? #{e 5406}#) - (if (= (vector-length #{e 5406}#) 4) - (eq? (vector-ref #{e 5406}# 0) 'syntax-object) + (if (if (vector? #{e 5409}#) + (if (= (vector-length #{e 5409}#) 4) + (eq? (vector-ref #{e 5409}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{e 5406}# 1)) + (symbol? (vector-ref #{e 5409}# 1)) #f)) - (let ((#{label 5437}# - (#{id-var-name 4332}# #{e 5406}# '(())))) - (let ((#{b 5438}# - (let ((#{t 5575}# (assq #{label 5437}# #{r 5407}#))) - (if #{t 5575}# - (cdr #{t 5575}#) - (if (symbol? #{label 5437}#) - (let ((#{t 5580}# + (let ((#{label 5440}# + (#{id-var-name 4332}# #{e 5409}# '(())))) + (let ((#{b 5441}# + (let ((#{t 5578}# (assq #{label 5440}# #{r 5410}#))) + (if #{t 5578}# + (cdr #{t 5578}#) + (if (symbol? #{label 5440}#) + (let ((#{t 5583}# (begin - (if (if (not #{mod 5410}#) + (if (if (not #{mod 5413}#) (current-module) #f) (warn "module system is booted, we should have a module" - #{label 5437}#)) - (let ((#{v 5617}# + #{label 5440}#)) + (let ((#{v 5620}# (module-variable - (if #{mod 5410}# + (if #{mod 5413}# (resolve-module - (cdr #{mod 5410}#)) + (cdr #{mod 5413}#)) (current-module)) - #{label 5437}#))) - (if #{v 5617}# - (if (variable-bound? #{v 5617}#) - (let ((#{val 5626}# + #{label 5440}#))) + (if #{v 5620}# + (if (variable-bound? #{v 5620}#) + (let ((#{val 5629}# (variable-ref - #{v 5617}#))) - (if (macro? #{val 5626}#) + #{v 5620}#))) + (if (macro? #{val 5629}#) (if (macro-type - #{val 5626}#) + #{val 5629}#) (cons (macro-type - #{val 5626}#) + #{val 5629}#) (macro-binding - #{val 5626}#)) + #{val 5629}#)) #f) #f)) #f) #f))))) - (if #{t 5580}# #{t 5580}# '(global))) + (if #{t 5583}# #{t 5583}# '(global))) '(displaced-lexical)))))) - (if (eq? (car #{b 5438}#) 'syntax) + (if (eq? (car #{b 5441}#) 'syntax) (call-with-values (lambda () - (let ((#{var.lev 5471}# (cdr #{b 5438}#))) - (#{gen-ref 5304}# - #{src 5405}# - (car #{var.lev 5471}#) - (cdr #{var.lev 5471}#) - #{maps 5408}#))) - (lambda (#{var 5567}# #{maps 5568}#) - (values (list 'ref #{var 5567}#) #{maps 5568}#))) - (if (#{ellipsis? 5409}# #{e 5406}#) + (let ((#{var.lev 5474}# (cdr #{b 5441}#))) + (#{gen-ref 5307}# + #{src 5408}# + (car #{var.lev 5474}#) + (cdr #{var.lev 5474}#) + #{maps 5411}#))) + (lambda (#{var 5570}# #{maps 5571}#) + (values (list 'ref #{var 5570}#) #{maps 5571}#))) + (if (#{ellipsis? 5412}# #{e 5409}#) (syntax-violation 'syntax "misplaced ellipsis" - #{src 5405}#) - (values (list 'quote #{e 5406}#) #{maps 5408}#))))) - (let ((#{tmp 5638}# - ($sc-dispatch #{e 5406}# '(any any)))) - (if (if #{tmp 5638}# + #{src 5408}#) + (values (list 'quote #{e 5409}#) #{maps 5411}#))))) + (let ((#{tmp 5641}# + ($sc-dispatch #{e 5409}# '(any any)))) + (if (if #{tmp 5641}# (@apply - (lambda (#{dots 5642}# #{e 5643}#) - (#{ellipsis? 5409}# #{dots 5642}#)) - #{tmp 5638}#) + (lambda (#{dots 5645}# #{e 5646}#) + (#{ellipsis? 5412}# #{dots 5645}#)) + #{tmp 5641}#) #f) (@apply - (lambda (#{dots 5644}# #{e 5645}#) - (#{gen-syntax 5303}# - #{src 5405}# - #{e 5645}# - #{r 5407}# - #{maps 5408}# - (lambda (#{x 5646}#) #f) - #{mod 5410}#)) - #{tmp 5638}#) - (let ((#{tmp 5647}# - ($sc-dispatch #{e 5406}# '(any any . any)))) - (if (if #{tmp 5647}# + (lambda (#{dots 5647}# #{e 5648}#) + (#{gen-syntax 5306}# + #{src 5408}# + #{e 5648}# + #{r 5410}# + #{maps 5411}# + (lambda (#{x 5649}#) #f) + #{mod 5413}#)) + #{tmp 5641}#) + (let ((#{tmp 5650}# + ($sc-dispatch #{e 5409}# '(any any . any)))) + (if (if #{tmp 5650}# (@apply - (lambda (#{x 5651}# #{dots 5652}# #{y 5653}#) - (#{ellipsis? 5409}# #{dots 5652}#)) - #{tmp 5647}#) + (lambda (#{x 5654}# #{dots 5655}# #{y 5656}#) + (#{ellipsis? 5412}# #{dots 5655}#)) + #{tmp 5650}#) #f) (@apply - (lambda (#{x 5654}# #{dots 5655}# #{y 5656}#) + (lambda (#{x 5657}# #{dots 5658}# #{y 5659}#) (letrec* - ((#{f 5657}# - (lambda (#{y 5665}# #{k 5666}#) - (let ((#{tmp 5668}# + ((#{f 5660}# + (lambda (#{y 5668}# #{k 5669}#) + (let ((#{tmp 5671}# ($sc-dispatch - #{y 5665}# + #{y 5668}# '(any . any)))) - (if (if #{tmp 5668}# + (if (if #{tmp 5671}# (@apply - (lambda (#{dots 5672}# #{y 5673}#) - (#{ellipsis? 5409}# - #{dots 5672}#)) - #{tmp 5668}#) + (lambda (#{dots 5675}# #{y 5676}#) + (#{ellipsis? 5412}# + #{dots 5675}#)) + #{tmp 5671}#) #f) (@apply - (lambda (#{dots 5674}# #{y 5675}#) - (#{f 5657}# - #{y 5675}# - (lambda (#{maps 5676}#) + (lambda (#{dots 5677}# #{y 5678}#) + (#{f 5660}# + #{y 5678}# + (lambda (#{maps 5679}#) (call-with-values (lambda () - (#{k 5666}# - (cons '() #{maps 5676}#))) - (lambda (#{x 5677}# - #{maps 5678}#) - (if (null? (car #{maps 5678}#)) + (#{k 5669}# + (cons '() #{maps 5679}#))) + (lambda (#{x 5680}# + #{maps 5681}#) + (if (null? (car #{maps 5681}#)) (syntax-violation 'syntax "extra ellipsis" - #{src 5405}#) + #{src 5408}#) (values - (let ((#{map-env 5682}# - (car #{maps 5678}#))) + (let ((#{map-env 5685}# + (car #{maps 5681}#))) (list 'apply '(primitive append) - (#{gen-map 5306}# - #{x 5677}# - #{map-env 5682}#))) - (cdr #{maps 5678}#)))))))) - #{tmp 5668}#) + (#{gen-map 5309}# + #{x 5680}# + #{map-env 5685}#))) + (cdr #{maps 5681}#)))))))) + #{tmp 5671}#) (call-with-values (lambda () - (#{gen-syntax 5303}# - #{src 5405}# - #{y 5665}# - #{r 5407}# - #{maps 5408}# - #{ellipsis? 5409}# - #{mod 5410}#)) - (lambda (#{y 5685}# #{maps 5686}#) + (#{gen-syntax 5306}# + #{src 5408}# + #{y 5668}# + #{r 5410}# + #{maps 5411}# + #{ellipsis? 5412}# + #{mod 5413}#)) + (lambda (#{y 5688}# #{maps 5689}#) (call-with-values (lambda () - (#{k 5666}# #{maps 5686}#)) - (lambda (#{x 5687}# #{maps 5688}#) + (#{k 5669}# #{maps 5689}#)) + (lambda (#{x 5690}# #{maps 5691}#) (values - (if (equal? #{y 5685}# ''()) - #{x 5687}# + (if (equal? #{y 5688}# ''()) + #{x 5690}# (list 'append - #{x 5687}# - #{y 5685}#)) - #{maps 5688}#)))))))))) - (#{f 5657}# - #{y 5656}# - (lambda (#{maps 5660}#) + #{x 5690}# + #{y 5688}#)) + #{maps 5691}#)))))))))) + (#{f 5660}# + #{y 5659}# + (lambda (#{maps 5663}#) (call-with-values (lambda () - (#{gen-syntax 5303}# - #{src 5405}# - #{x 5654}# - #{r 5407}# - (cons '() #{maps 5660}#) - #{ellipsis? 5409}# - #{mod 5410}#)) - (lambda (#{x 5661}# #{maps 5662}#) - (if (null? (car #{maps 5662}#)) + (#{gen-syntax 5306}# + #{src 5408}# + #{x 5657}# + #{r 5410}# + (cons '() #{maps 5663}#) + #{ellipsis? 5412}# + #{mod 5413}#)) + (lambda (#{x 5664}# #{maps 5665}#) + (if (null? (car #{maps 5665}#)) (syntax-violation 'syntax "extra ellipsis" - #{src 5405}#) + #{src 5408}#) (values - (#{gen-map 5306}# - #{x 5661}# - (car #{maps 5662}#)) - (cdr #{maps 5662}#))))))))) - #{tmp 5647}#) - (let ((#{tmp 5704}# - ($sc-dispatch #{e 5406}# '(any . any)))) - (if #{tmp 5704}# + (#{gen-map 5309}# + #{x 5664}# + (car #{maps 5665}#)) + (cdr #{maps 5665}#))))))))) + #{tmp 5650}#) + (let ((#{tmp 5707}# + ($sc-dispatch #{e 5409}# '(any . any)))) + (if #{tmp 5707}# (@apply - (lambda (#{x 5708}# #{y 5709}#) + (lambda (#{x 5711}# #{y 5712}#) (call-with-values (lambda () - (#{gen-syntax 5303}# - #{src 5405}# - #{x 5708}# - #{r 5407}# - #{maps 5408}# - #{ellipsis? 5409}# - #{mod 5410}#)) - (lambda (#{x 5710}# #{maps 5711}#) + (#{gen-syntax 5306}# + #{src 5408}# + #{x 5711}# + #{r 5410}# + #{maps 5411}# + #{ellipsis? 5412}# + #{mod 5413}#)) + (lambda (#{x 5713}# #{maps 5714}#) (call-with-values (lambda () - (#{gen-syntax 5303}# - #{src 5405}# - #{y 5709}# - #{r 5407}# - #{maps 5711}# - #{ellipsis? 5409}# - #{mod 5410}#)) - (lambda (#{y 5712}# #{maps 5713}#) + (#{gen-syntax 5306}# + #{src 5408}# + #{y 5712}# + #{r 5410}# + #{maps 5714}# + #{ellipsis? 5412}# + #{mod 5413}#)) + (lambda (#{y 5715}# #{maps 5716}#) (values - (let ((#{atom-key 5718}# - (car #{y 5712}#))) - (if (eqv? #{atom-key 5718}# 'quote) - (if (eq? (car #{x 5710}#) 'quote) + (let ((#{atom-key 5721}# + (car #{y 5715}#))) + (if (eqv? #{atom-key 5721}# 'quote) + (if (eq? (car #{x 5713}#) 'quote) (list 'quote - (cons (car (cdr #{x 5710}#)) - (car (cdr #{y 5712}#)))) - (if (eq? (car (cdr #{y 5712}#)) + (cons (car (cdr #{x 5713}#)) + (car (cdr #{y 5715}#)))) + (if (eq? (car (cdr #{y 5715}#)) '()) - (list 'list #{x 5710}#) + (list 'list #{x 5713}#) (list 'cons - #{x 5710}# - #{y 5712}#))) - (if (eqv? #{atom-key 5718}# 'list) + #{x 5713}# + #{y 5715}#))) + (if (eqv? #{atom-key 5721}# 'list) (cons 'list - (cons #{x 5710}# - (cdr #{y 5712}#))) + (cons #{x 5713}# + (cdr #{y 5715}#))) (list 'cons - #{x 5710}# - #{y 5712}#)))) - #{maps 5713}#)))))) - #{tmp 5704}#) - (let ((#{tmp 5747}# + #{x 5713}# + #{y 5715}#)))) + #{maps 5716}#)))))) + #{tmp 5707}#) + (let ((#{tmp 5750}# ($sc-dispatch - #{e 5406}# + #{e 5409}# '#(vector (any . each-any))))) - (if #{tmp 5747}# + (if #{tmp 5750}# (@apply - (lambda (#{e1 5751}# #{e2 5752}#) + (lambda (#{e1 5754}# #{e2 5755}#) (call-with-values (lambda () - (#{gen-syntax 5303}# - #{src 5405}# - (cons #{e1 5751}# #{e2 5752}#) - #{r 5407}# - #{maps 5408}# - #{ellipsis? 5409}# - #{mod 5410}#)) - (lambda (#{e 5753}# #{maps 5754}#) + (#{gen-syntax 5306}# + #{src 5408}# + (cons #{e1 5754}# #{e2 5755}#) + #{r 5410}# + #{maps 5411}# + #{ellipsis? 5412}# + #{mod 5413}#)) + (lambda (#{e 5756}# #{maps 5757}#) (values - (if (eq? (car #{e 5753}#) 'list) - (cons 'vector (cdr #{e 5753}#)) - (if (eq? (car #{e 5753}#) 'quote) + (if (eq? (car #{e 5756}#) 'list) + (cons 'vector (cdr #{e 5756}#)) + (if (eq? (car #{e 5756}#) 'quote) (list 'quote (list->vector - (car (cdr #{e 5753}#)))) - (list 'list->vector #{e 5753}#))) - #{maps 5754}#)))) - #{tmp 5747}#) + (car (cdr #{e 5756}#)))) + (list 'list->vector #{e 5756}#))) + #{maps 5757}#)))) + #{tmp 5750}#) (values - (list 'quote #{e 5406}#) - #{maps 5408}#)))))))))))) - (#{gen-ref 5304}# - (lambda (#{src 5781}# - #{var 5782}# - #{level 5783}# - #{maps 5784}#) - (if (= #{level 5783}# 0) - (values #{var 5782}# #{maps 5784}#) - (if (null? #{maps 5784}#) + (list 'quote #{e 5409}#) + #{maps 5411}#)))))))))))) + (#{gen-ref 5307}# + (lambda (#{src 5784}# + #{var 5785}# + #{level 5786}# + #{maps 5787}#) + (if (= #{level 5786}# 0) + (values #{var 5785}# #{maps 5787}#) + (if (null? #{maps 5787}#) (syntax-violation 'syntax "missing ellipsis" - #{src 5781}#) + #{src 5784}#) (call-with-values (lambda () - (#{gen-ref 5304}# - #{src 5781}# - #{var 5782}# - (#{1-}# #{level 5783}#) - (cdr #{maps 5784}#))) - (lambda (#{outer-var 5785}# #{outer-maps 5786}#) - (let ((#{b 5787}# - (assq #{outer-var 5785}# (car #{maps 5784}#)))) - (if #{b 5787}# - (values (cdr #{b 5787}#) #{maps 5784}#) - (let ((#{inner-var 5789}# + (#{gen-ref 5307}# + #{src 5784}# + #{var 5785}# + (#{1-}# #{level 5786}#) + (cdr #{maps 5787}#))) + (lambda (#{outer-var 5788}# #{outer-maps 5789}#) + (let ((#{b 5790}# + (assq #{outer-var 5788}# (car #{maps 5787}#)))) + (if #{b 5790}# + (values (cdr #{b 5790}#) #{maps 5787}#) + (let ((#{inner-var 5792}# (gensym (string-append (symbol->string 'tmp) " ")))) (values - #{inner-var 5789}# - (cons (cons (cons #{outer-var 5785}# - #{inner-var 5789}#) - (car #{maps 5784}#)) - #{outer-maps 5786}#))))))))))) - (#{gen-map 5306}# - (lambda (#{e 5803}# #{map-env 5804}#) - (let ((#{formals 5805}# (map cdr #{map-env 5804}#)) - (#{actuals 5806}# - (map (lambda (#{x 5808}#) - (list 'ref (car #{x 5808}#))) - #{map-env 5804}#))) - (if (eq? (car #{e 5803}#) 'ref) - (car #{actuals 5806}#) + #{inner-var 5792}# + (cons (cons (cons #{outer-var 5788}# + #{inner-var 5792}#) + (car #{maps 5787}#)) + #{outer-maps 5789}#))))))))))) + (#{gen-map 5309}# + (lambda (#{e 5806}# #{map-env 5807}#) + (let ((#{formals 5808}# (map cdr #{map-env 5807}#)) + (#{actuals 5809}# + (map (lambda (#{x 5811}#) + (list 'ref (car #{x 5811}#))) + #{map-env 5807}#))) + (if (eq? (car #{e 5806}#) 'ref) + (car #{actuals 5809}#) (if (and-map - (lambda (#{x 5809}#) - (if (eq? (car #{x 5809}#) 'ref) - (memq (car (cdr #{x 5809}#)) #{formals 5805}#) + (lambda (#{x 5812}#) + (if (eq? (car #{x 5812}#) 'ref) + (memq (car (cdr #{x 5812}#)) #{formals 5808}#) #f)) - (cdr #{e 5803}#)) + (cdr #{e 5806}#)) (cons 'map - (cons (list 'primitive (car #{e 5803}#)) - (map (let ((#{r 5811}# + (cons (list 'primitive (car #{e 5806}#)) + (map (let ((#{r 5814}# (map cons - #{formals 5805}# - #{actuals 5806}#))) - (lambda (#{x 5812}#) - (cdr (assq (car (cdr #{x 5812}#)) - #{r 5811}#)))) - (cdr #{e 5803}#)))) + #{formals 5808}# + #{actuals 5809}#))) + (lambda (#{x 5815}#) + (cdr (assq (car (cdr #{x 5815}#)) + #{r 5814}#)))) + (cdr #{e 5806}#)))) (cons 'map - (cons (list 'lambda #{formals 5805}# #{e 5803}#) - #{actuals 5806}#))))))) - (#{regen 5310}# - (lambda (#{x 5814}#) - (let ((#{atom-key 5815}# (car #{x 5814}#))) - (if (eqv? #{atom-key 5815}# 'ref) - (let ((#{name 5825}# (car (cdr #{x 5814}#))) - (#{var 5826}# (car (cdr #{x 5814}#)))) + (cons (list 'lambda #{formals 5808}# #{e 5806}#) + #{actuals 5809}#))))))) + (#{regen 5313}# + (lambda (#{x 5817}#) + (let ((#{atom-key 5818}# (car #{x 5817}#))) + (if (eqv? #{atom-key 5818}# 'ref) + (let ((#{name 5828}# (car (cdr #{x 5817}#))) + (#{var 5829}# (car (cdr #{x 5817}#)))) (make-struct/no-tail (vector-ref %expanded-vtables 3) #f - #{name 5825}# - #{var 5826}#)) - (if (eqv? #{atom-key 5815}# 'primitive) - (let ((#{name 5838}# (car (cdr #{x 5814}#)))) + #{name 5828}# + #{var 5829}#)) + (if (eqv? #{atom-key 5818}# 'primitive) + (let ((#{name 5841}# (car (cdr #{x 5817}#)))) (if (equal? (module-name (current-module)) '(guile)) (make-struct/no-tail (vector-ref %expanded-vtables 7) #f - #{name 5838}#) + #{name 5841}#) (make-struct/no-tail (vector-ref %expanded-vtables 5) #f '(guile) - #{name 5838}# + #{name 5841}# #f))) - (if (eqv? #{atom-key 5815}# 'quote) - (let ((#{exp 5856}# (car (cdr #{x 5814}#)))) + (if (eqv? #{atom-key 5818}# 'quote) + (let ((#{exp 5859}# (car (cdr #{x 5817}#)))) (make-struct/no-tail (vector-ref %expanded-vtables 1) #f - #{exp 5856}#)) - (if (eqv? #{atom-key 5815}# 'lambda) - (if (list? (car (cdr #{x 5814}#))) - (let ((#{req 5867}# (car (cdr #{x 5814}#))) - (#{vars 5869}# (car (cdr #{x 5814}#))) - (#{exp 5871}# - (#{regen 5310}# - (car (cdr (cdr #{x 5814}#)))))) - (let ((#{body 5876}# + #{exp 5859}#)) + (if (eqv? #{atom-key 5818}# 'lambda) + (if (list? (car (cdr #{x 5817}#))) + (let ((#{req 5870}# (car (cdr #{x 5817}#))) + (#{vars 5872}# (car (cdr #{x 5817}#))) + (#{exp 5874}# + (#{regen 5313}# + (car (cdr (cdr #{x 5817}#)))))) + (let ((#{body 5879}# (make-struct/no-tail (vector-ref %expanded-vtables 14) #f - #{req 5867}# + #{req 5870}# #f #f #f '() - #{vars 5869}# - #{exp 5871}# + #{vars 5872}# + #{exp 5874}# #f))) (make-struct/no-tail (vector-ref %expanded-vtables 13) #f '() - #{body 5876}#))) - (error "how did we get here" #{x 5814}#)) - (let ((#{fun-exp 5892}# - (let ((#{name 5901}# (car #{x 5814}#))) + #{body 5879}#))) + (error "how did we get here" #{x 5817}#)) + (let ((#{fun-exp 5895}# + (let ((#{name 5904}# (car #{x 5817}#))) (if (equal? (module-name (current-module)) '(guile)) (make-struct/no-tail (vector-ref %expanded-vtables 7) #f - #{name 5901}#) + #{name 5904}#) (make-struct/no-tail (vector-ref %expanded-vtables 5) #f '(guile) - #{name 5901}# + #{name 5904}# #f)))) - (#{arg-exps 5893}# - (map #{regen 5310}# (cdr #{x 5814}#)))) + (#{arg-exps 5896}# + (map #{regen 5313}# (cdr #{x 5817}#)))) (make-struct/no-tail (vector-ref %expanded-vtables 11) #f - #{fun-exp 5892}# - #{arg-exps 5893}#)))))))))) - (lambda (#{e 5311}# - #{r 5312}# - #{w 5313}# - #{s 5314}# - #{mod 5315}#) - (let ((#{e 5316}# + #{fun-exp 5895}# + #{arg-exps 5896}#)))))))))) + (lambda (#{e 5314}# + #{r 5315}# + #{w 5316}# + #{s 5317}# + #{mod 5318}#) + (let ((#{e 5319}# (#{wrap 4338}# (begin - (if (if (pair? #{e 5311}#) #{s 5314}# #f) - (set-source-properties! #{e 5311}# #{s 5314}#)) - #{e 5311}#) - #{w 5313}# - #{mod 5315}#))) - (let ((#{tmp 5318}# ($sc-dispatch #{e 5316}# '(_ any)))) - (if #{tmp 5318}# + (if (if (pair? #{e 5314}#) #{s 5317}# #f) + (set-source-properties! #{e 5314}# #{s 5317}#)) + #{e 5314}#) + #{w 5316}# + #{mod 5318}#))) + (let ((#{tmp 5321}# ($sc-dispatch #{e 5319}# '(_ any)))) + (if #{tmp 5321}# (@apply - (lambda (#{x 5343}#) + (lambda (#{x 5346}#) (call-with-values (lambda () - (#{gen-syntax 5303}# - #{e 5316}# - #{x 5343}# - #{r 5312}# + (#{gen-syntax 5306}# + #{e 5319}# + #{x 5346}# + #{r 5315}# '() #{ellipsis? 4353}# - #{mod 5315}#)) - (lambda (#{e 5397}# #{maps 5398}#) - (#{regen 5310}# #{e 5397}#)))) - #{tmp 5318}#) + #{mod 5318}#)) + (lambda (#{e 5400}# #{maps 5401}#) + (#{regen 5313}# #{e 5400}#)))) + #{tmp 5321}#) (syntax-violation 'syntax "bad `syntax' form" - #{e 5316}#))))))) + #{e 5319}#))))))) (#{global-extend 4311}# 'core 'lambda - (lambda (#{e 6096}# - #{r 6097}# - #{w 6098}# - #{s 6099}# - #{mod 6100}#) - (let ((#{tmp 6102}# - ($sc-dispatch #{e 6096}# '(_ any any . each-any)))) - (if #{tmp 6102}# + (lambda (#{e 6099}# + #{r 6100}# + #{w 6101}# + #{s 6102}# + #{mod 6103}#) + (let ((#{tmp 6105}# + ($sc-dispatch #{e 6099}# '(_ any any . each-any)))) + (if #{tmp 6105}# (@apply - (lambda (#{args 6106}# #{e1 6107}# #{e2 6108}#) + (lambda (#{args 6109}# #{e1 6110}# #{e2 6111}#) (call-with-values (lambda () - (#{lambda-formals 4354}# #{args 6106}#)) - (lambda (#{req 6111}# - #{opt 6112}# - #{rest 6113}# - #{kw 6114}#) + (#{lambda-formals 4354}# #{args 6109}#)) + (lambda (#{req 6114}# + #{opt 6115}# + #{rest 6116}# + #{kw 6117}#) (letrec* - ((#{lp 6115}# - (lambda (#{body 6118}# #{meta 6119}#) - (let ((#{tmp 6121}# + ((#{lp 6118}# + (lambda (#{body 6121}# #{meta 6122}#) + (let ((#{tmp 6124}# ($sc-dispatch - #{body 6118}# + #{body 6121}# '(any any . each-any)))) - (if (if #{tmp 6121}# + (if (if #{tmp 6124}# (@apply - (lambda (#{docstring 6125}# - #{e1 6126}# - #{e2 6127}#) + (lambda (#{docstring 6128}# + #{e1 6129}# + #{e2 6130}#) (string? - (syntax->datum #{docstring 6125}#))) - #{tmp 6121}#) + (syntax->datum #{docstring 6128}#))) + #{tmp 6124}#) #f) (@apply - (lambda (#{docstring 6128}# - #{e1 6129}# - #{e2 6130}#) - (#{lp 6115}# - (cons #{e1 6129}# #{e2 6130}#) + (lambda (#{docstring 6131}# + #{e1 6132}# + #{e2 6133}#) + (#{lp 6118}# + (cons #{e1 6132}# #{e2 6133}#) (append - #{meta 6119}# + #{meta 6122}# (list (cons 'documentation (syntax->datum - #{docstring 6128}#)))))) - #{tmp 6121}#) - (let ((#{tmp 6131}# + #{docstring 6131}#)))))) + #{tmp 6124}#) + (let ((#{tmp 6134}# ($sc-dispatch - #{body 6118}# + #{body 6121}# '(#(vector #(each (any . any))) any . each-any)))) - (if #{tmp 6131}# + (if #{tmp 6134}# (@apply - (lambda (#{k 6135}# - #{v 6136}# - #{e1 6137}# - #{e2 6138}#) - (#{lp 6115}# - (cons #{e1 6137}# #{e2 6138}#) + (lambda (#{k 6138}# + #{v 6139}# + #{e1 6140}# + #{e2 6141}#) + (#{lp 6118}# + (cons #{e1 6140}# #{e2 6141}#) (append - #{meta 6119}# + #{meta 6122}# (syntax->datum (map cons - #{k 6135}# - #{v 6136}#))))) - #{tmp 6131}#) - (#{chi-simple-lambda 4355}# - #{e 6096}# - #{r 6097}# - #{w 6098}# - #{s 6099}# - #{mod 6100}# - #{req 6111}# - #{rest 6113}# - #{meta 6119}# - #{body 6118}#)))))))) - (#{lp 6115}# (cons #{e1 6107}# #{e2 6108}#) '()))))) - #{tmp 6102}#) + #{k 6138}# + #{v 6139}#))))) + #{tmp 6134}#) + (#{expand-simple-lambda 4355}# + #{e 6099}# + #{r 6100}# + #{w 6101}# + #{s 6102}# + #{mod 6103}# + #{req 6114}# + #{rest 6116}# + #{meta 6122}# + #{body 6121}#)))))))) + (#{lp 6118}# (cons #{e1 6110}# #{e2 6111}#) '()))))) + #{tmp 6105}#) (syntax-violation 'lambda "bad lambda" - #{e 6096}#))))) + #{e 6099}#))))) (#{global-extend 4311}# 'core 'lambda* - (lambda (#{e 6430}# - #{r 6431}# - #{w 6432}# - #{s 6433}# - #{mod 6434}#) - (let ((#{tmp 6436}# - ($sc-dispatch #{e 6430}# '(_ any any . each-any)))) - (if #{tmp 6436}# + (lambda (#{e 6433}# + #{r 6434}# + #{w 6435}# + #{s 6436}# + #{mod 6437}#) + (let ((#{tmp 6439}# + ($sc-dispatch #{e 6433}# '(_ any any . each-any)))) + (if #{tmp 6439}# (@apply - (lambda (#{args 6440}# #{e1 6441}# #{e2 6442}#) + (lambda (#{args 6443}# #{e1 6444}# #{e2 6445}#) (call-with-values (lambda () - (#{chi-lambda-case 4357}# - #{e 6430}# - #{r 6431}# - #{w 6432}# - #{s 6433}# - #{mod 6434}# + (#{expand-lambda-case 4357}# + #{e 6433}# + #{r 6434}# + #{w 6435}# + #{s 6436}# + #{mod 6437}# #{lambda*-formals 4356}# - (list (cons #{args 6440}# - (cons #{e1 6441}# #{e2 6442}#))))) - (lambda (#{meta 6445}# #{lcase 6446}#) + (list (cons #{args 6443}# + (cons #{e1 6444}# #{e2 6445}#))))) + (lambda (#{meta 6448}# #{lcase 6449}#) (make-struct/no-tail (vector-ref %expanded-vtables 13) - #{s 6433}# - #{meta 6445}# - #{lcase 6446}#)))) - #{tmp 6436}#) + #{s 6436}# + #{meta 6448}# + #{lcase 6449}#)))) + #{tmp 6439}#) (syntax-violation 'lambda "bad lambda*" - #{e 6430}#))))) + #{e 6433}#))))) (#{global-extend 4311}# 'core 'case-lambda - (lambda (#{e 6620}# - #{r 6621}# - #{w 6622}# - #{s 6623}# - #{mod 6624}#) - (let ((#{tmp 6626}# + (lambda (#{e 6623}# + #{r 6624}# + #{w 6625}# + #{s 6626}# + #{mod 6627}#) + (let ((#{tmp 6629}# ($sc-dispatch - #{e 6620}# + #{e 6623}# '(_ (any any . each-any) . #(each (any any . each-any)))))) - (if #{tmp 6626}# + (if #{tmp 6629}# (@apply - (lambda (#{args 6630}# - #{e1 6631}# - #{e2 6632}# - #{args* 6633}# - #{e1* 6634}# - #{e2* 6635}#) + (lambda (#{args 6633}# + #{e1 6634}# + #{e2 6635}# + #{args* 6636}# + #{e1* 6637}# + #{e2* 6638}#) (call-with-values (lambda () - (#{chi-lambda-case 4357}# - #{e 6620}# - #{r 6621}# - #{w 6622}# - #{s 6623}# - #{mod 6624}# + (#{expand-lambda-case 4357}# + #{e 6623}# + #{r 6624}# + #{w 6625}# + #{s 6626}# + #{mod 6627}# #{lambda-formals 4354}# - (cons (cons #{args 6630}# - (cons #{e1 6631}# #{e2 6632}#)) - (map (lambda (#{tmp 3274 6638}# - #{tmp 3273 6639}# - #{tmp 3272 6640}#) - (cons #{tmp 3272 6640}# - (cons #{tmp 3273 6639}# - #{tmp 3274 6638}#))) - #{e2* 6635}# - #{e1* 6634}# - #{args* 6633}#)))) - (lambda (#{meta 6641}# #{lcase 6642}#) + (cons (cons #{args 6633}# + (cons #{e1 6634}# #{e2 6635}#)) + (map (lambda (#{tmp 3274 6641}# + #{tmp 3273 6642}# + #{tmp 3272 6643}#) + (cons #{tmp 3272 6643}# + (cons #{tmp 3273 6642}# + #{tmp 3274 6641}#))) + #{e2* 6638}# + #{e1* 6637}# + #{args* 6636}#)))) + (lambda (#{meta 6644}# #{lcase 6645}#) (make-struct/no-tail (vector-ref %expanded-vtables 13) - #{s 6623}# - #{meta 6641}# - #{lcase 6642}#)))) - #{tmp 6626}#) + #{s 6626}# + #{meta 6644}# + #{lcase 6645}#)))) + #{tmp 6629}#) (syntax-violation 'case-lambda "bad case-lambda" - #{e 6620}#))))) + #{e 6623}#))))) (#{global-extend 4311}# 'core 'case-lambda* - (lambda (#{e 6805}# - #{r 6806}# - #{w 6807}# - #{s 6808}# - #{mod 6809}#) - (let ((#{tmp 6811}# + (lambda (#{e 6808}# + #{r 6809}# + #{w 6810}# + #{s 6811}# + #{mod 6812}#) + (let ((#{tmp 6814}# ($sc-dispatch - #{e 6805}# + #{e 6808}# '(_ (any any . each-any) . #(each (any any . each-any)))))) - (if #{tmp 6811}# + (if #{tmp 6814}# (@apply - (lambda (#{args 6815}# - #{e1 6816}# - #{e2 6817}# - #{args* 6818}# - #{e1* 6819}# - #{e2* 6820}#) + (lambda (#{args 6818}# + #{e1 6819}# + #{e2 6820}# + #{args* 6821}# + #{e1* 6822}# + #{e2* 6823}#) (call-with-values (lambda () - (#{chi-lambda-case 4357}# - #{e 6805}# - #{r 6806}# - #{w 6807}# - #{s 6808}# - #{mod 6809}# + (#{expand-lambda-case 4357}# + #{e 6808}# + #{r 6809}# + #{w 6810}# + #{s 6811}# + #{mod 6812}# #{lambda*-formals 4356}# - (cons (cons #{args 6815}# - (cons #{e1 6816}# #{e2 6817}#)) - (map (lambda (#{tmp 3309 6823}# - #{tmp 3308 6824}# - #{tmp 3307 6825}#) - (cons #{tmp 3307 6825}# - (cons #{tmp 3308 6824}# - #{tmp 3309 6823}#))) - #{e2* 6820}# - #{e1* 6819}# - #{args* 6818}#)))) - (lambda (#{meta 6826}# #{lcase 6827}#) + (cons (cons #{args 6818}# + (cons #{e1 6819}# #{e2 6820}#)) + (map (lambda (#{tmp 3309 6826}# + #{tmp 3308 6827}# + #{tmp 3307 6828}#) + (cons #{tmp 3307 6828}# + (cons #{tmp 3308 6827}# + #{tmp 3309 6826}#))) + #{e2* 6823}# + #{e1* 6822}# + #{args* 6821}#)))) + (lambda (#{meta 6829}# #{lcase 6830}#) (make-struct/no-tail (vector-ref %expanded-vtables 13) - #{s 6808}# - #{meta 6826}# - #{lcase 6827}#)))) - #{tmp 6811}#) + #{s 6811}# + #{meta 6829}# + #{lcase 6830}#)))) + #{tmp 6814}#) (syntax-violation 'case-lambda "bad case-lambda*" - #{e 6805}#))))) + #{e 6808}#))))) (#{global-extend 4311}# 'core 'let (letrec* - ((#{chi-let 7019}# - (lambda (#{e 7168}# - #{r 7169}# - #{w 7170}# - #{s 7171}# - #{mod 7172}# - #{constructor 7173}# - #{ids 7174}# - #{vals 7175}# - #{exps 7176}#) - (if (not (#{valid-bound-ids? 4335}# #{ids 7174}#)) + ((#{expand-let 7022}# + (lambda (#{e 7171}# + #{r 7172}# + #{w 7173}# + #{s 7174}# + #{mod 7175}# + #{constructor 7176}# + #{ids 7177}# + #{vals 7178}# + #{exps 7179}#) + (if (not (#{valid-bound-ids? 4335}# #{ids 7177}#)) (syntax-violation 'let "duplicate bound variable" - #{e 7168}#) - (let ((#{labels 7254}# - (#{gen-labels 4316}# #{ids 7174}#)) - (#{new-vars 7255}# - (map #{gen-var 4359}# #{ids 7174}#))) - (let ((#{nw 7256}# + #{e 7171}#) + (let ((#{labels 7257}# + (#{gen-labels 4316}# #{ids 7177}#)) + (#{new-vars 7258}# + (map #{gen-var 4359}# #{ids 7177}#))) + (let ((#{nw 7259}# (#{make-binding-wrap 4327}# - #{ids 7174}# - #{labels 7254}# - #{w 7170}#)) - (#{nr 7257}# + #{ids 7177}# + #{labels 7257}# + #{w 7173}#)) + (#{nr 7260}# (#{extend-var-env 4308}# - #{labels 7254}# - #{new-vars 7255}# - #{r 7169}#))) - (#{constructor 7173}# - #{s 7171}# - (map syntax->datum #{ids 7174}#) - #{new-vars 7255}# - (map (lambda (#{x 7274}#) - (#{chi 4345}# - #{x 7274}# - #{r 7169}# - #{w 7170}# - #{mod 7172}#)) - #{vals 7175}#) - (#{chi-body 4349}# - #{exps 7176}# + #{labels 7257}# + #{new-vars 7258}# + #{r 7172}#))) + (#{constructor 7176}# + #{s 7174}# + (map syntax->datum #{ids 7177}#) + #{new-vars 7258}# + (map (lambda (#{x 7277}#) + (#{expand 4345}# + #{x 7277}# + #{r 7172}# + #{w 7173}# + #{mod 7175}#)) + #{vals 7178}#) + (#{expand-body 4349}# + #{exps 7179}# (#{source-wrap 4339}# - #{e 7168}# - #{nw 7256}# - #{s 7171}# - #{mod 7172}#) - #{nr 7257}# - #{nw 7256}# - #{mod 7172}#)))))))) - (lambda (#{e 7020}# - #{r 7021}# - #{w 7022}# - #{s 7023}# - #{mod 7024}#) - (let ((#{tmp 7026}# + #{e 7171}# + #{nw 7259}# + #{s 7174}# + #{mod 7175}#) + #{nr 7260}# + #{nw 7259}# + #{mod 7175}#)))))))) + (lambda (#{e 7023}# + #{r 7024}# + #{w 7025}# + #{s 7026}# + #{mod 7027}#) + (let ((#{tmp 7029}# ($sc-dispatch - #{e 7020}# + #{e 7023}# '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp 7026}# + (if (if #{tmp 7029}# (@apply - (lambda (#{id 7030}# - #{val 7031}# - #{e1 7032}# - #{e2 7033}#) - (and-map #{id? 4313}# #{id 7030}#)) - #{tmp 7026}#) + (lambda (#{id 7033}# + #{val 7034}# + #{e1 7035}# + #{e2 7036}#) + (and-map #{id? 4313}# #{id 7033}#)) + #{tmp 7029}#) #f) (@apply - (lambda (#{id 7049}# - #{val 7050}# - #{e1 7051}# - #{e2 7052}#) - (#{chi-let 7019}# - #{e 7020}# - #{r 7021}# - #{w 7022}# - #{s 7023}# - #{mod 7024}# + (lambda (#{id 7052}# + #{val 7053}# + #{e1 7054}# + #{e2 7055}#) + (#{expand-let 7022}# + #{e 7023}# + #{r 7024}# + #{w 7025}# + #{s 7026}# + #{mod 7027}# #{build-let 4295}# - #{id 7049}# - #{val 7050}# - (cons #{e1 7051}# #{e2 7052}#))) - #{tmp 7026}#) - (let ((#{tmp 7082}# + #{id 7052}# + #{val 7053}# + (cons #{e1 7054}# #{e2 7055}#))) + #{tmp 7029}#) + (let ((#{tmp 7085}# ($sc-dispatch - #{e 7020}# + #{e 7023}# '(_ any #(each (any any)) any . each-any)))) - (if (if #{tmp 7082}# + (if (if #{tmp 7085}# (@apply - (lambda (#{f 7086}# - #{id 7087}# - #{val 7088}# - #{e1 7089}# - #{e2 7090}#) - (if (if (symbol? #{f 7086}#) + (lambda (#{f 7089}# + #{id 7090}# + #{val 7091}# + #{e1 7092}# + #{e2 7093}#) + (if (if (symbol? #{f 7089}#) #t - (if (if (vector? #{f 7086}#) - (if (= (vector-length #{f 7086}#) 4) - (eq? (vector-ref #{f 7086}# 0) + (if (if (vector? #{f 7089}#) + (if (= (vector-length #{f 7089}#) 4) + (eq? (vector-ref #{f 7089}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{f 7086}# 1)) + (symbol? (vector-ref #{f 7089}# 1)) #f)) - (and-map #{id? 4313}# #{id 7087}#) + (and-map #{id? 4313}# #{id 7090}#) #f)) - #{tmp 7082}#) + #{tmp 7085}#) #f) (@apply - (lambda (#{f 7132}# - #{id 7133}# - #{val 7134}# - #{e1 7135}# - #{e2 7136}#) - (#{chi-let 7019}# - #{e 7020}# - #{r 7021}# - #{w 7022}# - #{s 7023}# - #{mod 7024}# + (lambda (#{f 7135}# + #{id 7136}# + #{val 7137}# + #{e1 7138}# + #{e2 7139}#) + (#{expand-let 7022}# + #{e 7023}# + #{r 7024}# + #{w 7025}# + #{s 7026}# + #{mod 7027}# #{build-named-let 4296}# - (cons #{f 7132}# #{id 7133}#) - #{val 7134}# - (cons #{e1 7135}# #{e2 7136}#))) - #{tmp 7082}#) + (cons #{f 7135}# #{id 7136}#) + #{val 7137}# + (cons #{e1 7138}# #{e2 7139}#))) + #{tmp 7085}#) (syntax-violation 'let "bad let" (#{wrap 4338}# (begin - (if (if (pair? #{e 7020}#) #{s 7023}# #f) - (set-source-properties! #{e 7020}# #{s 7023}#)) - #{e 7020}#) - #{w 7022}# - #{mod 7024}#))))))))) + (if (if (pair? #{e 7023}#) #{s 7026}# #f) + (set-source-properties! #{e 7023}# #{s 7026}#)) + #{e 7023}#) + #{w 7025}# + #{mod 7027}#))))))))) (#{global-extend 4311}# 'core 'letrec - (lambda (#{e 7723}# - #{r 7724}# - #{w 7725}# - #{s 7726}# - #{mod 7727}#) - (let ((#{tmp 7729}# + (lambda (#{e 7726}# + #{r 7727}# + #{w 7728}# + #{s 7729}# + #{mod 7730}#) + (let ((#{tmp 7732}# ($sc-dispatch - #{e 7723}# + #{e 7726}# '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp 7729}# + (if (if #{tmp 7732}# (@apply - (lambda (#{id 7733}# - #{val 7734}# - #{e1 7735}# - #{e2 7736}#) - (and-map #{id? 4313}# #{id 7733}#)) - #{tmp 7729}#) + (lambda (#{id 7736}# + #{val 7737}# + #{e1 7738}# + #{e2 7739}#) + (and-map #{id? 4313}# #{id 7736}#)) + #{tmp 7732}#) #f) (@apply - (lambda (#{id 7752}# - #{val 7753}# - #{e1 7754}# - #{e2 7755}#) - (if (not (#{valid-bound-ids? 4335}# #{id 7752}#)) + (lambda (#{id 7755}# + #{val 7756}# + #{e1 7757}# + #{e2 7758}#) + (if (not (#{valid-bound-ids? 4335}# #{id 7755}#)) (syntax-violation 'letrec "duplicate bound variable" - #{e 7723}#) - (let ((#{labels 7845}# - (#{gen-labels 4316}# #{id 7752}#)) - (#{new-vars 7846}# - (map #{gen-var 4359}# #{id 7752}#))) - (let ((#{w 7847}# + #{e 7726}#) + (let ((#{labels 7848}# + (#{gen-labels 4316}# #{id 7755}#)) + (#{new-vars 7849}# + (map #{gen-var 4359}# #{id 7755}#))) + (let ((#{w 7850}# (#{make-binding-wrap 4327}# - #{id 7752}# - #{labels 7845}# - #{w 7725}#)) - (#{r 7848}# + #{id 7755}# + #{labels 7848}# + #{w 7728}#)) + (#{r 7851}# (#{extend-var-env 4308}# - #{labels 7845}# - #{new-vars 7846}# - #{r 7724}#))) + #{labels 7848}# + #{new-vars 7849}# + #{r 7727}#))) (#{build-letrec 4297}# - #{s 7726}# + #{s 7729}# #f - (map syntax->datum #{id 7752}#) - #{new-vars 7846}# - (map (lambda (#{x 7935}#) - (#{chi 4345}# - #{x 7935}# - #{r 7848}# - #{w 7847}# - #{mod 7727}#)) - #{val 7753}#) - (#{chi-body 4349}# - (cons #{e1 7754}# #{e2 7755}#) + (map syntax->datum #{id 7755}#) + #{new-vars 7849}# + (map (lambda (#{x 7938}#) + (#{expand 4345}# + #{x 7938}# + #{r 7851}# + #{w 7850}# + #{mod 7730}#)) + #{val 7756}#) + (#{expand-body 4349}# + (cons #{e1 7757}# #{e2 7758}#) (#{wrap 4338}# (begin - (if (if (pair? #{e 7723}#) #{s 7726}# #f) - (set-source-properties! #{e 7723}# #{s 7726}#)) - #{e 7723}#) - #{w 7847}# - #{mod 7727}#) - #{r 7848}# - #{w 7847}# - #{mod 7727}#)))))) - #{tmp 7729}#) + (if (if (pair? #{e 7726}#) #{s 7729}# #f) + (set-source-properties! #{e 7726}# #{s 7729}#)) + #{e 7726}#) + #{w 7850}# + #{mod 7730}#) + #{r 7851}# + #{w 7850}# + #{mod 7730}#)))))) + #{tmp 7732}#) (syntax-violation 'letrec "bad letrec" (#{wrap 4338}# (begin - (if (if (pair? #{e 7723}#) #{s 7726}# #f) - (set-source-properties! #{e 7723}# #{s 7726}#)) - #{e 7723}#) - #{w 7725}# - #{mod 7727}#)))))) + (if (if (pair? #{e 7726}#) #{s 7729}# #f) + (set-source-properties! #{e 7726}# #{s 7729}#)) + #{e 7726}#) + #{w 7728}# + #{mod 7730}#)))))) (#{global-extend 4311}# 'core 'letrec* - (lambda (#{e 8352}# - #{r 8353}# - #{w 8354}# - #{s 8355}# - #{mod 8356}#) - (let ((#{tmp 8358}# + (lambda (#{e 8355}# + #{r 8356}# + #{w 8357}# + #{s 8358}# + #{mod 8359}#) + (let ((#{tmp 8361}# ($sc-dispatch - #{e 8352}# + #{e 8355}# '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp 8358}# + (if (if #{tmp 8361}# (@apply - (lambda (#{id 8362}# - #{val 8363}# - #{e1 8364}# - #{e2 8365}#) - (and-map #{id? 4313}# #{id 8362}#)) - #{tmp 8358}#) + (lambda (#{id 8365}# + #{val 8366}# + #{e1 8367}# + #{e2 8368}#) + (and-map #{id? 4313}# #{id 8365}#)) + #{tmp 8361}#) #f) (@apply - (lambda (#{id 8381}# - #{val 8382}# - #{e1 8383}# - #{e2 8384}#) - (if (not (#{valid-bound-ids? 4335}# #{id 8381}#)) + (lambda (#{id 8384}# + #{val 8385}# + #{e1 8386}# + #{e2 8387}#) + (if (not (#{valid-bound-ids? 4335}# #{id 8384}#)) (syntax-violation 'letrec* "duplicate bound variable" - #{e 8352}#) - (let ((#{labels 8474}# - (#{gen-labels 4316}# #{id 8381}#)) - (#{new-vars 8475}# - (map #{gen-var 4359}# #{id 8381}#))) - (let ((#{w 8476}# + #{e 8355}#) + (let ((#{labels 8477}# + (#{gen-labels 4316}# #{id 8384}#)) + (#{new-vars 8478}# + (map #{gen-var 4359}# #{id 8384}#))) + (let ((#{w 8479}# (#{make-binding-wrap 4327}# - #{id 8381}# - #{labels 8474}# - #{w 8354}#)) - (#{r 8477}# + #{id 8384}# + #{labels 8477}# + #{w 8357}#)) + (#{r 8480}# (#{extend-var-env 4308}# - #{labels 8474}# - #{new-vars 8475}# - #{r 8353}#))) + #{labels 8477}# + #{new-vars 8478}# + #{r 8356}#))) (#{build-letrec 4297}# - #{s 8355}# + #{s 8358}# #t - (map syntax->datum #{id 8381}#) - #{new-vars 8475}# - (map (lambda (#{x 8564}#) - (#{chi 4345}# - #{x 8564}# - #{r 8477}# - #{w 8476}# - #{mod 8356}#)) - #{val 8382}#) - (#{chi-body 4349}# - (cons #{e1 8383}# #{e2 8384}#) + (map syntax->datum #{id 8384}#) + #{new-vars 8478}# + (map (lambda (#{x 8567}#) + (#{expand 4345}# + #{x 8567}# + #{r 8480}# + #{w 8479}# + #{mod 8359}#)) + #{val 8385}#) + (#{expand-body 4349}# + (cons #{e1 8386}# #{e2 8387}#) (#{wrap 4338}# (begin - (if (if (pair? #{e 8352}#) #{s 8355}# #f) - (set-source-properties! #{e 8352}# #{s 8355}#)) - #{e 8352}#) - #{w 8476}# - #{mod 8356}#) - #{r 8477}# - #{w 8476}# - #{mod 8356}#)))))) - #{tmp 8358}#) + (if (if (pair? #{e 8355}#) #{s 8358}# #f) + (set-source-properties! #{e 8355}# #{s 8358}#)) + #{e 8355}#) + #{w 8479}# + #{mod 8359}#) + #{r 8480}# + #{w 8479}# + #{mod 8359}#)))))) + #{tmp 8361}#) (syntax-violation 'letrec* "bad letrec*" (#{wrap 4338}# (begin - (if (if (pair? #{e 8352}#) #{s 8355}# #f) - (set-source-properties! #{e 8352}# #{s 8355}#)) - #{e 8352}#) - #{w 8354}# - #{mod 8356}#)))))) + (if (if (pair? #{e 8355}#) #{s 8358}# #f) + (set-source-properties! #{e 8355}# #{s 8358}#)) + #{e 8355}#) + #{w 8357}# + #{mod 8359}#)))))) (#{global-extend 4311}# 'core 'set! - (lambda (#{e 9035}# - #{r 9036}# - #{w 9037}# - #{s 9038}# - #{mod 9039}#) - (let ((#{tmp 9041}# - ($sc-dispatch #{e 9035}# '(_ any any)))) - (if (if #{tmp 9041}# + (lambda (#{e 9038}# + #{r 9039}# + #{w 9040}# + #{s 9041}# + #{mod 9042}#) + (let ((#{tmp 9044}# + ($sc-dispatch #{e 9038}# '(_ any any)))) + (if (if #{tmp 9044}# (@apply - (lambda (#{id 9045}# #{val 9046}#) - (if (symbol? #{id 9045}#) + (lambda (#{id 9048}# #{val 9049}#) + (if (symbol? #{id 9048}#) #t - (if (if (vector? #{id 9045}#) - (if (= (vector-length #{id 9045}#) 4) - (eq? (vector-ref #{id 9045}# 0) 'syntax-object) + (if (if (vector? #{id 9048}#) + (if (= (vector-length #{id 9048}#) 4) + (eq? (vector-ref #{id 9048}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{id 9045}# 1)) + (symbol? (vector-ref #{id 9048}# 1)) #f))) - #{tmp 9041}#) + #{tmp 9044}#) #f) (@apply - (lambda (#{id 9073}# #{val 9074}#) - (let ((#{n 9075}# - (#{id-var-name 4332}# #{id 9073}# #{w 9037}#)) - (#{id-mod 9076}# - (if (if (vector? #{id 9073}#) - (if (= (vector-length #{id 9073}#) 4) - (eq? (vector-ref #{id 9073}# 0) 'syntax-object) + (lambda (#{id 9076}# #{val 9077}#) + (let ((#{n 9078}# + (#{id-var-name 4332}# #{id 9076}# #{w 9040}#)) + (#{id-mod 9079}# + (if (if (vector? #{id 9076}#) + (if (= (vector-length #{id 9076}#) 4) + (eq? (vector-ref #{id 9076}# 0) 'syntax-object) #f) #f) - (vector-ref #{id 9073}# 3) - #{mod 9039}#))) - (let ((#{b 9077}# - (let ((#{t 9764}# (assq #{n 9075}# #{r 9036}#))) - (if #{t 9764}# - (cdr #{t 9764}#) - (if (symbol? #{n 9075}#) - (let ((#{t 9769}# + (vector-ref #{id 9076}# 3) + #{mod 9042}#))) + (let ((#{b 9080}# + (let ((#{t 9767}# (assq #{n 9078}# #{r 9039}#))) + (if #{t 9767}# + (cdr #{t 9767}#) + (if (symbol? #{n 9078}#) + (let ((#{t 9772}# (begin - (if (if (not #{id-mod 9076}#) + (if (if (not #{id-mod 9079}#) (current-module) #f) (warn "module system is booted, we should have a module" - #{n 9075}#)) - (let ((#{v 9806}# + #{n 9078}#)) + (let ((#{v 9809}# (module-variable - (if #{id-mod 9076}# + (if #{id-mod 9079}# (resolve-module - (cdr #{id-mod 9076}#)) + (cdr #{id-mod 9079}#)) (current-module)) - #{n 9075}#))) - (if #{v 9806}# - (if (variable-bound? #{v 9806}#) - (let ((#{val 9815}# + #{n 9078}#))) + (if #{v 9809}# + (if (variable-bound? #{v 9809}#) + (let ((#{val 9818}# (variable-ref - #{v 9806}#))) - (if (macro? #{val 9815}#) + #{v 9809}#))) + (if (macro? #{val 9818}#) (if (macro-type - #{val 9815}#) + #{val 9818}#) (cons (macro-type - #{val 9815}#) + #{val 9818}#) (macro-binding - #{val 9815}#)) + #{val 9818}#)) #f) #f)) #f) #f))))) - (if #{t 9769}# #{t 9769}# '(global))) + (if #{t 9772}# #{t 9772}# '(global))) '(displaced-lexical)))))) - (let ((#{atom-key 9078}# (car #{b 9077}#))) - (if (let ((#{t 9115}# #{atom-key 9078}#)) - (eqv? #{t 9115}# 'lexical)) + (let ((#{atom-key 9081}# (car #{b 9080}#))) + (if (let ((#{t 9118}# #{atom-key 9081}#)) + (eqv? #{t 9118}# 'lexical)) (#{build-lexical-assignment 4284}# - #{s 9038}# - (syntax->datum #{id 9073}#) - (cdr #{b 9077}#) - (#{chi 4345}# - #{val 9074}# - #{r 9036}# - #{w 9037}# - #{mod 9039}#)) - (if (let ((#{t 9400}# #{atom-key 9078}#)) - (eqv? #{t 9400}# 'global)) + #{s 9041}# + (syntax->datum #{id 9076}#) + (cdr #{b 9080}#) + (#{expand 4345}# + #{val 9077}# + #{r 9039}# + #{w 9040}# + #{mod 9042}#)) + (if (let ((#{t 9403}# #{atom-key 9081}#)) + (eqv? #{t 9403}# 'global)) (#{build-global-assignment 4287}# - #{s 9038}# - #{n 9075}# - (#{chi 4345}# - #{val 9074}# - #{r 9036}# - #{w 9037}# - #{mod 9039}#) - #{id-mod 9076}#) - (if (let ((#{t 9655}# #{atom-key 9078}#)) - (eqv? #{t 9655}# 'macro)) - (let ((#{p 9718}# (cdr #{b 9077}#))) + #{s 9041}# + #{n 9078}# + (#{expand 4345}# + #{val 9077}# + #{r 9039}# + #{w 9040}# + #{mod 9042}#) + #{id-mod 9079}#) + (if (let ((#{t 9658}# #{atom-key 9081}#)) + (eqv? #{t 9658}# 'macro)) + (let ((#{p 9721}# (cdr #{b 9080}#))) (if (procedure-property - #{p 9718}# + #{p 9721}# 'variable-transformer) - (#{chi 4345}# - (#{chi-macro 4348}# - #{p 9718}# - #{e 9035}# - #{r 9036}# - #{w 9037}# - #{s 9038}# + (#{expand 4345}# + (#{expand-macro 4348}# + #{p 9721}# + #{e 9038}# + #{r 9039}# + #{w 9040}# + #{s 9041}# #f - #{mod 9039}#) - #{r 9036}# + #{mod 9042}#) + #{r 9039}# '(()) - #{mod 9039}#) + #{mod 9042}#) (syntax-violation 'set! "not a variable transformer" (#{wrap 4338}# - #{e 9035}# - #{w 9037}# - #{mod 9039}#) + #{e 9038}# + #{w 9040}# + #{mod 9042}#) (#{wrap 4338}# - #{id 9073}# - #{w 9037}# - #{id-mod 9076}#)))) - (if (eqv? #{atom-key 9078}# 'displaced-lexical) + #{id 9076}# + #{w 9040}# + #{id-mod 9079}#)))) + (if (eqv? #{atom-key 9081}# 'displaced-lexical) (syntax-violation 'set! "identifier out of context" (#{wrap 4338}# - #{id 9073}# - #{w 9037}# - #{mod 9039}#)) + #{id 9076}# + #{w 9040}# + #{mod 9042}#)) (syntax-violation 'set! "bad set!" (#{wrap 4338}# (begin - (if (if (pair? #{e 9035}#) #{s 9038}# #f) + (if (if (pair? #{e 9038}#) #{s 9041}# #f) (set-source-properties! - #{e 9035}# - #{s 9038}#)) - #{e 9035}#) - #{w 9037}# - #{mod 9039}#)))))))))) - #{tmp 9041}#) - (let ((#{tmp 9916}# + #{e 9038}# + #{s 9041}#)) + #{e 9038}#) + #{w 9040}# + #{mod 9042}#)))))))))) + #{tmp 9044}#) + (let ((#{tmp 9919}# ($sc-dispatch - #{e 9035}# + #{e 9038}# '(_ (any . each-any) any)))) - (if #{tmp 9916}# + (if #{tmp 9919}# (@apply - (lambda (#{head 9920}# #{tail 9921}# #{val 9922}#) + (lambda (#{head 9923}# #{tail 9924}# #{val 9925}#) (call-with-values (lambda () (#{syntax-type 4344}# - #{head 9920}# - #{r 9036}# + #{head 9923}# + #{r 9039}# '(()) #f #f - #{mod 9039}# + #{mod 9042}# #t)) - (lambda (#{type 9925}# - #{value 9926}# - #{ee 9927}# - #{ww 9928}# - #{ss 9929}# - #{modmod 9930}#) - (if (eqv? #{type 9925}# 'module-ref) - (let ((#{val 9934}# - (#{chi 4345}# - #{val 9922}# - #{r 9036}# - #{w 9037}# - #{mod 9039}#))) + (lambda (#{type 9928}# + #{value 9929}# + #{ee 9930}# + #{ww 9931}# + #{ss 9932}# + #{modmod 9933}#) + (if (eqv? #{type 9928}# 'module-ref) + (let ((#{val 9937}# + (#{expand 4345}# + #{val 9925}# + #{r 9039}# + #{w 9040}# + #{mod 9042}#))) (call-with-values (lambda () - (#{value 9926}# - (cons #{head 9920}# #{tail 9921}#) - #{r 9036}# - #{w 9037}#)) - (lambda (#{e 9935}# - #{r 9936}# - #{w 9937}# - #{s* 9938}# - #{mod 9939}#) - (let ((#{tmp 9941}# (list #{e 9935}#))) + (#{value 9929}# + (cons #{head 9923}# #{tail 9924}#) + #{r 9039}# + #{w 9040}#)) + (lambda (#{e 9938}# + #{r 9939}# + #{w 9940}# + #{s* 9941}# + #{mod 9942}#) + (let ((#{tmp 9944}# (list #{e 9938}#))) (if (@apply - (lambda (#{e 9943}#) - (if (symbol? #{e 9943}#) + (lambda (#{e 9946}#) + (if (symbol? #{e 9946}#) #t - (if (if (vector? #{e 9943}#) + (if (if (vector? #{e 9946}#) (if (= (vector-length - #{e 9943}#) + #{e 9946}#) 4) (eq? (vector-ref - #{e 9943}# + #{e 9946}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{e 9943}# 1)) + (vector-ref #{e 9946}# 1)) #f))) - #{tmp 9941}#) + #{tmp 9944}#) (@apply - (lambda (#{e 9973}#) + (lambda (#{e 9976}#) (#{build-global-assignment 4287}# - #{s 9038}# - (syntax->datum #{e 9973}#) - #{val 9934}# - #{mod 9939}#)) - #{tmp 9941}#) + #{s 9041}# + (syntax->datum #{e 9976}#) + #{val 9937}# + #{mod 9942}#)) + #{tmp 9944}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 9935}#)))))) + #{e 9938}#)))))) (#{build-application 4280}# - #{s 9038}# - (#{chi 4345}# + #{s 9041}# + (#{expand 4345}# (list '#(syntax-object setter ((top) @@ -19131,24 +13346,24 @@ (lambda-var-list gen-var strip - chi-lambda-case + expand-lambda-case lambda*-formals - chi-simple-lambda + expand-simple-lambda lambda-formals ellipsis? - chi-void + expand-void eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi + expand-local-syntax + expand-body + expand-macro + expand-application + expand-expr + expand syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence + expand-when-list + expand-install-global + expand-top-sequence + expand-sequence source-wrap wrap bound-id-member? @@ -19543,62 +13758,62 @@ ((top) (top) (top)) ("i46" "i45" "i44"))) (hygiene guile)) - #{head 9920}#) - #{r 9036}# - #{w 9037}# - #{mod 9039}#) - (map (lambda (#{e 10274}#) - (#{chi 4345}# - #{e 10274}# - #{r 9036}# - #{w 9037}# - #{mod 9039}#)) + #{head 9923}#) + #{r 9039}# + #{w 9040}# + #{mod 9042}#) + (map (lambda (#{e 10277}#) + (#{expand 4345}# + #{e 10277}# + #{r 9039}# + #{w 9040}# + #{mod 9042}#)) (append - #{tail 9921}# - (list #{val 9922}#)))))))) - #{tmp 9916}#) + #{tail 9924}# + (list #{val 9925}#)))))))) + #{tmp 9919}#) (syntax-violation 'set! "bad set!" (#{wrap 4338}# (begin - (if (if (pair? #{e 9035}#) #{s 9038}# #f) - (set-source-properties! #{e 9035}# #{s 9038}#)) - #{e 9035}#) - #{w 9037}# - #{mod 9039}#)))))))) + (if (if (pair? #{e 9038}#) #{s 9041}# #f) + (set-source-properties! #{e 9038}# #{s 9041}#)) + #{e 9038}#) + #{w 9040}# + #{mod 9042}#)))))))) (module-define! (current-module) '@ (make-syntax-transformer '@ 'module-ref - (lambda (#{e 10388}# #{r 10389}# #{w 10390}#) - (let ((#{tmp 10392}# - ($sc-dispatch #{e 10388}# '(_ each-any any)))) - (if (if #{tmp 10392}# + (lambda (#{e 10391}# #{r 10392}# #{w 10393}#) + (let ((#{tmp 10395}# + ($sc-dispatch #{e 10391}# '(_ each-any any)))) + (if (if #{tmp 10395}# (@apply - (lambda (#{mod 10395}# #{id 10396}#) - (if (and-map #{id? 4313}# #{mod 10395}#) - (if (symbol? #{id 10396}#) + (lambda (#{mod 10398}# #{id 10399}#) + (if (and-map #{id? 4313}# #{mod 10398}#) + (if (symbol? #{id 10399}#) #t - (if (if (vector? #{id 10396}#) - (if (= (vector-length #{id 10396}#) 4) - (eq? (vector-ref #{id 10396}# 0) + (if (if (vector? #{id 10399}#) + (if (= (vector-length #{id 10399}#) 4) + (eq? (vector-ref #{id 10399}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{id 10396}# 1)) + (symbol? (vector-ref #{id 10399}# 1)) #f)) #f)) - #{tmp 10392}#) + #{tmp 10395}#) #f) (@apply - (lambda (#{mod 10436}# #{id 10437}#) + (lambda (#{mod 10439}# #{id 10440}#) (values - (syntax->datum #{id 10437}#) - #{r 10389}# - #{w 10390}# + (syntax->datum #{id 10440}#) + #{r 10392}# + #{w 10393}# #f (syntax->datum (cons '#(syntax-object @@ -19617,24 +13832,24 @@ (lambda-var-list gen-var strip - chi-lambda-case + expand-lambda-case lambda*-formals - chi-simple-lambda + expand-simple-lambda lambda-formals ellipsis? - chi-void + expand-void eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi + expand-local-syntax + expand-body + expand-macro + expand-application + expand-expr + expand syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence + expand-when-list + expand-install-global + expand-top-sequence + expand-sequence source-wrap wrap bound-id-member? @@ -20029,70 +14244,70 @@ ((top) (top) (top)) ("i46" "i45" "i44"))) (hygiene guile)) - #{mod 10436}#)))) - #{tmp 10392}#) + #{mod 10439}#)))) + #{tmp 10395}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 10388}#)))))) + #{e 10391}#)))))) (#{global-extend 4311}# 'module-ref '@@ - (lambda (#{e 10534}# #{r 10535}# #{w 10536}#) + (lambda (#{e 10537}# #{r 10538}# #{w 10539}#) (letrec* - ((#{remodulate 10537}# - (lambda (#{x 10743}# #{mod 10744}#) - (if (pair? #{x 10743}#) - (cons (#{remodulate 10537}# - (car #{x 10743}#) - #{mod 10744}#) - (#{remodulate 10537}# - (cdr #{x 10743}#) - #{mod 10744}#)) - (if (if (vector? #{x 10743}#) - (if (= (vector-length #{x 10743}#) 4) - (eq? (vector-ref #{x 10743}# 0) 'syntax-object) + ((#{remodulate 10540}# + (lambda (#{x 10746}# #{mod 10747}#) + (if (pair? #{x 10746}#) + (cons (#{remodulate 10540}# + (car #{x 10746}#) + #{mod 10747}#) + (#{remodulate 10540}# + (cdr #{x 10746}#) + #{mod 10747}#)) + (if (if (vector? #{x 10746}#) + (if (= (vector-length #{x 10746}#) 4) + (eq? (vector-ref #{x 10746}# 0) 'syntax-object) #f) #f) - (let ((#{expression 10758}# - (#{remodulate 10537}# - (vector-ref #{x 10743}# 1) - #{mod 10744}#)) - (#{wrap 10759}# (vector-ref #{x 10743}# 2))) + (let ((#{expression 10761}# + (#{remodulate 10540}# + (vector-ref #{x 10746}# 1) + #{mod 10747}#)) + (#{wrap 10762}# (vector-ref #{x 10746}# 2))) (vector 'syntax-object - #{expression 10758}# - #{wrap 10759}# - #{mod 10744}#)) - (if (vector? #{x 10743}#) - (let ((#{n 10767}# (vector-length #{x 10743}#))) - (let ((#{v 10768}# (make-vector #{n 10767}#))) + #{expression 10761}# + #{wrap 10762}# + #{mod 10747}#)) + (if (vector? #{x 10746}#) + (let ((#{n 10770}# (vector-length #{x 10746}#))) + (let ((#{v 10771}# (make-vector #{n 10770}#))) (letrec* - ((#{loop 10769}# - (lambda (#{i 10816}#) - (if (= #{i 10816}# #{n 10767}#) - #{v 10768}# + ((#{loop 10772}# + (lambda (#{i 10819}#) + (if (= #{i 10819}# #{n 10770}#) + #{v 10771}# (begin (vector-set! - #{v 10768}# - #{i 10816}# - (#{remodulate 10537}# - (vector-ref #{x 10743}# #{i 10816}#) - #{mod 10744}#)) - (#{loop 10769}# (#{1+}# #{i 10816}#))))))) - (#{loop 10769}# 0)))) - #{x 10743}#)))))) - (let ((#{tmp 10539}# - ($sc-dispatch #{e 10534}# '(_ each-any any)))) - (if (if #{tmp 10539}# + #{v 10771}# + #{i 10819}# + (#{remodulate 10540}# + (vector-ref #{x 10746}# #{i 10819}#) + #{mod 10747}#)) + (#{loop 10772}# (#{1+}# #{i 10819}#))))))) + (#{loop 10772}# 0)))) + #{x 10746}#)))))) + (let ((#{tmp 10542}# + ($sc-dispatch #{e 10537}# '(_ each-any any)))) + (if (if #{tmp 10542}# (@apply - (lambda (#{mod 10543}# #{exp 10544}#) - (and-map #{id? 4313}# #{mod 10543}#)) - #{tmp 10539}#) + (lambda (#{mod 10546}# #{exp 10547}#) + (and-map #{id? 4313}# #{mod 10546}#)) + #{tmp 10542}#) #f) (@apply - (lambda (#{mod 10560}# #{exp 10561}#) - (let ((#{mod 10562}# + (lambda (#{mod 10563}# #{exp 10564}#) + (let ((#{mod 10565}# (syntax->datum (cons '#(syntax-object private @@ -20110,24 +14325,24 @@ (lambda-var-list gen-var strip - chi-lambda-case + expand-lambda-case lambda*-formals - chi-simple-lambda + expand-simple-lambda lambda-formals ellipsis? - chi-void + expand-void eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi + expand-local-syntax + expand-body + expand-macro + expand-application + expand-expr + expand syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence + expand-when-list + expand-install-global + expand-top-sequence + expand-sequence source-wrap wrap bound-id-member? @@ -20522,127 +14737,127 @@ ((top) (top) (top)) ("i46" "i45" "i44"))) (hygiene guile)) - #{mod 10560}#)))) + #{mod 10563}#)))) (values - (#{remodulate 10537}# - #{exp 10561}# - #{mod 10562}#) - #{r 10535}# - #{w 10536}# - (#{source-annotation 4306}# #{exp 10561}#) - #{mod 10562}#))) - #{tmp 10539}#) + (#{remodulate 10540}# + #{exp 10564}# + #{mod 10565}#) + #{r 10538}# + #{w 10539}# + (#{source-annotation 4306}# #{exp 10564}#) + #{mod 10565}#))) + #{tmp 10542}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 10534}#)))))) + #{e 10537}#)))))) (#{global-extend 4311}# 'core 'if - (lambda (#{e 10922}# - #{r 10923}# - #{w 10924}# - #{s 10925}# - #{mod 10926}#) - (let ((#{tmp 10928}# - ($sc-dispatch #{e 10922}# '(_ any any)))) - (if #{tmp 10928}# + (lambda (#{e 10925}# + #{r 10926}# + #{w 10927}# + #{s 10928}# + #{mod 10929}#) + (let ((#{tmp 10931}# + ($sc-dispatch #{e 10925}# '(_ any any)))) + (if #{tmp 10931}# (@apply - (lambda (#{test 10932}# #{then 10933}#) + (lambda (#{test 10935}# #{then 10936}#) (#{build-conditional 4281}# - #{s 10925}# - (#{chi 4345}# - #{test 10932}# - #{r 10923}# - #{w 10924}# - #{mod 10926}#) - (#{chi 4345}# - #{then 10933}# - #{r 10923}# - #{w 10924}# - #{mod 10926}#) + #{s 10928}# + (#{expand 4345}# + #{test 10935}# + #{r 10926}# + #{w 10927}# + #{mod 10929}#) + (#{expand 4345}# + #{then 10936}# + #{r 10926}# + #{w 10927}# + #{mod 10929}#) (make-struct/no-tail (vector-ref %expanded-vtables 0) #f))) - #{tmp 10928}#) - (let ((#{tmp 11173}# - ($sc-dispatch #{e 10922}# '(_ any any any)))) - (if #{tmp 11173}# + #{tmp 10931}#) + (let ((#{tmp 11176}# + ($sc-dispatch #{e 10925}# '(_ any any any)))) + (if #{tmp 11176}# (@apply - (lambda (#{test 11177}# #{then 11178}# #{else 11179}#) + (lambda (#{test 11180}# #{then 11181}# #{else 11182}#) (#{build-conditional 4281}# - #{s 10925}# - (#{chi 4345}# - #{test 11177}# - #{r 10923}# - #{w 10924}# - #{mod 10926}#) - (#{chi 4345}# - #{then 11178}# - #{r 10923}# - #{w 10924}# - #{mod 10926}#) - (#{chi 4345}# - #{else 11179}# - #{r 10923}# - #{w 10924}# - #{mod 10926}#))) - #{tmp 11173}#) + #{s 10928}# + (#{expand 4345}# + #{test 11180}# + #{r 10926}# + #{w 10927}# + #{mod 10929}#) + (#{expand 4345}# + #{then 11181}# + #{r 10926}# + #{w 10927}# + #{mod 10929}#) + (#{expand 4345}# + #{else 11182}# + #{r 10926}# + #{w 10927}# + #{mod 10929}#))) + #{tmp 11176}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 10922}#))))))) + #{e 10925}#))))))) (#{global-extend 4311}# 'core 'with-fluids - (lambda (#{e 11603}# - #{r 11604}# - #{w 11605}# - #{s 11606}# - #{mod 11607}#) - (let ((#{tmp 11609}# + (lambda (#{e 11606}# + #{r 11607}# + #{w 11608}# + #{s 11609}# + #{mod 11610}#) + (let ((#{tmp 11612}# ($sc-dispatch - #{e 11603}# + #{e 11606}# '(_ #(each (any any)) any . each-any)))) - (if #{tmp 11609}# + (if #{tmp 11612}# (@apply - (lambda (#{fluid 11613}# - #{val 11614}# - #{b 11615}# - #{b* 11616}#) + (lambda (#{fluid 11616}# + #{val 11617}# + #{b 11618}# + #{b* 11619}#) (#{build-dynlet 4282}# - #{s 11606}# - (map (lambda (#{x 11702}#) - (#{chi 4345}# - #{x 11702}# - #{r 11604}# - #{w 11605}# - #{mod 11607}#)) - #{fluid 11613}#) - (map (lambda (#{x 11777}#) - (#{chi 4345}# - #{x 11777}# - #{r 11604}# - #{w 11605}# - #{mod 11607}#)) - #{val 11614}#) - (#{chi-body 4349}# - (cons #{b 11615}# #{b* 11616}#) + #{s 11609}# + (map (lambda (#{x 11705}#) + (#{expand 4345}# + #{x 11705}# + #{r 11607}# + #{w 11608}# + #{mod 11610}#)) + #{fluid 11616}#) + (map (lambda (#{x 11780}#) + (#{expand 4345}# + #{x 11780}# + #{r 11607}# + #{w 11608}# + #{mod 11610}#)) + #{val 11617}#) + (#{expand-body 4349}# + (cons #{b 11618}# #{b* 11619}#) (#{wrap 4338}# (begin - (if (if (pair? #{e 11603}#) #{s 11606}# #f) - (set-source-properties! #{e 11603}# #{s 11606}#)) - #{e 11603}#) - #{w 11605}# - #{mod 11607}#) - #{r 11604}# - #{w 11605}# - #{mod 11607}#))) - #{tmp 11609}#) + (if (if (pair? #{e 11606}#) #{s 11609}# #f) + (set-source-properties! #{e 11606}# #{s 11609}#)) + #{e 11606}#) + #{w 11608}# + #{mod 11610}#) + #{r 11607}# + #{w 11608}# + #{mod 11610}#))) + #{tmp 11612}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 11603}#))))) + #{e 11606}#))))) (module-define! (current-module) 'begin @@ -20669,71 +14884,71 @@ 'core 'syntax-case (letrec* - ((#{convert-pattern 12148}# - (lambda (#{pattern 13759}# #{keys 13760}#) + ((#{convert-pattern 12154}# + (lambda (#{pattern 13777}# #{keys 13778}#) (letrec* - ((#{cvt* 13761}# - (lambda (#{p* 14378}# #{n 14379}# #{ids 14380}#) - (if (not (pair? #{p* 14378}#)) - (#{cvt 13763}# - #{p* 14378}# - #{n 14379}# - #{ids 14380}#) + ((#{cvt* 13779}# + (lambda (#{p* 14405}# #{n 14406}# #{ids 14407}#) + (if (not (pair? #{p* 14405}#)) + (#{cvt 13781}# + #{p* 14405}# + #{n 14406}# + #{ids 14407}#) (call-with-values (lambda () - (#{cvt* 13761}# - (cdr #{p* 14378}#) - #{n 14379}# - #{ids 14380}#)) - (lambda (#{y 14383}# #{ids 14384}#) + (#{cvt* 13779}# + (cdr #{p* 14405}#) + #{n 14406}# + #{ids 14407}#)) + (lambda (#{y 14410}# #{ids 14411}#) (call-with-values (lambda () - (#{cvt 13763}# - (car #{p* 14378}#) - #{n 14379}# - #{ids 14384}#)) - (lambda (#{x 14387}# #{ids 14388}#) + (#{cvt 13781}# + (car #{p* 14405}#) + #{n 14406}# + #{ids 14411}#)) + (lambda (#{x 14414}# #{ids 14415}#) (values - (cons #{x 14387}# #{y 14383}#) - #{ids 14388}#)))))))) - (#{v-reverse 13762}# - (lambda (#{x 14389}#) + (cons #{x 14414}# #{y 14410}#) + #{ids 14415}#)))))))) + (#{v-reverse 13780}# + (lambda (#{x 14416}#) (letrec* - ((#{loop 14390}# - (lambda (#{r 14467}# #{x 14468}#) - (if (not (pair? #{x 14468}#)) - (values #{r 14467}# #{x 14468}#) - (#{loop 14390}# - (cons (car #{x 14468}#) #{r 14467}#) - (cdr #{x 14468}#)))))) - (#{loop 14390}# '() #{x 14389}#)))) - (#{cvt 13763}# - (lambda (#{p 13766}# #{n 13767}# #{ids 13768}#) - (if (if (symbol? #{p 13766}#) + ((#{loop 14417}# + (lambda (#{r 14494}# #{x 14495}#) + (if (not (pair? #{x 14495}#)) + (values #{r 14494}# #{x 14495}#) + (#{loop 14417}# + (cons (car #{x 14495}#) #{r 14494}#) + (cdr #{x 14495}#)))))) + (#{loop 14417}# '() #{x 14416}#)))) + (#{cvt 13781}# + (lambda (#{p 13784}# #{n 13785}# #{ids 13786}#) + (if (if (symbol? #{p 13784}#) #t - (if (if (vector? #{p 13766}#) - (if (= (vector-length #{p 13766}#) 4) - (eq? (vector-ref #{p 13766}# 0) + (if (if (vector? #{p 13784}#) + (if (= (vector-length #{p 13784}#) 4) + (eq? (vector-ref #{p 13784}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{p 13766}# 1)) + (symbol? (vector-ref #{p 13784}# 1)) #f)) (if (#{bound-id-member? 4337}# - #{p 13766}# - #{keys 13760}#) + #{p 13784}# + #{keys 13778}#) (values - (vector 'free-id #{p 13766}#) - #{ids 13768}#) - (if (if (eq? (if (if (vector? #{p 13766}#) - (if (= (vector-length #{p 13766}#) + (vector 'free-id #{p 13784}#) + #{ids 13786}#) + (if (if (eq? (if (if (vector? #{p 13784}#) + (if (= (vector-length #{p 13784}#) 4) - (eq? (vector-ref #{p 13766}# 0) + (eq? (vector-ref #{p 13784}# 0) 'syntax-object) #f) #f) - (vector-ref #{p 13766}# 1) - #{p 13766}#) + (vector-ref #{p 13784}# 1) + #{p 13784}#) (if (if (= (vector-length '#(syntax-object _ @@ -20772,24 +14987,24 @@ (lambda-var-list gen-var strip - chi-lambda-case + expand-lambda-case lambda*-formals - chi-simple-lambda + expand-simple-lambda lambda-formals ellipsis? - chi-void + expand-void eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi + expand-local-syntax + expand-body + expand-macro + expand-application + expand-expr + expand syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence + expand-when-list + expand-install-global + expand-top-sequence + expand-sequence source-wrap wrap bound-id-member? @@ -21185,903 +15400,9 @@ ("i46" "i45" "i44"))) (hygiene guile))) 4) - (eq? (vector-ref - '#(syntax-object - _ - ((top) - #(ribcage () () ()) - #(ribcage - #(p n ids) - #((top) (top) (top)) - #("i3747" - "i3748" - "i3749")) - #(ribcage - (cvt v-reverse cvt*) - ((top) (top) (top)) - ("i3720" - "i3718" - "i3716")) - #(ribcage - #(pattern keys) - #((top) (top)) - #("i3714" "i3715")) - #(ribcage - (gen-syntax-case - gen-clause - build-dispatch-call - convert-pattern) - ((top) - (top) - (top) - (top)) - ("i3710" - "i3708" - "i3706" - "i3704")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("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")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i46" "i45" "i44"))) - (hygiene guile)) - 0) - 'syntax-object) + #t #f) - (vector-ref - '#(syntax-object - _ - ((top) - #(ribcage () () ()) - #(ribcage - #(p n ids) - #((top) (top) (top)) - #("i3747" "i3748" "i3749")) - #(ribcage - (cvt v-reverse cvt*) - ((top) (top) (top)) - ("i3720" "i3718" "i3716")) - #(ribcage - #(pattern keys) - #((top) (top)) - #("i3714" "i3715")) - #(ribcage - (gen-syntax-case - gen-clause - build-dispatch-call - convert-pattern) - ((top) (top) (top) (top)) - ("i3710" - "i3708" - "i3706" - "i3704")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("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")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i46" "i45" "i44"))) - (hygiene guile)) - 1) + '_ '#(syntax-object _ ((top) @@ -22109,24 +15430,24 @@ (lambda-var-list gen-var strip - chi-lambda-case + expand-lambda-case lambda*-formals - chi-simple-lambda + expand-simple-lambda lambda-formals ellipsis? - chi-void + expand-void eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi + expand-local-syntax + expand-body + expand-macro + expand-application + expand-expr + expand syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence + expand-when-list + expand-install-global + expand-top-sequence + expand-sequence source-wrap wrap bound-id-member? @@ -22521,7 +15842,7 @@ ((top) (top) (top)) ("i46" "i45" "i44"))) (hygiene guile)))) - (eq? (#{id-var-name 4332}# #{p 13766}# '(())) + (eq? (#{id-var-name 4332}# #{p 13784}# '(())) (#{id-var-name 4332}# '#(syntax-object _ @@ -22550,24 +15871,24 @@ (lambda-var-list gen-var strip - chi-lambda-case + expand-lambda-case lambda*-formals - chi-simple-lambda + expand-simple-lambda lambda-formals ellipsis? - chi-void + expand-void eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi + expand-local-syntax + expand-body + expand-macro + expand-application + expand-expr + expand syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence + expand-when-list + expand-install-global + expand-top-sequence + expand-sequence source-wrap wrap bound-id-member? @@ -22964,40 +16285,40 @@ (hygiene guile)) '(()))) #f) - (values '_ #{ids 13768}#) + (values '_ #{ids 13786}#) (values 'any - (cons (cons #{p 13766}# #{n 13767}#) - #{ids 13768}#)))) - (let ((#{tmp 14087}# - ($sc-dispatch #{p 13766}# '(any any)))) - (if (if #{tmp 14087}# + (cons (cons #{p 13784}# #{n 13785}#) + #{ids 13786}#)))) + (let ((#{tmp 14108}# + ($sc-dispatch #{p 13784}# '(any any)))) + (if (if #{tmp 14108}# (@apply - (lambda (#{x 14091}# #{dots 14092}#) - (if (if (if (vector? #{dots 14092}#) + (lambda (#{x 14112}# #{dots 14113}#) + (if (if (if (vector? #{dots 14113}#) (if (= (vector-length - #{dots 14092}#) + #{dots 14113}#) 4) (eq? (vector-ref - #{dots 14092}# + #{dots 14113}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{dots 14092}# 1)) + (symbol? (vector-ref #{dots 14113}# 1)) #f) - (if (eq? (if (if (vector? #{dots 14092}#) + (if (eq? (if (if (vector? #{dots 14113}#) (if (= (vector-length - #{dots 14092}#) + #{dots 14113}#) 4) (eq? (vector-ref - #{dots 14092}# + #{dots 14113}# 0) 'syntax-object) #f) #f) - (vector-ref #{dots 14092}# 1) - #{dots 14092}#) + (vector-ref #{dots 14113}# 1) + #{dots 14113}#) (if (if (= (vector-length '#(syntax-object ... @@ -23018,24 +16339,24 @@ (lambda-var-list gen-var strip - chi-lambda-case + expand-lambda-case lambda*-formals - chi-simple-lambda + expand-simple-lambda lambda-formals ellipsis? - chi-void + expand-void eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi + expand-local-syntax + expand-body + expand-macro + expand-application + expand-expr + expand syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence + expand-when-list + expand-install-global + expand-top-sequence + expand-sequence source-wrap wrap bound-id-member? @@ -23435,872 +16756,9 @@ "i44"))) (hygiene guile))) 4) - (eq? (vector-ref - '#(syntax-object - ... - ((top) - #(ribcage - () - () - ()) - #(ribcage - () - () - ()) - #(ribcage - #(x) - #((top)) - #("i2230")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("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")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) - (top) - (top)) - ("i46" - "i45" - "i44"))) - (hygiene guile)) - 0) - 'syntax-object) + #t #f) - (vector-ref - '#(syntax-object - ... - ((top) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i2230")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("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")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i46" "i45" "i44"))) - (hygiene guile)) - 1) + '... '#(syntax-object ... ((top) @@ -24314,24 +16772,24 @@ (lambda-var-list gen-var strip - chi-lambda-case + expand-lambda-case lambda*-formals - chi-simple-lambda + expand-simple-lambda lambda-formals ellipsis? - chi-void + expand-void eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi + expand-local-syntax + expand-body + expand-macro + expand-application + expand-expr + expand syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence + expand-when-list + expand-install-global + expand-top-sequence + expand-sequence source-wrap wrap bound-id-member? @@ -24727,7 +17185,7 @@ ("i46" "i45" "i44"))) (hygiene guile)))) (eq? (#{id-var-name 4332}# - #{dots 14092}# + #{dots 14113}# '(())) (#{id-var-name 4332}# '#(syntax-object @@ -24743,24 +17201,24 @@ (lambda-var-list gen-var strip - chi-lambda-case + expand-lambda-case lambda*-formals - chi-simple-lambda + expand-simple-lambda lambda-formals ellipsis? - chi-void + expand-void eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi + expand-local-syntax + expand-body + expand-macro + expand-application + expand-expr + expand syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence + expand-when-list + expand-install-global + expand-top-sequence + expand-sequence source-wrap wrap bound-id-member? @@ -25158,58 +17616,58 @@ '(()))) #f) #f)) - #{tmp 14087}#) + #{tmp 14108}#) #f) (@apply - (lambda (#{x 14189}# #{dots 14190}#) + (lambda (#{x 14213}# #{dots 14214}#) (call-with-values (lambda () - (#{cvt 13763}# - #{x 14189}# - (#{1+}# #{n 13767}#) - #{ids 13768}#)) - (lambda (#{p 14191}# #{ids 14192}#) + (#{cvt 13781}# + #{x 14213}# + (#{1+}# #{n 13785}#) + #{ids 13786}#)) + (lambda (#{p 14215}# #{ids 14216}#) (values - (if (eq? #{p 14191}# 'any) + (if (eq? #{p 14215}# 'any) 'each-any - (vector 'each #{p 14191}#)) - #{ids 14192}#)))) - #{tmp 14087}#) - (let ((#{tmp 14193}# - ($sc-dispatch #{p 13766}# '(any any . any)))) - (if (if #{tmp 14193}# + (vector 'each #{p 14215}#)) + #{ids 14216}#)))) + #{tmp 14108}#) + (let ((#{tmp 14217}# + ($sc-dispatch #{p 13784}# '(any any . any)))) + (if (if #{tmp 14217}# (@apply - (lambda (#{x 14197}# - #{dots 14198}# - #{ys 14199}#) - (if (if (if (vector? #{dots 14198}#) + (lambda (#{x 14221}# + #{dots 14222}# + #{ys 14223}#) + (if (if (if (vector? #{dots 14222}#) (if (= (vector-length - #{dots 14198}#) + #{dots 14222}#) 4) (eq? (vector-ref - #{dots 14198}# + #{dots 14222}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{dots 14198}# 1)) + (vector-ref #{dots 14222}# 1)) #f) (if (eq? (if (if (vector? - #{dots 14198}#) + #{dots 14222}#) (if (= (vector-length - #{dots 14198}#) + #{dots 14222}#) 4) (eq? (vector-ref - #{dots 14198}# + #{dots 14222}# 0) 'syntax-object) #f) #f) (vector-ref - #{dots 14198}# + #{dots 14222}# 1) - #{dots 14198}#) + #{dots 14222}#) (if (if (= (vector-length '#(syntax-object ... @@ -25230,24 +17688,24 @@ (lambda-var-list gen-var strip - chi-lambda-case + expand-lambda-case lambda*-formals - chi-simple-lambda + expand-simple-lambda lambda-formals ellipsis? - chi-void + expand-void eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi + expand-local-syntax + expand-body + expand-macro + expand-application + expand-expr + expand syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence + expand-when-list + expand-install-global + expand-top-sequence + expand-sequence source-wrap wrap bound-id-member? @@ -25648,875 +18106,9 @@ (hygiene guile))) 4) - (eq? (vector-ref - '#(syntax-object - ... - ((top) - #(ribcage - () - () - ()) - #(ribcage - () - () - ()) - #(ribcage - #(x) - #((top)) - #("i2230")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("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")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) - (top) - (top)) - ("i46" - "i45" - "i44"))) - (hygiene - guile)) - 0) - 'syntax-object) + #t #f) - (vector-ref - '#(syntax-object - ... - ((top) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i2230")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("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")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i46" - "i45" - "i44"))) - (hygiene guile)) - 1) + '... '#(syntax-object ... ((top) @@ -26530,24 +18122,24 @@ (lambda-var-list gen-var strip - chi-lambda-case + expand-lambda-case lambda*-formals - chi-simple-lambda + expand-simple-lambda lambda-formals ellipsis? - chi-void + expand-void eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi + expand-local-syntax + expand-body + expand-macro + expand-application + expand-expr + expand syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence + expand-when-list + expand-install-global + expand-top-sequence + expand-sequence source-wrap wrap bound-id-member? @@ -26943,7 +18535,7 @@ ("i46" "i45" "i44"))) (hygiene guile)))) (eq? (#{id-var-name 4332}# - #{dots 14198}# + #{dots 14222}# '(())) (#{id-var-name 4332}# '#(syntax-object @@ -26959,24 +18551,24 @@ (lambda-var-list gen-var strip - chi-lambda-case + expand-lambda-case lambda*-formals - chi-simple-lambda + expand-simple-lambda lambda-formals ellipsis? - chi-void + expand-void eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi + expand-local-syntax + expand-body + expand-macro + expand-application + expand-expr + expand syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence + expand-when-list + expand-install-global + expand-top-sequence + expand-sequence source-wrap wrap bound-id-member? @@ -27374,110 +18966,110 @@ '(()))) #f) #f)) - #{tmp 14193}#) + #{tmp 14217}#) #f) (@apply - (lambda (#{x 14296}# - #{dots 14297}# - #{ys 14298}#) + (lambda (#{x 14323}# + #{dots 14324}# + #{ys 14325}#) (call-with-values (lambda () - (#{cvt* 13761}# - #{ys 14298}# - #{n 13767}# - #{ids 13768}#)) - (lambda (#{ys 14301}# #{ids 14302}#) + (#{cvt* 13779}# + #{ys 14325}# + #{n 13785}# + #{ids 13786}#)) + (lambda (#{ys 14328}# #{ids 14329}#) (call-with-values (lambda () - (#{cvt 13763}# - #{x 14296}# - (#{1+}# #{n 13767}#) - #{ids 14302}#)) - (lambda (#{x 14303}# #{ids 14304}#) + (#{cvt 13781}# + #{x 14323}# + (#{1+}# #{n 13785}#) + #{ids 14329}#)) + (lambda (#{x 14330}# #{ids 14331}#) (call-with-values (lambda () - (#{v-reverse 13762}# - #{ys 14301}#)) - (lambda (#{ys 14337}# #{e 14338}#) + (#{v-reverse 13780}# + #{ys 14328}#)) + (lambda (#{ys 14364}# #{e 14365}#) (values (vector 'each+ - #{x 14303}# - #{ys 14337}# - #{e 14338}#) - #{ids 14304}#)))))))) - #{tmp 14193}#) - (let ((#{tmp 14339}# - ($sc-dispatch #{p 13766}# '(any . any)))) - (if #{tmp 14339}# + #{x 14330}# + #{ys 14364}# + #{e 14365}#) + #{ids 14331}#)))))))) + #{tmp 14217}#) + (let ((#{tmp 14366}# + ($sc-dispatch #{p 13784}# '(any . any)))) + (if #{tmp 14366}# (@apply - (lambda (#{x 14343}# #{y 14344}#) + (lambda (#{x 14370}# #{y 14371}#) (call-with-values (lambda () - (#{cvt 13763}# - #{y 14344}# - #{n 13767}# - #{ids 13768}#)) - (lambda (#{y 14345}# #{ids 14346}#) + (#{cvt 13781}# + #{y 14371}# + #{n 13785}# + #{ids 13786}#)) + (lambda (#{y 14372}# #{ids 14373}#) (call-with-values (lambda () - (#{cvt 13763}# - #{x 14343}# - #{n 13767}# - #{ids 14346}#)) - (lambda (#{x 14347}# #{ids 14348}#) + (#{cvt 13781}# + #{x 14370}# + #{n 13785}# + #{ids 14373}#)) + (lambda (#{x 14374}# #{ids 14375}#) (values - (cons #{x 14347}# #{y 14345}#) - #{ids 14348}#)))))) - #{tmp 14339}#) - (let ((#{tmp 14349}# - ($sc-dispatch #{p 13766}# '()))) - (if #{tmp 14349}# + (cons #{x 14374}# #{y 14372}#) + #{ids 14375}#)))))) + #{tmp 14366}#) + (let ((#{tmp 14376}# + ($sc-dispatch #{p 13784}# '()))) + (if #{tmp 14376}# (@apply - (lambda () (values '() #{ids 13768}#)) - #{tmp 14349}#) - (let ((#{tmp 14353}# + (lambda () (values '() #{ids 13786}#)) + #{tmp 14376}#) + (let ((#{tmp 14380}# ($sc-dispatch - #{p 13766}# + #{p 13784}# '#(vector each-any)))) - (if #{tmp 14353}# + (if #{tmp 14380}# (@apply - (lambda (#{x 14357}#) + (lambda (#{x 14384}#) (call-with-values (lambda () - (#{cvt 13763}# - #{x 14357}# - #{n 13767}# - #{ids 13768}#)) - (lambda (#{p 14358}# - #{ids 14359}#) + (#{cvt 13781}# + #{x 14384}# + #{n 13785}# + #{ids 13786}#)) + (lambda (#{p 14385}# + #{ids 14386}#) (values (vector 'vector - #{p 14358}#) - #{ids 14359}#)))) - #{tmp 14353}#) + #{p 14385}#) + #{ids 14386}#)))) + #{tmp 14380}#) (values (vector 'atom (#{strip 4358}# - #{p 13766}# + #{p 13784}# '(()))) - #{ids 13768}#))))))))))))))) - (#{cvt 13763}# #{pattern 13759}# 0 '())))) - (#{build-dispatch-call 12149}# - (lambda (#{pvars 14469}# - #{exp 14470}# - #{y 14471}# - #{r 14472}# - #{mod 14473}#) - (let ((#{ids 14474}# (map car #{pvars 14469}#))) + #{ids 13786}#))))))))))))))) + (#{cvt 13781}# #{pattern 13777}# 0 '())))) + (#{build-dispatch-call 12155}# + (lambda (#{pvars 14496}# + #{exp 14497}# + #{y 14498}# + #{r 14499}# + #{mod 14500}#) + (let ((#{ids 14501}# (map car #{pvars 14496}#))) (begin - (map cdr #{pvars 14469}#) - (let ((#{labels 14476}# - (#{gen-labels 4316}# #{ids 14474}#)) - (#{new-vars 14477}# - (map #{gen-var 4359}# #{ids 14474}#))) + (map cdr #{pvars 14496}#) + (let ((#{labels 14503}# + (#{gen-labels 4316}# #{ids 14501}#)) + (#{new-vars 14504}# + (map #{gen-var 4359}# #{ids 14501}#))) (#{build-application 4280}# #f (if (equal? (module-name (current-module)) '(guile)) @@ -27493,76 +19085,76 @@ #f)) (list (#{build-simple-lambda 4289}# #f - (map syntax->datum #{ids 14474}#) + (map syntax->datum #{ids 14501}#) #f - #{new-vars 14477}# + #{new-vars 14504}# '() - (#{chi 4345}# - #{exp 14470}# + (#{expand 4345}# + #{exp 14497}# (#{extend-env 4307}# - #{labels 14476}# - (map (lambda (#{var 14802}# #{level 14803}#) + #{labels 14503}# + (map (lambda (#{var 14829}# #{level 14830}#) (cons 'syntax - (cons #{var 14802}# - #{level 14803}#))) - #{new-vars 14477}# - (map cdr #{pvars 14469}#)) - #{r 14472}#) + (cons #{var 14829}# + #{level 14830}#))) + #{new-vars 14504}# + (map cdr #{pvars 14496}#)) + #{r 14499}#) (#{make-binding-wrap 4327}# - #{ids 14474}# - #{labels 14476}# + #{ids 14501}# + #{labels 14503}# '(())) - #{mod 14473}#)) - #{y 14471}#))))))) - (#{gen-clause 12150}# - (lambda (#{x 13123}# - #{keys 13124}# - #{clauses 13125}# - #{r 13126}# - #{pat 13127}# - #{fender 13128}# - #{exp 13129}# - #{mod 13130}#) + #{mod 14500}#)) + #{y 14498}#))))))) + (#{gen-clause 12156}# + (lambda (#{x 13138}# + #{keys 13139}# + #{clauses 13140}# + #{r 13141}# + #{pat 13142}# + #{fender 13143}# + #{exp 13144}# + #{mod 13145}#) (call-with-values (lambda () - (#{convert-pattern 12148}# - #{pat 13127}# - #{keys 13124}#)) - (lambda (#{p 13285}# #{pvars 13286}#) + (#{convert-pattern 12154}# + #{pat 13142}# + #{keys 13139}#)) + (lambda (#{p 13300}# #{pvars 13301}#) (if (not (#{distinct-bound-ids? 4336}# - (map car #{pvars 13286}#))) + (map car #{pvars 13301}#))) (syntax-violation 'syntax-case "duplicate pattern variable" - #{pat 13127}#) + #{pat 13142}#) (if (not (and-map - (lambda (#{x 13406}#) - (not (let ((#{x 13410}# (car #{x 13406}#))) - (if (if (if (vector? #{x 13410}#) + (lambda (#{x 13421}#) + (not (let ((#{x 13425}# (car #{x 13421}#))) + (if (if (if (vector? #{x 13425}#) (if (= (vector-length - #{x 13410}#) + #{x 13425}#) 4) (eq? (vector-ref - #{x 13410}# + #{x 13425}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{x 13410}# 1)) + (vector-ref #{x 13425}# 1)) #f) - (if (eq? (if (if (vector? #{x 13410}#) + (if (eq? (if (if (vector? #{x 13425}#) (if (= (vector-length - #{x 13410}#) + #{x 13425}#) 4) (eq? (vector-ref - #{x 13410}# + #{x 13425}# 0) 'syntax-object) #f) #f) - (vector-ref #{x 13410}# 1) - #{x 13410}#) + (vector-ref #{x 13425}# 1) + #{x 13425}#) (if (if (= (vector-length '#(syntax-object ... @@ -27583,24 +19175,24 @@ (lambda-var-list gen-var strip - chi-lambda-case + expand-lambda-case lambda*-formals - chi-simple-lambda + expand-simple-lambda lambda-formals ellipsis? - chi-void + expand-void eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi + expand-local-syntax + expand-body + expand-macro + expand-application + expand-expr + expand syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence + expand-when-list + expand-install-global + expand-top-sequence + expand-sequence source-wrap wrap bound-id-member? @@ -28001,875 +19593,9 @@ (hygiene guile))) 4) - (eq? (vector-ref - '#(syntax-object - ... - ((top) - #(ribcage - () - () - ()) - #(ribcage - () - () - ()) - #(ribcage - #(x) - #((top)) - #("i2230")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("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")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) - (top) - (top)) - ("i46" - "i45" - "i44"))) - (hygiene - guile)) - 0) - 'syntax-object) + #t #f) - (vector-ref - '#(syntax-object - ... - ((top) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i2230")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("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")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i46" - "i45" - "i44"))) - (hygiene guile)) - 1) + '... '#(syntax-object ... ((top) @@ -28883,24 +19609,24 @@ (lambda-var-list gen-var strip - chi-lambda-case + expand-lambda-case lambda*-formals - chi-simple-lambda + expand-simple-lambda lambda-formals ellipsis? - chi-void + expand-void eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi + expand-local-syntax + expand-body + expand-macro + expand-application + expand-expr + expand syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence + expand-when-list + expand-install-global + expand-top-sequence + expand-sequence source-wrap wrap bound-id-member? @@ -29296,7 +20022,7 @@ ("i46" "i45" "i44"))) (hygiene guile)))) (eq? (#{id-var-name 4332}# - #{x 13410}# + #{x 13425}# '(())) (#{id-var-name 4332}# '#(syntax-object @@ -29312,24 +20038,24 @@ (lambda-var-list gen-var strip - chi-lambda-case + expand-lambda-case lambda*-formals - chi-simple-lambda + expand-simple-lambda lambda-formals ellipsis? - chi-void + expand-void eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi + expand-local-syntax + expand-body + expand-macro + expand-application + expand-expr + expand syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence + expand-when-list + expand-install-global + expand-top-sequence + expand-sequence source-wrap wrap bound-id-member? @@ -29727,42 +20453,42 @@ '(()))) #f) #f)))) - #{pvars 13286}#)) + #{pvars 13301}#)) (syntax-violation 'syntax-case "misplaced ellipsis" - #{pat 13127}#) - (let ((#{y 13483}# + #{pat 13142}#) + (let ((#{y 13501}# (gensym (string-append (symbol->string 'tmp) " ")))) (#{build-application 4280}# #f - (let ((#{req 13633}# (list 'tmp)) - (#{vars 13635}# (list #{y 13483}#)) - (#{exp 13637}# - (let ((#{y 13654}# + (let ((#{req 13651}# (list 'tmp)) + (#{vars 13653}# (list #{y 13501}#)) + (#{exp 13655}# + (let ((#{y 13672}# (make-struct/no-tail (vector-ref %expanded-vtables 3) #f 'tmp - #{y 13483}#))) - (let ((#{test-exp 13658}# - (let ((#{tmp 13667}# + #{y 13501}#))) + (let ((#{test-exp 13676}# + (let ((#{tmp 13685}# ($sc-dispatch - #{fender 13128}# + #{fender 13143}# '#(atom #t)))) - (if #{tmp 13667}# + (if #{tmp 13685}# (@apply - (lambda () #{y 13654}#) - #{tmp 13667}#) - (let ((#{then-exp 13685}# - (#{build-dispatch-call 12149}# - #{pvars 13286}# - #{fender 13128}# - #{y 13654}# - #{r 13126}# - #{mod 13130}#)) - (#{else-exp 13686}# + (lambda () #{y 13672}#) + #{tmp 13685}#) + (let ((#{then-exp 13703}# + (#{build-dispatch-call 12155}# + #{pvars 13301}# + #{fender 13143}# + #{y 13672}# + #{r 13141}# + #{mod 13145}#)) + (#{else-exp 13704}# (make-struct/no-tail (vector-ref %expanded-vtables @@ -29774,48 +20500,48 @@ %expanded-vtables 10) #f - #{y 13654}# - #{then-exp 13685}# - #{else-exp 13686}#))))) - (#{then-exp 13659}# - (#{build-dispatch-call 12149}# - #{pvars 13286}# - #{exp 13129}# - #{y 13654}# - #{r 13126}# - #{mod 13130}#)) - (#{else-exp 13660}# - (#{gen-syntax-case 12151}# - #{x 13123}# - #{keys 13124}# - #{clauses 13125}# - #{r 13126}# - #{mod 13130}#))) + #{y 13672}# + #{then-exp 13703}# + #{else-exp 13704}#))))) + (#{then-exp 13677}# + (#{build-dispatch-call 12155}# + #{pvars 13301}# + #{exp 13144}# + #{y 13672}# + #{r 13141}# + #{mod 13145}#)) + (#{else-exp 13678}# + (#{gen-syntax-case 12157}# + #{x 13138}# + #{keys 13139}# + #{clauses 13140}# + #{r 13141}# + #{mod 13145}#))) (make-struct/no-tail (vector-ref %expanded-vtables 10) #f - #{test-exp 13658}# - #{then-exp 13659}# - #{else-exp 13660}#))))) - (let ((#{body 13642}# + #{test-exp 13676}# + #{then-exp 13677}# + #{else-exp 13678}#))))) + (let ((#{body 13660}# (make-struct/no-tail (vector-ref %expanded-vtables 14) #f - #{req 13633}# + #{req 13651}# #f #f #f '() - #{vars 13635}# - #{exp 13637}# + #{vars 13653}# + #{exp 13655}# #f))) (make-struct/no-tail (vector-ref %expanded-vtables 13) #f '() - #{body 13642}#))) - (list (if (eq? #{p 13285}# 'any) - (let ((#{fun-exp 13708}# + #{body 13660}#))) + (list (if (eq? #{p 13300}# 'any) + (let ((#{fun-exp 13726}# (if (equal? (module-name (current-module)) '(guile)) @@ -29829,13 +20555,13 @@ '(guile) 'list #f))) - (#{arg-exps 13709}# (list #{x 13123}#))) + (#{arg-exps 13727}# (list #{x 13138}#))) (make-struct/no-tail (vector-ref %expanded-vtables 11) #f - #{fun-exp 13708}# - #{arg-exps 13709}#)) - (let ((#{fun-exp 13732}# + #{fun-exp 13726}# + #{arg-exps 13727}#)) + (let ((#{fun-exp 13750}# (if (equal? (module-name (current-module)) '(guile)) @@ -29849,27 +20575,27 @@ '(guile) '$sc-dispatch #f))) - (#{arg-exps 13733}# - (list #{x 13123}# + (#{arg-exps 13751}# + (list #{x 13138}# (make-struct/no-tail (vector-ref %expanded-vtables 1) #f - #{p 13285}#)))) + #{p 13300}#)))) (make-struct/no-tail (vector-ref %expanded-vtables 11) #f - #{fun-exp 13732}# - #{arg-exps 13733}#)))))))))))) - (#{gen-syntax-case 12151}# - (lambda (#{x 12557}# - #{keys 12558}# - #{clauses 12559}# - #{r 12560}# - #{mod 12561}#) - (if (null? #{clauses 12559}#) - (let ((#{fun-exp 12566}# + #{fun-exp 13750}# + #{arg-exps 13751}#)))))))))))) + (#{gen-syntax-case 12157}# + (lambda (#{x 12566}# + #{keys 12567}# + #{clauses 12568}# + #{r 12569}# + #{mod 12570}#) + (if (null? #{clauses 12568}#) + (let ((#{fun-exp 12575}# (if (equal? (module-name (current-module)) '(guile)) (make-struct/no-tail (vector-ref %expanded-vtables 7) @@ -29881,7 +20607,7 @@ '(guile) 'syntax-violation #f))) - (#{arg-exps 12567}# + (#{arg-exps 12576}# (list (make-struct/no-tail (vector-ref %expanded-vtables 1) #f @@ -29890,61 +20616,61 @@ (vector-ref %expanded-vtables 1) #f "source expression failed to match any pattern") - #{x 12557}#))) + #{x 12566}#))) (make-struct/no-tail (vector-ref %expanded-vtables 11) #f - #{fun-exp 12566}# - #{arg-exps 12567}#)) - (let ((#{tmp 12600}# (car #{clauses 12559}#))) - (let ((#{tmp 12601}# - ($sc-dispatch #{tmp 12600}# '(any any)))) - (if #{tmp 12601}# + #{fun-exp 12575}# + #{arg-exps 12576}#)) + (let ((#{tmp 12609}# (car #{clauses 12568}#))) + (let ((#{tmp 12610}# + ($sc-dispatch #{tmp 12609}# '(any any)))) + (if #{tmp 12610}# (@apply - (lambda (#{pat 12603}# #{exp 12604}#) - (if (if (if (symbol? #{pat 12603}#) + (lambda (#{pat 12612}# #{exp 12613}#) + (if (if (if (symbol? #{pat 12612}#) #t - (if (if (vector? #{pat 12603}#) - (if (= (vector-length #{pat 12603}#) + (if (if (vector? #{pat 12612}#) + (if (= (vector-length #{pat 12612}#) 4) - (eq? (vector-ref #{pat 12603}# 0) + (eq? (vector-ref #{pat 12612}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{pat 12603}# 1)) + (symbol? (vector-ref #{pat 12612}# 1)) #f)) (and-map - (lambda (#{x 12631}#) + (lambda (#{x 12640}#) (not (if (eq? (if (if (vector? - #{pat 12603}#) + #{pat 12612}#) (if (= (vector-length - #{pat 12603}#) + #{pat 12612}#) 4) (eq? (vector-ref - #{pat 12603}# + #{pat 12612}# 0) 'syntax-object) #f) #f) - (vector-ref #{pat 12603}# 1) - #{pat 12603}#) - (if (if (vector? #{x 12631}#) + (vector-ref #{pat 12612}# 1) + #{pat 12612}#) + (if (if (vector? #{x 12640}#) (if (= (vector-length - #{x 12631}#) + #{x 12640}#) 4) (eq? (vector-ref - #{x 12631}# + #{x 12640}# 0) 'syntax-object) #f) #f) - (vector-ref #{x 12631}# 1) - #{x 12631}#)) + (vector-ref #{x 12640}# 1) + #{x 12640}#)) (eq? (#{id-var-name 4332}# - #{pat 12603}# + #{pat 12612}# '(())) (#{id-var-name 4332}# - #{x 12631}# + #{x 12640}# '(()))) #f))) (cons '#(syntax-object @@ -29974,24 +20700,24 @@ (lambda-var-list gen-var strip - chi-lambda-case + expand-lambda-case lambda*-formals - chi-simple-lambda + expand-simple-lambda lambda-formals ellipsis? - chi-void + expand-void eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi + expand-local-syntax + expand-body + expand-macro + expand-application + expand-expr + expand syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence + expand-when-list + expand-install-global + expand-top-sequence + expand-sequence source-wrap wrap bound-id-member? @@ -30386,7 +21112,7 @@ ((top) (top) (top)) ("i46" "i45" "i44"))) (hygiene guile)) - #{keys 12558}#)) + #{keys 12567}#)) #f) (if (if (eq? (if (if (= (vector-length '#(syntax-object @@ -30430,24 +21156,24 @@ (lambda-var-list gen-var strip - chi-lambda-case + expand-lambda-case lambda*-formals - chi-simple-lambda + expand-simple-lambda lambda-formals ellipsis? - chi-void + expand-void eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi + expand-local-syntax + expand-body + expand-macro + expand-application + expand-expr + expand syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence + expand-when-list + expand-install-global + expand-top-sequence + expand-sequence source-wrap wrap bound-id-member? @@ -30845,913 +21571,9 @@ "i44"))) (hygiene guile))) 4) - (eq? (vector-ref - '#(syntax-object - pad - ((top) - #(ribcage - #(pat exp) - #((top) (top)) - #("i3911" "i3912")) - #(ribcage () () ()) - #(ribcage - #(x - keys - clauses - r - mod) - #((top) - (top) - (top) - (top) - (top)) - #("i3900" - "i3901" - "i3902" - "i3903" - "i3904")) - #(ribcage - (gen-syntax-case - gen-clause - build-dispatch-call - convert-pattern) - ((top) - (top) - (top) - (top)) - ("i3710" - "i3708" - "i3706" - "i3704")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("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")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i46" - "i45" - "i44"))) - (hygiene guile)) - 0) - 'syntax-object) + #t #f) - (vector-ref - '#(syntax-object - pad - ((top) - #(ribcage - #(pat exp) - #((top) (top)) - #("i3911" "i3912")) - #(ribcage () () ()) - #(ribcage - #(x keys clauses r mod) - #((top) - (top) - (top) - (top) - (top)) - #("i3900" - "i3901" - "i3902" - "i3903" - "i3904")) - #(ribcage - (gen-syntax-case - gen-clause - build-dispatch-call - convert-pattern) - ((top) (top) (top) (top)) - ("i3710" - "i3708" - "i3706" - "i3704")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("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")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i46" "i45" "i44"))) - (hygiene guile)) - 1) + 'pad '#(syntax-object pad ((top) @@ -31786,24 +21608,24 @@ (lambda-var-list gen-var strip - chi-lambda-case + expand-lambda-case lambda*-formals - chi-simple-lambda + expand-simple-lambda lambda-formals ellipsis? - chi-void + expand-void eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi + expand-local-syntax + expand-body + expand-macro + expand-application + expand-expr + expand syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence + expand-when-list + expand-install-global + expand-top-sequence + expand-sequence source-wrap wrap bound-id-member? @@ -32240,24 +22062,24 @@ (lambda-var-list gen-var strip - chi-lambda-case + expand-lambda-case lambda*-formals - chi-simple-lambda + expand-simple-lambda lambda-formals ellipsis? - chi-void + expand-void eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi + expand-local-syntax + expand-body + expand-macro + expand-application + expand-expr + expand syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence + expand-when-list + expand-install-global + expand-top-sequence + expand-sequence source-wrap wrap bound-id-member? @@ -32655,913 +22477,9 @@ "i44"))) (hygiene guile))) 4) - (eq? (vector-ref - '#(syntax-object - _ - ((top) - #(ribcage - #(pat exp) - #((top) (top)) - #("i3911" "i3912")) - #(ribcage () () ()) - #(ribcage - #(x - keys - clauses - r - mod) - #((top) - (top) - (top) - (top) - (top)) - #("i3900" - "i3901" - "i3902" - "i3903" - "i3904")) - #(ribcage - (gen-syntax-case - gen-clause - build-dispatch-call - convert-pattern) - ((top) - (top) - (top) - (top)) - ("i3710" - "i3708" - "i3706" - "i3704")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("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")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i46" - "i45" - "i44"))) - (hygiene guile)) - 0) - 'syntax-object) + #t #f) - (vector-ref - '#(syntax-object - _ - ((top) - #(ribcage - #(pat exp) - #((top) (top)) - #("i3911" "i3912")) - #(ribcage () () ()) - #(ribcage - #(x keys clauses r mod) - #((top) - (top) - (top) - (top) - (top)) - #("i3900" - "i3901" - "i3902" - "i3903" - "i3904")) - #(ribcage - (gen-syntax-case - gen-clause - build-dispatch-call - convert-pattern) - ((top) (top) (top) (top)) - ("i3710" - "i3708" - "i3706" - "i3704")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("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")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i46" "i45" "i44"))) - (hygiene guile)) - 1) + '_ '#(syntax-object _ ((top) @@ -33596,24 +22514,24 @@ (lambda-var-list gen-var strip - chi-lambda-case + expand-lambda-case lambda*-formals - chi-simple-lambda + expand-simple-lambda lambda-formals ellipsis? - chi-void + expand-void eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi + expand-local-syntax + expand-body + expand-macro + expand-application + expand-expr + expand syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence + expand-when-list + expand-install-global + expand-top-sequence + expand-sequence source-wrap wrap bound-id-member? @@ -34039,24 +22957,24 @@ (lambda-var-list gen-var strip - chi-lambda-case + expand-lambda-case lambda*-formals - chi-simple-lambda + expand-simple-lambda lambda-formals ellipsis? - chi-void + expand-void eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi + expand-local-syntax + expand-body + expand-macro + expand-application + expand-expr + expand syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence + expand-when-list + expand-install-global + expand-top-sequence + expand-sequence source-wrap wrap bound-id-member? @@ -34483,24 +23401,24 @@ (lambda-var-list gen-var strip - chi-lambda-case + expand-lambda-case lambda*-formals - chi-simple-lambda + expand-simple-lambda lambda-formals ellipsis? - chi-void + expand-void eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi + expand-local-syntax + expand-body + expand-macro + expand-application + expand-expr + expand syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence + expand-when-list + expand-install-global + expand-top-sequence + expand-sequence source-wrap wrap bound-id-member? @@ -34897,136 +23815,136 @@ (hygiene guile)) '(()))) #f) - (#{chi 4345}# - #{exp 12604}# - #{r 12560}# + (#{expand 4345}# + #{exp 12613}# + #{r 12569}# '(()) - #{mod 12561}#) - (let ((#{labels 12806}# + #{mod 12570}#) + (let ((#{labels 12821}# (list (symbol->string (gensym "i")))) - (#{var 12807}# - (let ((#{id 12845}# - (if (if (vector? #{pat 12603}#) + (#{var 12822}# + (let ((#{id 12860}# + (if (if (vector? #{pat 12612}#) (if (= (vector-length - #{pat 12603}#) + #{pat 12612}#) 4) (eq? (vector-ref - #{pat 12603}# + #{pat 12612}# 0) 'syntax-object) #f) #f) - (vector-ref #{pat 12603}# 1) - #{pat 12603}#))) + (vector-ref #{pat 12612}# 1) + #{pat 12612}#))) (gensym (string-append - (symbol->string #{id 12845}#) + (symbol->string #{id 12860}#) " "))))) (#{build-application 4280}# #f (#{build-simple-lambda 4289}# #f - (list (syntax->datum #{pat 12603}#)) + (list (syntax->datum #{pat 12612}#)) #f - (list #{var 12807}#) + (list #{var 12822}#) '() - (#{chi 4345}# - #{exp 12604}# + (#{expand 4345}# + #{exp 12613}# (#{extend-env 4307}# - #{labels 12806}# + #{labels 12821}# (list (cons 'syntax - (cons #{var 12807}# 0))) - #{r 12560}#) + (cons #{var 12822}# 0))) + #{r 12569}#) (#{make-binding-wrap 4327}# - (list #{pat 12603}#) - #{labels 12806}# + (list #{pat 12612}#) + #{labels 12821}# '(())) - #{mod 12561}#)) - (list #{x 12557}#)))) - (#{gen-clause 12150}# - #{x 12557}# - #{keys 12558}# - (cdr #{clauses 12559}#) - #{r 12560}# - #{pat 12603}# + #{mod 12570}#)) + (list #{x 12566}#)))) + (#{gen-clause 12156}# + #{x 12566}# + #{keys 12567}# + (cdr #{clauses 12568}#) + #{r 12569}# + #{pat 12612}# #t - #{exp 12604}# - #{mod 12561}#))) - #{tmp 12601}#) - (let ((#{tmp 13115}# - ($sc-dispatch #{tmp 12600}# '(any any any)))) - (if #{tmp 13115}# + #{exp 12613}# + #{mod 12570}#))) + #{tmp 12610}#) + (let ((#{tmp 13130}# + ($sc-dispatch #{tmp 12609}# '(any any any)))) + (if #{tmp 13130}# (@apply - (lambda (#{pat 13117}# - #{fender 13118}# - #{exp 13119}#) - (#{gen-clause 12150}# - #{x 12557}# - #{keys 12558}# - (cdr #{clauses 12559}#) - #{r 12560}# - #{pat 13117}# - #{fender 13118}# - #{exp 13119}# - #{mod 12561}#)) - #{tmp 13115}#) + (lambda (#{pat 13132}# + #{fender 13133}# + #{exp 13134}#) + (#{gen-clause 12156}# + #{x 12566}# + #{keys 12567}# + (cdr #{clauses 12568}#) + #{r 12569}# + #{pat 13132}# + #{fender 13133}# + #{exp 13134}# + #{mod 12570}#)) + #{tmp 13130}#) (syntax-violation 'syntax-case "invalid clause" - (car #{clauses 12559}#))))))))))) - (lambda (#{e 12152}# - #{r 12153}# - #{w 12154}# - #{s 12155}# - #{mod 12156}#) - (let ((#{e 12157}# + (car #{clauses 12568}#))))))))))) + (lambda (#{e 12158}# + #{r 12159}# + #{w 12160}# + #{s 12161}# + #{mod 12162}#) + (let ((#{e 12163}# (#{wrap 4338}# (begin - (if (if (pair? #{e 12152}#) #{s 12155}# #f) - (set-source-properties! #{e 12152}# #{s 12155}#)) - #{e 12152}#) - #{w 12154}# - #{mod 12156}#))) - (let ((#{tmp 12159}# + (if (if (pair? #{e 12158}#) #{s 12161}# #f) + (set-source-properties! #{e 12158}# #{s 12161}#)) + #{e 12158}#) + #{w 12160}# + #{mod 12162}#))) + (let ((#{tmp 12165}# ($sc-dispatch - #{e 12157}# + #{e 12163}# '(_ any each-any . each-any)))) - (if #{tmp 12159}# + (if #{tmp 12165}# (@apply - (lambda (#{val 12184}# #{key 12185}# #{m 12186}#) + (lambda (#{val 12190}# #{key 12191}# #{m 12192}#) (if (and-map - (lambda (#{x 12187}#) - (if (if (symbol? #{x 12187}#) + (lambda (#{x 12193}#) + (if (if (symbol? #{x 12193}#) #t - (if (if (vector? #{x 12187}#) - (if (= (vector-length #{x 12187}#) 4) - (eq? (vector-ref #{x 12187}# 0) + (if (if (vector? #{x 12193}#) + (if (= (vector-length #{x 12193}#) 4) + (eq? (vector-ref #{x 12193}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{x 12187}# 1)) + (symbol? (vector-ref #{x 12193}# 1)) #f)) - (not (if (if (if (vector? #{x 12187}#) - (if (= (vector-length #{x 12187}#) + (not (if (if (if (vector? #{x 12193}#) + (if (= (vector-length #{x 12193}#) 4) - (eq? (vector-ref #{x 12187}# 0) + (eq? (vector-ref #{x 12193}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{x 12187}# 1)) + (symbol? (vector-ref #{x 12193}# 1)) #f) - (if (eq? (if (if (vector? #{x 12187}#) + (if (eq? (if (if (vector? #{x 12193}#) (if (= (vector-length - #{x 12187}#) + #{x 12193}#) 4) (eq? (vector-ref - #{x 12187}# + #{x 12193}# 0) 'syntax-object) #f) #f) - (vector-ref #{x 12187}# 1) - #{x 12187}#) + (vector-ref #{x 12193}# 1) + #{x 12193}#) (if (if (= (vector-length '#(syntax-object ... @@ -35047,24 +23965,24 @@ (lambda-var-list gen-var strip - chi-lambda-case + expand-lambda-case lambda*-formals - chi-simple-lambda + expand-simple-lambda lambda-formals ellipsis? - chi-void + expand-void eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi + expand-local-syntax + expand-body + expand-macro + expand-application + expand-expr + expand syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence + expand-when-list + expand-install-global + expand-top-sequence + expand-sequence source-wrap wrap bound-id-member? @@ -35464,872 +24382,9 @@ "i44"))) (hygiene guile))) 4) - (eq? (vector-ref - '#(syntax-object - ... - ((top) - #(ribcage - () - () - ()) - #(ribcage - () - () - ()) - #(ribcage - #(x) - #((top)) - #("i2230")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("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")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) - (top) - (top)) - ("i46" - "i45" - "i44"))) - (hygiene guile)) - 0) - 'syntax-object) + #t #f) - (vector-ref - '#(syntax-object - ... - ((top) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i2230")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("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")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i46" "i45" "i44"))) - (hygiene guile)) - 1) + '... '#(syntax-object ... ((top) @@ -36343,24 +24398,24 @@ (lambda-var-list gen-var strip - chi-lambda-case + expand-lambda-case lambda*-formals - chi-simple-lambda + expand-simple-lambda lambda-formals ellipsis? - chi-void + expand-void eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi + expand-local-syntax + expand-body + expand-macro + expand-application + expand-expr + expand syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence + expand-when-list + expand-install-global + expand-top-sequence + expand-sequence source-wrap wrap bound-id-member? @@ -36756,7 +24811,7 @@ ("i46" "i45" "i44"))) (hygiene guile)))) (eq? (#{id-var-name 4332}# - #{x 12187}# + #{x 12193}# '(())) (#{id-var-name 4332}# '#(syntax-object @@ -36772,24 +24827,24 @@ (lambda-var-list gen-var strip - chi-lambda-case + expand-lambda-case lambda*-formals - chi-simple-lambda + expand-simple-lambda lambda-formals ellipsis? - chi-void + expand-void eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi + expand-local-syntax + expand-body + expand-macro + expand-application + expand-expr + expand syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence + expand-when-list + expand-install-global + expand-top-sequence + expand-sequence source-wrap wrap bound-id-member? @@ -37188,591 +25243,591 @@ #f) #f)) #f)) - #{key 12185}#) - (let ((#{x 12310}# + #{key 12191}#) + (let ((#{x 12319}# (gensym (string-append (symbol->string 'tmp) " ")))) (#{build-application 4280}# - #{s 12155}# - (let ((#{req 12445}# (list 'tmp)) - (#{vars 12447}# (list #{x 12310}#)) - (#{exp 12449}# - (#{gen-syntax-case 12151}# + #{s 12161}# + (let ((#{req 12454}# (list 'tmp)) + (#{vars 12456}# (list #{x 12319}#)) + (#{exp 12458}# + (#{gen-syntax-case 12157}# (make-struct/no-tail (vector-ref %expanded-vtables 3) #f 'tmp - #{x 12310}#) - #{key 12185}# - #{m 12186}# - #{r 12153}# - #{mod 12156}#))) - (let ((#{body 12454}# + #{x 12319}#) + #{key 12191}# + #{m 12192}# + #{r 12159}# + #{mod 12162}#))) + (let ((#{body 12463}# (make-struct/no-tail (vector-ref %expanded-vtables 14) #f - #{req 12445}# + #{req 12454}# #f #f #f '() - #{vars 12447}# - #{exp 12449}# + #{vars 12456}# + #{exp 12458}# #f))) (make-struct/no-tail (vector-ref %expanded-vtables 13) #f '() - #{body 12454}#))) - (list (#{chi 4345}# - #{val 12184}# - #{r 12153}# + #{body 12463}#))) + (list (#{expand 4345}# + #{val 12190}# + #{r 12159}# '(()) - #{mod 12156}#)))) + #{mod 12162}#)))) (syntax-violation 'syntax-case "invalid literals list" - #{e 12157}#))) - #{tmp 12159}#) + #{e 12163}#))) + #{tmp 12165}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 12157}#))))))) + #{e 12163}#))))))) (set! macroexpand (lambda* - (#{x 14894}# + (#{x 14921}# #:optional - (#{m 14895}# 'e) - (#{esew 14896}# '(eval))) - (#{chi-top-sequence 4341}# - (list #{x 14894}#) + (#{m 14922}# 'e) + (#{esew 14923}# '(eval))) + (#{expand-top-sequence 4341}# + (list #{x 14921}#) '() '((top)) #f - #{m 14895}# - #{esew 14896}# + #{m 14922}# + #{esew 14923}# (cons 'hygiene (module-name (current-module)))))) (set! identifier? - (lambda (#{x 14899}#) - (if (if (vector? #{x 14899}#) - (if (= (vector-length #{x 14899}#) 4) - (eq? (vector-ref #{x 14899}# 0) 'syntax-object) + (lambda (#{x 14926}#) + (if (if (vector? #{x 14926}#) + (if (= (vector-length #{x 14926}#) 4) + (eq? (vector-ref #{x 14926}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{x 14899}# 1)) + (symbol? (vector-ref #{x 14926}# 1)) #f))) (set! datum->syntax - (lambda (#{id 14924}# #{datum 14925}#) - (let ((#{wrap 14930}# (vector-ref #{id 14924}# 2)) - (#{module 14931}# (vector-ref #{id 14924}# 3))) + (lambda (#{id 14951}# #{datum 14952}#) + (let ((#{wrap 14957}# (vector-ref #{id 14951}# 2)) + (#{module 14958}# (vector-ref #{id 14951}# 3))) (vector 'syntax-object - #{datum 14925}# - #{wrap 14930}# - #{module 14931}#)))) + #{datum 14952}# + #{wrap 14957}# + #{module 14958}#)))) (set! syntax->datum - (lambda (#{x 14938}#) - (#{strip 4358}# #{x 14938}# '(())))) + (lambda (#{x 14965}#) + (#{strip 4358}# #{x 14965}# '(())))) (set! syntax-source - (lambda (#{x 14941}#) - (#{source-annotation 4306}# #{x 14941}#))) + (lambda (#{x 14968}#) + (#{source-annotation 4306}# #{x 14968}#))) (set! generate-temporaries - (lambda (#{ls 15113}#) + (lambda (#{ls 15140}#) (begin - (if (not (list? #{ls 15113}#)) + (if (not (list? #{ls 15140}#)) (syntax-violation 'generate-temporaries "invalid argument" - #{ls 15113}#)) - (let ((#{mod 15121}# + #{ls 15140}#)) + (let ((#{mod 15148}# (cons 'hygiene (module-name (current-module))))) - (map (lambda (#{x 15122}#) - (#{wrap 4338}# (gensym) '((top)) #{mod 15121}#)) - #{ls 15113}#))))) + (map (lambda (#{x 15149}#) + (#{wrap 4338}# (gensym) '((top)) #{mod 15148}#)) + #{ls 15140}#))))) (set! free-identifier=? - (lambda (#{x 15126}# #{y 15127}#) + (lambda (#{x 15153}# #{y 15154}#) (begin - (if (not (if (if (vector? #{x 15126}#) - (if (= (vector-length #{x 15126}#) 4) - (eq? (vector-ref #{x 15126}# 0) 'syntax-object) + (if (not (if (if (vector? #{x 15153}#) + (if (= (vector-length #{x 15153}#) 4) + (eq? (vector-ref #{x 15153}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{x 15126}# 1)) + (symbol? (vector-ref #{x 15153}# 1)) #f)) (syntax-violation 'free-identifier=? "invalid argument" - #{x 15126}#)) - (if (not (if (if (vector? #{y 15127}#) - (if (= (vector-length #{y 15127}#) 4) - (eq? (vector-ref #{y 15127}# 0) 'syntax-object) + #{x 15153}#)) + (if (not (if (if (vector? #{y 15154}#) + (if (= (vector-length #{y 15154}#) 4) + (eq? (vector-ref #{y 15154}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{y 15127}# 1)) + (symbol? (vector-ref #{y 15154}# 1)) #f)) (syntax-violation 'free-identifier=? "invalid argument" - #{y 15127}#)) - (if (eq? (if (if (vector? #{x 15126}#) - (if (= (vector-length #{x 15126}#) 4) - (eq? (vector-ref #{x 15126}# 0) 'syntax-object) + #{y 15154}#)) + (if (eq? (if (if (vector? #{x 15153}#) + (if (= (vector-length #{x 15153}#) 4) + (eq? (vector-ref #{x 15153}# 0) 'syntax-object) #f) #f) - (vector-ref #{x 15126}# 1) - #{x 15126}#) - (if (if (vector? #{y 15127}#) - (if (= (vector-length #{y 15127}#) 4) - (eq? (vector-ref #{y 15127}# 0) 'syntax-object) + (vector-ref #{x 15153}# 1) + #{x 15153}#) + (if (if (vector? #{y 15154}#) + (if (= (vector-length #{y 15154}#) 4) + (eq? (vector-ref #{y 15154}# 0) 'syntax-object) #f) #f) - (vector-ref #{y 15127}# 1) - #{y 15127}#)) - (eq? (#{id-var-name 4332}# #{x 15126}# '(())) - (#{id-var-name 4332}# #{y 15127}# '(()))) + (vector-ref #{y 15154}# 1) + #{y 15154}#)) + (eq? (#{id-var-name 4332}# #{x 15153}# '(())) + (#{id-var-name 4332}# #{y 15154}# '(()))) #f)))) (set! bound-identifier=? - (lambda (#{x 15277}# #{y 15278}#) + (lambda (#{x 15304}# #{y 15305}#) (begin - (if (not (if (if (vector? #{x 15277}#) - (if (= (vector-length #{x 15277}#) 4) - (eq? (vector-ref #{x 15277}# 0) 'syntax-object) + (if (not (if (if (vector? #{x 15304}#) + (if (= (vector-length #{x 15304}#) 4) + (eq? (vector-ref #{x 15304}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{x 15277}# 1)) + (symbol? (vector-ref #{x 15304}# 1)) #f)) (syntax-violation 'bound-identifier=? "invalid argument" - #{x 15277}#)) - (if (not (if (if (vector? #{y 15278}#) - (if (= (vector-length #{y 15278}#) 4) - (eq? (vector-ref #{y 15278}# 0) 'syntax-object) + #{x 15304}#)) + (if (not (if (if (vector? #{y 15305}#) + (if (= (vector-length #{y 15305}#) 4) + (eq? (vector-ref #{y 15305}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{y 15278}# 1)) + (symbol? (vector-ref #{y 15305}# 1)) #f)) (syntax-violation 'bound-identifier=? "invalid argument" - #{y 15278}#)) - (if (if (if (vector? #{x 15277}#) - (if (= (vector-length #{x 15277}#) 4) - (eq? (vector-ref #{x 15277}# 0) 'syntax-object) + #{y 15305}#)) + (if (if (if (vector? #{x 15304}#) + (if (= (vector-length #{x 15304}#) 4) + (eq? (vector-ref #{x 15304}# 0) 'syntax-object) #f) #f) - (if (vector? #{y 15278}#) - (if (= (vector-length #{y 15278}#) 4) - (eq? (vector-ref #{y 15278}# 0) 'syntax-object) + (if (vector? #{y 15305}#) + (if (= (vector-length #{y 15305}#) 4) + (eq? (vector-ref #{y 15305}# 0) 'syntax-object) #f) #f) #f) - (if (eq? (vector-ref #{x 15277}# 1) - (vector-ref #{y 15278}# 1)) + (if (eq? (vector-ref #{x 15304}# 1) + (vector-ref #{y 15305}# 1)) (#{same-marks? 4331}# - (car (vector-ref #{x 15277}# 2)) - (car (vector-ref #{y 15278}# 2))) + (car (vector-ref #{x 15304}# 2)) + (car (vector-ref #{y 15305}# 2))) #f) - (eq? #{x 15277}# #{y 15278}#))))) + (eq? #{x 15304}# #{y 15305}#))))) (set! syntax-violation (lambda* - (#{who 15411}# - #{message 15412}# - #{form 15413}# + (#{who 15438}# + #{message 15439}# + #{form 15440}# #:optional - (#{subform 15414}# #f)) + (#{subform 15441}# #f)) (begin - (if (not (if (not #{who 15411}#) - (not #{who 15411}#) - (let ((#{t 15432}# (string? #{who 15411}#))) - (if #{t 15432}# - #{t 15432}# - (symbol? #{who 15411}#))))) + (if (not (if (not #{who 15438}#) + (not #{who 15438}#) + (let ((#{t 15459}# (string? #{who 15438}#))) + (if #{t 15459}# + #{t 15459}# + (symbol? #{who 15438}#))))) (syntax-violation 'syntax-violation "invalid argument" - #{who 15411}#)) - (if (not (string? #{message 15412}#)) + #{who 15438}#)) + (if (not (string? #{message 15439}#)) (syntax-violation 'syntax-violation "invalid argument" - #{message 15412}#)) + #{message 15439}#)) (throw 'syntax-error - #{who 15411}# - #{message 15412}# + #{who 15438}# + #{message 15439}# (#{source-annotation 4306}# - (if #{form 15413}# - #{form 15413}# - #{subform 15414}#)) - (#{strip 4358}# #{form 15413}# '(())) - (if #{subform 15414}# - (#{strip 4358}# #{subform 15414}# '(())) + (if #{form 15440}# + #{form 15440}# + #{subform 15441}#)) + (#{strip 4358}# #{form 15440}# '(())) + (if #{subform 15441}# + (#{strip 4358}# #{subform 15441}# '(())) #f))))) (letrec* - ((#{match-each 15655}# - (lambda (#{e 16278}# - #{p 16279}# - #{w 16280}# - #{mod 16281}#) - (if (pair? #{e 16278}#) - (let ((#{first 16282}# - (#{match 15661}# - (car #{e 16278}#) - #{p 16279}# - #{w 16280}# + ((#{match-each 15682}# + (lambda (#{e 16305}# + #{p 16306}# + #{w 16307}# + #{mod 16308}#) + (if (pair? #{e 16305}#) + (let ((#{first 16309}# + (#{match 15688}# + (car #{e 16305}#) + #{p 16306}# + #{w 16307}# '() - #{mod 16281}#))) - (if #{first 16282}# - (let ((#{rest 16285}# - (#{match-each 15655}# - (cdr #{e 16278}#) - #{p 16279}# - #{w 16280}# - #{mod 16281}#))) - (if #{rest 16285}# - (cons #{first 16282}# #{rest 16285}#) + #{mod 16308}#))) + (if #{first 16309}# + (let ((#{rest 16312}# + (#{match-each 15682}# + (cdr #{e 16305}#) + #{p 16306}# + #{w 16307}# + #{mod 16308}#))) + (if #{rest 16312}# + (cons #{first 16309}# #{rest 16312}#) #f)) #f)) - (if (null? #{e 16278}#) + (if (null? #{e 16305}#) '() - (if (if (vector? #{e 16278}#) - (if (= (vector-length #{e 16278}#) 4) - (eq? (vector-ref #{e 16278}# 0) 'syntax-object) + (if (if (vector? #{e 16305}#) + (if (= (vector-length #{e 16305}#) 4) + (eq? (vector-ref #{e 16305}# 0) 'syntax-object) #f) #f) - (#{match-each 15655}# - (vector-ref #{e 16278}# 1) - #{p 16279}# + (#{match-each 15682}# + (vector-ref #{e 16305}# 1) + #{p 16306}# (#{join-wraps 4329}# - #{w 16280}# - (vector-ref #{e 16278}# 2)) - (vector-ref #{e 16278}# 3)) + #{w 16307}# + (vector-ref #{e 16305}# 2)) + (vector-ref #{e 16305}# 3)) #f))))) - (#{match-each-any 15657}# - (lambda (#{e 16313}# #{w 16314}# #{mod 16315}#) - (if (pair? #{e 16313}#) - (let ((#{l 16316}# - (#{match-each-any 15657}# - (cdr #{e 16313}#) - #{w 16314}# - #{mod 16315}#))) - (if #{l 16316}# + (#{match-each-any 15684}# + (lambda (#{e 16340}# #{w 16341}# #{mod 16342}#) + (if (pair? #{e 16340}#) + (let ((#{l 16343}# + (#{match-each-any 15684}# + (cdr #{e 16340}#) + #{w 16341}# + #{mod 16342}#))) + (if #{l 16343}# (cons (#{wrap 4338}# - (car #{e 16313}#) - #{w 16314}# - #{mod 16315}#) - #{l 16316}#) + (car #{e 16340}#) + #{w 16341}# + #{mod 16342}#) + #{l 16343}#) #f)) - (if (null? #{e 16313}#) + (if (null? #{e 16340}#) '() - (if (if (vector? #{e 16313}#) - (if (= (vector-length #{e 16313}#) 4) - (eq? (vector-ref #{e 16313}# 0) 'syntax-object) + (if (if (vector? #{e 16340}#) + (if (= (vector-length #{e 16340}#) 4) + (eq? (vector-ref #{e 16340}# 0) 'syntax-object) #f) #f) - (#{match-each-any 15657}# - (vector-ref #{e 16313}# 1) + (#{match-each-any 15684}# + (vector-ref #{e 16340}# 1) (#{join-wraps 4329}# - #{w 16314}# - (vector-ref #{e 16313}# 2)) - #{mod 16315}#) + #{w 16341}# + (vector-ref #{e 16340}# 2)) + #{mod 16342}#) #f))))) - (#{match-empty 15658}# - (lambda (#{p 16340}# #{r 16341}#) - (if (null? #{p 16340}#) - #{r 16341}# - (if (eq? #{p 16340}# '_) - #{r 16341}# - (if (eq? #{p 16340}# 'any) - (cons '() #{r 16341}#) - (if (pair? #{p 16340}#) - (#{match-empty 15658}# - (car #{p 16340}#) - (#{match-empty 15658}# - (cdr #{p 16340}#) - #{r 16341}#)) - (if (eq? #{p 16340}# 'each-any) - (cons '() #{r 16341}#) - (let ((#{atom-key 16342}# (vector-ref #{p 16340}# 0))) - (if (eqv? #{atom-key 16342}# 'each) - (#{match-empty 15658}# - (vector-ref #{p 16340}# 1) - #{r 16341}#) - (if (eqv? #{atom-key 16342}# 'each+) - (#{match-empty 15658}# - (vector-ref #{p 16340}# 1) - (#{match-empty 15658}# - (reverse (vector-ref #{p 16340}# 2)) - (#{match-empty 15658}# - (vector-ref #{p 16340}# 3) - #{r 16341}#))) - (if (if (eqv? #{atom-key 16342}# 'free-id) + (#{match-empty 15685}# + (lambda (#{p 16367}# #{r 16368}#) + (if (null? #{p 16367}#) + #{r 16368}# + (if (eq? #{p 16367}# '_) + #{r 16368}# + (if (eq? #{p 16367}# 'any) + (cons '() #{r 16368}#) + (if (pair? #{p 16367}#) + (#{match-empty 15685}# + (car #{p 16367}#) + (#{match-empty 15685}# + (cdr #{p 16367}#) + #{r 16368}#)) + (if (eq? #{p 16367}# 'each-any) + (cons '() #{r 16368}#) + (let ((#{atom-key 16369}# (vector-ref #{p 16367}# 0))) + (if (eqv? #{atom-key 16369}# 'each) + (#{match-empty 15685}# + (vector-ref #{p 16367}# 1) + #{r 16368}#) + (if (eqv? #{atom-key 16369}# 'each+) + (#{match-empty 15685}# + (vector-ref #{p 16367}# 1) + (#{match-empty 15685}# + (reverse (vector-ref #{p 16367}# 2)) + (#{match-empty 15685}# + (vector-ref #{p 16367}# 3) + #{r 16368}#))) + (if (if (eqv? #{atom-key 16369}# 'free-id) #t - (eqv? #{atom-key 16342}# 'atom)) - #{r 16341}# - (if (eqv? #{atom-key 16342}# 'vector) - (#{match-empty 15658}# - (vector-ref #{p 16340}# 1) - #{r 16341}#))))))))))))) - (#{combine 15659}# - (lambda (#{r* 16361}# #{r 16362}#) - (if (null? (car #{r* 16361}#)) - #{r 16362}# - (cons (map car #{r* 16361}#) - (#{combine 15659}# - (map cdr #{r* 16361}#) - #{r 16362}#))))) - (#{match* 15660}# - (lambda (#{e 15690}# - #{p 15691}# - #{w 15692}# - #{r 15693}# - #{mod 15694}#) - (if (null? #{p 15691}#) - (if (null? #{e 15690}#) #{r 15693}# #f) - (if (pair? #{p 15691}#) - (if (pair? #{e 15690}#) - (#{match 15661}# - (car #{e 15690}#) - (car #{p 15691}#) - #{w 15692}# - (#{match 15661}# - (cdr #{e 15690}#) - (cdr #{p 15691}#) - #{w 15692}# - #{r 15693}# - #{mod 15694}#) - #{mod 15694}#) + (eqv? #{atom-key 16369}# 'atom)) + #{r 16368}# + (if (eqv? #{atom-key 16369}# 'vector) + (#{match-empty 15685}# + (vector-ref #{p 16367}# 1) + #{r 16368}#))))))))))))) + (#{combine 15686}# + (lambda (#{r* 16388}# #{r 16389}#) + (if (null? (car #{r* 16388}#)) + #{r 16389}# + (cons (map car #{r* 16388}#) + (#{combine 15686}# + (map cdr #{r* 16388}#) + #{r 16389}#))))) + (#{match* 15687}# + (lambda (#{e 15717}# + #{p 15718}# + #{w 15719}# + #{r 15720}# + #{mod 15721}#) + (if (null? #{p 15718}#) + (if (null? #{e 15717}#) #{r 15720}# #f) + (if (pair? #{p 15718}#) + (if (pair? #{e 15717}#) + (#{match 15688}# + (car #{e 15717}#) + (car #{p 15718}#) + #{w 15719}# + (#{match 15688}# + (cdr #{e 15717}#) + (cdr #{p 15718}#) + #{w 15719}# + #{r 15720}# + #{mod 15721}#) + #{mod 15721}#) #f) - (if (eq? #{p 15691}# 'each-any) - (let ((#{l 15699}# - (#{match-each-any 15657}# - #{e 15690}# - #{w 15692}# - #{mod 15694}#))) - (if #{l 15699}# - (cons #{l 15699}# #{r 15693}#) + (if (eq? #{p 15718}# 'each-any) + (let ((#{l 15726}# + (#{match-each-any 15684}# + #{e 15717}# + #{w 15719}# + #{mod 15721}#))) + (if #{l 15726}# + (cons #{l 15726}# #{r 15720}#) #f)) - (let ((#{atom-key 15704}# (vector-ref #{p 15691}# 0))) - (if (eqv? #{atom-key 15704}# 'each) - (if (null? #{e 15690}#) - (#{match-empty 15658}# - (vector-ref #{p 15691}# 1) - #{r 15693}#) - (let ((#{l 15711}# - (#{match-each 15655}# - #{e 15690}# - (vector-ref #{p 15691}# 1) - #{w 15692}# - #{mod 15694}#))) - (if #{l 15711}# + (let ((#{atom-key 15731}# (vector-ref #{p 15718}# 0))) + (if (eqv? #{atom-key 15731}# 'each) + (if (null? #{e 15717}#) + (#{match-empty 15685}# + (vector-ref #{p 15718}# 1) + #{r 15720}#) + (let ((#{l 15738}# + (#{match-each 15682}# + #{e 15717}# + (vector-ref #{p 15718}# 1) + #{w 15719}# + #{mod 15721}#))) + (if #{l 15738}# (letrec* - ((#{collect 15714}# - (lambda (#{l 15767}#) - (if (null? (car #{l 15767}#)) - #{r 15693}# - (cons (map car #{l 15767}#) - (#{collect 15714}# - (map cdr #{l 15767}#))))))) - (#{collect 15714}# #{l 15711}#)) + ((#{collect 15741}# + (lambda (#{l 15794}#) + (if (null? (car #{l 15794}#)) + #{r 15720}# + (cons (map car #{l 15794}#) + (#{collect 15741}# + (map cdr #{l 15794}#))))))) + (#{collect 15741}# #{l 15738}#)) #f))) - (if (eqv? #{atom-key 15704}# 'each+) + (if (eqv? #{atom-key 15731}# 'each+) (call-with-values (lambda () - (let ((#{x-pat 15776}# (vector-ref #{p 15691}# 1)) - (#{y-pat 15777}# (vector-ref #{p 15691}# 2)) - (#{z-pat 15778}# (vector-ref #{p 15691}# 3))) + (let ((#{x-pat 15803}# (vector-ref #{p 15718}# 1)) + (#{y-pat 15804}# (vector-ref #{p 15718}# 2)) + (#{z-pat 15805}# (vector-ref #{p 15718}# 3))) (letrec* - ((#{f 15782}# - (lambda (#{e 15784}# #{w 15785}#) - (if (pair? #{e 15784}#) + ((#{f 15809}# + (lambda (#{e 15811}# #{w 15812}#) + (if (pair? #{e 15811}#) (call-with-values (lambda () - (#{f 15782}# - (cdr #{e 15784}#) - #{w 15785}#)) - (lambda (#{xr* 15786}# - #{y-pat 15787}# - #{r 15788}#) - (if #{r 15788}# - (if (null? #{y-pat 15787}#) - (let ((#{xr 15789}# - (#{match 15661}# - (car #{e 15784}#) - #{x-pat 15776}# - #{w 15785}# + (#{f 15809}# + (cdr #{e 15811}#) + #{w 15812}#)) + (lambda (#{xr* 15813}# + #{y-pat 15814}# + #{r 15815}#) + (if #{r 15815}# + (if (null? #{y-pat 15814}#) + (let ((#{xr 15816}# + (#{match 15688}# + (car #{e 15811}#) + #{x-pat 15803}# + #{w 15812}# '() - #{mod 15694}#))) - (if #{xr 15789}# + #{mod 15721}#))) + (if #{xr 15816}# (values - (cons #{xr 15789}# - #{xr* 15786}#) - #{y-pat 15787}# - #{r 15788}#) + (cons #{xr 15816}# + #{xr* 15813}#) + #{y-pat 15814}# + #{r 15815}#) (values #f #f #f))) (values '() - (cdr #{y-pat 15787}#) - (#{match 15661}# - (car #{e 15784}#) - (car #{y-pat 15787}#) - #{w 15785}# - #{r 15788}# - #{mod 15694}#))) + (cdr #{y-pat 15814}#) + (#{match 15688}# + (car #{e 15811}#) + (car #{y-pat 15814}#) + #{w 15812}# + #{r 15815}# + #{mod 15721}#))) (values #f #f #f)))) - (if (if (vector? #{e 15784}#) - (if (= (vector-length #{e 15784}#) + (if (if (vector? #{e 15811}#) + (if (= (vector-length #{e 15811}#) 4) - (eq? (vector-ref #{e 15784}# 0) + (eq? (vector-ref #{e 15811}# 0) 'syntax-object) #f) #f) - (#{f 15782}# - (vector-ref #{e 15784}# 1) + (#{f 15809}# + (vector-ref #{e 15811}# 1) (#{join-wraps 4329}# - #{w 15785}# - #{e 15784}#)) + #{w 15812}# + #{e 15811}#)) (values '() - #{y-pat 15777}# - (#{match 15661}# - #{e 15784}# - #{z-pat 15778}# - #{w 15785}# - #{r 15693}# - #{mod 15694}#))))))) - (#{f 15782}# #{e 15690}# #{w 15692}#)))) - (lambda (#{xr* 15817}# #{y-pat 15818}# #{r 15819}#) - (if #{r 15819}# - (if (null? #{y-pat 15818}#) - (if (null? #{xr* 15817}#) - (#{match-empty 15658}# - (vector-ref #{p 15691}# 1) - #{r 15819}#) - (#{combine 15659}# #{xr* 15817}# #{r 15819}#)) + #{y-pat 15804}# + (#{match 15688}# + #{e 15811}# + #{z-pat 15805}# + #{w 15812}# + #{r 15720}# + #{mod 15721}#))))))) + (#{f 15809}# #{e 15717}# #{w 15719}#)))) + (lambda (#{xr* 15844}# #{y-pat 15845}# #{r 15846}#) + (if #{r 15846}# + (if (null? #{y-pat 15845}#) + (if (null? #{xr* 15844}#) + (#{match-empty 15685}# + (vector-ref #{p 15718}# 1) + #{r 15846}#) + (#{combine 15686}# #{xr* 15844}# #{r 15846}#)) #f) #f))) - (if (eqv? #{atom-key 15704}# 'free-id) - (if (if (symbol? #{e 15690}#) + (if (eqv? #{atom-key 15731}# 'free-id) + (if (if (symbol? #{e 15717}#) #t - (if (if (vector? #{e 15690}#) - (if (= (vector-length #{e 15690}#) 4) - (eq? (vector-ref #{e 15690}# 0) + (if (if (vector? #{e 15717}#) + (if (= (vector-length #{e 15717}#) 4) + (eq? (vector-ref #{e 15717}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{e 15690}# 1)) + (symbol? (vector-ref #{e 15717}# 1)) #f)) - (if (let ((#{i 16182}# + (if (let ((#{i 16209}# (#{wrap 4338}# - #{e 15690}# - #{w 15692}# - #{mod 15694}#)) - (#{j 16183}# (vector-ref #{p 15691}# 1))) - (if (eq? (if (if (vector? #{i 16182}#) + #{e 15717}# + #{w 15719}# + #{mod 15721}#)) + (#{j 16210}# (vector-ref #{p 15718}# 1))) + (if (eq? (if (if (vector? #{i 16209}#) (if (= (vector-length - #{i 16182}#) + #{i 16209}#) 4) (eq? (vector-ref - #{i 16182}# + #{i 16209}# 0) 'syntax-object) #f) #f) - (vector-ref #{i 16182}# 1) - #{i 16182}#) - (if (if (vector? #{j 16183}#) + (vector-ref #{i 16209}# 1) + #{i 16209}#) + (if (if (vector? #{j 16210}#) (if (= (vector-length - #{j 16183}#) + #{j 16210}#) 4) (eq? (vector-ref - #{j 16183}# + #{j 16210}# 0) 'syntax-object) #f) #f) - (vector-ref #{j 16183}# 1) - #{j 16183}#)) + (vector-ref #{j 16210}# 1) + #{j 16210}#)) (eq? (#{id-var-name 4332}# - #{i 16182}# + #{i 16209}# '(())) (#{id-var-name 4332}# - #{j 16183}# + #{j 16210}# '(()))) #f)) - #{r 15693}# + #{r 15720}# #f) #f) - (if (eqv? #{atom-key 15704}# 'atom) + (if (eqv? #{atom-key 15731}# 'atom) (if (equal? - (vector-ref #{p 15691}# 1) - (#{strip 4358}# #{e 15690}# #{w 15692}#)) - #{r 15693}# + (vector-ref #{p 15718}# 1) + (#{strip 4358}# #{e 15717}# #{w 15719}#)) + #{r 15720}# #f) - (if (eqv? #{atom-key 15704}# 'vector) - (if (vector? #{e 15690}#) - (#{match 15661}# - (vector->list #{e 15690}#) - (vector-ref #{p 15691}# 1) - #{w 15692}# - #{r 15693}# - #{mod 15694}#) + (if (eqv? #{atom-key 15731}# 'vector) + (if (vector? #{e 15717}#) + (#{match 15688}# + (vector->list #{e 15717}#) + (vector-ref #{p 15718}# 1) + #{w 15719}# + #{r 15720}# + #{mod 15721}#) #f)))))))))))) - (#{match 15661}# - (lambda (#{e 16243}# - #{p 16244}# - #{w 16245}# - #{r 16246}# - #{mod 16247}#) - (if (not #{r 16246}#) + (#{match 15688}# + (lambda (#{e 16270}# + #{p 16271}# + #{w 16272}# + #{r 16273}# + #{mod 16274}#) + (if (not #{r 16273}#) #f - (if (eq? #{p 16244}# '_) - #{r 16246}# - (if (eq? #{p 16244}# 'any) + (if (eq? #{p 16271}# '_) + #{r 16273}# + (if (eq? #{p 16271}# 'any) (cons (#{wrap 4338}# - #{e 16243}# - #{w 16245}# - #{mod 16247}#) - #{r 16246}#) - (if (if (vector? #{e 16243}#) - (if (= (vector-length #{e 16243}#) 4) - (eq? (vector-ref #{e 16243}# 0) 'syntax-object) + #{e 16270}# + #{w 16272}# + #{mod 16274}#) + #{r 16273}#) + (if (if (vector? #{e 16270}#) + (if (= (vector-length #{e 16270}#) 4) + (eq? (vector-ref #{e 16270}# 0) 'syntax-object) #f) #f) - (#{match* 15660}# - (vector-ref #{e 16243}# 1) - #{p 16244}# + (#{match* 15687}# + (vector-ref #{e 16270}# 1) + #{p 16271}# (#{join-wraps 4329}# - #{w 16245}# - (vector-ref #{e 16243}# 2)) - #{r 16246}# - (vector-ref #{e 16243}# 3)) - (#{match* 15660}# - #{e 16243}# - #{p 16244}# - #{w 16245}# - #{r 16246}# - #{mod 16247}#)))))))) + #{w 16272}# + (vector-ref #{e 16270}# 2)) + #{r 16273}# + (vector-ref #{e 16270}# 3)) + (#{match* 15687}# + #{e 16270}# + #{p 16271}# + #{w 16272}# + #{r 16273}# + #{mod 16274}#)))))))) (set! $sc-dispatch - (lambda (#{e 15662}# #{p 15663}#) - (if (eq? #{p 15663}# 'any) - (list #{e 15662}#) - (if (eq? #{p 15663}# '_) + (lambda (#{e 15689}# #{p 15690}#) + (if (eq? #{p 15690}# 'any) + (list #{e 15689}#) + (if (eq? #{p 15690}# '_) '() - (if (if (vector? #{e 15662}#) - (if (= (vector-length #{e 15662}#) 4) - (eq? (vector-ref #{e 15662}# 0) 'syntax-object) + (if (if (vector? #{e 15689}#) + (if (= (vector-length #{e 15689}#) 4) + (eq? (vector-ref #{e 15689}# 0) 'syntax-object) #f) #f) - (#{match* 15660}# - (vector-ref #{e 15662}# 1) - #{p 15663}# - (vector-ref #{e 15662}# 2) + (#{match* 15687}# + (vector-ref #{e 15689}# 1) + #{p 15690}# + (vector-ref #{e 15689}# 2) '() - (vector-ref #{e 15662}# 3)) - (#{match* 15660}# - #{e 15662}# - #{p 15663}# + (vector-ref #{e 15689}# 3)) + (#{match* 15687}# + #{e 15689}# + #{p 15690}# '(()) '() #f))))))))) @@ -37781,82 +25836,82 @@ (make-syntax-transformer 'with-syntax 'macro - (lambda (#{x 28547}#) - (let ((#{tmp 28549}# - ($sc-dispatch #{x 28547}# '(_ () any . each-any)))) - (if #{tmp 28549}# + (lambda (#{x 28533}#) + (let ((#{tmp 28535}# + ($sc-dispatch #{x 28533}# '(_ () any . each-any)))) + (if #{tmp 28535}# (@apply - (lambda (#{e1 28553}# #{e2 28554}#) + (lambda (#{e1 28539}# #{e2 28540}#) (cons '#(syntax-object let ((top) #(ribcage #(e1 e2) #((top) (top)) - #("i28520" "i28521")) + #("i28506" "i28507")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28517"))) + #(ribcage #(x) #((top)) #("i28503"))) (hygiene guile)) - (cons '() (cons #{e1 28553}# #{e2 28554}#)))) - #{tmp 28549}#) - (let ((#{tmp 28555}# + (cons '() (cons #{e1 28539}# #{e2 28540}#)))) + #{tmp 28535}#) + (let ((#{tmp 28541}# ($sc-dispatch - #{x 28547}# + #{x 28533}# '(_ ((any any)) any . each-any)))) - (if #{tmp 28555}# + (if #{tmp 28541}# (@apply - (lambda (#{out 28559}# - #{in 28560}# - #{e1 28561}# - #{e2 28562}#) + (lambda (#{out 28545}# + #{in 28546}# + #{e1 28547}# + #{e2 28548}#) (list '#(syntax-object syntax-case ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("i28526" "i28527" "i28528" "i28529")) + #("i28512" "i28513" "i28514" "i28515")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28517"))) + #(ribcage #(x) #((top)) #("i28503"))) (hygiene guile)) - #{in 28560}# + #{in 28546}# '() - (list #{out 28559}# + (list #{out 28545}# (cons '#(syntax-object let ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("i28526" - "i28527" - "i28528" - "i28529")) + #("i28512" + "i28513" + "i28514" + "i28515")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28517"))) + #(ribcage #(x) #((top)) #("i28503"))) (hygiene guile)) (cons '() - (cons #{e1 28561}# #{e2 28562}#)))))) - #{tmp 28555}#) - (let ((#{tmp 28563}# + (cons #{e1 28547}# #{e2 28548}#)))))) + #{tmp 28541}#) + (let ((#{tmp 28549}# ($sc-dispatch - #{x 28547}# + #{x 28533}# '(_ #(each (any any)) any . each-any)))) - (if #{tmp 28563}# + (if #{tmp 28549}# (@apply - (lambda (#{out 28567}# - #{in 28568}# - #{e1 28569}# - #{e2 28570}#) + (lambda (#{out 28553}# + #{in 28554}# + #{e1 28555}# + #{e2 28556}#) (list '#(syntax-object syntax-case ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("i28536" "i28537" "i28538" "i28539")) + #("i28522" "i28523" "i28524" "i28525")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28517"))) + #(ribcage #(x) #((top)) #("i28503"))) (hygiene guile)) (cons '#(syntax-object list @@ -37864,62 +25919,62 @@ #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("i28536" "i28537" "i28538" "i28539")) + #("i28522" "i28523" "i28524" "i28525")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28517"))) + #(ribcage #(x) #((top)) #("i28503"))) (hygiene guile)) - #{in 28568}#) + #{in 28554}#) '() - (list #{out 28567}# + (list #{out 28553}# (cons '#(syntax-object let ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("i28536" - "i28537" - "i28538" - "i28539")) + #("i28522" + "i28523" + "i28524" + "i28525")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i28517"))) + #("i28503"))) (hygiene guile)) (cons '() - (cons #{e1 28569}# - #{e2 28570}#)))))) - #{tmp 28563}#) + (cons #{e1 28555}# + #{e2 28556}#)))))) + #{tmp 28549}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 28547}#)))))))))) + #{x 28533}#)))))))))) (define syntax-rules (make-syntax-transformer 'syntax-rules 'macro - (lambda (#{x 28624}#) - (let ((#{tmp 28626}# + (lambda (#{x 28610}#) + (let ((#{tmp 28612}# ($sc-dispatch - #{x 28624}# + #{x 28610}# '(_ each-any . #(each ((any . any) any)))))) - (if #{tmp 28626}# + (if #{tmp 28612}# (@apply - (lambda (#{k 28630}# - #{keyword 28631}# - #{pattern 28632}# - #{template 28633}#) + (lambda (#{k 28616}# + #{keyword 28617}# + #{pattern 28618}# + #{template 28619}#) (list '#(syntax-object lambda ((top) #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i28587" "i28588" "i28589" "i28590")) + #("i28573" "i28574" "i28575" "i28576")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28584"))) + #(ribcage #(x) #((top)) #("i28570"))) (hygiene guile)) '(#(syntax-object x @@ -37927,9 +25982,9 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i28587" "i28588" "i28589" "i28590")) + #("i28573" "i28574" "i28575" "i28576")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28584"))) + #(ribcage #(x) #((top)) #("i28570"))) (hygiene guile))) (vector '(#(syntax-object @@ -37938,9 +25993,9 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i28587" "i28588" "i28589" "i28590")) + #("i28573" "i28574" "i28575" "i28576")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28584"))) + #(ribcage #(x) #((top)) #("i28570"))) (hygiene guile)) . #(syntax-object @@ -37949,9 +26004,9 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i28587" "i28588" "i28589" "i28590")) + #("i28573" "i28574" "i28575" "i28576")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28584"))) + #(ribcage #(x) #((top)) #("i28570"))) (hygiene guile))) (cons '#(syntax-object patterns @@ -37959,20 +26014,20 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i28587" "i28588" "i28589" "i28590")) + #("i28573" "i28574" "i28575" "i28576")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28584"))) + #(ribcage #(x) #((top)) #("i28570"))) (hygiene guile)) - #{pattern 28632}#)) + #{pattern 28618}#)) (cons '#(syntax-object syntax-case ((top) #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i28587" "i28588" "i28589" "i28590")) + #("i28573" "i28574" "i28575" "i28576")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28584"))) + #(ribcage #(x) #((top)) #("i28570"))) (hygiene guile)) (cons '#(syntax-object x @@ -37980,13 +26035,13 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i28587" "i28588" "i28589" "i28590")) + #("i28573" "i28574" "i28575" "i28576")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28584"))) + #(ribcage #(x) #((top)) #("i28570"))) (hygiene guile)) - (cons #{k 28630}# - (map (lambda (#{tmp 28598 28634}# - #{tmp 28597 28635}#) + (cons #{k 28616}# + (map (lambda (#{tmp 28584 28620}# + #{tmp 28583 28621}#) (list (cons '#(syntax-object dummy ((top) @@ -37999,10 +26054,10 @@ (top) (top) (top)) - #("i28587" - "i28588" - "i28589" - "i28590")) + #("i28573" + "i28574" + "i28575" + "i28576")) #(ribcage () () @@ -38010,9 +26065,9 @@ #(ribcage #(x) #((top)) - #("i28584"))) + #("i28570"))) (hygiene guile)) - #{tmp 28597 28635}#) + #{tmp 28583 28621}#) (list '#(syntax-object syntax ((top) @@ -38025,10 +26080,10 @@ (top) (top) (top)) - #("i28587" - "i28588" - "i28589" - "i28590")) + #("i28573" + "i28574" + "i28575" + "i28576")) #(ribcage () () @@ -38036,41 +26091,41 @@ #(ribcage #(x) #((top)) - #("i28584"))) + #("i28570"))) (hygiene guile)) - #{tmp 28598 28634}#))) - #{template 28633}# - #{pattern 28632}#)))))) - #{tmp 28626}#) - (let ((#{tmp 28636}# + #{tmp 28584 28620}#))) + #{template 28619}# + #{pattern 28618}#)))))) + #{tmp 28612}#) + (let ((#{tmp 28622}# ($sc-dispatch - #{x 28624}# + #{x 28610}# '(_ each-any any . #(each ((any . any) any)))))) - (if (if #{tmp 28636}# + (if (if #{tmp 28622}# (@apply - (lambda (#{k 28640}# - #{docstring 28641}# - #{keyword 28642}# - #{pattern 28643}# - #{template 28644}#) - (string? (syntax->datum #{docstring 28641}#))) - #{tmp 28636}#) + (lambda (#{k 28626}# + #{docstring 28627}# + #{keyword 28628}# + #{pattern 28629}# + #{template 28630}#) + (string? (syntax->datum #{docstring 28627}#))) + #{tmp 28622}#) #f) (@apply - (lambda (#{k 28645}# - #{docstring 28646}# - #{keyword 28647}# - #{pattern 28648}# - #{template 28649}#) + (lambda (#{k 28631}# + #{docstring 28632}# + #{keyword 28633}# + #{pattern 28634}# + #{template 28635}#) (list '#(syntax-object lambda ((top) #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("i28610" "i28611" "i28612" "i28613" "i28614")) + #("i28596" "i28597" "i28598" "i28599" "i28600")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28584"))) + #(ribcage #(x) #((top)) #("i28570"))) (hygiene guile)) '(#(syntax-object x @@ -38078,11 +26133,11 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("i28610" "i28611" "i28612" "i28613" "i28614")) + #("i28596" "i28597" "i28598" "i28599" "i28600")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28584"))) + #(ribcage #(x) #((top)) #("i28570"))) (hygiene guile))) - #{docstring 28646}# + #{docstring 28632}# (vector '(#(syntax-object macro-type @@ -38090,13 +26145,13 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("i28610" - "i28611" - "i28612" - "i28613" - "i28614")) + #("i28596" + "i28597" + "i28598" + "i28599" + "i28600")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28584"))) + #(ribcage #(x) #((top)) #("i28570"))) (hygiene guile)) . #(syntax-object @@ -38105,13 +26160,13 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("i28610" - "i28611" - "i28612" - "i28613" - "i28614")) + #("i28596" + "i28597" + "i28598" + "i28599" + "i28600")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28584"))) + #(ribcage #(x) #((top)) #("i28570"))) (hygiene guile))) (cons '#(syntax-object patterns @@ -38119,28 +26174,28 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("i28610" - "i28611" - "i28612" - "i28613" - "i28614")) + #("i28596" + "i28597" + "i28598" + "i28599" + "i28600")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28584"))) + #(ribcage #(x) #((top)) #("i28570"))) (hygiene guile)) - #{pattern 28648}#)) + #{pattern 28634}#)) (cons '#(syntax-object syntax-case ((top) #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("i28610" - "i28611" - "i28612" - "i28613" - "i28614")) + #("i28596" + "i28597" + "i28598" + "i28599" + "i28600")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28584"))) + #(ribcage #(x) #((top)) #("i28570"))) (hygiene guile)) (cons '#(syntax-object x @@ -38152,17 +26207,17 @@ pattern template) #((top) (top) (top) (top) (top)) - #("i28610" - "i28611" - "i28612" - "i28613" - "i28614")) + #("i28596" + "i28597" + "i28598" + "i28599" + "i28600")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28584"))) + #(ribcage #(x) #((top)) #("i28570"))) (hygiene guile)) - (cons #{k 28645}# - (map (lambda (#{tmp 28623 28650}# - #{tmp 28622 28651}#) + (cons #{k 28631}# + (map (lambda (#{tmp 28609 28636}# + #{tmp 28608 28637}#) (list (cons '#(syntax-object dummy ((top) @@ -38177,11 +26232,11 @@ (top) (top) (top)) - #("i28610" - "i28611" - "i28612" - "i28613" - "i28614")) + #("i28596" + "i28597" + "i28598" + "i28599" + "i28600")) #(ribcage () () @@ -38189,10 +26244,10 @@ #(ribcage #(x) #((top)) - #("i28584"))) + #("i28570"))) (hygiene guile)) - #{tmp 28622 28651}#) + #{tmp 28608 28637}#) (list '#(syntax-object syntax ((top) @@ -38207,11 +26262,11 @@ (top) (top) (top)) - #("i28610" - "i28611" - "i28612" - "i28613" - "i28614")) + #("i28596" + "i28597" + "i28598" + "i28599" + "i28600")) #(ribcage () () @@ -38219,50 +26274,50 @@ #(ribcage #(x) #((top)) - #("i28584"))) + #("i28570"))) (hygiene guile)) - #{tmp 28623 28650}#))) - #{template 28649}# - #{pattern 28648}#)))))) - #{tmp 28636}#) + #{tmp 28609 28636}#))) + #{template 28635}# + #{pattern 28634}#)))))) + #{tmp 28622}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 28624}#)))))))) + #{x 28610}#)))))))) (define define-syntax-rule (make-syntax-transformer 'define-syntax-rule 'macro - (lambda (#{x 28688}#) - (let ((#{tmp 28690}# - ($sc-dispatch #{x 28688}# '(_ (any . any) any)))) - (if #{tmp 28690}# + (lambda (#{x 28674}#) + (let ((#{tmp 28676}# + ($sc-dispatch #{x 28674}# '(_ (any . any) any)))) + (if #{tmp 28676}# (@apply - (lambda (#{name 28694}# - #{pattern 28695}# - #{template 28696}#) + (lambda (#{name 28680}# + #{pattern 28681}# + #{template 28682}#) (list '#(syntax-object define-syntax ((top) #(ribcage #(name pattern template) #((top) (top) (top)) - #("i28665" "i28666" "i28667")) + #("i28651" "i28652" "i28653")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28662"))) + #(ribcage #(x) #((top)) #("i28648"))) (hygiene guile)) - #{name 28694}# + #{name 28680}# (list '#(syntax-object syntax-rules ((top) #(ribcage #(name pattern template) #((top) (top) (top)) - #("i28665" "i28666" "i28667")) + #("i28651" "i28652" "i28653")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28662"))) + #(ribcage #(x) #((top)) #("i28648"))) (hygiene guile)) '() (list (cons '#(syntax-object @@ -38271,54 +26326,54 @@ #(ribcage #(name pattern template) #((top) (top) (top)) - #("i28665" "i28666" "i28667")) + #("i28651" "i28652" "i28653")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28662"))) + #(ribcage #(x) #((top)) #("i28648"))) (hygiene guile)) - #{pattern 28695}#) - #{template 28696}#)))) - #{tmp 28690}#) - (let ((#{tmp 28697}# + #{pattern 28681}#) + #{template 28682}#)))) + #{tmp 28676}#) + (let ((#{tmp 28683}# ($sc-dispatch - #{x 28688}# + #{x 28674}# '(_ (any . any) any any)))) - (if (if #{tmp 28697}# + (if (if #{tmp 28683}# (@apply - (lambda (#{name 28701}# - #{pattern 28702}# - #{docstring 28703}# - #{template 28704}#) - (string? (syntax->datum #{docstring 28703}#))) - #{tmp 28697}#) + (lambda (#{name 28687}# + #{pattern 28688}# + #{docstring 28689}# + #{template 28690}#) + (string? (syntax->datum #{docstring 28689}#))) + #{tmp 28683}#) #f) (@apply - (lambda (#{name 28705}# - #{pattern 28706}# - #{docstring 28707}# - #{template 28708}#) + (lambda (#{name 28691}# + #{pattern 28692}# + #{docstring 28693}# + #{template 28694}#) (list '#(syntax-object define-syntax ((top) #(ribcage #(name pattern docstring template) #((top) (top) (top) (top)) - #("i28680" "i28681" "i28682" "i28683")) + #("i28666" "i28667" "i28668" "i28669")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28662"))) + #(ribcage #(x) #((top)) #("i28648"))) (hygiene guile)) - #{name 28705}# + #{name 28691}# (list '#(syntax-object syntax-rules ((top) #(ribcage #(name pattern docstring template) #((top) (top) (top) (top)) - #("i28680" "i28681" "i28682" "i28683")) + #("i28666" "i28667" "i28668" "i28669")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28662"))) + #(ribcage #(x) #((top)) #("i28648"))) (hygiene guile)) '() - #{docstring 28707}# + #{docstring 28693}# (list (cons '#(syntax-object _ ((top) @@ -38328,53 +26383,53 @@ docstring template) #((top) (top) (top) (top)) - #("i28680" - "i28681" - "i28682" - "i28683")) + #("i28666" + "i28667" + "i28668" + "i28669")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i28662"))) + #("i28648"))) (hygiene guile)) - #{pattern 28706}#) - #{template 28708}#)))) - #{tmp 28697}#) + #{pattern 28692}#) + #{template 28694}#)))) + #{tmp 28683}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 28688}#)))))))) + #{x 28674}#)))))))) (define let* (make-syntax-transformer 'let* 'macro - (lambda (#{x 28757}#) - (let ((#{tmp 28759}# + (lambda (#{x 28743}#) + (let ((#{tmp 28745}# ($sc-dispatch - #{x 28757}# + #{x 28743}# '(any #(each (any any)) any . each-any)))) - (if (if #{tmp 28759}# + (if (if #{tmp 28745}# (@apply - (lambda (#{let* 28763}# - #{x 28764}# - #{v 28765}# - #{e1 28766}# - #{e2 28767}#) - (and-map identifier? #{x 28764}#)) - #{tmp 28759}#) + (lambda (#{let* 28749}# + #{x 28750}# + #{v 28751}# + #{e1 28752}# + #{e2 28753}#) + (and-map identifier? #{x 28750}#)) + #{tmp 28745}#) #f) (@apply - (lambda (#{let* 28768}# - #{x 28769}# - #{v 28770}# - #{e1 28771}# - #{e2 28772}#) + (lambda (#{let* 28754}# + #{x 28755}# + #{v 28756}# + #{e1 28757}# + #{e2 28758}#) (letrec* - ((#{f 28773}# - (lambda (#{bindings 28776}#) - (if (null? #{bindings 28776}#) + ((#{f 28759}# + (lambda (#{bindings 28762}#) + (if (null? #{bindings 28762}#) (cons '#(syntax-object let ((top) @@ -38382,27 +26437,27 @@ #(ribcage #(f bindings) #((top) (top)) - #("i28743" "i28744")) + #("i28729" "i28730")) #(ribcage #(let* x v e1 e2) #((top) (top) (top) (top) (top)) - #("i28733" - "i28734" - "i28735" - "i28736" - "i28737")) + #("i28719" + "i28720" + "i28721" + "i28722" + "i28723")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i28719"))) + #(ribcage #(x) #((top)) #("i28705"))) (hygiene guile)) - (cons '() (cons #{e1 28771}# #{e2 28772}#))) - (let ((#{tmp 28777}# - (list (#{f 28773}# (cdr #{bindings 28776}#)) - (car #{bindings 28776}#)))) - (let ((#{tmp 28778}# - ($sc-dispatch #{tmp 28777}# '(any any)))) - (if #{tmp 28778}# + (cons '() (cons #{e1 28757}# #{e2 28758}#))) + (let ((#{tmp 28763}# + (list (#{f 28759}# (cdr #{bindings 28762}#)) + (car #{bindings 28762}#)))) + (let ((#{tmp 28764}# + ($sc-dispatch #{tmp 28763}# '(any any)))) + (if #{tmp 28764}# (@apply - (lambda (#{body 28780}# #{binding 28781}#) + (lambda (#{body 28766}# #{binding 28767}#) (list '#(syntax-object let ((top) @@ -38410,86 +26465,86 @@ #(ribcage #(body binding) #((top) (top)) - #("i28753" "i28754")) + #("i28739" "i28740")) #(ribcage () () ()) #(ribcage #(f bindings) #((top) (top)) - #("i28743" "i28744")) + #("i28729" "i28730")) #(ribcage #(let* x v e1 e2) #((top) (top) (top) (top) (top)) - #("i28733" - "i28734" - "i28735" - "i28736" - "i28737")) + #("i28719" + "i28720" + "i28721" + "i28722" + "i28723")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i28719"))) + #("i28705"))) (hygiene guile)) - (list #{binding 28781}#) - #{body 28780}#)) - #{tmp 28778}#) + (list #{binding 28767}#) + #{body 28766}#)) + #{tmp 28764}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 28777}#)))))))) - (#{f 28773}# (map list #{x 28769}# #{v 28770}#)))) - #{tmp 28759}#) + #{tmp 28763}#)))))))) + (#{f 28759}# (map list #{x 28755}# #{v 28756}#)))) + #{tmp 28745}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 28757}#)))))) + #{x 28743}#)))))) (define do (make-syntax-transformer 'do 'macro - (lambda (#{orig-x 28839}#) - (let ((#{tmp 28841}# + (lambda (#{orig-x 28825}#) + (let ((#{tmp 28827}# ($sc-dispatch - #{orig-x 28839}# + #{orig-x 28825}# '(_ #(each (any any . any)) (any . each-any) . each-any)))) - (if #{tmp 28841}# + (if #{tmp 28827}# (@apply - (lambda (#{var 28845}# - #{init 28846}# - #{step 28847}# - #{e0 28848}# - #{e1 28849}# - #{c 28850}#) - (let ((#{tmp 28851}# - (map (lambda (#{v 28854}# #{s 28855}#) - (let ((#{tmp 28857}# - ($sc-dispatch #{s 28855}# '()))) - (if #{tmp 28857}# - (@apply (lambda () #{v 28854}#) #{tmp 28857}#) - (let ((#{tmp 28860}# - ($sc-dispatch #{s 28855}# '(any)))) - (if #{tmp 28860}# + (lambda (#{var 28831}# + #{init 28832}# + #{step 28833}# + #{e0 28834}# + #{e1 28835}# + #{c 28836}#) + (let ((#{tmp 28837}# + (map (lambda (#{v 28840}# #{s 28841}#) + (let ((#{tmp 28843}# + ($sc-dispatch #{s 28841}# '()))) + (if #{tmp 28843}# + (@apply (lambda () #{v 28840}#) #{tmp 28843}#) + (let ((#{tmp 28846}# + ($sc-dispatch #{s 28841}# '(any)))) + (if #{tmp 28846}# (@apply - (lambda (#{e 28863}#) #{e 28863}#) - #{tmp 28860}#) + (lambda (#{e 28849}#) #{e 28849}#) + #{tmp 28846}#) (syntax-violation 'do "bad step expression" - #{orig-x 28839}# - #{s 28855}#)))))) - #{var 28845}# - #{step 28847}#))) - (let ((#{tmp 28852}# - ($sc-dispatch #{tmp 28851}# 'each-any))) - (if #{tmp 28852}# + #{orig-x 28825}# + #{s 28841}#)))))) + #{var 28831}# + #{step 28833}#))) + (let ((#{tmp 28838}# + ($sc-dispatch #{tmp 28837}# 'each-any))) + (if #{tmp 28838}# (@apply - (lambda (#{step 28869}#) - (let ((#{tmp 28871}# ($sc-dispatch #{e1 28849}# '()))) - (if #{tmp 28871}# + (lambda (#{step 28855}#) + (let ((#{tmp 28857}# ($sc-dispatch #{e1 28835}# '()))) + (if #{tmp 28857}# (@apply (lambda () (list '#(syntax-object @@ -38499,7 +26554,7 @@ #(ribcage #(step) #((top)) - #("i28807")) + #("i28793")) #(ribcage #(var init step e0 e1 c) #((top) @@ -38508,17 +26563,17 @@ (top) (top) (top)) - #("i28792" - "i28793" - "i28794" - "i28795" - "i28796" - "i28797")) + #("i28778" + "i28779" + "i28780" + "i28781" + "i28782" + "i28783")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i28789"))) + #("i28775"))) (hygiene guile)) '#(syntax-object doloop @@ -38527,7 +26582,7 @@ #(ribcage #(step) #((top)) - #("i28807")) + #("i28793")) #(ribcage #(var init step e0 e1 c) #((top) @@ -38536,19 +26591,19 @@ (top) (top) (top)) - #("i28792" - "i28793" - "i28794" - "i28795" - "i28796" - "i28797")) + #("i28778" + "i28779" + "i28780" + "i28781" + "i28782" + "i28783")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i28789"))) + #("i28775"))) (hygiene guile)) - (map list #{var 28845}# #{init 28846}#) + (map list #{var 28831}# #{init 28832}#) (list '#(syntax-object if ((top) @@ -38556,7 +26611,7 @@ #(ribcage #(step) #((top)) - #("i28807")) + #("i28793")) #(ribcage #(var init step e0 e1 c) #((top) @@ -38565,17 +26620,17 @@ (top) (top) (top)) - #("i28792" - "i28793" - "i28794" - "i28795" - "i28796" - "i28797")) + #("i28778" + "i28779" + "i28780" + "i28781" + "i28782" + "i28783")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i28789"))) + #("i28775"))) (hygiene guile)) (list '#(syntax-object not @@ -38584,7 +26639,7 @@ #(ribcage #(step) #((top)) - #("i28807")) + #("i28793")) #(ribcage #(var init @@ -38598,19 +26653,19 @@ (top) (top) (top)) - #("i28792" - "i28793" - "i28794" - "i28795" - "i28796" - "i28797")) + #("i28778" + "i28779" + "i28780" + "i28781" + "i28782" + "i28783")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i28789"))) + #("i28775"))) (hygiene guile)) - #{e0 28848}#) + #{e0 28834}#) (cons '#(syntax-object begin ((top) @@ -38618,7 +26673,7 @@ #(ribcage #(step) #((top)) - #("i28807")) + #("i28793")) #(ribcage #(var init @@ -38632,20 +26687,20 @@ (top) (top) (top)) - #("i28792" - "i28793" - "i28794" - "i28795" - "i28796" - "i28797")) + #("i28778" + "i28779" + "i28780" + "i28781" + "i28782" + "i28783")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i28789"))) + #("i28775"))) (hygiene guile)) (append - #{c 28850}# + #{c 28836}# (list (cons '#(syntax-object doloop ((top) @@ -38656,7 +26711,7 @@ #(ribcage #(step) #((top)) - #("i28807")) + #("i28793")) #(ribcage #(var init @@ -38670,12 +26725,12 @@ (top) (top) (top)) - #("i28792" - "i28793" - "i28794" - "i28795" - "i28796" - "i28797")) + #("i28778" + "i28779" + "i28780" + "i28781" + "i28782" + "i28783")) #(ribcage () () @@ -38683,30 +26738,30 @@ #(ribcage #(orig-x) #((top)) - #("i28789"))) + #("i28775"))) (hygiene guile)) - #{step 28869}#))))))) - #{tmp 28871}#) - (let ((#{tmp 28875}# + #{step 28855}#))))))) + #{tmp 28857}#) + (let ((#{tmp 28861}# ($sc-dispatch - #{e1 28849}# + #{e1 28835}# '(any . each-any)))) - (if #{tmp 28875}# + (if #{tmp 28861}# (@apply - (lambda (#{e1 28879}# #{e2 28880}#) + (lambda (#{e1 28865}# #{e2 28866}#) (list '#(syntax-object let ((top) #(ribcage #(e1 e2) #((top) (top)) - #("i28816" "i28817")) + #("i28802" "i28803")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("i28807")) + #("i28793")) #(ribcage #(var init step e0 e1 c) #((top) @@ -38715,17 +26770,17 @@ (top) (top) (top)) - #("i28792" - "i28793" - "i28794" - "i28795" - "i28796" - "i28797")) + #("i28778" + "i28779" + "i28780" + "i28781" + "i28782" + "i28783")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i28789"))) + #("i28775"))) (hygiene guile)) '#(syntax-object doloop @@ -38733,12 +26788,12 @@ #(ribcage #(e1 e2) #((top) (top)) - #("i28816" "i28817")) + #("i28802" "i28803")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("i28807")) + #("i28793")) #(ribcage #(var init step e0 e1 c) #((top) @@ -38747,33 +26802,33 @@ (top) (top) (top)) - #("i28792" - "i28793" - "i28794" - "i28795" - "i28796" - "i28797")) + #("i28778" + "i28779" + "i28780" + "i28781" + "i28782" + "i28783")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i28789"))) + #("i28775"))) (hygiene guile)) (map list - #{var 28845}# - #{init 28846}#) + #{var 28831}# + #{init 28832}#) (list '#(syntax-object if ((top) #(ribcage #(e1 e2) #((top) (top)) - #("i28816" "i28817")) + #("i28802" "i28803")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("i28807")) + #("i28793")) #(ribcage #(var init step e0 e1 c) #((top) @@ -38782,32 +26837,32 @@ (top) (top) (top)) - #("i28792" - "i28793" - "i28794" - "i28795" - "i28796" - "i28797")) + #("i28778" + "i28779" + "i28780" + "i28781" + "i28782" + "i28783")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i28789"))) + #("i28775"))) (hygiene guile)) - #{e0 28848}# + #{e0 28834}# (cons '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) - #("i28816" - "i28817")) + #("i28802" + "i28803")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("i28807")) + #("i28793")) #(ribcage #(var init @@ -38821,33 +26876,33 @@ (top) (top) (top)) - #("i28792" - "i28793" - "i28794" - "i28795" - "i28796" - "i28797")) + #("i28778" + "i28779" + "i28780" + "i28781" + "i28782" + "i28783")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i28789"))) + #("i28775"))) (hygiene guile)) - (cons #{e1 28879}# - #{e2 28880}#)) + (cons #{e1 28865}# + #{e2 28866}#)) (cons '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) - #("i28816" - "i28817")) + #("i28802" + "i28803")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("i28807")) + #("i28793")) #(ribcage #(var init @@ -38861,20 +26916,20 @@ (top) (top) (top)) - #("i28792" - "i28793" - "i28794" - "i28795" - "i28796" - "i28797")) + #("i28778" + "i28779" + "i28780" + "i28781" + "i28782" + "i28783")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i28789"))) + #("i28775"))) (hygiene guile)) (append - #{c 28850}# + #{c 28836}# (list (cons '#(syntax-object doloop ((top) @@ -38883,8 +26938,8 @@ e2) #((top) (top)) - #("i28816" - "i28817")) + #("i28802" + "i28803")) #(ribcage () () @@ -38892,7 +26947,7 @@ #(ribcage #(step) #((top)) - #("i28807")) + #("i28793")) #(ribcage #(var init @@ -38906,12 +26961,12 @@ (top) (top) (top)) - #("i28792" - "i28793" - "i28794" - "i28795" - "i28796" - "i28797")) + #("i28778" + "i28779" + "i28780" + "i28781" + "i28782" + "i28783")) #(ribcage () () @@ -38919,36 +26974,36 @@ #(ribcage #(orig-x) #((top)) - #("i28789"))) + #("i28775"))) (hygiene guile)) - #{step 28869}#))))))) - #{tmp 28875}#) + #{step 28855}#))))))) + #{tmp 28861}#) (syntax-violation #f "source expression failed to match any pattern" - #{e1 28849}#)))))) - #{tmp 28852}#) + #{e1 28835}#)))))) + #{tmp 28838}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 28851}#))))) - #{tmp 28841}#) + #{tmp 28837}#))))) + #{tmp 28827}#) (syntax-violation #f "source expression failed to match any pattern" - #{orig-x 28839}#)))))) + #{orig-x 28825}#)))))) (define quasiquote (make-syntax-transformer 'quasiquote 'macro (letrec* - ((#{quasi 29166}# - (lambda (#{p 29190}# #{lev 29191}#) - (let ((#{tmp 29193}# + ((#{quasi 29152}# + (lambda (#{p 29176}# #{lev 29177}#) + (let ((#{tmp 29179}# ($sc-dispatch - #{p 29190}# + #{p 29176}# '(#(free-id #(syntax-object unquote @@ -38957,7 +27012,7 @@ #(ribcage #(p lev) #((top) (top)) - #("i28912" "i28913")) + #("i28898" "i28899")) #(ribcage (emit quasivector quasilist* @@ -38966,28 +27021,28 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i28908" - "i28906" - "i28904" - "i28902" - "i28900" - "i28898" - "i28896"))) + ("i28894" + "i28892" + "i28890" + "i28888" + "i28886" + "i28884" + "i28882"))) (hygiene guile))) any)))) - (if #{tmp 29193}# + (if #{tmp 29179}# (@apply - (lambda (#{p 29197}#) - (if (= #{lev 29191}# 0) + (lambda (#{p 29183}#) + (if (= #{lev 29177}# 0) (list '#(syntax-object "value" ((top) - #(ribcage #(p) #((top)) #("i28916")) + #(ribcage #(p) #((top)) #("i28902")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i28912" "i28913")) + #("i28898" "i28899")) #(ribcage (emit quasivector quasilist* @@ -38996,25 +27051,25 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i28908" - "i28906" - "i28904" - "i28902" - "i28900" - "i28898" - "i28896"))) + ("i28894" + "i28892" + "i28890" + "i28888" + "i28886" + "i28884" + "i28882"))) (hygiene guile)) - #{p 29197}#) - (#{quasicons 29168}# + #{p 29183}#) + (#{quasicons 29154}# '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("i28916")) + #(ribcage #(p) #((top)) #("i28902")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i28912" "i28913")) + #("i28898" "i28899")) #(ribcage (emit quasivector quasilist* @@ -39023,23 +27078,23 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i28908" - "i28906" - "i28904" - "i28902" - "i28900" - "i28898" - "i28896"))) + ("i28894" + "i28892" + "i28890" + "i28888" + "i28886" + "i28884" + "i28882"))) (hygiene guile)) #(syntax-object unquote ((top) - #(ribcage #(p) #((top)) #("i28916")) + #(ribcage #(p) #((top)) #("i28902")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i28912" "i28913")) + #("i28898" "i28899")) #(ribcage (emit quasivector quasilist* @@ -39048,21 +27103,21 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i28908" - "i28906" - "i28904" - "i28902" - "i28900" - "i28898" - "i28896"))) + ("i28894" + "i28892" + "i28890" + "i28888" + "i28886" + "i28884" + "i28882"))) (hygiene guile))) - (#{quasi 29166}# - (list #{p 29197}#) - (#{1-}# #{lev 29191}#))))) - #{tmp 29193}#) - (let ((#{tmp 29200}# + (#{quasi 29152}# + (list #{p 29183}#) + (#{1-}# #{lev 29177}#))))) + #{tmp 29179}#) + (let ((#{tmp 29186}# ($sc-dispatch - #{p 29190}# + #{p 29176}# '(#(free-id #(syntax-object quasiquote @@ -39071,7 +27126,7 @@ #(ribcage #(p lev) #((top) (top)) - #("i28912" "i28913")) + #("i28898" "i28899")) #(ribcage (emit quasivector quasilist* @@ -39080,28 +27135,28 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i28908" - "i28906" - "i28904" - "i28902" - "i28900" - "i28898" - "i28896"))) + ("i28894" + "i28892" + "i28890" + "i28888" + "i28886" + "i28884" + "i28882"))) (hygiene guile))) any)))) - (if #{tmp 29200}# + (if #{tmp 29186}# (@apply - (lambda (#{p 29204}#) - (#{quasicons 29168}# + (lambda (#{p 29190}#) + (#{quasicons 29154}# '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("i28919")) + #(ribcage #(p) #((top)) #("i28905")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i28912" "i28913")) + #("i28898" "i28899")) #(ribcage (emit quasivector quasilist* @@ -39110,23 +27165,23 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i28908" - "i28906" - "i28904" - "i28902" - "i28900" - "i28898" - "i28896"))) + ("i28894" + "i28892" + "i28890" + "i28888" + "i28886" + "i28884" + "i28882"))) (hygiene guile)) #(syntax-object quasiquote ((top) - #(ribcage #(p) #((top)) #("i28919")) + #(ribcage #(p) #((top)) #("i28905")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i28912" "i28913")) + #("i28898" "i28899")) #(ribcage (emit quasivector quasilist* @@ -39135,26 +27190,26 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i28908" - "i28906" - "i28904" - "i28902" - "i28900" - "i28898" - "i28896"))) + ("i28894" + "i28892" + "i28890" + "i28888" + "i28886" + "i28884" + "i28882"))) (hygiene guile))) - (#{quasi 29166}# - (list #{p 29204}#) - (#{1+}# #{lev 29191}#)))) - #{tmp 29200}#) - (let ((#{tmp 29207}# - ($sc-dispatch #{p 29190}# '(any . any)))) - (if #{tmp 29207}# + (#{quasi 29152}# + (list #{p 29190}#) + (#{1+}# #{lev 29177}#)))) + #{tmp 29186}#) + (let ((#{tmp 29193}# + ($sc-dispatch #{p 29176}# '(any . any)))) + (if #{tmp 29193}# (@apply - (lambda (#{p 29211}# #{q 29212}#) - (let ((#{tmp 29214}# + (lambda (#{p 29197}# #{q 29198}#) + (let ((#{tmp 29200}# ($sc-dispatch - #{p 29211}# + #{p 29197}# '(#(free-id #(syntax-object unquote @@ -39162,12 +27217,12 @@ #(ribcage #(p q) #((top) (top)) - #("i28922" "i28923")) + #("i28908" "i28909")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i28912" "i28913")) + #("i28898" "i28899")) #(ribcage (emit quasivector quasilist* @@ -39182,38 +27237,38 @@ (top) (top) (top)) - ("i28908" - "i28906" - "i28904" - "i28902" - "i28900" - "i28898" - "i28896"))) + ("i28894" + "i28892" + "i28890" + "i28888" + "i28886" + "i28884" + "i28882"))) (hygiene guile))) . each-any)))) - (if #{tmp 29214}# + (if #{tmp 29200}# (@apply - (lambda (#{p 29218}#) - (if (= #{lev 29191}# 0) - (#{quasilist* 29170}# - (map (lambda (#{tmp 28930 29254}#) + (lambda (#{p 29204}#) + (if (= #{lev 29177}# 0) + (#{quasilist* 29156}# + (map (lambda (#{tmp 28916 29240}#) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("i28928")) + #("i28914")) #(ribcage #(p q) #((top) (top)) - #("i28922" "i28923")) + #("i28908" "i28909")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i28912" "i28913")) + #("i28898" "i28899")) #(ribcage (emit quasivector quasilist* @@ -39228,37 +27283,37 @@ (top) (top) (top)) - ("i28908" - "i28906" - "i28904" - "i28902" - "i28900" - "i28898" - "i28896"))) + ("i28894" + "i28892" + "i28890" + "i28888" + "i28886" + "i28884" + "i28882"))) (hygiene guile)) - #{tmp 28930 29254}#)) - #{p 29218}#) - (#{quasi 29166}# - #{q 29212}# - #{lev 29191}#)) - (#{quasicons 29168}# - (#{quasicons 29168}# + #{tmp 28916 29240}#)) + #{p 29204}#) + (#{quasi 29152}# + #{q 29198}# + #{lev 29177}#)) + (#{quasicons 29154}# + (#{quasicons 29154}# '(#(syntax-object "quote" ((top) #(ribcage #(p) #((top)) - #("i28928")) + #("i28914")) #(ribcage #(p q) #((top) (top)) - #("i28922" "i28923")) + #("i28908" "i28909")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i28912" "i28913")) + #("i28898" "i28899")) #(ribcage (emit quasivector quasilist* @@ -39273,13 +27328,13 @@ (top) (top) (top)) - ("i28908" - "i28906" - "i28904" - "i28902" - "i28900" - "i28898" - "i28896"))) + ("i28894" + "i28892" + "i28890" + "i28888" + "i28886" + "i28884" + "i28882"))) (hygiene guile)) #(syntax-object unquote @@ -39287,16 +27342,16 @@ #(ribcage #(p) #((top)) - #("i28928")) + #("i28914")) #(ribcage #(p q) #((top) (top)) - #("i28922" "i28923")) + #("i28908" "i28909")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i28912" "i28913")) + #("i28898" "i28899")) #(ribcage (emit quasivector quasilist* @@ -39311,24 +27366,24 @@ (top) (top) (top)) - ("i28908" - "i28906" - "i28904" - "i28902" - "i28900" - "i28898" - "i28896"))) + ("i28894" + "i28892" + "i28890" + "i28888" + "i28886" + "i28884" + "i28882"))) (hygiene guile))) - (#{quasi 29166}# - #{p 29218}# - (#{1-}# #{lev 29191}#))) - (#{quasi 29166}# - #{q 29212}# - #{lev 29191}#)))) - #{tmp 29214}#) - (let ((#{tmp 29259}# + (#{quasi 29152}# + #{p 29204}# + (#{1-}# #{lev 29177}#))) + (#{quasi 29152}# + #{q 29198}# + #{lev 29177}#)))) + #{tmp 29200}#) + (let ((#{tmp 29245}# ($sc-dispatch - #{p 29211}# + #{p 29197}# '(#(free-id #(syntax-object unquote-splicing @@ -39336,12 +27391,12 @@ #(ribcage #(p q) #((top) (top)) - #("i28922" "i28923")) + #("i28908" "i28909")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i28912" "i28913")) + #("i28898" "i28899")) #(ribcage (emit quasivector quasilist* @@ -39356,40 +27411,40 @@ (top) (top) (top)) - ("i28908" - "i28906" - "i28904" - "i28902" - "i28900" - "i28898" - "i28896"))) + ("i28894" + "i28892" + "i28890" + "i28888" + "i28886" + "i28884" + "i28882"))) (hygiene guile))) . each-any)))) - (if #{tmp 29259}# + (if #{tmp 29245}# (@apply - (lambda (#{p 29263}#) - (if (= #{lev 29191}# 0) - (#{quasiappend 29169}# - (map (lambda (#{tmp 28935 29266}#) + (lambda (#{p 29249}#) + (if (= #{lev 29177}# 0) + (#{quasiappend 29155}# + (map (lambda (#{tmp 28921 29252}#) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("i28933")) + #("i28919")) #(ribcage #(p q) #((top) (top)) - #("i28922" - "i28923")) + #("i28908" + "i28909")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i28912" - "i28913")) + #("i28898" + "i28899")) #(ribcage (emit quasivector quasilist* @@ -39404,37 +27459,37 @@ (top) (top) (top)) - ("i28908" - "i28906" - "i28904" - "i28902" - "i28900" - "i28898" - "i28896"))) + ("i28894" + "i28892" + "i28890" + "i28888" + "i28886" + "i28884" + "i28882"))) (hygiene guile)) - #{tmp 28935 29266}#)) - #{p 29263}#) - (#{quasi 29166}# - #{q 29212}# - #{lev 29191}#)) - (#{quasicons 29168}# - (#{quasicons 29168}# + #{tmp 28921 29252}#)) + #{p 29249}#) + (#{quasi 29152}# + #{q 29198}# + #{lev 29177}#)) + (#{quasicons 29154}# + (#{quasicons 29154}# '(#(syntax-object "quote" ((top) #(ribcage #(p) #((top)) - #("i28933")) + #("i28919")) #(ribcage #(p q) #((top) (top)) - #("i28922" "i28923")) + #("i28908" "i28909")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i28912" "i28913")) + #("i28898" "i28899")) #(ribcage (emit quasivector quasilist* @@ -39449,13 +27504,13 @@ (top) (top) (top)) - ("i28908" - "i28906" - "i28904" - "i28902" - "i28900" - "i28898" - "i28896"))) + ("i28894" + "i28892" + "i28890" + "i28888" + "i28886" + "i28884" + "i28882"))) (hygiene guile)) #(syntax-object unquote-splicing @@ -39463,16 +27518,16 @@ #(ribcage #(p) #((top)) - #("i28933")) + #("i28919")) #(ribcage #(p q) #((top) (top)) - #("i28922" "i28923")) + #("i28908" "i28909")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i28912" "i28913")) + #("i28898" "i28899")) #(ribcage (emit quasivector quasilist* @@ -39487,57 +27542,57 @@ (top) (top) (top)) - ("i28908" - "i28906" - "i28904" - "i28902" - "i28900" - "i28898" - "i28896"))) + ("i28894" + "i28892" + "i28890" + "i28888" + "i28886" + "i28884" + "i28882"))) (hygiene guile))) - (#{quasi 29166}# - #{p 29263}# - (#{1-}# #{lev 29191}#))) - (#{quasi 29166}# - #{q 29212}# - #{lev 29191}#)))) - #{tmp 29259}#) - (#{quasicons 29168}# - (#{quasi 29166}# - #{p 29211}# - #{lev 29191}#) - (#{quasi 29166}# - #{q 29212}# - #{lev 29191}#))))))) - #{tmp 29207}#) - (let ((#{tmp 29280}# - ($sc-dispatch #{p 29190}# '#(vector each-any)))) - (if #{tmp 29280}# + (#{quasi 29152}# + #{p 29249}# + (#{1-}# #{lev 29177}#))) + (#{quasi 29152}# + #{q 29198}# + #{lev 29177}#)))) + #{tmp 29245}#) + (#{quasicons 29154}# + (#{quasi 29152}# + #{p 29197}# + #{lev 29177}#) + (#{quasi 29152}# + #{q 29198}# + #{lev 29177}#))))))) + #{tmp 29193}#) + (let ((#{tmp 29266}# + ($sc-dispatch #{p 29176}# '#(vector each-any)))) + (if #{tmp 29266}# (@apply - (lambda (#{x 29284}#) - (let ((#{x 29287}# - (#{vquasi 29167}# - #{x 29284}# - #{lev 29191}#))) - (let ((#{tmp 29289}# + (lambda (#{x 29270}#) + (let ((#{x 29273}# + (#{vquasi 29153}# + #{x 29270}# + #{lev 29177}#))) + (let ((#{tmp 29275}# ($sc-dispatch - #{x 29287}# + #{x 29273}# '(#(atom "quote") each-any)))) - (if #{tmp 29289}# + (if #{tmp 29275}# (@apply - (lambda (#{x 29293}#) + (lambda (#{x 29279}#) (list '#(syntax-object "quote" ((top) #(ribcage #(x) #((top)) - #("i29040")) + #("i29026")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i29037")) + #("i29023")) #(ribcage (emit quasivector quasilist* @@ -39552,36 +27607,36 @@ (top) (top) (top)) - ("i28908" - "i28906" - "i28904" - "i28902" - "i28900" - "i28898" - "i28896"))) + ("i28894" + "i28892" + "i28890" + "i28888" + "i28886" + "i28884" + "i28882"))) (hygiene guile)) - (list->vector #{x 29293}#))) - #{tmp 29289}#) + (list->vector #{x 29279}#))) + #{tmp 29275}#) (letrec* - ((#{f 29295}# - (lambda (#{y 29307}# #{k 29308}#) - (let ((#{tmp 29310}# + ((#{f 29281}# + (lambda (#{y 29293}# #{k 29294}#) + (let ((#{tmp 29296}# ($sc-dispatch - #{y 29307}# + #{y 29293}# '(#(atom "quote") each-any)))) - (if #{tmp 29310}# + (if #{tmp 29296}# (@apply - (lambda (#{y 29313}#) - (#{k 29308}# - (map (lambda (#{tmp 29065 29314}#) + (lambda (#{y 29299}#) + (#{k 29294}# + (map (lambda (#{tmp 29051 29300}#) (list '#(syntax-object "quote" ((top) #(ribcage #(y) #((top)) - #("i29063")) + #("i29049")) #(ribcage () () @@ -39593,13 +27648,13 @@ #((top) (top) (top)) - #("i29045" - "i29046" - "i29047")) + #("i29031" + "i29032" + "i29033")) #(ribcage #(_) #((top)) - #("i29043")) + #("i29029")) #(ribcage () () @@ -39607,7 +27662,7 @@ #(ribcage #(x) #((top)) - #("i29037")) + #("i29023")) #(ribcage (emit quasivector quasilist* @@ -39622,51 +27677,51 @@ (top) (top) (top)) - ("i28908" - "i28906" - "i28904" - "i28902" - "i28900" - "i28898" - "i28896"))) + ("i28894" + "i28892" + "i28890" + "i28888" + "i28886" + "i28884" + "i28882"))) (hygiene guile)) - #{tmp 29065 29314}#)) - #{y 29313}#))) - #{tmp 29310}#) - (let ((#{tmp 29315}# + #{tmp 29051 29300}#)) + #{y 29299}#))) + #{tmp 29296}#) + (let ((#{tmp 29301}# ($sc-dispatch - #{y 29307}# + #{y 29293}# '(#(atom "list") . each-any)))) - (if #{tmp 29315}# + (if #{tmp 29301}# (@apply - (lambda (#{y 29318}#) - (#{k 29308}# - #{y 29318}#)) - #{tmp 29315}#) - (let ((#{tmp 29319}# + (lambda (#{y 29304}#) + (#{k 29294}# + #{y 29304}#)) + #{tmp 29301}#) + (let ((#{tmp 29305}# ($sc-dispatch - #{y 29307}# + #{y 29293}# '(#(atom "list*") . #(each+ any (any) ()))))) - (if #{tmp 29319}# + (if #{tmp 29305}# (@apply - (lambda (#{y 29322}# - #{z 29323}#) - (#{f 29295}# - #{z 29323}# - (lambda (#{ls 29324}#) - (#{k 29308}# + (lambda (#{y 29308}# + #{z 29309}#) + (#{f 29281}# + #{z 29309}# + (lambda (#{ls 29310}#) + (#{k 29294}# (append - #{y 29322}# - #{ls 29324}#))))) - #{tmp 29319}#) + #{y 29308}# + #{ls 29310}#))))) + #{tmp 29305}#) (list '#(syntax-object "list->vector" ((top) @@ -39675,14 +27730,14 @@ () ()) #(ribcage - #(#{ g29080}#) - #((m29081 + #(#{ g29066}#) + #((m29067 top)) - #("i29084")) + #("i29070")) #(ribcage #(else) #((top)) - #("i29078")) + #("i29064")) #(ribcage () () @@ -39692,13 +27747,13 @@ #((top) (top) (top)) - #("i29045" - "i29046" - "i29047")) + #("i29031" + "i29032" + "i29033")) #(ribcage #(_) #((top)) - #("i29043")) + #("i29029")) #(ribcage () () @@ -39706,7 +27761,7 @@ #(ribcage #(x) #((top)) - #("i29037")) + #("i29023")) #(ribcage (emit quasivector quasilist* @@ -39721,26 +27776,26 @@ (top) (top) (top)) - ("i28908" - "i28906" - "i28904" - "i28902" - "i28900" - "i28898" - "i28896"))) + ("i28894" + "i28892" + "i28890" + "i28888" + "i28886" + "i28884" + "i28882"))) (hygiene guile)) - #{x 29287}#)))))))))) - (#{f 29295}# - #{x 29287}# - (lambda (#{ls 29297}#) - (let ((#{tmp 29299}# + #{x 29273}#)))))))))) + (#{f 29281}# + #{x 29273}# + (lambda (#{ls 29283}#) + (let ((#{tmp 29285}# ($sc-dispatch - #{ls 29297}# + #{ls 29283}# 'each-any))) - (if #{tmp 29299}# + (if #{tmp 29285}# (@apply - (lambda (#{ g29053 29302}#) + (lambda (#{ g29039 29288}#) (cons '#(syntax-object "vector" ((top) @@ -39749,9 +27804,9 @@ () ()) #(ribcage - #(#{ g29053}#) - #((m29054 top)) - #("i29058")) + #(#{ g29039}#) + #((m29040 top)) + #("i29044")) #(ribcage () () @@ -39767,11 +27822,11 @@ #(ribcage #(ls) #((top)) - #("i29052")) + #("i29038")) #(ribcage #(_) #((top)) - #("i29043")) + #("i29029")) #(ribcage () () @@ -39779,7 +27834,7 @@ #(ribcage #(x) #((top)) - #("i29037")) + #("i29023")) #(ribcage (emit quasivector quasilist* @@ -39794,30 +27849,30 @@ (top) (top) (top)) - ("i28908" - "i28906" - "i28904" - "i28902" - "i28900" - "i28898" - "i28896"))) + ("i28894" + "i28892" + "i28890" + "i28888" + "i28886" + "i28884" + "i28882"))) (hygiene guile)) - #{ g29053 29302}#)) - #{tmp 29299}#) + #{ g29039 29288}#)) + #{tmp 29285}#) (syntax-violation #f "source expression failed to match any pattern" - #{ls 29297}#)))))))))) - #{tmp 29280}#) + #{ls 29283}#)))))))))) + #{tmp 29266}#) (list '#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("i28943")) + #(ribcage #(p) #((top)) #("i28929")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i28912" "i28913")) + #("i28898" "i28899")) #(ribcage (emit quasivector quasilist* @@ -39832,25 +27887,25 @@ (top) (top) (top)) - ("i28908" - "i28906" - "i28904" - "i28902" - "i28900" - "i28898" - "i28896"))) + ("i28894" + "i28892" + "i28890" + "i28888" + "i28886" + "i28884" + "i28882"))) (hygiene guile)) - #{p 29190}#))))))))))) - (#{vquasi 29167}# - (lambda (#{p 29352}# #{lev 29353}#) - (let ((#{tmp 29355}# - ($sc-dispatch #{p 29352}# '(any . any)))) - (if #{tmp 29355}# + #{p 29176}#))))))))))) + (#{vquasi 29153}# + (lambda (#{p 29338}# #{lev 29339}#) + (let ((#{tmp 29341}# + ($sc-dispatch #{p 29338}# '(any . any)))) + (if #{tmp 29341}# (@apply - (lambda (#{p 29359}# #{q 29360}#) - (let ((#{tmp 29362}# + (lambda (#{p 29345}# #{q 29346}#) + (let ((#{tmp 29348}# ($sc-dispatch - #{p 29359}# + #{p 29345}# '(#(free-id #(syntax-object unquote @@ -39858,12 +27913,12 @@ #(ribcage #(p q) #((top) (top)) - #("i28951" "i28952")) + #("i28937" "i28938")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i28947" "i28948")) + #("i28933" "i28934")) #(ribcage (emit quasivector quasilist* @@ -39878,38 +27933,38 @@ (top) (top) (top)) - ("i28908" - "i28906" - "i28904" - "i28902" - "i28900" - "i28898" - "i28896"))) + ("i28894" + "i28892" + "i28890" + "i28888" + "i28886" + "i28884" + "i28882"))) (hygiene guile))) . each-any)))) - (if #{tmp 29362}# + (if #{tmp 29348}# (@apply - (lambda (#{p 29366}#) - (if (= #{lev 29353}# 0) - (#{quasilist* 29170}# - (map (lambda (#{tmp 28959 29402}#) + (lambda (#{p 29352}#) + (if (= #{lev 29339}# 0) + (#{quasilist* 29156}# + (map (lambda (#{tmp 28945 29388}#) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("i28957")) + #("i28943")) #(ribcage #(p q) #((top) (top)) - #("i28951" "i28952")) + #("i28937" "i28938")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i28947" "i28948")) + #("i28933" "i28934")) #(ribcage (emit quasivector quasilist* @@ -39924,32 +27979,32 @@ (top) (top) (top)) - ("i28908" - "i28906" - "i28904" - "i28902" - "i28900" - "i28898" - "i28896"))) + ("i28894" + "i28892" + "i28890" + "i28888" + "i28886" + "i28884" + "i28882"))) (hygiene guile)) - #{tmp 28959 29402}#)) - #{p 29366}#) - (#{vquasi 29167}# #{q 29360}# #{lev 29353}#)) - (#{quasicons 29168}# - (#{quasicons 29168}# + #{tmp 28945 29388}#)) + #{p 29352}#) + (#{vquasi 29153}# #{q 29346}# #{lev 29339}#)) + (#{quasicons 29154}# + (#{quasicons 29154}# '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("i28957")) + #(ribcage #(p) #((top)) #("i28943")) #(ribcage #(p q) #((top) (top)) - #("i28951" "i28952")) + #("i28937" "i28938")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i28947" "i28948")) + #("i28933" "i28934")) #(ribcage (emit quasivector quasilist* @@ -39964,27 +28019,27 @@ (top) (top) (top)) - ("i28908" - "i28906" - "i28904" - "i28902" - "i28900" - "i28898" - "i28896"))) + ("i28894" + "i28892" + "i28890" + "i28888" + "i28886" + "i28884" + "i28882"))) (hygiene guile)) #(syntax-object unquote ((top) - #(ribcage #(p) #((top)) #("i28957")) + #(ribcage #(p) #((top)) #("i28943")) #(ribcage #(p q) #((top) (top)) - #("i28951" "i28952")) + #("i28937" "i28938")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i28947" "i28948")) + #("i28933" "i28934")) #(ribcage (emit quasivector quasilist* @@ -39999,22 +28054,22 @@ (top) (top) (top)) - ("i28908" - "i28906" - "i28904" - "i28902" - "i28900" - "i28898" - "i28896"))) + ("i28894" + "i28892" + "i28890" + "i28888" + "i28886" + "i28884" + "i28882"))) (hygiene guile))) - (#{quasi 29166}# - #{p 29366}# - (#{1-}# #{lev 29353}#))) - (#{vquasi 29167}# #{q 29360}# #{lev 29353}#)))) - #{tmp 29362}#) - (let ((#{tmp 29409}# + (#{quasi 29152}# + #{p 29352}# + (#{1-}# #{lev 29339}#))) + (#{vquasi 29153}# #{q 29346}# #{lev 29339}#)))) + #{tmp 29348}#) + (let ((#{tmp 29395}# ($sc-dispatch - #{p 29359}# + #{p 29345}# '(#(free-id #(syntax-object unquote-splicing @@ -40022,12 +28077,12 @@ #(ribcage #(p q) #((top) (top)) - #("i28951" "i28952")) + #("i28937" "i28938")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i28947" "i28948")) + #("i28933" "i28934")) #(ribcage (emit quasivector quasilist* @@ -40042,38 +28097,38 @@ (top) (top) (top)) - ("i28908" - "i28906" - "i28904" - "i28902" - "i28900" - "i28898" - "i28896"))) + ("i28894" + "i28892" + "i28890" + "i28888" + "i28886" + "i28884" + "i28882"))) (hygiene guile))) . each-any)))) - (if #{tmp 29409}# + (if #{tmp 29395}# (@apply - (lambda (#{p 29413}#) - (if (= #{lev 29353}# 0) - (#{quasiappend 29169}# - (map (lambda (#{tmp 28964 29416}#) + (lambda (#{p 29399}#) + (if (= #{lev 29339}# 0) + (#{quasiappend 29155}# + (map (lambda (#{tmp 28950 29402}#) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("i28962")) + #("i28948")) #(ribcage #(p q) #((top) (top)) - #("i28951" "i28952")) + #("i28937" "i28938")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i28947" "i28948")) + #("i28933" "i28934")) #(ribcage (emit quasivector quasilist* @@ -40088,34 +28143,34 @@ (top) (top) (top)) - ("i28908" - "i28906" - "i28904" - "i28902" - "i28900" - "i28898" - "i28896"))) + ("i28894" + "i28892" + "i28890" + "i28888" + "i28886" + "i28884" + "i28882"))) (hygiene guile)) - #{tmp 28964 29416}#)) - #{p 29413}#) - (#{vquasi 29167}# - #{q 29360}# - #{lev 29353}#)) - (#{quasicons 29168}# - (#{quasicons 29168}# + #{tmp 28950 29402}#)) + #{p 29399}#) + (#{vquasi 29153}# + #{q 29346}# + #{lev 29339}#)) + (#{quasicons 29154}# + (#{quasicons 29154}# '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("i28962")) + #(ribcage #(p) #((top)) #("i28948")) #(ribcage #(p q) #((top) (top)) - #("i28951" "i28952")) + #("i28937" "i28938")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i28947" "i28948")) + #("i28933" "i28934")) #(ribcage (emit quasivector quasilist* @@ -40130,27 +28185,27 @@ (top) (top) (top)) - ("i28908" - "i28906" - "i28904" - "i28902" - "i28900" - "i28898" - "i28896"))) + ("i28894" + "i28892" + "i28890" + "i28888" + "i28886" + "i28884" + "i28882"))) (hygiene guile)) #(syntax-object unquote-splicing ((top) - #(ribcage #(p) #((top)) #("i28962")) + #(ribcage #(p) #((top)) #("i28948")) #(ribcage #(p q) #((top) (top)) - #("i28951" "i28952")) + #("i28937" "i28938")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i28947" "i28948")) + #("i28933" "i28934")) #(ribcage (emit quasivector quasilist* @@ -40165,27 +28220,27 @@ (top) (top) (top)) - ("i28908" - "i28906" - "i28904" - "i28902" - "i28900" - "i28898" - "i28896"))) + ("i28894" + "i28892" + "i28890" + "i28888" + "i28886" + "i28884" + "i28882"))) (hygiene guile))) - (#{quasi 29166}# - #{p 29413}# - (#{1-}# #{lev 29353}#))) - (#{vquasi 29167}# - #{q 29360}# - #{lev 29353}#)))) - #{tmp 29409}#) - (#{quasicons 29168}# - (#{quasi 29166}# #{p 29359}# #{lev 29353}#) - (#{vquasi 29167}# #{q 29360}# #{lev 29353}#))))))) - #{tmp 29355}#) - (let ((#{tmp 29434}# ($sc-dispatch #{p 29352}# '()))) - (if #{tmp 29434}# + (#{quasi 29152}# + #{p 29399}# + (#{1-}# #{lev 29339}#))) + (#{vquasi 29153}# + #{q 29346}# + #{lev 29339}#)))) + #{tmp 29395}#) + (#{quasicons 29154}# + (#{quasi 29152}# #{p 29345}# #{lev 29339}#) + (#{vquasi 29153}# #{q 29346}# #{lev 29339}#))))))) + #{tmp 29341}#) + (let ((#{tmp 29420}# ($sc-dispatch #{p 29338}# '()))) + (if #{tmp 29420}# (@apply (lambda () '(#(syntax-object @@ -40195,7 +28250,7 @@ #(ribcage #(p lev) #((top) (top)) - #("i28947" "i28948")) + #("i28933" "i28934")) #(ribcage (emit quasivector quasilist* @@ -40204,64 +28259,64 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i28908" - "i28906" - "i28904" - "i28902" - "i28900" - "i28898" - "i28896"))) + ("i28894" + "i28892" + "i28890" + "i28888" + "i28886" + "i28884" + "i28882"))) (hygiene guile)) ())) - #{tmp 29434}#) + #{tmp 29420}#) (syntax-violation #f "source expression failed to match any pattern" - #{p 29352}#))))))) - (#{quasicons 29168}# - (lambda (#{x 29447}# #{y 29448}#) - (let ((#{tmp 29449}# (list #{x 29447}# #{y 29448}#))) - (let ((#{tmp 29450}# - ($sc-dispatch #{tmp 29449}# '(any any)))) - (if #{tmp 29450}# + #{p 29338}#))))))) + (#{quasicons 29154}# + (lambda (#{x 29433}# #{y 29434}#) + (let ((#{tmp 29435}# (list #{x 29433}# #{y 29434}#))) + (let ((#{tmp 29436}# + ($sc-dispatch #{tmp 29435}# '(any any)))) + (if #{tmp 29436}# (@apply - (lambda (#{x 29452}# #{y 29453}#) - (let ((#{tmp 29455}# + (lambda (#{x 29438}# #{y 29439}#) + (let ((#{tmp 29441}# ($sc-dispatch - #{y 29453}# + #{y 29439}# '(#(atom "quote") any)))) - (if #{tmp 29455}# + (if #{tmp 29441}# (@apply - (lambda (#{dy 29459}#) - (let ((#{tmp 29461}# + (lambda (#{dy 29445}#) + (let ((#{tmp 29447}# ($sc-dispatch - #{x 29452}# + #{x 29438}# '(#(atom "quote") any)))) - (if #{tmp 29461}# + (if #{tmp 29447}# (@apply - (lambda (#{dx 29465}#) + (lambda (#{dx 29451}#) (list '#(syntax-object "quote" ((top) #(ribcage #(dx) #((top)) - #("i28986")) + #("i28972")) #(ribcage #(dy) #((top)) - #("i28982")) + #("i28968")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i28976" "i28977")) + #("i28962" "i28963")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i28971" "i28972")) + #("i28957" "i28958")) #(ribcage (emit quasivector quasilist* @@ -40276,39 +28331,39 @@ (top) (top) (top)) - ("i28908" - "i28906" - "i28904" - "i28902" - "i28900" - "i28898" - "i28896"))) + ("i28894" + "i28892" + "i28890" + "i28888" + "i28886" + "i28884" + "i28882"))) (hygiene guile)) - (cons #{dx 29465}# #{dy 29459}#))) - #{tmp 29461}#) - (if (null? #{dy 29459}#) + (cons #{dx 29451}# #{dy 29445}#))) + #{tmp 29447}#) + (if (null? #{dy 29445}#) (list '#(syntax-object "list" ((top) #(ribcage #(_) #((top)) - #("i28988")) + #("i28974")) #(ribcage #(dy) #((top)) - #("i28982")) + #("i28968")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i28976" "i28977")) + #("i28962" "i28963")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i28971" "i28972")) + #("i28957" "i28958")) #(ribcage (emit quasivector quasilist* @@ -40323,37 +28378,37 @@ (top) (top) (top)) - ("i28908" - "i28906" - "i28904" - "i28902" - "i28900" - "i28898" - "i28896"))) + ("i28894" + "i28892" + "i28890" + "i28888" + "i28886" + "i28884" + "i28882"))) (hygiene guile)) - #{x 29452}#) + #{x 29438}#) (list '#(syntax-object "list*" ((top) #(ribcage #(_) #((top)) - #("i28988")) + #("i28974")) #(ribcage #(dy) #((top)) - #("i28982")) + #("i28968")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i28976" "i28977")) + #("i28962" "i28963")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i28971" "i28972")) + #("i28957" "i28958")) #(ribcage (emit quasivector quasilist* @@ -40368,42 +28423,42 @@ (top) (top) (top)) - ("i28908" - "i28906" - "i28904" - "i28902" - "i28900" - "i28898" - "i28896"))) + ("i28894" + "i28892" + "i28890" + "i28888" + "i28886" + "i28884" + "i28882"))) (hygiene guile)) - #{x 29452}# - #{y 29453}#))))) - #{tmp 29455}#) - (let ((#{tmp 29470}# + #{x 29438}# + #{y 29439}#))))) + #{tmp 29441}#) + (let ((#{tmp 29456}# ($sc-dispatch - #{y 29453}# + #{y 29439}# '(#(atom "list") . any)))) - (if #{tmp 29470}# + (if #{tmp 29456}# (@apply - (lambda (#{stuff 29474}#) + (lambda (#{stuff 29460}#) (cons '#(syntax-object "list" ((top) #(ribcage #(stuff) #((top)) - #("i28991")) + #("i28977")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i28976" "i28977")) + #("i28962" "i28963")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i28971" "i28972")) + #("i28957" "i28958")) #(ribcage (emit quasivector quasilist* @@ -40418,41 +28473,41 @@ (top) (top) (top)) - ("i28908" - "i28906" - "i28904" - "i28902" - "i28900" - "i28898" - "i28896"))) + ("i28894" + "i28892" + "i28890" + "i28888" + "i28886" + "i28884" + "i28882"))) (hygiene guile)) - (cons #{x 29452}# #{stuff 29474}#))) - #{tmp 29470}#) - (let ((#{tmp 29475}# + (cons #{x 29438}# #{stuff 29460}#))) + #{tmp 29456}#) + (let ((#{tmp 29461}# ($sc-dispatch - #{y 29453}# + #{y 29439}# '(#(atom "list*") . any)))) - (if #{tmp 29475}# + (if #{tmp 29461}# (@apply - (lambda (#{stuff 29479}#) + (lambda (#{stuff 29465}#) (cons '#(syntax-object "list*" ((top) #(ribcage #(stuff) #((top)) - #("i28994")) + #("i28980")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i28976" "i28977")) + #("i28962" "i28963")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i28971" "i28972")) + #("i28957" "i28958")) #(ribcage (emit quasivector quasilist* @@ -40467,31 +28522,31 @@ (top) (top) (top)) - ("i28908" - "i28906" - "i28904" - "i28902" - "i28900" - "i28898" - "i28896"))) + ("i28894" + "i28892" + "i28890" + "i28888" + "i28886" + "i28884" + "i28882"))) (hygiene guile)) - (cons #{x 29452}# #{stuff 29479}#))) - #{tmp 29475}#) + (cons #{x 29438}# #{stuff 29465}#))) + #{tmp 29461}#) (list '#(syntax-object "list*" ((top) - #(ribcage #(_) #((top)) #("i28996")) + #(ribcage #(_) #((top)) #("i28982")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i28976" "i28977")) + #("i28962" "i28963")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i28971" "i28972")) + #("i28957" "i28958")) #(ribcage (emit quasivector quasilist* @@ -40506,29 +28561,29 @@ (top) (top) (top)) - ("i28908" - "i28906" - "i28904" - "i28902" - "i28900" - "i28898" - "i28896"))) + ("i28894" + "i28892" + "i28890" + "i28888" + "i28886" + "i28884" + "i28882"))) (hygiene guile)) - #{x 29452}# - #{y 29453}#)))))))) - #{tmp 29450}#) + #{x 29438}# + #{y 29439}#)))))))) + #{tmp 29436}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 29449}#)))))) - (#{quasiappend 29169}# - (lambda (#{x 29490}# #{y 29491}#) - (let ((#{tmp 29493}# - ($sc-dispatch #{y 29491}# '(#(atom "quote") ())))) - (if #{tmp 29493}# + #{tmp 29435}#)))))) + (#{quasiappend 29155}# + (lambda (#{x 29476}# #{y 29477}#) + (let ((#{tmp 29479}# + ($sc-dispatch #{y 29477}# '(#(atom "quote") ())))) + (if #{tmp 29479}# (@apply (lambda () - (if (null? #{x 29490}#) + (if (null? #{x 29476}#) '(#(syntax-object "quote" ((top) @@ -40536,7 +28591,7 @@ #(ribcage #(x y) #((top) (top)) - #("i29000" "i29001")) + #("i28986" "i28987")) #(ribcage (emit quasivector quasilist* @@ -40545,32 +28600,32 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i28908" - "i28906" - "i28904" - "i28902" - "i28900" - "i28898" - "i28896"))) + ("i28894" + "i28892" + "i28890" + "i28888" + "i28886" + "i28884" + "i28882"))) (hygiene guile)) ()) - (if (null? (cdr #{x 29490}#)) - (car #{x 29490}#) - (let ((#{tmp 29498}# - ($sc-dispatch #{x 29490}# 'each-any))) - (if #{tmp 29498}# + (if (null? (cdr #{x 29476}#)) + (car #{x 29476}#) + (let ((#{tmp 29484}# + ($sc-dispatch #{x 29476}# 'each-any))) + (if #{tmp 29484}# (@apply - (lambda (#{p 29502}#) + (lambda (#{p 29488}#) (cons '#(syntax-object "append" ((top) #(ribcage () () ()) - #(ribcage #(p) #((top)) #("i29012")) + #(ribcage #(p) #((top)) #("i28998")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i29000" "i29001")) + #("i28986" "i28987")) #(ribcage (emit quasivector quasilist* @@ -40585,29 +28640,29 @@ (top) (top) (top)) - ("i28908" - "i28906" - "i28904" - "i28902" - "i28900" - "i28898" - "i28896"))) + ("i28894" + "i28892" + "i28890" + "i28888" + "i28886" + "i28884" + "i28882"))) (hygiene guile)) - #{p 29502}#)) - #{tmp 29498}#) + #{p 29488}#)) + #{tmp 29484}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 29490}#)))))) - #{tmp 29493}#) - (if (null? #{x 29490}#) - #{y 29491}# - (let ((#{tmp 29510}# (list #{x 29490}# #{y 29491}#))) - (let ((#{tmp 29511}# - ($sc-dispatch #{tmp 29510}# '(each-any any)))) - (if #{tmp 29511}# + #{x 29476}#)))))) + #{tmp 29479}#) + (if (null? #{x 29476}#) + #{y 29477}# + (let ((#{tmp 29496}# (list #{x 29476}# #{y 29477}#))) + (let ((#{tmp 29497}# + ($sc-dispatch #{tmp 29496}# '(each-any any)))) + (if #{tmp 29497}# (@apply - (lambda (#{p 29513}# #{y 29514}#) + (lambda (#{p 29499}# #{y 29500}#) (cons '#(syntax-object "append" ((top) @@ -40615,13 +28670,13 @@ #(ribcage #(p y) #((top) (top)) - #("i29023" "i29024")) - #(ribcage #(_) #((top)) #("i29015")) + #("i29009" "i29010")) + #(ribcage #(_) #((top)) #("i29001")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i29000" "i29001")) + #("i28986" "i28987")) #(ribcage (emit quasivector quasilist* @@ -40636,44 +28691,44 @@ (top) (top) (top)) - ("i28908" - "i28906" - "i28904" - "i28902" - "i28900" - "i28898" - "i28896"))) + ("i28894" + "i28892" + "i28890" + "i28888" + "i28886" + "i28884" + "i28882"))) (hygiene guile)) - (append #{p 29513}# (list #{y 29514}#)))) - #{tmp 29511}#) + (append #{p 29499}# (list #{y 29500}#)))) + #{tmp 29497}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 29510}#))))))))) - (#{quasilist* 29170}# - (lambda (#{x 29518}# #{y 29519}#) + #{tmp 29496}#))))))))) + (#{quasilist* 29156}# + (lambda (#{x 29504}# #{y 29505}#) (letrec* - ((#{f 29520}# - (lambda (#{x 29609}#) - (if (null? #{x 29609}#) - #{y 29519}# - (#{quasicons 29168}# - (car #{x 29609}#) - (#{f 29520}# (cdr #{x 29609}#))))))) - (#{f 29520}# #{x 29518}#)))) - (#{emit 29172}# - (lambda (#{x 29612}#) - (let ((#{tmp 29614}# - ($sc-dispatch #{x 29612}# '(#(atom "quote") any)))) - (if #{tmp 29614}# + ((#{f 29506}# + (lambda (#{x 29595}#) + (if (null? #{x 29595}#) + #{y 29505}# + (#{quasicons 29154}# + (car #{x 29595}#) + (#{f 29506}# (cdr #{x 29595}#))))))) + (#{f 29506}# #{x 29504}#)))) + (#{emit 29158}# + (lambda (#{x 29598}#) + (let ((#{tmp 29600}# + ($sc-dispatch #{x 29598}# '(#(atom "quote") any)))) + (if #{tmp 29600}# (@apply - (lambda (#{x 29618}#) + (lambda (#{x 29604}#) (list '#(syntax-object quote ((top) - #(ribcage #(x) #((top)) #("i29090")) + #(ribcage #(x) #((top)) #("i29076")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29087")) + #(ribcage #(x) #((top)) #("i29073")) #(ribcage (emit quasivector quasilist* @@ -40682,40 +28737,40 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i28908" - "i28906" - "i28904" - "i28902" - "i28900" - "i28898" - "i28896"))) + ("i28894" + "i28892" + "i28890" + "i28888" + "i28886" + "i28884" + "i28882"))) (hygiene guile)) - #{x 29618}#)) - #{tmp 29614}#) - (let ((#{tmp 29619}# + #{x 29604}#)) + #{tmp 29600}#) + (let ((#{tmp 29605}# ($sc-dispatch - #{x 29612}# + #{x 29598}# '(#(atom "list") . each-any)))) - (if #{tmp 29619}# + (if #{tmp 29605}# (@apply - (lambda (#{x 29623}#) - (let ((#{tmp 29624}# (map #{emit 29172}# #{x 29623}#))) - (let ((#{tmp 29625}# - ($sc-dispatch #{tmp 29624}# 'each-any))) - (if #{tmp 29625}# + (lambda (#{x 29609}#) + (let ((#{tmp 29610}# (map #{emit 29158}# #{x 29609}#))) + (let ((#{tmp 29611}# + ($sc-dispatch #{tmp 29610}# 'each-any))) + (if #{tmp 29611}# (@apply - (lambda (#{ g29095 29627}#) + (lambda (#{ g29081 29613}#) (cons '#(syntax-object list ((top) #(ribcage () () ()) #(ribcage - #(#{ g29095}#) - #((m29096 top)) - #("i29100")) - #(ribcage #(x) #((top)) #("i29093")) + #(#{ g29081}#) + #((m29082 top)) + #("i29086")) + #(ribcage #(x) #((top)) #("i29079")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29087")) + #(ribcage #(x) #((top)) #("i29073")) #(ribcage (emit quasivector quasilist* @@ -40730,70 +28785,70 @@ (top) (top) (top)) - ("i28908" - "i28906" - "i28904" - "i28902" - "i28900" - "i28898" - "i28896"))) + ("i28894" + "i28892" + "i28890" + "i28888" + "i28886" + "i28884" + "i28882"))) (hygiene guile)) - #{ g29095 29627}#)) - #{tmp 29625}#) + #{ g29081 29613}#)) + #{tmp 29611}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 29624}#))))) - #{tmp 29619}#) - (let ((#{tmp 29628}# + #{tmp 29610}#))))) + #{tmp 29605}#) + (let ((#{tmp 29614}# ($sc-dispatch - #{x 29612}# + #{x 29598}# '(#(atom "list*") . #(each+ any (any) ()))))) - (if #{tmp 29628}# + (if #{tmp 29614}# (@apply - (lambda (#{x 29632}# #{y 29633}#) + (lambda (#{x 29618}# #{y 29619}#) (letrec* - ((#{f 29634}# - (lambda (#{x* 29637}#) - (if (null? #{x* 29637}#) - (#{emit 29172}# #{y 29633}#) - (let ((#{tmp 29638}# - (list (#{emit 29172}# - (car #{x* 29637}#)) - (#{f 29634}# - (cdr #{x* 29637}#))))) - (let ((#{tmp 29639}# + ((#{f 29620}# + (lambda (#{x* 29623}#) + (if (null? #{x* 29623}#) + (#{emit 29158}# #{y 29619}#) + (let ((#{tmp 29624}# + (list (#{emit 29158}# + (car #{x* 29623}#)) + (#{f 29620}# + (cdr #{x* 29623}#))))) + (let ((#{tmp 29625}# ($sc-dispatch - #{tmp 29638}# + #{tmp 29624}# '(any any)))) - (if #{tmp 29639}# + (if #{tmp 29625}# (@apply - (lambda (#{ g29115 29641}# - #{ g29114 29642}#) + (lambda (#{ g29101 29627}# + #{ g29100 29628}#) (list '#(syntax-object cons ((top) #(ribcage () () ()) #(ribcage - #(#{ g29115}# - #{ g29114}#) - #((m29116 top) - (m29116 top)) - #("i29120" "i29121")) + #(#{ g29101}# + #{ g29100}#) + #((m29102 top) + (m29102 top)) + #("i29106" "i29107")) #(ribcage () () ()) #(ribcage #(f x*) #((top) (top)) - #("i29109" "i29110")) + #("i29095" "i29096")) #(ribcage #(x y) #((top) (top)) - #("i29105" "i29106")) + #("i29091" "i29092")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i29087")) + #("i29073")) #(ribcage (emit quasivector quasilist* @@ -40808,56 +28863,56 @@ (top) (top) (top)) - ("i28908" - "i28906" - "i28904" - "i28902" - "i28900" - "i28898" - "i28896"))) + ("i28894" + "i28892" + "i28890" + "i28888" + "i28886" + "i28884" + "i28882"))) (hygiene guile)) - #{ g29115 29641}# - #{ g29114 29642}#)) - #{tmp 29639}#) + #{ g29101 29627}# + #{ g29100 29628}#)) + #{tmp 29625}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 29638}#)))))))) - (#{f 29634}# #{x 29632}#))) - #{tmp 29628}#) - (let ((#{tmp 29643}# + #{tmp 29624}#)))))))) + (#{f 29620}# #{x 29618}#))) + #{tmp 29614}#) + (let ((#{tmp 29629}# ($sc-dispatch - #{x 29612}# + #{x 29598}# '(#(atom "append") . each-any)))) - (if #{tmp 29643}# + (if #{tmp 29629}# (@apply - (lambda (#{x 29647}#) - (let ((#{tmp 29648}# - (map #{emit 29172}# #{x 29647}#))) - (let ((#{tmp 29649}# + (lambda (#{x 29633}#) + (let ((#{tmp 29634}# + (map #{emit 29158}# #{x 29633}#))) + (let ((#{tmp 29635}# ($sc-dispatch - #{tmp 29648}# + #{tmp 29634}# 'each-any))) - (if #{tmp 29649}# + (if #{tmp 29635}# (@apply - (lambda (#{ g29127 29651}#) + (lambda (#{ g29113 29637}#) (cons '#(syntax-object append ((top) #(ribcage () () ()) #(ribcage - #(#{ g29127}#) - #((m29128 top)) - #("i29132")) + #(#{ g29113}#) + #((m29114 top)) + #("i29118")) #(ribcage #(x) #((top)) - #("i29125")) + #("i29111")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i29087")) + #("i29073")) #(ribcage (emit quasivector quasilist* @@ -40872,54 +28927,54 @@ (top) (top) (top)) - ("i28908" - "i28906" - "i28904" - "i28902" - "i28900" - "i28898" - "i28896"))) + ("i28894" + "i28892" + "i28890" + "i28888" + "i28886" + "i28884" + "i28882"))) (hygiene guile)) - #{ g29127 29651}#)) - #{tmp 29649}#) + #{ g29113 29637}#)) + #{tmp 29635}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 29648}#))))) - #{tmp 29643}#) - (let ((#{tmp 29652}# + #{tmp 29634}#))))) + #{tmp 29629}#) + (let ((#{tmp 29638}# ($sc-dispatch - #{x 29612}# + #{x 29598}# '(#(atom "vector") . each-any)))) - (if #{tmp 29652}# + (if #{tmp 29638}# (@apply - (lambda (#{x 29656}#) - (let ((#{tmp 29657}# - (map #{emit 29172}# #{x 29656}#))) - (let ((#{tmp 29658}# + (lambda (#{x 29642}#) + (let ((#{tmp 29643}# + (map #{emit 29158}# #{x 29642}#))) + (let ((#{tmp 29644}# ($sc-dispatch - #{tmp 29657}# + #{tmp 29643}# 'each-any))) - (if #{tmp 29658}# + (if #{tmp 29644}# (@apply - (lambda (#{ g29139 29660}#) + (lambda (#{ g29125 29646}#) (cons '#(syntax-object vector ((top) #(ribcage () () ()) #(ribcage - #(#{ g29139}#) - #((m29140 top)) - #("i29144")) + #(#{ g29125}#) + #((m29126 top)) + #("i29130")) #(ribcage #(x) #((top)) - #("i29137")) + #("i29123")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i29087")) + #("i29073")) #(ribcage (emit quasivector quasilist* @@ -40934,47 +28989,47 @@ (top) (top) (top)) - ("i28908" - "i28906" - "i28904" - "i28902" - "i28900" - "i28898" - "i28896"))) + ("i28894" + "i28892" + "i28890" + "i28888" + "i28886" + "i28884" + "i28882"))) (hygiene guile)) - #{ g29139 29660}#)) - #{tmp 29658}#) + #{ g29125 29646}#)) + #{tmp 29644}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 29657}#))))) - #{tmp 29652}#) - (let ((#{tmp 29661}# + #{tmp 29643}#))))) + #{tmp 29638}#) + (let ((#{tmp 29647}# ($sc-dispatch - #{x 29612}# + #{x 29598}# '(#(atom "list->vector") any)))) - (if #{tmp 29661}# + (if #{tmp 29647}# (@apply - (lambda (#{x 29665}#) - (let ((#{tmp 29666}# - (#{emit 29172}# #{x 29665}#))) + (lambda (#{x 29651}#) + (let ((#{tmp 29652}# + (#{emit 29158}# #{x 29651}#))) (list '#(syntax-object list->vector ((top) #(ribcage () () ()) #(ribcage - #(#{ g29151}#) - #((m29152 top)) - #("i29155")) + #(#{ g29137}#) + #((m29138 top)) + #("i29141")) #(ribcage #(x) #((top)) - #("i29149")) + #("i29135")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i29087")) + #("i29073")) #(ribcage (emit quasivector quasilist* @@ -40989,188 +29044,188 @@ (top) (top) (top)) - ("i28908" - "i28906" - "i28904" - "i28902" - "i28900" - "i28898" - "i28896"))) + ("i28894" + "i28892" + "i28890" + "i28888" + "i28886" + "i28884" + "i28882"))) (hygiene guile)) - #{tmp 29666}#))) - #{tmp 29661}#) - (let ((#{tmp 29669}# + #{tmp 29652}#))) + #{tmp 29647}#) + (let ((#{tmp 29655}# ($sc-dispatch - #{x 29612}# + #{x 29598}# '(#(atom "value") any)))) - (if #{tmp 29669}# + (if #{tmp 29655}# (@apply - (lambda (#{x 29673}#) #{x 29673}#) - #{tmp 29669}#) + (lambda (#{x 29659}#) #{x 29659}#) + #{tmp 29655}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 29612}#)))))))))))))))))) - (lambda (#{x 29173}#) - (let ((#{tmp 29175}# - ($sc-dispatch #{x 29173}# '(_ any)))) - (if #{tmp 29175}# + #{x 29598}#)))))))))))))))))) + (lambda (#{x 29159}#) + (let ((#{tmp 29161}# + ($sc-dispatch #{x 29159}# '(_ any)))) + (if #{tmp 29161}# (@apply - (lambda (#{e 29179}#) - (#{emit 29172}# (#{quasi 29166}# #{e 29179}# 0))) - #{tmp 29175}#) + (lambda (#{e 29165}#) + (#{emit 29158}# (#{quasi 29152}# #{e 29165}# 0))) + #{tmp 29161}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 29173}#))))))) + #{x 29159}#))))))) (define include (make-syntax-transformer 'include 'macro - (lambda (#{x 29728}#) + (lambda (#{x 29714}#) (letrec* - ((#{read-file 29729}# - (lambda (#{fn 29840}# #{k 29841}#) - (let ((#{p 29842}# (open-input-file #{fn 29840}#))) + ((#{read-file 29715}# + (lambda (#{fn 29826}# #{k 29827}#) + (let ((#{p 29828}# (open-input-file #{fn 29826}#))) (letrec* - ((#{f 29843}# - (lambda (#{x 29897}# #{result 29898}#) - (if (eof-object? #{x 29897}#) + ((#{f 29829}# + (lambda (#{x 29883}# #{result 29884}#) + (if (eof-object? #{x 29883}#) (begin - (close-input-port #{p 29842}#) - (reverse #{result 29898}#)) - (#{f 29843}# - (read #{p 29842}#) - (cons (datum->syntax #{k 29841}# #{x 29897}#) - #{result 29898}#)))))) - (#{f 29843}# (read #{p 29842}#) '())))))) - (let ((#{tmp 29731}# - ($sc-dispatch #{x 29728}# '(any any)))) - (if #{tmp 29731}# + (close-input-port #{p 29828}#) + (reverse #{result 29884}#)) + (#{f 29829}# + (read #{p 29828}#) + (cons (datum->syntax #{k 29827}# #{x 29883}#) + #{result 29884}#)))))) + (#{f 29829}# (read #{p 29828}#) '())))))) + (let ((#{tmp 29717}# + ($sc-dispatch #{x 29714}# '(any any)))) + (if #{tmp 29717}# (@apply - (lambda (#{k 29735}# #{filename 29736}#) - (let ((#{fn 29737}# (syntax->datum #{filename 29736}#))) - (let ((#{tmp 29738}# - (#{read-file 29729}# - #{fn 29737}# - #{filename 29736}#))) - (let ((#{tmp 29739}# - ($sc-dispatch #{tmp 29738}# 'each-any))) - (if #{tmp 29739}# + (lambda (#{k 29721}# #{filename 29722}#) + (let ((#{fn 29723}# (syntax->datum #{filename 29722}#))) + (let ((#{tmp 29724}# + (#{read-file 29715}# + #{fn 29723}# + #{filename 29722}#))) + (let ((#{tmp 29725}# + ($sc-dispatch #{tmp 29724}# 'each-any))) + (if #{tmp 29725}# (@apply - (lambda (#{exp 29757}#) + (lambda (#{exp 29743}#) (cons '#(syntax-object begin ((top) #(ribcage () () ()) - #(ribcage #(exp) #((top)) #("i29725")) + #(ribcage #(exp) #((top)) #("i29711")) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(fn) #((top)) #("i29720")) + #(ribcage #(fn) #((top)) #("i29706")) #(ribcage #(k filename) #((top) (top)) - #("i29716" "i29717")) - #(ribcage (read-file) ((top)) ("i29700")) - #(ribcage #(x) #((top)) #("i29699"))) + #("i29702" "i29703")) + #(ribcage (read-file) ((top)) ("i29686")) + #(ribcage #(x) #((top)) #("i29685"))) (hygiene guile)) - #{exp 29757}#)) - #{tmp 29739}#) + #{exp 29743}#)) + #{tmp 29725}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 29738}#)))))) - #{tmp 29731}#) + #{tmp 29724}#)))))) + #{tmp 29717}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 29728}#))))))) + #{x 29714}#))))))) (define include-from-path (make-syntax-transformer 'include-from-path 'macro - (lambda (#{x 29917}#) - (let ((#{tmp 29919}# - ($sc-dispatch #{x 29917}# '(any any)))) - (if #{tmp 29919}# + (lambda (#{x 29903}#) + (let ((#{tmp 29905}# + ($sc-dispatch #{x 29903}# '(any any)))) + (if #{tmp 29905}# (@apply - (lambda (#{k 29923}# #{filename 29924}#) - (let ((#{fn 29925}# (syntax->datum #{filename 29924}#))) - (let ((#{tmp 29926}# + (lambda (#{k 29909}# #{filename 29910}#) + (let ((#{fn 29911}# (syntax->datum #{filename 29910}#))) + (let ((#{tmp 29912}# (datum->syntax - #{filename 29924}# - (let ((#{t 29929}# (%search-load-path #{fn 29925}#))) - (if #{t 29929}# - #{t 29929}# + #{filename 29910}# + (let ((#{t 29915}# (%search-load-path #{fn 29911}#))) + (if #{t 29915}# + #{t 29915}# (syntax-violation 'include-from-path "file not found in path" - #{x 29917}# - #{filename 29924}#)))))) + #{x 29903}# + #{filename 29910}#)))))) (list '#(syntax-object include ((top) #(ribcage () () ()) - #(ribcage #(fn) #((top)) #("i29911")) + #(ribcage #(fn) #((top)) #("i29897")) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(fn) #((top)) #("i29907")) + #(ribcage #(fn) #((top)) #("i29893")) #(ribcage #(k filename) #((top) (top)) - #("i29903" "i29904")) + #("i29889" "i29890")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29900"))) + #(ribcage #(x) #((top)) #("i29886"))) (hygiene guile)) - #{tmp 29926}#)))) - #{tmp 29919}#) + #{tmp 29912}#)))) + #{tmp 29905}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 29917}#)))))) + #{x 29903}#)))))) (define unquote (make-syntax-transformer 'unquote 'macro - (lambda (#{x 29938}#) + (lambda (#{x 29924}#) (syntax-violation 'unquote "expression not valid outside of quasiquote" - #{x 29938}#)))) + #{x 29924}#)))) (define unquote-splicing (make-syntax-transformer 'unquote-splicing 'macro - (lambda (#{x 29941}#) + (lambda (#{x 29927}#) (syntax-violation 'unquote-splicing "expression not valid outside of quasiquote" - #{x 29941}#)))) + #{x 29927}#)))) (define case (make-syntax-transformer 'case 'macro - (lambda (#{x 29997}#) - (let ((#{tmp 29999}# + (lambda (#{x 29983}#) + (let ((#{tmp 29985}# ($sc-dispatch - #{x 29997}# + #{x 29983}# '(_ any any . each-any)))) - (if #{tmp 29999}# + (if #{tmp 29985}# (@apply - (lambda (#{e 30003}# #{m1 30004}# #{m2 30005}#) - (let ((#{tmp 30006}# + (lambda (#{e 29989}# #{m1 29990}# #{m2 29991}#) + (let ((#{tmp 29992}# (letrec* - ((#{f 30052}# - (lambda (#{clause 30055}# #{clauses 30056}#) - (if (null? #{clauses 30056}#) - (let ((#{tmp 30058}# + ((#{f 30038}# + (lambda (#{clause 30041}# #{clauses 30042}#) + (if (null? #{clauses 30042}#) + (let ((#{tmp 30044}# ($sc-dispatch - #{clause 30055}# + #{clause 30041}# '(#(free-id #(syntax-object else @@ -41179,91 +29234,91 @@ #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i29956" - "i29957" - "i29958")) + #("i29942" + "i29943" + "i29944")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i29946" - "i29947" - "i29948")) + #("i29932" + "i29933" + "i29934")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i29943"))) + #("i29929"))) (hygiene guile))) any . each-any)))) - (if #{tmp 30058}# + (if #{tmp 30044}# (@apply - (lambda (#{e1 30062}# #{e2 30063}#) + (lambda (#{e1 30048}# #{e2 30049}#) (cons '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) - #("i29965" "i29966")) + #("i29951" "i29952")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i29956" - "i29957" - "i29958")) + #("i29942" + "i29943" + "i29944")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i29946" - "i29947" - "i29948")) + #("i29932" + "i29933" + "i29934")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i29943"))) + #("i29929"))) (hygiene guile)) - (cons #{e1 30062}# #{e2 30063}#))) - #{tmp 30058}#) - (let ((#{tmp 30064}# + (cons #{e1 30048}# #{e2 30049}#))) + #{tmp 30044}#) + (let ((#{tmp 30050}# ($sc-dispatch - #{clause 30055}# + #{clause 30041}# '(each-any any . each-any)))) - (if #{tmp 30064}# + (if #{tmp 30050}# (@apply - (lambda (#{k 30068}# - #{e1 30069}# - #{e2 30070}#) + (lambda (#{k 30054}# + #{e1 30055}# + #{e2 30056}#) (list '#(syntax-object if ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) - #("i29971" - "i29972" - "i29973")) + #("i29957" + "i29958" + "i29959")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i29956" - "i29957" - "i29958")) + #("i29942" + "i29943" + "i29944")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i29946" - "i29947" - "i29948")) + #("i29932" + "i29933" + "i29934")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i29943"))) + #("i29929"))) (hygiene guile)) (list '#(syntax-object memv @@ -41273,9 +29328,9 @@ #((top) (top) (top)) - #("i29971" - "i29972" - "i29973")) + #("i29957" + "i29958" + "i29959")) #(ribcage () () ()) #(ribcage #(f @@ -41284,22 +29339,22 @@ #((top) (top) (top)) - #("i29956" - "i29957" - "i29958")) + #("i29942" + "i29943" + "i29944")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i29946" - "i29947" - "i29948")) + #("i29932" + "i29933" + "i29934")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i29943"))) + #("i29929"))) (hygiene guile)) '#(syntax-object t @@ -41309,9 +29364,9 @@ #((top) (top) (top)) - #("i29971" - "i29972" - "i29973")) + #("i29957" + "i29958" + "i29959")) #(ribcage () () ()) #(ribcage #(f @@ -41320,22 +29375,22 @@ #((top) (top) (top)) - #("i29956" - "i29957" - "i29958")) + #("i29942" + "i29943" + "i29944")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i29946" - "i29947" - "i29948")) + #("i29932" + "i29933" + "i29934")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i29943"))) + #("i29929"))) (hygiene guile)) (list '#(syntax-object quote @@ -41345,9 +29400,9 @@ #((top) (top) (top)) - #("i29971" - "i29972" - "i29973")) + #("i29957" + "i29958" + "i29959")) #(ribcage () () @@ -41359,17 +29414,17 @@ #((top) (top) (top)) - #("i29956" - "i29957" - "i29958")) + #("i29942" + "i29943" + "i29944")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i29946" - "i29947" - "i29948")) + #("i29932" + "i29933" + "i29934")) #(ribcage () () @@ -41377,10 +29432,10 @@ #(ribcage #(x) #((top)) - #("i29943"))) + #("i29929"))) (hygiene guile)) - #{k 30068}#)) + #{k 30054}#)) (cons '#(syntax-object begin ((top) @@ -41389,9 +29444,9 @@ #((top) (top) (top)) - #("i29971" - "i29972" - "i29973")) + #("i29957" + "i29958" + "i29959")) #(ribcage () () ()) #(ribcage #(f @@ -41400,76 +29455,76 @@ #((top) (top) (top)) - #("i29956" - "i29957" - "i29958")) + #("i29942" + "i29943" + "i29944")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i29946" - "i29947" - "i29948")) + #("i29932" + "i29933" + "i29934")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i29943"))) + #("i29929"))) (hygiene guile)) - (cons #{e1 30069}# - #{e2 30070}#)))) - #{tmp 30064}#) + (cons #{e1 30055}# + #{e2 30056}#)))) + #{tmp 30050}#) (syntax-violation 'case "bad clause" - #{x 29997}# - #{clause 30055}#))))) - (let ((#{tmp 30078}# - (#{f 30052}# - (car #{clauses 30056}#) - (cdr #{clauses 30056}#)))) - (let ((#{tmp 30081}# + #{x 29983}# + #{clause 30041}#))))) + (let ((#{tmp 30064}# + (#{f 30038}# + (car #{clauses 30042}#) + (cdr #{clauses 30042}#)))) + (let ((#{tmp 30067}# ($sc-dispatch - #{clause 30055}# + #{clause 30041}# '(each-any any . each-any)))) - (if #{tmp 30081}# + (if #{tmp 30067}# (@apply - (lambda (#{k 30085}# - #{e1 30086}# - #{e2 30087}#) + (lambda (#{k 30071}# + #{e1 30072}# + #{e2 30073}#) (list '#(syntax-object if ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) - #("i29987" - "i29988" - "i29989")) + #("i29973" + "i29974" + "i29975")) #(ribcage () () ()) #(ribcage #(rest) #((top)) - #("i29983")) + #("i29969")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i29956" - "i29957" - "i29958")) + #("i29942" + "i29943" + "i29944")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i29946" - "i29947" - "i29948")) + #("i29932" + "i29933" + "i29934")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i29943"))) + #("i29929"))) (hygiene guile)) (list '#(syntax-object memv @@ -41477,32 +29532,32 @@ #(ribcage #(k e1 e2) #((top) (top) (top)) - #("i29987" - "i29988" - "i29989")) + #("i29973" + "i29974" + "i29975")) #(ribcage () () ()) #(ribcage #(rest) #((top)) - #("i29983")) + #("i29969")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i29956" - "i29957" - "i29958")) + #("i29942" + "i29943" + "i29944")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i29946" - "i29947" - "i29948")) + #("i29932" + "i29933" + "i29934")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i29943"))) + #("i29929"))) (hygiene guile)) '#(syntax-object t @@ -41510,32 +29565,32 @@ #(ribcage #(k e1 e2) #((top) (top) (top)) - #("i29987" - "i29988" - "i29989")) + #("i29973" + "i29974" + "i29975")) #(ribcage () () ()) #(ribcage #(rest) #((top)) - #("i29983")) + #("i29969")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i29956" - "i29957" - "i29958")) + #("i29942" + "i29943" + "i29944")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i29946" - "i29947" - "i29948")) + #("i29932" + "i29933" + "i29934")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i29943"))) + #("i29929"))) (hygiene guile)) (list '#(syntax-object quote @@ -41545,9 +29600,9 @@ #((top) (top) (top)) - #("i29987" - "i29988" - "i29989")) + #("i29973" + "i29974" + "i29975")) #(ribcage () () @@ -41555,7 +29610,7 @@ #(ribcage #(rest) #((top)) - #("i29983")) + #("i29969")) #(ribcage () () @@ -41567,17 +29622,17 @@ #((top) (top) (top)) - #("i29956" - "i29957" - "i29958")) + #("i29942" + "i29943" + "i29944")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i29946" - "i29947" - "i29948")) + #("i29932" + "i29933" + "i29934")) #(ribcage () () @@ -41585,232 +29640,232 @@ #(ribcage #(x) #((top)) - #("i29943"))) + #("i29929"))) (hygiene guile)) - #{k 30085}#)) + #{k 30071}#)) (cons '#(syntax-object begin ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) - #("i29987" - "i29988" - "i29989")) + #("i29973" + "i29974" + "i29975")) #(ribcage () () ()) #(ribcage #(rest) #((top)) - #("i29983")) + #("i29969")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i29956" - "i29957" - "i29958")) + #("i29942" + "i29943" + "i29944")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i29946" - "i29947" - "i29948")) + #("i29932" + "i29933" + "i29934")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i29943"))) + #("i29929"))) (hygiene guile)) - (cons #{e1 30086}# - #{e2 30087}#)) - #{tmp 30078}#)) - #{tmp 30081}#) + (cons #{e1 30072}# + #{e2 30073}#)) + #{tmp 30064}#)) + #{tmp 30067}#) (syntax-violation 'case "bad clause" - #{x 29997}# - #{clause 30055}#)))))))) - (#{f 30052}# #{m1 30004}# #{m2 30005}#)))) - (let ((#{body 30007}# #{tmp 30006}#)) + #{x 29983}# + #{clause 30041}#)))))))) + (#{f 30038}# #{m1 29990}# #{m2 29991}#)))) + (let ((#{body 29993}# #{tmp 29992}#)) (list '#(syntax-object let ((top) #(ribcage () () ()) - #(ribcage #(body) #((top)) #("i29954")) + #(ribcage #(body) #((top)) #("i29940")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i29946" "i29947" "i29948")) + #("i29932" "i29933" "i29934")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29943"))) + #(ribcage #(x) #((top)) #("i29929"))) (hygiene guile)) (list (list '#(syntax-object t ((top) #(ribcage () () ()) - #(ribcage #(body) #((top)) #("i29954")) + #(ribcage #(body) #((top)) #("i29940")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i29946" "i29947" "i29948")) + #("i29932" "i29933" "i29934")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i29943"))) + #(ribcage #(x) #((top)) #("i29929"))) (hygiene guile)) - #{e 30003}#)) - #{body 30007}#)))) - #{tmp 29999}#) + #{e 29989}#)) + #{body 29993}#)))) + #{tmp 29985}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 29997}#)))))) + #{x 29983}#)))))) (define make-variable-transformer - (lambda (#{proc 30105}#) - (if (procedure? #{proc 30105}#) + (lambda (#{proc 30091}#) + (if (procedure? #{proc 30091}#) (letrec* - ((#{trans 30106}# - (lambda (#{x 30112}#) - (#{proc 30105}# #{x 30112}#)))) + ((#{trans 30092}# + (lambda (#{x 30098}#) + (#{proc 30091}# #{x 30098}#)))) (begin (set-procedure-property! - #{trans 30106}# + #{trans 30092}# 'variable-transformer #t) - #{trans 30106}#)) + #{trans 30092}#)) (error "variable transformer not a procedure" - #{proc 30105}#)))) + #{proc 30091}#)))) (define identifier-syntax (make-syntax-transformer 'identifier-syntax 'macro - (lambda (#{x 30144}#) - (let ((#{tmp 30146}# - ($sc-dispatch #{x 30144}# '(_ any)))) - (if #{tmp 30146}# + (lambda (#{x 30130}#) + (let ((#{tmp 30132}# + ($sc-dispatch #{x 30130}# '(_ any)))) + (if #{tmp 30132}# (@apply - (lambda (#{e 30150}#) + (lambda (#{e 30136}#) (list '#(syntax-object lambda ((top) - #(ribcage #(e) #((top)) #("i30119")) + #(ribcage #(e) #((top)) #("i30105")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i30116"))) + #(ribcage #(x) #((top)) #("i30102"))) (hygiene guile)) '(#(syntax-object x ((top) - #(ribcage #(e) #((top)) #("i30119")) + #(ribcage #(e) #((top)) #("i30105")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i30116"))) + #(ribcage #(x) #((top)) #("i30102"))) (hygiene guile))) '#((#(syntax-object macro-type ((top) - #(ribcage #(e) #((top)) #("i30119")) + #(ribcage #(e) #((top)) #("i30105")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i30116"))) + #(ribcage #(x) #((top)) #("i30102"))) (hygiene guile)) . #(syntax-object identifier-syntax ((top) - #(ribcage #(e) #((top)) #("i30119")) + #(ribcage #(e) #((top)) #("i30105")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i30116"))) + #(ribcage #(x) #((top)) #("i30102"))) (hygiene guile)))) (list '#(syntax-object syntax-case ((top) - #(ribcage #(e) #((top)) #("i30119")) + #(ribcage #(e) #((top)) #("i30105")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i30116"))) + #(ribcage #(x) #((top)) #("i30102"))) (hygiene guile)) '#(syntax-object x ((top) - #(ribcage #(e) #((top)) #("i30119")) + #(ribcage #(e) #((top)) #("i30105")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i30116"))) + #(ribcage #(x) #((top)) #("i30102"))) (hygiene guile)) '() (list '#(syntax-object id ((top) - #(ribcage #(e) #((top)) #("i30119")) + #(ribcage #(e) #((top)) #("i30105")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i30116"))) + #(ribcage #(x) #((top)) #("i30102"))) (hygiene guile)) '(#(syntax-object identifier? ((top) - #(ribcage #(e) #((top)) #("i30119")) + #(ribcage #(e) #((top)) #("i30105")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i30116"))) + #(ribcage #(x) #((top)) #("i30102"))) (hygiene guile)) (#(syntax-object syntax ((top) - #(ribcage #(e) #((top)) #("i30119")) + #(ribcage #(e) #((top)) #("i30105")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i30116"))) + #(ribcage #(x) #((top)) #("i30102"))) (hygiene guile)) #(syntax-object id ((top) - #(ribcage #(e) #((top)) #("i30119")) + #(ribcage #(e) #((top)) #("i30105")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i30116"))) + #(ribcage #(x) #((top)) #("i30102"))) (hygiene guile)))) (list '#(syntax-object syntax ((top) - #(ribcage #(e) #((top)) #("i30119")) + #(ribcage #(e) #((top)) #("i30105")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i30116"))) + #(ribcage #(x) #((top)) #("i30102"))) (hygiene guile)) - #{e 30150}#)) + #{e 30136}#)) (list '(#(syntax-object _ ((top) - #(ribcage #(e) #((top)) #("i30119")) + #(ribcage #(e) #((top)) #("i30105")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i30116"))) + #(ribcage #(x) #((top)) #("i30102"))) (hygiene guile)) #(syntax-object x ((top) - #(ribcage #(e) #((top)) #("i30119")) + #(ribcage #(e) #((top)) #("i30105")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i30116"))) + #(ribcage #(x) #((top)) #("i30102"))) (hygiene guile)) #(syntax-object ... ((top) - #(ribcage #(e) #((top)) #("i30119")) + #(ribcage #(e) #((top)) #("i30105")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i30116"))) + #(ribcage #(x) #((top)) #("i30102"))) (hygiene guile))) (list '#(syntax-object syntax ((top) - #(ribcage #(e) #((top)) #("i30119")) + #(ribcage #(e) #((top)) #("i30105")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i30116"))) + #(ribcage #(x) #((top)) #("i30102"))) (hygiene guile)) - (cons #{e 30150}# + (cons #{e 30136}# '(#(syntax-object x ((top) #(ribcage #(e) #((top)) - #("i30119")) + #("i30105")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i30116"))) + #("i30102"))) (hygiene guile)) #(syntax-object ... @@ -41818,55 +29873,55 @@ #(ribcage #(e) #((top)) - #("i30119")) + #("i30105")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i30116"))) + #("i30102"))) (hygiene guile))))))))) - #{tmp 30146}#) - (let ((#{tmp 30151}# + #{tmp 30132}#) + (let ((#{tmp 30137}# ($sc-dispatch - #{x 30144}# + #{x 30130}# '(_ (any any) ((#(free-id #(syntax-object set! ((top) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i30116"))) + #(ribcage #(x) #((top)) #("i30102"))) (hygiene guile))) any any) any))))) - (if (if #{tmp 30151}# + (if (if #{tmp 30137}# (@apply - (lambda (#{id 30155}# - #{exp1 30156}# - #{var 30157}# - #{val 30158}# - #{exp2 30159}#) - (if (identifier? #{id 30155}#) - (identifier? #{var 30157}#) + (lambda (#{id 30141}# + #{exp1 30142}# + #{var 30143}# + #{val 30144}# + #{exp2 30145}#) + (if (identifier? #{id 30141}#) + (identifier? #{var 30143}#) #f)) - #{tmp 30151}#) + #{tmp 30137}#) #f) (@apply - (lambda (#{id 30160}# - #{exp1 30161}# - #{var 30162}# - #{val 30163}# - #{exp2 30164}#) + (lambda (#{id 30146}# + #{exp1 30147}# + #{var 30148}# + #{val 30149}# + #{exp2 30150}#) (list '#(syntax-object make-variable-transformer ((top) #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i30134" "i30135" "i30136" "i30137" "i30138")) + #("i30120" "i30121" "i30122" "i30123" "i30124")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i30116"))) + #(ribcage #(x) #((top)) #("i30102"))) (hygiene guile)) (list '#(syntax-object lambda @@ -41874,13 +29929,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i30134" - "i30135" - "i30136" - "i30137" - "i30138")) + #("i30120" + "i30121" + "i30122" + "i30123" + "i30124")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i30116"))) + #(ribcage #(x) #((top)) #("i30102"))) (hygiene guile)) '(#(syntax-object x @@ -41888,13 +29943,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i30134" - "i30135" - "i30136" - "i30137" - "i30138")) + #("i30120" + "i30121" + "i30122" + "i30123" + "i30124")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i30116"))) + #(ribcage #(x) #((top)) #("i30102"))) (hygiene guile))) '#((#(syntax-object macro-type @@ -41902,13 +29957,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i30134" - "i30135" - "i30136" - "i30137" - "i30138")) + #("i30120" + "i30121" + "i30122" + "i30123" + "i30124")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i30116"))) + #(ribcage #(x) #((top)) #("i30102"))) (hygiene guile)) . #(syntax-object @@ -41917,13 +29972,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i30134" - "i30135" - "i30136" - "i30137" - "i30138")) + #("i30120" + "i30121" + "i30122" + "i30123" + "i30124")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i30116"))) + #(ribcage #(x) #((top)) #("i30102"))) (hygiene guile)))) (list '#(syntax-object syntax-case @@ -41931,13 +29986,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i30134" - "i30135" - "i30136" - "i30137" - "i30138")) + #("i30120" + "i30121" + "i30122" + "i30123" + "i30124")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i30116"))) + #(ribcage #(x) #((top)) #("i30102"))) (hygiene guile)) '#(syntax-object x @@ -41945,13 +30000,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i30134" - "i30135" - "i30136" - "i30137" - "i30138")) + #("i30120" + "i30121" + "i30122" + "i30123" + "i30124")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i30116"))) + #(ribcage #(x) #((top)) #("i30102"))) (hygiene guile)) '(#(syntax-object set! @@ -41959,13 +30014,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i30134" - "i30135" - "i30136" - "i30137" - "i30138")) + #("i30120" + "i30121" + "i30122" + "i30123" + "i30124")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i30116"))) + #(ribcage #(x) #((top)) #("i30102"))) (hygiene guile))) (list (list '#(syntax-object set! @@ -41977,19 +30032,19 @@ (top) (top) (top)) - #("i30134" - "i30135" - "i30136" - "i30137" - "i30138")) + #("i30120" + "i30121" + "i30122" + "i30123" + "i30124")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i30116"))) + #("i30102"))) (hygiene guile)) - #{var 30162}# - #{val 30163}#) + #{var 30148}# + #{val 30149}#) (list '#(syntax-object syntax ((top) @@ -42000,19 +30055,19 @@ (top) (top) (top)) - #("i30134" - "i30135" - "i30136" - "i30137" - "i30138")) + #("i30120" + "i30121" + "i30122" + "i30123" + "i30124")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i30116"))) + #("i30102"))) (hygiene guile)) - #{exp2 30164}#)) - (list (cons #{id 30160}# + #{exp2 30150}#)) + (list (cons #{id 30146}# '(#(syntax-object x ((top) @@ -42023,16 +30078,16 @@ (top) (top) (top)) - #("i30134" - "i30135" - "i30136" - "i30137" - "i30138")) + #("i30120" + "i30121" + "i30122" + "i30123" + "i30124")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i30116"))) + #("i30102"))) (hygiene guile)) #(syntax-object ... @@ -42044,16 +30099,16 @@ (top) (top) (top)) - #("i30134" - "i30135" - "i30136" - "i30137" - "i30138")) + #("i30120" + "i30121" + "i30122" + "i30123" + "i30124")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i30116"))) + #("i30102"))) (hygiene guile)))) (list '#(syntax-object syntax @@ -42065,18 +30120,18 @@ (top) (top) (top)) - #("i30134" - "i30135" - "i30136" - "i30137" - "i30138")) + #("i30120" + "i30121" + "i30122" + "i30123" + "i30124")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i30116"))) + #("i30102"))) (hygiene guile)) - (cons #{exp1 30161}# + (cons #{exp1 30147}# '(#(syntax-object x ((top) @@ -42091,16 +30146,16 @@ (top) (top) (top)) - #("i30134" - "i30135" - "i30136" - "i30137" - "i30138")) + #("i30120" + "i30121" + "i30122" + "i30123" + "i30124")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i30116"))) + #("i30102"))) (hygiene guile)) #(syntax-object ... @@ -42116,18 +30171,18 @@ (top) (top) (top)) - #("i30134" - "i30135" - "i30136" - "i30137" - "i30138")) + #("i30120" + "i30121" + "i30122" + "i30123" + "i30124")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i30116"))) + #("i30102"))) (hygiene guile)))))) - (list #{id 30160}# + (list #{id 30146}# (list '#(syntax-object identifier? ((top) @@ -42138,16 +30193,16 @@ (top) (top) (top)) - #("i30134" - "i30135" - "i30136" - "i30137" - "i30138")) + #("i30120" + "i30121" + "i30122" + "i30123" + "i30124")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i30116"))) + #("i30102"))) (hygiene guile)) (list '#(syntax-object syntax @@ -42163,18 +30218,18 @@ (top) (top) (top)) - #("i30134" - "i30135" - "i30136" - "i30137" - "i30138")) + #("i30120" + "i30121" + "i30122" + "i30123" + "i30124")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i30116"))) + #("i30102"))) (hygiene guile)) - #{id 30160}#)) + #{id 30146}#)) (list '#(syntax-object syntax ((top) @@ -42185,68 +30240,68 @@ (top) (top) (top)) - #("i30134" - "i30135" - "i30136" - "i30137" - "i30138")) + #("i30120" + "i30121" + "i30122" + "i30123" + "i30124")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i30116"))) + #("i30102"))) (hygiene guile)) - #{exp1 30161}#)))))) - #{tmp 30151}#) + #{exp1 30147}#)))))) + #{tmp 30137}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 30144}#)))))))) + #{x 30130}#)))))))) (define define* (make-syntax-transformer 'define* 'macro - (lambda (#{x 30196}#) - (let ((#{tmp 30198}# + (lambda (#{x 30182}#) + (let ((#{tmp 30184}# ($sc-dispatch - #{x 30196}# + #{x 30182}# '(_ (any . any) any . each-any)))) - (if #{tmp 30198}# + (if #{tmp 30184}# (@apply - (lambda (#{id 30202}# - #{args 30203}# - #{b0 30204}# - #{b1 30205}#) + (lambda (#{id 30188}# + #{args 30189}# + #{b0 30190}# + #{b1 30191}#) (list '#(syntax-object define ((top) #(ribcage #(id args b0 b1) #((top) (top) (top) (top)) - #("i30178" "i30179" "i30180" "i30181")) + #("i30164" "i30165" "i30166" "i30167")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i30175"))) + #(ribcage #(x) #((top)) #("i30161"))) (hygiene guile)) - #{id 30202}# + #{id 30188}# (cons '#(syntax-object lambda* ((top) #(ribcage #(id args b0 b1) #((top) (top) (top) (top)) - #("i30178" "i30179" "i30180" "i30181")) + #("i30164" "i30165" "i30166" "i30167")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i30175"))) + #(ribcage #(x) #((top)) #("i30161"))) (hygiene guile)) - (cons #{args 30203}# - (cons #{b0 30204}# #{b1 30205}#))))) - #{tmp 30198}#) - (let ((#{tmp 30206}# - ($sc-dispatch #{x 30196}# '(_ any any)))) - (if (if #{tmp 30206}# + (cons #{args 30189}# + (cons #{b0 30190}# #{b1 30191}#))))) + #{tmp 30184}#) + (let ((#{tmp 30192}# + ($sc-dispatch #{x 30182}# '(_ any any)))) + (if (if #{tmp 30192}# (@apply - (lambda (#{id 30210}# #{val 30211}#) + (lambda (#{id 30196}# #{val 30197}#) (identifier? '#(syntax-object x @@ -42254,29 +30309,29 @@ #(ribcage #(id val) #((top) (top)) - #("i30188" "i30189")) + #("i30174" "i30175")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i30175"))) + #(ribcage #(x) #((top)) #("i30161"))) (hygiene guile)))) - #{tmp 30206}#) + #{tmp 30192}#) #f) (@apply - (lambda (#{id 30212}# #{val 30213}#) + (lambda (#{id 30198}# #{val 30199}#) (list '#(syntax-object define ((top) #(ribcage #(id val) #((top) (top)) - #("i30192" "i30193")) + #("i30178" "i30179")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i30175"))) + #(ribcage #(x) #((top)) #("i30161"))) (hygiene guile)) - #{id 30212}# - #{val 30213}#)) - #{tmp 30206}#) + #{id 30198}# + #{val 30199}#)) + #{tmp 30192}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 30196}#)))))))) + #{x 30182}#)))))))) diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm index 40b228c07..67491bbaa 100644 --- a/module/ice-9/psyntax.scm +++ b/module/ice-9/psyntax.scm @@ -857,17 +857,17 @@ ;; expanding - (define chi-sequence + (define expand-sequence (lambda (body r w s mod) (build-sequence s (let dobody ((body body) (r r) (w w) (mod mod)) (if (null? body) '() - (let ((first (chi (car body) r w mod))) + (let ((first (expand (car body) r w mod))) (cons first (dobody (cdr body) r w mod)))))))) ;; At top-level, we allow mixed definitions and expressions. Like - ;; chi-body we expand in two passes. + ;; expand-body we expand in two passes. ;; ;; First, from left to right, we expand just enough to know what ;; expressions are definitions, syntax definitions, and splicing @@ -880,7 +880,7 @@ ;; expansions of all normal definitions and expressions in the ;; sequence. ;; - (define chi-top-sequence + (define expand-top-sequence (lambda (body r w s m esew mod) (define (scan body r w s m esew mod exps) (cond @@ -902,13 +902,13 @@ ((_ e1 e2 ...) (scan #'(e1 e2 ...) r w s m esew mod exps)))) ((local-syntax-form) - (chi-local-syntax value e r w s mod - (lambda (body r w s mod) - (scan body r w s m esew mod exps)))) + (expand-local-syntax value e r w s mod + (lambda (body r w s mod) + (scan body r w s m esew mod exps)))) ((eval-when-form) (syntax-case e () ((_ (x ...) e1 e2 ...) - (let ((when-list (chi-when-list e #'(x ...) w)) + (let ((when-list (expand-when-list e #'(x ...) w)) (body #'(e1 e2 ...))) (cond ((eq? m 'e) @@ -920,7 +920,7 @@ (begin (if (memq 'expand when-list) (top-level-eval-hook - (chi-top-sequence body r w s 'e '(eval) mod) + (expand-top-sequence body r w s 'e '(eval) mod) mod)) (values exps)))) ((memq 'load when-list) @@ -935,7 +935,7 @@ (memq 'expand when-list) (and (eq? m 'c&e) (memq 'eval when-list))) (top-level-eval-hook - (chi-top-sequence body r w s 'e '(eval) mod) + (expand-top-sequence body r w s 'e '(eval) mod) mod) (values exps)) (else @@ -945,23 +945,23 @@ (case m ((c) (if (memq 'compile esew) - (let ((e (chi-install-global n (chi e r w mod)))) + (let ((e (expand-install-global n (expand e r w mod)))) (top-level-eval-hook e mod) (if (memq 'load esew) (values (cons e exps)) (values exps))) (if (memq 'load esew) - (values (cons (chi-install-global n (chi e r w mod)) + (values (cons (expand-install-global n (expand e r w mod)) exps)) (values exps)))) ((c&e) - (let ((e (chi-install-global n (chi e r w mod)))) + (let ((e (expand-install-global n (expand e r w mod)))) (top-level-eval-hook e mod) (values (cons e exps)))) (else (if (memq 'eval esew) (top-level-eval-hook - (chi-install-global n (chi e r w mod)) + (expand-install-global n (expand e r w mod)) mod)) (values exps))))) ((define-form) @@ -983,11 +983,11 @@ (values (cons (if (eq? m 'c&e) - (let ((x (build-global-definition s n (chi e r w mod)))) + (let ((x (build-global-definition s n (expand e r w mod)))) (top-level-eval-hook x mod) x) (lambda () - (build-global-definition s n (chi e r w mod)))) + (build-global-definition s n (expand e r w mod)))) exps))) ((displaced-lexical) (syntax-violation #f "identifier out of context" @@ -998,11 +998,11 @@ (else (values (cons (if (eq? m 'c&e) - (let ((x (chi-expr type value e r w s mod))) + (let ((x (expand-expr type value e r w s mod))) (top-level-eval-hook x mod) x) (lambda () - (chi-expr type value e r w s mod))) + (expand-expr type value e r w s mod))) exps))))))) (lambda (exps) (scan (cdr body) r w s m esew mod exps)))))) @@ -1020,7 +1020,7 @@ (lp (cdr in) (cons (if (procedure? e) (e) e) out))))))))))) - (define chi-install-global + (define expand-install-global (lambda (name e) (build-global-definition no-source @@ -1032,7 +1032,7 @@ (build-data no-source 'macro) e))))) - (define chi-when-list + (define expand-when-list (lambda (e when-list w) ;; when-list is syntax'd version of list of situations (let f ((when-list when-list) (situations '())) @@ -1044,7 +1044,7 @@ ((free-id=? x #'compile) 'compile) ((free-id=? x #'load) 'load) ((free-id=? x #'eval) 'eval) - ((free-id=? x #'expand) 'expand) + ((eq? (syntax->datum x) 'expand) 'expand) (else (syntax-violation 'eval-when "invalid situation" e (wrap x w #f))))) @@ -1099,7 +1099,7 @@ ((macro) (if for-car? (values type (binding-value b) e w s mod) - (syntax-type (chi-macro (binding-value b) e r w s rib mod) + (syntax-type (expand-macro (binding-value b) e r w s rib mod) r empty-wrap s rib mod #f))) (else (values type (binding-value b) e w s mod))))) ((pair? e) @@ -1117,7 +1117,7 @@ (values 'global-call (make-syntax-object fval w fmod) e w s mod)) ((macro) - (syntax-type (chi-macro fval e r w s rib mod) + (syntax-type (expand-macro fval e r w s rib mod) r empty-wrap s rib mod for-car?)) ((module-ref) (call-with-values (lambda () (fval e r w)) @@ -1167,14 +1167,14 @@ ((self-evaluating? e) (values 'constant #f e w s mod)) (else (values 'other #f e w s mod))))) - (define chi + (define expand (lambda (e r w mod) (call-with-values (lambda () (syntax-type e r w (source-annotation e) #f mod #f)) (lambda (type value e w s mod) - (chi-expr type value e r w s mod))))) + (expand-expr type value e r w s mod))))) - (define chi-expr + (define expand-expr (lambda (type value e r w s mod) (case type ((lexical) @@ -1185,9 +1185,9 @@ ((module-ref) (call-with-values (lambda () (value e r w)) (lambda (e r w s mod) - (chi e r w mod)))) + (expand e r w mod)))) ((lexical-call) - (chi-application + (expand-application (let ((id (car e))) (build-lexical-reference 'fun (source-annotation id) (if (syntax-object? id) @@ -1196,7 +1196,7 @@ value)) e r w s mod)) ((global-call) - (chi-application + (expand-application (build-global-reference (source-annotation (car e)) (if (syntax-object? value) (syntax-object-expression value) @@ -1207,19 +1207,19 @@ e r w s mod)) ((constant) (build-data s (strip (source-wrap e w s mod) empty-wrap))) ((global) (build-global-reference s value mod)) - ((call) (chi-application (chi (car e) r w mod) e r w s mod)) + ((call) (expand-application (expand (car e) r w mod) e r w s mod)) ((begin-form) (syntax-case e () - ((_ e1 e2 ...) (chi-sequence #'(e1 e2 ...) r w s mod)))) + ((_ e1 e2 ...) (expand-sequence #'(e1 e2 ...) r w s mod)))) ((local-syntax-form) - (chi-local-syntax value e r w s mod chi-sequence)) + (expand-local-syntax value e r w s mod expand-sequence)) ((eval-when-form) (syntax-case e () ((_ (x ...) e1 e2 ...) - (let ((when-list (chi-when-list e #'(x ...) w))) + (let ((when-list (expand-when-list e #'(x ...) w))) (if (memq 'eval when-list) - (chi-sequence #'(e1 e2 ...) r w s mod) - (chi-void)))))) + (expand-sequence #'(e1 e2 ...) r w s mod) + (expand-void)))))) ((define-form define-syntax-form) (syntax-violation #f "definition in expression context" e (wrap value w mod))) @@ -1232,12 +1232,12 @@ (else (syntax-violation #f "unexpected syntax" (source-wrap e w s mod)))))) - (define chi-application + (define expand-application (lambda (x e r w s mod) (syntax-case e () ((e0 e1 ...) (build-application s x - (map (lambda (e) (chi e r w mod)) #'(e1 ...))))))) + (map (lambda (e) (expand e r w mod)) #'(e1 ...))))))) ;; (What follows is my interpretation of what's going on here -- Andy) ;; @@ -1272,7 +1272,7 @@ ;; really nice if we could also annotate introduced expressions with the ;; locations corresponding to the macro definition, but that is not yet ;; possible. - (define chi-macro + (define expand-macro (lambda (p e r w s rib mod) (define rebuild-macro-output (lambda (x m) @@ -1313,7 +1313,7 @@ (rebuild-macro-output (p (source-wrap e (anti-mark w) s mod)) (new-mark)))) - (define chi-body + (define expand-body ;; In processing the forms of the body, we create a new, empty wrap. ;; This wrap is augmented (destructively) each time we discover that ;; the next form is a definition. This is done: @@ -1393,19 +1393,19 @@ (f (cdr forms))))) ids labels var-ids vars vals bindings)))) ((local-syntax-form) - (chi-local-syntax value e er w s mod - (lambda (forms er w s mod) - (parse (let f ((forms forms)) - (if (null? forms) - (cdr body) - (cons (cons er (wrap (car forms) w mod)) - (f (cdr forms))))) - ids labels var-ids vars vals bindings)))) + (expand-local-syntax value e er w s mod + (lambda (forms er w s mod) + (parse (let f ((forms forms)) + (if (null? forms) + (cdr body) + (cons (cons er (wrap (car forms) w mod)) + (f (cdr forms))))) + ids labels var-ids vars vals bindings)))) (else ; found a non-definition (if (null? ids) (build-sequence no-source (map (lambda (x) - (chi (cdr x) (car x) empty-wrap mod)) + (expand (cdr x) (car x) empty-wrap mod)) (cons (cons er (source-wrap e w s mod)) (cdr body)))) (begin @@ -1424,7 +1424,7 @@ (macros-only-env er)))) (set-cdr! b (eval-local-transformer - (chi (cddr b) r-cache empty-wrap mod) + (expand (cddr b) r-cache empty-wrap mod) mod)) (loop (cdr bs) er r-cache)) (loop (cdr bs) er-cache r-cache))))) @@ -1433,15 +1433,15 @@ (reverse (map syntax->datum var-ids)) (reverse vars) (map (lambda (x) - (chi (cdr x) (car x) empty-wrap mod)) + (expand (cdr x) (car x) empty-wrap mod)) (reverse vals)) (build-sequence no-source (map (lambda (x) - (chi (cdr x) (car x) empty-wrap mod)) + (expand (cdr x) (car x) empty-wrap mod)) (cons (cons er (source-wrap e w s mod)) (cdr body))))))))))))))))) - (define chi-local-syntax + (define expand-local-syntax (lambda (rec? e r w s mod k) (syntax-case e () ((_ ((id val) ...) e1 e2 ...) @@ -1458,7 +1458,7 @@ (map (lambda (x) (make-binding 'macro (eval-local-transformer - (chi x trans-r w mod) + (expand x trans-r w mod) mod))) #'(val ...))) r) @@ -1475,7 +1475,7 @@ p (syntax-violation #f "nonprocedure transformer" p))))) - (define chi-void + (define expand-void (lambda () (build-void no-source))) @@ -1505,7 +1505,7 @@ orig-args)))) (req orig-args '()))) - (define chi-simple-lambda + (define expand-simple-lambda (lambda (e r w s mod req rest meta body) (let* ((ids (if rest (append req (list rest)) req)) (vars (map gen-var ids)) @@ -1514,10 +1514,10 @@ s (map syntax->datum req) (and rest (syntax->datum rest)) vars meta - (chi-body body (source-wrap e w s mod) - (extend-var-env labels vars r) - (make-binding-wrap ids labels w) - mod))))) + (expand-body body (source-wrap e w s mod) + (extend-var-env labels vars r) + (make-binding-wrap ids labels w) + mod))))) (define lambda*-formals (lambda (orig-args) @@ -1600,16 +1600,16 @@ orig-args)))) (req orig-args '()))) - (define chi-lambda-case + (define expand-lambda-case (lambda (e r w s mod get-formals clauses) - (define (expand-req req opt rest kw body) + (define (parse-req req opt rest kw body) (let ((vars (map gen-var req)) (labels (gen-labels req))) (let ((r* (extend-var-env labels vars r)) (w* (make-binding-wrap req labels w))) - (expand-opt (map syntax->datum req) - opt rest kw body (reverse vars) r* w* '() '())))) - (define (expand-opt req opt rest kw body vars r* w* out inits) + (parse-opt (map syntax->datum req) + opt rest kw body (reverse vars) r* w* '() '())))) + (define (parse-opt req opt rest kw body vars r* w* out inits) (cond ((pair? opt) (syntax-case (car opt) () @@ -1618,27 +1618,27 @@ (l (gen-labels (list v))) (r** (extend-var-env l (list v) r*)) (w** (make-binding-wrap (list #'id) l w*))) - (expand-opt req (cdr opt) rest kw body (cons v vars) - r** w** (cons (syntax->datum #'id) out) - (cons (chi #'i r* w* mod) inits)))))) + (parse-opt req (cdr opt) rest kw body (cons v vars) + r** w** (cons (syntax->datum #'id) out) + (cons (expand #'i r* w* mod) inits)))))) (rest (let* ((v (gen-var rest)) (l (gen-labels (list v))) (r* (extend-var-env l (list v) r*)) (w* (make-binding-wrap (list rest) l w*))) - (expand-kw req (if (pair? out) (reverse out) #f) - (syntax->datum rest) - (if (pair? kw) (cdr kw) kw) - body (cons v vars) r* w* - (if (pair? kw) (car kw) #f) - '() inits))) + (parse-kw req (if (pair? out) (reverse out) #f) + (syntax->datum rest) + (if (pair? kw) (cdr kw) kw) + body (cons v vars) r* w* + (if (pair? kw) (car kw) #f) + '() inits))) (else - (expand-kw req (if (pair? out) (reverse out) #f) #f - (if (pair? kw) (cdr kw) kw) - body vars r* w* - (if (pair? kw) (car kw) #f) - '() inits)))) - (define (expand-kw req opt rest kw body vars r* w* aok out inits) + (parse-kw req (if (pair? out) (reverse out) #f) #f + (if (pair? kw) (cdr kw) kw) + body vars r* w* + (if (pair? kw) (car kw) #f) + '() inits)))) + (define (parse-kw req opt rest kw body vars r* w* aok out inits) (cond ((pair? kw) (syntax-case (car kw) () @@ -1647,31 +1647,31 @@ (l (gen-labels (list v))) (r** (extend-var-env l (list v) r*)) (w** (make-binding-wrap (list #'id) l w*))) - (expand-kw req opt rest (cdr kw) body (cons v vars) - r** w** aok - (cons (list (syntax->datum #'k) - (syntax->datum #'id) - v) - out) - (cons (chi #'i r* w* mod) inits)))))) + (parse-kw req opt rest (cdr kw) body (cons v vars) + r** w** aok + (cons (list (syntax->datum #'k) + (syntax->datum #'id) + v) + out) + (cons (expand #'i r* w* mod) inits)))))) (else - (expand-body req opt rest - (if (or aok (pair? out)) (cons aok (reverse out)) #f) - body (reverse vars) r* w* (reverse inits) '())))) - (define (expand-body req opt rest kw body vars r* w* inits meta) + (parse-body req opt rest + (if (or aok (pair? out)) (cons aok (reverse out)) #f) + body (reverse vars) r* w* (reverse inits) '())))) + (define (parse-body req opt rest kw body vars r* w* inits meta) (syntax-case body () ((docstring e1 e2 ...) (string? (syntax->datum #'docstring)) - (expand-body req opt rest kw #'(e1 e2 ...) vars r* w* inits - (append meta - `((documentation - . ,(syntax->datum #'docstring)))))) + (parse-body req opt rest kw #'(e1 e2 ...) vars r* w* inits + (append meta + `((documentation + . ,(syntax->datum #'docstring)))))) ((#((k . v) ...) e1 e2 ...) - (expand-body req opt rest kw #'(e1 e2 ...) vars r* w* inits - (append meta (syntax->datum #'((k . v) ...))))) + (parse-body req opt rest kw #'(e1 e2 ...) vars r* w* inits + (append meta (syntax->datum #'((k . v) ...))))) ((e1 e2 ...) (values meta req opt rest kw inits vars - (chi-body #'(e1 e2 ...) (source-wrap e w s mod) - r* w* mod))))) + (expand-body #'(e1 e2 ...) (source-wrap e w s mod) + r* w* mod))))) (syntax-case clauses () (() (values '() #f)) @@ -1679,12 +1679,12 @@ (call-with-values (lambda () (get-formals #'args)) (lambda (req opt rest kw) (call-with-values (lambda () - (expand-req req opt rest kw #'(e1 e2 ...))) + (parse-req req opt rest kw #'(e1 e2 ...))) (lambda (meta req opt rest kw inits vars body) (call-with-values (lambda () - (chi-lambda-case e r w s mod get-formals - #'((args* e1* e2* ...) ...))) + (expand-lambda-case e r w s mod get-formals + #'((args* e1* e2* ...) ...))) (lambda (meta* else*) (values (append meta meta*) @@ -1768,7 +1768,7 @@ (source-wrap id w s mod))))) #'(var ...) names) - (chi-body + (expand-body #'(e1 e2 ...) (source-wrap e w s mod) (extend-env @@ -1776,7 +1776,7 @@ (let ((trans-r (macros-only-env r))) (map (lambda (x) (make-binding 'macro - (eval-local-transformer (chi x trans-r w mod) + (eval-local-transformer (expand x trans-r w mod) mod))) #'(val ...))) r) @@ -1970,7 +1970,7 @@ ((#((k . v) ...) e1 e2 ...) (lp #'(e1 e2 ...) (append meta (syntax->datum #'((k . v) ...))))) - (_ (chi-simple-lambda e r w s mod req rest meta body))))))) + (_ (expand-simple-lambda e r w s mod req rest meta body))))))) (_ (syntax-violation 'lambda "bad lambda" e))))) (global-extend 'core 'lambda* @@ -1979,8 +1979,8 @@ ((_ args e1 e2 ...) (call-with-values (lambda () - (chi-lambda-case e r w s mod - lambda*-formals #'((args e1 e2 ...)))) + (expand-lambda-case e r w s mod + lambda*-formals #'((args e1 e2 ...)))) (lambda (meta lcase) (build-case-lambda s meta lcase)))) (_ (syntax-violation 'lambda "bad lambda*" e))))) @@ -1991,9 +1991,9 @@ ((_ (args e1 e2 ...) (args* e1* e2* ...) ...) (call-with-values (lambda () - (chi-lambda-case e r w s mod - lambda-formals - #'((args e1 e2 ...) (args* e1* e2* ...) ...))) + (expand-lambda-case e r w s mod + lambda-formals + #'((args e1 e2 ...) (args* e1* e2* ...) ...))) (lambda (meta lcase) (build-case-lambda s meta lcase)))) (_ (syntax-violation 'case-lambda "bad case-lambda" e))))) @@ -2004,16 +2004,16 @@ ((_ (args e1 e2 ...) (args* e1* e2* ...) ...) (call-with-values (lambda () - (chi-lambda-case e r w s mod - lambda*-formals - #'((args e1 e2 ...) (args* e1* e2* ...) ...))) + (expand-lambda-case e r w s mod + lambda*-formals + #'((args e1 e2 ...) (args* e1* e2* ...) ...))) (lambda (meta lcase) (build-case-lambda s meta lcase)))) (_ (syntax-violation 'case-lambda "bad case-lambda*" e))))) (global-extend 'core 'let (let () - (define (chi-let e r w s mod constructor ids vals exps) + (define (expand-let e r w s mod constructor ids vals exps) (if (not (valid-bound-ids? ids)) (syntax-violation 'let "duplicate bound variable" e) (let ((labels (gen-labels ids)) @@ -2023,25 +2023,25 @@ (constructor s (map syntax->datum ids) new-vars - (map (lambda (x) (chi x r w mod)) vals) - (chi-body exps (source-wrap e nw s mod) - nr nw mod)))))) + (map (lambda (x) (expand x r w mod)) vals) + (expand-body exps (source-wrap e nw s mod) + nr nw mod)))))) (lambda (e r w s mod) (syntax-case e () ((_ ((id val) ...) e1 e2 ...) (and-map id? #'(id ...)) - (chi-let e r w s mod - build-let - #'(id ...) - #'(val ...) - #'(e1 e2 ...))) + (expand-let e r w s mod + build-let + #'(id ...) + #'(val ...) + #'(e1 e2 ...))) ((_ f ((id val) ...) e1 e2 ...) (and (id? #'f) (and-map id? #'(id ...))) - (chi-let e r w s mod - build-named-let - #'(f id ...) - #'(val ...) - #'(e1 e2 ...))) + (expand-let e r w s mod + build-named-let + #'(f id ...) + #'(val ...) + #'(e1 e2 ...))) (_ (syntax-violation 'let "bad let" (source-wrap e w s mod))))))) @@ -2060,9 +2060,9 @@ (build-letrec s #f (map syntax->datum ids) new-vars - (map (lambda (x) (chi x r w mod)) #'(val ...)) - (chi-body #'(e1 e2 ...) - (source-wrap e w s mod) r w mod))))))) + (map (lambda (x) (expand x r w mod)) #'(val ...)) + (expand-body #'(e1 e2 ...) + (source-wrap e w s mod) r w mod))))))) (_ (syntax-violation 'letrec "bad letrec" (source-wrap e w s mod)))))) @@ -2081,9 +2081,9 @@ (build-letrec s #t (map syntax->datum ids) new-vars - (map (lambda (x) (chi x r w mod)) #'(val ...)) - (chi-body #'(e1 e2 ...) - (source-wrap e w s mod) r w mod))))))) + (map (lambda (x) (expand x r w mod)) #'(val ...)) + (expand-body #'(e1 e2 ...) + (source-wrap e w s mod) r w mod))))))) (_ (syntax-violation 'letrec* "bad letrec*" (source-wrap e w s mod)))))) @@ -2103,15 +2103,15 @@ (build-lexical-assignment s (syntax->datum #'id) (binding-value b) - (chi #'val r w mod))) + (expand #'val r w mod))) ((global) - (build-global-assignment s n (chi #'val r w mod) id-mod)) + (build-global-assignment s n (expand #'val r w mod) id-mod)) ((macro) (let ((p (binding-value b))) (if (procedure-property p 'variable-transformer) - ;; As syntax-type does, call chi-macro with + ;; As syntax-type does, call expand-macro with ;; the mod of the expression. Hmm. - (chi (chi-macro p e r w s #f mod) r empty-wrap mod) + (expand (expand-macro p e r w s #f mod) r empty-wrap mod) (syntax-violation 'set! "not a variable transformer" (wrap e w mod) (wrap #'id w id-mod))))) @@ -2126,7 +2126,7 @@ (lambda (type value ee ww ss modmod) (case type ((module-ref) - (let ((val (chi #'val r w mod))) + (let ((val (expand #'val r w mod))) (call-with-values (lambda () (value #'(head tail ...) r w)) (lambda (e r w s* mod) (syntax-case e () @@ -2135,8 +2135,8 @@ val mod))))))) (else (build-application s - (chi #'(setter head) r w mod) - (map (lambda (e) (chi e r w mod)) + (expand #'(setter head) r w mod) + (map (lambda (e) (expand e r w mod)) #'(tail ... val)))))))) (_ (syntax-violation 'set! "bad set!" (source-wrap e w s mod)))))) @@ -2182,15 +2182,15 @@ ((_ test then) (build-conditional s - (chi #'test r w mod) - (chi #'then r w mod) + (expand #'test r w mod) + (expand #'then r w mod) (build-void no-source))) ((_ test then else) (build-conditional s - (chi #'test r w mod) - (chi #'then r w mod) - (chi #'else r w mod)))))) + (expand #'test r w mod) + (expand #'then r w mod) + (expand #'else r w mod)))))) (global-extend 'core 'with-fluids (lambda (e r w s mod) @@ -2198,10 +2198,10 @@ ((_ ((fluid val) ...) b b* ...) (build-dynlet s - (map (lambda (x) (chi x r w mod)) #'(fluid ...)) - (map (lambda (x) (chi x r w mod)) #'(val ...)) - (chi-body #'(b b* ...) - (source-wrap e w s mod) r w mod)))))) + (map (lambda (x) (expand x r w mod)) #'(fluid ...)) + (map (lambda (x) (expand x r w mod)) #'(val ...)) + (expand-body #'(b b* ...) + (source-wrap e w s mod) r w mod)))))) (global-extend 'begin 'begin '()) @@ -2289,16 +2289,16 @@ (build-application no-source (build-primref no-source 'apply) (list (build-simple-lambda no-source (map syntax->datum ids) #f new-vars '() - (chi exp - (extend-env - labels - (map (lambda (var level) - (make-binding 'syntax `(,var . ,level))) - new-vars - (map cdr pvars)) - r) - (make-binding-wrap ids labels empty-wrap) - mod)) + (expand exp + (extend-env + labels + (map (lambda (var level) + (make-binding 'syntax `(,var . ,level))) + new-vars + (map cdr pvars)) + r) + (make-binding-wrap ids labels empty-wrap) + mod)) y)))))) (define gen-clause @@ -2350,20 +2350,20 @@ (and-map (lambda (x) (not (free-id=? #'pat x))) (cons #'(... ...) keys))) (if (free-id=? #'pad #'_) - (chi #'exp r empty-wrap mod) + (expand #'exp r empty-wrap mod) (let ((labels (list (gen-label))) (var (gen-var #'pat))) (build-application no-source (build-simple-lambda no-source (list (syntax->datum #'pat)) #f (list var) '() - (chi #'exp - (extend-env labels - (list (make-binding 'syntax `(,var . 0))) - r) - (make-binding-wrap #'(pat) - labels empty-wrap) - mod)) + (expand #'exp + (extend-env labels + (list (make-binding 'syntax `(,var . 0))) + r) + (make-binding-wrap #'(pat) + labels empty-wrap) + mod)) (list x)))) (gen-clause x keys (cdr clauses) r #'pat #t #'exp mod))) @@ -2388,10 +2388,10 @@ #'(key ...) #'(m ...) r mod)) - (list (chi #'val r empty-wrap mod)))) + (list (expand #'val r empty-wrap mod)))) (syntax-violation 'syntax-case "invalid literals list" e)))))))) - ;; The portable macroexpand seeds chi-top's mode m with 'e (for + ;; The portable macroexpand seeds expand-top's mode m with 'e (for ;; evaluating) and esew (which stands for "eval syntax expanders ;; when") with '(eval). In Chez Scheme, m is set to 'c instead of e ;; if we are compiling a file, and esew is set to @@ -2402,8 +2402,8 @@ ;; the object file if we are compiling a file. (set! macroexpand (lambda* (x #:optional (m 'e) (esew '(eval))) - (chi-top-sequence (list x) null-env top-wrap #f m esew - (cons 'hygiene (module-name (current-module)))))) + (expand-top-sequence (list x) null-env top-wrap #f m esew + (cons 'hygiene (module-name (current-module)))))) (set! identifier? (lambda (x) |