(if #f #f)
(letrec*
- ((#{top-level-eval-hook 4273}#
- (lambda (#{x 28128}# #{mod 28129}#)
- (primitive-eval #{x 28128}#)))
- (#{maybe-name-value! 4278}#
- (lambda (#{name 16665}# #{val 16666}#)
- (if (if (struct? #{val 16666}#)
- (eq? (struct-vtable #{val 16666}#)
+ ((#{top-level-eval-hook 4261}#
+ (lambda (#{x 28515}# #{mod 28516}#)
+ (primitive-eval #{x 28515}#)))
+ (#{maybe-name-value! 4266}#
+ (lambda (#{name 16653}# #{val 16654}#)
+ (if (if (struct? #{val 16654}#)
+ (eq? (struct-vtable #{val 16654}#)
(vector-ref %expanded-vtables 13))
#f)
- (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 16390}#
- #{fun-exp 16391}#
- #{arg-exps 16392}#)
+ (let ((#{meta 16661}# (struct-ref #{val 16654}# 1)))
+ (if (not (assq 'name #{meta 16661}#))
+ (let ((#{v 16666}#
+ (cons (cons 'name #{name 16653}#) #{meta 16661}#)))
+ (struct-set! #{val 16654}# 1 #{v 16666}#)))))))
+ (#{build-application 4268}#
+ (lambda (#{source 16378}#
+ #{fun-exp 16379}#
+ #{arg-exps 16380}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
- #{source 16390}#
- #{fun-exp 16391}#
- #{arg-exps 16392}#)))
- (#{build-conditional 4281}#
- (lambda (#{source 16398}#
- #{test-exp 16399}#
- #{then-exp 16400}#
- #{else-exp 16401}#)
+ #{source 16378}#
+ #{fun-exp 16379}#
+ #{arg-exps 16380}#)))
+ (#{build-conditional 4269}#
+ (lambda (#{source 16386}#
+ #{test-exp 16387}#
+ #{then-exp 16388}#
+ #{else-exp 16389}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 10)
- #{source 16398}#
- #{test-exp 16399}#
- #{then-exp 16400}#
- #{else-exp 16401}#)))
- (#{build-dynlet 4282}#
- (lambda (#{source 16408}#
- #{fluids 16409}#
- #{vals 16410}#
- #{body 16411}#)
+ #{source 16386}#
+ #{test-exp 16387}#
+ #{then-exp 16388}#
+ #{else-exp 16389}#)))
+ (#{build-dynlet 4270}#
+ (lambda (#{source 16396}#
+ #{fluids 16397}#
+ #{vals 16398}#
+ #{body 16399}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 17)
- #{source 16408}#
- #{fluids 16409}#
- #{vals 16410}#
- #{body 16411}#)))
- (#{build-lexical-reference 4283}#
- (lambda (#{type 28130}#
- #{source 28131}#
- #{name 28132}#
- #{var 28133}#)
+ #{source 16396}#
+ #{fluids 16397}#
+ #{vals 16398}#
+ #{body 16399}#)))
+ (#{build-lexical-reference 4271}#
+ (lambda (#{type 28517}#
+ #{source 28518}#
+ #{name 28519}#
+ #{var 28520}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
- #{source 28131}#
- #{name 28132}#
- #{var 28133}#)))
- (#{build-lexical-assignment 4284}#
- (lambda (#{source 16418}#
- #{name 16419}#
- #{var 16420}#
- #{exp 16421}#)
+ #{source 28518}#
+ #{name 28519}#
+ #{var 28520}#)))
+ (#{build-lexical-assignment 4272}#
+ (lambda (#{source 16406}#
+ #{name 16407}#
+ #{var 16408}#
+ #{exp 16409}#)
(begin
- (if (if (struct? #{exp 16421}#)
- (eq? (struct-vtable #{exp 16421}#)
+ (if (if (struct? #{exp 16409}#)
+ (eq? (struct-vtable #{exp 16409}#)
(vector-ref %expanded-vtables 13))
#f)
- (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}#)))))
+ (let ((#{meta 16425}# (struct-ref #{exp 16409}# 1)))
+ (if (not (assq 'name #{meta 16425}#))
+ (let ((#{v 16432}#
+ (cons (cons 'name #{name 16407}#) #{meta 16425}#)))
+ (struct-set! #{exp 16409}# 1 #{v 16432}#)))))
(make-struct/no-tail
(vector-ref %expanded-vtables 4)
- #{source 16418}#
- #{name 16419}#
- #{var 16420}#
- #{exp 16421}#))))
- (#{analyze-variable 4285}#
- (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}#
+ #{source 16406}#
+ #{name 16407}#
+ #{var 16408}#
+ #{exp 16409}#))))
+ (#{analyze-variable 4273}#
+ (lambda (#{mod 28526}#
+ #{var 28527}#
+ #{modref-cont 28528}#
+ #{bare-cont 28529}#)
+ (if (not #{mod 28526}#)
+ (#{bare-cont 28529}# #{var 28527}#)
+ (let ((#{kind 28530}# (car #{mod 28526}#))
+ (#{mod 28531}# (cdr #{mod 28526}#)))
+ (if (eqv? #{kind 28530}# 'public)
+ (#{modref-cont 28528}#
+ #{mod 28531}#
+ #{var 28527}#
#t)
- (if (eqv? #{kind 28143}# 'private)
+ (if (eqv? #{kind 28530}# 'private)
(if (not (equal?
- #{mod 28144}#
+ #{mod 28531}#
(module-name (current-module))))
- (#{modref-cont 28141}#
- #{mod 28144}#
- #{var 28140}#
+ (#{modref-cont 28528}#
+ #{mod 28531}#
+ #{var 28527}#
#f)
- (#{bare-cont 28142}# #{var 28140}#))
- (if (eqv? #{kind 28143}# 'bare)
- (#{bare-cont 28142}# #{var 28140}#)
- (if (eqv? #{kind 28143}# 'hygiene)
+ (#{bare-cont 28529}# #{var 28527}#))
+ (if (eqv? #{kind 28530}# 'bare)
+ (#{bare-cont 28529}# #{var 28527}#)
+ (if (eqv? #{kind 28530}# 'hygiene)
(if (if (not (equal?
- #{mod 28144}#
+ #{mod 28531}#
(module-name (current-module))))
(module-variable
- (resolve-module #{mod 28144}#)
- #{var 28140}#)
+ (resolve-module #{mod 28531}#)
+ #{var 28527}#)
#f)
- (#{modref-cont 28141}#
- #{mod 28144}#
- #{var 28140}#
+ (#{modref-cont 28528}#
+ #{mod 28531}#
+ #{var 28527}#
#f)
- (#{bare-cont 28142}# #{var 28140}#))
+ (#{bare-cont 28529}# #{var 28527}#))
(syntax-violation
#f
"bad module kind"
- #{var 28140}#
- #{mod 28144}#)))))))))
- (#{build-global-reference 4286}#
- (lambda (#{source 28159}# #{var 28160}# #{mod 28161}#)
- (#{analyze-variable 4285}#
- #{mod 28161}#
- #{var 28160}#
- (lambda (#{mod 28164}# #{var 28165}# #{public? 28166}#)
+ #{var 28527}#
+ #{mod 28531}#)))))))))
+ (#{build-global-reference 4274}#
+ (lambda (#{source 28546}# #{var 28547}# #{mod 28548}#)
+ (#{analyze-variable 4273}#
+ #{mod 28548}#
+ #{var 28547}#
+ (lambda (#{mod 28551}# #{var 28552}# #{public? 28553}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 5)
- #{source 28159}#
- #{mod 28164}#
- #{var 28165}#
- #{public? 28166}#))
- (lambda (#{var 28174}#)
+ #{source 28546}#
+ #{mod 28551}#
+ #{var 28552}#
+ #{public? 28553}#))
+ (lambda (#{var 28561}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
- #{source 28159}#
- #{var 28174}#)))))
- (#{build-global-assignment 4287}#
- (lambda (#{source 16453}#
- #{var 16454}#
- #{exp 16455}#
- #{mod 16456}#)
+ #{source 28546}#
+ #{var 28561}#)))))
+ (#{build-global-assignment 4275}#
+ (lambda (#{source 16441}#
+ #{var 16442}#
+ #{exp 16443}#
+ #{mod 16444}#)
(begin
- (if (if (struct? #{exp 16455}#)
- (eq? (struct-vtable #{exp 16455}#)
+ (if (if (struct? #{exp 16443}#)
+ (eq? (struct-vtable #{exp 16443}#)
(vector-ref %expanded-vtables 13))
#f)
- (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 16456}#
- #{var 16454}#
- (lambda (#{mod 16484}# #{var 16485}# #{public? 16486}#)
+ (let ((#{meta 16460}# (struct-ref #{exp 16443}# 1)))
+ (if (not (assq 'name #{meta 16460}#))
+ (let ((#{v 16467}#
+ (cons (cons 'name #{var 16442}#) #{meta 16460}#)))
+ (struct-set! #{exp 16443}# 1 #{v 16467}#)))))
+ (#{analyze-variable 4273}#
+ #{mod 16444}#
+ #{var 16442}#
+ (lambda (#{mod 16472}# #{var 16473}# #{public? 16474}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 6)
- #{source 16453}#
- #{mod 16484}#
- #{var 16485}#
- #{public? 16486}#
- #{exp 16455}#))
- (lambda (#{var 16494}#)
+ #{source 16441}#
+ #{mod 16472}#
+ #{var 16473}#
+ #{public? 16474}#
+ #{exp 16443}#))
+ (lambda (#{var 16482}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 8)
- #{source 16453}#
- #{var 16494}#
- #{exp 16455}#))))))
- (#{build-global-definition 4288}#
- (lambda (#{source 28180}# #{var 28181}# #{exp 28182}#)
+ #{source 16441}#
+ #{var 16482}#
+ #{exp 16443}#))))))
+ (#{build-global-definition 4276}#
+ (lambda (#{source 28567}# #{var 28568}# #{exp 28569}#)
(begin
- (if (if (struct? #{exp 28182}#)
- (eq? (struct-vtable #{exp 28182}#)
+ (if (if (struct? #{exp 28569}#)
+ (eq? (struct-vtable #{exp 28569}#)
(vector-ref %expanded-vtables 13))
#f)
- (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}#)))))
+ (let ((#{meta 28585}# (struct-ref #{exp 28569}# 1)))
+ (if (not (assq 'name #{meta 28585}#))
+ (let ((#{v 28592}#
+ (cons (cons 'name #{var 28568}#) #{meta 28585}#)))
+ (struct-set! #{exp 28569}# 1 #{v 28592}#)))))
(make-struct/no-tail
(vector-ref %expanded-vtables 9)
- #{source 28180}#
- #{var 28181}#
- #{exp 28182}#))))
- (#{build-simple-lambda 4289}#
- (lambda (#{src 16500}#
- #{req 16501}#
- #{rest 16502}#
- #{vars 16503}#
- #{meta 16504}#
- #{exp 16505}#)
- (let ((#{body 16511}#
+ #{source 28567}#
+ #{var 28568}#
+ #{exp 28569}#))))
+ (#{build-simple-lambda 4277}#
+ (lambda (#{src 16488}#
+ #{req 16489}#
+ #{rest 16490}#
+ #{vars 16491}#
+ #{meta 16492}#
+ #{exp 16493}#)
+ (let ((#{body 16499}#
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
- #{src 16500}#
- #{req 16501}#
+ #{src 16488}#
+ #{req 16489}#
#f
- #{rest 16502}#
+ #{rest 16490}#
#f
'()
- #{vars 16503}#
- #{exp 16505}#
+ #{vars 16491}#
+ #{exp 16493}#
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
- #{src 16500}#
- #{meta 16504}#
- #{body 16511}#))))
- (#{build-sequence 4294}#
- (lambda (#{src 28213}# #{exps 28214}#)
- (if (null? (cdr #{exps 28214}#))
- (car #{exps 28214}#)
+ #{src 16488}#
+ #{meta 16492}#
+ #{body 16499}#))))
+ (#{build-sequence 4282}#
+ (lambda (#{src 28600}# #{exps 28601}#)
+ (if (null? (cdr #{exps 28601}#))
+ (car #{exps 28601}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 12)
- #{src 28213}#
- #{exps 28214}#))))
- (#{build-let 4295}#
- (lambda (#{src 16523}#
- #{ids 16524}#
- #{vars 16525}#
- #{val-exps 16526}#
- #{body-exp 16527}#)
+ #{src 28600}#
+ #{exps 28601}#))))
+ (#{build-let 4283}#
+ (lambda (#{src 16511}#
+ #{ids 16512}#
+ #{vars 16513}#
+ #{val-exps 16514}#
+ #{body-exp 16515}#)
(begin
(for-each
- #{maybe-name-value! 4278}#
- #{ids 16524}#
- #{val-exps 16526}#)
- (if (null? #{vars 16525}#)
- #{body-exp 16527}#
+ #{maybe-name-value! 4266}#
+ #{ids 16512}#
+ #{val-exps 16514}#)
+ (if (null? #{vars 16513}#)
+ #{body-exp 16515}#
(make-struct/no-tail
(vector-ref %expanded-vtables 15)
- #{src 16523}#
- #{ids 16524}#
- #{vars 16525}#
- #{val-exps 16526}#
- #{body-exp 16527}#)))))
- (#{build-named-let 4296}#
- (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}#
+ #{src 16511}#
+ #{ids 16512}#
+ #{vars 16513}#
+ #{val-exps 16514}#
+ #{body-exp 16515}#)))))
+ (#{build-named-let 4284}#
+ (lambda (#{src 16539}#
+ #{ids 16540}#
+ #{vars 16541}#
+ #{val-exps 16542}#
+ #{body-exp 16543}#)
+ (let ((#{f 16544}# (car #{vars 16541}#))
+ (#{f-name 16545}# (car #{ids 16540}#))
+ (#{vars 16546}# (cdr #{vars 16541}#))
+ (#{ids 16547}# (cdr #{ids 16540}#)))
+ (let ((#{proc 16548}#
+ (let ((#{body 16568}#
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
- #{src 16551}#
- #{ids 16559}#
+ #{src 16539}#
+ #{ids 16547}#
#f
#f
#f
'()
- #{vars 16558}#
- #{body-exp 16555}#
+ #{vars 16546}#
+ #{body-exp 16543}#
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
- #{src 16551}#
+ #{src 16539}#
'()
- #{body 16580}#))))
+ #{body 16568}#))))
(begin
- (if (if (struct? #{proc 16560}#)
- (eq? (struct-vtable #{proc 16560}#)
+ (if (if (struct? #{proc 16548}#)
+ (eq? (struct-vtable #{proc 16548}#)
(vector-ref %expanded-vtables 13))
#f)
- (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}#)))))
+ (let ((#{meta 16592}# (struct-ref #{proc 16548}# 1)))
+ (if (not (assq 'name #{meta 16592}#))
+ (let ((#{v 16599}#
+ (cons (cons 'name #{f-name 16545}#)
+ #{meta 16592}#)))
+ (struct-set! #{proc 16548}# 1 #{v 16599}#)))))
(for-each
- #{maybe-name-value! 4278}#
- #{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}#
+ #{maybe-name-value! 4266}#
+ #{ids 16547}#
+ #{val-exps 16542}#)
+ (let ((#{names 16623}# (list #{f-name 16545}#))
+ (#{gensyms 16624}# (list #{f 16544}#))
+ (#{vals 16625}# (list #{proc 16548}#))
+ (#{body 16626}#
+ (let ((#{fun-exp 16630}#
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
- #{src 16551}#
- #{f-name 16557}#
- #{f 16556}#)))
+ #{src 16539}#
+ #{f-name 16545}#
+ #{f 16544}#)))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
- #{src 16551}#
- #{fun-exp 16642}#
- #{val-exps 16554}#))))
+ #{src 16539}#
+ #{fun-exp 16630}#
+ #{val-exps 16542}#))))
(make-struct/no-tail
(vector-ref %expanded-vtables 16)
- #{src 16551}#
+ #{src 16539}#
#f
- #{names 16635}#
- #{gensyms 16636}#
- #{vals 16637}#
- #{body 16638}#)))))))
- (#{build-letrec 4297}#
- (lambda (#{src 16658}#
- #{in-order? 16659}#
- #{ids 16660}#
- #{vars 16661}#
- #{val-exps 16662}#
- #{body-exp 16663}#)
- (if (null? #{vars 16661}#)
- #{body-exp 16663}#
+ #{names 16623}#
+ #{gensyms 16624}#
+ #{vals 16625}#
+ #{body 16626}#)))))))
+ (#{build-letrec 4285}#
+ (lambda (#{src 16646}#
+ #{in-order? 16647}#
+ #{ids 16648}#
+ #{vars 16649}#
+ #{val-exps 16650}#
+ #{body-exp 16651}#)
+ (if (null? #{vars 16649}#)
+ #{body-exp 16651}#
(begin
(for-each
- #{maybe-name-value! 4278}#
- #{ids 16660}#
- #{val-exps 16662}#)
+ #{maybe-name-value! 4266}#
+ #{ids 16648}#
+ #{val-exps 16650}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 16)
- #{src 16658}#
- #{in-order? 16659}#
- #{ids 16660}#
- #{vars 16661}#
- #{val-exps 16662}#
- #{body-exp 16663}#)))))
- (#{source-annotation 4306}#
- (lambda (#{x 16689}#)
- (if (if (vector? #{x 16689}#)
- (if (= (vector-length #{x 16689}#) 4)
- (eq? (vector-ref #{x 16689}# 0) 'syntax-object)
+ #{src 16646}#
+ #{in-order? 16647}#
+ #{ids 16648}#
+ #{vars 16649}#
+ #{val-exps 16650}#
+ #{body-exp 16651}#)))))
+ (#{source-annotation 4294}#
+ (lambda (#{x 16677}#)
+ (if (if (vector? #{x 16677}#)
+ (if (= (vector-length #{x 16677}#) 4)
+ (eq? (vector-ref #{x 16677}# 0) 'syntax-object)
#f)
#f)
- (#{source-annotation 4306}#
- (vector-ref #{x 16689}# 1))
- (if (pair? #{x 16689}#)
- (let ((#{props 16704}# (source-properties #{x 16689}#)))
- (if (pair? #{props 16704}#) #{props 16704}# #f))
+ (#{source-annotation 4294}#
+ (vector-ref #{x 16677}# 1))
+ (if (pair? #{x 16677}#)
+ (let ((#{props 16692}# (source-properties #{x 16677}#)))
+ (if (pair? #{props 16692}#) #{props 16692}# #f))
#f))))
- (#{extend-env 4307}#
- (lambda (#{labels 16706}# #{bindings 16707}# #{r 16708}#)
- (if (null? #{labels 16706}#)
- #{r 16708}#
- (#{extend-env 4307}#
- (cdr #{labels 16706}#)
- (cdr #{bindings 16707}#)
- (cons (cons (car #{labels 16706}#)
- (car #{bindings 16707}#))
- #{r 16708}#)))))
- (#{extend-var-env 4308}#
- (lambda (#{labels 16709}# #{vars 16710}# #{r 16711}#)
- (if (null? #{labels 16709}#)
- #{r 16711}#
- (#{extend-var-env 4308}#
- (cdr #{labels 16709}#)
- (cdr #{vars 16710}#)
- (cons (cons (car #{labels 16709}#)
- (cons 'lexical (car #{vars 16710}#)))
- #{r 16711}#)))))
- (#{macros-only-env 4309}#
- (lambda (#{r 16712}#)
- (if (null? #{r 16712}#)
+ (#{extend-env 4295}#
+ (lambda (#{labels 16694}# #{bindings 16695}# #{r 16696}#)
+ (if (null? #{labels 16694}#)
+ #{r 16696}#
+ (#{extend-env 4295}#
+ (cdr #{labels 16694}#)
+ (cdr #{bindings 16695}#)
+ (cons (cons (car #{labels 16694}#)
+ (car #{bindings 16695}#))
+ #{r 16696}#)))))
+ (#{extend-var-env 4296}#
+ (lambda (#{labels 16697}# #{vars 16698}# #{r 16699}#)
+ (if (null? #{labels 16697}#)
+ #{r 16699}#
+ (#{extend-var-env 4296}#
+ (cdr #{labels 16697}#)
+ (cdr #{vars 16698}#)
+ (cons (cons (car #{labels 16697}#)
+ (cons 'lexical (car #{vars 16698}#)))
+ #{r 16699}#)))))
+ (#{macros-only-env 4297}#
+ (lambda (#{r 16700}#)
+ (if (null? #{r 16700}#)
'()
- (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 16715}# #{sym 16716}# #{val 16717}#)
+ (let ((#{a 16701}# (car #{r 16700}#)))
+ (if (eq? (car (cdr #{a 16701}#)) 'macro)
+ (cons #{a 16701}#
+ (#{macros-only-env 4297}# (cdr #{r 16700}#)))
+ (#{macros-only-env 4297}# (cdr #{r 16700}#)))))))
+ (#{global-extend 4299}#
+ (lambda (#{type 16703}# #{sym 16704}# #{val 16705}#)
(module-define!
(current-module)
- #{sym 16716}#
+ #{sym 16704}#
(make-syntax-transformer
- #{sym 16716}#
- #{type 16715}#
- #{val 16717}#))))
- (#{id? 4313}#
- (lambda (#{x 10549}#)
- (if (symbol? #{x 10549}#)
+ #{sym 16704}#
+ #{type 16703}#
+ #{val 16705}#))))
+ (#{id? 4301}#
+ (lambda (#{x 10537}#)
+ (if (symbol? #{x 10537}#)
#t
- (if (if (vector? #{x 10549}#)
- (if (= (vector-length #{x 10549}#) 4)
- (eq? (vector-ref #{x 10549}# 0) 'syntax-object)
+ (if (if (vector? #{x 10537}#)
+ (if (= (vector-length #{x 10537}#) 4)
+ (eq? (vector-ref #{x 10537}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 10549}# 1))
+ (symbol? (vector-ref #{x 10537}# 1))
#f))))
- (#{gen-labels 4316}#
- (lambda (#{ls 16727}#)
- (if (null? #{ls 16727}#)
+ (#{gen-labels 4304}#
+ (lambda (#{ls 16715}#)
+ (if (null? #{ls 16715}#)
'()
(cons (symbol->string (gensym "i"))
- (#{gen-labels 4316}# (cdr #{ls 16727}#))))))
- (#{make-binding-wrap 4327}#
- (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}#)))
+ (#{gen-labels 4304}# (cdr #{ls 16715}#))))))
+ (#{make-binding-wrap 4315}#
+ (lambda (#{ids 16719}# #{labels 16720}# #{w 16721}#)
+ (if (null? #{ids 16719}#)
+ #{w 16721}#
+ (cons (car #{w 16721}#)
+ (cons (let ((#{labelvec 16722}#
+ (list->vector #{labels 16720}#)))
+ (let ((#{n 16723}# (vector-length #{labelvec 16722}#)))
+ (let ((#{symnamevec 16724}# (make-vector #{n 16723}#))
+ (#{marksvec 16725}# (make-vector #{n 16723}#)))
(begin
(letrec*
- ((#{f 16738}#
- (lambda (#{ids 16741}# #{i 16742}#)
- (if (not (null? #{ids 16741}#))
+ ((#{f 16726}#
+ (lambda (#{ids 16729}# #{i 16730}#)
+ (if (not (null? #{ids 16729}#))
(call-with-values
(lambda ()
- (let ((#{x 16745}#
- (car #{ids 16741}#)))
- (if (if (vector? #{x 16745}#)
+ (let ((#{x 16733}#
+ (car #{ids 16729}#)))
+ (if (if (vector? #{x 16733}#)
(if (= (vector-length
- #{x 16745}#)
+ #{x 16733}#)
4)
(eq? (vector-ref
- #{x 16745}#
+ #{x 16733}#
0)
'syntax-object)
#f)
#f)
(values
- (vector-ref #{x 16745}# 1)
- (let ((#{m1 16761}#
- (car #{w 16733}#))
- (#{m2 16762}#
+ (vector-ref #{x 16733}# 1)
+ (let ((#{m1 16749}#
+ (car #{w 16721}#))
+ (#{m2 16750}#
(car (vector-ref
- #{x 16745}#
+ #{x 16733}#
2))))
- (if (null? #{m2 16762}#)
- #{m1 16761}#
+ (if (null? #{m2 16750}#)
+ #{m1 16749}#
(append
- #{m1 16761}#
- #{m2 16762}#))))
+ #{m1 16749}#
+ #{m2 16750}#))))
(values
- #{x 16745}#
- (car #{w 16733}#)))))
- (lambda (#{symname 16782}#
- #{marks 16783}#)
+ #{x 16733}#
+ (car #{w 16721}#)))))
+ (lambda (#{symname 16770}#
+ #{marks 16771}#)
(begin
(vector-set!
- #{symnamevec 16736}#
- #{i 16742}#
- #{symname 16782}#)
+ #{symnamevec 16724}#
+ #{i 16730}#
+ #{symname 16770}#)
(vector-set!
- #{marksvec 16737}#
- #{i 16742}#
- #{marks 16783}#)
- (#{f 16738}#
- (cdr #{ids 16741}#)
- (#{1+}# #{i 16742}#)))))))))
- (#{f 16738}# #{ids 16731}# 0))
+ #{marksvec 16725}#
+ #{i 16730}#
+ #{marks 16771}#)
+ (#{f 16726}#
+ (cdr #{ids 16729}#)
+ (#{1+}# #{i 16730}#)))))))))
+ (#{f 16726}# #{ids 16719}# 0))
(vector
'ribcage
- #{symnamevec 16736}#
- #{marksvec 16737}#
- #{labelvec 16734}#)))))
- (cdr #{w 16733}#))))))
- (#{join-wraps 4329}#
- (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 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 16825}#)
- (cdr #{y 16826}#))
+ #{symnamevec 16724}#
+ #{marksvec 16725}#
+ #{labelvec 16722}#)))))
+ (cdr #{w 16721}#))))))
+ (#{join-wraps 4317}#
+ (lambda (#{w1 16780}# #{w2 16781}#)
+ (let ((#{m1 16782}# (car #{w1 16780}#))
+ (#{s1 16783}# (cdr #{w1 16780}#)))
+ (if (null? #{m1 16782}#)
+ (if (null? #{s1 16783}#)
+ #{w2 16781}#
+ (cons (car #{w2 16781}#)
+ (let ((#{m2 16790}# (cdr #{w2 16781}#)))
+ (if (null? #{m2 16790}#)
+ #{s1 16783}#
+ (append #{s1 16783}# #{m2 16790}#)))))
+ (cons (let ((#{m2 16799}# (car #{w2 16781}#)))
+ (if (null? #{m2 16799}#)
+ #{m1 16782}#
+ (append #{m1 16782}# #{m2 16799}#)))
+ (let ((#{m2 16808}# (cdr #{w2 16781}#)))
+ (if (null? #{m2 16808}#)
+ #{s1 16783}#
+ (append #{s1 16783}# #{m2 16808}#))))))))
+ (#{same-marks? 4319}#
+ (lambda (#{x 16813}# #{y 16814}#)
+ (if (eq? #{x 16813}# #{y 16814}#)
+ (eq? #{x 16813}# #{y 16814}#)
+ (if (not (null? #{x 16813}#))
+ (if (not (null? #{y 16814}#))
+ (if (eq? (car #{x 16813}#) (car #{y 16814}#))
+ (#{same-marks? 4319}#
+ (cdr #{x 16813}#)
+ (cdr #{y 16814}#))
#f)
#f)
#f))))
- (#{id-var-name 4332}#
- (lambda (#{id 16834}# #{w 16835}#)
+ (#{id-var-name 4320}#
+ (lambda (#{id 16822}# #{w 16823}#)
(letrec*
- ((#{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}#)))
+ ((#{search 16824}#
+ (lambda (#{sym 16885}# #{subst 16886}# #{marks 16887}#)
+ (if (null? #{subst 16886}#)
+ (values #f #{marks 16887}#)
+ (let ((#{fst 16888}# (car #{subst 16886}#)))
+ (if (eq? #{fst 16888}# 'shift)
+ (#{search 16824}#
+ #{sym 16885}#
+ (cdr #{subst 16886}#)
+ (cdr #{marks 16887}#))
+ (let ((#{symnames 16890}# (vector-ref #{fst 16888}# 1)))
+ (if (vector? #{symnames 16890}#)
+ (let ((#{n 16902}# (vector-length #{symnames 16890}#)))
(letrec*
- ((#{f 16915}#
- (lambda (#{i 16917}#)
- (if (= #{i 16917}# #{n 16914}#)
- (#{search 16836}#
- #{sym 16897}#
- (cdr #{subst 16898}#)
- #{marks 16899}#)
+ ((#{f 16903}#
+ (lambda (#{i 16905}#)
+ (if (= #{i 16905}# #{n 16902}#)
+ (#{search 16824}#
+ #{sym 16885}#
+ (cdr #{subst 16886}#)
+ #{marks 16887}#)
(if (if (eq? (vector-ref
- #{symnames 16902}#
- #{i 16917}#)
- #{sym 16897}#)
- (#{same-marks? 4331}#
- #{marks 16899}#
+ #{symnames 16890}#
+ #{i 16905}#)
+ #{sym 16885}#)
+ (#{same-marks? 4319}#
+ #{marks 16887}#
(vector-ref
- (vector-ref #{fst 16900}# 2)
- #{i 16917}#))
+ (vector-ref #{fst 16888}# 2)
+ #{i 16905}#))
#f)
(values
(vector-ref
- (vector-ref #{fst 16900}# 3)
- #{i 16917}#)
- #{marks 16899}#)
- (#{f 16915}# (#{1+}# #{i 16917}#)))))))
- (#{f 16915}# 0)))
+ (vector-ref #{fst 16888}# 3)
+ #{i 16905}#)
+ #{marks 16887}#)
+ (#{f 16903}# (#{1+}# #{i 16905}#)))))))
+ (#{f 16903}# 0)))
(letrec*
- ((#{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 16899}#
+ ((#{f 16938}#
+ (lambda (#{symnames 16940}# #{i 16941}#)
+ (if (null? #{symnames 16940}#)
+ (#{search 16824}#
+ #{sym 16885}#
+ (cdr #{subst 16886}#)
+ #{marks 16887}#)
+ (if (if (eq? (car #{symnames 16940}#)
+ #{sym 16885}#)
+ (#{same-marks? 4319}#
+ #{marks 16887}#
(list-ref
- (vector-ref #{fst 16900}# 2)
- #{i 16953}#))
+ (vector-ref #{fst 16888}# 2)
+ #{i 16941}#))
#f)
(values
(list-ref
- (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)
+ (vector-ref #{fst 16888}# 3)
+ #{i 16941}#)
+ #{marks 16887}#)
+ (#{f 16938}#
+ (cdr #{symnames 16940}#)
+ (#{1+}# #{i 16941}#)))))))
+ (#{f 16938}# #{symnames 16890}# 0))))))))))
+ (if (symbol? #{id 16822}#)
+ (let ((#{t 16827}#
+ (#{search 16824}#
+ #{id 16822}#
+ (cdr #{w 16823}#)
+ (car #{w 16823}#))))
+ (if #{t 16827}# #{t 16827}# #{id 16822}#))
+ (if (if (vector? #{id 16822}#)
+ (if (= (vector-length #{id 16822}#) 4)
+ (eq? (vector-ref #{id 16822}# 0) 'syntax-object)
#f)
#f)
- (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}#)))))
+ (let ((#{id 16842}# (vector-ref #{id 16822}# 1))
+ (#{w1 16843}# (vector-ref #{id 16822}# 2)))
+ (let ((#{marks 16844}#
+ (let ((#{m1 16854}# (car #{w 16823}#))
+ (#{m2 16855}# (car #{w1 16843}#)))
+ (if (null? #{m2 16855}#)
+ #{m1 16854}#
+ (append #{m1 16854}# #{m2 16855}#)))))
(call-with-values
(lambda ()
- (#{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}#)))))))
+ (#{search 16824}#
+ #{id 16842}#
+ (cdr #{w 16823}#)
+ #{marks 16844}#))
+ (lambda (#{new-id 16871}# #{marks 16872}#)
+ (if #{new-id 16871}#
+ #{new-id 16871}#
+ (let ((#{t 16880}#
+ (#{search 16824}#
+ #{id 16842}#
+ (cdr #{w1 16843}#)
+ #{marks 16872}#)))
+ (if #{t 16880}# #{t 16880}# #{id 16842}#)))))))
(syntax-violation
'id-var-name
"invalid id"
- #{id 16834}#))))))
- (#{valid-bound-ids? 4335}#
- (lambda (#{ids 16975}#)
+ #{id 16822}#))))))
+ (#{valid-bound-ids? 4323}#
+ (lambda (#{ids 16963}#)
(if (letrec*
- ((#{all-ids? 16976}#
- (lambda (#{ids 17138}#)
- (if (null? #{ids 17138}#)
- (null? #{ids 17138}#)
- (if (let ((#{x 17149}# (car #{ids 17138}#)))
- (if (symbol? #{x 17149}#)
+ ((#{all-ids? 16964}#
+ (lambda (#{ids 17126}#)
+ (if (null? #{ids 17126}#)
+ (null? #{ids 17126}#)
+ (if (let ((#{x 17137}# (car #{ids 17126}#)))
+ (if (symbol? #{x 17137}#)
#t
- (if (if (vector? #{x 17149}#)
- (if (= (vector-length #{x 17149}#) 4)
- (eq? (vector-ref #{x 17149}# 0)
+ (if (if (vector? #{x 17137}#)
+ (if (= (vector-length #{x 17137}#) 4)
+ (eq? (vector-ref #{x 17137}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 17149}# 1))
+ (symbol? (vector-ref #{x 17137}# 1))
#f)))
- (#{all-ids? 16976}# (cdr #{ids 17138}#))
+ (#{all-ids? 16964}# (cdr #{ids 17126}#))
#f)))))
- (#{all-ids? 16976}# #{ids 16975}#))
- (#{distinct-bound-ids? 4336}# #{ids 16975}#)
+ (#{all-ids? 16964}# #{ids 16963}#))
+ (#{distinct-bound-ids? 4324}# #{ids 16963}#)
#f)))
- (#{distinct-bound-ids? 4336}#
- (lambda (#{ids 17281}#)
+ (#{distinct-bound-ids? 4324}#
+ (lambda (#{ids 17269}#)
(letrec*
- ((#{distinct? 17282}#
- (lambda (#{ids 17398}#)
- (if (null? #{ids 17398}#)
- (null? #{ids 17398}#)
- (if (not (#{bound-id-member? 4337}#
- (car #{ids 17398}#)
- (cdr #{ids 17398}#)))
- (#{distinct? 17282}# (cdr #{ids 17398}#))
+ ((#{distinct? 17270}#
+ (lambda (#{ids 17386}#)
+ (if (null? #{ids 17386}#)
+ (null? #{ids 17386}#)
+ (if (not (#{bound-id-member? 4325}#
+ (car #{ids 17386}#)
+ (cdr #{ids 17386}#)))
+ (#{distinct? 17270}# (cdr #{ids 17386}#))
#f)))))
- (#{distinct? 17282}# #{ids 17281}#))))
- (#{bound-id-member? 4337}#
- (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)
+ (#{distinct? 17270}# #{ids 17269}#))))
+ (#{bound-id-member? 4325}#
+ (lambda (#{x 17606}# #{list 17607}#)
+ (if (not (null? #{list 17607}#))
+ (let ((#{t 17608}#
+ (let ((#{j 17689}# (car #{list 17607}#)))
+ (if (if (if (vector? #{x 17606}#)
+ (if (= (vector-length #{x 17606}#) 4)
+ (eq? (vector-ref #{x 17606}# 0) 'syntax-object)
#f)
#f)
- (if (vector? #{j 17701}#)
- (if (= (vector-length #{j 17701}#) 4)
- (eq? (vector-ref #{j 17701}# 0) 'syntax-object)
+ (if (vector? #{j 17689}#)
+ (if (= (vector-length #{j 17689}#) 4)
+ (eq? (vector-ref #{j 17689}# 0) 'syntax-object)
#f)
#f)
#f)
- (if (eq? (vector-ref #{x 17618}# 1)
- (vector-ref #{j 17701}# 1))
- (#{same-marks? 4331}#
- (car (vector-ref #{x 17618}# 2))
- (car (vector-ref #{j 17701}# 2)))
+ (if (eq? (vector-ref #{x 17606}# 1)
+ (vector-ref #{j 17689}# 1))
+ (#{same-marks? 4319}#
+ (car (vector-ref #{x 17606}# 2))
+ (car (vector-ref #{j 17689}# 2)))
#f)
- (eq? #{x 17618}# #{j 17701}#)))))
- (if #{t 17620}#
- #{t 17620}#
- (#{bound-id-member? 4337}#
- #{x 17618}#
- (cdr #{list 17619}#))))
+ (eq? #{x 17606}# #{j 17689}#)))))
+ (if #{t 17608}#
+ #{t 17608}#
+ (#{bound-id-member? 4325}#
+ #{x 17606}#
+ (cdr #{list 17607}#))))
#f)))
- (#{wrap 4338}#
- (lambda (#{x 17745}# #{w 17746}# #{defmod 17747}#)
- (if (if (null? (car #{w 17746}#))
- (null? (cdr #{w 17746}#))
+ (#{wrap 4326}#
+ (lambda (#{x 17733}# #{w 17734}# #{defmod 17735}#)
+ (if (if (null? (car #{w 17734}#))
+ (null? (cdr #{w 17734}#))
#f)
- #{x 17745}#
- (if (if (vector? #{x 17745}#)
- (if (= (vector-length #{x 17745}#) 4)
- (eq? (vector-ref #{x 17745}# 0) 'syntax-object)
+ #{x 17733}#
+ (if (if (vector? #{x 17733}#)
+ (if (= (vector-length #{x 17733}#) 4)
+ (eq? (vector-ref #{x 17733}# 0) 'syntax-object)
#f)
#f)
- (let ((#{expression 17761}# (vector-ref #{x 17745}# 1))
- (#{wrap 17762}#
- (#{join-wraps 4329}#
- #{w 17746}#
- (vector-ref #{x 17745}# 2)))
- (#{module 17763}# (vector-ref #{x 17745}# 3)))
+ (let ((#{expression 17749}# (vector-ref #{x 17733}# 1))
+ (#{wrap 17750}#
+ (#{join-wraps 4317}#
+ #{w 17734}#
+ (vector-ref #{x 17733}# 2)))
+ (#{module 17751}# (vector-ref #{x 17733}# 3)))
(vector
'syntax-object
- #{expression 17761}#
- #{wrap 17762}#
- #{module 17763}#))
- (if (null? #{x 17745}#)
- #{x 17745}#
+ #{expression 17749}#
+ #{wrap 17750}#
+ #{module 17751}#))
+ (if (null? #{x 17733}#)
+ #{x 17733}#
(vector
'syntax-object
- #{x 17745}#
- #{w 17746}#
- #{defmod 17747}#))))))
- (#{source-wrap 4339}#
- (lambda (#{x 17780}#
- #{w 17781}#
- #{s 17782}#
- #{defmod 17783}#)
- (#{wrap 4338}#
+ #{x 17733}#
+ #{w 17734}#
+ #{defmod 17735}#))))))
+ (#{source-wrap 4327}#
+ (lambda (#{x 17768}#
+ #{w 17769}#
+ #{s 17770}#
+ #{defmod 17771}#)
+ (#{wrap 4326}#
(begin
- (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 28222}#
+ (if (if (pair? #{x 17768}#) #{s 17770}# #f)
+ (set-source-properties! #{x 17768}# #{s 17770}#))
+ #{x 17768}#)
+ #{w 17769}#
+ #{defmod 17771}#)))
+ (#{expand-sequence 4328}#
+ (lambda (#{body 28606}#
+ #{r 28607}#
+ #{w 28608}#
+ #{s 28609}#
+ #{mod 28610}#)
+ (#{build-sequence 4282}#
+ #{s 28609}#
(letrec*
- ((#{dobody 28308}#
- (lambda (#{body 28388}#
- #{r 28389}#
- #{w 28390}#
- #{mod 28391}#)
- (if (null? #{body 28388}#)
+ ((#{dobody 28695}#
+ (lambda (#{body 28775}#
+ #{r 28776}#
+ #{w 28777}#
+ #{mod 28778}#)
+ (if (null? #{body 28775}#)
'()
- (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}#)
+ (let ((#{first 28779}#
+ (#{expand 4333}#
+ (car #{body 28775}#)
+ #{r 28776}#
+ #{w 28777}#
+ #{mod 28778}#)))
+ (cons #{first 28779}#
+ (#{dobody 28695}#
+ (cdr #{body 28775}#)
+ #{r 28776}#
+ #{w 28777}#
+ #{mod 28778}#)))))))
+ (#{dobody 28695}#
+ #{body 28606}#
+ #{r 28607}#
+ #{w 28608}#
+ #{mod 28610}#)))))
+ (#{expand-top-sequence 4329}#
+ (lambda (#{body 17789}#
+ #{r 17790}#
+ #{w 17791}#
+ #{s 17792}#
+ #{m 17793}#
+ #{esew 17794}#
+ #{mod 17795}#)
(letrec*
- ((#{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}#
+ ((#{scan 17796}#
+ (lambda (#{body 17927}#
+ #{r 17928}#
+ #{w 17929}#
+ #{s 17930}#
+ #{m 17931}#
+ #{esew 17932}#
+ #{mod 17933}#
+ #{exps 17934}#)
+ (if (null? #{body 17927}#)
+ #{exps 17934}#
(call-with-values
(lambda ()
(call-with-values
(lambda ()
- (let ((#{e 17947}# (car #{body 17939}#)))
- (#{syntax-type 4344}#
- #{e 17947}#
- #{r 17940}#
- #{w 17941}#
- (let ((#{t 17951}#
- (#{source-annotation 4306}# #{e 17947}#)))
- (if #{t 17951}# #{t 17951}# #{s 17942}#))
+ (let ((#{e 17935}# (car #{body 17927}#)))
+ (#{syntax-type 4332}#
+ #{e 17935}#
+ #{r 17928}#
+ #{w 17929}#
+ (let ((#{t 17939}#
+ (#{source-annotation 4294}# #{e 17935}#)))
+ (if #{t 17939}# #{t 17939}# #{s 17930}#))
#f
- #{mod 17945}#
+ #{mod 17933}#
#f)))
- (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}#
+ (lambda (#{type 18199}#
+ #{value 18200}#
+ #{e 18201}#
+ #{w 18202}#
+ #{s 18203}#
+ #{mod 18204}#)
+ (if (eqv? #{type 18199}# 'begin-form)
+ (let ((#{tmp 18209}#
+ ($sc-dispatch #{e 18201}# '(_))))
+ (if #{tmp 18209}#
+ (@apply (lambda () #{exps 17934}#) #{tmp 18209}#)
+ (let ((#{tmp 18213}#
($sc-dispatch
- #{e 18213}#
+ #{e 18201}#
'(_ any . each-any))))
- (if #{tmp 18225}#
+ (if #{tmp 18213}#
(@apply
- (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}#)
+ (lambda (#{e1 18217}# #{e2 18218}#)
+ (#{scan 17796}#
+ (cons #{e1 18217}# #{e2 18218}#)
+ #{r 17928}#
+ #{w 18202}#
+ #{s 18203}#
+ #{m 17931}#
+ #{esew 17932}#
+ #{mod 18204}#
+ #{exps 17934}#))
+ #{tmp 18213}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{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}#
+ #{e 18201}#)))))
+ (if (eqv? #{type 18199}# 'local-syntax-form)
+ (#{expand-local-syntax 4338}#
+ #{value 18200}#
+ #{e 18201}#
+ #{r 17928}#
+ #{w 18202}#
+ #{s 18203}#
+ #{mod 18204}#
+ (lambda (#{body 18233}#
+ #{r 18234}#
+ #{w 18235}#
+ #{s 18236}#
+ #{mod 18237}#)
+ (#{scan 17796}#
+ #{body 18233}#
+ #{r 18234}#
+ #{w 18235}#
+ #{s 18236}#
+ #{m 17931}#
+ #{esew 17932}#
+ #{mod 18237}#
+ #{exps 17934}#)))
+ (if (eqv? #{type 18199}# 'eval-when-form)
+ (let ((#{tmp 18242}#
($sc-dispatch
- #{e 18213}#
+ #{e 18201}#
'(_ each-any any . each-any))))
- (if #{tmp 18254}#
+ (if #{tmp 18242}#
(@apply
- (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}#
+ (lambda (#{x 18246}#
+ #{e1 18247}#
+ #{e2 18248}#)
+ (let ((#{when-list 18249}#
+ (#{parse-when-list 4331}#
+ #{e 18201}#
+ #{x 18246}#))
+ (#{body 18250}#
+ (cons #{e1 18247}#
+ #{e2 18248}#)))
+ (if (eq? #{m 17931}# 'e)
+ (if (memq 'eval #{when-list 18249}#)
+ (#{scan 17796}#
+ #{body 18250}#
+ #{r 17928}#
+ #{w 18202}#
+ #{s 18203}#
(if (memq 'expand
- #{when-list 18261}#)
+ #{when-list 18249}#)
'c&e
'e)
'(eval)
- #{mod 18216}#
- #{exps 17946}#)
+ #{mod 18204}#
+ #{exps 17934}#)
(begin
(if (memq 'expand
- #{when-list 18261}#)
- (let ((#{x 18269}#
- (#{expand-top-sequence 4341}#
- #{body 18262}#
- #{r 17940}#
- #{w 18214}#
- #{s 18215}#
+ #{when-list 18249}#)
+ (let ((#{x 18327}#
+ (#{expand-top-sequence 4329}#
+ #{body 18250}#
+ #{r 17928}#
+ #{w 18202}#
+ #{s 18203}#
'e
'(eval)
- #{mod 18216}#)))
+ #{mod 18204}#)))
(primitive-eval
- #{x 18269}#)))
- (values #{exps 17946}#)))
- (if (memq 'load #{when-list 18261}#)
- (if (let ((#{t 18271}#
+ #{x 18327}#)))
+ (values #{exps 17934}#)))
+ (if (memq 'load #{when-list 18249}#)
+ (if (let ((#{t 18353}#
(memq 'compile
- #{when-list 18261}#)))
- (if #{t 18271}#
- #{t 18271}#
- (let ((#{t 18273}#
+ #{when-list 18249}#)))
+ (if #{t 18353}#
+ #{t 18353}#
+ (let ((#{t 18402}#
(memq 'expand
- #{when-list 18261}#)))
- (if #{t 18273}#
- #{t 18273}#
- (if (eq? #{m 17943}#
+ #{when-list 18249}#)))
+ (if #{t 18402}#
+ #{t 18402}#
+ (if (eq? #{m 17931}#
'c&e)
(memq 'eval
- #{when-list 18261}#)
+ #{when-list 18249}#)
#f)))))
- (#{scan 17808}#
- #{body 18262}#
- #{r 17940}#
- #{w 18214}#
- #{s 18215}#
+ (#{scan 17796}#
+ #{body 18250}#
+ #{r 17928}#
+ #{w 18202}#
+ #{s 18203}#
'c&e
'(compile load)
- #{mod 18216}#
- #{exps 17946}#)
- (if (if (eq? #{m 17943}# 'c)
+ #{mod 18204}#
+ #{exps 17934}#)
+ (if (if (eq? #{m 17931}# 'c)
#t
- (eq? #{m 17943}# 'c&e))
- (#{scan 17808}#
- #{body 18262}#
- #{r 17940}#
- #{w 18214}#
- #{s 18215}#
+ (eq? #{m 17931}# 'c&e))
+ (#{scan 17796}#
+ #{body 18250}#
+ #{r 17928}#
+ #{w 18202}#
+ #{s 18203}#
'c
'(load)
- #{mod 18216}#
- #{exps 17946}#)
- (values #{exps 17946}#)))
- (if (let ((#{t 18283}#
+ #{mod 18204}#
+ #{exps 17934}#)
+ (values #{exps 17934}#)))
+ (if (let ((#{t 18531}#
(memq 'compile
- #{when-list 18261}#)))
- (if #{t 18283}#
- #{t 18283}#
- (let ((#{t 18285}#
+ #{when-list 18249}#)))
+ (if #{t 18531}#
+ #{t 18531}#
+ (let ((#{t 18580}#
(memq 'expand
- #{when-list 18261}#)))
- (if #{t 18285}#
- #{t 18285}#
- (if (eq? #{m 17943}#
+ #{when-list 18249}#)))
+ (if #{t 18580}#
+ #{t 18580}#
+ (if (eq? #{m 17931}#
'c&e)
(memq 'eval
- #{when-list 18261}#)
+ #{when-list 18249}#)
#f)))))
(begin
- (let ((#{x 18290}#
- (#{expand-top-sequence 4341}#
- #{body 18262}#
- #{r 17940}#
- #{w 18214}#
- #{s 18215}#
+ (let ((#{x 18704}#
+ (#{expand-top-sequence 4329}#
+ #{body 18250}#
+ #{r 17928}#
+ #{w 18202}#
+ #{s 18203}#
'e
'(eval)
- #{mod 18216}#)))
- (primitive-eval #{x 18290}#))
- (values #{exps 17946}#))
- (values #{exps 17946}#))))))
- #{tmp 18254}#)
+ #{mod 18204}#)))
+ (primitive-eval #{x 18704}#))
+ (values #{exps 17934}#))
+ (values #{exps 17934}#))))))
+ #{tmp 18242}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 18213}#)))
- (if (eqv? #{type 18211}# 'define-syntax-form)
- (let ((#{n 18301}#
- (#{id-var-name 4332}#
- #{value 18212}#
- #{w 18214}#))
- (#{r 18302}#
- (#{macros-only-env 4309}#
- #{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}#))))
+ #{e 18201}#)))
+ (if (eqv? #{type 18199}# 'define-syntax-form)
+ (let ((#{n 18745}#
+ (#{id-var-name 4320}#
+ #{value 18200}#
+ #{w 18202}#))
+ (#{r 18746}#
+ (#{macros-only-env 4297}#
+ #{r 17928}#)))
+ (if (eqv? #{m 17931}# 'c)
+ (if (memq 'compile #{esew 17932}#)
+ (let ((#{e 18750}#
+ (#{expand-install-global 4330}#
+ #{n 18745}#
+ (#{expand 4333}#
+ #{e 18201}#
+ #{r 18746}#
+ #{w 18202}#
+ #{mod 18204}#))))
(begin
- (#{top-level-eval-hook 4273}#
- #{e 18306}#
- #{mod 18216}#)
- (if (memq 'load #{esew 17944}#)
+ (#{top-level-eval-hook 4261}#
+ #{e 18750}#
+ #{mod 18204}#)
+ (if (memq 'load #{esew 17932}#)
(values
- (cons #{e 18306}#
- #{exps 17946}#))
- (values #{exps 17946}#))))
- (if (memq 'load #{esew 17944}#)
+ (cons #{e 18750}#
+ #{exps 17934}#))
+ (values #{exps 17934}#))))
+ (if (memq 'load #{esew 17932}#)
(values
- (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}#))))
+ (cons (#{expand-install-global 4330}#
+ #{n 18745}#
+ (#{expand 4333}#
+ #{e 18201}#
+ #{r 18746}#
+ #{w 18202}#
+ #{mod 18204}#))
+ #{exps 17934}#))
+ (values #{exps 17934}#)))
+ (if (eqv? #{m 17931}# 'c&e)
+ (let ((#{e 19207}#
+ (#{expand-install-global 4330}#
+ #{n 18745}#
+ (#{expand 4333}#
+ #{e 18201}#
+ #{r 18746}#
+ #{w 18202}#
+ #{mod 18204}#))))
(begin
- (#{top-level-eval-hook 4273}#
- #{e 18763}#
- #{mod 18216}#)
+ (#{top-level-eval-hook 4261}#
+ #{e 19207}#
+ #{mod 18204}#)
(values
- (cons #{e 18763}#
- #{exps 17946}#))))
+ (cons #{e 19207}#
+ #{exps 17934}#))))
(begin
- (if (memq 'eval #{esew 17944}#)
- (#{top-level-eval-hook 4273}#
- (#{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 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}#
+ (if (memq 'eval #{esew 17932}#)
+ (#{top-level-eval-hook 4261}#
+ (#{expand-install-global 4330}#
+ #{n 18745}#
+ (#{expand 4333}#
+ #{e 18201}#
+ #{r 18746}#
+ #{w 18202}#
+ #{mod 18204}#))
+ #{mod 18204}#))
+ (values #{exps 17934}#)))))
+ (if (eqv? #{type 18199}# 'define-form)
+ (let ((#{n 19857}#
+ (#{id-var-name 4320}#
+ #{value 18200}#
+ #{w 18202}#)))
+ (let ((#{type 19858}#
+ (car (let ((#{t 20627}#
+ (assq #{n 19857}#
+ #{r 17928}#)))
+ (if #{t 20627}#
+ (cdr #{t 20627}#)
+ (if (symbol? #{n 19857}#)
+ (let ((#{t 20632}#
(begin
- (if (if (not #{mod 18216}#)
+ (if (if (not #{mod 18204}#)
(current-module)
#f)
(warn "module system is booted, we should have a module"
- #{n 19413}#))
- (let ((#{v 20225}#
+ #{n 19857}#))
+ (let ((#{v 20669}#
(module-variable
- (if #{mod 18216}#
+ (if #{mod 18204}#
(resolve-module
- (cdr #{mod 18216}#))
+ (cdr #{mod 18204}#))
(current-module))
- #{n 19413}#)))
- (if #{v 20225}#
+ #{n 19857}#)))
+ (if #{v 20669}#
(if (variable-bound?
- #{v 20225}#)
- (let ((#{val 20234}#
+ #{v 20669}#)
+ (let ((#{val 20678}#
(variable-ref
- #{v 20225}#)))
+ #{v 20669}#)))
(if (macro?
- #{val 20234}#)
+ #{val 20678}#)
(if (macro-type
- #{val 20234}#)
+ #{val 20678}#)
(cons (macro-type
- #{val 20234}#)
+ #{val 20678}#)
(macro-binding
- #{val 20234}#))
+ #{val 20678}#))
#f)
#f))
#f)
#f)))))
- (if #{t 20188}#
- #{t 20188}#
+ (if #{t 20632}#
+ #{t 20632}#
'(global)))
'(displaced-lexical)))))))
- (if (let ((#{t 19448}# #{type 19414}#))
- (if (eqv? #{t 19448}# 'global)
+ (if (let ((#{t 19892}# #{type 19858}#))
+ (if (eqv? #{t 19892}# 'global)
#t
- (if (eqv? #{t 19448}# 'core)
+ (if (eqv? #{t 19892}# 'core)
#t
- (if (eqv? #{t 19448}# 'macro)
+ (if (eqv? #{t 19892}# 'macro)
#t
- (eqv? #{t 19448}#
+ (eqv? #{t 19892}#
'module-ref)))))
(begin
- (if (if (if (eq? #{m 17943}# 'c)
+ (if (if (if (eq? #{m 17931}# 'c)
#t
- (eq? #{m 17943}# 'c&e))
+ (eq? #{m 17931}# 'c&e))
(if (not (module-local-variable
(current-module)
- #{n 19413}#))
+ #{n 19857}#))
(current-module)
#f)
#f)
- (let ((#{old 19612}#
+ (let ((#{old 20056}#
(module-variable
(current-module)
- #{n 19413}#)))
- (if (if (variable? #{old 19612}#)
+ #{n 19857}#)))
+ (if (if (variable? #{old 20056}#)
(variable-bound?
- #{old 19612}#)
+ #{old 20056}#)
#f)
(module-define!
(current-module)
- #{n 19413}#
- (variable-ref #{old 19612}#))
+ #{n 19857}#
+ (variable-ref #{old 20056}#))
(module-add!
(current-module)
- #{n 19413}#
+ #{n 19857}#
(make-undefined-variable)))))
(values
- (cons (if (eq? #{m 17943}# 'c&e)
- (let ((#{x 19614}#
- (#{build-global-definition 4288}#
- #{s 18215}#
- #{n 19413}#
- (#{expand 4345}#
- #{e 18213}#
- #{r 17940}#
- #{w 18214}#
- #{mod 18216}#))))
+ (cons (if (eq? #{m 17931}# 'c&e)
+ (let ((#{x 20058}#
+ (#{build-global-definition 4276}#
+ #{s 18203}#
+ #{n 19857}#
+ (#{expand 4333}#
+ #{e 18201}#
+ #{r 17928}#
+ #{w 18202}#
+ #{mod 18204}#))))
(begin
- (#{top-level-eval-hook 4273}#
- #{x 19614}#
- #{mod 18216}#)
- #{x 19614}#))
+ (#{top-level-eval-hook 4261}#
+ #{x 20058}#
+ #{mod 18204}#)
+ #{x 20058}#))
(lambda ()
- (#{build-global-definition 4288}#
- #{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}#
+ (#{build-global-definition 4276}#
+ #{s 18203}#
+ #{n 19857}#
+ (#{expand 4333}#
+ #{e 18201}#
+ #{r 17928}#
+ #{w 18202}#
+ #{mod 18204}#))))
+ #{exps 17934}#)))
+ (if (let ((#{t 20554}# #{type 19858}#))
+ (eqv? #{t 20554}#
'displaced-lexical))
(syntax-violation
#f
"identifier out of context"
- #{e 18213}#
- (#{wrap 4338}#
- #{value 18212}#
- #{w 18214}#
- #{mod 18216}#))
+ #{e 18201}#
+ (#{wrap 4326}#
+ #{value 18200}#
+ #{w 18202}#
+ #{mod 18204}#))
(syntax-violation
#f
"cannot define keyword at top level"
- #{e 18213}#
- (#{wrap 4338}#
- #{value 18212}#
- #{w 18214}#
- #{mod 18216}#))))))
+ #{e 18201}#
+ (#{wrap 4326}#
+ #{value 18200}#
+ #{w 18202}#
+ #{mod 18204}#))))))
(values
- (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}#)))
+ (cons (if (eq? #{m 17931}# 'c&e)
+ (let ((#{x 20689}#
+ (#{expand-expr 4334}#
+ #{type 18199}#
+ #{value 18200}#
+ #{e 18201}#
+ #{r 17928}#
+ #{w 18202}#
+ #{s 18203}#
+ #{mod 18204}#)))
(begin
- (primitive-eval #{x 20245}#)
- #{x 20245}#))
+ (primitive-eval #{x 20689}#)
+ #{x 20689}#))
(lambda ()
- (#{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}#)))))))
+ (#{expand-expr 4334}#
+ #{type 18199}#
+ #{value 18200}#
+ #{e 18201}#
+ #{r 17928}#
+ #{w 18202}#
+ #{s 18203}#
+ #{mod 18204}#)))
+ #{exps 17934}#))))))))))
+ (lambda (#{exps 20698}#)
+ (#{scan 17796}#
+ (cdr #{body 17927}#)
+ #{r 17928}#
+ #{w 17929}#
+ #{s 17930}#
+ #{m 17931}#
+ #{esew 17932}#
+ #{mod 17933}#
+ #{exps 20698}#)))))))
(call-with-values
(lambda ()
- (#{scan 17808}#
- #{body 17801}#
- #{r 17802}#
- #{w 17803}#
- #{s 17804}#
- #{m 17805}#
- #{esew 17806}#
- #{mod 17807}#
+ (#{scan 17796}#
+ #{body 17789}#
+ #{r 17790}#
+ #{w 17791}#
+ #{s 17792}#
+ #{m 17793}#
+ #{esew 17794}#
+ #{mod 17795}#
'()))
- (lambda (#{exps 17811}#)
- (if (null? #{exps 17811}#)
+ (lambda (#{exps 17799}#)
+ (if (null? #{exps 17799}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 0)
- #{s 17804}#)
- (#{build-sequence 4294}#
- #{s 17804}#
+ #{s 17792}#)
+ (#{build-sequence 4282}#
+ #{s 17792}#
(letrec*
- ((#{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}#
+ ((#{lp 17839}#
+ (lambda (#{in 17923}# #{out 17924}#)
+ (if (null? #{in 17923}#)
+ #{out 17924}#
+ (let ((#{e 17925}# (car #{in 17923}#)))
+ (#{lp 17839}#
+ (cdr #{in 17923}#)
+ (cons (if (procedure? #{e 17925}#)
+ (#{e 17925}#)
+ #{e 17925}#)
+ #{out 17924}#)))))))
+ (#{lp 17839}# #{exps 17799}# '())))))))))
+ (#{expand-install-global 4330}#
+ (lambda (#{name 20699}# #{e 20700}#)
+ (let ((#{exp 20706}#
+ (let ((#{fun-exp 20716}#
(if (equal? (module-name (current-module)) '(guile))
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
'(guile)
'make-syntax-transformer
#f)))
- (#{arg-exps 20273}#
+ (#{arg-exps 20717}#
(list (make-struct/no-tail
(vector-ref %expanded-vtables 1)
#f
- #{name 20255}#)
+ #{name 20699}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 1)
#f
'macro)
- #{e 20256}#)))
+ #{e 20700}#)))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
#f
- #{fun-exp 20272}#
- #{arg-exps 20273}#))))
+ #{fun-exp 20716}#
+ #{arg-exps 20717}#))))
(begin
- (if (if (struct? #{exp 20262}#)
- (eq? (struct-vtable #{exp 20262}#)
+ (if (if (struct? #{exp 20706}#)
+ (eq? (struct-vtable #{exp 20706}#)
(vector-ref %expanded-vtables 13))
#f)
- (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}#)))))
+ (let ((#{meta 20758}# (struct-ref #{exp 20706}# 1)))
+ (if (not (assq 'name #{meta 20758}#))
+ (let ((#{v 20765}#
+ (cons (cons 'name #{name 20699}#) #{meta 20758}#)))
+ (struct-set! #{exp 20706}# 1 #{v 20765}#)))))
(make-struct/no-tail
(vector-ref %expanded-vtables 9)
#f
- #{name 20255}#
- #{exp 20262}#)))))
- (#{expand-when-list 4343}#
- (lambda (#{e 20332}# #{when-list 20333}# #{w 20334}#)
- (letrec*
- ((#{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 20340}# 0)
- 'syntax-object)
- #f)
- #f)
- (vector-ref #{x 20340}# 1)
- #{x 20340}#)
- (if (if (= (vector-length
- '#(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
- expand-lambda-case
- lambda*-formals
- expand-simple-lambda
- lambda-formals
- ellipsis?
- expand-void
- eval-local-transformer
- expand-local-syntax
- expand-body
- expand-macro
- expand-application
- expand-expr
- expand
- syntax-type
- expand-when-list
- expand-install-global
- expand-top-sequence
- expand-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)
- #t
- #f)
- 'compile
- '#(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
- expand-lambda-case
- lambda*-formals
- expand-simple-lambda
- lambda-formals
- ellipsis?
- expand-void
- eval-local-transformer
- expand-local-syntax
- expand-body
- expand-macro
- expand-application
- expand-expr
- expand
- syntax-type
- expand-when-list
- expand-install-global
- expand-top-sequence
- expand-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 20340}# '(()))
- (#{id-var-name 4332}#
- '#(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
- expand-lambda-case
- lambda*-formals
- expand-simple-lambda
- lambda-formals
- ellipsis?
- expand-void
- eval-local-transformer
- expand-local-syntax
- expand-body
- expand-macro
- expand-application
- expand-expr
- expand
- syntax-type
- expand-when-list
- expand-install-global
- expand-top-sequence
- expand-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)
- 'compile
- (if (if (eq? (if (if (vector? #{x 20340}#)
- (if (= (vector-length
- #{x 20340}#)
- 4)
- (eq? (vector-ref
- #{x 20340}#
- 0)
- 'syntax-object)
- #f)
- #f)
- (vector-ref #{x 20340}# 1)
- #{x 20340}#)
- (if (if (= (vector-length
- '#(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
- expand-lambda-case
- lambda*-formals
- expand-simple-lambda
- lambda-formals
- ellipsis?
- expand-void
- eval-local-transformer
- expand-local-syntax
- expand-body
- expand-macro
- expand-application
- expand-expr
- expand
- syntax-type
- expand-when-list
- expand-install-global
- expand-top-sequence
- expand-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)
- #t
- #f)
- 'load
- '#(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
- expand-lambda-case
- lambda*-formals
- expand-simple-lambda
- lambda-formals
- ellipsis?
- expand-void
- eval-local-transformer
- expand-local-syntax
- expand-body
- expand-macro
- expand-application
- expand-expr
- expand
- syntax-type
- expand-when-list
- expand-install-global
- expand-top-sequence
- expand-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 20340}# '(()))
- (#{id-var-name 4332}#
- '#(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
- expand-lambda-case
- lambda*-formals
- expand-simple-lambda
- lambda-formals
- ellipsis?
- expand-void
- eval-local-transformer
- expand-local-syntax
- expand-body
- expand-macro
- expand-application
- expand-expr
- expand
- syntax-type
- expand-when-list
- expand-install-global
- expand-top-sequence
- expand-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)
- 'load
- (if (if (eq? (if (if (vector? #{x 20340}#)
- (if (= (vector-length
- #{x 20340}#)
- 4)
- (eq? (vector-ref
- #{x 20340}#
- 0)
- 'syntax-object)
- #f)
- #f)
- (vector-ref #{x 20340}# 1)
- #{x 20340}#)
- (if (if (= (vector-length
- '#(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
- expand-lambda-case
- lambda*-formals
- expand-simple-lambda
- lambda-formals
- ellipsis?
- expand-void
- eval-local-transformer
- expand-local-syntax
- expand-body
- expand-macro
- expand-application
- expand-expr
- expand
- syntax-type
- expand-when-list
- expand-install-global
- expand-top-sequence
- expand-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)
- #t
- #f)
- 'eval
- '#(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
- expand-lambda-case
- lambda*-formals
- expand-simple-lambda
- lambda-formals
- ellipsis?
- expand-void
- eval-local-transformer
- expand-local-syntax
- expand-body
- expand-macro
- expand-application
- expand-expr
- expand
- syntax-type
- expand-when-list
- expand-install-global
- expand-top-sequence
- expand-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 20340}#
- '(()))
- (#{id-var-name 4332}#
- '#(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
- expand-lambda-case
- lambda*-formals
- expand-simple-lambda
- lambda-formals
- ellipsis?
- expand-void
- eval-local-transformer
- expand-local-syntax
- expand-body
- expand-macro
- expand-application
- expand-expr
- expand
- syntax-type
- expand-when-list
- expand-install-global
- expand-top-sequence
- expand-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)
- 'eval
- (if (eq? (syntax->datum #{x 20340}#) 'expand)
- 'expand
- (syntax-violation
- 'eval-when
- "invalid situation"
- #{e 20332}#
- (#{wrap 4338}#
- #{x 20340}#
- #{w 20334}#
- #f)))))))
- #{situations 20339}#))))))
- (#{f 20335}# #{when-list 20333}# '()))))
- (#{syntax-type 4344}#
- (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}#
+ #{name 20699}#
+ #{exp 20706}#)))))
+ (#{parse-when-list 4331}#
+ (lambda (#{e 20776}# #{when-list 20777}#)
+ (let ((#{result 20778}#
+ (#{strip 4346}# #{when-list 20777}# '(()))))
+ (letrec*
+ ((#{lp 20779}#
+ (lambda (#{l 20833}#)
+ (if (null? #{l 20833}#)
+ #{result 20778}#
+ (if (let ((#{t 20835}# (car #{l 20833}#)))
+ (if (eq? #{t 20835}# 'compile)
+ #t
+ (if (eq? #{t 20835}# 'load)
+ #t
+ (if (eq? #{t 20835}# 'eval)
+ #t
+ (eq? #{t 20835}# 'expand)))))
+ (#{lp 20779}# (cdr #{l 20833}#))
+ (syntax-violation
+ 'eval-when
+ "invalid situation"
+ #{e 20776}#
+ (car #{l 20833}#)))))))
+ (#{lp 20779}# #{result 20778}#)))))
+ (#{syntax-type 4332}#
+ (lambda (#{e 20837}#
+ #{r 20838}#
+ #{w 20839}#
+ #{s 20840}#
+ #{rib 20841}#
+ #{mod 20842}#
+ #{for-car? 20843}#)
+ (if (symbol? #{e 20837}#)
+ (let ((#{n 20844}#
+ (#{id-var-name 4320}# #{e 20837}# #{w 20839}#)))
+ (let ((#{b 20845}#
+ (let ((#{t 21420}# (assq #{n 20844}# #{r 20838}#)))
+ (if #{t 21420}#
+ (cdr #{t 21420}#)
+ (if (symbol? #{n 20844}#)
+ (let ((#{t 21425}#
(begin
- (if (if (not #{mod 20507}#)
+ (if (if (not #{mod 20842}#)
(current-module)
#f)
(warn "module system is booted, we should have a module"
- #{n 20509}#))
- (let ((#{v 21127}#
+ #{n 20844}#))
+ (let ((#{v 21462}#
(module-variable
- (if #{mod 20507}#
+ (if #{mod 20842}#
(resolve-module
- (cdr #{mod 20507}#))
+ (cdr #{mod 20842}#))
(current-module))
- #{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}#)
+ #{n 20844}#)))
+ (if #{v 21462}#
+ (if (variable-bound? #{v 21462}#)
+ (let ((#{val 21471}#
+ (variable-ref #{v 21462}#)))
+ (if (macro? #{val 21471}#)
+ (if (macro-type #{val 21471}#)
+ (cons (macro-type #{val 21471}#)
(macro-binding
- #{val 21136}#))
+ #{val 21471}#))
#f)
#f))
#f)
#f)))))
- (if #{t 21090}# #{t 21090}# '(global)))
+ (if #{t 21425}# #{t 21425}# '(global)))
'(displaced-lexical))))))
- (let ((#{type 20511}# (car #{b 20510}#)))
- (if (let ((#{t 20545}# #{type 20511}#))
- (eqv? #{t 20545}# 'lexical))
+ (let ((#{type 20846}# (car #{b 20845}#)))
+ (if (let ((#{t 20880}# #{type 20846}#))
+ (eqv? #{t 20880}# 'lexical))
(values
- #{type 20511}#
- (cdr #{b 20510}#)
- #{e 20502}#
- #{w 20504}#
- #{s 20505}#
- #{mod 20507}#)
- (if (let ((#{t 20702}# #{type 20511}#))
- (eqv? #{t 20702}# 'global))
+ #{type 20846}#
+ (cdr #{b 20845}#)
+ #{e 20837}#
+ #{w 20839}#
+ #{s 20840}#
+ #{mod 20842}#)
+ (if (let ((#{t 21037}# #{type 20846}#))
+ (eqv? #{t 21037}# 'global))
(values
- #{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}#
+ #{type 20846}#
+ #{n 20844}#
+ #{e 20837}#
+ #{w 20839}#
+ #{s 20840}#
+ #{mod 20842}#)
+ (if (let ((#{t 21163}# #{type 20846}#))
+ (eqv? #{t 21163}# 'macro))
+ (if #{for-car? 20843}#
(values
- #{type 20511}#
- (cdr #{b 20510}#)
- #{e 20502}#
- #{w 20504}#
- #{s 20505}#
- #{mod 20507}#)
- (#{syntax-type 4344}#
- (#{expand-macro 4348}#
- (cdr #{b 20510}#)
- #{e 20502}#
- #{r 20503}#
- #{w 20504}#
- #{s 20505}#
- #{rib 20506}#
- #{mod 20507}#)
- #{r 20503}#
+ #{type 20846}#
+ (cdr #{b 20845}#)
+ #{e 20837}#
+ #{w 20839}#
+ #{s 20840}#
+ #{mod 20842}#)
+ (#{syntax-type 4332}#
+ (#{expand-macro 4336}#
+ (cdr #{b 20845}#)
+ #{e 20837}#
+ #{r 20838}#
+ #{w 20839}#
+ #{s 20840}#
+ #{rib 20841}#
+ #{mod 20842}#)
+ #{r 20838}#
'(())
- #{s 20505}#
- #{rib 20506}#
- #{mod 20507}#
+ #{s 20840}#
+ #{rib 20841}#
+ #{mod 20842}#
#f))
(values
- #{type 20511}#
- (cdr #{b 20510}#)
- #{e 20502}#
- #{w 20504}#
- #{s 20505}#
- #{mod 20507}#)))))))
- (if (pair? #{e 20502}#)
- (let ((#{first 21147}# (car #{e 20502}#)))
+ #{type 20846}#
+ (cdr #{b 20845}#)
+ #{e 20837}#
+ #{w 20839}#
+ #{s 20840}#
+ #{mod 20842}#)))))))
+ (if (pair? #{e 20837}#)
+ (let ((#{first 21482}# (car #{e 20837}#)))
(call-with-values
(lambda ()
- (#{syntax-type 4344}#
- #{first 21147}#
- #{r 20503}#
- #{w 20504}#
- #{s 20505}#
- #{rib 20506}#
- #{mod 20507}#
+ (#{syntax-type 4332}#
+ #{first 21482}#
+ #{r 20838}#
+ #{w 20839}#
+ #{s 20840}#
+ #{rib 20841}#
+ #{mod 20842}#
#t))
- (lambda (#{ftype 21149}#
- #{fval 21150}#
- #{fe 21151}#
- #{fw 21152}#
- #{fs 21153}#
- #{fmod 21154}#)
- (if (eqv? #{ftype 21149}# 'lexical)
+ (lambda (#{ftype 21484}#
+ #{fval 21485}#
+ #{fe 21486}#
+ #{fw 21487}#
+ #{fs 21488}#
+ #{fmod 21489}#)
+ (if (eqv? #{ftype 21484}# 'lexical)
(values
'lexical-call
- #{fval 21150}#
- #{e 20502}#
- #{w 20504}#
- #{s 20505}#
- #{mod 20507}#)
- (if (eqv? #{ftype 21149}# 'global)
+ #{fval 21485}#
+ #{e 20837}#
+ #{w 20839}#
+ #{s 20840}#
+ #{mod 20842}#)
+ (if (eqv? #{ftype 21484}# 'global)
(values
'global-call
(vector
'syntax-object
- #{fval 21150}#
- #{w 20504}#
- #{fmod 21154}#)
- #{e 20502}#
- #{w 20504}#
- #{s 20505}#
- #{mod 20507}#)
- (if (eqv? #{ftype 21149}# 'macro)
- (#{syntax-type 4344}#
- (#{expand-macro 4348}#
- #{fval 21150}#
- #{e 20502}#
- #{r 20503}#
- #{w 20504}#
- #{s 20505}#
- #{rib 20506}#
- #{mod 20507}#)
- #{r 20503}#
+ #{fval 21485}#
+ #{w 20839}#
+ #{fmod 21489}#)
+ #{e 20837}#
+ #{w 20839}#
+ #{s 20840}#
+ #{mod 20842}#)
+ (if (eqv? #{ftype 21484}# 'macro)
+ (#{syntax-type 4332}#
+ (#{expand-macro 4336}#
+ #{fval 21485}#
+ #{e 20837}#
+ #{r 20838}#
+ #{w 20839}#
+ #{s 20840}#
+ #{rib 20841}#
+ #{mod 20842}#)
+ #{r 20838}#
'(())
- #{s 20505}#
- #{rib 20506}#
- #{mod 20507}#
- #{for-car? 20508}#)
- (if (eqv? #{ftype 21149}# 'module-ref)
+ #{s 20840}#
+ #{rib 20841}#
+ #{mod 20842}#
+ #{for-car? 20843}#)
+ (if (eqv? #{ftype 21484}# 'module-ref)
(call-with-values
(lambda ()
- (#{fval 21150}#
- #{e 20502}#
- #{r 20503}#
- #{w 20504}#))
- (lambda (#{e 21175}#
- #{r 21176}#
- #{w 21177}#
- #{s 21178}#
- #{mod 21179}#)
- (#{syntax-type 4344}#
- #{e 21175}#
- #{r 21176}#
- #{w 21177}#
- #{s 21178}#
- #{rib 20506}#
- #{mod 21179}#
- #{for-car? 20508}#)))
- (if (eqv? #{ftype 21149}# 'core)
+ (#{fval 21485}#
+ #{e 20837}#
+ #{r 20838}#
+ #{w 20839}#))
+ (lambda (#{e 21510}#
+ #{r 21511}#
+ #{w 21512}#
+ #{s 21513}#
+ #{mod 21514}#)
+ (#{syntax-type 4332}#
+ #{e 21510}#
+ #{r 21511}#
+ #{w 21512}#
+ #{s 21513}#
+ #{rib 20841}#
+ #{mod 21514}#
+ #{for-car? 20843}#)))
+ (if (eqv? #{ftype 21484}# 'core)
(values
'core-form
- #{fval 21150}#
- #{e 20502}#
- #{w 20504}#
- #{s 20505}#
- #{mod 20507}#)
- (if (eqv? #{ftype 21149}# 'local-syntax)
+ #{fval 21485}#
+ #{e 20837}#
+ #{w 20839}#
+ #{s 20840}#
+ #{mod 20842}#)
+ (if (eqv? #{ftype 21484}# 'local-syntax)
(values
'local-syntax-form
- #{fval 21150}#
- #{e 20502}#
- #{w 20504}#
- #{s 20505}#
- #{mod 20507}#)
- (if (eqv? #{ftype 21149}# 'begin)
+ #{fval 21485}#
+ #{e 20837}#
+ #{w 20839}#
+ #{s 20840}#
+ #{mod 20842}#)
+ (if (eqv? #{ftype 21484}# 'begin)
(values
'begin-form
#f
- #{e 20502}#
- #{w 20504}#
- #{s 20505}#
- #{mod 20507}#)
- (if (eqv? #{ftype 21149}# 'eval-when)
+ #{e 20837}#
+ #{w 20839}#
+ #{s 20840}#
+ #{mod 20842}#)
+ (if (eqv? #{ftype 21484}# 'eval-when)
(values
'eval-when-form
#f
- #{e 20502}#
- #{w 20504}#
- #{s 20505}#
- #{mod 20507}#)
- (if (eqv? #{ftype 21149}# 'define)
- (let ((#{tmp 21196}#
+ #{e 20837}#
+ #{w 20839}#
+ #{s 20840}#
+ #{mod 20842}#)
+ (if (eqv? #{ftype 21484}# 'define)
+ (let ((#{tmp 21531}#
($sc-dispatch
- #{e 20502}#
+ #{e 20837}#
'(_ any any))))
- (if (if #{tmp 21196}#
+ (if (if #{tmp 21531}#
(@apply
- (lambda (#{name 21200}#
- #{val 21201}#)
- (if (symbol? #{name 21200}#)
+ (lambda (#{name 21535}#
+ #{val 21536}#)
+ (if (symbol? #{name 21535}#)
#t
(if (if (vector?
- #{name 21200}#)
+ #{name 21535}#)
(if (= (vector-length
- #{name 21200}#)
+ #{name 21535}#)
4)
(eq? (vector-ref
- #{name 21200}#
+ #{name 21535}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{name 21200}#
+ #{name 21535}#
1))
#f)))
- #{tmp 21196}#)
+ #{tmp 21531}#)
#f)
(@apply
- (lambda (#{name 21228}# #{val 21229}#)
+ (lambda (#{name 21563}# #{val 21564}#)
(values
'define-form
- #{name 21228}#
- #{val 21229}#
- #{w 20504}#
- #{s 20505}#
- #{mod 20507}#))
- #{tmp 21196}#)
- (let ((#{tmp 21230}#
+ #{name 21563}#
+ #{val 21564}#
+ #{w 20839}#
+ #{s 20840}#
+ #{mod 20842}#))
+ #{tmp 21531}#)
+ (let ((#{tmp 21565}#
($sc-dispatch
- #{e 20502}#
+ #{e 20837}#
'(_ (any . any)
any
.
each-any))))
- (if (if #{tmp 21230}#
+ (if (if #{tmp 21565}#
(@apply
- (lambda (#{name 21234}#
- #{args 21235}#
- #{e1 21236}#
- #{e2 21237}#)
+ (lambda (#{name 21569}#
+ #{args 21570}#
+ #{e1 21571}#
+ #{e2 21572}#)
(if (if (symbol?
- #{name 21234}#)
+ #{name 21569}#)
#t
(if (if (vector?
- #{name 21234}#)
+ #{name 21569}#)
(if (= (vector-length
- #{name 21234}#)
+ #{name 21569}#)
4)
(eq? (vector-ref
- #{name 21234}#
+ #{name 21569}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{name 21234}#
+ #{name 21569}#
1))
#f))
- (#{valid-bound-ids? 4335}#
+ (#{valid-bound-ids? 4323}#
(letrec*
- ((#{lvl 21386}#
- (lambda (#{vars 21388}#
- #{ls 21389}#
- #{w 21390}#)
- (if (pair? #{vars 21388}#)
- (#{lvl 21386}#
- (cdr #{vars 21388}#)
- (cons (#{wrap 4338}#
- (car #{vars 21388}#)
- #{w 21390}#
+ ((#{lvl 21721}#
+ (lambda (#{vars 21723}#
+ #{ls 21724}#
+ #{w 21725}#)
+ (if (pair? #{vars 21723}#)
+ (#{lvl 21721}#
+ (cdr #{vars 21723}#)
+ (cons (#{wrap 4326}#
+ (car #{vars 21723}#)
+ #{w 21725}#
#f)
- #{ls 21389}#)
- #{w 21390}#)
+ #{ls 21724}#)
+ #{w 21725}#)
(if (if (symbol?
- #{vars 21388}#)
+ #{vars 21723}#)
#t
(if (if (vector?
- #{vars 21388}#)
+ #{vars 21723}#)
(if (= (vector-length
- #{vars 21388}#)
+ #{vars 21723}#)
4)
(eq? (vector-ref
- #{vars 21388}#
+ #{vars 21723}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{vars 21388}#
+ #{vars 21723}#
1))
#f))
- (cons (#{wrap 4338}#
- #{vars 21388}#
- #{w 21390}#
+ (cons (#{wrap 4326}#
+ #{vars 21723}#
+ #{w 21725}#
#f)
- #{ls 21389}#)
- (if (null? #{vars 21388}#)
- #{ls 21389}#
+ #{ls 21724}#)
+ (if (null? #{vars 21723}#)
+ #{ls 21724}#
(if (if (vector?
- #{vars 21388}#)
+ #{vars 21723}#)
(if (= (vector-length
- #{vars 21388}#)
+ #{vars 21723}#)
4)
(eq? (vector-ref
- #{vars 21388}#
+ #{vars 21723}#
0)
'syntax-object)
#f)
#f)
- (#{lvl 21386}#
+ (#{lvl 21721}#
(vector-ref
- #{vars 21388}#
+ #{vars 21723}#
1)
- #{ls 21389}#
- (#{join-wraps 4329}#
- #{w 21390}#
+ #{ls 21724}#
+ (#{join-wraps 4317}#
+ #{w 21725}#
(vector-ref
- #{vars 21388}#
+ #{vars 21723}#
2)))
- (cons #{vars 21388}#
- #{ls 21389}#))))))))
- (#{lvl 21386}#
- #{args 21235}#
+ (cons #{vars 21723}#
+ #{ls 21724}#))))))))
+ (#{lvl 21721}#
+ #{args 21570}#
'()
'(()))))
#f))
- #{tmp 21230}#)
+ #{tmp 21565}#)
#f)
(@apply
- (lambda (#{name 21434}#
- #{args 21435}#
- #{e1 21436}#
- #{e2 21437}#)
+ (lambda (#{name 21769}#
+ #{args 21770}#
+ #{e1 21771}#
+ #{e2 21772}#)
(values
'define-form
- (#{wrap 4338}#
- #{name 21434}#
- #{w 20504}#
- #{mod 20507}#)
- (let ((#{e 21443}#
+ (#{wrap 4326}#
+ #{name 21769}#
+ #{w 20839}#
+ #{mod 20842}#)
+ (let ((#{e 21778}#
(cons '#(syntax-object
lambda
((top)
(top)
(top)
(top))
- #("i1855"
- "i1856"
- "i1857"
- "i1858"))
+ #("i1843"
+ "i1844"
+ "i1845"
+ "i1846"))
#(ribcage
()
()
(top)
(top)
(top))
- #("i1808"
- "i1809"
- "i1810"
- "i1811"
- "i1812"
- "i1813"))
+ #("i1796"
+ "i1797"
+ "i1798"
+ "i1799"
+ "i1800"
+ "i1801"))
#(ribcage
()
()
#(ribcage
#(first)
#((top))
- #("i1800"))
+ #("i1788"))
#(ribcage
()
()
(top)
(top)
(top))
- #("i1772"
- "i1773"
- "i1774"
- "i1775"
- "i1776"
- "i1777"
- "i1778"))
+ #("i1760"
+ "i1761"
+ "i1762"
+ "i1763"
+ "i1764"
+ "i1765"
+ "i1766"))
#(ribcage
(lambda-var-list
gen-var
expand-expr
expand
syntax-type
- expand-when-list
+ parse-when-list
expand-install-global
expand-top-sequence
expand-sequence
"i44")))
(hygiene
guile))
- (#{wrap 4338}#
- (cons #{args 21435}#
- (cons #{e1 21436}#
- #{e2 21437}#))
- #{w 20504}#
- #{mod 20507}#))))
+ (#{wrap 4326}#
+ (cons #{args 21770}#
+ (cons #{e1 21771}#
+ #{e2 21772}#))
+ #{w 20839}#
+ #{mod 20842}#))))
(begin
- (if (if (pair? #{e 21443}#)
- #{s 20505}#
+ (if (if (pair? #{e 21778}#)
+ #{s 20840}#
#f)
(set-source-properties!
- #{e 21443}#
- #{s 20505}#))
- #{e 21443}#))
+ #{e 21778}#
+ #{s 20840}#))
+ #{e 21778}#))
'(())
- #{s 20505}#
- #{mod 20507}#))
- #{tmp 21230}#)
- (let ((#{tmp 21450}#
+ #{s 20840}#
+ #{mod 20842}#))
+ #{tmp 21565}#)
+ (let ((#{tmp 21785}#
($sc-dispatch
- #{e 20502}#
+ #{e 20837}#
'(_ any))))
- (if (if #{tmp 21450}#
+ (if (if #{tmp 21785}#
(@apply
- (lambda (#{name 21454}#)
+ (lambda (#{name 21789}#)
(if (symbol?
- #{name 21454}#)
+ #{name 21789}#)
#t
(if (if (vector?
- #{name 21454}#)
+ #{name 21789}#)
(if (= (vector-length
- #{name 21454}#)
+ #{name 21789}#)
4)
(eq? (vector-ref
- #{name 21454}#
+ #{name 21789}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{name 21454}#
+ #{name 21789}#
1))
#f)))
- #{tmp 21450}#)
+ #{tmp 21785}#)
#f)
(@apply
- (lambda (#{name 21481}#)
+ (lambda (#{name 21816}#)
(values
'define-form
- (#{wrap 4338}#
- #{name 21481}#
- #{w 20504}#
- #{mod 20507}#)
+ (#{wrap 4326}#
+ #{name 21816}#
+ #{w 20839}#
+ #{mod 20842}#)
'(#(syntax-object
if
((top)
#(ribcage
#(name)
#((top))
- #("i1868"))
+ #("i1856"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
(top)
(top)
(top))
- #("i1808"
- "i1809"
- "i1810"
- "i1811"
- "i1812"
- "i1813"))
+ #("i1796"
+ "i1797"
+ "i1798"
+ "i1799"
+ "i1800"
+ "i1801"))
#(ribcage () () ())
#(ribcage
#(first)
#((top))
- #("i1800"))
+ #("i1788"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage () () ())
(top)
(top)
(top))
- #("i1772"
- "i1773"
- "i1774"
- "i1775"
- "i1776"
- "i1777"
- "i1778"))
+ #("i1760"
+ "i1761"
+ "i1762"
+ "i1763"
+ "i1764"
+ "i1765"
+ "i1766"))
#(ribcage
(lambda-var-list
gen-var
expand-expr
expand
syntax-type
- expand-when-list
+ parse-when-list
expand-install-global
expand-top-sequence
expand-sequence
#(ribcage
#(name)
#((top))
- #("i1868"))
+ #("i1856"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
(top)
(top)
(top))
- #("i1808"
- "i1809"
- "i1810"
- "i1811"
- "i1812"
- "i1813"))
+ #("i1796"
+ "i1797"
+ "i1798"
+ "i1799"
+ "i1800"
+ "i1801"))
#(ribcage () () ())
#(ribcage
#(first)
#((top))
- #("i1800"))
+ #("i1788"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage () () ())
(top)
(top)
(top))
- #("i1772"
- "i1773"
- "i1774"
- "i1775"
- "i1776"
- "i1777"
- "i1778"))
+ #("i1760"
+ "i1761"
+ "i1762"
+ "i1763"
+ "i1764"
+ "i1765"
+ "i1766"))
#(ribcage
(lambda-var-list
gen-var
expand-expr
expand
syntax-type
- expand-when-list
+ parse-when-list
expand-install-global
expand-top-sequence
expand-sequence
#(ribcage
#(name)
#((top))
- #("i1868"))
+ #("i1856"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
(top)
(top)
(top))
- #("i1808"
- "i1809"
- "i1810"
- "i1811"
- "i1812"
- "i1813"))
+ #("i1796"
+ "i1797"
+ "i1798"
+ "i1799"
+ "i1800"
+ "i1801"))
#(ribcage () () ())
#(ribcage
#(first)
#((top))
- #("i1800"))
+ #("i1788"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage () () ())
(top)
(top)
(top))
- #("i1772"
- "i1773"
- "i1774"
- "i1775"
- "i1776"
- "i1777"
- "i1778"))
+ #("i1760"
+ "i1761"
+ "i1762"
+ "i1763"
+ "i1764"
+ "i1765"
+ "i1766"))
#(ribcage
(lambda-var-list
gen-var
expand-expr
expand
syntax-type
- expand-when-list
+ parse-when-list
expand-install-global
expand-top-sequence
expand-sequence
"i44")))
(hygiene guile)))
'(())
- #{s 20505}#
- #{mod 20507}#))
- #{tmp 21450}#)
+ #{s 20840}#
+ #{mod 20842}#))
+ #{tmp 21785}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 20502}#)))))))
- (if (eqv? #{ftype 21149}# 'define-syntax)
- (let ((#{tmp 21500}#
+ #{e 20837}#)))))))
+ (if (eqv? #{ftype 21484}# 'define-syntax)
+ (let ((#{tmp 21835}#
($sc-dispatch
- #{e 20502}#
+ #{e 20837}#
'(_ any any))))
- (if (if #{tmp 21500}#
+ (if (if #{tmp 21835}#
(@apply
- (lambda (#{name 21504}#
- #{val 21505}#)
- (if (symbol? #{name 21504}#)
+ (lambda (#{name 21839}#
+ #{val 21840}#)
+ (if (symbol? #{name 21839}#)
#t
(if (if (vector?
- #{name 21504}#)
+ #{name 21839}#)
(if (= (vector-length
- #{name 21504}#)
+ #{name 21839}#)
4)
(eq? (vector-ref
- #{name 21504}#
+ #{name 21839}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{name 21504}#
+ #{name 21839}#
1))
#f)))
- #{tmp 21500}#)
+ #{tmp 21835}#)
#f)
(@apply
- (lambda (#{name 21532}#
- #{val 21533}#)
+ (lambda (#{name 21867}#
+ #{val 21868}#)
(values
'define-syntax-form
- #{name 21532}#
- #{val 21533}#
- #{w 20504}#
- #{s 20505}#
- #{mod 20507}#))
- #{tmp 21500}#)
+ #{name 21867}#
+ #{val 21868}#
+ #{w 20839}#
+ #{s 20840}#
+ #{mod 20842}#))
+ #{tmp 21835}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 20502}#)))
+ #{e 20837}#)))
(values
'call
#f
- #{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)
+ #{e 20837}#
+ #{w 20839}#
+ #{s 20840}#
+ #{mod 20842}#))))))))))))))
+ (if (if (vector? #{e 20837}#)
+ (if (= (vector-length #{e 20837}#) 4)
+ (eq? (vector-ref #{e 20837}# 0) 'syntax-object)
#f)
#f)
- (#{syntax-type 4344}#
- (vector-ref #{e 20502}# 1)
- #{r 20503}#
- (#{join-wraps 4329}#
- #{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}#)
+ (#{syntax-type 4332}#
+ (vector-ref #{e 20837}# 1)
+ #{r 20838}#
+ (#{join-wraps 4317}#
+ #{w 20839}#
+ (vector-ref #{e 20837}# 2))
+ (let ((#{t 21895}#
+ (#{source-annotation 4294}# #{e 20837}#)))
+ (if #{t 21895}# #{t 21895}# #{s 20840}#))
+ #{rib 20841}#
+ (let ((#{t 22155}# (vector-ref #{e 20837}# 3)))
+ (if #{t 22155}# #{t 22155}# #{mod 20842}#))
+ #{for-car? 20843}#)
+ (if (self-evaluating? #{e 20837}#)
(values
'constant
#f
- #{e 20502}#
- #{w 20504}#
- #{s 20505}#
- #{mod 20507}#)
+ #{e 20837}#
+ #{w 20839}#
+ #{s 20840}#
+ #{mod 20842}#)
(values
'other
#f
- #{e 20502}#
- #{w 20504}#
- #{s 20505}#
- #{mod 20507}#)))))))
- (#{expand 4345}#
- (lambda (#{e 21829}#
- #{r 21830}#
- #{w 21831}#
- #{mod 21832}#)
+ #{e 20837}#
+ #{w 20839}#
+ #{s 20840}#
+ #{mod 20842}#)))))))
+ (#{expand 4333}#
+ (lambda (#{e 22164}#
+ #{r 22165}#
+ #{w 22166}#
+ #{mod 22167}#)
(call-with-values
(lambda ()
- (#{syntax-type 4344}#
- #{e 21829}#
- #{r 21830}#
- #{w 21831}#
- (#{source-annotation 4306}# #{e 21829}#)
+ (#{syntax-type 4332}#
+ #{e 22164}#
+ #{r 22165}#
+ #{w 22166}#
+ (#{source-annotation 4294}# #{e 22164}#)
#f
- #{mod 21832}#
+ #{mod 22167}#
#f))
- (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)
+ (lambda (#{type 22341}#
+ #{value 22342}#
+ #{e 22343}#
+ #{w 22344}#
+ #{s 22345}#
+ #{mod 22346}#)
+ (#{expand-expr 4334}#
+ #{type 22341}#
+ #{value 22342}#
+ #{e 22343}#
+ #{r 22165}#
+ #{w 22344}#
+ #{s 22345}#
+ #{mod 22346}#)))))
+ (#{expand-expr 4334}#
+ (lambda (#{type 22349}#
+ #{value 22350}#
+ #{e 22351}#
+ #{r 22352}#
+ #{w 22353}#
+ #{s 22354}#
+ #{mod 22355}#)
+ (if (eqv? #{type 22349}# 'lexical)
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
- #{s 22019}#
- #{e 22016}#
- #{value 22015}#)
- (if (if (eqv? #{type 22014}# 'core)
+ #{s 22354}#
+ #{e 22351}#
+ #{value 22350}#)
+ (if (if (eqv? #{type 22349}# 'core)
#t
- (eqv? #{type 22014}# 'core-form))
- (#{value 22015}#
- #{e 22016}#
- #{r 22017}#
- #{w 22018}#
- #{s 22019}#
- #{mod 22020}#)
- (if (eqv? #{type 22014}# 'module-ref)
+ (eqv? #{type 22349}# 'core-form))
+ (#{value 22350}#
+ #{e 22351}#
+ #{r 22352}#
+ #{w 22353}#
+ #{s 22354}#
+ #{mod 22355}#)
+ (if (eqv? #{type 22349}# 'module-ref)
(call-with-values
(lambda ()
- (#{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}#
+ (#{value 22350}#
+ #{e 22351}#
+ #{r 22352}#
+ #{w 22353}#))
+ (lambda (#{e 22381}#
+ #{r 22382}#
+ #{w 22383}#
+ #{s 22384}#
+ #{mod 22385}#)
+ (#{expand 4333}#
+ #{e 22381}#
+ #{r 22382}#
+ #{w 22383}#
+ #{mod 22385}#)))
+ (if (eqv? #{type 22349}# 'lexical-call)
+ (#{expand-application 4335}#
+ (let ((#{id 22465}# (car #{e 22351}#)))
+ (#{build-lexical-reference 4271}#
'fun
- (#{source-annotation 4306}# #{id 22130}#)
- (if (if (vector? #{id 22130}#)
- (if (= (vector-length #{id 22130}#) 4)
- (eq? (vector-ref #{id 22130}# 0) 'syntax-object)
+ (#{source-annotation 4294}# #{id 22465}#)
+ (if (if (vector? #{id 22465}#)
+ (if (= (vector-length #{id 22465}#) 4)
+ (eq? (vector-ref #{id 22465}# 0) 'syntax-object)
#f)
#f)
- (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 22016}#))
- (if (if (vector? #{value 22015}#)
- (if (= (vector-length #{value 22015}#) 4)
- (eq? (vector-ref #{value 22015}# 0)
+ (syntax->datum #{id 22465}#)
+ #{id 22465}#)
+ #{value 22350}#))
+ #{e 22351}#
+ #{r 22352}#
+ #{w 22353}#
+ #{s 22354}#
+ #{mod 22355}#)
+ (if (eqv? #{type 22349}# 'global-call)
+ (#{expand-application 4335}#
+ (#{build-global-reference 4274}#
+ (#{source-annotation 4294}# (car #{e 22351}#))
+ (if (if (vector? #{value 22350}#)
+ (if (= (vector-length #{value 22350}#) 4)
+ (eq? (vector-ref #{value 22350}# 0)
'syntax-object)
#f)
#f)
- (vector-ref #{value 22015}# 1)
- #{value 22015}#)
- (if (if (vector? #{value 22015}#)
- (if (= (vector-length #{value 22015}#) 4)
- (eq? (vector-ref #{value 22015}# 0)
+ (vector-ref #{value 22350}# 1)
+ #{value 22350}#)
+ (if (if (vector? #{value 22350}#)
+ (if (= (vector-length #{value 22350}#) 4)
+ (eq? (vector-ref #{value 22350}# 0)
'syntax-object)
#f)
#f)
- (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}#
+ (vector-ref #{value 22350}# 3)
+ #{mod 22355}#))
+ #{e 22351}#
+ #{r 22352}#
+ #{w 22353}#
+ #{s 22354}#
+ #{mod 22355}#)
+ (if (eqv? #{type 22349}# 'constant)
+ (let ((#{exp 23001}#
+ (#{strip 4346}#
+ (#{wrap 4326}#
(begin
- (if (if (pair? #{e 22016}#) #{s 22019}# #f)
+ (if (if (pair? #{e 22351}#) #{s 22354}# #f)
(set-source-properties!
- #{e 22016}#
- #{s 22019}#))
- #{e 22016}#)
- #{w 22018}#
- #{mod 22020}#)
+ #{e 22351}#
+ #{s 22354}#))
+ #{e 22351}#)
+ #{w 22353}#
+ #{mod 22355}#)
'(()))))
(make-struct/no-tail
(vector-ref %expanded-vtables 1)
- #{s 22019}#
- #{exp 22666}#))
- (if (eqv? #{type 22014}# 'global)
- (#{analyze-variable 4285}#
- #{mod 22020}#
- #{value 22015}#
- (lambda (#{mod 22702}# #{var 22703}# #{public? 22704}#)
+ #{s 22354}#
+ #{exp 23001}#))
+ (if (eqv? #{type 22349}# 'global)
+ (#{analyze-variable 4273}#
+ #{mod 22355}#
+ #{value 22350}#
+ (lambda (#{mod 23037}# #{var 23038}# #{public? 23039}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 5)
- #{s 22019}#
- #{mod 22702}#
- #{var 22703}#
- #{public? 22704}#))
- (lambda (#{var 22713}#)
+ #{s 22354}#
+ #{mod 23037}#
+ #{var 23038}#
+ #{public? 23039}#))
+ (lambda (#{var 23048}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
- #{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}#
+ #{s 22354}#
+ #{var 23048}#)))
+ (if (eqv? #{type 22349}# 'call)
+ (#{expand-application 4335}#
+ (#{expand 4333}#
+ (car #{e 22351}#)
+ #{r 22352}#
+ #{w 22353}#
+ #{mod 22355}#)
+ #{e 22351}#
+ #{r 22352}#
+ #{w 22353}#
+ #{s 22354}#
+ #{mod 22355}#)
+ (if (eqv? #{type 22349}# 'begin-form)
+ (let ((#{tmp 23128}#
($sc-dispatch
- #{e 22016}#
+ #{e 22351}#
'(_ any . each-any))))
- (if #{tmp 22793}#
+ (if #{tmp 23128}#
(@apply
- (lambda (#{e1 22797}# #{e2 22798}#)
- (#{expand-sequence 4340}#
- (cons #{e1 22797}# #{e2 22798}#)
- #{r 22017}#
- #{w 22018}#
- #{s 22019}#
- #{mod 22020}#))
- #{tmp 22793}#)
+ (lambda (#{e1 23132}# #{e2 23133}#)
+ (#{expand-sequence 4328}#
+ (cons #{e1 23132}# #{e2 23133}#)
+ #{r 22352}#
+ #{w 22353}#
+ #{s 22354}#
+ #{mod 22355}#))
+ #{tmp 23128}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{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}#
+ #{e 22351}#)))
+ (if (eqv? #{type 22349}# 'local-syntax-form)
+ (#{expand-local-syntax 4338}#
+ #{value 22350}#
+ #{e 22351}#
+ #{r 22352}#
+ #{w 22353}#
+ #{s 22354}#
+ #{mod 22355}#
+ #{expand-sequence 4328}#)
+ (if (eqv? #{type 22349}# 'eval-when-form)
+ (let ((#{tmp 23299}#
($sc-dispatch
- #{e 22016}#
+ #{e 22351}#
'(_ each-any any . each-any))))
- (if #{tmp 22964}#
+ (if #{tmp 23299}#
(@apply
- (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}#)
+ (lambda (#{x 23303}#
+ #{e1 23304}#
+ #{e2 23305}#)
+ (let ((#{when-list 23306}#
+ (#{parse-when-list 4331}#
+ #{e 22351}#
+ #{x 23303}#)))
+ (if (memq 'eval #{when-list 23306}#)
+ (#{expand-sequence 4328}#
+ (cons #{e1 23304}# #{e2 23305}#)
+ #{r 22352}#
+ #{w 22353}#
+ #{s 22354}#
+ #{mod 22355}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 0)
#f))))
- #{tmp 22964}#)
+ #{tmp 23299}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 22016}#)))
- (if (if (eqv? #{type 22014}# 'define-form)
+ #{e 22351}#)))
+ (if (if (eqv? #{type 22349}# 'define-form)
#t
- (eqv? #{type 22014}# 'define-syntax-form))
+ (eqv? #{type 22349}# 'define-syntax-form))
(syntax-violation
#f
"definition in expression context"
- #{e 22016}#
- (#{wrap 4338}#
- #{value 22015}#
- #{w 22018}#
- #{mod 22020}#))
- (if (eqv? #{type 22014}# 'syntax)
+ #{e 22351}#
+ (#{wrap 4326}#
+ #{value 22350}#
+ #{w 22353}#
+ #{mod 22355}#))
+ (if (eqv? #{type 22349}# 'syntax)
(syntax-violation
#f
"reference to pattern variable outside syntax form"
- (#{wrap 4338}#
+ (#{wrap 4326}#
(begin
- (if (if (pair? #{e 22016}#)
- #{s 22019}#
+ (if (if (pair? #{e 22351}#)
+ #{s 22354}#
#f)
(set-source-properties!
- #{e 22016}#
- #{s 22019}#))
- #{e 22016}#)
- #{w 22018}#
- #{mod 22020}#))
- (if (eqv? #{type 22014}# 'displaced-lexical)
+ #{e 22351}#
+ #{s 22354}#))
+ #{e 22351}#)
+ #{w 22353}#
+ #{mod 22355}#))
+ (if (eqv? #{type 22349}# 'displaced-lexical)
(syntax-violation
#f
"reference to identifier outside its scope"
- (#{wrap 4338}#
+ (#{wrap 4326}#
(begin
- (if (if (pair? #{e 22016}#)
- #{s 22019}#
+ (if (if (pair? #{e 22351}#)
+ #{s 22354}#
#f)
(set-source-properties!
- #{e 22016}#
- #{s 22019}#))
- #{e 22016}#)
- #{w 22018}#
- #{mod 22020}#))
+ #{e 22351}#
+ #{s 22354}#))
+ #{e 22351}#)
+ #{w 22353}#
+ #{mod 22355}#))
(syntax-violation
#f
"unexpected syntax"
- (#{wrap 4338}#
+ (#{wrap 4326}#
(begin
- (if (if (pair? #{e 22016}#)
- #{s 22019}#
+ (if (if (pair? #{e 22351}#)
+ #{s 22354}#
#f)
(set-source-properties!
- #{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}#
+ #{e 22351}#
+ #{s 22354}#))
+ #{e 22351}#)
+ #{w 22353}#
+ #{mod 22355}#))))))))))))))))))
+ (#{expand-application 4335}#
+ (lambda (#{x 23547}#
+ #{e 23548}#
+ #{r 23549}#
+ #{w 23550}#
+ #{s 23551}#
+ #{mod 23552}#)
+ (let ((#{tmp 23554}#
+ ($sc-dispatch #{e 23548}# '(any . each-any))))
+ (if #{tmp 23554}#
(@apply
- (lambda (#{e0 23171}# #{e1 23172}#)
- (#{build-application 4280}#
- #{s 23164}#
- #{x 23160}#
- (map (lambda (#{e 23257}#)
- (#{expand 4345}#
- #{e 23257}#
- #{r 23162}#
- #{w 23163}#
- #{mod 23165}#))
- #{e1 23172}#)))
- #{tmp 23167}#)
+ (lambda (#{e0 23558}# #{e1 23559}#)
+ (#{build-application 4268}#
+ #{s 23551}#
+ #{x 23547}#
+ (map (lambda (#{e 23644}#)
+ (#{expand 4333}#
+ #{e 23644}#
+ #{r 23549}#
+ #{w 23550}#
+ #{mod 23552}#))
+ #{e1 23559}#)))
+ #{tmp 23554}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 23161}#)))))
- (#{expand-macro 4348}#
- (lambda (#{p 23338}#
- #{e 23339}#
- #{r 23340}#
- #{w 23341}#
- #{s 23342}#
- #{rib 23343}#
- #{mod 23344}#)
+ #{e 23548}#)))))
+ (#{expand-macro 4336}#
+ (lambda (#{p 23725}#
+ #{e 23726}#
+ #{r 23727}#
+ #{w 23728}#
+ #{s 23729}#
+ #{rib 23730}#
+ #{mod 23731}#)
(letrec*
- ((#{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}#))))
+ ((#{rebuild-macro-output 23732}#
+ (lambda (#{x 23763}# #{m 23764}#)
+ (if (pair? #{x 23763}#)
+ (let ((#{e 23768}#
+ (cons (#{rebuild-macro-output 23732}#
+ (car #{x 23763}#)
+ #{m 23764}#)
+ (#{rebuild-macro-output 23732}#
+ (cdr #{x 23763}#)
+ #{m 23764}#))))
(begin
- (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)
+ (if (if (pair? #{e 23768}#) #{s 23729}# #f)
+ (set-source-properties! #{e 23768}# #{s 23729}#))
+ #{e 23768}#))
+ (if (if (vector? #{x 23763}#)
+ (if (= (vector-length #{x 23763}#) 4)
+ (eq? (vector-ref #{x 23763}# 0) 'syntax-object)
#f)
#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)
+ (let ((#{w 23784}# (vector-ref #{x 23763}# 2)))
+ (let ((#{ms 23785}# (car #{w 23784}#))
+ (#{s 23786}# (cdr #{w 23784}#)))
+ (if (if (pair? #{ms 23785}#)
+ (eq? (car #{ms 23785}#) #f)
#f)
- (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)))
+ (let ((#{expression 23794}# (vector-ref #{x 23763}# 1))
+ (#{wrap 23795}#
+ (cons (cdr #{ms 23785}#)
+ (if #{rib 23730}#
+ (cons #{rib 23730}# (cdr #{s 23786}#))
+ (cdr #{s 23786}#))))
+ (#{module 23796}# (vector-ref #{x 23763}# 3)))
(vector
'syntax-object
- #{expression 23407}#
- #{wrap 23408}#
- #{module 23409}#))
- (let ((#{expression 23419}#
- (let ((#{e 23424}# (vector-ref #{x 23376}# 1)))
+ #{expression 23794}#
+ #{wrap 23795}#
+ #{module 23796}#))
+ (let ((#{expression 23806}#
+ (let ((#{e 23811}# (vector-ref #{x 23763}# 1)))
(begin
- (if (if (pair? #{e 23424}#) #{s 23399}# #f)
+ (if (if (pair? #{e 23811}#) #{s 23786}# #f)
(set-source-properties!
- #{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)))
+ #{e 23811}#
+ #{s 23786}#))
+ #{e 23811}#)))
+ (#{wrap 23807}#
+ (cons (cons #{m 23764}# #{ms 23785}#)
+ (if #{rib 23730}#
+ (cons #{rib 23730}#
+ (cons 'shift #{s 23786}#))
+ (cons 'shift #{s 23786}#))))
+ (#{module 23808}# (vector-ref #{x 23763}# 3)))
(vector
'syntax-object
- #{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}#)))
+ #{expression 23806}#
+ #{wrap 23807}#
+ #{module 23808}#)))))
+ (if (vector? #{x 23763}#)
+ (let ((#{n 23823}# (vector-length #{x 23763}#)))
+ (let ((#{v 23824}#
+ (let ((#{e 23832}# (make-vector #{n 23823}#)))
(begin
- (if (if (pair? #{e 23445}#) #{x 23376}# #f)
+ (if (if (pair? #{e 23832}#) #{x 23763}# #f)
(set-source-properties!
- #{e 23445}#
- #{x 23376}#))
- #{e 23445}#))))
+ #{e 23832}#
+ #{x 23763}#))
+ #{e 23832}#))))
(letrec*
- ((#{loop 23438}#
- (lambda (#{i 23490}#)
- (if (= #{i 23490}# #{n 23436}#)
- #{v 23437}#
+ ((#{loop 23825}#
+ (lambda (#{i 23877}#)
+ (if (= #{i 23877}# #{n 23823}#)
+ #{v 23824}#
(begin
(vector-set!
- #{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}#)
+ #{v 23824}#
+ #{i 23877}#
+ (#{rebuild-macro-output 23732}#
+ (vector-ref #{x 23763}# #{i 23877}#)
+ #{m 23764}#))
+ (#{loop 23825}# (#{1+}# #{i 23877}#)))))))
+ (#{loop 23825}# 0))))
+ (if (symbol? #{x 23763}#)
(syntax-violation
#f
"encountered raw symbol in macro output"
- (let ((#{s 23496}# (cdr #{w 23341}#)))
- (#{wrap 4338}#
+ (let ((#{s 23883}# (cdr #{w 23728}#)))
+ (#{wrap 4326}#
(begin
- (if (if (pair? #{e 23339}#) #{s 23496}# #f)
+ (if (if (pair? #{e 23726}#) #{s 23883}# #f)
(set-source-properties!
- #{e 23339}#
- #{s 23496}#))
- #{e 23339}#)
- #{w 23341}#
- #{mod 23344}#))
- #{x 23376}#)
+ #{e 23726}#
+ #{s 23883}#))
+ #{e 23726}#)
+ #{w 23728}#
+ #{mod 23731}#))
+ #{x 23763}#)
(begin
- (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}#
+ (if (if (pair? #{x 23763}#) #{s 23729}# #f)
+ (set-source-properties! #{x 23763}# #{s 23729}#))
+ #{x 23763}#))))))))
+ (#{rebuild-macro-output 23732}#
+ (#{p 23725}#
+ (let ((#{w 23739}#
+ (cons (cons #f (car #{w 23728}#))
+ (cons 'shift (cdr #{w 23728}#)))))
+ (#{wrap 4326}#
(begin
- (if (if (pair? #{e 23339}#) #{s 23342}# #f)
- (set-source-properties! #{e 23339}# #{s 23342}#))
- #{e 23339}#)
- #{w 23352}#
- #{mod 23344}#)))
+ (if (if (pair? #{e 23726}#) #{s 23729}# #f)
+ (set-source-properties! #{e 23726}# #{s 23729}#))
+ #{e 23726}#)
+ #{w 23739}#
+ #{mod 23731}#)))
(gensym "m")))))
- (#{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}#)))))
+ (#{expand-body 4337}#
+ (lambda (#{body 23915}#
+ #{outer-form 23916}#
+ #{r 23917}#
+ #{w 23918}#
+ #{mod 23919}#)
+ (let ((#{r 23920}#
+ (cons '("placeholder" placeholder) #{r 23917}#)))
+ (let ((#{ribcage 23921}# (vector 'ribcage '() '() '())))
+ (let ((#{w 23922}#
+ (cons (car #{w 23918}#)
+ (cons #{ribcage 23921}# (cdr #{w 23918}#)))))
(letrec*
- ((#{parse 23536}#
- (lambda (#{body 23549}#
- #{ids 23550}#
- #{labels 23551}#
- #{var-ids 23552}#
- #{vars 23553}#
- #{vals 23554}#
- #{bindings 23555}#)
- (if (null? #{body 23549}#)
+ ((#{parse 23923}#
+ (lambda (#{body 23936}#
+ #{ids 23937}#
+ #{labels 23938}#
+ #{var-ids 23939}#
+ #{vars 23940}#
+ #{vals 23941}#
+ #{bindings 23942}#)
+ (if (null? #{body 23936}#)
(syntax-violation
#f
"no expressions in body"
- #{outer-form 23529}#)
- (let ((#{e 23556}# (cdr (car #{body 23549}#)))
- (#{er 23557}# (car (car #{body 23549}#))))
+ #{outer-form 23916}#)
+ (let ((#{e 23943}# (cdr (car #{body 23936}#)))
+ (#{er 23944}# (car (car #{body 23936}#))))
(call-with-values
(lambda ()
- (#{syntax-type 4344}#
- #{e 23556}#
- #{er 23557}#
+ (#{syntax-type 4332}#
+ #{e 23943}#
+ #{er 23944}#
'(())
- (#{source-annotation 4306}# #{er 23557}#)
- #{ribcage 23534}#
- #{mod 23532}#
+ (#{source-annotation 4294}# #{er 23944}#)
+ #{ribcage 23921}#
+ #{mod 23919}#
#f))
- (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 23734}#
- #{w 23736}#
- #{mod 23738}#))
- (#{label 23743}#
+ (lambda (#{type 24120}#
+ #{value 24121}#
+ #{e 24122}#
+ #{w 24123}#
+ #{s 24124}#
+ #{mod 24125}#)
+ (if (eqv? #{type 24120}# 'define-form)
+ (let ((#{id 24129}#
+ (#{wrap 4326}#
+ #{value 24121}#
+ #{w 24123}#
+ #{mod 24125}#))
+ (#{label 24130}#
(symbol->string (gensym "i"))))
- (let ((#{var 23744}#
- (let ((#{id 23804}#
- (if (if (vector? #{id 23742}#)
+ (let ((#{var 24131}#
+ (let ((#{id 24191}#
+ (if (if (vector? #{id 24129}#)
(if (= (vector-length
- #{id 23742}#)
+ #{id 24129}#)
4)
(eq? (vector-ref
- #{id 23742}#
+ #{id 24129}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{id 23742}# 1)
- #{id 23742}#)))
+ (vector-ref #{id 24129}# 1)
+ #{id 24129}#)))
(gensym
(string-append
- (symbol->string #{id 23804}#)
+ (symbol->string #{id 24191}#)
" ")))))
(begin
- (let ((#{update 23794}#
- (cons (vector-ref #{id 23742}# 1)
+ (let ((#{update 24181}#
+ (cons (vector-ref #{id 24129}# 1)
(vector-ref
- #{ribcage 23534}#
+ #{ribcage 23921}#
1))))
(vector-set!
- #{ribcage 23534}#
+ #{ribcage 23921}#
1
- #{update 23794}#))
- (let ((#{update 23796}#
+ #{update 24181}#))
+ (let ((#{update 24183}#
(cons (car (vector-ref
- #{id 23742}#
+ #{id 24129}#
2))
(vector-ref
- #{ribcage 23534}#
+ #{ribcage 23921}#
2))))
(vector-set!
- #{ribcage 23534}#
+ #{ribcage 23921}#
2
- #{update 23796}#))
- (let ((#{update 23798}#
- (cons #{label 23743}#
+ #{update 24183}#))
+ (let ((#{update 24185}#
+ (cons #{label 24130}#
(vector-ref
- #{ribcage 23534}#
+ #{ribcage 23921}#
3))))
(vector-set!
- #{ribcage 23534}#
+ #{ribcage 23921}#
3
- #{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 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 23734}#
- #{w 23736}#
- #{mod 23738}#))
- (#{label 23833}#
+ #{update 24185}#))
+ (#{parse 23923}#
+ (cdr #{body 23936}#)
+ (cons #{id 24129}# #{ids 23937}#)
+ (cons #{label 24130}# #{labels 23938}#)
+ (cons #{id 24129}# #{var-ids 23939}#)
+ (cons #{var 24131}# #{vars 23940}#)
+ (cons (cons #{er 23944}#
+ (#{wrap 4326}#
+ #{e 24122}#
+ #{w 24123}#
+ #{mod 24125}#))
+ #{vals 23941}#)
+ (cons (cons 'lexical #{var 24131}#)
+ #{bindings 23942}#)))))
+ (if (eqv? #{type 24120}# 'define-syntax-form)
+ (let ((#{id 24219}#
+ (#{wrap 4326}#
+ #{value 24121}#
+ #{w 24123}#
+ #{mod 24125}#))
+ (#{label 24220}#
(symbol->string (gensym "i"))))
(begin
- (let ((#{update 23883}#
- (cons (vector-ref #{id 23832}# 1)
+ (let ((#{update 24270}#
+ (cons (vector-ref #{id 24219}# 1)
(vector-ref
- #{ribcage 23534}#
+ #{ribcage 23921}#
1))))
(vector-set!
- #{ribcage 23534}#
+ #{ribcage 23921}#
1
- #{update 23883}#))
- (let ((#{update 23885}#
+ #{update 24270}#))
+ (let ((#{update 24272}#
(cons (car (vector-ref
- #{id 23832}#
+ #{id 24219}#
2))
(vector-ref
- #{ribcage 23534}#
+ #{ribcage 23921}#
2))))
(vector-set!
- #{ribcage 23534}#
+ #{ribcage 23921}#
2
- #{update 23885}#))
- (let ((#{update 23887}#
- (cons #{label 23833}#
+ #{update 24272}#))
+ (let ((#{update 24274}#
+ (cons #{label 24220}#
(vector-ref
- #{ribcage 23534}#
+ #{ribcage 23921}#
3))))
(vector-set!
- #{ribcage 23534}#
+ #{ribcage 23921}#
3
- #{update 23887}#))
- (#{parse 23536}#
- (cdr #{body 23549}#)
- (cons #{id 23832}# #{ids 23550}#)
- (cons #{label 23833}# #{labels 23551}#)
- #{var-ids 23552}#
- #{vars 23553}#
- #{vals 23554}#
+ #{update 24274}#))
+ (#{parse 23923}#
+ (cdr #{body 23936}#)
+ (cons #{id 24219}# #{ids 23937}#)
+ (cons #{label 24220}# #{labels 23938}#)
+ #{var-ids 23939}#
+ #{vars 23940}#
+ #{vals 23941}#
(cons (cons 'macro
- (cons #{er 23557}#
- (#{wrap 4338}#
- #{e 23735}#
- #{w 23736}#
- #{mod 23738}#)))
- #{bindings 23555}#))))
- (if (eqv? #{type 23733}# 'begin-form)
- (let ((#{tmp 23895}#
+ (cons #{er 23944}#
+ (#{wrap 4326}#
+ #{e 24122}#
+ #{w 24123}#
+ #{mod 24125}#)))
+ #{bindings 23942}#))))
+ (if (eqv? #{type 24120}# 'begin-form)
+ (let ((#{tmp 24282}#
($sc-dispatch
- #{e 23735}#
+ #{e 24122}#
'(_ . each-any))))
- (if #{tmp 23895}#
+ (if #{tmp 24282}#
(@apply
- (lambda (#{e1 23899}#)
- (#{parse 23536}#
+ (lambda (#{e1 24286}#)
+ (#{parse 23923}#
(letrec*
- ((#{f 23900}#
- (lambda (#{forms 23963}#)
- (if (null? #{forms 23963}#)
- (cdr #{body 23549}#)
- (cons (cons #{er 23557}#
- (#{wrap 4338}#
- (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}#)
+ ((#{f 24287}#
+ (lambda (#{forms 24350}#)
+ (if (null? #{forms 24350}#)
+ (cdr #{body 23936}#)
+ (cons (cons #{er 23944}#
+ (#{wrap 4326}#
+ (car #{forms 24350}#)
+ #{w 24123}#
+ #{mod 24125}#))
+ (#{f 24287}#
+ (cdr #{forms 24350}#)))))))
+ (#{f 24287}# #{e1 24286}#))
+ #{ids 23937}#
+ #{labels 23938}#
+ #{var-ids 23939}#
+ #{vars 23940}#
+ #{vals 23941}#
+ #{bindings 23942}#))
+ #{tmp 24282}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{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}#
+ #{e 24122}#)))
+ (if (eqv? #{type 24120}# 'local-syntax-form)
+ (#{expand-local-syntax 4338}#
+ #{value 24121}#
+ #{e 24122}#
+ #{er 23944}#
+ #{w 24123}#
+ #{s 24124}#
+ #{mod 24125}#
+ (lambda (#{forms 24364}#
+ #{er 24365}#
+ #{w 24366}#
+ #{s 24367}#
+ #{mod 24368}#)
+ (#{parse 23923}#
(letrec*
- ((#{f 23982}#
- (lambda (#{forms 24045}#)
- (if (null? #{forms 24045}#)
- (cdr #{body 23549}#)
- (cons (cons #{er 23978}#
- (#{wrap 4338}#
- (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 24369}#
+ (lambda (#{forms 24432}#)
+ (if (null? #{forms 24432}#)
+ (cdr #{body 23936}#)
+ (cons (cons #{er 24365}#
+ (#{wrap 4326}#
+ (car #{forms 24432}#)
+ #{w 24366}#
+ #{mod 24368}#))
+ (#{f 24369}#
+ (cdr #{forms 24432}#)))))))
+ (#{f 24369}# #{forms 24364}#))
+ #{ids 23937}#
+ #{labels 23938}#
+ #{var-ids 23939}#
+ #{vars 23940}#
+ #{vals 23941}#
+ #{bindings 23942}#)))
+ (if (null? #{ids 23937}#)
+ (#{build-sequence 4282}#
#f
- (map (lambda (#{x 24115}#)
- (#{expand 4345}#
- (cdr #{x 24115}#)
- (car #{x 24115}#)
+ (map (lambda (#{x 24502}#)
+ (#{expand 4333}#
+ (cdr #{x 24502}#)
+ (car #{x 24502}#)
'(())
- #{mod 23738}#))
- (cons (cons #{er 23557}#
- (#{wrap 4338}#
+ #{mod 24125}#))
+ (cons (cons #{er 23944}#
+ (#{wrap 4326}#
(begin
- (if (if (pair? #{e 23735}#)
- #{s 23737}#
+ (if (if (pair? #{e 24122}#)
+ #{s 24124}#
#f)
(set-source-properties!
- #{e 23735}#
- #{s 23737}#))
- #{e 23735}#)
- #{w 23736}#
- #{mod 23738}#))
- (cdr #{body 23549}#))))
+ #{e 24122}#
+ #{s 24124}#))
+ #{e 24122}#)
+ #{w 24123}#
+ #{mod 24125}#))
+ (cdr #{body 23936}#))))
(begin
- (if (not (#{valid-bound-ids? 4335}#
- #{ids 23550}#))
+ (if (not (#{valid-bound-ids? 4323}#
+ #{ids 23937}#))
(syntax-violation
#f
"invalid or duplicate identifier in definition"
- #{outer-form 23529}#))
+ #{outer-form 23916}#))
(letrec*
- ((#{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}#)
+ ((#{loop 24664}#
+ (lambda (#{bs 24667}#
+ #{er-cache 24668}#
+ #{r-cache 24669}#)
+ (if (not (null? #{bs 24667}#))
+ (let ((#{b 24670}#
+ (car #{bs 24667}#)))
+ (if (eq? (car #{b 24670}#)
'macro)
- (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 24285}#))))
+ (let ((#{er 24672}#
+ (car (cdr #{b 24670}#))))
+ (let ((#{r-cache 24673}#
+ (if (eq? #{er 24672}#
+ #{er-cache 24668}#)
+ #{r-cache 24669}#
+ (#{macros-only-env 4297}#
+ #{er 24672}#))))
(begin
(set-cdr!
- #{b 24283}#
- (#{eval-local-transformer 4351}#
- (#{expand 4345}#
- (cdr (cdr #{b 24283}#))
- #{r-cache 24286}#
+ #{b 24670}#
+ (#{eval-local-transformer 4339}#
+ (#{expand 4333}#
+ (cdr (cdr #{b 24670}#))
+ #{r-cache 24673}#
'(())
- #{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}#
+ #{mod 24125}#)
+ #{mod 24125}#))
+ (#{loop 24664}#
+ (cdr #{bs 24667}#)
+ #{er 24672}#
+ #{r-cache 24673}#))))
+ (#{loop 24664}#
+ (cdr #{bs 24667}#)
+ #{er-cache 24668}#
+ #{r-cache 24669}#)))))))
+ (#{loop 24664}#
+ #{bindings 23942}#
#f
#f))
(set-cdr!
- #{r 23533}#
- (#{extend-env 4307}#
- #{labels 23551}#
- #{bindings 23555}#
- (cdr #{r 23533}#)))
- (#{build-letrec 4297}#
+ #{r 23920}#
+ (#{extend-env 4295}#
+ #{labels 23938}#
+ #{bindings 23942}#
+ (cdr #{r 23920}#)))
+ (#{build-letrec 4285}#
#f
#t
(reverse
(map syntax->datum
- #{var-ids 23552}#))
- (reverse #{vars 23553}#)
- (map (lambda (#{x 24639}#)
- (#{expand 4345}#
- (cdr #{x 24639}#)
- (car #{x 24639}#)
+ #{var-ids 23939}#))
+ (reverse #{vars 23940}#)
+ (map (lambda (#{x 25026}#)
+ (#{expand 4333}#
+ (cdr #{x 25026}#)
+ (car #{x 25026}#)
'(())
- #{mod 23738}#))
- (reverse #{vals 23554}#))
- (#{build-sequence 4294}#
+ #{mod 24125}#))
+ (reverse #{vals 23941}#))
+ (#{build-sequence 4282}#
#f
- (map (lambda (#{x 24769}#)
- (#{expand 4345}#
- (cdr #{x 24769}#)
- (car #{x 24769}#)
+ (map (lambda (#{x 25156}#)
+ (#{expand 4333}#
+ (cdr #{x 25156}#)
+ (car #{x 25156}#)
'(())
- #{mod 23738}#))
- (cons (cons #{er 23557}#
- (#{wrap 4338}#
+ #{mod 24125}#))
+ (cons (cons #{er 23944}#
+ (#{wrap 4326}#
(begin
- (if (if (pair? #{e 23735}#)
- #{s 23737}#
+ (if (if (pair? #{e 24122}#)
+ #{s 24124}#
#f)
(set-source-properties!
- #{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 23539}#
- #{w 23535}#
- #{mod 23532}#)))
- #{body 23528}#)
+ #{e 24122}#
+ #{s 24124}#))
+ #{e 24122}#)
+ #{w 24123}#
+ #{mod 24125}#))
+ (cdr #{body 23936}#))))))))))))))))))
+ (#{parse 23923}#
+ (map (lambda (#{x 23926}#)
+ (cons #{r 23920}#
+ (#{wrap 4326}#
+ #{x 23926}#
+ #{w 23922}#
+ #{mod 23919}#)))
+ #{body 23915}#)
'()
'()
'()
'()
'()
'())))))))
- (#{expand-local-syntax 4350}#
- (lambda (#{rec? 24854}#
- #{e 24855}#
- #{r 24856}#
- #{w 24857}#
- #{s 24858}#
- #{mod 24859}#
- #{k 24860}#)
- (let ((#{tmp 24862}#
+ (#{expand-local-syntax 4338}#
+ (lambda (#{rec? 25241}#
+ #{e 25242}#
+ #{r 25243}#
+ #{w 25244}#
+ #{s 25245}#
+ #{mod 25246}#
+ #{k 25247}#)
+ (let ((#{tmp 25249}#
($sc-dispatch
- #{e 24855}#
+ #{e 25242}#
'(_ #(each (any any)) any . each-any))))
- (if #{tmp 24862}#
+ (if #{tmp 25249}#
(@apply
- (lambda (#{id 24866}#
- #{val 24867}#
- #{e1 24868}#
- #{e2 24869}#)
- (if (not (#{valid-bound-ids? 4335}# #{id 24866}#))
+ (lambda (#{id 25253}#
+ #{val 25254}#
+ #{e1 25255}#
+ #{e2 25256}#)
+ (if (not (#{valid-bound-ids? 4323}# #{id 25253}#))
(syntax-violation
#f
"duplicate bound keyword"
- #{e 24855}#)
- (let ((#{labels 24959}#
- (#{gen-labels 4316}# #{id 24866}#)))
- (let ((#{new-w 24960}#
- (#{make-binding-wrap 4327}#
- #{id 24866}#
- #{labels 24959}#
- #{w 24857}#)))
- (#{k 24860}#
- (cons #{e1 24868}# #{e2 24869}#)
- (#{extend-env 4307}#
- #{labels 24959}#
- (let ((#{trans-r 24998}#
- (#{macros-only-env 4309}# #{r 24856}#)))
+ #{e 25242}#)
+ (let ((#{labels 25346}#
+ (#{gen-labels 4304}# #{id 25253}#)))
+ (let ((#{new-w 25347}#
+ (#{make-binding-wrap 4315}#
+ #{id 25253}#
+ #{labels 25346}#
+ #{w 25244}#)))
+ (#{k 25247}#
+ (cons #{e1 25255}# #{e2 25256}#)
+ (#{extend-env 4295}#
+ #{labels 25346}#
+ (let ((#{trans-r 25385}#
+ (#{macros-only-env 4297}# #{r 25243}#)))
(begin
- (if #{rec? 24854}# (if #f #f))
- (map (lambda (#{x 24999}#)
+ (if #{rec? 25241}# (if #f #f))
+ (map (lambda (#{x 25386}#)
(cons 'macro
- (#{eval-local-transformer 4351}#
- (#{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}#)
+ (#{eval-local-transformer 4339}#
+ (#{expand 4333}#
+ #{x 25386}#
+ #{trans-r 25385}#
+ (if #{rec? 25241}#
+ #{new-w 25347}#
+ #{w 25244}#)
+ #{mod 25246}#)
+ #{mod 25246}#)))
+ #{val 25254}#)))
+ #{r 25243}#)
+ #{new-w 25347}#
+ #{s 25245}#
+ #{mod 25246}#)))))
+ #{tmp 25249}#)
(syntax-violation
#f
"bad local syntax definition"
- (#{wrap 4338}#
+ (#{wrap 4326}#
(begin
- (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 25300}# #{mod 25301}#)
- (let ((#{p 25302}# (primitive-eval #{expanded 25300}#)))
- (if (procedure? #{p 25302}#)
- #{p 25302}#
+ (if (if (pair? #{e 25242}#) #{s 25245}# #f)
+ (set-source-properties! #{e 25242}# #{s 25245}#))
+ #{e 25242}#)
+ #{w 25244}#
+ #{mod 25246}#))))))
+ (#{eval-local-transformer 4339}#
+ (lambda (#{expanded 25687}# #{mod 25688}#)
+ (let ((#{p 25689}# (primitive-eval #{expanded 25687}#)))
+ (if (procedure? #{p 25689}#)
+ #{p 25689}#
(syntax-violation
#f
"nonprocedure transformer"
- #{p 25302}#)))))
- (#{ellipsis? 4353}#
- (lambda (#{x 5159}#)
- (if (if (if (vector? #{x 5159}#)
- (if (= (vector-length #{x 5159}#) 4)
- (eq? (vector-ref #{x 5159}# 0) 'syntax-object)
+ #{p 25689}#)))))
+ (#{ellipsis? 4341}#
+ (lambda (#{x 5147}#)
+ (if (if (if (vector? #{x 5147}#)
+ (if (= (vector-length #{x 5147}#) 4)
+ (eq? (vector-ref #{x 5147}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 5159}# 1))
+ (symbol? (vector-ref #{x 5147}# 1))
#f)
- (if (eq? (if (if (vector? #{x 5159}#)
- (if (= (vector-length #{x 5159}#) 4)
- (eq? (vector-ref #{x 5159}# 0) 'syntax-object)
+ (if (eq? (if (if (vector? #{x 5147}#)
+ (if (= (vector-length #{x 5147}#) 4)
+ (eq? (vector-ref #{x 5147}# 0) 'syntax-object)
#f)
#f)
- (vector-ref #{x 5159}# 1)
- #{x 5159}#)
+ (vector-ref #{x 5147}# 1)
+ #{x 5147}#)
(if (if (= (vector-length
'#(syntax-object
...
((top)
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i2230"))
+ #(ribcage #(x) #((top)) #("i2218"))
#(ribcage
(lambda-var-list
gen-var
expand-expr
expand
syntax-type
- expand-when-list
+ parse-when-list
expand-install-global
expand-top-sequence
expand-sequence
((top)
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i2230"))
+ #(ribcage #(x) #((top)) #("i2218"))
#(ribcage
(lambda-var-list
gen-var
expand-expr
expand
syntax-type
- expand-when-list
+ parse-when-list
expand-install-global
expand-top-sequence
expand-sequence
((top) (top) (top))
("i46" "i45" "i44")))
(hygiene guile))))
- (eq? (#{id-var-name 4332}# #{x 5159}# '(()))
- (#{id-var-name 4332}#
+ (eq? (#{id-var-name 4320}# #{x 5147}# '(()))
+ (#{id-var-name 4320}#
'#(syntax-object
...
((top)
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i2230"))
+ #(ribcage #(x) #((top)) #("i2218"))
#(ribcage
(lambda-var-list
gen-var
expand-expr
expand
syntax-type
- expand-when-list
+ parse-when-list
expand-install-global
expand-top-sequence
expand-sequence
'(())))
#f)
#f)))
- (#{lambda-formals 4354}#
- (lambda (#{orig-args 25307}#)
+ (#{lambda-formals 4342}#
+ (lambda (#{orig-args 25694}#)
(letrec*
- ((#{req 25308}#
- (lambda (#{args 25312}# #{rreq 25313}#)
- (let ((#{tmp 25315}# ($sc-dispatch #{args 25312}# '())))
- (if #{tmp 25315}#
+ ((#{req 25695}#
+ (lambda (#{args 25699}# #{rreq 25700}#)
+ (let ((#{tmp 25702}# ($sc-dispatch #{args 25699}# '())))
+ (if #{tmp 25702}#
(@apply
(lambda ()
- (#{check 25309}# (reverse #{rreq 25313}#) #f))
- #{tmp 25315}#)
- (let ((#{tmp 25442}#
- ($sc-dispatch #{args 25312}# '(any . any))))
- (if (if #{tmp 25442}#
+ (#{check 25696}# (reverse #{rreq 25700}#) #f))
+ #{tmp 25702}#)
+ (let ((#{tmp 25829}#
+ ($sc-dispatch #{args 25699}# '(any . any))))
+ (if (if #{tmp 25829}#
(@apply
- (lambda (#{a 25446}# #{b 25447}#)
- (if (symbol? #{a 25446}#)
+ (lambda (#{a 25833}# #{b 25834}#)
+ (if (symbol? #{a 25833}#)
#t
- (if (if (vector? #{a 25446}#)
- (if (= (vector-length #{a 25446}#) 4)
- (eq? (vector-ref #{a 25446}# 0)
+ (if (if (vector? #{a 25833}#)
+ (if (= (vector-length #{a 25833}#) 4)
+ (eq? (vector-ref #{a 25833}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{a 25446}# 1))
+ (symbol? (vector-ref #{a 25833}# 1))
#f)))
- #{tmp 25442}#)
+ #{tmp 25829}#)
#f)
(@apply
- (lambda (#{a 25474}# #{b 25475}#)
- (#{req 25308}#
- #{b 25475}#
- (cons #{a 25474}# #{rreq 25313}#)))
- #{tmp 25442}#)
- (let ((#{tmp 25476}# (list #{args 25312}#)))
+ (lambda (#{a 25861}# #{b 25862}#)
+ (#{req 25695}#
+ #{b 25862}#
+ (cons #{a 25861}# #{rreq 25700}#)))
+ #{tmp 25829}#)
+ (let ((#{tmp 25863}# (list #{args 25699}#)))
(if (@apply
- (lambda (#{r 25478}#)
- (if (symbol? #{r 25478}#)
+ (lambda (#{r 25865}#)
+ (if (symbol? #{r 25865}#)
#t
- (if (if (vector? #{r 25478}#)
- (if (= (vector-length #{r 25478}#) 4)
- (eq? (vector-ref #{r 25478}# 0)
+ (if (if (vector? #{r 25865}#)
+ (if (= (vector-length #{r 25865}#) 4)
+ (eq? (vector-ref #{r 25865}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{r 25478}# 1))
+ (symbol? (vector-ref #{r 25865}# 1))
#f)))
- #{tmp 25476}#)
+ #{tmp 25863}#)
(@apply
- (lambda (#{r 25508}#)
- (#{check 25309}#
- (reverse #{rreq 25313}#)
- #{r 25508}#))
- #{tmp 25476}#)
+ (lambda (#{r 25895}#)
+ (#{check 25696}#
+ (reverse #{rreq 25700}#)
+ #{r 25895}#))
+ #{tmp 25863}#)
(syntax-violation
'lambda
"invalid argument list"
- #{orig-args 25307}#
- #{args 25312}#)))))))))
- (#{check 25309}#
- (lambda (#{req 25643}# #{rest 25644}#)
- (if (#{distinct-bound-ids? 4336}#
- (if #{rest 25644}#
- (cons #{rest 25644}# #{req 25643}#)
- #{req 25643}#))
- (values #{req 25643}# #f #{rest 25644}# #f)
+ #{orig-args 25694}#
+ #{args 25699}#)))))))))
+ (#{check 25696}#
+ (lambda (#{req 26030}# #{rest 26031}#)
+ (if (#{distinct-bound-ids? 4324}#
+ (if #{rest 26031}#
+ (cons #{rest 26031}# #{req 26030}#)
+ #{req 26030}#))
+ (values #{req 26030}# #f #{rest 26031}# #f)
(syntax-violation
'lambda
"duplicate identifier in argument list"
- #{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 25767}#
- (map syntax->datum #{req 25769}#)
- (if #{rest 25770}#
- (syntax->datum #{rest 25770}#)
+ #{orig-args 25694}#)))))
+ (#{req 25695}# #{orig-args 25694}# '()))))
+ (#{expand-simple-lambda 4343}#
+ (lambda (#{e 26151}#
+ #{r 26152}#
+ #{w 26153}#
+ #{s 26154}#
+ #{mod 26155}#
+ #{req 26156}#
+ #{rest 26157}#
+ #{meta 26158}#
+ #{body 26159}#)
+ (let ((#{ids 26160}#
+ (if #{rest 26157}#
+ (append #{req 26156}# (list #{rest 26157}#))
+ #{req 26156}#)))
+ (let ((#{vars 26161}#
+ (map #{gen-var 4347}# #{ids 26160}#)))
+ (let ((#{labels 26162}#
+ (#{gen-labels 4304}# #{ids 26160}#)))
+ (#{build-simple-lambda 4277}#
+ #{s 26154}#
+ (map syntax->datum #{req 26156}#)
+ (if #{rest 26157}#
+ (syntax->datum #{rest 26157}#)
#f)
- #{vars 25774}#
- #{meta 25771}#
- (#{expand-body 4349}#
- #{body 25772}#
- (#{wrap 4338}#
+ #{vars 26161}#
+ #{meta 26158}#
+ (#{expand-body 4337}#
+ #{body 26159}#
+ (#{wrap 4326}#
(begin
- (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 25775}#
- #{vars 25774}#
- #{r 25765}#)
- (#{make-binding-wrap 4327}#
- #{ids 25773}#
- #{labels 25775}#
- #{w 25766}#)
- #{mod 25768}#)))))))
- (#{lambda*-formals 4356}#
- (lambda (#{orig-args 26075}#)
+ (if (if (pair? #{e 26151}#) #{s 26154}# #f)
+ (set-source-properties! #{e 26151}# #{s 26154}#))
+ #{e 26151}#)
+ #{w 26153}#
+ #{mod 26155}#)
+ (#{extend-var-env 4296}#
+ #{labels 26162}#
+ #{vars 26161}#
+ #{r 26152}#)
+ (#{make-binding-wrap 4315}#
+ #{ids 26160}#
+ #{labels 26162}#
+ #{w 26153}#)
+ #{mod 26155}#)))))))
+ (#{lambda*-formals 4344}#
+ (lambda (#{orig-args 26462}#)
(letrec*
- ((#{req 26076}#
- (lambda (#{args 26083}# #{rreq 26084}#)
- (let ((#{tmp 26086}# ($sc-dispatch #{args 26083}# '())))
- (if #{tmp 26086}#
+ ((#{req 26463}#
+ (lambda (#{args 26470}# #{rreq 26471}#)
+ (let ((#{tmp 26473}# ($sc-dispatch #{args 26470}# '())))
+ (if #{tmp 26473}#
(@apply
(lambda ()
- (#{check 26080}#
- (reverse #{rreq 26084}#)
+ (#{check 26467}#
+ (reverse #{rreq 26471}#)
'()
#f
'()))
- #{tmp 26086}#)
- (let ((#{tmp 26092}#
- ($sc-dispatch #{args 26083}# '(any . any))))
- (if (if #{tmp 26092}#
+ #{tmp 26473}#)
+ (let ((#{tmp 26479}#
+ ($sc-dispatch #{args 26470}# '(any . any))))
+ (if (if #{tmp 26479}#
(@apply
- (lambda (#{a 26096}# #{b 26097}#)
- (if (symbol? #{a 26096}#)
+ (lambda (#{a 26483}# #{b 26484}#)
+ (if (symbol? #{a 26483}#)
#t
- (if (if (vector? #{a 26096}#)
- (if (= (vector-length #{a 26096}#) 4)
- (eq? (vector-ref #{a 26096}# 0)
+ (if (if (vector? #{a 26483}#)
+ (if (= (vector-length #{a 26483}#) 4)
+ (eq? (vector-ref #{a 26483}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{a 26096}# 1))
+ (symbol? (vector-ref #{a 26483}# 1))
#f)))
- #{tmp 26092}#)
+ #{tmp 26479}#)
#f)
(@apply
- (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}#
+ (lambda (#{a 26511}# #{b 26512}#)
+ (#{req 26463}#
+ #{b 26512}#
+ (cons #{a 26511}# #{rreq 26471}#)))
+ #{tmp 26479}#)
+ (let ((#{tmp 26513}#
+ ($sc-dispatch #{args 26470}# '(any . any))))
+ (if (if #{tmp 26513}#
(@apply
- (lambda (#{a 26130}# #{b 26131}#)
- (eq? (syntax->datum #{a 26130}#) #:optional))
- #{tmp 26126}#)
+ (lambda (#{a 26517}# #{b 26518}#)
+ (eq? (syntax->datum #{a 26517}#) #:optional))
+ #{tmp 26513}#)
#f)
(@apply
- (lambda (#{a 26132}# #{b 26133}#)
- (#{opt 26077}#
- #{b 26133}#
- (reverse #{rreq 26084}#)
+ (lambda (#{a 26519}# #{b 26520}#)
+ (#{opt 26464}#
+ #{b 26520}#
+ (reverse #{rreq 26471}#)
'()))
- #{tmp 26126}#)
- (let ((#{tmp 26136}#
- ($sc-dispatch #{args 26083}# '(any . any))))
- (if (if #{tmp 26136}#
+ #{tmp 26513}#)
+ (let ((#{tmp 26523}#
+ ($sc-dispatch #{args 26470}# '(any . any))))
+ (if (if #{tmp 26523}#
(@apply
- (lambda (#{a 26140}# #{b 26141}#)
- (eq? (syntax->datum #{a 26140}#) #:key))
- #{tmp 26136}#)
+ (lambda (#{a 26527}# #{b 26528}#)
+ (eq? (syntax->datum #{a 26527}#) #:key))
+ #{tmp 26523}#)
#f)
(@apply
- (lambda (#{a 26142}# #{b 26143}#)
- (#{key 26078}#
- #{b 26143}#
- (reverse #{rreq 26084}#)
+ (lambda (#{a 26529}# #{b 26530}#)
+ (#{key 26465}#
+ #{b 26530}#
+ (reverse #{rreq 26471}#)
'()
'()))
- #{tmp 26136}#)
- (let ((#{tmp 26146}#
+ #{tmp 26523}#)
+ (let ((#{tmp 26533}#
($sc-dispatch
- #{args 26083}#
+ #{args 26470}#
'(any any))))
- (if (if #{tmp 26146}#
+ (if (if #{tmp 26533}#
(@apply
- (lambda (#{a 26150}# #{b 26151}#)
- (eq? (syntax->datum #{a 26150}#)
+ (lambda (#{a 26537}# #{b 26538}#)
+ (eq? (syntax->datum #{a 26537}#)
#:rest))
- #{tmp 26146}#)
+ #{tmp 26533}#)
#f)
(@apply
- (lambda (#{a 26152}# #{b 26153}#)
- (#{rest 26079}#
- #{b 26153}#
- (reverse #{rreq 26084}#)
+ (lambda (#{a 26539}# #{b 26540}#)
+ (#{rest 26466}#
+ #{b 26540}#
+ (reverse #{rreq 26471}#)
'()
'()))
- #{tmp 26146}#)
- (let ((#{tmp 26156}# (list #{args 26083}#)))
+ #{tmp 26533}#)
+ (let ((#{tmp 26543}# (list #{args 26470}#)))
(if (@apply
- (lambda (#{r 26158}#)
- (if (symbol? #{r 26158}#)
+ (lambda (#{r 26545}#)
+ (if (symbol? #{r 26545}#)
#t
- (if (if (vector? #{r 26158}#)
+ (if (if (vector? #{r 26545}#)
(if (= (vector-length
- #{r 26158}#)
+ #{r 26545}#)
4)
(eq? (vector-ref
- #{r 26158}#
+ #{r 26545}#
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{r 26158}# 1))
+ (vector-ref #{r 26545}# 1))
#f)))
- #{tmp 26156}#)
+ #{tmp 26543}#)
(@apply
- (lambda (#{r 26188}#)
- (#{rest 26079}#
- #{r 26188}#
- (reverse #{rreq 26084}#)
+ (lambda (#{r 26575}#)
+ (#{rest 26466}#
+ #{r 26575}#
+ (reverse #{rreq 26471}#)
'()
'()))
- #{tmp 26156}#)
+ #{tmp 26543}#)
(syntax-violation
'lambda*
"invalid argument list"
- #{orig-args 26075}#
- #{args 26083}#)))))))))))))))
- (#{opt 26077}#
- (lambda (#{args 26207}# #{req 26208}# #{ropt 26209}#)
- (let ((#{tmp 26211}# ($sc-dispatch #{args 26207}# '())))
- (if #{tmp 26211}#
+ #{orig-args 26462}#
+ #{args 26470}#)))))))))))))))
+ (#{opt 26464}#
+ (lambda (#{args 26594}# #{req 26595}# #{ropt 26596}#)
+ (let ((#{tmp 26598}# ($sc-dispatch #{args 26594}# '())))
+ (if #{tmp 26598}#
(@apply
(lambda ()
- (#{check 26080}#
- #{req 26208}#
- (reverse #{ropt 26209}#)
+ (#{check 26467}#
+ #{req 26595}#
+ (reverse #{ropt 26596}#)
#f
'()))
- #{tmp 26211}#)
- (let ((#{tmp 26217}#
- ($sc-dispatch #{args 26207}# '(any . any))))
- (if (if #{tmp 26217}#
+ #{tmp 26598}#)
+ (let ((#{tmp 26604}#
+ ($sc-dispatch #{args 26594}# '(any . any))))
+ (if (if #{tmp 26604}#
(@apply
- (lambda (#{a 26221}# #{b 26222}#)
- (if (symbol? #{a 26221}#)
+ (lambda (#{a 26608}# #{b 26609}#)
+ (if (symbol? #{a 26608}#)
#t
- (if (if (vector? #{a 26221}#)
- (if (= (vector-length #{a 26221}#) 4)
- (eq? (vector-ref #{a 26221}# 0)
+ (if (if (vector? #{a 26608}#)
+ (if (= (vector-length #{a 26608}#) 4)
+ (eq? (vector-ref #{a 26608}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{a 26221}# 1))
+ (symbol? (vector-ref #{a 26608}# 1))
#f)))
- #{tmp 26217}#)
+ #{tmp 26604}#)
#f)
(@apply
- (lambda (#{a 26249}# #{b 26250}#)
- (#{opt 26077}#
- #{b 26250}#
- #{req 26208}#
- (cons (cons #{a 26249}#
+ (lambda (#{a 26636}# #{b 26637}#)
+ (#{opt 26464}#
+ #{b 26637}#
+ #{req 26595}#
+ (cons (cons #{a 26636}#
'(#(syntax-object
#f
((top)
#(ribcage
#(a b)
#((top) (top))
- #("i2369" "i2370"))
+ #("i2357" "i2358"))
#(ribcage () () ())
#(ribcage
#(args req ropt)
#((top) (top) (top))
- #("i2359" "i2360" "i2361"))
+ #("i2347" "i2348" "i2349"))
#(ribcage
(check rest key opt req)
((top) (top) (top) (top) (top))
- ("i2305"
- "i2303"
- "i2301"
- "i2299"
- "i2297"))
+ ("i2293"
+ "i2291"
+ "i2289"
+ "i2287"
+ "i2285"))
#(ribcage
#(orig-args)
#((top))
- #("i2296"))
+ #("i2284"))
#(ribcage
(lambda-var-list
gen-var
expand-expr
expand
syntax-type
- expand-when-list
+ parse-when-list
expand-install-global
expand-top-sequence
expand-sequence
((top) (top) (top))
("i46" "i45" "i44")))
(hygiene guile))))
- #{ropt 26209}#)))
- #{tmp 26217}#)
- (let ((#{tmp 26251}#
+ #{ropt 26596}#)))
+ #{tmp 26604}#)
+ (let ((#{tmp 26638}#
($sc-dispatch
- #{args 26207}#
+ #{args 26594}#
'((any any) . any))))
- (if (if #{tmp 26251}#
+ (if (if #{tmp 26638}#
(@apply
- (lambda (#{a 26255}#
- #{init 26256}#
- #{b 26257}#)
- (if (symbol? #{a 26255}#)
+ (lambda (#{a 26642}#
+ #{init 26643}#
+ #{b 26644}#)
+ (if (symbol? #{a 26642}#)
#t
- (if (if (vector? #{a 26255}#)
- (if (= (vector-length #{a 26255}#) 4)
- (eq? (vector-ref #{a 26255}# 0)
+ (if (if (vector? #{a 26642}#)
+ (if (= (vector-length #{a 26642}#) 4)
+ (eq? (vector-ref #{a 26642}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{a 26255}# 1))
+ (symbol? (vector-ref #{a 26642}# 1))
#f)))
- #{tmp 26251}#)
+ #{tmp 26638}#)
#f)
(@apply
- (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}#
+ (lambda (#{a 26671}# #{init 26672}# #{b 26673}#)
+ (#{opt 26464}#
+ #{b 26673}#
+ #{req 26595}#
+ (cons (list #{a 26671}# #{init 26672}#)
+ #{ropt 26596}#)))
+ #{tmp 26638}#)
+ (let ((#{tmp 26674}#
+ ($sc-dispatch #{args 26594}# '(any . any))))
+ (if (if #{tmp 26674}#
(@apply
- (lambda (#{a 26291}# #{b 26292}#)
- (eq? (syntax->datum #{a 26291}#) #:key))
- #{tmp 26287}#)
+ (lambda (#{a 26678}# #{b 26679}#)
+ (eq? (syntax->datum #{a 26678}#) #:key))
+ #{tmp 26674}#)
#f)
(@apply
- (lambda (#{a 26293}# #{b 26294}#)
- (#{key 26078}#
- #{b 26294}#
- #{req 26208}#
- (reverse #{ropt 26209}#)
+ (lambda (#{a 26680}# #{b 26681}#)
+ (#{key 26465}#
+ #{b 26681}#
+ #{req 26595}#
+ (reverse #{ropt 26596}#)
'()))
- #{tmp 26287}#)
- (let ((#{tmp 26297}#
+ #{tmp 26674}#)
+ (let ((#{tmp 26684}#
($sc-dispatch
- #{args 26207}#
+ #{args 26594}#
'(any any))))
- (if (if #{tmp 26297}#
+ (if (if #{tmp 26684}#
(@apply
- (lambda (#{a 26301}# #{b 26302}#)
- (eq? (syntax->datum #{a 26301}#)
+ (lambda (#{a 26688}# #{b 26689}#)
+ (eq? (syntax->datum #{a 26688}#)
#:rest))
- #{tmp 26297}#)
+ #{tmp 26684}#)
#f)
(@apply
- (lambda (#{a 26303}# #{b 26304}#)
- (#{rest 26079}#
- #{b 26304}#
- #{req 26208}#
- (reverse #{ropt 26209}#)
+ (lambda (#{a 26690}# #{b 26691}#)
+ (#{rest 26466}#
+ #{b 26691}#
+ #{req 26595}#
+ (reverse #{ropt 26596}#)
'()))
- #{tmp 26297}#)
- (let ((#{tmp 26307}# (list #{args 26207}#)))
+ #{tmp 26684}#)
+ (let ((#{tmp 26694}# (list #{args 26594}#)))
(if (@apply
- (lambda (#{r 26309}#)
- (if (symbol? #{r 26309}#)
+ (lambda (#{r 26696}#)
+ (if (symbol? #{r 26696}#)
#t
- (if (if (vector? #{r 26309}#)
+ (if (if (vector? #{r 26696}#)
(if (= (vector-length
- #{r 26309}#)
+ #{r 26696}#)
4)
(eq? (vector-ref
- #{r 26309}#
+ #{r 26696}#
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{r 26309}# 1))
+ (vector-ref #{r 26696}# 1))
#f)))
- #{tmp 26307}#)
+ #{tmp 26694}#)
(@apply
- (lambda (#{r 26339}#)
- (#{rest 26079}#
- #{r 26339}#
- #{req 26208}#
- (reverse #{ropt 26209}#)
+ (lambda (#{r 26726}#)
+ (#{rest 26466}#
+ #{r 26726}#
+ #{req 26595}#
+ (reverse #{ropt 26596}#)
'()))
- #{tmp 26307}#)
+ #{tmp 26694}#)
(syntax-violation
'lambda*
"invalid optional argument list"
- #{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}#
+ #{orig-args 26462}#
+ #{args 26594}#)))))))))))))))
+ (#{key 26465}#
+ (lambda (#{args 26745}#
+ #{req 26746}#
+ #{opt 26747}#
+ #{rkey 26748}#)
+ (let ((#{tmp 26750}# ($sc-dispatch #{args 26745}# '())))
+ (if #{tmp 26750}#
(@apply
(lambda ()
- (#{check 26080}#
- #{req 26359}#
- #{opt 26360}#
+ (#{check 26467}#
+ #{req 26746}#
+ #{opt 26747}#
#f
- (cons #f (reverse #{rkey 26361}#))))
- #{tmp 26363}#)
- (let ((#{tmp 26369}#
- ($sc-dispatch #{args 26358}# '(any . any))))
- (if (if #{tmp 26369}#
+ (cons #f (reverse #{rkey 26748}#))))
+ #{tmp 26750}#)
+ (let ((#{tmp 26756}#
+ ($sc-dispatch #{args 26745}# '(any . any))))
+ (if (if #{tmp 26756}#
(@apply
- (lambda (#{a 26373}# #{b 26374}#)
- (if (symbol? #{a 26373}#)
+ (lambda (#{a 26760}# #{b 26761}#)
+ (if (symbol? #{a 26760}#)
#t
- (if (if (vector? #{a 26373}#)
- (if (= (vector-length #{a 26373}#) 4)
- (eq? (vector-ref #{a 26373}# 0)
+ (if (if (vector? #{a 26760}#)
+ (if (= (vector-length #{a 26760}#) 4)
+ (eq? (vector-ref #{a 26760}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{a 26373}# 1))
+ (symbol? (vector-ref #{a 26760}# 1))
#f)))
- #{tmp 26369}#)
+ #{tmp 26756}#)
#f)
(@apply
- (lambda (#{a 26401}# #{b 26402}#)
- (let ((#{tmp 26403}#
+ (lambda (#{a 26788}# #{b 26789}#)
+ (let ((#{tmp 26790}#
(symbol->keyword
- (syntax->datum #{a 26401}#))))
- (#{key 26078}#
- #{b 26402}#
- #{req 26359}#
- #{opt 26360}#
- (cons (cons #{tmp 26403}#
- (cons #{a 26401}#
+ (syntax->datum #{a 26788}#))))
+ (#{key 26465}#
+ #{b 26789}#
+ #{req 26746}#
+ #{opt 26747}#
+ (cons (cons #{tmp 26790}#
+ (cons #{a 26788}#
'(#(syntax-object
#f
((top)
#(ribcage
#(k)
#((top))
- #("i2432"))
+ #("i2420"))
#(ribcage
#(a b)
#((top) (top))
- #("i2426" "i2427"))
+ #("i2414" "i2415"))
#(ribcage () () ())
#(ribcage
#(args req opt rkey)
(top)
(top)
(top))
- #("i2415"
- "i2416"
- "i2417"
- "i2418"))
+ #("i2403"
+ "i2404"
+ "i2405"
+ "i2406"))
#(ribcage
(check rest key opt req)
((top)
(top)
(top)
(top))
- ("i2305"
- "i2303"
- "i2301"
- "i2299"
- "i2297"))
+ ("i2293"
+ "i2291"
+ "i2289"
+ "i2287"
+ "i2285"))
#(ribcage
#(orig-args)
#((top))
- #("i2296"))
+ #("i2284"))
#(ribcage
(lambda-var-list
gen-var
expand-expr
expand
syntax-type
- expand-when-list
+ parse-when-list
expand-install-global
expand-top-sequence
expand-sequence
((top) (top) (top))
("i46" "i45" "i44")))
(hygiene guile)))))
- #{rkey 26361}#))))
- #{tmp 26369}#)
- (let ((#{tmp 26406}#
+ #{rkey 26748}#))))
+ #{tmp 26756}#)
+ (let ((#{tmp 26793}#
($sc-dispatch
- #{args 26358}#
+ #{args 26745}#
'((any any) . any))))
- (if (if #{tmp 26406}#
+ (if (if #{tmp 26793}#
(@apply
- (lambda (#{a 26410}#
- #{init 26411}#
- #{b 26412}#)
- (if (symbol? #{a 26410}#)
+ (lambda (#{a 26797}#
+ #{init 26798}#
+ #{b 26799}#)
+ (if (symbol? #{a 26797}#)
#t
- (if (if (vector? #{a 26410}#)
- (if (= (vector-length #{a 26410}#) 4)
- (eq? (vector-ref #{a 26410}# 0)
+ (if (if (vector? #{a 26797}#)
+ (if (= (vector-length #{a 26797}#) 4)
+ (eq? (vector-ref #{a 26797}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{a 26410}# 1))
+ (symbol? (vector-ref #{a 26797}# 1))
#f)))
- #{tmp 26406}#)
+ #{tmp 26793}#)
#f)
(@apply
- (lambda (#{a 26439}# #{init 26440}# #{b 26441}#)
- (let ((#{tmp 26442}#
+ (lambda (#{a 26826}# #{init 26827}# #{b 26828}#)
+ (let ((#{tmp 26829}#
(symbol->keyword
- (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}#
+ (syntax->datum #{a 26826}#))))
+ (#{key 26465}#
+ #{b 26828}#
+ #{req 26746}#
+ #{opt 26747}#
+ (cons (list #{tmp 26829}#
+ #{a 26826}#
+ #{init 26827}#)
+ #{rkey 26748}#))))
+ #{tmp 26793}#)
+ (let ((#{tmp 26832}#
($sc-dispatch
- #{args 26358}#
+ #{args 26745}#
'((any any any) . any))))
- (if (if #{tmp 26445}#
+ (if (if #{tmp 26832}#
(@apply
- (lambda (#{a 26449}#
- #{init 26450}#
- #{k 26451}#
- #{b 26452}#)
- (if (if (symbol? #{a 26449}#)
+ (lambda (#{a 26836}#
+ #{init 26837}#
+ #{k 26838}#
+ #{b 26839}#)
+ (if (if (symbol? #{a 26836}#)
#t
- (if (if (vector? #{a 26449}#)
+ (if (if (vector? #{a 26836}#)
(if (= (vector-length
- #{a 26449}#)
+ #{a 26836}#)
4)
(eq? (vector-ref
- #{a 26449}#
+ #{a 26836}#
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{a 26449}# 1))
+ (vector-ref #{a 26836}# 1))
#f))
- (keyword? (syntax->datum #{k 26451}#))
+ (keyword? (syntax->datum #{k 26838}#))
#f))
- #{tmp 26445}#)
+ #{tmp 26832}#)
#f)
(@apply
- (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}#
+ (lambda (#{a 26866}#
+ #{init 26867}#
+ #{k 26868}#
+ #{b 26869}#)
+ (#{key 26465}#
+ #{b 26869}#
+ #{req 26746}#
+ #{opt 26747}#
+ (cons (list #{k 26868}#
+ #{a 26866}#
+ #{init 26867}#)
+ #{rkey 26748}#)))
+ #{tmp 26832}#)
+ (let ((#{tmp 26870}#
+ ($sc-dispatch #{args 26745}# '(any))))
+ (if (if #{tmp 26870}#
(@apply
- (lambda (#{aok 26487}#)
- (eq? (syntax->datum #{aok 26487}#)
+ (lambda (#{aok 26874}#)
+ (eq? (syntax->datum #{aok 26874}#)
#:allow-other-keys))
- #{tmp 26483}#)
+ #{tmp 26870}#)
#f)
(@apply
- (lambda (#{aok 26488}#)
- (#{check 26080}#
- #{req 26359}#
- #{opt 26360}#
+ (lambda (#{aok 26875}#)
+ (#{check 26467}#
+ #{req 26746}#
+ #{opt 26747}#
#f
- (cons #t (reverse #{rkey 26361}#))))
- #{tmp 26483}#)
- (let ((#{tmp 26491}#
+ (cons #t (reverse #{rkey 26748}#))))
+ #{tmp 26870}#)
+ (let ((#{tmp 26878}#
($sc-dispatch
- #{args 26358}#
+ #{args 26745}#
'(any any any))))
- (if (if #{tmp 26491}#
+ (if (if #{tmp 26878}#
(@apply
- (lambda (#{aok 26495}#
- #{a 26496}#
- #{b 26497}#)
+ (lambda (#{aok 26882}#
+ #{a 26883}#
+ #{b 26884}#)
(if (eq? (syntax->datum
- #{aok 26495}#)
+ #{aok 26882}#)
#:allow-other-keys)
(eq? (syntax->datum
- #{a 26496}#)
+ #{a 26883}#)
#:rest)
#f))
- #{tmp 26491}#)
+ #{tmp 26878}#)
#f)
(@apply
- (lambda (#{aok 26498}#
- #{a 26499}#
- #{b 26500}#)
- (#{rest 26079}#
- #{b 26500}#
- #{req 26359}#
- #{opt 26360}#
+ (lambda (#{aok 26885}#
+ #{a 26886}#
+ #{b 26887}#)
+ (#{rest 26466}#
+ #{b 26887}#
+ #{req 26746}#
+ #{opt 26747}#
(cons #t
- (reverse #{rkey 26361}#))))
- #{tmp 26491}#)
- (let ((#{tmp 26503}#
+ (reverse #{rkey 26748}#))))
+ #{tmp 26878}#)
+ (let ((#{tmp 26890}#
($sc-dispatch
- #{args 26358}#
+ #{args 26745}#
'(any . any))))
- (if (if #{tmp 26503}#
+ (if (if #{tmp 26890}#
(@apply
- (lambda (#{aok 26507}#
- #{r 26508}#)
+ (lambda (#{aok 26894}#
+ #{r 26895}#)
(if (eq? (syntax->datum
- #{aok 26507}#)
+ #{aok 26894}#)
#:allow-other-keys)
- (if (symbol? #{r 26508}#)
+ (if (symbol? #{r 26895}#)
#t
(if (if (vector?
- #{r 26508}#)
+ #{r 26895}#)
(if (= (vector-length
- #{r 26508}#)
+ #{r 26895}#)
4)
(eq? (vector-ref
- #{r 26508}#
+ #{r 26895}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{r 26508}#
+ #{r 26895}#
1))
#f))
#f))
- #{tmp 26503}#)
+ #{tmp 26890}#)
#f)
(@apply
- (lambda (#{aok 26535}# #{r 26536}#)
- (#{rest 26079}#
- #{r 26536}#
- #{req 26359}#
- #{opt 26360}#
+ (lambda (#{aok 26922}# #{r 26923}#)
+ (#{rest 26466}#
+ #{r 26923}#
+ #{req 26746}#
+ #{opt 26747}#
(cons #t
(reverse
- #{rkey 26361}#))))
- #{tmp 26503}#)
- (let ((#{tmp 26539}#
+ #{rkey 26748}#))))
+ #{tmp 26890}#)
+ (let ((#{tmp 26926}#
($sc-dispatch
- #{args 26358}#
+ #{args 26745}#
'(any any))))
- (if (if #{tmp 26539}#
+ (if (if #{tmp 26926}#
(@apply
- (lambda (#{a 26543}#
- #{b 26544}#)
+ (lambda (#{a 26930}#
+ #{b 26931}#)
(eq? (syntax->datum
- #{a 26543}#)
+ #{a 26930}#)
#:rest))
- #{tmp 26539}#)
+ #{tmp 26926}#)
#f)
(@apply
- (lambda (#{a 26545}#
- #{b 26546}#)
- (#{rest 26079}#
- #{b 26546}#
- #{req 26359}#
- #{opt 26360}#
+ (lambda (#{a 26932}#
+ #{b 26933}#)
+ (#{rest 26466}#
+ #{b 26933}#
+ #{req 26746}#
+ #{opt 26747}#
(cons #f
(reverse
- #{rkey 26361}#))))
- #{tmp 26539}#)
- (let ((#{tmp 26549}#
- (list #{args 26358}#)))
+ #{rkey 26748}#))))
+ #{tmp 26926}#)
+ (let ((#{tmp 26936}#
+ (list #{args 26745}#)))
(if (@apply
- (lambda (#{r 26551}#)
+ (lambda (#{r 26938}#)
(if (symbol?
- #{r 26551}#)
+ #{r 26938}#)
#t
(if (if (vector?
- #{r 26551}#)
+ #{r 26938}#)
(if (= (vector-length
- #{r 26551}#)
+ #{r 26938}#)
4)
(eq? (vector-ref
- #{r 26551}#
+ #{r 26938}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{r 26551}#
+ #{r 26938}#
1))
#f)))
- #{tmp 26549}#)
+ #{tmp 26936}#)
(@apply
- (lambda (#{r 26581}#)
- (#{rest 26079}#
- #{r 26581}#
- #{req 26359}#
- #{opt 26360}#
+ (lambda (#{r 26968}#)
+ (#{rest 26466}#
+ #{r 26968}#
+ #{req 26746}#
+ #{opt 26747}#
(cons #f
(reverse
- #{rkey 26361}#))))
- #{tmp 26549}#)
+ #{rkey 26748}#))))
+ #{tmp 26936}#)
(syntax-violation
'lambda*
"invalid keyword argument list"
- #{orig-args 26075}#
- #{args 26358}#)))))))))))))))))))))
- (#{rest 26079}#
- (lambda (#{args 26609}#
- #{req 26610}#
- #{opt 26611}#
- #{kw 26612}#)
- (let ((#{tmp 26614}# (list #{args 26609}#)))
+ #{orig-args 26462}#
+ #{args 26745}#)))))))))))))))))))))
+ (#{rest 26466}#
+ (lambda (#{args 26996}#
+ #{req 26997}#
+ #{opt 26998}#
+ #{kw 26999}#)
+ (let ((#{tmp 27001}# (list #{args 26996}#)))
(if (@apply
- (lambda (#{r 26616}#)
- (if (symbol? #{r 26616}#)
+ (lambda (#{r 27003}#)
+ (if (symbol? #{r 27003}#)
#t
- (if (if (vector? #{r 26616}#)
- (if (= (vector-length #{r 26616}#) 4)
- (eq? (vector-ref #{r 26616}# 0)
+ (if (if (vector? #{r 27003}#)
+ (if (= (vector-length #{r 27003}#) 4)
+ (eq? (vector-ref #{r 27003}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{r 26616}# 1))
+ (symbol? (vector-ref #{r 27003}# 1))
#f)))
- #{tmp 26614}#)
+ #{tmp 27001}#)
(@apply
- (lambda (#{r 26646}#)
- (#{check 26080}#
- #{req 26610}#
- #{opt 26611}#
- #{r 26646}#
- #{kw 26612}#))
- #{tmp 26614}#)
+ (lambda (#{r 27033}#)
+ (#{check 26467}#
+ #{req 26997}#
+ #{opt 26998}#
+ #{r 27033}#
+ #{kw 26999}#))
+ #{tmp 27001}#)
(syntax-violation
'lambda*
"invalid rest argument"
- #{orig-args 26075}#
- #{args 26609}#)))))
- (#{check 26080}#
- (lambda (#{req 26650}#
- #{opt 26651}#
- #{rest 26652}#
- #{kw 26653}#)
- (if (#{distinct-bound-ids? 4336}#
+ #{orig-args 26462}#
+ #{args 26996}#)))))
+ (#{check 26467}#
+ (lambda (#{req 27037}#
+ #{opt 27038}#
+ #{rest 27039}#
+ #{kw 27040}#)
+ (if (#{distinct-bound-ids? 4324}#
(append
- #{req 26650}#
- (map car #{opt 26651}#)
- (if #{rest 26652}# (list #{rest 26652}#) '())
- (if (pair? #{kw 26653}#)
- (map cadr (cdr #{kw 26653}#))
+ #{req 27037}#
+ (map car #{opt 27038}#)
+ (if #{rest 27039}# (list #{rest 27039}#) '())
+ (if (pair? #{kw 27040}#)
+ (map cadr (cdr #{kw 27040}#))
'())))
(values
- #{req 26650}#
- #{opt 26651}#
- #{rest 26652}#
- #{kw 26653}#)
+ #{req 27037}#
+ #{opt 27038}#
+ #{rest 27039}#
+ #{kw 27040}#)
(syntax-violation
'lambda*
"duplicate identifier in argument list"
- #{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}#)
+ #{orig-args 26462}#)))))
+ (#{req 26463}# #{orig-args 26462}# '()))))
+ (#{expand-lambda-case 4345}#
+ (lambda (#{e 27160}#
+ #{r 27161}#
+ #{w 27162}#
+ #{s 27163}#
+ #{mod 27164}#
+ #{get-formals 27165}#
+ #{clauses 27166}#)
(letrec*
- ((#{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 26920}#
- #{vars 26919}#
- #{r 26774}#))
- (#{w* 26922}#
- (#{make-binding-wrap 4327}#
- #{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}#
+ ((#{parse-req 27167}#
+ (lambda (#{req 27301}#
+ #{opt 27302}#
+ #{rest 27303}#
+ #{kw 27304}#
+ #{body 27305}#)
+ (let ((#{vars 27306}#
+ (map #{gen-var 4347}# #{req 27301}#))
+ (#{labels 27307}#
+ (#{gen-labels 4304}# #{req 27301}#)))
+ (let ((#{r* 27308}#
+ (#{extend-var-env 4296}#
+ #{labels 27307}#
+ #{vars 27306}#
+ #{r 27161}#))
+ (#{w* 27309}#
+ (#{make-binding-wrap 4315}#
+ #{req 27301}#
+ #{labels 27307}#
+ #{w 27162}#)))
+ (#{parse-opt 27168}#
+ (map syntax->datum #{req 27301}#)
+ #{opt 27302}#
+ #{rest 27303}#
+ #{kw 27304}#
+ #{body 27305}#
+ (reverse #{vars 27306}#)
+ #{r* 27308}#
+ #{w* 27309}#
'()
'())))))
- (#{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}#
+ (#{parse-opt 27168}#
+ (lambda (#{req 27525}#
+ #{opt 27526}#
+ #{rest 27527}#
+ #{kw 27528}#
+ #{body 27529}#
+ #{vars 27530}#
+ #{r* 27531}#
+ #{w* 27532}#
+ #{out 27533}#
+ #{inits 27534}#)
+ (if (pair? #{opt 27526}#)
+ (let ((#{tmp 27535}# (car #{opt 27526}#)))
+ (let ((#{tmp 27536}#
+ ($sc-dispatch #{tmp 27535}# '(any any))))
+ (if #{tmp 27536}#
(@apply
- (lambda (#{id 27151}# #{i 27152}#)
- (let ((#{v 27153}#
- (let ((#{id 27161}#
- (if (if (vector? #{id 27151}#)
+ (lambda (#{id 27538}# #{i 27539}#)
+ (let ((#{v 27540}#
+ (let ((#{id 27548}#
+ (if (if (vector? #{id 27538}#)
(if (= (vector-length
- #{id 27151}#)
+ #{id 27538}#)
4)
(eq? (vector-ref
- #{id 27151}#
+ #{id 27538}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{id 27151}# 1)
- #{id 27151}#)))
+ (vector-ref #{id 27538}# 1)
+ #{id 27538}#)))
(gensym
(string-append
- (symbol->string #{id 27161}#)
+ (symbol->string #{id 27548}#)
" ")))))
- (let ((#{l 27154}#
- (#{gen-labels 4316}# (list #{v 27153}#))))
- (let ((#{r** 27155}#
- (#{extend-var-env 4308}#
- #{l 27154}#
- (list #{v 27153}#)
- #{r* 27144}#)))
- (let ((#{w** 27156}#
- (#{make-binding-wrap 4327}#
- (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}#)
+ (let ((#{l 27541}#
+ (#{gen-labels 4304}# (list #{v 27540}#))))
+ (let ((#{r** 27542}#
+ (#{extend-var-env 4296}#
+ #{l 27541}#
+ (list #{v 27540}#)
+ #{r* 27531}#)))
+ (let ((#{w** 27543}#
+ (#{make-binding-wrap 4315}#
+ (list #{id 27538}#)
+ #{l 27541}#
+ #{w* 27532}#)))
+ (#{parse-opt 27168}#
+ #{req 27525}#
+ (cdr #{opt 27526}#)
+ #{rest 27527}#
+ #{kw 27528}#
+ #{body 27529}#
+ (cons #{v 27540}# #{vars 27530}#)
+ #{r** 27542}#
+ #{w** 27543}#
+ (cons (syntax->datum #{id 27538}#)
+ #{out 27533}#)
+ (cons (#{expand 4333}#
+ #{i 27539}#
+ #{r* 27531}#
+ #{w* 27532}#
+ #{mod 27164}#)
+ #{inits 27534}#)))))))
+ #{tmp 27536}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 27148}#))))
- (if #{rest 27140}#
- (let ((#{v 27433}#
- (let ((#{id 27443}#
- (if (if (vector? #{rest 27140}#)
- (if (= (vector-length #{rest 27140}#)
+ #{tmp 27535}#))))
+ (if #{rest 27527}#
+ (let ((#{v 27820}#
+ (let ((#{id 27830}#
+ (if (if (vector? #{rest 27527}#)
+ (if (= (vector-length #{rest 27527}#)
4)
- (eq? (vector-ref #{rest 27140}# 0)
+ (eq? (vector-ref #{rest 27527}# 0)
'syntax-object)
#f)
#f)
- (vector-ref #{rest 27140}# 1)
- #{rest 27140}#)))
+ (vector-ref #{rest 27527}# 1)
+ #{rest 27527}#)))
(gensym
(string-append
- (symbol->string #{id 27443}#)
+ (symbol->string #{id 27830}#)
" ")))))
- (let ((#{l 27434}#
- (#{gen-labels 4316}# (list #{v 27433}#))))
- (let ((#{r* 27435}#
- (#{extend-var-env 4308}#
- #{l 27434}#
- (list #{v 27433}#)
- #{r* 27144}#)))
- (let ((#{w* 27436}#
- (#{make-binding-wrap 4327}#
- (list #{rest 27140}#)
- #{l 27434}#
- #{w* 27145}#)))
- (#{parse-kw 26782}#
- #{req 27138}#
- (if (pair? #{out 27146}#)
- (reverse #{out 27146}#)
+ (let ((#{l 27821}#
+ (#{gen-labels 4304}# (list #{v 27820}#))))
+ (let ((#{r* 27822}#
+ (#{extend-var-env 4296}#
+ #{l 27821}#
+ (list #{v 27820}#)
+ #{r* 27531}#)))
+ (let ((#{w* 27823}#
+ (#{make-binding-wrap 4315}#
+ (list #{rest 27527}#)
+ #{l 27821}#
+ #{w* 27532}#)))
+ (#{parse-kw 27169}#
+ #{req 27525}#
+ (if (pair? #{out 27533}#)
+ (reverse #{out 27533}#)
#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)
+ (syntax->datum #{rest 27527}#)
+ (if (pair? #{kw 27528}#)
+ (cdr #{kw 27528}#)
+ #{kw 27528}#)
+ #{body 27529}#
+ (cons #{v 27820}# #{vars 27530}#)
+ #{r* 27822}#
+ #{w* 27823}#
+ (if (pair? #{kw 27528}#) (car #{kw 27528}#) #f)
'()
- #{inits 27147}#)))))
- (#{parse-kw 26782}#
- #{req 27138}#
- (if (pair? #{out 27146}#)
- (reverse #{out 27146}#)
+ #{inits 27534}#)))))
+ (#{parse-kw 27169}#
+ #{req 27525}#
+ (if (pair? #{out 27533}#)
+ (reverse #{out 27533}#)
#f)
#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)
+ (if (pair? #{kw 27528}#)
+ (cdr #{kw 27528}#)
+ #{kw 27528}#)
+ #{body 27529}#
+ #{vars 27530}#
+ #{r* 27531}#
+ #{w* 27532}#
+ (if (pair? #{kw 27528}#) (car #{kw 27528}#) #f)
'()
- #{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}#
+ #{inits 27534}#)))))
+ (#{parse-kw 27169}#
+ (lambda (#{req 28030}#
+ #{opt 28031}#
+ #{rest 28032}#
+ #{kw 28033}#
+ #{body 28034}#
+ #{vars 28035}#
+ #{r* 28036}#
+ #{w* 28037}#
+ #{aok 28038}#
+ #{out 28039}#
+ #{inits 28040}#)
+ (if (pair? #{kw 28033}#)
+ (let ((#{tmp 28041}# (car #{kw 28033}#)))
+ (let ((#{tmp 28042}#
+ ($sc-dispatch #{tmp 28041}# '(any any any))))
+ (if #{tmp 28042}#
(@apply
- (lambda (#{k 27657}# #{id 27658}# #{i 27659}#)
- (let ((#{v 27660}#
- (let ((#{id 27668}#
- (if (if (vector? #{id 27658}#)
+ (lambda (#{k 28044}# #{id 28045}# #{i 28046}#)
+ (let ((#{v 28047}#
+ (let ((#{id 28055}#
+ (if (if (vector? #{id 28045}#)
(if (= (vector-length
- #{id 27658}#)
+ #{id 28045}#)
4)
(eq? (vector-ref
- #{id 27658}#
+ #{id 28045}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{id 27658}# 1)
- #{id 27658}#)))
+ (vector-ref #{id 28045}# 1)
+ #{id 28045}#)))
(gensym
(string-append
- (symbol->string #{id 27668}#)
+ (symbol->string #{id 28055}#)
" ")))))
- (let ((#{l 27661}#
- (#{gen-labels 4316}# (list #{v 27660}#))))
- (let ((#{r** 27662}#
- (#{extend-var-env 4308}#
- #{l 27661}#
- (list #{v 27660}#)
- #{r* 27649}#)))
- (let ((#{w** 27663}#
- (#{make-binding-wrap 4327}#
- (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}#)
+ (let ((#{l 28048}#
+ (#{gen-labels 4304}# (list #{v 28047}#))))
+ (let ((#{r** 28049}#
+ (#{extend-var-env 4296}#
+ #{l 28048}#
+ (list #{v 28047}#)
+ #{r* 28036}#)))
+ (let ((#{w** 28050}#
+ (#{make-binding-wrap 4315}#
+ (list #{id 28045}#)
+ #{l 28048}#
+ #{w* 28037}#)))
+ (#{parse-kw 27169}#
+ #{req 28030}#
+ #{opt 28031}#
+ #{rest 28032}#
+ (cdr #{kw 28033}#)
+ #{body 28034}#
+ (cons #{v 28047}# #{vars 28035}#)
+ #{r** 28049}#
+ #{w** 28050}#
+ #{aok 28038}#
+ (cons (list (syntax->datum #{k 28044}#)
+ (syntax->datum #{id 28045}#)
+ #{v 28047}#)
+ #{out 28039}#)
+ (cons (#{expand 4333}#
+ #{i 28046}#
+ #{r* 28036}#
+ #{w* 28037}#
+ #{mod 27164}#)
+ #{inits 28040}#)))))))
+ #{tmp 28042}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{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}#))
+ #{tmp 28041}#))))
+ (#{parse-body 27170}#
+ #{req 28030}#
+ #{opt 28031}#
+ #{rest 28032}#
+ (if (if #{aok 28038}#
+ #{aok 28038}#
+ (pair? #{out 28039}#))
+ (cons #{aok 28038}# (reverse #{out 28039}#))
#f)
- #{body 27647}#
- (reverse #{vars 27648}#)
- #{r* 27649}#
- #{w* 27650}#
- (reverse #{inits 27653}#)
+ #{body 28034}#
+ (reverse #{vars 28035}#)
+ #{r* 28036}#
+ #{w* 28037}#
+ (reverse #{inits 28040}#)
'()))))
- (#{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}#
+ (#{parse-body 27170}#
+ (lambda (#{req 28336}#
+ #{opt 28337}#
+ #{rest 28338}#
+ #{kw 28339}#
+ #{body 28340}#
+ #{vars 28341}#
+ #{r* 28342}#
+ #{w* 28343}#
+ #{inits 28344}#
+ #{meta 28345}#)
+ (let ((#{tmp 28347}#
($sc-dispatch
- #{body 27953}#
+ #{body 28340}#
'(any any . each-any))))
- (if (if #{tmp 27960}#
+ (if (if #{tmp 28347}#
(@apply
- (lambda (#{docstring 27964}# #{e1 27965}# #{e2 27966}#)
- (string? (syntax->datum #{docstring 27964}#)))
- #{tmp 27960}#)
+ (lambda (#{docstring 28351}# #{e1 28352}# #{e2 28353}#)
+ (string? (syntax->datum #{docstring 28351}#)))
+ #{tmp 28347}#)
#f)
(@apply
- (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}#
+ (lambda (#{docstring 28354}# #{e1 28355}# #{e2 28356}#)
+ (#{parse-body 27170}#
+ #{req 28336}#
+ #{opt 28337}#
+ #{rest 28338}#
+ #{kw 28339}#
+ (cons #{e1 28355}# #{e2 28356}#)
+ #{vars 28341}#
+ #{r* 28342}#
+ #{w* 28343}#
+ #{inits 28344}#
(append
- #{meta 27958}#
+ #{meta 28345}#
(list (cons 'documentation
- (syntax->datum #{docstring 27967}#))))))
- #{tmp 27960}#)
- (let ((#{tmp 27970}#
+ (syntax->datum #{docstring 28354}#))))))
+ #{tmp 28347}#)
+ (let ((#{tmp 28357}#
($sc-dispatch
- #{body 27953}#
+ #{body 28340}#
'(#(vector #(each (any . any))) any . each-any))))
- (if #{tmp 27970}#
+ (if #{tmp 28357}#
(@apply
- (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}#
+ (lambda (#{k 28361}#
+ #{v 28362}#
+ #{e1 28363}#
+ #{e2 28364}#)
+ (#{parse-body 27170}#
+ #{req 28336}#
+ #{opt 28337}#
+ #{rest 28338}#
+ #{kw 28339}#
+ (cons #{e1 28363}# #{e2 28364}#)
+ #{vars 28341}#
+ #{r* 28342}#
+ #{w* 28343}#
+ #{inits 28344}#
(append
- #{meta 27958}#
+ #{meta 28345}#
(syntax->datum
- (map cons #{k 27974}# #{v 27975}#)))))
- #{tmp 27970}#)
- (let ((#{tmp 27978}#
- ($sc-dispatch #{body 27953}# '(any . each-any))))
- (if #{tmp 27978}#
+ (map cons #{k 28361}# #{v 28362}#)))))
+ #{tmp 28357}#)
+ (let ((#{tmp 28365}#
+ ($sc-dispatch #{body 28340}# '(any . each-any))))
+ (if #{tmp 28365}#
(@apply
- (lambda (#{e1 27982}# #{e2 27983}#)
+ (lambda (#{e1 28369}# #{e2 28370}#)
(values
- #{meta 27958}#
- #{req 27949}#
- #{opt 27950}#
- #{rest 27951}#
- #{kw 27952}#
- #{inits 27957}#
- #{vars 27954}#
- (#{expand-body 4349}#
- (cons #{e1 27982}# #{e2 27983}#)
- (#{wrap 4338}#
+ #{meta 28345}#
+ #{req 28336}#
+ #{opt 28337}#
+ #{rest 28338}#
+ #{kw 28339}#
+ #{inits 28344}#
+ #{vars 28341}#
+ (#{expand-body 4337}#
+ (cons #{e1 28369}# #{e2 28370}#)
+ (#{wrap 4326}#
(begin
- (if (if (pair? #{e 26773}#)
- #{s 26776}#
+ (if (if (pair? #{e 27160}#)
+ #{s 27163}#
#f)
(set-source-properties!
- #{e 26773}#
- #{s 26776}#))
- #{e 26773}#)
- #{w 26775}#
- #{mod 26777}#)
- #{r* 27955}#
- #{w* 27956}#
- #{mod 26777}#)))
- #{tmp 27978}#)
+ #{e 27160}#
+ #{s 27163}#))
+ #{e 27160}#)
+ #{w 27162}#
+ #{mod 27164}#)
+ #{r* 28342}#
+ #{w* 28343}#
+ #{mod 27164}#)))
+ #{tmp 28365}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{body 27953}#))))))))))
- (let ((#{tmp 26785}#
- ($sc-dispatch #{clauses 26779}# '())))
- (if #{tmp 26785}#
+ #{body 28340}#))))))))))
+ (let ((#{tmp 27172}#
+ ($sc-dispatch #{clauses 27166}# '())))
+ (if #{tmp 27172}#
(@apply
(lambda () (values '() #f))
- #{tmp 26785}#)
- (let ((#{tmp 26790}#
+ #{tmp 27172}#)
+ (let ((#{tmp 27177}#
($sc-dispatch
- #{clauses 26779}#
+ #{clauses 27166}#
'((any any . each-any)
.
#(each (any any . each-any))))))
- (if #{tmp 26790}#
+ (if #{tmp 27177}#
(@apply
- (lambda (#{args 26794}#
- #{e1 26795}#
- #{e2 26796}#
- #{args* 26797}#
- #{e1* 26798}#
- #{e2* 26799}#)
+ (lambda (#{args 27181}#
+ #{e1 27182}#
+ #{e2 27183}#
+ #{args* 27184}#
+ #{e1* 27185}#
+ #{e2* 27186}#)
(call-with-values
(lambda ()
- (#{get-formals 26778}# #{args 26794}#))
- (lambda (#{req 26800}#
- #{opt 26801}#
- #{rest 26802}#
- #{kw 26803}#)
+ (#{get-formals 27165}# #{args 27181}#))
+ (lambda (#{req 27187}#
+ #{opt 27188}#
+ #{rest 27189}#
+ #{kw 27190}#)
(call-with-values
(lambda ()
- (#{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}#)
+ (#{parse-req 27167}#
+ #{req 27187}#
+ #{opt 27188}#
+ #{rest 27189}#
+ #{kw 27190}#
+ (cons #{e1 27182}# #{e2 27183}#)))
+ (lambda (#{meta 27257}#
+ #{req 27258}#
+ #{opt 27259}#
+ #{rest 27260}#
+ #{kw 27261}#
+ #{inits 27262}#
+ #{vars 27263}#
+ #{body 27264}#)
(call-with-values
(lambda ()
- (#{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}#)
+ (#{expand-lambda-case 4345}#
+ #{e 27160}#
+ #{r 27161}#
+ #{w 27162}#
+ #{s 27163}#
+ #{mod 27164}#
+ #{get-formals 27165}#
+ (map (lambda (#{tmp 2763 27265}#
+ #{tmp 2762 27266}#
+ #{tmp 2761 27267}#)
+ (cons #{tmp 2761 27267}#
+ (cons #{tmp 2762 27266}#
+ #{tmp 2763 27265}#)))
+ #{e2* 27186}#
+ #{e1* 27185}#
+ #{args* 27184}#)))
+ (lambda (#{meta* 27268}# #{else* 27269}#)
(values
- (append #{meta 26870}# #{meta* 26881}#)
+ (append #{meta 27257}# #{meta* 27268}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
- #{s 26776}#
- #{req 26871}#
- #{opt 26872}#
- #{rest 26873}#
- #{kw 26874}#
- #{inits 26875}#
- #{vars 26876}#
- #{body 26877}#
- #{else* 26882}#)))))))))
- #{tmp 26790}#)
+ #{s 27163}#
+ #{req 27258}#
+ #{opt 27259}#
+ #{rest 27260}#
+ #{kw 27261}#
+ #{inits 27262}#
+ #{vars 27263}#
+ #{body 27264}#
+ #{else* 27269}#)))))))))
+ #{tmp 27177}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{clauses 26779}#))))))))
- (#{strip 4358}#
- (lambda (#{x 28020}# #{w 28021}#)
- (if (memq 'top (car #{w 28021}#))
- #{x 28020}#
+ #{clauses 27166}#))))))))
+ (#{strip 4346}#
+ (lambda (#{x 28407}# #{w 28408}#)
+ (if (memq 'top (car #{w 28408}#))
+ #{x 28407}#
(letrec*
- ((#{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 28409}#
+ (lambda (#{x 28412}#)
+ (if (if (vector? #{x 28412}#)
+ (if (= (vector-length #{x 28412}#) 4)
+ (eq? (vector-ref #{x 28412}# 0) 'syntax-object)
#f)
#f)
- (#{strip 4358}#
- (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}#))
+ (#{strip 4346}#
+ (vector-ref #{x 28412}# 1)
+ (vector-ref #{x 28412}# 2))
+ (if (pair? #{x 28412}#)
+ (let ((#{a 28431}# (#{f 28409}# (car #{x 28412}#)))
+ (#{d 28432}# (#{f 28409}# (cdr #{x 28412}#))))
+ (if (if (eq? #{a 28431}# (car #{x 28412}#))
+ (eq? #{d 28432}# (cdr #{x 28412}#))
#f)
- #{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}#)))
+ #{x 28412}#
+ (cons #{a 28431}# #{d 28432}#)))
+ (if (vector? #{x 28412}#)
+ (let ((#{old 28435}# (vector->list #{x 28412}#)))
+ (let ((#{new 28436}# (map #{f 28409}# #{old 28435}#)))
(letrec*
- ((#{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 26926}#)
- (let ((#{id 26927}#
- (if (if (vector? #{id 26926}#)
- (if (= (vector-length #{id 26926}#) 4)
- (eq? (vector-ref #{id 26926}# 0) 'syntax-object)
+ ((#{lp 28437}#
+ (lambda (#{l1 28513}# #{l2 28514}#)
+ (if (null? #{l1 28513}#)
+ #{x 28412}#
+ (if (eq? (car #{l1 28513}#)
+ (car #{l2 28514}#))
+ (#{lp 28437}#
+ (cdr #{l1 28513}#)
+ (cdr #{l2 28514}#))
+ (list->vector #{new 28436}#))))))
+ (#{lp 28437}# #{old 28435}# #{new 28436}#))))
+ #{x 28412}#))))))
+ (#{f 28409}# #{x 28407}#)))))
+ (#{gen-var 4347}#
+ (lambda (#{id 27313}#)
+ (let ((#{id 27314}#
+ (if (if (vector? #{id 27313}#)
+ (if (= (vector-length #{id 27313}#) 4)
+ (eq? (vector-ref #{id 27313}# 0) 'syntax-object)
#f)
#f)
- (vector-ref #{id 26926}# 1)
- #{id 26926}#)))
+ (vector-ref #{id 27313}# 1)
+ #{id 27313}#)))
(gensym
- (string-append (symbol->string #{id 26927}#) " "))))))
+ (string-append (symbol->string #{id 27314}#) " "))))))
(begin
(module-define!
(current-module)
'let-syntax
'local-syntax
#f))
- (#{global-extend 4311}#
+ (#{global-extend 4299}#
'core
'fluid-let-syntax
- (lambda (#{e 4480}#
- #{r 4481}#
- #{w 4482}#
- #{s 4483}#
- #{mod 4484}#)
- (let ((#{tmp 4486}#
+ (lambda (#{e 4468}#
+ #{r 4469}#
+ #{w 4470}#
+ #{s 4471}#
+ #{mod 4472}#)
+ (let ((#{tmp 4474}#
($sc-dispatch
- #{e 4480}#
+ #{e 4468}#
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp 4486}#
+ (if (if #{tmp 4474}#
(@apply
- (lambda (#{var 4490}#
- #{val 4491}#
- #{e1 4492}#
- #{e2 4493}#)
- (#{valid-bound-ids? 4335}# #{var 4490}#))
- #{tmp 4486}#)
+ (lambda (#{var 4478}#
+ #{val 4479}#
+ #{e1 4480}#
+ #{e2 4481}#)
+ (#{valid-bound-ids? 4323}# #{var 4478}#))
+ #{tmp 4474}#)
#f)
(@apply
- (lambda (#{var 4571}#
- #{val 4572}#
- #{e1 4573}#
- #{e2 4574}#)
- (let ((#{names 4575}#
- (map (lambda (#{x 4765}#)
- (#{id-var-name 4332}# #{x 4765}# #{w 4482}#))
- #{var 4571}#)))
+ (lambda (#{var 4559}#
+ #{val 4560}#
+ #{e1 4561}#
+ #{e2 4562}#)
+ (let ((#{names 4563}#
+ (map (lambda (#{x 4753}#)
+ (#{id-var-name 4320}# #{x 4753}# #{w 4470}#))
+ #{var 4559}#)))
(begin
(for-each
- (lambda (#{id 4576}# #{n 4577}#)
- (let ((#{atom-key 4578}#
- (car (let ((#{t 4702}#
- (assq #{n 4577}# #{r 4481}#)))
- (if #{t 4702}#
- (cdr #{t 4702}#)
- (if (symbol? #{n 4577}#)
- (let ((#{t 4707}#
+ (lambda (#{id 4564}# #{n 4565}#)
+ (let ((#{atom-key 4566}#
+ (car (let ((#{t 4690}#
+ (assq #{n 4565}# #{r 4469}#)))
+ (if #{t 4690}#
+ (cdr #{t 4690}#)
+ (if (symbol? #{n 4565}#)
+ (let ((#{t 4695}#
(begin
- (if (if (not #{mod 4484}#)
+ (if (if (not #{mod 4472}#)
(current-module)
#f)
(warn "module system is booted, we should have a module"
- #{n 4577}#))
- (let ((#{v 4744}#
+ #{n 4565}#))
+ (let ((#{v 4732}#
(module-variable
- (if #{mod 4484}#
+ (if #{mod 4472}#
(resolve-module
- (cdr #{mod 4484}#))
+ (cdr #{mod 4472}#))
(current-module))
- #{n 4577}#)))
- (if #{v 4744}#
+ #{n 4565}#)))
+ (if #{v 4732}#
(if (variable-bound?
- #{v 4744}#)
- (let ((#{val 4753}#
+ #{v 4732}#)
+ (let ((#{val 4741}#
(variable-ref
- #{v 4744}#)))
+ #{v 4732}#)))
(if (macro?
- #{val 4753}#)
+ #{val 4741}#)
(if (macro-type
- #{val 4753}#)
+ #{val 4741}#)
(cons (macro-type
- #{val 4753}#)
+ #{val 4741}#)
(macro-binding
- #{val 4753}#))
+ #{val 4741}#))
#f)
#f))
#f)
#f)))))
- (if #{t 4707}#
- #{t 4707}#
+ (if #{t 4695}#
+ #{t 4695}#
'(global)))
'(displaced-lexical)))))))
- (if (let ((#{t 4611}# #{atom-key 4578}#))
- (eqv? #{t 4611}# 'displaced-lexical))
+ (if (let ((#{t 4599}# #{atom-key 4566}#))
+ (eqv? #{t 4599}# 'displaced-lexical))
(syntax-violation
'fluid-let-syntax
"identifier out of context"
- #{e 4480}#
- (#{wrap 4338}#
+ #{e 4468}#
+ (#{wrap 4326}#
(begin
- (if (if (pair? #{id 4576}#) #{s 4483}# #f)
+ (if (if (pair? #{id 4564}#) #{s 4471}# #f)
(set-source-properties!
- #{id 4576}#
- #{s 4483}#))
- #{id 4576}#)
- #{w 4482}#
- #{mod 4484}#)))))
- #{var 4571}#
- #{names 4575}#)
- (#{expand-body 4349}#
- (cons #{e1 4573}# #{e2 4574}#)
- (#{wrap 4338}#
+ #{id 4564}#
+ #{s 4471}#))
+ #{id 4564}#)
+ #{w 4470}#
+ #{mod 4472}#)))))
+ #{var 4559}#
+ #{names 4563}#)
+ (#{expand-body 4337}#
+ (cons #{e1 4561}# #{e2 4562}#)
+ (#{wrap 4326}#
(begin
- (if (if (pair? #{e 4480}#) #{s 4483}# #f)
- (set-source-properties! #{e 4480}# #{s 4483}#))
- #{e 4480}#)
- #{w 4482}#
- #{mod 4484}#)
- (#{extend-env 4307}#
- #{names 4575}#
- (let ((#{trans-r 4851}#
- (#{macros-only-env 4309}# #{r 4481}#)))
- (map (lambda (#{x 4852}#)
+ (if (if (pair? #{e 4468}#) #{s 4471}# #f)
+ (set-source-properties! #{e 4468}# #{s 4471}#))
+ #{e 4468}#)
+ #{w 4470}#
+ #{mod 4472}#)
+ (#{extend-env 4295}#
+ #{names 4563}#
+ (let ((#{trans-r 4839}#
+ (#{macros-only-env 4297}# #{r 4469}#)))
+ (map (lambda (#{x 4840}#)
(cons 'macro
- (#{eval-local-transformer 4351}#
- (#{expand 4345}#
- #{x 4852}#
- #{trans-r 4851}#
- #{w 4482}#
- #{mod 4484}#)
- #{mod 4484}#)))
- #{val 4572}#))
- #{r 4481}#)
- #{w 4482}#
- #{mod 4484}#))))
- #{tmp 4486}#)
+ (#{eval-local-transformer 4339}#
+ (#{expand 4333}#
+ #{x 4840}#
+ #{trans-r 4839}#
+ #{w 4470}#
+ #{mod 4472}#)
+ #{mod 4472}#)))
+ #{val 4560}#))
+ #{r 4469}#)
+ #{w 4470}#
+ #{mod 4472}#))))
+ #{tmp 4474}#)
(syntax-violation
'fluid-let-syntax
"bad syntax"
- (#{wrap 4338}#
+ (#{wrap 4326}#
(begin
- (if (if (pair? #{e 4480}#) #{s 4483}# #f)
- (set-source-properties! #{e 4480}# #{s 4483}#))
- #{e 4480}#)
- #{w 4482}#
- #{mod 4484}#))))))
+ (if (if (pair? #{e 4468}#) #{s 4471}# #f)
+ (set-source-properties! #{e 4468}# #{s 4471}#))
+ #{e 4468}#)
+ #{w 4470}#
+ #{mod 4472}#))))))
(module-define!
(current-module)
'quote
(make-syntax-transformer
'quote
'core
- (lambda (#{e 5066}#
- #{r 5067}#
- #{w 5068}#
- #{s 5069}#
- #{mod 5070}#)
- (let ((#{tmp 5072}# ($sc-dispatch #{e 5066}# '(_ any))))
- (if #{tmp 5072}#
+ (lambda (#{e 5054}#
+ #{r 5055}#
+ #{w 5056}#
+ #{s 5057}#
+ #{mod 5058}#)
+ (let ((#{tmp 5060}# ($sc-dispatch #{e 5054}# '(_ any))))
+ (if #{tmp 5060}#
(@apply
- (lambda (#{e 5075}#)
- (let ((#{exp 5079}#
- (#{strip 4358}# #{e 5075}# #{w 5068}#)))
+ (lambda (#{e 5063}#)
+ (let ((#{exp 5067}#
+ (#{strip 4346}# #{e 5063}# #{w 5056}#)))
(make-struct/no-tail
(vector-ref %expanded-vtables 1)
- #{s 5069}#
- #{exp 5079}#)))
- #{tmp 5072}#)
+ #{s 5057}#
+ #{exp 5067}#)))
+ #{tmp 5060}#)
(syntax-violation
'quote
"bad syntax"
- (#{wrap 4338}#
+ (#{wrap 4326}#
(begin
- (if (if (pair? #{e 5066}#) #{s 5069}# #f)
- (set-source-properties! #{e 5066}# #{s 5069}#))
- #{e 5066}#)
- #{w 5068}#
- #{mod 5070}#)))))))
- (#{global-extend 4311}#
+ (if (if (pair? #{e 5054}#) #{s 5057}# #f)
+ (set-source-properties! #{e 5054}# #{s 5057}#))
+ #{e 5054}#)
+ #{w 5056}#
+ #{mod 5058}#)))))))
+ (#{global-extend 4299}#
'core
'syntax
(letrec*
- ((#{gen-syntax 5306}#
- (lambda (#{src 5408}#
- #{e 5409}#
- #{r 5410}#
- #{maps 5411}#
- #{ellipsis? 5412}#
- #{mod 5413}#)
- (if (if (symbol? #{e 5409}#)
+ ((#{gen-syntax 5294}#
+ (lambda (#{src 5396}#
+ #{e 5397}#
+ #{r 5398}#
+ #{maps 5399}#
+ #{ellipsis? 5400}#
+ #{mod 5401}#)
+ (if (if (symbol? #{e 5397}#)
#t
- (if (if (vector? #{e 5409}#)
- (if (= (vector-length #{e 5409}#) 4)
- (eq? (vector-ref #{e 5409}# 0) 'syntax-object)
+ (if (if (vector? #{e 5397}#)
+ (if (= (vector-length #{e 5397}#) 4)
+ (eq? (vector-ref #{e 5397}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{e 5409}# 1))
+ (symbol? (vector-ref #{e 5397}# 1))
#f))
- (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}#
+ (let ((#{label 5428}#
+ (#{id-var-name 4320}# #{e 5397}# '(()))))
+ (let ((#{b 5429}#
+ (let ((#{t 5566}# (assq #{label 5428}# #{r 5398}#)))
+ (if #{t 5566}#
+ (cdr #{t 5566}#)
+ (if (symbol? #{label 5428}#)
+ (let ((#{t 5571}#
(begin
- (if (if (not #{mod 5413}#)
+ (if (if (not #{mod 5401}#)
(current-module)
#f)
(warn "module system is booted, we should have a module"
- #{label 5440}#))
- (let ((#{v 5620}#
+ #{label 5428}#))
+ (let ((#{v 5608}#
(module-variable
- (if #{mod 5413}#
+ (if #{mod 5401}#
(resolve-module
- (cdr #{mod 5413}#))
+ (cdr #{mod 5401}#))
(current-module))
- #{label 5440}#)))
- (if #{v 5620}#
- (if (variable-bound? #{v 5620}#)
- (let ((#{val 5629}#
+ #{label 5428}#)))
+ (if #{v 5608}#
+ (if (variable-bound? #{v 5608}#)
+ (let ((#{val 5617}#
(variable-ref
- #{v 5620}#)))
- (if (macro? #{val 5629}#)
+ #{v 5608}#)))
+ (if (macro? #{val 5617}#)
(if (macro-type
- #{val 5629}#)
+ #{val 5617}#)
(cons (macro-type
- #{val 5629}#)
+ #{val 5617}#)
(macro-binding
- #{val 5629}#))
+ #{val 5617}#))
#f)
#f))
#f)
#f)))))
- (if #{t 5583}# #{t 5583}# '(global)))
+ (if #{t 5571}# #{t 5571}# '(global)))
'(displaced-lexical))))))
- (if (eq? (car #{b 5441}#) 'syntax)
+ (if (eq? (car #{b 5429}#) 'syntax)
(call-with-values
(lambda ()
- (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}#)
+ (let ((#{var.lev 5462}# (cdr #{b 5429}#)))
+ (#{gen-ref 5295}#
+ #{src 5396}#
+ (car #{var.lev 5462}#)
+ (cdr #{var.lev 5462}#)
+ #{maps 5399}#)))
+ (lambda (#{var 5558}# #{maps 5559}#)
+ (values (list 'ref #{var 5558}#) #{maps 5559}#)))
+ (if (#{ellipsis? 5400}# #{e 5397}#)
(syntax-violation
'syntax
"misplaced ellipsis"
- #{src 5408}#)
- (values (list 'quote #{e 5409}#) #{maps 5411}#)))))
- (let ((#{tmp 5641}#
- ($sc-dispatch #{e 5409}# '(any any))))
- (if (if #{tmp 5641}#
+ #{src 5396}#)
+ (values (list 'quote #{e 5397}#) #{maps 5399}#)))))
+ (let ((#{tmp 5629}#
+ ($sc-dispatch #{e 5397}# '(any any))))
+ (if (if #{tmp 5629}#
(@apply
- (lambda (#{dots 5645}# #{e 5646}#)
- (#{ellipsis? 5412}# #{dots 5645}#))
- #{tmp 5641}#)
+ (lambda (#{dots 5633}# #{e 5634}#)
+ (#{ellipsis? 5400}# #{dots 5633}#))
+ #{tmp 5629}#)
#f)
(@apply
- (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}#
+ (lambda (#{dots 5635}# #{e 5636}#)
+ (#{gen-syntax 5294}#
+ #{src 5396}#
+ #{e 5636}#
+ #{r 5398}#
+ #{maps 5399}#
+ (lambda (#{x 5637}#) #f)
+ #{mod 5401}#))
+ #{tmp 5629}#)
+ (let ((#{tmp 5638}#
+ ($sc-dispatch #{e 5397}# '(any any . any))))
+ (if (if #{tmp 5638}#
(@apply
- (lambda (#{x 5654}# #{dots 5655}# #{y 5656}#)
- (#{ellipsis? 5412}# #{dots 5655}#))
- #{tmp 5650}#)
+ (lambda (#{x 5642}# #{dots 5643}# #{y 5644}#)
+ (#{ellipsis? 5400}# #{dots 5643}#))
+ #{tmp 5638}#)
#f)
(@apply
- (lambda (#{x 5657}# #{dots 5658}# #{y 5659}#)
+ (lambda (#{x 5645}# #{dots 5646}# #{y 5647}#)
(letrec*
- ((#{f 5660}#
- (lambda (#{y 5668}# #{k 5669}#)
- (let ((#{tmp 5671}#
+ ((#{f 5648}#
+ (lambda (#{y 5656}# #{k 5657}#)
+ (let ((#{tmp 5659}#
($sc-dispatch
- #{y 5668}#
+ #{y 5656}#
'(any . any))))
- (if (if #{tmp 5671}#
+ (if (if #{tmp 5659}#
(@apply
- (lambda (#{dots 5675}# #{y 5676}#)
- (#{ellipsis? 5412}#
- #{dots 5675}#))
- #{tmp 5671}#)
+ (lambda (#{dots 5663}# #{y 5664}#)
+ (#{ellipsis? 5400}#
+ #{dots 5663}#))
+ #{tmp 5659}#)
#f)
(@apply
- (lambda (#{dots 5677}# #{y 5678}#)
- (#{f 5660}#
- #{y 5678}#
- (lambda (#{maps 5679}#)
+ (lambda (#{dots 5665}# #{y 5666}#)
+ (#{f 5648}#
+ #{y 5666}#
+ (lambda (#{maps 5667}#)
(call-with-values
(lambda ()
- (#{k 5669}#
- (cons '() #{maps 5679}#)))
- (lambda (#{x 5680}#
- #{maps 5681}#)
- (if (null? (car #{maps 5681}#))
+ (#{k 5657}#
+ (cons '() #{maps 5667}#)))
+ (lambda (#{x 5668}#
+ #{maps 5669}#)
+ (if (null? (car #{maps 5669}#))
(syntax-violation
'syntax
"extra ellipsis"
- #{src 5408}#)
+ #{src 5396}#)
(values
- (let ((#{map-env 5685}#
- (car #{maps 5681}#)))
+ (let ((#{map-env 5673}#
+ (car #{maps 5669}#)))
(list 'apply
'(primitive
append)
- (#{gen-map 5309}#
- #{x 5680}#
- #{map-env 5685}#)))
- (cdr #{maps 5681}#))))))))
- #{tmp 5671}#)
+ (#{gen-map 5297}#
+ #{x 5668}#
+ #{map-env 5673}#)))
+ (cdr #{maps 5669}#))))))))
+ #{tmp 5659}#)
(call-with-values
(lambda ()
- (#{gen-syntax 5306}#
- #{src 5408}#
- #{y 5668}#
- #{r 5410}#
- #{maps 5411}#
- #{ellipsis? 5412}#
- #{mod 5413}#))
- (lambda (#{y 5688}# #{maps 5689}#)
+ (#{gen-syntax 5294}#
+ #{src 5396}#
+ #{y 5656}#
+ #{r 5398}#
+ #{maps 5399}#
+ #{ellipsis? 5400}#
+ #{mod 5401}#))
+ (lambda (#{y 5676}# #{maps 5677}#)
(call-with-values
(lambda ()
- (#{k 5669}# #{maps 5689}#))
- (lambda (#{x 5690}# #{maps 5691}#)
+ (#{k 5657}# #{maps 5677}#))
+ (lambda (#{x 5678}# #{maps 5679}#)
(values
- (if (equal? #{y 5688}# ''())
- #{x 5690}#
+ (if (equal? #{y 5676}# ''())
+ #{x 5678}#
(list 'append
- #{x 5690}#
- #{y 5688}#))
- #{maps 5691}#))))))))))
- (#{f 5660}#
- #{y 5659}#
- (lambda (#{maps 5663}#)
+ #{x 5678}#
+ #{y 5676}#))
+ #{maps 5679}#))))))))))
+ (#{f 5648}#
+ #{y 5647}#
+ (lambda (#{maps 5651}#)
(call-with-values
(lambda ()
- (#{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}#))
+ (#{gen-syntax 5294}#
+ #{src 5396}#
+ #{x 5645}#
+ #{r 5398}#
+ (cons '() #{maps 5651}#)
+ #{ellipsis? 5400}#
+ #{mod 5401}#))
+ (lambda (#{x 5652}# #{maps 5653}#)
+ (if (null? (car #{maps 5653}#))
(syntax-violation
'syntax
"extra ellipsis"
- #{src 5408}#)
+ #{src 5396}#)
(values
- (#{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}#
+ (#{gen-map 5297}#
+ #{x 5652}#
+ (car #{maps 5653}#))
+ (cdr #{maps 5653}#)))))))))
+ #{tmp 5638}#)
+ (let ((#{tmp 5695}#
+ ($sc-dispatch #{e 5397}# '(any . any))))
+ (if #{tmp 5695}#
(@apply
- (lambda (#{x 5711}# #{y 5712}#)
+ (lambda (#{x 5699}# #{y 5700}#)
(call-with-values
(lambda ()
- (#{gen-syntax 5306}#
- #{src 5408}#
- #{x 5711}#
- #{r 5410}#
- #{maps 5411}#
- #{ellipsis? 5412}#
- #{mod 5413}#))
- (lambda (#{x 5713}# #{maps 5714}#)
+ (#{gen-syntax 5294}#
+ #{src 5396}#
+ #{x 5699}#
+ #{r 5398}#
+ #{maps 5399}#
+ #{ellipsis? 5400}#
+ #{mod 5401}#))
+ (lambda (#{x 5701}# #{maps 5702}#)
(call-with-values
(lambda ()
- (#{gen-syntax 5306}#
- #{src 5408}#
- #{y 5712}#
- #{r 5410}#
- #{maps 5714}#
- #{ellipsis? 5412}#
- #{mod 5413}#))
- (lambda (#{y 5715}# #{maps 5716}#)
+ (#{gen-syntax 5294}#
+ #{src 5396}#
+ #{y 5700}#
+ #{r 5398}#
+ #{maps 5702}#
+ #{ellipsis? 5400}#
+ #{mod 5401}#))
+ (lambda (#{y 5703}# #{maps 5704}#)
(values
- (let ((#{atom-key 5721}#
- (car #{y 5715}#)))
- (if (eqv? #{atom-key 5721}# 'quote)
- (if (eq? (car #{x 5713}#) 'quote)
+ (let ((#{atom-key 5709}#
+ (car #{y 5703}#)))
+ (if (eqv? #{atom-key 5709}# 'quote)
+ (if (eq? (car #{x 5701}#) 'quote)
(list 'quote
- (cons (car (cdr #{x 5713}#))
- (car (cdr #{y 5715}#))))
- (if (eq? (car (cdr #{y 5715}#))
+ (cons (car (cdr #{x 5701}#))
+ (car (cdr #{y 5703}#))))
+ (if (eq? (car (cdr #{y 5703}#))
'())
- (list 'list #{x 5713}#)
+ (list 'list #{x 5701}#)
(list 'cons
- #{x 5713}#
- #{y 5715}#)))
- (if (eqv? #{atom-key 5721}# 'list)
+ #{x 5701}#
+ #{y 5703}#)))
+ (if (eqv? #{atom-key 5709}# 'list)
(cons 'list
- (cons #{x 5713}#
- (cdr #{y 5715}#)))
+ (cons #{x 5701}#
+ (cdr #{y 5703}#)))
(list 'cons
- #{x 5713}#
- #{y 5715}#))))
- #{maps 5716}#))))))
- #{tmp 5707}#)
- (let ((#{tmp 5750}#
+ #{x 5701}#
+ #{y 5703}#))))
+ #{maps 5704}#))))))
+ #{tmp 5695}#)
+ (let ((#{tmp 5738}#
($sc-dispatch
- #{e 5409}#
+ #{e 5397}#
'#(vector (any . each-any)))))
- (if #{tmp 5750}#
+ (if #{tmp 5738}#
(@apply
- (lambda (#{e1 5754}# #{e2 5755}#)
+ (lambda (#{e1 5742}# #{e2 5743}#)
(call-with-values
(lambda ()
- (#{gen-syntax 5306}#
- #{src 5408}#
- (cons #{e1 5754}# #{e2 5755}#)
- #{r 5410}#
- #{maps 5411}#
- #{ellipsis? 5412}#
- #{mod 5413}#))
- (lambda (#{e 5756}# #{maps 5757}#)
+ (#{gen-syntax 5294}#
+ #{src 5396}#
+ (cons #{e1 5742}# #{e2 5743}#)
+ #{r 5398}#
+ #{maps 5399}#
+ #{ellipsis? 5400}#
+ #{mod 5401}#))
+ (lambda (#{e 5744}# #{maps 5745}#)
(values
- (if (eq? (car #{e 5756}#) 'list)
- (cons 'vector (cdr #{e 5756}#))
- (if (eq? (car #{e 5756}#) 'quote)
+ (if (eq? (car #{e 5744}#) 'list)
+ (cons 'vector (cdr #{e 5744}#))
+ (if (eq? (car #{e 5744}#) 'quote)
(list 'quote
(list->vector
- (car (cdr #{e 5756}#))))
- (list 'list->vector #{e 5756}#)))
- #{maps 5757}#))))
- #{tmp 5750}#)
+ (car (cdr #{e 5744}#))))
+ (list 'list->vector #{e 5744}#)))
+ #{maps 5745}#))))
+ #{tmp 5738}#)
(values
- (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}#)
+ (list 'quote #{e 5397}#)
+ #{maps 5399}#))))))))))))
+ (#{gen-ref 5295}#
+ (lambda (#{src 5772}#
+ #{var 5773}#
+ #{level 5774}#
+ #{maps 5775}#)
+ (if (= #{level 5774}# 0)
+ (values #{var 5773}# #{maps 5775}#)
+ (if (null? #{maps 5775}#)
(syntax-violation
'syntax
"missing ellipsis"
- #{src 5784}#)
+ #{src 5772}#)
(call-with-values
(lambda ()
- (#{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}#
+ (#{gen-ref 5295}#
+ #{src 5772}#
+ #{var 5773}#
+ (#{1-}# #{level 5774}#)
+ (cdr #{maps 5775}#)))
+ (lambda (#{outer-var 5776}# #{outer-maps 5777}#)
+ (let ((#{b 5778}#
+ (assq #{outer-var 5776}# (car #{maps 5775}#))))
+ (if #{b 5778}#
+ (values (cdr #{b 5778}#) #{maps 5775}#)
+ (let ((#{inner-var 5780}#
(gensym
(string-append (symbol->string 'tmp) " "))))
(values
- #{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}#)
+ #{inner-var 5780}#
+ (cons (cons (cons #{outer-var 5776}#
+ #{inner-var 5780}#)
+ (car #{maps 5775}#))
+ #{outer-maps 5777}#)))))))))))
+ (#{gen-map 5297}#
+ (lambda (#{e 5794}# #{map-env 5795}#)
+ (let ((#{formals 5796}# (map cdr #{map-env 5795}#))
+ (#{actuals 5797}#
+ (map (lambda (#{x 5799}#)
+ (list 'ref (car #{x 5799}#)))
+ #{map-env 5795}#)))
+ (if (eq? (car #{e 5794}#) 'ref)
+ (car #{actuals 5797}#)
(if (and-map
- (lambda (#{x 5812}#)
- (if (eq? (car #{x 5812}#) 'ref)
- (memq (car (cdr #{x 5812}#)) #{formals 5808}#)
+ (lambda (#{x 5800}#)
+ (if (eq? (car #{x 5800}#) 'ref)
+ (memq (car (cdr #{x 5800}#)) #{formals 5796}#)
#f))
- (cdr #{e 5806}#))
+ (cdr #{e 5794}#))
(cons 'map
- (cons (list 'primitive (car #{e 5806}#))
- (map (let ((#{r 5814}#
+ (cons (list 'primitive (car #{e 5794}#))
+ (map (let ((#{r 5802}#
(map cons
- #{formals 5808}#
- #{actuals 5809}#)))
- (lambda (#{x 5815}#)
- (cdr (assq (car (cdr #{x 5815}#))
- #{r 5814}#))))
- (cdr #{e 5806}#))))
+ #{formals 5796}#
+ #{actuals 5797}#)))
+ (lambda (#{x 5803}#)
+ (cdr (assq (car (cdr #{x 5803}#))
+ #{r 5802}#))))
+ (cdr #{e 5794}#))))
(cons 'map
- (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}#))))
+ (cons (list 'lambda #{formals 5796}# #{e 5794}#)
+ #{actuals 5797}#)))))))
+ (#{regen 5301}#
+ (lambda (#{x 5805}#)
+ (let ((#{atom-key 5806}# (car #{x 5805}#)))
+ (if (eqv? #{atom-key 5806}# 'ref)
+ (let ((#{name 5816}# (car (cdr #{x 5805}#)))
+ (#{var 5817}# (car (cdr #{x 5805}#))))
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
#f
- #{name 5828}#
- #{var 5829}#))
- (if (eqv? #{atom-key 5818}# 'primitive)
- (let ((#{name 5841}# (car (cdr #{x 5817}#))))
+ #{name 5816}#
+ #{var 5817}#))
+ (if (eqv? #{atom-key 5806}# 'primitive)
+ (let ((#{name 5829}# (car (cdr #{x 5805}#))))
(if (equal? (module-name (current-module)) '(guile))
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
#f
- #{name 5841}#)
+ #{name 5829}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 5)
#f
'(guile)
- #{name 5841}#
+ #{name 5829}#
#f)))
- (if (eqv? #{atom-key 5818}# 'quote)
- (let ((#{exp 5859}# (car (cdr #{x 5817}#))))
+ (if (eqv? #{atom-key 5806}# 'quote)
+ (let ((#{exp 5847}# (car (cdr #{x 5805}#))))
(make-struct/no-tail
(vector-ref %expanded-vtables 1)
#f
- #{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}#
+ #{exp 5847}#))
+ (if (eqv? #{atom-key 5806}# 'lambda)
+ (if (list? (car (cdr #{x 5805}#)))
+ (let ((#{req 5858}# (car (cdr #{x 5805}#)))
+ (#{vars 5860}# (car (cdr #{x 5805}#)))
+ (#{exp 5862}#
+ (#{regen 5301}#
+ (car (cdr (cdr #{x 5805}#))))))
+ (let ((#{body 5867}#
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
#f
- #{req 5870}#
+ #{req 5858}#
#f
#f
#f
'()
- #{vars 5872}#
- #{exp 5874}#
+ #{vars 5860}#
+ #{exp 5862}#
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
#f
'()
- #{body 5879}#)))
- (error "how did we get here" #{x 5817}#))
- (let ((#{fun-exp 5895}#
- (let ((#{name 5904}# (car #{x 5817}#)))
+ #{body 5867}#)))
+ (error "how did we get here" #{x 5805}#))
+ (let ((#{fun-exp 5883}#
+ (let ((#{name 5892}# (car #{x 5805}#)))
(if (equal?
(module-name (current-module))
'(guile))
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
#f
- #{name 5904}#)
+ #{name 5892}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 5)
#f
'(guile)
- #{name 5904}#
+ #{name 5892}#
#f))))
- (#{arg-exps 5896}#
- (map #{regen 5313}# (cdr #{x 5817}#))))
+ (#{arg-exps 5884}#
+ (map #{regen 5301}# (cdr #{x 5805}#))))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
#f
- #{fun-exp 5895}#
- #{arg-exps 5896}#))))))))))
- (lambda (#{e 5314}#
- #{r 5315}#
- #{w 5316}#
- #{s 5317}#
- #{mod 5318}#)
- (let ((#{e 5319}#
- (#{wrap 4338}#
+ #{fun-exp 5883}#
+ #{arg-exps 5884}#))))))))))
+ (lambda (#{e 5302}#
+ #{r 5303}#
+ #{w 5304}#
+ #{s 5305}#
+ #{mod 5306}#)
+ (let ((#{e 5307}#
+ (#{wrap 4326}#
(begin
- (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}#
+ (if (if (pair? #{e 5302}#) #{s 5305}# #f)
+ (set-source-properties! #{e 5302}# #{s 5305}#))
+ #{e 5302}#)
+ #{w 5304}#
+ #{mod 5306}#)))
+ (let ((#{tmp 5309}# ($sc-dispatch #{e 5307}# '(_ any))))
+ (if #{tmp 5309}#
(@apply
- (lambda (#{x 5346}#)
+ (lambda (#{x 5334}#)
(call-with-values
(lambda ()
- (#{gen-syntax 5306}#
- #{e 5319}#
- #{x 5346}#
- #{r 5315}#
+ (#{gen-syntax 5294}#
+ #{e 5307}#
+ #{x 5334}#
+ #{r 5303}#
'()
- #{ellipsis? 4353}#
- #{mod 5318}#))
- (lambda (#{e 5400}# #{maps 5401}#)
- (#{regen 5313}# #{e 5400}#))))
- #{tmp 5321}#)
+ #{ellipsis? 4341}#
+ #{mod 5306}#))
+ (lambda (#{e 5388}# #{maps 5389}#)
+ (#{regen 5301}# #{e 5388}#))))
+ #{tmp 5309}#)
(syntax-violation
'syntax
"bad `syntax' form"
- #{e 5319}#)))))))
- (#{global-extend 4311}#
+ #{e 5307}#)))))))
+ (#{global-extend 4299}#
'core
'lambda
- (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}#
+ (lambda (#{e 6087}#
+ #{r 6088}#
+ #{w 6089}#
+ #{s 6090}#
+ #{mod 6091}#)
+ (let ((#{tmp 6093}#
+ ($sc-dispatch #{e 6087}# '(_ any any . each-any))))
+ (if #{tmp 6093}#
(@apply
- (lambda (#{args 6109}# #{e1 6110}# #{e2 6111}#)
+ (lambda (#{args 6097}# #{e1 6098}# #{e2 6099}#)
(call-with-values
(lambda ()
- (#{lambda-formals 4354}# #{args 6109}#))
- (lambda (#{req 6114}#
- #{opt 6115}#
- #{rest 6116}#
- #{kw 6117}#)
+ (#{lambda-formals 4342}# #{args 6097}#))
+ (lambda (#{req 6102}#
+ #{opt 6103}#
+ #{rest 6104}#
+ #{kw 6105}#)
(letrec*
- ((#{lp 6118}#
- (lambda (#{body 6121}# #{meta 6122}#)
- (let ((#{tmp 6124}#
+ ((#{lp 6106}#
+ (lambda (#{body 6109}# #{meta 6110}#)
+ (let ((#{tmp 6112}#
($sc-dispatch
- #{body 6121}#
+ #{body 6109}#
'(any any . each-any))))
- (if (if #{tmp 6124}#
+ (if (if #{tmp 6112}#
(@apply
- (lambda (#{docstring 6128}#
- #{e1 6129}#
- #{e2 6130}#)
+ (lambda (#{docstring 6116}#
+ #{e1 6117}#
+ #{e2 6118}#)
(string?
- (syntax->datum #{docstring 6128}#)))
- #{tmp 6124}#)
+ (syntax->datum #{docstring 6116}#)))
+ #{tmp 6112}#)
#f)
(@apply
- (lambda (#{docstring 6131}#
- #{e1 6132}#
- #{e2 6133}#)
- (#{lp 6118}#
- (cons #{e1 6132}# #{e2 6133}#)
+ (lambda (#{docstring 6119}#
+ #{e1 6120}#
+ #{e2 6121}#)
+ (#{lp 6106}#
+ (cons #{e1 6120}# #{e2 6121}#)
(append
- #{meta 6122}#
+ #{meta 6110}#
(list (cons 'documentation
(syntax->datum
- #{docstring 6131}#))))))
- #{tmp 6124}#)
- (let ((#{tmp 6134}#
+ #{docstring 6119}#))))))
+ #{tmp 6112}#)
+ (let ((#{tmp 6122}#
($sc-dispatch
- #{body 6121}#
+ #{body 6109}#
'(#(vector #(each (any . any)))
any
.
each-any))))
- (if #{tmp 6134}#
+ (if #{tmp 6122}#
(@apply
- (lambda (#{k 6138}#
- #{v 6139}#
- #{e1 6140}#
- #{e2 6141}#)
- (#{lp 6118}#
- (cons #{e1 6140}# #{e2 6141}#)
+ (lambda (#{k 6126}#
+ #{v 6127}#
+ #{e1 6128}#
+ #{e2 6129}#)
+ (#{lp 6106}#
+ (cons #{e1 6128}# #{e2 6129}#)
(append
- #{meta 6122}#
+ #{meta 6110}#
(syntax->datum
(map cons
- #{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}#)
+ #{k 6126}#
+ #{v 6127}#)))))
+ #{tmp 6122}#)
+ (#{expand-simple-lambda 4343}#
+ #{e 6087}#
+ #{r 6088}#
+ #{w 6089}#
+ #{s 6090}#
+ #{mod 6091}#
+ #{req 6102}#
+ #{rest 6104}#
+ #{meta 6110}#
+ #{body 6109}#))))))))
+ (#{lp 6106}# (cons #{e1 6098}# #{e2 6099}#) '())))))
+ #{tmp 6093}#)
(syntax-violation
'lambda
"bad lambda"
- #{e 6099}#)))))
- (#{global-extend 4311}#
+ #{e 6087}#)))))
+ (#{global-extend 4299}#
'core
'lambda*
- (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}#
+ (lambda (#{e 6421}#
+ #{r 6422}#
+ #{w 6423}#
+ #{s 6424}#
+ #{mod 6425}#)
+ (let ((#{tmp 6427}#
+ ($sc-dispatch #{e 6421}# '(_ any any . each-any))))
+ (if #{tmp 6427}#
(@apply
- (lambda (#{args 6443}# #{e1 6444}# #{e2 6445}#)
+ (lambda (#{args 6431}# #{e1 6432}# #{e2 6433}#)
(call-with-values
(lambda ()
- (#{expand-lambda-case 4357}#
- #{e 6433}#
- #{r 6434}#
- #{w 6435}#
- #{s 6436}#
- #{mod 6437}#
- #{lambda*-formals 4356}#
- (list (cons #{args 6443}#
- (cons #{e1 6444}# #{e2 6445}#)))))
- (lambda (#{meta 6448}# #{lcase 6449}#)
+ (#{expand-lambda-case 4345}#
+ #{e 6421}#
+ #{r 6422}#
+ #{w 6423}#
+ #{s 6424}#
+ #{mod 6425}#
+ #{lambda*-formals 4344}#
+ (list (cons #{args 6431}#
+ (cons #{e1 6432}# #{e2 6433}#)))))
+ (lambda (#{meta 6436}# #{lcase 6437}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
- #{s 6436}#
- #{meta 6448}#
- #{lcase 6449}#))))
- #{tmp 6439}#)
+ #{s 6424}#
+ #{meta 6436}#
+ #{lcase 6437}#))))
+ #{tmp 6427}#)
(syntax-violation
'lambda
"bad lambda*"
- #{e 6433}#)))))
- (#{global-extend 4311}#
+ #{e 6421}#)))))
+ (#{global-extend 4299}#
'core
'case-lambda
- (lambda (#{e 6623}#
- #{r 6624}#
- #{w 6625}#
- #{s 6626}#
- #{mod 6627}#)
- (let ((#{tmp 6629}#
+ (lambda (#{e 6611}#
+ #{r 6612}#
+ #{w 6613}#
+ #{s 6614}#
+ #{mod 6615}#)
+ (let ((#{tmp 6617}#
($sc-dispatch
- #{e 6623}#
+ #{e 6611}#
'(_ (any any . each-any)
.
#(each (any any . each-any))))))
- (if #{tmp 6629}#
+ (if #{tmp 6617}#
(@apply
- (lambda (#{args 6633}#
- #{e1 6634}#
- #{e2 6635}#
- #{args* 6636}#
- #{e1* 6637}#
- #{e2* 6638}#)
+ (lambda (#{args 6621}#
+ #{e1 6622}#
+ #{e2 6623}#
+ #{args* 6624}#
+ #{e1* 6625}#
+ #{e2* 6626}#)
(call-with-values
(lambda ()
- (#{expand-lambda-case 4357}#
- #{e 6623}#
- #{r 6624}#
- #{w 6625}#
- #{s 6626}#
- #{mod 6627}#
- #{lambda-formals 4354}#
- (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}#)
+ (#{expand-lambda-case 4345}#
+ #{e 6611}#
+ #{r 6612}#
+ #{w 6613}#
+ #{s 6614}#
+ #{mod 6615}#
+ #{lambda-formals 4342}#
+ (cons (cons #{args 6621}#
+ (cons #{e1 6622}# #{e2 6623}#))
+ (map (lambda (#{tmp 3262 6629}#
+ #{tmp 3261 6630}#
+ #{tmp 3260 6631}#)
+ (cons #{tmp 3260 6631}#
+ (cons #{tmp 3261 6630}#
+ #{tmp 3262 6629}#)))
+ #{e2* 6626}#
+ #{e1* 6625}#
+ #{args* 6624}#))))
+ (lambda (#{meta 6632}# #{lcase 6633}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
- #{s 6626}#
- #{meta 6644}#
- #{lcase 6645}#))))
- #{tmp 6629}#)
+ #{s 6614}#
+ #{meta 6632}#
+ #{lcase 6633}#))))
+ #{tmp 6617}#)
(syntax-violation
'case-lambda
"bad case-lambda"
- #{e 6623}#)))))
- (#{global-extend 4311}#
+ #{e 6611}#)))))
+ (#{global-extend 4299}#
'core
'case-lambda*
- (lambda (#{e 6808}#
- #{r 6809}#
- #{w 6810}#
- #{s 6811}#
- #{mod 6812}#)
- (let ((#{tmp 6814}#
+ (lambda (#{e 6796}#
+ #{r 6797}#
+ #{w 6798}#
+ #{s 6799}#
+ #{mod 6800}#)
+ (let ((#{tmp 6802}#
($sc-dispatch
- #{e 6808}#
+ #{e 6796}#
'(_ (any any . each-any)
.
#(each (any any . each-any))))))
- (if #{tmp 6814}#
+ (if #{tmp 6802}#
(@apply
- (lambda (#{args 6818}#
- #{e1 6819}#
- #{e2 6820}#
- #{args* 6821}#
- #{e1* 6822}#
- #{e2* 6823}#)
+ (lambda (#{args 6806}#
+ #{e1 6807}#
+ #{e2 6808}#
+ #{args* 6809}#
+ #{e1* 6810}#
+ #{e2* 6811}#)
(call-with-values
(lambda ()
- (#{expand-lambda-case 4357}#
- #{e 6808}#
- #{r 6809}#
- #{w 6810}#
- #{s 6811}#
- #{mod 6812}#
- #{lambda*-formals 4356}#
- (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}#)
+ (#{expand-lambda-case 4345}#
+ #{e 6796}#
+ #{r 6797}#
+ #{w 6798}#
+ #{s 6799}#
+ #{mod 6800}#
+ #{lambda*-formals 4344}#
+ (cons (cons #{args 6806}#
+ (cons #{e1 6807}# #{e2 6808}#))
+ (map (lambda (#{tmp 3297 6814}#
+ #{tmp 3296 6815}#
+ #{tmp 3295 6816}#)
+ (cons #{tmp 3295 6816}#
+ (cons #{tmp 3296 6815}#
+ #{tmp 3297 6814}#)))
+ #{e2* 6811}#
+ #{e1* 6810}#
+ #{args* 6809}#))))
+ (lambda (#{meta 6817}# #{lcase 6818}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
- #{s 6811}#
- #{meta 6829}#
- #{lcase 6830}#))))
- #{tmp 6814}#)
+ #{s 6799}#
+ #{meta 6817}#
+ #{lcase 6818}#))))
+ #{tmp 6802}#)
(syntax-violation
'case-lambda
"bad case-lambda*"
- #{e 6808}#)))))
- (#{global-extend 4311}#
+ #{e 6796}#)))))
+ (#{global-extend 4299}#
'core
'let
(letrec*
- ((#{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}#))
+ ((#{expand-let 7010}#
+ (lambda (#{e 7159}#
+ #{r 7160}#
+ #{w 7161}#
+ #{s 7162}#
+ #{mod 7163}#
+ #{constructor 7164}#
+ #{ids 7165}#
+ #{vals 7166}#
+ #{exps 7167}#)
+ (if (not (#{valid-bound-ids? 4323}# #{ids 7165}#))
(syntax-violation
'let
"duplicate bound variable"
- #{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 7177}#
- #{labels 7257}#
- #{w 7173}#))
- (#{nr 7260}#
- (#{extend-var-env 4308}#
- #{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 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}#
+ #{e 7159}#)
+ (let ((#{labels 7245}#
+ (#{gen-labels 4304}# #{ids 7165}#))
+ (#{new-vars 7246}#
+ (map #{gen-var 4347}# #{ids 7165}#)))
+ (let ((#{nw 7247}#
+ (#{make-binding-wrap 4315}#
+ #{ids 7165}#
+ #{labels 7245}#
+ #{w 7161}#))
+ (#{nr 7248}#
+ (#{extend-var-env 4296}#
+ #{labels 7245}#
+ #{new-vars 7246}#
+ #{r 7160}#)))
+ (#{constructor 7164}#
+ #{s 7162}#
+ (map syntax->datum #{ids 7165}#)
+ #{new-vars 7246}#
+ (map (lambda (#{x 7265}#)
+ (#{expand 4333}#
+ #{x 7265}#
+ #{r 7160}#
+ #{w 7161}#
+ #{mod 7163}#))
+ #{vals 7166}#)
+ (#{expand-body 4337}#
+ #{exps 7167}#
+ (#{source-wrap 4327}#
+ #{e 7159}#
+ #{nw 7247}#
+ #{s 7162}#
+ #{mod 7163}#)
+ #{nr 7248}#
+ #{nw 7247}#
+ #{mod 7163}#))))))))
+ (lambda (#{e 7011}#
+ #{r 7012}#
+ #{w 7013}#
+ #{s 7014}#
+ #{mod 7015}#)
+ (let ((#{tmp 7017}#
($sc-dispatch
- #{e 7023}#
+ #{e 7011}#
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp 7029}#
+ (if (if #{tmp 7017}#
(@apply
- (lambda (#{id 7033}#
- #{val 7034}#
- #{e1 7035}#
- #{e2 7036}#)
- (and-map #{id? 4313}# #{id 7033}#))
- #{tmp 7029}#)
+ (lambda (#{id 7021}#
+ #{val 7022}#
+ #{e1 7023}#
+ #{e2 7024}#)
+ (and-map #{id? 4301}# #{id 7021}#))
+ #{tmp 7017}#)
#f)
(@apply
- (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 7052}#
- #{val 7053}#
- (cons #{e1 7054}# #{e2 7055}#)))
- #{tmp 7029}#)
- (let ((#{tmp 7085}#
+ (lambda (#{id 7040}#
+ #{val 7041}#
+ #{e1 7042}#
+ #{e2 7043}#)
+ (#{expand-let 7010}#
+ #{e 7011}#
+ #{r 7012}#
+ #{w 7013}#
+ #{s 7014}#
+ #{mod 7015}#
+ #{build-let 4283}#
+ #{id 7040}#
+ #{val 7041}#
+ (cons #{e1 7042}# #{e2 7043}#)))
+ #{tmp 7017}#)
+ (let ((#{tmp 7073}#
($sc-dispatch
- #{e 7023}#
+ #{e 7011}#
'(_ any #(each (any any)) any . each-any))))
- (if (if #{tmp 7085}#
+ (if (if #{tmp 7073}#
(@apply
- (lambda (#{f 7089}#
- #{id 7090}#
- #{val 7091}#
- #{e1 7092}#
- #{e2 7093}#)
- (if (if (symbol? #{f 7089}#)
+ (lambda (#{f 7077}#
+ #{id 7078}#
+ #{val 7079}#
+ #{e1 7080}#
+ #{e2 7081}#)
+ (if (if (symbol? #{f 7077}#)
#t
- (if (if (vector? #{f 7089}#)
- (if (= (vector-length #{f 7089}#) 4)
- (eq? (vector-ref #{f 7089}# 0)
+ (if (if (vector? #{f 7077}#)
+ (if (= (vector-length #{f 7077}#) 4)
+ (eq? (vector-ref #{f 7077}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{f 7089}# 1))
+ (symbol? (vector-ref #{f 7077}# 1))
#f))
- (and-map #{id? 4313}# #{id 7090}#)
+ (and-map #{id? 4301}# #{id 7078}#)
#f))
- #{tmp 7085}#)
+ #{tmp 7073}#)
#f)
(@apply
- (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 7135}# #{id 7136}#)
- #{val 7137}#
- (cons #{e1 7138}# #{e2 7139}#)))
- #{tmp 7085}#)
+ (lambda (#{f 7123}#
+ #{id 7124}#
+ #{val 7125}#
+ #{e1 7126}#
+ #{e2 7127}#)
+ (#{expand-let 7010}#
+ #{e 7011}#
+ #{r 7012}#
+ #{w 7013}#
+ #{s 7014}#
+ #{mod 7015}#
+ #{build-named-let 4284}#
+ (cons #{f 7123}# #{id 7124}#)
+ #{val 7125}#
+ (cons #{e1 7126}# #{e2 7127}#)))
+ #{tmp 7073}#)
(syntax-violation
'let
"bad let"
- (#{wrap 4338}#
+ (#{wrap 4326}#
(begin
- (if (if (pair? #{e 7023}#) #{s 7026}# #f)
- (set-source-properties! #{e 7023}# #{s 7026}#))
- #{e 7023}#)
- #{w 7025}#
- #{mod 7027}#)))))))))
- (#{global-extend 4311}#
+ (if (if (pair? #{e 7011}#) #{s 7014}# #f)
+ (set-source-properties! #{e 7011}# #{s 7014}#))
+ #{e 7011}#)
+ #{w 7013}#
+ #{mod 7015}#)))))))))
+ (#{global-extend 4299}#
'core
'letrec
- (lambda (#{e 7726}#
- #{r 7727}#
- #{w 7728}#
- #{s 7729}#
- #{mod 7730}#)
- (let ((#{tmp 7732}#
+ (lambda (#{e 7714}#
+ #{r 7715}#
+ #{w 7716}#
+ #{s 7717}#
+ #{mod 7718}#)
+ (let ((#{tmp 7720}#
($sc-dispatch
- #{e 7726}#
+ #{e 7714}#
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp 7732}#
+ (if (if #{tmp 7720}#
(@apply
- (lambda (#{id 7736}#
- #{val 7737}#
- #{e1 7738}#
- #{e2 7739}#)
- (and-map #{id? 4313}# #{id 7736}#))
- #{tmp 7732}#)
+ (lambda (#{id 7724}#
+ #{val 7725}#
+ #{e1 7726}#
+ #{e2 7727}#)
+ (and-map #{id? 4301}# #{id 7724}#))
+ #{tmp 7720}#)
#f)
(@apply
- (lambda (#{id 7755}#
- #{val 7756}#
- #{e1 7757}#
- #{e2 7758}#)
- (if (not (#{valid-bound-ids? 4335}# #{id 7755}#))
+ (lambda (#{id 7743}#
+ #{val 7744}#
+ #{e1 7745}#
+ #{e2 7746}#)
+ (if (not (#{valid-bound-ids? 4323}# #{id 7743}#))
(syntax-violation
'letrec
"duplicate bound variable"
- #{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 7755}#
- #{labels 7848}#
- #{w 7728}#))
- (#{r 7851}#
- (#{extend-var-env 4308}#
- #{labels 7848}#
- #{new-vars 7849}#
- #{r 7727}#)))
- (#{build-letrec 4297}#
- #{s 7729}#
+ #{e 7714}#)
+ (let ((#{labels 7836}#
+ (#{gen-labels 4304}# #{id 7743}#))
+ (#{new-vars 7837}#
+ (map #{gen-var 4347}# #{id 7743}#)))
+ (let ((#{w 7838}#
+ (#{make-binding-wrap 4315}#
+ #{id 7743}#
+ #{labels 7836}#
+ #{w 7716}#))
+ (#{r 7839}#
+ (#{extend-var-env 4296}#
+ #{labels 7836}#
+ #{new-vars 7837}#
+ #{r 7715}#)))
+ (#{build-letrec 4285}#
+ #{s 7717}#
#f
- (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}#
+ (map syntax->datum #{id 7743}#)
+ #{new-vars 7837}#
+ (map (lambda (#{x 7926}#)
+ (#{expand 4333}#
+ #{x 7926}#
+ #{r 7839}#
+ #{w 7838}#
+ #{mod 7718}#))
+ #{val 7744}#)
+ (#{expand-body 4337}#
+ (cons #{e1 7745}# #{e2 7746}#)
+ (#{wrap 4326}#
(begin
- (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}#)
+ (if (if (pair? #{e 7714}#) #{s 7717}# #f)
+ (set-source-properties! #{e 7714}# #{s 7717}#))
+ #{e 7714}#)
+ #{w 7838}#
+ #{mod 7718}#)
+ #{r 7839}#
+ #{w 7838}#
+ #{mod 7718}#))))))
+ #{tmp 7720}#)
(syntax-violation
'letrec
"bad letrec"
- (#{wrap 4338}#
+ (#{wrap 4326}#
(begin
- (if (if (pair? #{e 7726}#) #{s 7729}# #f)
- (set-source-properties! #{e 7726}# #{s 7729}#))
- #{e 7726}#)
- #{w 7728}#
- #{mod 7730}#))))))
- (#{global-extend 4311}#
+ (if (if (pair? #{e 7714}#) #{s 7717}# #f)
+ (set-source-properties! #{e 7714}# #{s 7717}#))
+ #{e 7714}#)
+ #{w 7716}#
+ #{mod 7718}#))))))
+ (#{global-extend 4299}#
'core
'letrec*
- (lambda (#{e 8355}#
- #{r 8356}#
- #{w 8357}#
- #{s 8358}#
- #{mod 8359}#)
- (let ((#{tmp 8361}#
+ (lambda (#{e 8343}#
+ #{r 8344}#
+ #{w 8345}#
+ #{s 8346}#
+ #{mod 8347}#)
+ (let ((#{tmp 8349}#
($sc-dispatch
- #{e 8355}#
+ #{e 8343}#
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp 8361}#
+ (if (if #{tmp 8349}#
(@apply
- (lambda (#{id 8365}#
- #{val 8366}#
- #{e1 8367}#
- #{e2 8368}#)
- (and-map #{id? 4313}# #{id 8365}#))
- #{tmp 8361}#)
+ (lambda (#{id 8353}#
+ #{val 8354}#
+ #{e1 8355}#
+ #{e2 8356}#)
+ (and-map #{id? 4301}# #{id 8353}#))
+ #{tmp 8349}#)
#f)
(@apply
- (lambda (#{id 8384}#
- #{val 8385}#
- #{e1 8386}#
- #{e2 8387}#)
- (if (not (#{valid-bound-ids? 4335}# #{id 8384}#))
+ (lambda (#{id 8372}#
+ #{val 8373}#
+ #{e1 8374}#
+ #{e2 8375}#)
+ (if (not (#{valid-bound-ids? 4323}# #{id 8372}#))
(syntax-violation
'letrec*
"duplicate bound variable"
- #{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 8384}#
- #{labels 8477}#
- #{w 8357}#))
- (#{r 8480}#
- (#{extend-var-env 4308}#
- #{labels 8477}#
- #{new-vars 8478}#
- #{r 8356}#)))
- (#{build-letrec 4297}#
- #{s 8358}#
+ #{e 8343}#)
+ (let ((#{labels 8465}#
+ (#{gen-labels 4304}# #{id 8372}#))
+ (#{new-vars 8466}#
+ (map #{gen-var 4347}# #{id 8372}#)))
+ (let ((#{w 8467}#
+ (#{make-binding-wrap 4315}#
+ #{id 8372}#
+ #{labels 8465}#
+ #{w 8345}#))
+ (#{r 8468}#
+ (#{extend-var-env 4296}#
+ #{labels 8465}#
+ #{new-vars 8466}#
+ #{r 8344}#)))
+ (#{build-letrec 4285}#
+ #{s 8346}#
#t
- (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}#
+ (map syntax->datum #{id 8372}#)
+ #{new-vars 8466}#
+ (map (lambda (#{x 8555}#)
+ (#{expand 4333}#
+ #{x 8555}#
+ #{r 8468}#
+ #{w 8467}#
+ #{mod 8347}#))
+ #{val 8373}#)
+ (#{expand-body 4337}#
+ (cons #{e1 8374}# #{e2 8375}#)
+ (#{wrap 4326}#
(begin
- (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}#)
+ (if (if (pair? #{e 8343}#) #{s 8346}# #f)
+ (set-source-properties! #{e 8343}# #{s 8346}#))
+ #{e 8343}#)
+ #{w 8467}#
+ #{mod 8347}#)
+ #{r 8468}#
+ #{w 8467}#
+ #{mod 8347}#))))))
+ #{tmp 8349}#)
(syntax-violation
'letrec*
"bad letrec*"
- (#{wrap 4338}#
+ (#{wrap 4326}#
(begin
- (if (if (pair? #{e 8355}#) #{s 8358}# #f)
- (set-source-properties! #{e 8355}# #{s 8358}#))
- #{e 8355}#)
- #{w 8357}#
- #{mod 8359}#))))))
- (#{global-extend 4311}#
+ (if (if (pair? #{e 8343}#) #{s 8346}# #f)
+ (set-source-properties! #{e 8343}# #{s 8346}#))
+ #{e 8343}#)
+ #{w 8345}#
+ #{mod 8347}#))))))
+ (#{global-extend 4299}#
'core
'set!
- (lambda (#{e 9038}#
- #{r 9039}#
- #{w 9040}#
- #{s 9041}#
- #{mod 9042}#)
- (let ((#{tmp 9044}#
- ($sc-dispatch #{e 9038}# '(_ any any))))
- (if (if #{tmp 9044}#
+ (lambda (#{e 9026}#
+ #{r 9027}#
+ #{w 9028}#
+ #{s 9029}#
+ #{mod 9030}#)
+ (let ((#{tmp 9032}#
+ ($sc-dispatch #{e 9026}# '(_ any any))))
+ (if (if #{tmp 9032}#
(@apply
- (lambda (#{id 9048}# #{val 9049}#)
- (if (symbol? #{id 9048}#)
+ (lambda (#{id 9036}# #{val 9037}#)
+ (if (symbol? #{id 9036}#)
#t
- (if (if (vector? #{id 9048}#)
- (if (= (vector-length #{id 9048}#) 4)
- (eq? (vector-ref #{id 9048}# 0) 'syntax-object)
+ (if (if (vector? #{id 9036}#)
+ (if (= (vector-length #{id 9036}#) 4)
+ (eq? (vector-ref #{id 9036}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{id 9048}# 1))
+ (symbol? (vector-ref #{id 9036}# 1))
#f)))
- #{tmp 9044}#)
+ #{tmp 9032}#)
#f)
(@apply
- (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)
+ (lambda (#{id 9064}# #{val 9065}#)
+ (let ((#{n 9066}#
+ (#{id-var-name 4320}# #{id 9064}# #{w 9028}#))
+ (#{id-mod 9067}#
+ (if (if (vector? #{id 9064}#)
+ (if (= (vector-length #{id 9064}#) 4)
+ (eq? (vector-ref #{id 9064}# 0) 'syntax-object)
#f)
#f)
- (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}#
+ (vector-ref #{id 9064}# 3)
+ #{mod 9030}#)))
+ (let ((#{b 9068}#
+ (let ((#{t 9755}# (assq #{n 9066}# #{r 9027}#)))
+ (if #{t 9755}#
+ (cdr #{t 9755}#)
+ (if (symbol? #{n 9066}#)
+ (let ((#{t 9760}#
(begin
- (if (if (not #{id-mod 9079}#)
+ (if (if (not #{id-mod 9067}#)
(current-module)
#f)
(warn "module system is booted, we should have a module"
- #{n 9078}#))
- (let ((#{v 9809}#
+ #{n 9066}#))
+ (let ((#{v 9797}#
(module-variable
- (if #{id-mod 9079}#
+ (if #{id-mod 9067}#
(resolve-module
- (cdr #{id-mod 9079}#))
+ (cdr #{id-mod 9067}#))
(current-module))
- #{n 9078}#)))
- (if #{v 9809}#
- (if (variable-bound? #{v 9809}#)
- (let ((#{val 9818}#
+ #{n 9066}#)))
+ (if #{v 9797}#
+ (if (variable-bound? #{v 9797}#)
+ (let ((#{val 9806}#
(variable-ref
- #{v 9809}#)))
- (if (macro? #{val 9818}#)
+ #{v 9797}#)))
+ (if (macro? #{val 9806}#)
(if (macro-type
- #{val 9818}#)
+ #{val 9806}#)
(cons (macro-type
- #{val 9818}#)
+ #{val 9806}#)
(macro-binding
- #{val 9818}#))
+ #{val 9806}#))
#f)
#f))
#f)
#f)))))
- (if #{t 9772}# #{t 9772}# '(global)))
+ (if #{t 9760}# #{t 9760}# '(global)))
'(displaced-lexical))))))
- (let ((#{atom-key 9081}# (car #{b 9080}#)))
- (if (let ((#{t 9118}# #{atom-key 9081}#))
- (eqv? #{t 9118}# 'lexical))
- (#{build-lexical-assignment 4284}#
- #{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 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}#)))
+ (let ((#{atom-key 9069}# (car #{b 9068}#)))
+ (if (let ((#{t 9106}# #{atom-key 9069}#))
+ (eqv? #{t 9106}# 'lexical))
+ (#{build-lexical-assignment 4272}#
+ #{s 9029}#
+ (syntax->datum #{id 9064}#)
+ (cdr #{b 9068}#)
+ (#{expand 4333}#
+ #{val 9065}#
+ #{r 9027}#
+ #{w 9028}#
+ #{mod 9030}#))
+ (if (let ((#{t 9391}# #{atom-key 9069}#))
+ (eqv? #{t 9391}# 'global))
+ (#{build-global-assignment 4275}#
+ #{s 9029}#
+ #{n 9066}#
+ (#{expand 4333}#
+ #{val 9065}#
+ #{r 9027}#
+ #{w 9028}#
+ #{mod 9030}#)
+ #{id-mod 9067}#)
+ (if (let ((#{t 9646}# #{atom-key 9069}#))
+ (eqv? #{t 9646}# 'macro))
+ (let ((#{p 9709}# (cdr #{b 9068}#)))
(if (procedure-property
- #{p 9721}#
+ #{p 9709}#
'variable-transformer)
- (#{expand 4345}#
- (#{expand-macro 4348}#
- #{p 9721}#
- #{e 9038}#
- #{r 9039}#
- #{w 9040}#
- #{s 9041}#
+ (#{expand 4333}#
+ (#{expand-macro 4336}#
+ #{p 9709}#
+ #{e 9026}#
+ #{r 9027}#
+ #{w 9028}#
+ #{s 9029}#
#f
- #{mod 9042}#)
- #{r 9039}#
+ #{mod 9030}#)
+ #{r 9027}#
'(())
- #{mod 9042}#)
+ #{mod 9030}#)
(syntax-violation
'set!
"not a variable transformer"
- (#{wrap 4338}#
- #{e 9038}#
- #{w 9040}#
- #{mod 9042}#)
- (#{wrap 4338}#
- #{id 9076}#
- #{w 9040}#
- #{id-mod 9079}#))))
- (if (eqv? #{atom-key 9081}# 'displaced-lexical)
+ (#{wrap 4326}#
+ #{e 9026}#
+ #{w 9028}#
+ #{mod 9030}#)
+ (#{wrap 4326}#
+ #{id 9064}#
+ #{w 9028}#
+ #{id-mod 9067}#))))
+ (if (eqv? #{atom-key 9069}# 'displaced-lexical)
(syntax-violation
'set!
"identifier out of context"
- (#{wrap 4338}#
- #{id 9076}#
- #{w 9040}#
- #{mod 9042}#))
+ (#{wrap 4326}#
+ #{id 9064}#
+ #{w 9028}#
+ #{mod 9030}#))
(syntax-violation
'set!
"bad set!"
- (#{wrap 4338}#
+ (#{wrap 4326}#
(begin
- (if (if (pair? #{e 9038}#) #{s 9041}# #f)
+ (if (if (pair? #{e 9026}#) #{s 9029}# #f)
(set-source-properties!
- #{e 9038}#
- #{s 9041}#))
- #{e 9038}#)
- #{w 9040}#
- #{mod 9042}#))))))))))
- #{tmp 9044}#)
- (let ((#{tmp 9919}#
+ #{e 9026}#
+ #{s 9029}#))
+ #{e 9026}#)
+ #{w 9028}#
+ #{mod 9030}#))))))))))
+ #{tmp 9032}#)
+ (let ((#{tmp 9907}#
($sc-dispatch
- #{e 9038}#
+ #{e 9026}#
'(_ (any . each-any) any))))
- (if #{tmp 9919}#
+ (if #{tmp 9907}#
(@apply
- (lambda (#{head 9923}# #{tail 9924}# #{val 9925}#)
+ (lambda (#{head 9911}# #{tail 9912}# #{val 9913}#)
(call-with-values
(lambda ()
- (#{syntax-type 4344}#
- #{head 9923}#
- #{r 9039}#
+ (#{syntax-type 4332}#
+ #{head 9911}#
+ #{r 9027}#
'(())
#f
#f
- #{mod 9042}#
+ #{mod 9030}#
#t))
- (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}#)))
+ (lambda (#{type 9916}#
+ #{value 9917}#
+ #{ee 9918}#
+ #{ww 9919}#
+ #{ss 9920}#
+ #{modmod 9921}#)
+ (if (eqv? #{type 9916}# 'module-ref)
+ (let ((#{val 9925}#
+ (#{expand 4333}#
+ #{val 9913}#
+ #{r 9027}#
+ #{w 9028}#
+ #{mod 9030}#)))
(call-with-values
(lambda ()
- (#{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}#)))
+ (#{value 9917}#
+ (cons #{head 9911}# #{tail 9912}#)
+ #{r 9027}#
+ #{w 9028}#))
+ (lambda (#{e 9926}#
+ #{r 9927}#
+ #{w 9928}#
+ #{s* 9929}#
+ #{mod 9930}#)
+ (let ((#{tmp 9932}# (list #{e 9926}#)))
(if (@apply
- (lambda (#{e 9946}#)
- (if (symbol? #{e 9946}#)
+ (lambda (#{e 9934}#)
+ (if (symbol? #{e 9934}#)
#t
- (if (if (vector? #{e 9946}#)
+ (if (if (vector? #{e 9934}#)
(if (= (vector-length
- #{e 9946}#)
+ #{e 9934}#)
4)
(eq? (vector-ref
- #{e 9946}#
+ #{e 9934}#
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{e 9946}# 1))
+ (vector-ref #{e 9934}# 1))
#f)))
- #{tmp 9944}#)
+ #{tmp 9932}#)
(@apply
- (lambda (#{e 9976}#)
- (#{build-global-assignment 4287}#
- #{s 9041}#
- (syntax->datum #{e 9976}#)
- #{val 9937}#
- #{mod 9942}#))
- #{tmp 9944}#)
+ (lambda (#{e 9964}#)
+ (#{build-global-assignment 4275}#
+ #{s 9029}#
+ (syntax->datum #{e 9964}#)
+ #{val 9925}#
+ #{mod 9930}#))
+ #{tmp 9932}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 9938}#))))))
- (#{build-application 4280}#
- #{s 9041}#
- (#{expand 4345}#
+ #{e 9926}#))))))
+ (#{build-application 4268}#
+ #{s 9029}#
+ (#{expand 4333}#
(list '#(syntax-object
setter
((top)
(top)
(top)
(top))
- #("i3555"
- "i3556"
- "i3557"
- "i3558"
- "i3559"
- "i3560"))
+ #("i3543"
+ "i3544"
+ "i3545"
+ "i3546"
+ "i3547"
+ "i3548"))
#(ribcage
#(head tail val)
#((top) (top) (top))
- #("i3541" "i3542" "i3543"))
+ #("i3529" "i3530" "i3531"))
#(ribcage () () ())
#(ribcage
#(e r w s mod)
#((top) (top) (top) (top) (top))
- #("i3505"
- "i3506"
- "i3507"
- "i3508"
- "i3509"))
+ #("i3493"
+ "i3494"
+ "i3495"
+ "i3496"
+ "i3497"))
#(ribcage
(lambda-var-list
gen-var
expand-expr
expand
syntax-type
- expand-when-list
+ parse-when-list
expand-install-global
expand-top-sequence
expand-sequence
((top) (top) (top))
("i46" "i45" "i44")))
(hygiene guile))
- #{head 9923}#)
- #{r 9039}#
- #{w 9040}#
- #{mod 9042}#)
- (map (lambda (#{e 10277}#)
- (#{expand 4345}#
- #{e 10277}#
- #{r 9039}#
- #{w 9040}#
- #{mod 9042}#))
+ #{head 9911}#)
+ #{r 9027}#
+ #{w 9028}#
+ #{mod 9030}#)
+ (map (lambda (#{e 10265}#)
+ (#{expand 4333}#
+ #{e 10265}#
+ #{r 9027}#
+ #{w 9028}#
+ #{mod 9030}#))
(append
- #{tail 9924}#
- (list #{val 9925}#))))))))
- #{tmp 9919}#)
+ #{tail 9912}#
+ (list #{val 9913}#))))))))
+ #{tmp 9907}#)
(syntax-violation
'set!
"bad set!"
- (#{wrap 4338}#
+ (#{wrap 4326}#
(begin
- (if (if (pair? #{e 9038}#) #{s 9041}# #f)
- (set-source-properties! #{e 9038}# #{s 9041}#))
- #{e 9038}#)
- #{w 9040}#
- #{mod 9042}#))))))))
+ (if (if (pair? #{e 9026}#) #{s 9029}# #f)
+ (set-source-properties! #{e 9026}# #{s 9029}#))
+ #{e 9026}#)
+ #{w 9028}#
+ #{mod 9030}#))))))))
(module-define!
(current-module)
'@
(make-syntax-transformer
'@
'module-ref
- (lambda (#{e 10391}# #{r 10392}# #{w 10393}#)
- (let ((#{tmp 10395}#
- ($sc-dispatch #{e 10391}# '(_ each-any any))))
- (if (if #{tmp 10395}#
+ (lambda (#{e 10379}# #{r 10380}# #{w 10381}#)
+ (let ((#{tmp 10383}#
+ ($sc-dispatch #{e 10379}# '(_ each-any any))))
+ (if (if #{tmp 10383}#
(@apply
- (lambda (#{mod 10398}# #{id 10399}#)
- (if (and-map #{id? 4313}# #{mod 10398}#)
- (if (symbol? #{id 10399}#)
+ (lambda (#{mod 10386}# #{id 10387}#)
+ (if (and-map #{id? 4301}# #{mod 10386}#)
+ (if (symbol? #{id 10387}#)
#t
- (if (if (vector? #{id 10399}#)
- (if (= (vector-length #{id 10399}#) 4)
- (eq? (vector-ref #{id 10399}# 0)
+ (if (if (vector? #{id 10387}#)
+ (if (= (vector-length #{id 10387}#) 4)
+ (eq? (vector-ref #{id 10387}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{id 10399}# 1))
+ (symbol? (vector-ref #{id 10387}# 1))
#f))
#f))
- #{tmp 10395}#)
+ #{tmp 10383}#)
#f)
(@apply
- (lambda (#{mod 10439}# #{id 10440}#)
+ (lambda (#{mod 10427}# #{id 10428}#)
(values
- (syntax->datum #{id 10440}#)
- #{r 10392}#
- #{w 10393}#
+ (syntax->datum #{id 10428}#)
+ #{r 10380}#
+ #{w 10381}#
#f
(syntax->datum
(cons '#(syntax-object
#(ribcage
#(mod id)
#((top) (top))
- #("i3602" "i3603"))
+ #("i3590" "i3591"))
#(ribcage () () ())
#(ribcage
#(e r w)
#((top) (top) (top))
- #("i3590" "i3591" "i3592"))
+ #("i3578" "i3579" "i3580"))
#(ribcage
(lambda-var-list
gen-var
expand-expr
expand
syntax-type
- expand-when-list
+ parse-when-list
expand-install-global
expand-top-sequence
expand-sequence
((top) (top) (top))
("i46" "i45" "i44")))
(hygiene guile))
- #{mod 10439}#))))
- #{tmp 10395}#)
+ #{mod 10427}#))))
+ #{tmp 10383}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 10391}#))))))
- (#{global-extend 4311}#
+ #{e 10379}#))))))
+ (#{global-extend 4299}#
'module-ref
'@@
- (lambda (#{e 10537}# #{r 10538}# #{w 10539}#)
+ (lambda (#{e 10525}# #{r 10526}# #{w 10527}#)
(letrec*
- ((#{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)
+ ((#{remodulate 10528}#
+ (lambda (#{x 10734}# #{mod 10735}#)
+ (if (pair? #{x 10734}#)
+ (cons (#{remodulate 10528}#
+ (car #{x 10734}#)
+ #{mod 10735}#)
+ (#{remodulate 10528}#
+ (cdr #{x 10734}#)
+ #{mod 10735}#))
+ (if (if (vector? #{x 10734}#)
+ (if (= (vector-length #{x 10734}#) 4)
+ (eq? (vector-ref #{x 10734}# 0) 'syntax-object)
#f)
#f)
- (let ((#{expression 10761}#
- (#{remodulate 10540}#
- (vector-ref #{x 10746}# 1)
- #{mod 10747}#))
- (#{wrap 10762}# (vector-ref #{x 10746}# 2)))
+ (let ((#{expression 10749}#
+ (#{remodulate 10528}#
+ (vector-ref #{x 10734}# 1)
+ #{mod 10735}#))
+ (#{wrap 10750}# (vector-ref #{x 10734}# 2)))
(vector
'syntax-object
- #{expression 10761}#
- #{wrap 10762}#
- #{mod 10747}#))
- (if (vector? #{x 10746}#)
- (let ((#{n 10770}# (vector-length #{x 10746}#)))
- (let ((#{v 10771}# (make-vector #{n 10770}#)))
+ #{expression 10749}#
+ #{wrap 10750}#
+ #{mod 10735}#))
+ (if (vector? #{x 10734}#)
+ (let ((#{n 10758}# (vector-length #{x 10734}#)))
+ (let ((#{v 10759}# (make-vector #{n 10758}#)))
(letrec*
- ((#{loop 10772}#
- (lambda (#{i 10819}#)
- (if (= #{i 10819}# #{n 10770}#)
- #{v 10771}#
+ ((#{loop 10760}#
+ (lambda (#{i 10807}#)
+ (if (= #{i 10807}# #{n 10758}#)
+ #{v 10759}#
(begin
(vector-set!
- #{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}#
+ #{v 10759}#
+ #{i 10807}#
+ (#{remodulate 10528}#
+ (vector-ref #{x 10734}# #{i 10807}#)
+ #{mod 10735}#))
+ (#{loop 10760}# (#{1+}# #{i 10807}#)))))))
+ (#{loop 10760}# 0))))
+ #{x 10734}#))))))
+ (let ((#{tmp 10530}#
+ ($sc-dispatch #{e 10525}# '(_ each-any any))))
+ (if (if #{tmp 10530}#
(@apply
- (lambda (#{mod 10546}# #{exp 10547}#)
- (and-map #{id? 4313}# #{mod 10546}#))
- #{tmp 10542}#)
+ (lambda (#{mod 10534}# #{exp 10535}#)
+ (and-map #{id? 4301}# #{mod 10534}#))
+ #{tmp 10530}#)
#f)
(@apply
- (lambda (#{mod 10563}# #{exp 10564}#)
- (let ((#{mod 10565}#
+ (lambda (#{mod 10551}# #{exp 10552}#)
+ (let ((#{mod 10553}#
(syntax->datum
(cons '#(syntax-object
private
#(ribcage
#(mod exp)
#((top) (top))
- #("i3646" "i3647"))
- #(ribcage (remodulate) ((top)) ("i3613"))
+ #("i3634" "i3635"))
+ #(ribcage (remodulate) ((top)) ("i3601"))
#(ribcage
#(e r w)
#((top) (top) (top))
- #("i3610" "i3611" "i3612"))
+ #("i3598" "i3599" "i3600"))
#(ribcage
(lambda-var-list
gen-var
expand-expr
expand
syntax-type
- expand-when-list
+ parse-when-list
expand-install-global
expand-top-sequence
expand-sequence
((top) (top) (top))
("i46" "i45" "i44")))
(hygiene guile))
- #{mod 10563}#))))
+ #{mod 10551}#))))
(values
- (#{remodulate 10540}#
- #{exp 10564}#
- #{mod 10565}#)
- #{r 10538}#
- #{w 10539}#
- (#{source-annotation 4306}# #{exp 10564}#)
- #{mod 10565}#)))
- #{tmp 10542}#)
+ (#{remodulate 10528}#
+ #{exp 10552}#
+ #{mod 10553}#)
+ #{r 10526}#
+ #{w 10527}#
+ (#{source-annotation 4294}# #{exp 10552}#)
+ #{mod 10553}#)))
+ #{tmp 10530}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 10537}#))))))
- (#{global-extend 4311}#
+ #{e 10525}#))))))
+ (#{global-extend 4299}#
'core
'if
- (lambda (#{e 10925}#
- #{r 10926}#
- #{w 10927}#
- #{s 10928}#
- #{mod 10929}#)
- (let ((#{tmp 10931}#
- ($sc-dispatch #{e 10925}# '(_ any any))))
- (if #{tmp 10931}#
+ (lambda (#{e 10913}#
+ #{r 10914}#
+ #{w 10915}#
+ #{s 10916}#
+ #{mod 10917}#)
+ (let ((#{tmp 10919}#
+ ($sc-dispatch #{e 10913}# '(_ any any))))
+ (if #{tmp 10919}#
(@apply
- (lambda (#{test 10935}# #{then 10936}#)
- (#{build-conditional 4281}#
- #{s 10928}#
- (#{expand 4345}#
- #{test 10935}#
- #{r 10926}#
- #{w 10927}#
- #{mod 10929}#)
- (#{expand 4345}#
- #{then 10936}#
- #{r 10926}#
- #{w 10927}#
- #{mod 10929}#)
+ (lambda (#{test 10923}# #{then 10924}#)
+ (#{build-conditional 4269}#
+ #{s 10916}#
+ (#{expand 4333}#
+ #{test 10923}#
+ #{r 10914}#
+ #{w 10915}#
+ #{mod 10917}#)
+ (#{expand 4333}#
+ #{then 10924}#
+ #{r 10914}#
+ #{w 10915}#
+ #{mod 10917}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 0)
#f)))
- #{tmp 10931}#)
- (let ((#{tmp 11176}#
- ($sc-dispatch #{e 10925}# '(_ any any any))))
- (if #{tmp 11176}#
+ #{tmp 10919}#)
+ (let ((#{tmp 11164}#
+ ($sc-dispatch #{e 10913}# '(_ any any any))))
+ (if #{tmp 11164}#
(@apply
- (lambda (#{test 11180}# #{then 11181}# #{else 11182}#)
- (#{build-conditional 4281}#
- #{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}#)
+ (lambda (#{test 11168}# #{then 11169}# #{else 11170}#)
+ (#{build-conditional 4269}#
+ #{s 10916}#
+ (#{expand 4333}#
+ #{test 11168}#
+ #{r 10914}#
+ #{w 10915}#
+ #{mod 10917}#)
+ (#{expand 4333}#
+ #{then 11169}#
+ #{r 10914}#
+ #{w 10915}#
+ #{mod 10917}#)
+ (#{expand 4333}#
+ #{else 11170}#
+ #{r 10914}#
+ #{w 10915}#
+ #{mod 10917}#)))
+ #{tmp 11164}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 10925}#)))))))
- (#{global-extend 4311}#
+ #{e 10913}#)))))))
+ (#{global-extend 4299}#
'core
'with-fluids
- (lambda (#{e 11606}#
- #{r 11607}#
- #{w 11608}#
- #{s 11609}#
- #{mod 11610}#)
- (let ((#{tmp 11612}#
+ (lambda (#{e 11594}#
+ #{r 11595}#
+ #{w 11596}#
+ #{s 11597}#
+ #{mod 11598}#)
+ (let ((#{tmp 11600}#
($sc-dispatch
- #{e 11606}#
+ #{e 11594}#
'(_ #(each (any any)) any . each-any))))
- (if #{tmp 11612}#
+ (if #{tmp 11600}#
(@apply
- (lambda (#{fluid 11616}#
- #{val 11617}#
- #{b 11618}#
- #{b* 11619}#)
- (#{build-dynlet 4282}#
- #{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}#
+ (lambda (#{fluid 11604}#
+ #{val 11605}#
+ #{b 11606}#
+ #{b* 11607}#)
+ (#{build-dynlet 4270}#
+ #{s 11597}#
+ (map (lambda (#{x 11693}#)
+ (#{expand 4333}#
+ #{x 11693}#
+ #{r 11595}#
+ #{w 11596}#
+ #{mod 11598}#))
+ #{fluid 11604}#)
+ (map (lambda (#{x 11768}#)
+ (#{expand 4333}#
+ #{x 11768}#
+ #{r 11595}#
+ #{w 11596}#
+ #{mod 11598}#))
+ #{val 11605}#)
+ (#{expand-body 4337}#
+ (cons #{b 11606}# #{b* 11607}#)
+ (#{wrap 4326}#
(begin
- (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}#)
+ (if (if (pair? #{e 11594}#) #{s 11597}# #f)
+ (set-source-properties! #{e 11594}# #{s 11597}#))
+ #{e 11594}#)
+ #{w 11596}#
+ #{mod 11598}#)
+ #{r 11595}#
+ #{w 11596}#
+ #{mod 11598}#)))
+ #{tmp 11600}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 11606}#)))))
+ #{e 11594}#)))))
(module-define!
(current-module)
'begin
'eval-when
'eval-when
'()))
- (#{global-extend 4311}#
+ (#{global-extend 4299}#
'core
'syntax-case
(letrec*
- ((#{convert-pattern 12154}#
- (lambda (#{pattern 13777}# #{keys 13778}#)
+ ((#{convert-pattern 12142}#
+ (lambda (#{pattern 13765}# #{keys 13766}#)
(letrec*
- ((#{cvt* 13779}#
- (lambda (#{p* 14405}# #{n 14406}# #{ids 14407}#)
- (if (not (pair? #{p* 14405}#))
- (#{cvt 13781}#
- #{p* 14405}#
- #{n 14406}#
- #{ids 14407}#)
+ ((#{cvt* 13767}#
+ (lambda (#{p* 14393}# #{n 14394}# #{ids 14395}#)
+ (if (not (pair? #{p* 14393}#))
+ (#{cvt 13769}#
+ #{p* 14393}#
+ #{n 14394}#
+ #{ids 14395}#)
(call-with-values
(lambda ()
- (#{cvt* 13779}#
- (cdr #{p* 14405}#)
- #{n 14406}#
- #{ids 14407}#))
- (lambda (#{y 14410}# #{ids 14411}#)
+ (#{cvt* 13767}#
+ (cdr #{p* 14393}#)
+ #{n 14394}#
+ #{ids 14395}#))
+ (lambda (#{y 14398}# #{ids 14399}#)
(call-with-values
(lambda ()
- (#{cvt 13781}#
- (car #{p* 14405}#)
- #{n 14406}#
- #{ids 14411}#))
- (lambda (#{x 14414}# #{ids 14415}#)
+ (#{cvt 13769}#
+ (car #{p* 14393}#)
+ #{n 14394}#
+ #{ids 14399}#))
+ (lambda (#{x 14402}# #{ids 14403}#)
(values
- (cons #{x 14414}# #{y 14410}#)
- #{ids 14415}#))))))))
- (#{v-reverse 13780}#
- (lambda (#{x 14416}#)
+ (cons #{x 14402}# #{y 14398}#)
+ #{ids 14403}#))))))))
+ (#{v-reverse 13768}#
+ (lambda (#{x 14404}#)
(letrec*
- ((#{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}#)
+ ((#{loop 14405}#
+ (lambda (#{r 14482}# #{x 14483}#)
+ (if (not (pair? #{x 14483}#))
+ (values #{r 14482}# #{x 14483}#)
+ (#{loop 14405}#
+ (cons (car #{x 14483}#) #{r 14482}#)
+ (cdr #{x 14483}#))))))
+ (#{loop 14405}# '() #{x 14404}#))))
+ (#{cvt 13769}#
+ (lambda (#{p 13772}# #{n 13773}# #{ids 13774}#)
+ (if (if (symbol? #{p 13772}#)
#t
- (if (if (vector? #{p 13784}#)
- (if (= (vector-length #{p 13784}#) 4)
- (eq? (vector-ref #{p 13784}# 0)
+ (if (if (vector? #{p 13772}#)
+ (if (= (vector-length #{p 13772}#) 4)
+ (eq? (vector-ref #{p 13772}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{p 13784}# 1))
+ (symbol? (vector-ref #{p 13772}# 1))
#f))
- (if (#{bound-id-member? 4337}#
- #{p 13784}#
- #{keys 13778}#)
+ (if (#{bound-id-member? 4325}#
+ #{p 13772}#
+ #{keys 13766}#)
(values
- (vector 'free-id #{p 13784}#)
- #{ids 13786}#)
- (if (if (eq? (if (if (vector? #{p 13784}#)
- (if (= (vector-length #{p 13784}#)
+ (vector 'free-id #{p 13772}#)
+ #{ids 13774}#)
+ (if (if (eq? (if (if (vector? #{p 13772}#)
+ (if (= (vector-length #{p 13772}#)
4)
- (eq? (vector-ref #{p 13784}# 0)
+ (eq? (vector-ref #{p 13772}# 0)
'syntax-object)
#f)
#f)
- (vector-ref #{p 13784}# 1)
- #{p 13784}#)
+ (vector-ref #{p 13772}# 1)
+ #{p 13772}#)
(if (if (= (vector-length
'#(syntax-object
_
#(ribcage
#(p n ids)
#((top) (top) (top))
- #("i3747"
- "i3748"
- "i3749"))
+ #("i3735"
+ "i3736"
+ "i3737"))
#(ribcage
(cvt v-reverse cvt*)
((top) (top) (top))
- ("i3720"
- "i3718"
- "i3716"))
+ ("i3708"
+ "i3706"
+ "i3704"))
#(ribcage
#(pattern keys)
#((top) (top))
- #("i3714" "i3715"))
+ #("i3702" "i3703"))
#(ribcage
(gen-syntax-case
gen-clause
(top)
(top)
(top))
- ("i3710"
- "i3708"
- "i3706"
- "i3704"))
+ ("i3698"
+ "i3696"
+ "i3694"
+ "i3692"))
#(ribcage
(lambda-var-list
gen-var
expand-expr
expand
syntax-type
- expand-when-list
+ parse-when-list
expand-install-global
expand-top-sequence
expand-sequence
#(ribcage
#(p n ids)
#((top) (top) (top))
- #("i3747" "i3748" "i3749"))
+ #("i3735" "i3736" "i3737"))
#(ribcage
(cvt v-reverse cvt*)
((top) (top) (top))
- ("i3720" "i3718" "i3716"))
+ ("i3708" "i3706" "i3704"))
#(ribcage
#(pattern keys)
#((top) (top))
- #("i3714" "i3715"))
+ #("i3702" "i3703"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3710" "i3708" "i3706" "i3704"))
+ ("i3698" "i3696" "i3694" "i3692"))
#(ribcage
(lambda-var-list
gen-var
expand-expr
expand
syntax-type
- expand-when-list
+ parse-when-list
expand-install-global
expand-top-sequence
expand-sequence
((top) (top) (top))
("i46" "i45" "i44")))
(hygiene guile))))
- (eq? (#{id-var-name 4332}# #{p 13784}# '(()))
- (#{id-var-name 4332}#
+ (eq? (#{id-var-name 4320}# #{p 13772}# '(()))
+ (#{id-var-name 4320}#
'#(syntax-object
_
((top)
#(ribcage
#(p n ids)
#((top) (top) (top))
- #("i3747" "i3748" "i3749"))
+ #("i3735" "i3736" "i3737"))
#(ribcage
(cvt v-reverse cvt*)
((top) (top) (top))
- ("i3720" "i3718" "i3716"))
+ ("i3708" "i3706" "i3704"))
#(ribcage
#(pattern keys)
#((top) (top))
- #("i3714" "i3715"))
+ #("i3702" "i3703"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3710" "i3708" "i3706" "i3704"))
+ ("i3698" "i3696" "i3694" "i3692"))
#(ribcage
(lambda-var-list
gen-var
expand-expr
expand
syntax-type
- expand-when-list
+ parse-when-list
expand-install-global
expand-top-sequence
expand-sequence
(hygiene guile))
'(())))
#f)
- (values '_ #{ids 13786}#)
+ (values '_ #{ids 13774}#)
(values
'any
- (cons (cons #{p 13784}# #{n 13785}#)
- #{ids 13786}#))))
- (let ((#{tmp 14108}#
- ($sc-dispatch #{p 13784}# '(any any))))
- (if (if #{tmp 14108}#
+ (cons (cons #{p 13772}# #{n 13773}#)
+ #{ids 13774}#))))
+ (let ((#{tmp 14096}#
+ ($sc-dispatch #{p 13772}# '(any any))))
+ (if (if #{tmp 14096}#
(@apply
- (lambda (#{x 14112}# #{dots 14113}#)
- (if (if (if (vector? #{dots 14113}#)
+ (lambda (#{x 14100}# #{dots 14101}#)
+ (if (if (if (vector? #{dots 14101}#)
(if (= (vector-length
- #{dots 14113}#)
+ #{dots 14101}#)
4)
(eq? (vector-ref
- #{dots 14113}#
+ #{dots 14101}#
0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{dots 14113}# 1))
+ (symbol? (vector-ref #{dots 14101}# 1))
#f)
- (if (eq? (if (if (vector? #{dots 14113}#)
+ (if (eq? (if (if (vector? #{dots 14101}#)
(if (= (vector-length
- #{dots 14113}#)
+ #{dots 14101}#)
4)
(eq? (vector-ref
- #{dots 14113}#
+ #{dots 14101}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{dots 14113}# 1)
- #{dots 14113}#)
+ (vector-ref #{dots 14101}# 1)
+ #{dots 14101}#)
(if (if (= (vector-length
'#(syntax-object
...
#(ribcage
#(x)
#((top))
- #("i2230"))
+ #("i2218"))
#(ribcage
(lambda-var-list
gen-var
expand-expr
expand
syntax-type
- expand-when-list
+ parse-when-list
expand-install-global
expand-top-sequence
expand-sequence
#(ribcage
#(x)
#((top))
- #("i2230"))
+ #("i2218"))
#(ribcage
(lambda-var-list
gen-var
expand-expr
expand
syntax-type
- expand-when-list
+ parse-when-list
expand-install-global
expand-top-sequence
expand-sequence
((top) (top) (top))
("i46" "i45" "i44")))
(hygiene guile))))
- (eq? (#{id-var-name 4332}#
- #{dots 14113}#
+ (eq? (#{id-var-name 4320}#
+ #{dots 14101}#
'(()))
- (#{id-var-name 4332}#
+ (#{id-var-name 4320}#
'#(syntax-object
...
((top)
#(ribcage
#(x)
#((top))
- #("i2230"))
+ #("i2218"))
#(ribcage
(lambda-var-list
gen-var
expand-expr
expand
syntax-type
- expand-when-list
+ parse-when-list
expand-install-global
expand-top-sequence
expand-sequence
'(())))
#f)
#f))
- #{tmp 14108}#)
+ #{tmp 14096}#)
#f)
(@apply
- (lambda (#{x 14213}# #{dots 14214}#)
+ (lambda (#{x 14201}# #{dots 14202}#)
(call-with-values
(lambda ()
- (#{cvt 13781}#
- #{x 14213}#
- (#{1+}# #{n 13785}#)
- #{ids 13786}#))
- (lambda (#{p 14215}# #{ids 14216}#)
+ (#{cvt 13769}#
+ #{x 14201}#
+ (#{1+}# #{n 13773}#)
+ #{ids 13774}#))
+ (lambda (#{p 14203}# #{ids 14204}#)
(values
- (if (eq? #{p 14215}# 'any)
+ (if (eq? #{p 14203}# 'any)
'each-any
- (vector 'each #{p 14215}#))
- #{ids 14216}#))))
- #{tmp 14108}#)
- (let ((#{tmp 14217}#
- ($sc-dispatch #{p 13784}# '(any any . any))))
- (if (if #{tmp 14217}#
+ (vector 'each #{p 14203}#))
+ #{ids 14204}#))))
+ #{tmp 14096}#)
+ (let ((#{tmp 14205}#
+ ($sc-dispatch #{p 13772}# '(any any . any))))
+ (if (if #{tmp 14205}#
(@apply
- (lambda (#{x 14221}#
- #{dots 14222}#
- #{ys 14223}#)
- (if (if (if (vector? #{dots 14222}#)
+ (lambda (#{x 14209}#
+ #{dots 14210}#
+ #{ys 14211}#)
+ (if (if (if (vector? #{dots 14210}#)
(if (= (vector-length
- #{dots 14222}#)
+ #{dots 14210}#)
4)
(eq? (vector-ref
- #{dots 14222}#
+ #{dots 14210}#
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{dots 14222}# 1))
+ (vector-ref #{dots 14210}# 1))
#f)
(if (eq? (if (if (vector?
- #{dots 14222}#)
+ #{dots 14210}#)
(if (= (vector-length
- #{dots 14222}#)
+ #{dots 14210}#)
4)
(eq? (vector-ref
- #{dots 14222}#
+ #{dots 14210}#
0)
'syntax-object)
#f)
#f)
(vector-ref
- #{dots 14222}#
+ #{dots 14210}#
1)
- #{dots 14222}#)
+ #{dots 14210}#)
(if (if (= (vector-length
'#(syntax-object
...
#(ribcage
#(x)
#((top))
- #("i2230"))
+ #("i2218"))
#(ribcage
(lambda-var-list
gen-var
expand-expr
expand
syntax-type
- expand-when-list
+ parse-when-list
expand-install-global
expand-top-sequence
expand-sequence
#(ribcage
#(x)
#((top))
- #("i2230"))
+ #("i2218"))
#(ribcage
(lambda-var-list
gen-var
expand-expr
expand
syntax-type
- expand-when-list
+ parse-when-list
expand-install-global
expand-top-sequence
expand-sequence
((top) (top) (top))
("i46" "i45" "i44")))
(hygiene guile))))
- (eq? (#{id-var-name 4332}#
- #{dots 14222}#
+ (eq? (#{id-var-name 4320}#
+ #{dots 14210}#
'(()))
- (#{id-var-name 4332}#
+ (#{id-var-name 4320}#
'#(syntax-object
...
((top)
#(ribcage
#(x)
#((top))
- #("i2230"))
+ #("i2218"))
#(ribcage
(lambda-var-list
gen-var
expand-expr
expand
syntax-type
- expand-when-list
+ parse-when-list
expand-install-global
expand-top-sequence
expand-sequence
'(())))
#f)
#f))
- #{tmp 14217}#)
+ #{tmp 14205}#)
#f)
(@apply
- (lambda (#{x 14323}#
- #{dots 14324}#
- #{ys 14325}#)
+ (lambda (#{x 14311}#
+ #{dots 14312}#
+ #{ys 14313}#)
(call-with-values
(lambda ()
- (#{cvt* 13779}#
- #{ys 14325}#
- #{n 13785}#
- #{ids 13786}#))
- (lambda (#{ys 14328}# #{ids 14329}#)
+ (#{cvt* 13767}#
+ #{ys 14313}#
+ #{n 13773}#
+ #{ids 13774}#))
+ (lambda (#{ys 14316}# #{ids 14317}#)
(call-with-values
(lambda ()
- (#{cvt 13781}#
- #{x 14323}#
- (#{1+}# #{n 13785}#)
- #{ids 14329}#))
- (lambda (#{x 14330}# #{ids 14331}#)
+ (#{cvt 13769}#
+ #{x 14311}#
+ (#{1+}# #{n 13773}#)
+ #{ids 14317}#))
+ (lambda (#{x 14318}# #{ids 14319}#)
(call-with-values
(lambda ()
- (#{v-reverse 13780}#
- #{ys 14328}#))
- (lambda (#{ys 14364}# #{e 14365}#)
+ (#{v-reverse 13768}#
+ #{ys 14316}#))
+ (lambda (#{ys 14352}# #{e 14353}#)
(values
(vector
'each+
- #{x 14330}#
- #{ys 14364}#
- #{e 14365}#)
- #{ids 14331}#))))))))
- #{tmp 14217}#)
- (let ((#{tmp 14366}#
- ($sc-dispatch #{p 13784}# '(any . any))))
- (if #{tmp 14366}#
+ #{x 14318}#
+ #{ys 14352}#
+ #{e 14353}#)
+ #{ids 14319}#))))))))
+ #{tmp 14205}#)
+ (let ((#{tmp 14354}#
+ ($sc-dispatch #{p 13772}# '(any . any))))
+ (if #{tmp 14354}#
(@apply
- (lambda (#{x 14370}# #{y 14371}#)
+ (lambda (#{x 14358}# #{y 14359}#)
(call-with-values
(lambda ()
- (#{cvt 13781}#
- #{y 14371}#
- #{n 13785}#
- #{ids 13786}#))
- (lambda (#{y 14372}# #{ids 14373}#)
+ (#{cvt 13769}#
+ #{y 14359}#
+ #{n 13773}#
+ #{ids 13774}#))
+ (lambda (#{y 14360}# #{ids 14361}#)
(call-with-values
(lambda ()
- (#{cvt 13781}#
- #{x 14370}#
- #{n 13785}#
- #{ids 14373}#))
- (lambda (#{x 14374}# #{ids 14375}#)
+ (#{cvt 13769}#
+ #{x 14358}#
+ #{n 13773}#
+ #{ids 14361}#))
+ (lambda (#{x 14362}# #{ids 14363}#)
(values
- (cons #{x 14374}# #{y 14372}#)
- #{ids 14375}#))))))
- #{tmp 14366}#)
- (let ((#{tmp 14376}#
- ($sc-dispatch #{p 13784}# '())))
- (if #{tmp 14376}#
+ (cons #{x 14362}# #{y 14360}#)
+ #{ids 14363}#))))))
+ #{tmp 14354}#)
+ (let ((#{tmp 14364}#
+ ($sc-dispatch #{p 13772}# '())))
+ (if #{tmp 14364}#
(@apply
- (lambda () (values '() #{ids 13786}#))
- #{tmp 14376}#)
- (let ((#{tmp 14380}#
+ (lambda () (values '() #{ids 13774}#))
+ #{tmp 14364}#)
+ (let ((#{tmp 14368}#
($sc-dispatch
- #{p 13784}#
+ #{p 13772}#
'#(vector each-any))))
- (if #{tmp 14380}#
+ (if #{tmp 14368}#
(@apply
- (lambda (#{x 14384}#)
+ (lambda (#{x 14372}#)
(call-with-values
(lambda ()
- (#{cvt 13781}#
- #{x 14384}#
- #{n 13785}#
- #{ids 13786}#))
- (lambda (#{p 14385}#
- #{ids 14386}#)
+ (#{cvt 13769}#
+ #{x 14372}#
+ #{n 13773}#
+ #{ids 13774}#))
+ (lambda (#{p 14373}#
+ #{ids 14374}#)
(values
(vector
'vector
- #{p 14385}#)
- #{ids 14386}#))))
- #{tmp 14380}#)
+ #{p 14373}#)
+ #{ids 14374}#))))
+ #{tmp 14368}#)
(values
(vector
'atom
- (#{strip 4358}#
- #{p 13784}#
+ (#{strip 4346}#
+ #{p 13772}#
'(())))
- #{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}#)))
+ #{ids 13774}#)))))))))))))))
+ (#{cvt 13769}# #{pattern 13765}# 0 '()))))
+ (#{build-dispatch-call 12143}#
+ (lambda (#{pvars 14484}#
+ #{exp 14485}#
+ #{y 14486}#
+ #{r 14487}#
+ #{mod 14488}#)
+ (let ((#{ids 14489}# (map car #{pvars 14484}#)))
(begin
- (map cdr #{pvars 14496}#)
- (let ((#{labels 14503}#
- (#{gen-labels 4316}# #{ids 14501}#))
- (#{new-vars 14504}#
- (map #{gen-var 4359}# #{ids 14501}#)))
- (#{build-application 4280}#
+ (map cdr #{pvars 14484}#)
+ (let ((#{labels 14491}#
+ (#{gen-labels 4304}# #{ids 14489}#))
+ (#{new-vars 14492}#
+ (map #{gen-var 4347}# #{ids 14489}#)))
+ (#{build-application 4268}#
#f
(if (equal? (module-name (current-module)) '(guile))
(make-struct/no-tail
'(guile)
'apply
#f))
- (list (#{build-simple-lambda 4289}#
+ (list (#{build-simple-lambda 4277}#
#f
- (map syntax->datum #{ids 14501}#)
+ (map syntax->datum #{ids 14489}#)
#f
- #{new-vars 14504}#
+ #{new-vars 14492}#
'()
- (#{expand 4345}#
- #{exp 14497}#
- (#{extend-env 4307}#
- #{labels 14503}#
- (map (lambda (#{var 14829}# #{level 14830}#)
+ (#{expand 4333}#
+ #{exp 14485}#
+ (#{extend-env 4295}#
+ #{labels 14491}#
+ (map (lambda (#{var 14817}# #{level 14818}#)
(cons 'syntax
- (cons #{var 14829}#
- #{level 14830}#)))
- #{new-vars 14504}#
- (map cdr #{pvars 14496}#))
- #{r 14499}#)
- (#{make-binding-wrap 4327}#
- #{ids 14501}#
- #{labels 14503}#
+ (cons #{var 14817}#
+ #{level 14818}#)))
+ #{new-vars 14492}#
+ (map cdr #{pvars 14484}#))
+ #{r 14487}#)
+ (#{make-binding-wrap 4315}#
+ #{ids 14489}#
+ #{labels 14491}#
'(()))
- #{mod 14500}#))
- #{y 14498}#)))))))
- (#{gen-clause 12156}#
- (lambda (#{x 13138}#
- #{keys 13139}#
- #{clauses 13140}#
- #{r 13141}#
- #{pat 13142}#
- #{fender 13143}#
- #{exp 13144}#
- #{mod 13145}#)
+ #{mod 14488}#))
+ #{y 14486}#)))))))
+ (#{gen-clause 12144}#
+ (lambda (#{x 13126}#
+ #{keys 13127}#
+ #{clauses 13128}#
+ #{r 13129}#
+ #{pat 13130}#
+ #{fender 13131}#
+ #{exp 13132}#
+ #{mod 13133}#)
(call-with-values
(lambda ()
- (#{convert-pattern 12154}#
- #{pat 13142}#
- #{keys 13139}#))
- (lambda (#{p 13300}# #{pvars 13301}#)
- (if (not (#{distinct-bound-ids? 4336}#
- (map car #{pvars 13301}#)))
+ (#{convert-pattern 12142}#
+ #{pat 13130}#
+ #{keys 13127}#))
+ (lambda (#{p 13288}# #{pvars 13289}#)
+ (if (not (#{distinct-bound-ids? 4324}#
+ (map car #{pvars 13289}#)))
(syntax-violation
'syntax-case
"duplicate pattern variable"
- #{pat 13142}#)
+ #{pat 13130}#)
(if (not (and-map
- (lambda (#{x 13421}#)
- (not (let ((#{x 13425}# (car #{x 13421}#)))
- (if (if (if (vector? #{x 13425}#)
+ (lambda (#{x 13409}#)
+ (not (let ((#{x 13413}# (car #{x 13409}#)))
+ (if (if (if (vector? #{x 13413}#)
(if (= (vector-length
- #{x 13425}#)
+ #{x 13413}#)
4)
(eq? (vector-ref
- #{x 13425}#
+ #{x 13413}#
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{x 13425}# 1))
+ (vector-ref #{x 13413}# 1))
#f)
- (if (eq? (if (if (vector? #{x 13425}#)
+ (if (eq? (if (if (vector? #{x 13413}#)
(if (= (vector-length
- #{x 13425}#)
+ #{x 13413}#)
4)
(eq? (vector-ref
- #{x 13425}#
+ #{x 13413}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{x 13425}# 1)
- #{x 13425}#)
+ (vector-ref #{x 13413}# 1)
+ #{x 13413}#)
(if (if (= (vector-length
'#(syntax-object
...
#(ribcage
#(x)
#((top))
- #("i2230"))
+ #("i2218"))
#(ribcage
(lambda-var-list
gen-var
expand-expr
expand
syntax-type
- expand-when-list
+ parse-when-list
expand-install-global
expand-top-sequence
expand-sequence
#(ribcage
#(x)
#((top))
- #("i2230"))
+ #("i2218"))
#(ribcage
(lambda-var-list
gen-var
expand-expr
expand
syntax-type
- expand-when-list
+ parse-when-list
expand-install-global
expand-top-sequence
expand-sequence
((top) (top) (top))
("i46" "i45" "i44")))
(hygiene guile))))
- (eq? (#{id-var-name 4332}#
- #{x 13425}#
+ (eq? (#{id-var-name 4320}#
+ #{x 13413}#
'(()))
- (#{id-var-name 4332}#
+ (#{id-var-name 4320}#
'#(syntax-object
...
((top)
#(ribcage
#(x)
#((top))
- #("i2230"))
+ #("i2218"))
#(ribcage
(lambda-var-list
gen-var
expand-expr
expand
syntax-type
- expand-when-list
+ parse-when-list
expand-install-global
expand-top-sequence
expand-sequence
'(())))
#f)
#f))))
- #{pvars 13301}#))
+ #{pvars 13289}#))
(syntax-violation
'syntax-case
"misplaced ellipsis"
- #{pat 13142}#)
- (let ((#{y 13501}#
+ #{pat 13130}#)
+ (let ((#{y 13489}#
(gensym
(string-append (symbol->string 'tmp) " "))))
- (#{build-application 4280}#
+ (#{build-application 4268}#
#f
- (let ((#{req 13651}# (list 'tmp))
- (#{vars 13653}# (list #{y 13501}#))
- (#{exp 13655}#
- (let ((#{y 13672}#
+ (let ((#{req 13639}# (list 'tmp))
+ (#{vars 13641}# (list #{y 13489}#))
+ (#{exp 13643}#
+ (let ((#{y 13660}#
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
#f
'tmp
- #{y 13501}#)))
- (let ((#{test-exp 13676}#
- (let ((#{tmp 13685}#
+ #{y 13489}#)))
+ (let ((#{test-exp 13664}#
+ (let ((#{tmp 13673}#
($sc-dispatch
- #{fender 13143}#
+ #{fender 13131}#
'#(atom #t))))
- (if #{tmp 13685}#
+ (if #{tmp 13673}#
(@apply
- (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}#
+ (lambda () #{y 13660}#)
+ #{tmp 13673}#)
+ (let ((#{then-exp 13691}#
+ (#{build-dispatch-call 12143}#
+ #{pvars 13289}#
+ #{fender 13131}#
+ #{y 13660}#
+ #{r 13129}#
+ #{mod 13133}#))
+ (#{else-exp 13692}#
(make-struct/no-tail
(vector-ref
%expanded-vtables
%expanded-vtables
10)
#f
- #{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}#)))
+ #{y 13660}#
+ #{then-exp 13691}#
+ #{else-exp 13692}#)))))
+ (#{then-exp 13665}#
+ (#{build-dispatch-call 12143}#
+ #{pvars 13289}#
+ #{exp 13132}#
+ #{y 13660}#
+ #{r 13129}#
+ #{mod 13133}#))
+ (#{else-exp 13666}#
+ (#{gen-syntax-case 12145}#
+ #{x 13126}#
+ #{keys 13127}#
+ #{clauses 13128}#
+ #{r 13129}#
+ #{mod 13133}#)))
(make-struct/no-tail
(vector-ref %expanded-vtables 10)
#f
- #{test-exp 13676}#
- #{then-exp 13677}#
- #{else-exp 13678}#)))))
- (let ((#{body 13660}#
+ #{test-exp 13664}#
+ #{then-exp 13665}#
+ #{else-exp 13666}#)))))
+ (let ((#{body 13648}#
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
#f
- #{req 13651}#
+ #{req 13639}#
#f
#f
#f
'()
- #{vars 13653}#
- #{exp 13655}#
+ #{vars 13641}#
+ #{exp 13643}#
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
#f
'()
- #{body 13660}#)))
- (list (if (eq? #{p 13300}# 'any)
- (let ((#{fun-exp 13726}#
+ #{body 13648}#)))
+ (list (if (eq? #{p 13288}# 'any)
+ (let ((#{fun-exp 13714}#
(if (equal?
(module-name (current-module))
'(guile))
'(guile)
'list
#f)))
- (#{arg-exps 13727}# (list #{x 13138}#)))
+ (#{arg-exps 13715}# (list #{x 13126}#)))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
#f
- #{fun-exp 13726}#
- #{arg-exps 13727}#))
- (let ((#{fun-exp 13750}#
+ #{fun-exp 13714}#
+ #{arg-exps 13715}#))
+ (let ((#{fun-exp 13738}#
(if (equal?
(module-name (current-module))
'(guile))
'(guile)
'$sc-dispatch
#f)))
- (#{arg-exps 13751}#
- (list #{x 13138}#
+ (#{arg-exps 13739}#
+ (list #{x 13126}#
(make-struct/no-tail
(vector-ref
%expanded-vtables
1)
#f
- #{p 13300}#))))
+ #{p 13288}#))))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
#f
- #{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}#
+ #{fun-exp 13738}#
+ #{arg-exps 13739}#))))))))))))
+ (#{gen-syntax-case 12145}#
+ (lambda (#{x 12554}#
+ #{keys 12555}#
+ #{clauses 12556}#
+ #{r 12557}#
+ #{mod 12558}#)
+ (if (null? #{clauses 12556}#)
+ (let ((#{fun-exp 12563}#
(if (equal? (module-name (current-module)) '(guile))
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
'(guile)
'syntax-violation
#f)))
- (#{arg-exps 12576}#
+ (#{arg-exps 12564}#
(list (make-struct/no-tail
(vector-ref %expanded-vtables 1)
#f
(vector-ref %expanded-vtables 1)
#f
"source expression failed to match any pattern")
- #{x 12566}#)))
+ #{x 12554}#)))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
#f
- #{fun-exp 12575}#
- #{arg-exps 12576}#))
- (let ((#{tmp 12609}# (car #{clauses 12568}#)))
- (let ((#{tmp 12610}#
- ($sc-dispatch #{tmp 12609}# '(any any))))
- (if #{tmp 12610}#
+ #{fun-exp 12563}#
+ #{arg-exps 12564}#))
+ (let ((#{tmp 12597}# (car #{clauses 12556}#)))
+ (let ((#{tmp 12598}#
+ ($sc-dispatch #{tmp 12597}# '(any any))))
+ (if #{tmp 12598}#
(@apply
- (lambda (#{pat 12612}# #{exp 12613}#)
- (if (if (if (symbol? #{pat 12612}#)
+ (lambda (#{pat 12600}# #{exp 12601}#)
+ (if (if (if (symbol? #{pat 12600}#)
#t
- (if (if (vector? #{pat 12612}#)
- (if (= (vector-length #{pat 12612}#)
+ (if (if (vector? #{pat 12600}#)
+ (if (= (vector-length #{pat 12600}#)
4)
- (eq? (vector-ref #{pat 12612}# 0)
+ (eq? (vector-ref #{pat 12600}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{pat 12612}# 1))
+ (symbol? (vector-ref #{pat 12600}# 1))
#f))
(and-map
- (lambda (#{x 12640}#)
+ (lambda (#{x 12628}#)
(not (if (eq? (if (if (vector?
- #{pat 12612}#)
+ #{pat 12600}#)
(if (= (vector-length
- #{pat 12612}#)
+ #{pat 12600}#)
4)
(eq? (vector-ref
- #{pat 12612}#
+ #{pat 12600}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{pat 12612}# 1)
- #{pat 12612}#)
- (if (if (vector? #{x 12640}#)
+ (vector-ref #{pat 12600}# 1)
+ #{pat 12600}#)
+ (if (if (vector? #{x 12628}#)
(if (= (vector-length
- #{x 12640}#)
+ #{x 12628}#)
4)
(eq? (vector-ref
- #{x 12640}#
+ #{x 12628}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{x 12640}# 1)
- #{x 12640}#))
- (eq? (#{id-var-name 4332}#
- #{pat 12612}#
+ (vector-ref #{x 12628}# 1)
+ #{x 12628}#))
+ (eq? (#{id-var-name 4320}#
+ #{pat 12600}#
'(()))
- (#{id-var-name 4332}#
- #{x 12640}#
+ (#{id-var-name 4320}#
+ #{x 12628}#
'(())))
#f)))
(cons '#(syntax-object
#(ribcage
#(pat exp)
#((top) (top))
- #("i3911" "i3912"))
+ #("i3899" "i3900"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
#((top) (top) (top) (top) (top))
- #("i3900"
- "i3901"
- "i3902"
- "i3903"
- "i3904"))
+ #("i3888"
+ "i3889"
+ "i3890"
+ "i3891"
+ "i3892"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3710" "i3708" "i3706" "i3704"))
+ ("i3698" "i3696" "i3694" "i3692"))
#(ribcage
(lambda-var-list
gen-var
expand-expr
expand
syntax-type
- expand-when-list
+ parse-when-list
expand-install-global
expand-top-sequence
expand-sequence
((top) (top) (top))
("i46" "i45" "i44")))
(hygiene guile))
- #{keys 12567}#))
+ #{keys 12555}#))
#f)
(if (if (eq? (if (if (= (vector-length
'#(syntax-object
#(ribcage
#(pat exp)
#((top) (top))
- #("i3911" "i3912"))
+ #("i3899" "i3900"))
#(ribcage () () ())
#(ribcage
#(x
(top)
(top)
(top))
- #("i3900"
- "i3901"
- "i3902"
- "i3903"
- "i3904"))
+ #("i3888"
+ "i3889"
+ "i3890"
+ "i3891"
+ "i3892"))
#(ribcage
(gen-syntax-case
gen-clause
(top)
(top)
(top))
- ("i3710"
- "i3708"
- "i3706"
- "i3704"))
+ ("i3698"
+ "i3696"
+ "i3694"
+ "i3692"))
#(ribcage
(lambda-var-list
gen-var
expand-expr
expand
syntax-type
- expand-when-list
+ parse-when-list
expand-install-global
expand-top-sequence
expand-sequence
#(ribcage
#(pat exp)
#((top) (top))
- #("i3911" "i3912"))
+ #("i3899" "i3900"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
(top)
(top)
(top))
- #("i3900"
- "i3901"
- "i3902"
- "i3903"
- "i3904"))
+ #("i3888"
+ "i3889"
+ "i3890"
+ "i3891"
+ "i3892"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3710"
- "i3708"
- "i3706"
- "i3704"))
+ ("i3698"
+ "i3696"
+ "i3694"
+ "i3692"))
#(ribcage
(lambda-var-list
gen-var
expand-expr
expand
syntax-type
- expand-when-list
+ parse-when-list
expand-install-global
expand-top-sequence
expand-sequence
#(ribcage
#(pat exp)
#((top) (top))
- #("i3911" "i3912"))
+ #("i3899" "i3900"))
#(ribcage () () ())
#(ribcage
#(x
(top)
(top)
(top))
- #("i3900"
- "i3901"
- "i3902"
- "i3903"
- "i3904"))
+ #("i3888"
+ "i3889"
+ "i3890"
+ "i3891"
+ "i3892"))
#(ribcage
(gen-syntax-case
gen-clause
(top)
(top)
(top))
- ("i3710"
- "i3708"
- "i3706"
- "i3704"))
+ ("i3698"
+ "i3696"
+ "i3694"
+ "i3692"))
#(ribcage
(lambda-var-list
gen-var
expand-expr
expand
syntax-type
- expand-when-list
+ parse-when-list
expand-install-global
expand-top-sequence
expand-sequence
#(ribcage
#(pat exp)
#((top) (top))
- #("i3911" "i3912"))
+ #("i3899" "i3900"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
(top)
(top)
(top))
- #("i3900"
- "i3901"
- "i3902"
- "i3903"
- "i3904"))
+ #("i3888"
+ "i3889"
+ "i3890"
+ "i3891"
+ "i3892"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3710"
- "i3708"
- "i3706"
- "i3704"))
+ ("i3698"
+ "i3696"
+ "i3694"
+ "i3692"))
#(ribcage
(lambda-var-list
gen-var
expand-expr
expand
syntax-type
- expand-when-list
+ parse-when-list
expand-install-global
expand-top-sequence
expand-sequence
((top) (top) (top))
("i46" "i45" "i44")))
(hygiene guile))))
- (eq? (#{id-var-name 4332}#
+ (eq? (#{id-var-name 4320}#
'#(syntax-object
pad
((top)
#(ribcage
#(pat exp)
#((top) (top))
- #("i3911" "i3912"))
+ #("i3899" "i3900"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
#((top) (top) (top) (top) (top))
- #("i3900"
- "i3901"
- "i3902"
- "i3903"
- "i3904"))
+ #("i3888"
+ "i3889"
+ "i3890"
+ "i3891"
+ "i3892"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3710"
- "i3708"
- "i3706"
- "i3704"))
+ ("i3698"
+ "i3696"
+ "i3694"
+ "i3692"))
#(ribcage
(lambda-var-list
gen-var
expand-expr
expand
syntax-type
- expand-when-list
+ parse-when-list
expand-install-global
expand-top-sequence
expand-sequence
("i46" "i45" "i44")))
(hygiene guile))
'(()))
- (#{id-var-name 4332}#
+ (#{id-var-name 4320}#
'#(syntax-object
_
((top)
#(ribcage
#(pat exp)
#((top) (top))
- #("i3911" "i3912"))
+ #("i3899" "i3900"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
#((top) (top) (top) (top) (top))
- #("i3900"
- "i3901"
- "i3902"
- "i3903"
- "i3904"))
+ #("i3888"
+ "i3889"
+ "i3890"
+ "i3891"
+ "i3892"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3710"
- "i3708"
- "i3706"
- "i3704"))
+ ("i3698"
+ "i3696"
+ "i3694"
+ "i3692"))
#(ribcage
(lambda-var-list
gen-var
expand-expr
expand
syntax-type
- expand-when-list
+ parse-when-list
expand-install-global
expand-top-sequence
expand-sequence
(hygiene guile))
'(())))
#f)
- (#{expand 4345}#
- #{exp 12613}#
- #{r 12569}#
+ (#{expand 4333}#
+ #{exp 12601}#
+ #{r 12557}#
'(())
- #{mod 12570}#)
- (let ((#{labels 12821}#
+ #{mod 12558}#)
+ (let ((#{labels 12809}#
(list (symbol->string (gensym "i"))))
- (#{var 12822}#
- (let ((#{id 12860}#
- (if (if (vector? #{pat 12612}#)
+ (#{var 12810}#
+ (let ((#{id 12848}#
+ (if (if (vector? #{pat 12600}#)
(if (= (vector-length
- #{pat 12612}#)
+ #{pat 12600}#)
4)
(eq? (vector-ref
- #{pat 12612}#
+ #{pat 12600}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{pat 12612}# 1)
- #{pat 12612}#)))
+ (vector-ref #{pat 12600}# 1)
+ #{pat 12600}#)))
(gensym
(string-append
- (symbol->string #{id 12860}#)
+ (symbol->string #{id 12848}#)
" ")))))
- (#{build-application 4280}#
+ (#{build-application 4268}#
#f
- (#{build-simple-lambda 4289}#
+ (#{build-simple-lambda 4277}#
#f
- (list (syntax->datum #{pat 12612}#))
+ (list (syntax->datum #{pat 12600}#))
#f
- (list #{var 12822}#)
+ (list #{var 12810}#)
'()
- (#{expand 4345}#
- #{exp 12613}#
- (#{extend-env 4307}#
- #{labels 12821}#
+ (#{expand 4333}#
+ #{exp 12601}#
+ (#{extend-env 4295}#
+ #{labels 12809}#
(list (cons 'syntax
- (cons #{var 12822}# 0)))
- #{r 12569}#)
- (#{make-binding-wrap 4327}#
- (list #{pat 12612}#)
- #{labels 12821}#
+ (cons #{var 12810}# 0)))
+ #{r 12557}#)
+ (#{make-binding-wrap 4315}#
+ (list #{pat 12600}#)
+ #{labels 12809}#
'(()))
- #{mod 12570}#))
- (list #{x 12566}#))))
- (#{gen-clause 12156}#
- #{x 12566}#
- #{keys 12567}#
- (cdr #{clauses 12568}#)
- #{r 12569}#
- #{pat 12612}#
+ #{mod 12558}#))
+ (list #{x 12554}#))))
+ (#{gen-clause 12144}#
+ #{x 12554}#
+ #{keys 12555}#
+ (cdr #{clauses 12556}#)
+ #{r 12557}#
+ #{pat 12600}#
#t
- #{exp 12613}#
- #{mod 12570}#)))
- #{tmp 12610}#)
- (let ((#{tmp 13130}#
- ($sc-dispatch #{tmp 12609}# '(any any any))))
- (if #{tmp 13130}#
+ #{exp 12601}#
+ #{mod 12558}#)))
+ #{tmp 12598}#)
+ (let ((#{tmp 13118}#
+ ($sc-dispatch #{tmp 12597}# '(any any any))))
+ (if #{tmp 13118}#
(@apply
- (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}#)
+ (lambda (#{pat 13120}#
+ #{fender 13121}#
+ #{exp 13122}#)
+ (#{gen-clause 12144}#
+ #{x 12554}#
+ #{keys 12555}#
+ (cdr #{clauses 12556}#)
+ #{r 12557}#
+ #{pat 13120}#
+ #{fender 13121}#
+ #{exp 13122}#
+ #{mod 12558}#))
+ #{tmp 13118}#)
(syntax-violation
'syntax-case
"invalid clause"
- (car #{clauses 12568}#)))))))))))
- (lambda (#{e 12158}#
- #{r 12159}#
- #{w 12160}#
- #{s 12161}#
- #{mod 12162}#)
- (let ((#{e 12163}#
- (#{wrap 4338}#
+ (car #{clauses 12556}#)))))))))))
+ (lambda (#{e 12146}#
+ #{r 12147}#
+ #{w 12148}#
+ #{s 12149}#
+ #{mod 12150}#)
+ (let ((#{e 12151}#
+ (#{wrap 4326}#
(begin
- (if (if (pair? #{e 12158}#) #{s 12161}# #f)
- (set-source-properties! #{e 12158}# #{s 12161}#))
- #{e 12158}#)
- #{w 12160}#
- #{mod 12162}#)))
- (let ((#{tmp 12165}#
+ (if (if (pair? #{e 12146}#) #{s 12149}# #f)
+ (set-source-properties! #{e 12146}# #{s 12149}#))
+ #{e 12146}#)
+ #{w 12148}#
+ #{mod 12150}#)))
+ (let ((#{tmp 12153}#
($sc-dispatch
- #{e 12163}#
+ #{e 12151}#
'(_ any each-any . each-any))))
- (if #{tmp 12165}#
+ (if #{tmp 12153}#
(@apply
- (lambda (#{val 12190}# #{key 12191}# #{m 12192}#)
+ (lambda (#{val 12178}# #{key 12179}# #{m 12180}#)
(if (and-map
- (lambda (#{x 12193}#)
- (if (if (symbol? #{x 12193}#)
+ (lambda (#{x 12181}#)
+ (if (if (symbol? #{x 12181}#)
#t
- (if (if (vector? #{x 12193}#)
- (if (= (vector-length #{x 12193}#) 4)
- (eq? (vector-ref #{x 12193}# 0)
+ (if (if (vector? #{x 12181}#)
+ (if (= (vector-length #{x 12181}#) 4)
+ (eq? (vector-ref #{x 12181}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 12193}# 1))
+ (symbol? (vector-ref #{x 12181}# 1))
#f))
- (not (if (if (if (vector? #{x 12193}#)
- (if (= (vector-length #{x 12193}#)
+ (not (if (if (if (vector? #{x 12181}#)
+ (if (= (vector-length #{x 12181}#)
4)
- (eq? (vector-ref #{x 12193}# 0)
+ (eq? (vector-ref #{x 12181}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 12193}# 1))
+ (symbol? (vector-ref #{x 12181}# 1))
#f)
- (if (eq? (if (if (vector? #{x 12193}#)
+ (if (eq? (if (if (vector? #{x 12181}#)
(if (= (vector-length
- #{x 12193}#)
+ #{x 12181}#)
4)
(eq? (vector-ref
- #{x 12193}#
+ #{x 12181}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{x 12193}# 1)
- #{x 12193}#)
+ (vector-ref #{x 12181}# 1)
+ #{x 12181}#)
(if (if (= (vector-length
'#(syntax-object
...
#(ribcage
#(x)
#((top))
- #("i2230"))
+ #("i2218"))
#(ribcage
(lambda-var-list
gen-var
expand-expr
expand
syntax-type
- expand-when-list
+ parse-when-list
expand-install-global
expand-top-sequence
expand-sequence
#(ribcage
#(x)
#((top))
- #("i2230"))
+ #("i2218"))
#(ribcage
(lambda-var-list
gen-var
expand-expr
expand
syntax-type
- expand-when-list
+ parse-when-list
expand-install-global
expand-top-sequence
expand-sequence
((top) (top) (top))
("i46" "i45" "i44")))
(hygiene guile))))
- (eq? (#{id-var-name 4332}#
- #{x 12193}#
+ (eq? (#{id-var-name 4320}#
+ #{x 12181}#
'(()))
- (#{id-var-name 4332}#
+ (#{id-var-name 4320}#
'#(syntax-object
...
((top)
#(ribcage
#(x)
#((top))
- #("i2230"))
+ #("i2218"))
#(ribcage
(lambda-var-list
gen-var
expand-expr
expand
syntax-type
- expand-when-list
+ parse-when-list
expand-install-global
expand-top-sequence
expand-sequence
#f)
#f))
#f))
- #{key 12191}#)
- (let ((#{x 12319}#
+ #{key 12179}#)
+ (let ((#{x 12307}#
(gensym
(string-append (symbol->string 'tmp) " "))))
- (#{build-application 4280}#
- #{s 12161}#
- (let ((#{req 12454}# (list 'tmp))
- (#{vars 12456}# (list #{x 12319}#))
- (#{exp 12458}#
- (#{gen-syntax-case 12157}#
+ (#{build-application 4268}#
+ #{s 12149}#
+ (let ((#{req 12442}# (list 'tmp))
+ (#{vars 12444}# (list #{x 12307}#))
+ (#{exp 12446}#
+ (#{gen-syntax-case 12145}#
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
#f
'tmp
- #{x 12319}#)
- #{key 12191}#
- #{m 12192}#
- #{r 12159}#
- #{mod 12162}#)))
- (let ((#{body 12463}#
+ #{x 12307}#)
+ #{key 12179}#
+ #{m 12180}#
+ #{r 12147}#
+ #{mod 12150}#)))
+ (let ((#{body 12451}#
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
#f
- #{req 12454}#
+ #{req 12442}#
#f
#f
#f
'()
- #{vars 12456}#
- #{exp 12458}#
+ #{vars 12444}#
+ #{exp 12446}#
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
#f
'()
- #{body 12463}#)))
- (list (#{expand 4345}#
- #{val 12190}#
- #{r 12159}#
+ #{body 12451}#)))
+ (list (#{expand 4333}#
+ #{val 12178}#
+ #{r 12147}#
'(())
- #{mod 12162}#))))
+ #{mod 12150}#))))
(syntax-violation
'syntax-case
"invalid literals list"
- #{e 12163}#)))
- #{tmp 12165}#)
+ #{e 12151}#)))
+ #{tmp 12153}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 12163}#)))))))
+ #{e 12151}#)))))))
(set! macroexpand
(lambda*
- (#{x 14921}#
+ (#{x 14909}#
#:optional
- (#{m 14922}# 'e)
- (#{esew 14923}# '(eval)))
- (#{expand-top-sequence 4341}#
- (list #{x 14921}#)
+ (#{m 14910}# 'e)
+ (#{esew 14911}# '(eval)))
+ (#{expand-top-sequence 4329}#
+ (list #{x 14909}#)
'()
'((top))
#f
- #{m 14922}#
- #{esew 14923}#
+ #{m 14910}#
+ #{esew 14911}#
(cons 'hygiene (module-name (current-module))))))
(set! identifier?
- (lambda (#{x 14926}#)
- (if (if (vector? #{x 14926}#)
- (if (= (vector-length #{x 14926}#) 4)
- (eq? (vector-ref #{x 14926}# 0) 'syntax-object)
+ (lambda (#{x 14914}#)
+ (if (if (vector? #{x 14914}#)
+ (if (= (vector-length #{x 14914}#) 4)
+ (eq? (vector-ref #{x 14914}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 14926}# 1))
+ (symbol? (vector-ref #{x 14914}# 1))
#f)))
(set! datum->syntax
- (lambda (#{id 14951}# #{datum 14952}#)
- (let ((#{wrap 14957}# (vector-ref #{id 14951}# 2))
- (#{module 14958}# (vector-ref #{id 14951}# 3)))
+ (lambda (#{id 14939}# #{datum 14940}#)
+ (let ((#{wrap 14945}# (vector-ref #{id 14939}# 2))
+ (#{module 14946}# (vector-ref #{id 14939}# 3)))
(vector
'syntax-object
- #{datum 14952}#
- #{wrap 14957}#
- #{module 14958}#))))
+ #{datum 14940}#
+ #{wrap 14945}#
+ #{module 14946}#))))
(set! syntax->datum
- (lambda (#{x 14965}#)
- (#{strip 4358}# #{x 14965}# '(()))))
+ (lambda (#{x 14953}#)
+ (#{strip 4346}# #{x 14953}# '(()))))
(set! syntax-source
- (lambda (#{x 14968}#)
- (#{source-annotation 4306}# #{x 14968}#)))
+ (lambda (#{x 14956}#)
+ (#{source-annotation 4294}# #{x 14956}#)))
(set! generate-temporaries
- (lambda (#{ls 15140}#)
+ (lambda (#{ls 15128}#)
(begin
- (if (not (list? #{ls 15140}#))
+ (if (not (list? #{ls 15128}#))
(syntax-violation
'generate-temporaries
"invalid argument"
- #{ls 15140}#))
- (let ((#{mod 15148}#
+ #{ls 15128}#))
+ (let ((#{mod 15136}#
(cons 'hygiene (module-name (current-module)))))
- (map (lambda (#{x 15149}#)
- (#{wrap 4338}# (gensym) '((top)) #{mod 15148}#))
- #{ls 15140}#)))))
+ (map (lambda (#{x 15137}#)
+ (#{wrap 4326}# (gensym) '((top)) #{mod 15136}#))
+ #{ls 15128}#)))))
(set! free-identifier=?
- (lambda (#{x 15153}# #{y 15154}#)
+ (lambda (#{x 15141}# #{y 15142}#)
(begin
- (if (not (if (if (vector? #{x 15153}#)
- (if (= (vector-length #{x 15153}#) 4)
- (eq? (vector-ref #{x 15153}# 0) 'syntax-object)
+ (if (not (if (if (vector? #{x 15141}#)
+ (if (= (vector-length #{x 15141}#) 4)
+ (eq? (vector-ref #{x 15141}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 15153}# 1))
+ (symbol? (vector-ref #{x 15141}# 1))
#f))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{x 15153}#))
- (if (not (if (if (vector? #{y 15154}#)
- (if (= (vector-length #{y 15154}#) 4)
- (eq? (vector-ref #{y 15154}# 0) 'syntax-object)
+ #{x 15141}#))
+ (if (not (if (if (vector? #{y 15142}#)
+ (if (= (vector-length #{y 15142}#) 4)
+ (eq? (vector-ref #{y 15142}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{y 15154}# 1))
+ (symbol? (vector-ref #{y 15142}# 1))
#f))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{y 15154}#))
- (if (eq? (if (if (vector? #{x 15153}#)
- (if (= (vector-length #{x 15153}#) 4)
- (eq? (vector-ref #{x 15153}# 0) 'syntax-object)
+ #{y 15142}#))
+ (if (eq? (if (if (vector? #{x 15141}#)
+ (if (= (vector-length #{x 15141}#) 4)
+ (eq? (vector-ref #{x 15141}# 0) 'syntax-object)
#f)
#f)
- (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)
+ (vector-ref #{x 15141}# 1)
+ #{x 15141}#)
+ (if (if (vector? #{y 15142}#)
+ (if (= (vector-length #{y 15142}#) 4)
+ (eq? (vector-ref #{y 15142}# 0) 'syntax-object)
#f)
#f)
- (vector-ref #{y 15154}# 1)
- #{y 15154}#))
- (eq? (#{id-var-name 4332}# #{x 15153}# '(()))
- (#{id-var-name 4332}# #{y 15154}# '(())))
+ (vector-ref #{y 15142}# 1)
+ #{y 15142}#))
+ (eq? (#{id-var-name 4320}# #{x 15141}# '(()))
+ (#{id-var-name 4320}# #{y 15142}# '(())))
#f))))
(set! bound-identifier=?
- (lambda (#{x 15304}# #{y 15305}#)
+ (lambda (#{x 15292}# #{y 15293}#)
(begin
- (if (not (if (if (vector? #{x 15304}#)
- (if (= (vector-length #{x 15304}#) 4)
- (eq? (vector-ref #{x 15304}# 0) 'syntax-object)
+ (if (not (if (if (vector? #{x 15292}#)
+ (if (= (vector-length #{x 15292}#) 4)
+ (eq? (vector-ref #{x 15292}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 15304}# 1))
+ (symbol? (vector-ref #{x 15292}# 1))
#f))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{x 15304}#))
- (if (not (if (if (vector? #{y 15305}#)
- (if (= (vector-length #{y 15305}#) 4)
- (eq? (vector-ref #{y 15305}# 0) 'syntax-object)
+ #{x 15292}#))
+ (if (not (if (if (vector? #{y 15293}#)
+ (if (= (vector-length #{y 15293}#) 4)
+ (eq? (vector-ref #{y 15293}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{y 15305}# 1))
+ (symbol? (vector-ref #{y 15293}# 1))
#f))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{y 15305}#))
- (if (if (if (vector? #{x 15304}#)
- (if (= (vector-length #{x 15304}#) 4)
- (eq? (vector-ref #{x 15304}# 0) 'syntax-object)
+ #{y 15293}#))
+ (if (if (if (vector? #{x 15292}#)
+ (if (= (vector-length #{x 15292}#) 4)
+ (eq? (vector-ref #{x 15292}# 0) 'syntax-object)
#f)
#f)
- (if (vector? #{y 15305}#)
- (if (= (vector-length #{y 15305}#) 4)
- (eq? (vector-ref #{y 15305}# 0) 'syntax-object)
+ (if (vector? #{y 15293}#)
+ (if (= (vector-length #{y 15293}#) 4)
+ (eq? (vector-ref #{y 15293}# 0) 'syntax-object)
#f)
#f)
#f)
- (if (eq? (vector-ref #{x 15304}# 1)
- (vector-ref #{y 15305}# 1))
- (#{same-marks? 4331}#
- (car (vector-ref #{x 15304}# 2))
- (car (vector-ref #{y 15305}# 2)))
+ (if (eq? (vector-ref #{x 15292}# 1)
+ (vector-ref #{y 15293}# 1))
+ (#{same-marks? 4319}#
+ (car (vector-ref #{x 15292}# 2))
+ (car (vector-ref #{y 15293}# 2)))
#f)
- (eq? #{x 15304}# #{y 15305}#)))))
+ (eq? #{x 15292}# #{y 15293}#)))))
(set! syntax-violation
(lambda*
- (#{who 15438}#
- #{message 15439}#
- #{form 15440}#
+ (#{who 15426}#
+ #{message 15427}#
+ #{form 15428}#
#:optional
- (#{subform 15441}# #f))
+ (#{subform 15429}# #f))
(begin
- (if (not (if (not #{who 15438}#)
- (not #{who 15438}#)
- (let ((#{t 15459}# (string? #{who 15438}#)))
- (if #{t 15459}#
- #{t 15459}#
- (symbol? #{who 15438}#)))))
+ (if (not (if (not #{who 15426}#)
+ (not #{who 15426}#)
+ (let ((#{t 15447}# (string? #{who 15426}#)))
+ (if #{t 15447}#
+ #{t 15447}#
+ (symbol? #{who 15426}#)))))
(syntax-violation
'syntax-violation
"invalid argument"
- #{who 15438}#))
- (if (not (string? #{message 15439}#))
+ #{who 15426}#))
+ (if (not (string? #{message 15427}#))
(syntax-violation
'syntax-violation
"invalid argument"
- #{message 15439}#))
+ #{message 15427}#))
(throw 'syntax-error
- #{who 15438}#
- #{message 15439}#
- (#{source-annotation 4306}#
- (if #{form 15440}#
- #{form 15440}#
- #{subform 15441}#))
- (#{strip 4358}# #{form 15440}# '(()))
- (if #{subform 15441}#
- (#{strip 4358}# #{subform 15441}# '(()))
+ #{who 15426}#
+ #{message 15427}#
+ (#{source-annotation 4294}#
+ (if #{form 15428}#
+ #{form 15428}#
+ #{subform 15429}#))
+ (#{strip 4346}# #{form 15428}# '(()))
+ (if #{subform 15429}#
+ (#{strip 4346}# #{subform 15429}# '(()))
#f)))))
(letrec*
- ((#{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}#
+ ((#{match-each 15670}#
+ (lambda (#{e 16293}#
+ #{p 16294}#
+ #{w 16295}#
+ #{mod 16296}#)
+ (if (pair? #{e 16293}#)
+ (let ((#{first 16297}#
+ (#{match 15676}#
+ (car #{e 16293}#)
+ #{p 16294}#
+ #{w 16295}#
'()
- #{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}#)
+ #{mod 16296}#)))
+ (if #{first 16297}#
+ (let ((#{rest 16300}#
+ (#{match-each 15670}#
+ (cdr #{e 16293}#)
+ #{p 16294}#
+ #{w 16295}#
+ #{mod 16296}#)))
+ (if #{rest 16300}#
+ (cons #{first 16297}# #{rest 16300}#)
#f))
#f))
- (if (null? #{e 16305}#)
+ (if (null? #{e 16293}#)
'()
- (if (if (vector? #{e 16305}#)
- (if (= (vector-length #{e 16305}#) 4)
- (eq? (vector-ref #{e 16305}# 0) 'syntax-object)
+ (if (if (vector? #{e 16293}#)
+ (if (= (vector-length #{e 16293}#) 4)
+ (eq? (vector-ref #{e 16293}# 0) 'syntax-object)
#f)
#f)
- (#{match-each 15682}#
- (vector-ref #{e 16305}# 1)
- #{p 16306}#
- (#{join-wraps 4329}#
- #{w 16307}#
- (vector-ref #{e 16305}# 2))
- (vector-ref #{e 16305}# 3))
+ (#{match-each 15670}#
+ (vector-ref #{e 16293}# 1)
+ #{p 16294}#
+ (#{join-wraps 4317}#
+ #{w 16295}#
+ (vector-ref #{e 16293}# 2))
+ (vector-ref #{e 16293}# 3))
#f)))))
- (#{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 16340}#)
- #{w 16341}#
- #{mod 16342}#)
- #{l 16343}#)
+ (#{match-each-any 15672}#
+ (lambda (#{e 16328}# #{w 16329}# #{mod 16330}#)
+ (if (pair? #{e 16328}#)
+ (let ((#{l 16331}#
+ (#{match-each-any 15672}#
+ (cdr #{e 16328}#)
+ #{w 16329}#
+ #{mod 16330}#)))
+ (if #{l 16331}#
+ (cons (#{wrap 4326}#
+ (car #{e 16328}#)
+ #{w 16329}#
+ #{mod 16330}#)
+ #{l 16331}#)
#f))
- (if (null? #{e 16340}#)
+ (if (null? #{e 16328}#)
'()
- (if (if (vector? #{e 16340}#)
- (if (= (vector-length #{e 16340}#) 4)
- (eq? (vector-ref #{e 16340}# 0) 'syntax-object)
+ (if (if (vector? #{e 16328}#)
+ (if (= (vector-length #{e 16328}#) 4)
+ (eq? (vector-ref #{e 16328}# 0) 'syntax-object)
#f)
#f)
- (#{match-each-any 15684}#
- (vector-ref #{e 16340}# 1)
- (#{join-wraps 4329}#
- #{w 16341}#
- (vector-ref #{e 16340}# 2))
- #{mod 16342}#)
+ (#{match-each-any 15672}#
+ (vector-ref #{e 16328}# 1)
+ (#{join-wraps 4317}#
+ #{w 16329}#
+ (vector-ref #{e 16328}# 2))
+ #{mod 16330}#)
#f)))))
- (#{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)
+ (#{match-empty 15673}#
+ (lambda (#{p 16355}# #{r 16356}#)
+ (if (null? #{p 16355}#)
+ #{r 16356}#
+ (if (eq? #{p 16355}# '_)
+ #{r 16356}#
+ (if (eq? #{p 16355}# 'any)
+ (cons '() #{r 16356}#)
+ (if (pair? #{p 16355}#)
+ (#{match-empty 15673}#
+ (car #{p 16355}#)
+ (#{match-empty 15673}#
+ (cdr #{p 16355}#)
+ #{r 16356}#))
+ (if (eq? #{p 16355}# 'each-any)
+ (cons '() #{r 16356}#)
+ (let ((#{atom-key 16357}# (vector-ref #{p 16355}# 0)))
+ (if (eqv? #{atom-key 16357}# 'each)
+ (#{match-empty 15673}#
+ (vector-ref #{p 16355}# 1)
+ #{r 16356}#)
+ (if (eqv? #{atom-key 16357}# 'each+)
+ (#{match-empty 15673}#
+ (vector-ref #{p 16355}# 1)
+ (#{match-empty 15673}#
+ (reverse (vector-ref #{p 16355}# 2))
+ (#{match-empty 15673}#
+ (vector-ref #{p 16355}# 3)
+ #{r 16356}#)))
+ (if (if (eqv? #{atom-key 16357}# 'free-id)
#t
- (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}#)
+ (eqv? #{atom-key 16357}# 'atom))
+ #{r 16356}#
+ (if (eqv? #{atom-key 16357}# 'vector)
+ (#{match-empty 15673}#
+ (vector-ref #{p 16355}# 1)
+ #{r 16356}#)))))))))))))
+ (#{combine 15674}#
+ (lambda (#{r* 16376}# #{r 16377}#)
+ (if (null? (car #{r* 16376}#))
+ #{r 16377}#
+ (cons (map car #{r* 16376}#)
+ (#{combine 15674}#
+ (map cdr #{r* 16376}#)
+ #{r 16377}#)))))
+ (#{match* 15675}#
+ (lambda (#{e 15705}#
+ #{p 15706}#
+ #{w 15707}#
+ #{r 15708}#
+ #{mod 15709}#)
+ (if (null? #{p 15706}#)
+ (if (null? #{e 15705}#) #{r 15708}# #f)
+ (if (pair? #{p 15706}#)
+ (if (pair? #{e 15705}#)
+ (#{match 15676}#
+ (car #{e 15705}#)
+ (car #{p 15706}#)
+ #{w 15707}#
+ (#{match 15676}#
+ (cdr #{e 15705}#)
+ (cdr #{p 15706}#)
+ #{w 15707}#
+ #{r 15708}#
+ #{mod 15709}#)
+ #{mod 15709}#)
#f)
- (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}#)
+ (if (eq? #{p 15706}# 'each-any)
+ (let ((#{l 15714}#
+ (#{match-each-any 15672}#
+ #{e 15705}#
+ #{w 15707}#
+ #{mod 15709}#)))
+ (if #{l 15714}#
+ (cons #{l 15714}# #{r 15708}#)
#f))
- (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}#
+ (let ((#{atom-key 15719}# (vector-ref #{p 15706}# 0)))
+ (if (eqv? #{atom-key 15719}# 'each)
+ (if (null? #{e 15705}#)
+ (#{match-empty 15673}#
+ (vector-ref #{p 15706}# 1)
+ #{r 15708}#)
+ (let ((#{l 15726}#
+ (#{match-each 15670}#
+ #{e 15705}#
+ (vector-ref #{p 15706}# 1)
+ #{w 15707}#
+ #{mod 15709}#)))
+ (if #{l 15726}#
(letrec*
- ((#{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}#))
+ ((#{collect 15729}#
+ (lambda (#{l 15782}#)
+ (if (null? (car #{l 15782}#))
+ #{r 15708}#
+ (cons (map car #{l 15782}#)
+ (#{collect 15729}#
+ (map cdr #{l 15782}#)))))))
+ (#{collect 15729}# #{l 15726}#))
#f)))
- (if (eqv? #{atom-key 15731}# 'each+)
+ (if (eqv? #{atom-key 15719}# 'each+)
(call-with-values
(lambda ()
- (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)))
+ (let ((#{x-pat 15791}# (vector-ref #{p 15706}# 1))
+ (#{y-pat 15792}# (vector-ref #{p 15706}# 2))
+ (#{z-pat 15793}# (vector-ref #{p 15706}# 3)))
(letrec*
- ((#{f 15809}#
- (lambda (#{e 15811}# #{w 15812}#)
- (if (pair? #{e 15811}#)
+ ((#{f 15797}#
+ (lambda (#{e 15799}# #{w 15800}#)
+ (if (pair? #{e 15799}#)
(call-with-values
(lambda ()
- (#{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}#
+ (#{f 15797}#
+ (cdr #{e 15799}#)
+ #{w 15800}#))
+ (lambda (#{xr* 15801}#
+ #{y-pat 15802}#
+ #{r 15803}#)
+ (if #{r 15803}#
+ (if (null? #{y-pat 15802}#)
+ (let ((#{xr 15804}#
+ (#{match 15676}#
+ (car #{e 15799}#)
+ #{x-pat 15791}#
+ #{w 15800}#
'()
- #{mod 15721}#)))
- (if #{xr 15816}#
+ #{mod 15709}#)))
+ (if #{xr 15804}#
(values
- (cons #{xr 15816}#
- #{xr* 15813}#)
- #{y-pat 15814}#
- #{r 15815}#)
+ (cons #{xr 15804}#
+ #{xr* 15801}#)
+ #{y-pat 15802}#
+ #{r 15803}#)
(values #f #f #f)))
(values
'()
- (cdr #{y-pat 15814}#)
- (#{match 15688}#
- (car #{e 15811}#)
- (car #{y-pat 15814}#)
- #{w 15812}#
- #{r 15815}#
- #{mod 15721}#)))
+ (cdr #{y-pat 15802}#)
+ (#{match 15676}#
+ (car #{e 15799}#)
+ (car #{y-pat 15802}#)
+ #{w 15800}#
+ #{r 15803}#
+ #{mod 15709}#)))
(values #f #f #f))))
- (if (if (vector? #{e 15811}#)
- (if (= (vector-length #{e 15811}#)
+ (if (if (vector? #{e 15799}#)
+ (if (= (vector-length #{e 15799}#)
4)
- (eq? (vector-ref #{e 15811}# 0)
+ (eq? (vector-ref #{e 15799}# 0)
'syntax-object)
#f)
#f)
- (#{f 15809}#
- (vector-ref #{e 15811}# 1)
- (#{join-wraps 4329}#
- #{w 15812}#
- #{e 15811}#))
+ (#{f 15797}#
+ (vector-ref #{e 15799}# 1)
+ (#{join-wraps 4317}#
+ #{w 15800}#
+ #{e 15799}#))
(values
'()
- #{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}#))
+ #{y-pat 15792}#
+ (#{match 15676}#
+ #{e 15799}#
+ #{z-pat 15793}#
+ #{w 15800}#
+ #{r 15708}#
+ #{mod 15709}#)))))))
+ (#{f 15797}# #{e 15705}# #{w 15707}#))))
+ (lambda (#{xr* 15832}# #{y-pat 15833}# #{r 15834}#)
+ (if #{r 15834}#
+ (if (null? #{y-pat 15833}#)
+ (if (null? #{xr* 15832}#)
+ (#{match-empty 15673}#
+ (vector-ref #{p 15706}# 1)
+ #{r 15834}#)
+ (#{combine 15674}# #{xr* 15832}# #{r 15834}#))
#f)
#f)))
- (if (eqv? #{atom-key 15731}# 'free-id)
- (if (if (symbol? #{e 15717}#)
+ (if (eqv? #{atom-key 15719}# 'free-id)
+ (if (if (symbol? #{e 15705}#)
#t
- (if (if (vector? #{e 15717}#)
- (if (= (vector-length #{e 15717}#) 4)
- (eq? (vector-ref #{e 15717}# 0)
+ (if (if (vector? #{e 15705}#)
+ (if (= (vector-length #{e 15705}#) 4)
+ (eq? (vector-ref #{e 15705}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{e 15717}# 1))
+ (symbol? (vector-ref #{e 15705}# 1))
#f))
- (if (let ((#{i 16209}#
- (#{wrap 4338}#
- #{e 15717}#
- #{w 15719}#
- #{mod 15721}#))
- (#{j 16210}# (vector-ref #{p 15718}# 1)))
- (if (eq? (if (if (vector? #{i 16209}#)
+ (if (let ((#{i 16197}#
+ (#{wrap 4326}#
+ #{e 15705}#
+ #{w 15707}#
+ #{mod 15709}#))
+ (#{j 16198}# (vector-ref #{p 15706}# 1)))
+ (if (eq? (if (if (vector? #{i 16197}#)
(if (= (vector-length
- #{i 16209}#)
+ #{i 16197}#)
4)
(eq? (vector-ref
- #{i 16209}#
+ #{i 16197}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{i 16209}# 1)
- #{i 16209}#)
- (if (if (vector? #{j 16210}#)
+ (vector-ref #{i 16197}# 1)
+ #{i 16197}#)
+ (if (if (vector? #{j 16198}#)
(if (= (vector-length
- #{j 16210}#)
+ #{j 16198}#)
4)
(eq? (vector-ref
- #{j 16210}#
+ #{j 16198}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{j 16210}# 1)
- #{j 16210}#))
- (eq? (#{id-var-name 4332}#
- #{i 16209}#
+ (vector-ref #{j 16198}# 1)
+ #{j 16198}#))
+ (eq? (#{id-var-name 4320}#
+ #{i 16197}#
'(()))
- (#{id-var-name 4332}#
- #{j 16210}#
+ (#{id-var-name 4320}#
+ #{j 16198}#
'(())))
#f))
- #{r 15720}#
+ #{r 15708}#
#f)
#f)
- (if (eqv? #{atom-key 15731}# 'atom)
+ (if (eqv? #{atom-key 15719}# 'atom)
(if (equal?
- (vector-ref #{p 15718}# 1)
- (#{strip 4358}# #{e 15717}# #{w 15719}#))
- #{r 15720}#
+ (vector-ref #{p 15706}# 1)
+ (#{strip 4346}# #{e 15705}# #{w 15707}#))
+ #{r 15708}#
#f)
- (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}#)
+ (if (eqv? #{atom-key 15719}# 'vector)
+ (if (vector? #{e 15705}#)
+ (#{match 15676}#
+ (vector->list #{e 15705}#)
+ (vector-ref #{p 15706}# 1)
+ #{w 15707}#
+ #{r 15708}#
+ #{mod 15709}#)
#f))))))))))))
- (#{match 15688}#
- (lambda (#{e 16270}#
- #{p 16271}#
- #{w 16272}#
- #{r 16273}#
- #{mod 16274}#)
- (if (not #{r 16273}#)
+ (#{match 15676}#
+ (lambda (#{e 16258}#
+ #{p 16259}#
+ #{w 16260}#
+ #{r 16261}#
+ #{mod 16262}#)
+ (if (not #{r 16261}#)
#f
- (if (eq? #{p 16271}# '_)
- #{r 16273}#
- (if (eq? #{p 16271}# 'any)
- (cons (#{wrap 4338}#
- #{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)
+ (if (eq? #{p 16259}# '_)
+ #{r 16261}#
+ (if (eq? #{p 16259}# 'any)
+ (cons (#{wrap 4326}#
+ #{e 16258}#
+ #{w 16260}#
+ #{mod 16262}#)
+ #{r 16261}#)
+ (if (if (vector? #{e 16258}#)
+ (if (= (vector-length #{e 16258}#) 4)
+ (eq? (vector-ref #{e 16258}# 0) 'syntax-object)
#f)
#f)
- (#{match* 15687}#
- (vector-ref #{e 16270}# 1)
- #{p 16271}#
- (#{join-wraps 4329}#
- #{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}#))))))))
+ (#{match* 15675}#
+ (vector-ref #{e 16258}# 1)
+ #{p 16259}#
+ (#{join-wraps 4317}#
+ #{w 16260}#
+ (vector-ref #{e 16258}# 2))
+ #{r 16261}#
+ (vector-ref #{e 16258}# 3))
+ (#{match* 15675}#
+ #{e 16258}#
+ #{p 16259}#
+ #{w 16260}#
+ #{r 16261}#
+ #{mod 16262}#))))))))
(set! $sc-dispatch
- (lambda (#{e 15689}# #{p 15690}#)
- (if (eq? #{p 15690}# 'any)
- (list #{e 15689}#)
- (if (eq? #{p 15690}# '_)
+ (lambda (#{e 15677}# #{p 15678}#)
+ (if (eq? #{p 15678}# 'any)
+ (list #{e 15677}#)
+ (if (eq? #{p 15678}# '_)
'()
- (if (if (vector? #{e 15689}#)
- (if (= (vector-length #{e 15689}#) 4)
- (eq? (vector-ref #{e 15689}# 0) 'syntax-object)
+ (if (if (vector? #{e 15677}#)
+ (if (= (vector-length #{e 15677}#) 4)
+ (eq? (vector-ref #{e 15677}# 0) 'syntax-object)
#f)
#f)
- (#{match* 15687}#
- (vector-ref #{e 15689}# 1)
- #{p 15690}#
- (vector-ref #{e 15689}# 2)
+ (#{match* 15675}#
+ (vector-ref #{e 15677}# 1)
+ #{p 15678}#
+ (vector-ref #{e 15677}# 2)
'()
- (vector-ref #{e 15689}# 3))
- (#{match* 15687}#
- #{e 15689}#
- #{p 15690}#
+ (vector-ref #{e 15677}# 3))
+ (#{match* 15675}#
+ #{e 15677}#
+ #{p 15678}#
'(())
'()
#f)))))))))
(make-syntax-transformer
'with-syntax
'macro
- (lambda (#{x 28533}#)
- (let ((#{tmp 28535}#
- ($sc-dispatch #{x 28533}# '(_ () any . each-any))))
- (if #{tmp 28535}#
+ (lambda (#{x 28920}#)
+ (let ((#{tmp 28922}#
+ ($sc-dispatch #{x 28920}# '(_ () any . each-any))))
+ (if #{tmp 28922}#
(@apply
- (lambda (#{e1 28539}# #{e2 28540}#)
+ (lambda (#{e1 28926}# #{e2 28927}#)
(cons '#(syntax-object
let
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i28506" "i28507"))
+ #("i28893" "i28894"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28503")))
+ #(ribcage #(x) #((top)) #("i28890")))
(hygiene guile))
- (cons '() (cons #{e1 28539}# #{e2 28540}#))))
- #{tmp 28535}#)
- (let ((#{tmp 28541}#
+ (cons '() (cons #{e1 28926}# #{e2 28927}#))))
+ #{tmp 28922}#)
+ (let ((#{tmp 28928}#
($sc-dispatch
- #{x 28533}#
+ #{x 28920}#
'(_ ((any any)) any . each-any))))
- (if #{tmp 28541}#
+ (if #{tmp 28928}#
(@apply
- (lambda (#{out 28545}#
- #{in 28546}#
- #{e1 28547}#
- #{e2 28548}#)
+ (lambda (#{out 28932}#
+ #{in 28933}#
+ #{e1 28934}#
+ #{e2 28935}#)
(list '#(syntax-object
syntax-case
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i28512" "i28513" "i28514" "i28515"))
+ #("i28899" "i28900" "i28901" "i28902"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28503")))
+ #(ribcage #(x) #((top)) #("i28890")))
(hygiene guile))
- #{in 28546}#
+ #{in 28933}#
'()
- (list #{out 28545}#
+ (list #{out 28932}#
(cons '#(syntax-object
let
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i28512"
- "i28513"
- "i28514"
- "i28515"))
+ #("i28899"
+ "i28900"
+ "i28901"
+ "i28902"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28503")))
+ #(ribcage #(x) #((top)) #("i28890")))
(hygiene guile))
(cons '()
- (cons #{e1 28547}# #{e2 28548}#))))))
- #{tmp 28541}#)
- (let ((#{tmp 28549}#
+ (cons #{e1 28934}# #{e2 28935}#))))))
+ #{tmp 28928}#)
+ (let ((#{tmp 28936}#
($sc-dispatch
- #{x 28533}#
+ #{x 28920}#
'(_ #(each (any any)) any . each-any))))
- (if #{tmp 28549}#
+ (if #{tmp 28936}#
(@apply
- (lambda (#{out 28553}#
- #{in 28554}#
- #{e1 28555}#
- #{e2 28556}#)
+ (lambda (#{out 28940}#
+ #{in 28941}#
+ #{e1 28942}#
+ #{e2 28943}#)
(list '#(syntax-object
syntax-case
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i28522" "i28523" "i28524" "i28525"))
+ #("i28909" "i28910" "i28911" "i28912"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28503")))
+ #(ribcage #(x) #((top)) #("i28890")))
(hygiene guile))
(cons '#(syntax-object
list
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i28522" "i28523" "i28524" "i28525"))
+ #("i28909" "i28910" "i28911" "i28912"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28503")))
+ #(ribcage #(x) #((top)) #("i28890")))
(hygiene guile))
- #{in 28554}#)
+ #{in 28941}#)
'()
- (list #{out 28553}#
+ (list #{out 28940}#
(cons '#(syntax-object
let
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i28522"
- "i28523"
- "i28524"
- "i28525"))
+ #("i28909"
+ "i28910"
+ "i28911"
+ "i28912"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i28503")))
+ #("i28890")))
(hygiene guile))
(cons '()
- (cons #{e1 28555}#
- #{e2 28556}#))))))
- #{tmp 28549}#)
+ (cons #{e1 28942}#
+ #{e2 28943}#))))))
+ #{tmp 28936}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 28533}#))))))))))
+ #{x 28920}#))))))))))
(define syntax-rules
(make-syntax-transformer
'syntax-rules
'macro
- (lambda (#{x 28610}#)
- (let ((#{tmp 28612}#
+ (lambda (#{x 28997}#)
+ (let ((#{tmp 28999}#
($sc-dispatch
- #{x 28610}#
+ #{x 28997}#
'(_ each-any . #(each ((any . any) any))))))
- (if #{tmp 28612}#
+ (if #{tmp 28999}#
(@apply
- (lambda (#{k 28616}#
- #{keyword 28617}#
- #{pattern 28618}#
- #{template 28619}#)
+ (lambda (#{k 29003}#
+ #{keyword 29004}#
+ #{pattern 29005}#
+ #{template 29006}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i28573" "i28574" "i28575" "i28576"))
+ #("i28960" "i28961" "i28962" "i28963"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28570")))
+ #(ribcage #(x) #((top)) #("i28957")))
(hygiene guile))
'(#(syntax-object
x
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i28573" "i28574" "i28575" "i28576"))
+ #("i28960" "i28961" "i28962" "i28963"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28570")))
+ #(ribcage #(x) #((top)) #("i28957")))
(hygiene guile)))
(vector
'(#(syntax-object
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i28573" "i28574" "i28575" "i28576"))
+ #("i28960" "i28961" "i28962" "i28963"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28570")))
+ #(ribcage #(x) #((top)) #("i28957")))
(hygiene guile))
.
#(syntax-object
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i28573" "i28574" "i28575" "i28576"))
+ #("i28960" "i28961" "i28962" "i28963"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28570")))
+ #(ribcage #(x) #((top)) #("i28957")))
(hygiene guile)))
(cons '#(syntax-object
patterns
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i28573" "i28574" "i28575" "i28576"))
+ #("i28960" "i28961" "i28962" "i28963"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28570")))
+ #(ribcage #(x) #((top)) #("i28957")))
(hygiene guile))
- #{pattern 28618}#))
+ #{pattern 29005}#))
(cons '#(syntax-object
syntax-case
((top)
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i28573" "i28574" "i28575" "i28576"))
+ #("i28960" "i28961" "i28962" "i28963"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28570")))
+ #(ribcage #(x) #((top)) #("i28957")))
(hygiene guile))
(cons '#(syntax-object
x
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i28573" "i28574" "i28575" "i28576"))
+ #("i28960" "i28961" "i28962" "i28963"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28570")))
+ #(ribcage #(x) #((top)) #("i28957")))
(hygiene guile))
- (cons #{k 28616}#
- (map (lambda (#{tmp 28584 28620}#
- #{tmp 28583 28621}#)
+ (cons #{k 29003}#
+ (map (lambda (#{tmp 28971 29007}#
+ #{tmp 28970 29008}#)
(list (cons '#(syntax-object
dummy
((top)
(top)
(top)
(top))
- #("i28573"
- "i28574"
- "i28575"
- "i28576"))
+ #("i28960"
+ "i28961"
+ "i28962"
+ "i28963"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i28570")))
+ #("i28957")))
(hygiene guile))
- #{tmp 28583 28621}#)
+ #{tmp 28970 29008}#)
(list '#(syntax-object
syntax
((top)
(top)
(top)
(top))
- #("i28573"
- "i28574"
- "i28575"
- "i28576"))
+ #("i28960"
+ "i28961"
+ "i28962"
+ "i28963"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i28570")))
+ #("i28957")))
(hygiene guile))
- #{tmp 28584 28620}#)))
- #{template 28619}#
- #{pattern 28618}#))))))
- #{tmp 28612}#)
- (let ((#{tmp 28622}#
+ #{tmp 28971 29007}#)))
+ #{template 29006}#
+ #{pattern 29005}#))))))
+ #{tmp 28999}#)
+ (let ((#{tmp 29009}#
($sc-dispatch
- #{x 28610}#
+ #{x 28997}#
'(_ each-any any . #(each ((any . any) any))))))
- (if (if #{tmp 28622}#
+ (if (if #{tmp 29009}#
(@apply
- (lambda (#{k 28626}#
- #{docstring 28627}#
- #{keyword 28628}#
- #{pattern 28629}#
- #{template 28630}#)
- (string? (syntax->datum #{docstring 28627}#)))
- #{tmp 28622}#)
+ (lambda (#{k 29013}#
+ #{docstring 29014}#
+ #{keyword 29015}#
+ #{pattern 29016}#
+ #{template 29017}#)
+ (string? (syntax->datum #{docstring 29014}#)))
+ #{tmp 29009}#)
#f)
(@apply
- (lambda (#{k 28631}#
- #{docstring 28632}#
- #{keyword 28633}#
- #{pattern 28634}#
- #{template 28635}#)
+ (lambda (#{k 29018}#
+ #{docstring 29019}#
+ #{keyword 29020}#
+ #{pattern 29021}#
+ #{template 29022}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i28596" "i28597" "i28598" "i28599" "i28600"))
+ #("i28983" "i28984" "i28985" "i28986" "i28987"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28570")))
+ #(ribcage #(x) #((top)) #("i28957")))
(hygiene guile))
'(#(syntax-object
x
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i28596" "i28597" "i28598" "i28599" "i28600"))
+ #("i28983" "i28984" "i28985" "i28986" "i28987"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28570")))
+ #(ribcage #(x) #((top)) #("i28957")))
(hygiene guile)))
- #{docstring 28632}#
+ #{docstring 29019}#
(vector
'(#(syntax-object
macro-type
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i28596"
- "i28597"
- "i28598"
- "i28599"
- "i28600"))
+ #("i28983"
+ "i28984"
+ "i28985"
+ "i28986"
+ "i28987"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28570")))
+ #(ribcage #(x) #((top)) #("i28957")))
(hygiene guile))
.
#(syntax-object
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i28596"
- "i28597"
- "i28598"
- "i28599"
- "i28600"))
+ #("i28983"
+ "i28984"
+ "i28985"
+ "i28986"
+ "i28987"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28570")))
+ #(ribcage #(x) #((top)) #("i28957")))
(hygiene guile)))
(cons '#(syntax-object
patterns
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i28596"
- "i28597"
- "i28598"
- "i28599"
- "i28600"))
+ #("i28983"
+ "i28984"
+ "i28985"
+ "i28986"
+ "i28987"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28570")))
+ #(ribcage #(x) #((top)) #("i28957")))
(hygiene guile))
- #{pattern 28634}#))
+ #{pattern 29021}#))
(cons '#(syntax-object
syntax-case
((top)
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i28596"
- "i28597"
- "i28598"
- "i28599"
- "i28600"))
+ #("i28983"
+ "i28984"
+ "i28985"
+ "i28986"
+ "i28987"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28570")))
+ #(ribcage #(x) #((top)) #("i28957")))
(hygiene guile))
(cons '#(syntax-object
x
pattern
template)
#((top) (top) (top) (top) (top))
- #("i28596"
- "i28597"
- "i28598"
- "i28599"
- "i28600"))
+ #("i28983"
+ "i28984"
+ "i28985"
+ "i28986"
+ "i28987"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28570")))
+ #(ribcage #(x) #((top)) #("i28957")))
(hygiene guile))
- (cons #{k 28631}#
- (map (lambda (#{tmp 28609 28636}#
- #{tmp 28608 28637}#)
+ (cons #{k 29018}#
+ (map (lambda (#{tmp 28996 29023}#
+ #{tmp 28995 29024}#)
(list (cons '#(syntax-object
dummy
((top)
(top)
(top)
(top))
- #("i28596"
- "i28597"
- "i28598"
- "i28599"
- "i28600"))
+ #("i28983"
+ "i28984"
+ "i28985"
+ "i28986"
+ "i28987"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i28570")))
+ #("i28957")))
(hygiene
guile))
- #{tmp 28608 28637}#)
+ #{tmp 28995 29024}#)
(list '#(syntax-object
syntax
((top)
(top)
(top)
(top))
- #("i28596"
- "i28597"
- "i28598"
- "i28599"
- "i28600"))
+ #("i28983"
+ "i28984"
+ "i28985"
+ "i28986"
+ "i28987"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i28570")))
+ #("i28957")))
(hygiene
guile))
- #{tmp 28609 28636}#)))
- #{template 28635}#
- #{pattern 28634}#))))))
- #{tmp 28622}#)
+ #{tmp 28996 29023}#)))
+ #{template 29022}#
+ #{pattern 29021}#))))))
+ #{tmp 29009}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 28610}#))))))))
+ #{x 28997}#))))))))
(define define-syntax-rule
(make-syntax-transformer
'define-syntax-rule
'macro
- (lambda (#{x 28674}#)
- (let ((#{tmp 28676}#
- ($sc-dispatch #{x 28674}# '(_ (any . any) any))))
- (if #{tmp 28676}#
+ (lambda (#{x 29061}#)
+ (let ((#{tmp 29063}#
+ ($sc-dispatch #{x 29061}# '(_ (any . any) any))))
+ (if #{tmp 29063}#
(@apply
- (lambda (#{name 28680}#
- #{pattern 28681}#
- #{template 28682}#)
+ (lambda (#{name 29067}#
+ #{pattern 29068}#
+ #{template 29069}#)
(list '#(syntax-object
define-syntax
((top)
#(ribcage
#(name pattern template)
#((top) (top) (top))
- #("i28651" "i28652" "i28653"))
+ #("i29038" "i29039" "i29040"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28648")))
+ #(ribcage #(x) #((top)) #("i29035")))
(hygiene guile))
- #{name 28680}#
+ #{name 29067}#
(list '#(syntax-object
syntax-rules
((top)
#(ribcage
#(name pattern template)
#((top) (top) (top))
- #("i28651" "i28652" "i28653"))
+ #("i29038" "i29039" "i29040"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28648")))
+ #(ribcage #(x) #((top)) #("i29035")))
(hygiene guile))
'()
(list (cons '#(syntax-object
#(ribcage
#(name pattern template)
#((top) (top) (top))
- #("i28651" "i28652" "i28653"))
+ #("i29038" "i29039" "i29040"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28648")))
+ #(ribcage #(x) #((top)) #("i29035")))
(hygiene guile))
- #{pattern 28681}#)
- #{template 28682}#))))
- #{tmp 28676}#)
- (let ((#{tmp 28683}#
+ #{pattern 29068}#)
+ #{template 29069}#))))
+ #{tmp 29063}#)
+ (let ((#{tmp 29070}#
($sc-dispatch
- #{x 28674}#
+ #{x 29061}#
'(_ (any . any) any any))))
- (if (if #{tmp 28683}#
+ (if (if #{tmp 29070}#
(@apply
- (lambda (#{name 28687}#
- #{pattern 28688}#
- #{docstring 28689}#
- #{template 28690}#)
- (string? (syntax->datum #{docstring 28689}#)))
- #{tmp 28683}#)
+ (lambda (#{name 29074}#
+ #{pattern 29075}#
+ #{docstring 29076}#
+ #{template 29077}#)
+ (string? (syntax->datum #{docstring 29076}#)))
+ #{tmp 29070}#)
#f)
(@apply
- (lambda (#{name 28691}#
- #{pattern 28692}#
- #{docstring 28693}#
- #{template 28694}#)
+ (lambda (#{name 29078}#
+ #{pattern 29079}#
+ #{docstring 29080}#
+ #{template 29081}#)
(list '#(syntax-object
define-syntax
((top)
#(ribcage
#(name pattern docstring template)
#((top) (top) (top) (top))
- #("i28666" "i28667" "i28668" "i28669"))
+ #("i29053" "i29054" "i29055" "i29056"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28648")))
+ #(ribcage #(x) #((top)) #("i29035")))
(hygiene guile))
- #{name 28691}#
+ #{name 29078}#
(list '#(syntax-object
syntax-rules
((top)
#(ribcage
#(name pattern docstring template)
#((top) (top) (top) (top))
- #("i28666" "i28667" "i28668" "i28669"))
+ #("i29053" "i29054" "i29055" "i29056"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28648")))
+ #(ribcage #(x) #((top)) #("i29035")))
(hygiene guile))
'()
- #{docstring 28693}#
+ #{docstring 29080}#
(list (cons '#(syntax-object
_
((top)
docstring
template)
#((top) (top) (top) (top))
- #("i28666"
- "i28667"
- "i28668"
- "i28669"))
+ #("i29053"
+ "i29054"
+ "i29055"
+ "i29056"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i28648")))
+ #("i29035")))
(hygiene guile))
- #{pattern 28692}#)
- #{template 28694}#))))
- #{tmp 28683}#)
+ #{pattern 29079}#)
+ #{template 29081}#))))
+ #{tmp 29070}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 28674}#))))))))
+ #{x 29061}#))))))))
(define let*
(make-syntax-transformer
'let*
'macro
- (lambda (#{x 28743}#)
- (let ((#{tmp 28745}#
+ (lambda (#{x 29130}#)
+ (let ((#{tmp 29132}#
($sc-dispatch
- #{x 28743}#
+ #{x 29130}#
'(any #(each (any any)) any . each-any))))
- (if (if #{tmp 28745}#
+ (if (if #{tmp 29132}#
(@apply
- (lambda (#{let* 28749}#
- #{x 28750}#
- #{v 28751}#
- #{e1 28752}#
- #{e2 28753}#)
- (and-map identifier? #{x 28750}#))
- #{tmp 28745}#)
+ (lambda (#{let* 29136}#
+ #{x 29137}#
+ #{v 29138}#
+ #{e1 29139}#
+ #{e2 29140}#)
+ (and-map identifier? #{x 29137}#))
+ #{tmp 29132}#)
#f)
(@apply
- (lambda (#{let* 28754}#
- #{x 28755}#
- #{v 28756}#
- #{e1 28757}#
- #{e2 28758}#)
+ (lambda (#{let* 29141}#
+ #{x 29142}#
+ #{v 29143}#
+ #{e1 29144}#
+ #{e2 29145}#)
(letrec*
- ((#{f 28759}#
- (lambda (#{bindings 28762}#)
- (if (null? #{bindings 28762}#)
+ ((#{f 29146}#
+ (lambda (#{bindings 29149}#)
+ (if (null? #{bindings 29149}#)
(cons '#(syntax-object
let
((top)
#(ribcage
#(f bindings)
#((top) (top))
- #("i28729" "i28730"))
+ #("i29116" "i29117"))
#(ribcage
#(let* x v e1 e2)
#((top) (top) (top) (top) (top))
- #("i28719"
- "i28720"
- "i28721"
- "i28722"
- "i28723"))
+ #("i29106"
+ "i29107"
+ "i29108"
+ "i29109"
+ "i29110"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28705")))
+ #(ribcage #(x) #((top)) #("i29092")))
(hygiene guile))
- (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}#
+ (cons '() (cons #{e1 29144}# #{e2 29145}#)))
+ (let ((#{tmp 29150}#
+ (list (#{f 29146}# (cdr #{bindings 29149}#))
+ (car #{bindings 29149}#))))
+ (let ((#{tmp 29151}#
+ ($sc-dispatch #{tmp 29150}# '(any any))))
+ (if #{tmp 29151}#
(@apply
- (lambda (#{body 28766}# #{binding 28767}#)
+ (lambda (#{body 29153}# #{binding 29154}#)
(list '#(syntax-object
let
((top)
#(ribcage
#(body binding)
#((top) (top))
- #("i28739" "i28740"))
+ #("i29126" "i29127"))
#(ribcage () () ())
#(ribcage
#(f bindings)
#((top) (top))
- #("i28729" "i28730"))
+ #("i29116" "i29117"))
#(ribcage
#(let* x v e1 e2)
#((top) (top) (top) (top) (top))
- #("i28719"
- "i28720"
- "i28721"
- "i28722"
- "i28723"))
+ #("i29106"
+ "i29107"
+ "i29108"
+ "i29109"
+ "i29110"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i28705")))
+ #("i29092")))
(hygiene guile))
- (list #{binding 28767}#)
- #{body 28766}#))
- #{tmp 28764}#)
+ (list #{binding 29154}#)
+ #{body 29153}#))
+ #{tmp 29151}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 28763}#))))))))
- (#{f 28759}# (map list #{x 28755}# #{v 28756}#))))
- #{tmp 28745}#)
+ #{tmp 29150}#))))))))
+ (#{f 29146}# (map list #{x 29142}# #{v 29143}#))))
+ #{tmp 29132}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 28743}#))))))
+ #{x 29130}#))))))
(define do
(make-syntax-transformer
'do
'macro
- (lambda (#{orig-x 28825}#)
- (let ((#{tmp 28827}#
+ (lambda (#{orig-x 29212}#)
+ (let ((#{tmp 29214}#
($sc-dispatch
- #{orig-x 28825}#
+ #{orig-x 29212}#
'(_ #(each (any any . any))
(any . each-any)
.
each-any))))
- (if #{tmp 28827}#
+ (if #{tmp 29214}#
(@apply
- (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}#
+ (lambda (#{var 29218}#
+ #{init 29219}#
+ #{step 29220}#
+ #{e0 29221}#
+ #{e1 29222}#
+ #{c 29223}#)
+ (let ((#{tmp 29224}#
+ (map (lambda (#{v 29227}# #{s 29228}#)
+ (let ((#{tmp 29230}#
+ ($sc-dispatch #{s 29228}# '())))
+ (if #{tmp 29230}#
+ (@apply (lambda () #{v 29227}#) #{tmp 29230}#)
+ (let ((#{tmp 29233}#
+ ($sc-dispatch #{s 29228}# '(any))))
+ (if #{tmp 29233}#
(@apply
- (lambda (#{e 28849}#) #{e 28849}#)
- #{tmp 28846}#)
+ (lambda (#{e 29236}#) #{e 29236}#)
+ #{tmp 29233}#)
(syntax-violation
'do
"bad step expression"
- #{orig-x 28825}#
- #{s 28841}#))))))
- #{var 28831}#
- #{step 28833}#)))
- (let ((#{tmp 28838}#
- ($sc-dispatch #{tmp 28837}# 'each-any)))
- (if #{tmp 28838}#
+ #{orig-x 29212}#
+ #{s 29228}#))))))
+ #{var 29218}#
+ #{step 29220}#)))
+ (let ((#{tmp 29225}#
+ ($sc-dispatch #{tmp 29224}# 'each-any)))
+ (if #{tmp 29225}#
(@apply
- (lambda (#{step 28855}#)
- (let ((#{tmp 28857}# ($sc-dispatch #{e1 28835}# '())))
- (if #{tmp 28857}#
+ (lambda (#{step 29242}#)
+ (let ((#{tmp 29244}# ($sc-dispatch #{e1 29222}# '())))
+ (if #{tmp 29244}#
(@apply
(lambda ()
(list '#(syntax-object
#(ribcage
#(step)
#((top))
- #("i28793"))
+ #("i29180"))
#(ribcage
#(var init step e0 e1 c)
#((top)
(top)
(top)
(top))
- #("i28778"
- "i28779"
- "i28780"
- "i28781"
- "i28782"
- "i28783"))
+ #("i29165"
+ "i29166"
+ "i29167"
+ "i29168"
+ "i29169"
+ "i29170"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i28775")))
+ #("i29162")))
(hygiene guile))
'#(syntax-object
doloop
#(ribcage
#(step)
#((top))
- #("i28793"))
+ #("i29180"))
#(ribcage
#(var init step e0 e1 c)
#((top)
(top)
(top)
(top))
- #("i28778"
- "i28779"
- "i28780"
- "i28781"
- "i28782"
- "i28783"))
+ #("i29165"
+ "i29166"
+ "i29167"
+ "i29168"
+ "i29169"
+ "i29170"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i28775")))
+ #("i29162")))
(hygiene guile))
- (map list #{var 28831}# #{init 28832}#)
+ (map list #{var 29218}# #{init 29219}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(step)
#((top))
- #("i28793"))
+ #("i29180"))
#(ribcage
#(var init step e0 e1 c)
#((top)
(top)
(top)
(top))
- #("i28778"
- "i28779"
- "i28780"
- "i28781"
- "i28782"
- "i28783"))
+ #("i29165"
+ "i29166"
+ "i29167"
+ "i29168"
+ "i29169"
+ "i29170"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i28775")))
+ #("i29162")))
(hygiene guile))
(list '#(syntax-object
not
#(ribcage
#(step)
#((top))
- #("i28793"))
+ #("i29180"))
#(ribcage
#(var
init
(top)
(top)
(top))
- #("i28778"
- "i28779"
- "i28780"
- "i28781"
- "i28782"
- "i28783"))
+ #("i29165"
+ "i29166"
+ "i29167"
+ "i29168"
+ "i29169"
+ "i29170"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i28775")))
+ #("i29162")))
(hygiene guile))
- #{e0 28834}#)
+ #{e0 29221}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(step)
#((top))
- #("i28793"))
+ #("i29180"))
#(ribcage
#(var
init
(top)
(top)
(top))
- #("i28778"
- "i28779"
- "i28780"
- "i28781"
- "i28782"
- "i28783"))
+ #("i29165"
+ "i29166"
+ "i29167"
+ "i29168"
+ "i29169"
+ "i29170"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i28775")))
+ #("i29162")))
(hygiene guile))
(append
- #{c 28836}#
+ #{c 29223}#
(list (cons '#(syntax-object
doloop
((top)
#(ribcage
#(step)
#((top))
- #("i28793"))
+ #("i29180"))
#(ribcage
#(var
init
(top)
(top)
(top))
- #("i28778"
- "i28779"
- "i28780"
- "i28781"
- "i28782"
- "i28783"))
+ #("i29165"
+ "i29166"
+ "i29167"
+ "i29168"
+ "i29169"
+ "i29170"))
#(ribcage
()
()
#(ribcage
#(orig-x)
#((top))
- #("i28775")))
+ #("i29162")))
(hygiene
guile))
- #{step 28855}#)))))))
- #{tmp 28857}#)
- (let ((#{tmp 28861}#
+ #{step 29242}#)))))))
+ #{tmp 29244}#)
+ (let ((#{tmp 29248}#
($sc-dispatch
- #{e1 28835}#
+ #{e1 29222}#
'(any . each-any))))
- (if #{tmp 28861}#
+ (if #{tmp 29248}#
(@apply
- (lambda (#{e1 28865}# #{e2 28866}#)
+ (lambda (#{e1 29252}# #{e2 29253}#)
(list '#(syntax-object
let
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i28802" "i28803"))
+ #("i29189" "i29190"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("i28793"))
+ #("i29180"))
#(ribcage
#(var init step e0 e1 c)
#((top)
(top)
(top)
(top))
- #("i28778"
- "i28779"
- "i28780"
- "i28781"
- "i28782"
- "i28783"))
+ #("i29165"
+ "i29166"
+ "i29167"
+ "i29168"
+ "i29169"
+ "i29170"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i28775")))
+ #("i29162")))
(hygiene guile))
'#(syntax-object
doloop
#(ribcage
#(e1 e2)
#((top) (top))
- #("i28802" "i28803"))
+ #("i29189" "i29190"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("i28793"))
+ #("i29180"))
#(ribcage
#(var init step e0 e1 c)
#((top)
(top)
(top)
(top))
- #("i28778"
- "i28779"
- "i28780"
- "i28781"
- "i28782"
- "i28783"))
+ #("i29165"
+ "i29166"
+ "i29167"
+ "i29168"
+ "i29169"
+ "i29170"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i28775")))
+ #("i29162")))
(hygiene guile))
(map list
- #{var 28831}#
- #{init 28832}#)
+ #{var 29218}#
+ #{init 29219}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i28802" "i28803"))
+ #("i29189" "i29190"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("i28793"))
+ #("i29180"))
#(ribcage
#(var init step e0 e1 c)
#((top)
(top)
(top)
(top))
- #("i28778"
- "i28779"
- "i28780"
- "i28781"
- "i28782"
- "i28783"))
+ #("i29165"
+ "i29166"
+ "i29167"
+ "i29168"
+ "i29169"
+ "i29170"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i28775")))
+ #("i29162")))
(hygiene guile))
- #{e0 28834}#
+ #{e0 29221}#
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i28802"
- "i28803"))
+ #("i29189"
+ "i29190"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("i28793"))
+ #("i29180"))
#(ribcage
#(var
init
(top)
(top)
(top))
- #("i28778"
- "i28779"
- "i28780"
- "i28781"
- "i28782"
- "i28783"))
+ #("i29165"
+ "i29166"
+ "i29167"
+ "i29168"
+ "i29169"
+ "i29170"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i28775")))
+ #("i29162")))
(hygiene guile))
- (cons #{e1 28865}#
- #{e2 28866}#))
+ (cons #{e1 29252}#
+ #{e2 29253}#))
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i28802"
- "i28803"))
+ #("i29189"
+ "i29190"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("i28793"))
+ #("i29180"))
#(ribcage
#(var
init
(top)
(top)
(top))
- #("i28778"
- "i28779"
- "i28780"
- "i28781"
- "i28782"
- "i28783"))
+ #("i29165"
+ "i29166"
+ "i29167"
+ "i29168"
+ "i29169"
+ "i29170"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i28775")))
+ #("i29162")))
(hygiene guile))
(append
- #{c 28836}#
+ #{c 29223}#
(list (cons '#(syntax-object
doloop
((top)
e2)
#((top)
(top))
- #("i28802"
- "i28803"))
+ #("i29189"
+ "i29190"))
#(ribcage
()
()
#(ribcage
#(step)
#((top))
- #("i28793"))
+ #("i29180"))
#(ribcage
#(var
init
(top)
(top)
(top))
- #("i28778"
- "i28779"
- "i28780"
- "i28781"
- "i28782"
- "i28783"))
+ #("i29165"
+ "i29166"
+ "i29167"
+ "i29168"
+ "i29169"
+ "i29170"))
#(ribcage
()
()
#(ribcage
#(orig-x)
#((top))
- #("i28775")))
+ #("i29162")))
(hygiene
guile))
- #{step 28855}#)))))))
- #{tmp 28861}#)
+ #{step 29242}#)))))))
+ #{tmp 29248}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e1 28835}#))))))
- #{tmp 28838}#)
+ #{e1 29222}#))))))
+ #{tmp 29225}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 28837}#)))))
- #{tmp 28827}#)
+ #{tmp 29224}#)))))
+ #{tmp 29214}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{orig-x 28825}#))))))
+ #{orig-x 29212}#))))))
(define quasiquote
(make-syntax-transformer
'quasiquote
'macro
(letrec*
- ((#{quasi 29152}#
- (lambda (#{p 29176}# #{lev 29177}#)
- (let ((#{tmp 29179}#
+ ((#{quasi 29539}#
+ (lambda (#{p 29563}# #{lev 29564}#)
+ (let ((#{tmp 29566}#
($sc-dispatch
- #{p 29176}#
+ #{p 29563}#
'(#(free-id
#(syntax-object
unquote
#(ribcage
#(p lev)
#((top) (top))
- #("i28898" "i28899"))
+ #("i29285" "i29286"))
#(ribcage
(emit quasivector
quasilist*
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i28894"
- "i28892"
- "i28890"
- "i28888"
- "i28886"
- "i28884"
- "i28882")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile)))
any))))
- (if #{tmp 29179}#
+ (if #{tmp 29566}#
(@apply
- (lambda (#{p 29183}#)
- (if (= #{lev 29177}# 0)
+ (lambda (#{p 29570}#)
+ (if (= #{lev 29564}# 0)
(list '#(syntax-object
"value"
((top)
- #(ribcage #(p) #((top)) #("i28902"))
+ #(ribcage #(p) #((top)) #("i29289"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28898" "i28899"))
+ #("i29285" "i29286"))
#(ribcage
(emit quasivector
quasilist*
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i28894"
- "i28892"
- "i28890"
- "i28888"
- "i28886"
- "i28884"
- "i28882")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile))
- #{p 29183}#)
- (#{quasicons 29154}#
+ #{p 29570}#)
+ (#{quasicons 29541}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i28902"))
+ #(ribcage #(p) #((top)) #("i29289"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28898" "i28899"))
+ #("i29285" "i29286"))
#(ribcage
(emit quasivector
quasilist*
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i28894"
- "i28892"
- "i28890"
- "i28888"
- "i28886"
- "i28884"
- "i28882")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile))
#(syntax-object
unquote
((top)
- #(ribcage #(p) #((top)) #("i28902"))
+ #(ribcage #(p) #((top)) #("i29289"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28898" "i28899"))
+ #("i29285" "i29286"))
#(ribcage
(emit quasivector
quasilist*
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i28894"
- "i28892"
- "i28890"
- "i28888"
- "i28886"
- "i28884"
- "i28882")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile)))
- (#{quasi 29152}#
- (list #{p 29183}#)
- (#{1-}# #{lev 29177}#)))))
- #{tmp 29179}#)
- (let ((#{tmp 29186}#
+ (#{quasi 29539}#
+ (list #{p 29570}#)
+ (#{1-}# #{lev 29564}#)))))
+ #{tmp 29566}#)
+ (let ((#{tmp 29573}#
($sc-dispatch
- #{p 29176}#
+ #{p 29563}#
'(#(free-id
#(syntax-object
quasiquote
#(ribcage
#(p lev)
#((top) (top))
- #("i28898" "i28899"))
+ #("i29285" "i29286"))
#(ribcage
(emit quasivector
quasilist*
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i28894"
- "i28892"
- "i28890"
- "i28888"
- "i28886"
- "i28884"
- "i28882")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile)))
any))))
- (if #{tmp 29186}#
+ (if #{tmp 29573}#
(@apply
- (lambda (#{p 29190}#)
- (#{quasicons 29154}#
+ (lambda (#{p 29577}#)
+ (#{quasicons 29541}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i28905"))
+ #(ribcage #(p) #((top)) #("i29292"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28898" "i28899"))
+ #("i29285" "i29286"))
#(ribcage
(emit quasivector
quasilist*
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i28894"
- "i28892"
- "i28890"
- "i28888"
- "i28886"
- "i28884"
- "i28882")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile))
#(syntax-object
quasiquote
((top)
- #(ribcage #(p) #((top)) #("i28905"))
+ #(ribcage #(p) #((top)) #("i29292"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28898" "i28899"))
+ #("i29285" "i29286"))
#(ribcage
(emit quasivector
quasilist*
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i28894"
- "i28892"
- "i28890"
- "i28888"
- "i28886"
- "i28884"
- "i28882")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile)))
- (#{quasi 29152}#
- (list #{p 29190}#)
- (#{1+}# #{lev 29177}#))))
- #{tmp 29186}#)
- (let ((#{tmp 29193}#
- ($sc-dispatch #{p 29176}# '(any . any))))
- (if #{tmp 29193}#
+ (#{quasi 29539}#
+ (list #{p 29577}#)
+ (#{1+}# #{lev 29564}#))))
+ #{tmp 29573}#)
+ (let ((#{tmp 29580}#
+ ($sc-dispatch #{p 29563}# '(any . any))))
+ (if #{tmp 29580}#
(@apply
- (lambda (#{p 29197}# #{q 29198}#)
- (let ((#{tmp 29200}#
+ (lambda (#{p 29584}# #{q 29585}#)
+ (let ((#{tmp 29587}#
($sc-dispatch
- #{p 29197}#
+ #{p 29584}#
'(#(free-id
#(syntax-object
unquote
#(ribcage
#(p q)
#((top) (top))
- #("i28908" "i28909"))
+ #("i29295" "i29296"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28898" "i28899"))
+ #("i29285" "i29286"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i28894"
- "i28892"
- "i28890"
- "i28888"
- "i28886"
- "i28884"
- "i28882")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile)))
.
each-any))))
- (if #{tmp 29200}#
+ (if #{tmp 29587}#
(@apply
- (lambda (#{p 29204}#)
- (if (= #{lev 29177}# 0)
- (#{quasilist* 29156}#
- (map (lambda (#{tmp 28916 29240}#)
+ (lambda (#{p 29591}#)
+ (if (= #{lev 29564}# 0)
+ (#{quasilist* 29543}#
+ (map (lambda (#{tmp 29303 29627}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("i28914"))
+ #("i29301"))
#(ribcage
#(p q)
#((top) (top))
- #("i28908" "i28909"))
+ #("i29295" "i29296"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28898" "i28899"))
+ #("i29285" "i29286"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i28894"
- "i28892"
- "i28890"
- "i28888"
- "i28886"
- "i28884"
- "i28882")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile))
- #{tmp 28916 29240}#))
- #{p 29204}#)
- (#{quasi 29152}#
- #{q 29198}#
- #{lev 29177}#))
- (#{quasicons 29154}#
- (#{quasicons 29154}#
+ #{tmp 29303 29627}#))
+ #{p 29591}#)
+ (#{quasi 29539}#
+ #{q 29585}#
+ #{lev 29564}#))
+ (#{quasicons 29541}#
+ (#{quasicons 29541}#
'(#(syntax-object
"quote"
((top)
#(ribcage
#(p)
#((top))
- #("i28914"))
+ #("i29301"))
#(ribcage
#(p q)
#((top) (top))
- #("i28908" "i28909"))
+ #("i29295" "i29296"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28898" "i28899"))
+ #("i29285" "i29286"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i28894"
- "i28892"
- "i28890"
- "i28888"
- "i28886"
- "i28884"
- "i28882")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile))
#(syntax-object
unquote
#(ribcage
#(p)
#((top))
- #("i28914"))
+ #("i29301"))
#(ribcage
#(p q)
#((top) (top))
- #("i28908" "i28909"))
+ #("i29295" "i29296"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28898" "i28899"))
+ #("i29285" "i29286"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i28894"
- "i28892"
- "i28890"
- "i28888"
- "i28886"
- "i28884"
- "i28882")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile)))
- (#{quasi 29152}#
- #{p 29204}#
- (#{1-}# #{lev 29177}#)))
- (#{quasi 29152}#
- #{q 29198}#
- #{lev 29177}#))))
- #{tmp 29200}#)
- (let ((#{tmp 29245}#
+ (#{quasi 29539}#
+ #{p 29591}#
+ (#{1-}# #{lev 29564}#)))
+ (#{quasi 29539}#
+ #{q 29585}#
+ #{lev 29564}#))))
+ #{tmp 29587}#)
+ (let ((#{tmp 29632}#
($sc-dispatch
- #{p 29197}#
+ #{p 29584}#
'(#(free-id
#(syntax-object
unquote-splicing
#(ribcage
#(p q)
#((top) (top))
- #("i28908" "i28909"))
+ #("i29295" "i29296"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28898" "i28899"))
+ #("i29285" "i29286"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i28894"
- "i28892"
- "i28890"
- "i28888"
- "i28886"
- "i28884"
- "i28882")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile)))
.
each-any))))
- (if #{tmp 29245}#
+ (if #{tmp 29632}#
(@apply
- (lambda (#{p 29249}#)
- (if (= #{lev 29177}# 0)
- (#{quasiappend 29155}#
- (map (lambda (#{tmp 28921 29252}#)
+ (lambda (#{p 29636}#)
+ (if (= #{lev 29564}# 0)
+ (#{quasiappend 29542}#
+ (map (lambda (#{tmp 29308 29639}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("i28919"))
+ #("i29306"))
#(ribcage
#(p q)
#((top) (top))
- #("i28908"
- "i28909"))
+ #("i29295"
+ "i29296"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28898"
- "i28899"))
+ #("i29285"
+ "i29286"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i28894"
- "i28892"
- "i28890"
- "i28888"
- "i28886"
- "i28884"
- "i28882")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile))
- #{tmp 28921 29252}#))
- #{p 29249}#)
- (#{quasi 29152}#
- #{q 29198}#
- #{lev 29177}#))
- (#{quasicons 29154}#
- (#{quasicons 29154}#
+ #{tmp 29308 29639}#))
+ #{p 29636}#)
+ (#{quasi 29539}#
+ #{q 29585}#
+ #{lev 29564}#))
+ (#{quasicons 29541}#
+ (#{quasicons 29541}#
'(#(syntax-object
"quote"
((top)
#(ribcage
#(p)
#((top))
- #("i28919"))
+ #("i29306"))
#(ribcage
#(p q)
#((top) (top))
- #("i28908" "i28909"))
+ #("i29295" "i29296"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28898" "i28899"))
+ #("i29285" "i29286"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i28894"
- "i28892"
- "i28890"
- "i28888"
- "i28886"
- "i28884"
- "i28882")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile))
#(syntax-object
unquote-splicing
#(ribcage
#(p)
#((top))
- #("i28919"))
+ #("i29306"))
#(ribcage
#(p q)
#((top) (top))
- #("i28908" "i28909"))
+ #("i29295" "i29296"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28898" "i28899"))
+ #("i29285" "i29286"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i28894"
- "i28892"
- "i28890"
- "i28888"
- "i28886"
- "i28884"
- "i28882")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile)))
- (#{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}#
+ (#{quasi 29539}#
+ #{p 29636}#
+ (#{1-}# #{lev 29564}#)))
+ (#{quasi 29539}#
+ #{q 29585}#
+ #{lev 29564}#))))
+ #{tmp 29632}#)
+ (#{quasicons 29541}#
+ (#{quasi 29539}#
+ #{p 29584}#
+ #{lev 29564}#)
+ (#{quasi 29539}#
+ #{q 29585}#
+ #{lev 29564}#)))))))
+ #{tmp 29580}#)
+ (let ((#{tmp 29653}#
+ ($sc-dispatch #{p 29563}# '#(vector each-any))))
+ (if #{tmp 29653}#
(@apply
- (lambda (#{x 29270}#)
- (let ((#{x 29273}#
- (#{vquasi 29153}#
- #{x 29270}#
- #{lev 29177}#)))
- (let ((#{tmp 29275}#
+ (lambda (#{x 29657}#)
+ (let ((#{x 29660}#
+ (#{vquasi 29540}#
+ #{x 29657}#
+ #{lev 29564}#)))
+ (let ((#{tmp 29662}#
($sc-dispatch
- #{x 29273}#
+ #{x 29660}#
'(#(atom "quote") each-any))))
- (if #{tmp 29275}#
+ (if #{tmp 29662}#
(@apply
- (lambda (#{x 29279}#)
+ (lambda (#{x 29666}#)
(list '#(syntax-object
"quote"
((top)
#(ribcage
#(x)
#((top))
- #("i29026"))
+ #("i29413"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i29023"))
+ #("i29410"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i28894"
- "i28892"
- "i28890"
- "i28888"
- "i28886"
- "i28884"
- "i28882")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile))
- (list->vector #{x 29279}#)))
- #{tmp 29275}#)
+ (list->vector #{x 29666}#)))
+ #{tmp 29662}#)
(letrec*
- ((#{f 29281}#
- (lambda (#{y 29293}# #{k 29294}#)
- (let ((#{tmp 29296}#
+ ((#{f 29668}#
+ (lambda (#{y 29680}# #{k 29681}#)
+ (let ((#{tmp 29683}#
($sc-dispatch
- #{y 29293}#
+ #{y 29680}#
'(#(atom "quote")
each-any))))
- (if #{tmp 29296}#
+ (if #{tmp 29683}#
(@apply
- (lambda (#{y 29299}#)
- (#{k 29294}#
- (map (lambda (#{tmp 29051 29300}#)
+ (lambda (#{y 29686}#)
+ (#{k 29681}#
+ (map (lambda (#{tmp 29438 29687}#)
(list '#(syntax-object
"quote"
((top)
#(ribcage
#(y)
#((top))
- #("i29049"))
+ #("i29436"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i29031"
- "i29032"
- "i29033"))
+ #("i29418"
+ "i29419"
+ "i29420"))
#(ribcage
#(_)
#((top))
- #("i29029"))
+ #("i29416"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i29023"))
+ #("i29410"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i28894"
- "i28892"
- "i28890"
- "i28888"
- "i28886"
- "i28884"
- "i28882")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene
guile))
- #{tmp 29051 29300}#))
- #{y 29299}#)))
- #{tmp 29296}#)
- (let ((#{tmp 29301}#
+ #{tmp 29438 29687}#))
+ #{y 29686}#)))
+ #{tmp 29683}#)
+ (let ((#{tmp 29688}#
($sc-dispatch
- #{y 29293}#
+ #{y 29680}#
'(#(atom "list")
.
each-any))))
- (if #{tmp 29301}#
+ (if #{tmp 29688}#
(@apply
- (lambda (#{y 29304}#)
- (#{k 29294}#
- #{y 29304}#))
- #{tmp 29301}#)
- (let ((#{tmp 29305}#
+ (lambda (#{y 29691}#)
+ (#{k 29681}#
+ #{y 29691}#))
+ #{tmp 29688}#)
+ (let ((#{tmp 29692}#
($sc-dispatch
- #{y 29293}#
+ #{y 29680}#
'(#(atom "list*")
.
#(each+
any
(any)
())))))
- (if #{tmp 29305}#
+ (if #{tmp 29692}#
(@apply
- (lambda (#{y 29308}#
- #{z 29309}#)
- (#{f 29281}#
- #{z 29309}#
- (lambda (#{ls 29310}#)
- (#{k 29294}#
+ (lambda (#{y 29695}#
+ #{z 29696}#)
+ (#{f 29668}#
+ #{z 29696}#
+ (lambda (#{ls 29697}#)
+ (#{k 29681}#
(append
- #{y 29308}#
- #{ls 29310}#)))))
- #{tmp 29305}#)
+ #{y 29695}#
+ #{ls 29697}#)))))
+ #{tmp 29692}#)
(list '#(syntax-object
"list->vector"
((top)
()
())
#(ribcage
- #(#{ g29066}#)
- #((m29067
+ #(#{ g29453}#)
+ #((m29454
top))
- #("i29070"))
+ #("i29457"))
#(ribcage
#(else)
#((top))
- #("i29064"))
+ #("i29451"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i29031"
- "i29032"
- "i29033"))
+ #("i29418"
+ "i29419"
+ "i29420"))
#(ribcage
#(_)
#((top))
- #("i29029"))
+ #("i29416"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i29023"))
+ #("i29410"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i28894"
- "i28892"
- "i28890"
- "i28888"
- "i28886"
- "i28884"
- "i28882")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene
guile))
- #{x 29273}#))))))))))
- (#{f 29281}#
- #{x 29273}#
- (lambda (#{ls 29283}#)
- (let ((#{tmp 29285}#
+ #{x 29660}#))))))))))
+ (#{f 29668}#
+ #{x 29660}#
+ (lambda (#{ls 29670}#)
+ (let ((#{tmp 29672}#
($sc-dispatch
- #{ls 29283}#
+ #{ls 29670}#
'each-any)))
- (if #{tmp 29285}#
+ (if #{tmp 29672}#
(@apply
- (lambda (#{ g29039 29288}#)
+ (lambda (#{ g29426 29675}#)
(cons '#(syntax-object
"vector"
((top)
()
())
#(ribcage
- #(#{ g29039}#)
- #((m29040 top))
- #("i29044"))
+ #(#{ g29426}#)
+ #((m29427 top))
+ #("i29431"))
#(ribcage
()
()
#(ribcage
#(ls)
#((top))
- #("i29038"))
+ #("i29425"))
#(ribcage
#(_)
#((top))
- #("i29029"))
+ #("i29416"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i29023"))
+ #("i29410"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i28894"
- "i28892"
- "i28890"
- "i28888"
- "i28886"
- "i28884"
- "i28882")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile))
- #{ g29039 29288}#))
- #{tmp 29285}#)
+ #{ g29426 29675}#))
+ #{tmp 29672}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{ls 29283}#))))))))))
- #{tmp 29266}#)
+ #{ls 29670}#))))))))))
+ #{tmp 29653}#)
(list '#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i28929"))
+ #(ribcage #(p) #((top)) #("i29316"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28898" "i28899"))
+ #("i29285" "i29286"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i28894"
- "i28892"
- "i28890"
- "i28888"
- "i28886"
- "i28884"
- "i28882")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile))
- #{p 29176}#)))))))))))
- (#{vquasi 29153}#
- (lambda (#{p 29338}# #{lev 29339}#)
- (let ((#{tmp 29341}#
- ($sc-dispatch #{p 29338}# '(any . any))))
- (if #{tmp 29341}#
+ #{p 29563}#)))))))))))
+ (#{vquasi 29540}#
+ (lambda (#{p 29725}# #{lev 29726}#)
+ (let ((#{tmp 29728}#
+ ($sc-dispatch #{p 29725}# '(any . any))))
+ (if #{tmp 29728}#
(@apply
- (lambda (#{p 29345}# #{q 29346}#)
- (let ((#{tmp 29348}#
+ (lambda (#{p 29732}# #{q 29733}#)
+ (let ((#{tmp 29735}#
($sc-dispatch
- #{p 29345}#
+ #{p 29732}#
'(#(free-id
#(syntax-object
unquote
#(ribcage
#(p q)
#((top) (top))
- #("i28937" "i28938"))
+ #("i29324" "i29325"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28933" "i28934"))
+ #("i29320" "i29321"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i28894"
- "i28892"
- "i28890"
- "i28888"
- "i28886"
- "i28884"
- "i28882")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile)))
.
each-any))))
- (if #{tmp 29348}#
+ (if #{tmp 29735}#
(@apply
- (lambda (#{p 29352}#)
- (if (= #{lev 29339}# 0)
- (#{quasilist* 29156}#
- (map (lambda (#{tmp 28945 29388}#)
+ (lambda (#{p 29739}#)
+ (if (= #{lev 29726}# 0)
+ (#{quasilist* 29543}#
+ (map (lambda (#{tmp 29332 29775}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("i28943"))
+ #("i29330"))
#(ribcage
#(p q)
#((top) (top))
- #("i28937" "i28938"))
+ #("i29324" "i29325"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28933" "i28934"))
+ #("i29320" "i29321"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i28894"
- "i28892"
- "i28890"
- "i28888"
- "i28886"
- "i28884"
- "i28882")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile))
- #{tmp 28945 29388}#))
- #{p 29352}#)
- (#{vquasi 29153}# #{q 29346}# #{lev 29339}#))
- (#{quasicons 29154}#
- (#{quasicons 29154}#
+ #{tmp 29332 29775}#))
+ #{p 29739}#)
+ (#{vquasi 29540}# #{q 29733}# #{lev 29726}#))
+ (#{quasicons 29541}#
+ (#{quasicons 29541}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i28943"))
+ #(ribcage #(p) #((top)) #("i29330"))
#(ribcage
#(p q)
#((top) (top))
- #("i28937" "i28938"))
+ #("i29324" "i29325"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28933" "i28934"))
+ #("i29320" "i29321"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i28894"
- "i28892"
- "i28890"
- "i28888"
- "i28886"
- "i28884"
- "i28882")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile))
#(syntax-object
unquote
((top)
- #(ribcage #(p) #((top)) #("i28943"))
+ #(ribcage #(p) #((top)) #("i29330"))
#(ribcage
#(p q)
#((top) (top))
- #("i28937" "i28938"))
+ #("i29324" "i29325"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28933" "i28934"))
+ #("i29320" "i29321"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i28894"
- "i28892"
- "i28890"
- "i28888"
- "i28886"
- "i28884"
- "i28882")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile)))
- (#{quasi 29152}#
- #{p 29352}#
- (#{1-}# #{lev 29339}#)))
- (#{vquasi 29153}# #{q 29346}# #{lev 29339}#))))
- #{tmp 29348}#)
- (let ((#{tmp 29395}#
+ (#{quasi 29539}#
+ #{p 29739}#
+ (#{1-}# #{lev 29726}#)))
+ (#{vquasi 29540}# #{q 29733}# #{lev 29726}#))))
+ #{tmp 29735}#)
+ (let ((#{tmp 29782}#
($sc-dispatch
- #{p 29345}#
+ #{p 29732}#
'(#(free-id
#(syntax-object
unquote-splicing
#(ribcage
#(p q)
#((top) (top))
- #("i28937" "i28938"))
+ #("i29324" "i29325"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28933" "i28934"))
+ #("i29320" "i29321"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i28894"
- "i28892"
- "i28890"
- "i28888"
- "i28886"
- "i28884"
- "i28882")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile)))
.
each-any))))
- (if #{tmp 29395}#
+ (if #{tmp 29782}#
(@apply
- (lambda (#{p 29399}#)
- (if (= #{lev 29339}# 0)
- (#{quasiappend 29155}#
- (map (lambda (#{tmp 28950 29402}#)
+ (lambda (#{p 29786}#)
+ (if (= #{lev 29726}# 0)
+ (#{quasiappend 29542}#
+ (map (lambda (#{tmp 29337 29789}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("i28948"))
+ #("i29335"))
#(ribcage
#(p q)
#((top) (top))
- #("i28937" "i28938"))
+ #("i29324" "i29325"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28933" "i28934"))
+ #("i29320" "i29321"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i28894"
- "i28892"
- "i28890"
- "i28888"
- "i28886"
- "i28884"
- "i28882")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile))
- #{tmp 28950 29402}#))
- #{p 29399}#)
- (#{vquasi 29153}#
- #{q 29346}#
- #{lev 29339}#))
- (#{quasicons 29154}#
- (#{quasicons 29154}#
+ #{tmp 29337 29789}#))
+ #{p 29786}#)
+ (#{vquasi 29540}#
+ #{q 29733}#
+ #{lev 29726}#))
+ (#{quasicons 29541}#
+ (#{quasicons 29541}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i28948"))
+ #(ribcage #(p) #((top)) #("i29335"))
#(ribcage
#(p q)
#((top) (top))
- #("i28937" "i28938"))
+ #("i29324" "i29325"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28933" "i28934"))
+ #("i29320" "i29321"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i28894"
- "i28892"
- "i28890"
- "i28888"
- "i28886"
- "i28884"
- "i28882")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile))
#(syntax-object
unquote-splicing
((top)
- #(ribcage #(p) #((top)) #("i28948"))
+ #(ribcage #(p) #((top)) #("i29335"))
#(ribcage
#(p q)
#((top) (top))
- #("i28937" "i28938"))
+ #("i29324" "i29325"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28933" "i28934"))
+ #("i29320" "i29321"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i28894"
- "i28892"
- "i28890"
- "i28888"
- "i28886"
- "i28884"
- "i28882")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile)))
- (#{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}#
+ (#{quasi 29539}#
+ #{p 29786}#
+ (#{1-}# #{lev 29726}#)))
+ (#{vquasi 29540}#
+ #{q 29733}#
+ #{lev 29726}#))))
+ #{tmp 29782}#)
+ (#{quasicons 29541}#
+ (#{quasi 29539}# #{p 29732}# #{lev 29726}#)
+ (#{vquasi 29540}# #{q 29733}# #{lev 29726}#)))))))
+ #{tmp 29728}#)
+ (let ((#{tmp 29807}# ($sc-dispatch #{p 29725}# '())))
+ (if #{tmp 29807}#
(@apply
(lambda ()
'(#(syntax-object
#(ribcage
#(p lev)
#((top) (top))
- #("i28933" "i28934"))
+ #("i29320" "i29321"))
#(ribcage
(emit quasivector
quasilist*
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i28894"
- "i28892"
- "i28890"
- "i28888"
- "i28886"
- "i28884"
- "i28882")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile))
()))
- #{tmp 29420}#)
+ #{tmp 29807}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{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}#
+ #{p 29725}#)))))))
+ (#{quasicons 29541}#
+ (lambda (#{x 29820}# #{y 29821}#)
+ (let ((#{tmp 29822}# (list #{x 29820}# #{y 29821}#)))
+ (let ((#{tmp 29823}#
+ ($sc-dispatch #{tmp 29822}# '(any any))))
+ (if #{tmp 29823}#
(@apply
- (lambda (#{x 29438}# #{y 29439}#)
- (let ((#{tmp 29441}#
+ (lambda (#{x 29825}# #{y 29826}#)
+ (let ((#{tmp 29828}#
($sc-dispatch
- #{y 29439}#
+ #{y 29826}#
'(#(atom "quote") any))))
- (if #{tmp 29441}#
+ (if #{tmp 29828}#
(@apply
- (lambda (#{dy 29445}#)
- (let ((#{tmp 29447}#
+ (lambda (#{dy 29832}#)
+ (let ((#{tmp 29834}#
($sc-dispatch
- #{x 29438}#
+ #{x 29825}#
'(#(atom "quote") any))))
- (if #{tmp 29447}#
+ (if #{tmp 29834}#
(@apply
- (lambda (#{dx 29451}#)
+ (lambda (#{dx 29838}#)
(list '#(syntax-object
"quote"
((top)
#(ribcage
#(dx)
#((top))
- #("i28972"))
+ #("i29359"))
#(ribcage
#(dy)
#((top))
- #("i28968"))
+ #("i29355"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i28962" "i28963"))
+ #("i29349" "i29350"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i28957" "i28958"))
+ #("i29344" "i29345"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i28894"
- "i28892"
- "i28890"
- "i28888"
- "i28886"
- "i28884"
- "i28882")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile))
- (cons #{dx 29451}# #{dy 29445}#)))
- #{tmp 29447}#)
- (if (null? #{dy 29445}#)
+ (cons #{dx 29838}# #{dy 29832}#)))
+ #{tmp 29834}#)
+ (if (null? #{dy 29832}#)
(list '#(syntax-object
"list"
((top)
#(ribcage
#(_)
#((top))
- #("i28974"))
+ #("i29361"))
#(ribcage
#(dy)
#((top))
- #("i28968"))
+ #("i29355"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i28962" "i28963"))
+ #("i29349" "i29350"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i28957" "i28958"))
+ #("i29344" "i29345"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i28894"
- "i28892"
- "i28890"
- "i28888"
- "i28886"
- "i28884"
- "i28882")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile))
- #{x 29438}#)
+ #{x 29825}#)
(list '#(syntax-object
"list*"
((top)
#(ribcage
#(_)
#((top))
- #("i28974"))
+ #("i29361"))
#(ribcage
#(dy)
#((top))
- #("i28968"))
+ #("i29355"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i28962" "i28963"))
+ #("i29349" "i29350"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i28957" "i28958"))
+ #("i29344" "i29345"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i28894"
- "i28892"
- "i28890"
- "i28888"
- "i28886"
- "i28884"
- "i28882")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile))
- #{x 29438}#
- #{y 29439}#)))))
- #{tmp 29441}#)
- (let ((#{tmp 29456}#
+ #{x 29825}#
+ #{y 29826}#)))))
+ #{tmp 29828}#)
+ (let ((#{tmp 29843}#
($sc-dispatch
- #{y 29439}#
+ #{y 29826}#
'(#(atom "list") . any))))
- (if #{tmp 29456}#
+ (if #{tmp 29843}#
(@apply
- (lambda (#{stuff 29460}#)
+ (lambda (#{stuff 29847}#)
(cons '#(syntax-object
"list"
((top)
#(ribcage
#(stuff)
#((top))
- #("i28977"))
+ #("i29364"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i28962" "i28963"))
+ #("i29349" "i29350"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i28957" "i28958"))
+ #("i29344" "i29345"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i28894"
- "i28892"
- "i28890"
- "i28888"
- "i28886"
- "i28884"
- "i28882")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile))
- (cons #{x 29438}# #{stuff 29460}#)))
- #{tmp 29456}#)
- (let ((#{tmp 29461}#
+ (cons #{x 29825}# #{stuff 29847}#)))
+ #{tmp 29843}#)
+ (let ((#{tmp 29848}#
($sc-dispatch
- #{y 29439}#
+ #{y 29826}#
'(#(atom "list*") . any))))
- (if #{tmp 29461}#
+ (if #{tmp 29848}#
(@apply
- (lambda (#{stuff 29465}#)
+ (lambda (#{stuff 29852}#)
(cons '#(syntax-object
"list*"
((top)
#(ribcage
#(stuff)
#((top))
- #("i28980"))
+ #("i29367"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i28962" "i28963"))
+ #("i29349" "i29350"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i28957" "i28958"))
+ #("i29344" "i29345"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i28894"
- "i28892"
- "i28890"
- "i28888"
- "i28886"
- "i28884"
- "i28882")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile))
- (cons #{x 29438}# #{stuff 29465}#)))
- #{tmp 29461}#)
+ (cons #{x 29825}# #{stuff 29852}#)))
+ #{tmp 29848}#)
(list '#(syntax-object
"list*"
((top)
- #(ribcage #(_) #((top)) #("i28982"))
+ #(ribcage #(_) #((top)) #("i29369"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i28962" "i28963"))
+ #("i29349" "i29350"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i28957" "i28958"))
+ #("i29344" "i29345"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i28894"
- "i28892"
- "i28890"
- "i28888"
- "i28886"
- "i28884"
- "i28882")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile))
- #{x 29438}#
- #{y 29439}#))))))))
- #{tmp 29436}#)
+ #{x 29825}#
+ #{y 29826}#))))))))
+ #{tmp 29823}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 29435}#))))))
- (#{quasiappend 29155}#
- (lambda (#{x 29476}# #{y 29477}#)
- (let ((#{tmp 29479}#
- ($sc-dispatch #{y 29477}# '(#(atom "quote") ()))))
- (if #{tmp 29479}#
+ #{tmp 29822}#))))))
+ (#{quasiappend 29542}#
+ (lambda (#{x 29863}# #{y 29864}#)
+ (let ((#{tmp 29866}#
+ ($sc-dispatch #{y 29864}# '(#(atom "quote") ()))))
+ (if #{tmp 29866}#
(@apply
(lambda ()
- (if (null? #{x 29476}#)
+ (if (null? #{x 29863}#)
'(#(syntax-object
"quote"
((top)
#(ribcage
#(x y)
#((top) (top))
- #("i28986" "i28987"))
+ #("i29373" "i29374"))
#(ribcage
(emit quasivector
quasilist*
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i28894"
- "i28892"
- "i28890"
- "i28888"
- "i28886"
- "i28884"
- "i28882")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile))
())
- (if (null? (cdr #{x 29476}#))
- (car #{x 29476}#)
- (let ((#{tmp 29484}#
- ($sc-dispatch #{x 29476}# 'each-any)))
- (if #{tmp 29484}#
+ (if (null? (cdr #{x 29863}#))
+ (car #{x 29863}#)
+ (let ((#{tmp 29871}#
+ ($sc-dispatch #{x 29863}# 'each-any)))
+ (if #{tmp 29871}#
(@apply
- (lambda (#{p 29488}#)
+ (lambda (#{p 29875}#)
(cons '#(syntax-object
"append"
((top)
#(ribcage () () ())
- #(ribcage #(p) #((top)) #("i28998"))
+ #(ribcage #(p) #((top)) #("i29385"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i28986" "i28987"))
+ #("i29373" "i29374"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i28894"
- "i28892"
- "i28890"
- "i28888"
- "i28886"
- "i28884"
- "i28882")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile))
- #{p 29488}#))
- #{tmp 29484}#)
+ #{p 29875}#))
+ #{tmp 29871}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{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}#
+ #{x 29863}#))))))
+ #{tmp 29866}#)
+ (if (null? #{x 29863}#)
+ #{y 29864}#
+ (let ((#{tmp 29883}# (list #{x 29863}# #{y 29864}#)))
+ (let ((#{tmp 29884}#
+ ($sc-dispatch #{tmp 29883}# '(each-any any))))
+ (if #{tmp 29884}#
(@apply
- (lambda (#{p 29499}# #{y 29500}#)
+ (lambda (#{p 29886}# #{y 29887}#)
(cons '#(syntax-object
"append"
((top)
#(ribcage
#(p y)
#((top) (top))
- #("i29009" "i29010"))
- #(ribcage #(_) #((top)) #("i29001"))
+ #("i29396" "i29397"))
+ #(ribcage #(_) #((top)) #("i29388"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i28986" "i28987"))
+ #("i29373" "i29374"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i28894"
- "i28892"
- "i28890"
- "i28888"
- "i28886"
- "i28884"
- "i28882")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile))
- (append #{p 29499}# (list #{y 29500}#))))
- #{tmp 29497}#)
+ (append #{p 29886}# (list #{y 29887}#))))
+ #{tmp 29884}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 29496}#)))))))))
- (#{quasilist* 29156}#
- (lambda (#{x 29504}# #{y 29505}#)
+ #{tmp 29883}#)))))))))
+ (#{quasilist* 29543}#
+ (lambda (#{x 29891}# #{y 29892}#)
(letrec*
- ((#{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}#
+ ((#{f 29893}#
+ (lambda (#{x 29982}#)
+ (if (null? #{x 29982}#)
+ #{y 29892}#
+ (#{quasicons 29541}#
+ (car #{x 29982}#)
+ (#{f 29893}# (cdr #{x 29982}#)))))))
+ (#{f 29893}# #{x 29891}#))))
+ (#{emit 29545}#
+ (lambda (#{x 29985}#)
+ (let ((#{tmp 29987}#
+ ($sc-dispatch #{x 29985}# '(#(atom "quote") any))))
+ (if #{tmp 29987}#
(@apply
- (lambda (#{x 29604}#)
+ (lambda (#{x 29991}#)
(list '#(syntax-object
quote
((top)
- #(ribcage #(x) #((top)) #("i29076"))
+ #(ribcage #(x) #((top)) #("i29463"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i29073"))
+ #(ribcage #(x) #((top)) #("i29460"))
#(ribcage
(emit quasivector
quasilist*
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i28894"
- "i28892"
- "i28890"
- "i28888"
- "i28886"
- "i28884"
- "i28882")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile))
- #{x 29604}#))
- #{tmp 29600}#)
- (let ((#{tmp 29605}#
+ #{x 29991}#))
+ #{tmp 29987}#)
+ (let ((#{tmp 29992}#
($sc-dispatch
- #{x 29598}#
+ #{x 29985}#
'(#(atom "list") . each-any))))
- (if #{tmp 29605}#
+ (if #{tmp 29992}#
(@apply
- (lambda (#{x 29609}#)
- (let ((#{tmp 29610}# (map #{emit 29158}# #{x 29609}#)))
- (let ((#{tmp 29611}#
- ($sc-dispatch #{tmp 29610}# 'each-any)))
- (if #{tmp 29611}#
+ (lambda (#{x 29996}#)
+ (let ((#{tmp 29997}# (map #{emit 29545}# #{x 29996}#)))
+ (let ((#{tmp 29998}#
+ ($sc-dispatch #{tmp 29997}# 'each-any)))
+ (if #{tmp 29998}#
(@apply
- (lambda (#{ g29081 29613}#)
+ (lambda (#{ g29468 30000}#)
(cons '#(syntax-object
list
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g29081}#)
- #((m29082 top))
- #("i29086"))
- #(ribcage #(x) #((top)) #("i29079"))
+ #(#{ g29468}#)
+ #((m29469 top))
+ #("i29473"))
+ #(ribcage #(x) #((top)) #("i29466"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i29073"))
+ #(ribcage #(x) #((top)) #("i29460"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i28894"
- "i28892"
- "i28890"
- "i28888"
- "i28886"
- "i28884"
- "i28882")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile))
- #{ g29081 29613}#))
- #{tmp 29611}#)
+ #{ g29468 30000}#))
+ #{tmp 29998}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 29610}#)))))
- #{tmp 29605}#)
- (let ((#{tmp 29614}#
+ #{tmp 29997}#)))))
+ #{tmp 29992}#)
+ (let ((#{tmp 30001}#
($sc-dispatch
- #{x 29598}#
+ #{x 29985}#
'(#(atom "list*") . #(each+ any (any) ())))))
- (if #{tmp 29614}#
+ (if #{tmp 30001}#
(@apply
- (lambda (#{x 29618}# #{y 29619}#)
+ (lambda (#{x 30005}# #{y 30006}#)
(letrec*
- ((#{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}#
+ ((#{f 30007}#
+ (lambda (#{x* 30010}#)
+ (if (null? #{x* 30010}#)
+ (#{emit 29545}# #{y 30006}#)
+ (let ((#{tmp 30011}#
+ (list (#{emit 29545}#
+ (car #{x* 30010}#))
+ (#{f 30007}#
+ (cdr #{x* 30010}#)))))
+ (let ((#{tmp 30012}#
($sc-dispatch
- #{tmp 29624}#
+ #{tmp 30011}#
'(any any))))
- (if #{tmp 29625}#
+ (if #{tmp 30012}#
(@apply
- (lambda (#{ g29101 29627}#
- #{ g29100 29628}#)
+ (lambda (#{ g29488 30014}#
+ #{ g29487 30015}#)
(list '#(syntax-object
cons
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g29101}#
- #{ g29100}#)
- #((m29102 top)
- (m29102 top))
- #("i29106" "i29107"))
+ #(#{ g29488}#
+ #{ g29487}#)
+ #((m29489 top)
+ (m29489 top))
+ #("i29493" "i29494"))
#(ribcage () () ())
#(ribcage
#(f x*)
#((top) (top))
- #("i29095" "i29096"))
+ #("i29482" "i29483"))
#(ribcage
#(x y)
#((top) (top))
- #("i29091" "i29092"))
+ #("i29478" "i29479"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i29073"))
+ #("i29460"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i28894"
- "i28892"
- "i28890"
- "i28888"
- "i28886"
- "i28884"
- "i28882")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile))
- #{ g29101 29627}#
- #{ g29100 29628}#))
- #{tmp 29625}#)
+ #{ g29488 30014}#
+ #{ g29487 30015}#))
+ #{tmp 30012}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 29624}#))))))))
- (#{f 29620}# #{x 29618}#)))
- #{tmp 29614}#)
- (let ((#{tmp 29629}#
+ #{tmp 30011}#))))))))
+ (#{f 30007}# #{x 30005}#)))
+ #{tmp 30001}#)
+ (let ((#{tmp 30016}#
($sc-dispatch
- #{x 29598}#
+ #{x 29985}#
'(#(atom "append") . each-any))))
- (if #{tmp 29629}#
+ (if #{tmp 30016}#
(@apply
- (lambda (#{x 29633}#)
- (let ((#{tmp 29634}#
- (map #{emit 29158}# #{x 29633}#)))
- (let ((#{tmp 29635}#
+ (lambda (#{x 30020}#)
+ (let ((#{tmp 30021}#
+ (map #{emit 29545}# #{x 30020}#)))
+ (let ((#{tmp 30022}#
($sc-dispatch
- #{tmp 29634}#
+ #{tmp 30021}#
'each-any)))
- (if #{tmp 29635}#
+ (if #{tmp 30022}#
(@apply
- (lambda (#{ g29113 29637}#)
+ (lambda (#{ g29500 30024}#)
(cons '#(syntax-object
append
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g29113}#)
- #((m29114 top))
- #("i29118"))
+ #(#{ g29500}#)
+ #((m29501 top))
+ #("i29505"))
#(ribcage
#(x)
#((top))
- #("i29111"))
+ #("i29498"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i29073"))
+ #("i29460"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i28894"
- "i28892"
- "i28890"
- "i28888"
- "i28886"
- "i28884"
- "i28882")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile))
- #{ g29113 29637}#))
- #{tmp 29635}#)
+ #{ g29500 30024}#))
+ #{tmp 30022}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 29634}#)))))
- #{tmp 29629}#)
- (let ((#{tmp 29638}#
+ #{tmp 30021}#)))))
+ #{tmp 30016}#)
+ (let ((#{tmp 30025}#
($sc-dispatch
- #{x 29598}#
+ #{x 29985}#
'(#(atom "vector") . each-any))))
- (if #{tmp 29638}#
+ (if #{tmp 30025}#
(@apply
- (lambda (#{x 29642}#)
- (let ((#{tmp 29643}#
- (map #{emit 29158}# #{x 29642}#)))
- (let ((#{tmp 29644}#
+ (lambda (#{x 30029}#)
+ (let ((#{tmp 30030}#
+ (map #{emit 29545}# #{x 30029}#)))
+ (let ((#{tmp 30031}#
($sc-dispatch
- #{tmp 29643}#
+ #{tmp 30030}#
'each-any)))
- (if #{tmp 29644}#
+ (if #{tmp 30031}#
(@apply
- (lambda (#{ g29125 29646}#)
+ (lambda (#{ g29512 30033}#)
(cons '#(syntax-object
vector
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g29125}#)
- #((m29126 top))
- #("i29130"))
+ #(#{ g29512}#)
+ #((m29513 top))
+ #("i29517"))
#(ribcage
#(x)
#((top))
- #("i29123"))
+ #("i29510"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i29073"))
+ #("i29460"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i28894"
- "i28892"
- "i28890"
- "i28888"
- "i28886"
- "i28884"
- "i28882")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile))
- #{ g29125 29646}#))
- #{tmp 29644}#)
+ #{ g29512 30033}#))
+ #{tmp 30031}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 29643}#)))))
- #{tmp 29638}#)
- (let ((#{tmp 29647}#
+ #{tmp 30030}#)))))
+ #{tmp 30025}#)
+ (let ((#{tmp 30034}#
($sc-dispatch
- #{x 29598}#
+ #{x 29985}#
'(#(atom "list->vector") any))))
- (if #{tmp 29647}#
+ (if #{tmp 30034}#
(@apply
- (lambda (#{x 29651}#)
- (let ((#{tmp 29652}#
- (#{emit 29158}# #{x 29651}#)))
+ (lambda (#{x 30038}#)
+ (let ((#{tmp 30039}#
+ (#{emit 29545}# #{x 30038}#)))
(list '#(syntax-object
list->vector
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g29137}#)
- #((m29138 top))
- #("i29141"))
+ #(#{ g29524}#)
+ #((m29525 top))
+ #("i29528"))
#(ribcage
#(x)
#((top))
- #("i29135"))
+ #("i29522"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i29073"))
+ #("i29460"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i28894"
- "i28892"
- "i28890"
- "i28888"
- "i28886"
- "i28884"
- "i28882")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile))
- #{tmp 29652}#)))
- #{tmp 29647}#)
- (let ((#{tmp 29655}#
+ #{tmp 30039}#)))
+ #{tmp 30034}#)
+ (let ((#{tmp 30042}#
($sc-dispatch
- #{x 29598}#
+ #{x 29985}#
'(#(atom "value") any))))
- (if #{tmp 29655}#
+ (if #{tmp 30042}#
(@apply
- (lambda (#{x 29659}#) #{x 29659}#)
- #{tmp 29655}#)
+ (lambda (#{x 30046}#) #{x 30046}#)
+ #{tmp 30042}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 29598}#))))))))))))))))))
- (lambda (#{x 29159}#)
- (let ((#{tmp 29161}#
- ($sc-dispatch #{x 29159}# '(_ any))))
- (if #{tmp 29161}#
+ #{x 29985}#))))))))))))))))))
+ (lambda (#{x 29546}#)
+ (let ((#{tmp 29548}#
+ ($sc-dispatch #{x 29546}# '(_ any))))
+ (if #{tmp 29548}#
(@apply
- (lambda (#{e 29165}#)
- (#{emit 29158}# (#{quasi 29152}# #{e 29165}# 0)))
- #{tmp 29161}#)
+ (lambda (#{e 29552}#)
+ (#{emit 29545}# (#{quasi 29539}# #{e 29552}# 0)))
+ #{tmp 29548}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 29159}#)))))))
+ #{x 29546}#)))))))
(define include
(make-syntax-transformer
'include
'macro
- (lambda (#{x 29714}#)
+ (lambda (#{x 30101}#)
(letrec*
- ((#{read-file 29715}#
- (lambda (#{fn 29826}# #{k 29827}#)
- (let ((#{p 29828}# (open-input-file #{fn 29826}#)))
+ ((#{read-file 30102}#
+ (lambda (#{fn 30213}# #{k 30214}#)
+ (let ((#{p 30215}# (open-input-file #{fn 30213}#)))
(letrec*
- ((#{f 29829}#
- (lambda (#{x 29883}# #{result 29884}#)
- (if (eof-object? #{x 29883}#)
+ ((#{f 30216}#
+ (lambda (#{x 30270}# #{result 30271}#)
+ (if (eof-object? #{x 30270}#)
(begin
- (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}#
+ (close-input-port #{p 30215}#)
+ (reverse #{result 30271}#))
+ (#{f 30216}#
+ (read #{p 30215}#)
+ (cons (datum->syntax #{k 30214}# #{x 30270}#)
+ #{result 30271}#))))))
+ (#{f 30216}# (read #{p 30215}#) '()))))))
+ (let ((#{tmp 30104}#
+ ($sc-dispatch #{x 30101}# '(any any))))
+ (if #{tmp 30104}#
(@apply
- (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}#
+ (lambda (#{k 30108}# #{filename 30109}#)
+ (let ((#{fn 30110}# (syntax->datum #{filename 30109}#)))
+ (let ((#{tmp 30111}#
+ (#{read-file 30102}#
+ #{fn 30110}#
+ #{filename 30109}#)))
+ (let ((#{tmp 30112}#
+ ($sc-dispatch #{tmp 30111}# 'each-any)))
+ (if #{tmp 30112}#
(@apply
- (lambda (#{exp 29743}#)
+ (lambda (#{exp 30130}#)
(cons '#(syntax-object
begin
((top)
#(ribcage () () ())
- #(ribcage #(exp) #((top)) #("i29711"))
+ #(ribcage #(exp) #((top)) #("i30098"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("i29706"))
+ #(ribcage #(fn) #((top)) #("i30093"))
#(ribcage
#(k filename)
#((top) (top))
- #("i29702" "i29703"))
- #(ribcage (read-file) ((top)) ("i29686"))
- #(ribcage #(x) #((top)) #("i29685")))
+ #("i30089" "i30090"))
+ #(ribcage (read-file) ((top)) ("i30073"))
+ #(ribcage #(x) #((top)) #("i30072")))
(hygiene guile))
- #{exp 29743}#))
- #{tmp 29725}#)
+ #{exp 30130}#))
+ #{tmp 30112}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 29724}#))))))
- #{tmp 29717}#)
+ #{tmp 30111}#))))))
+ #{tmp 30104}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 29714}#)))))))
+ #{x 30101}#)))))))
(define include-from-path
(make-syntax-transformer
'include-from-path
'macro
- (lambda (#{x 29903}#)
- (let ((#{tmp 29905}#
- ($sc-dispatch #{x 29903}# '(any any))))
- (if #{tmp 29905}#
+ (lambda (#{x 30290}#)
+ (let ((#{tmp 30292}#
+ ($sc-dispatch #{x 30290}# '(any any))))
+ (if #{tmp 30292}#
(@apply
- (lambda (#{k 29909}# #{filename 29910}#)
- (let ((#{fn 29911}# (syntax->datum #{filename 29910}#)))
- (let ((#{tmp 29912}#
+ (lambda (#{k 30296}# #{filename 30297}#)
+ (let ((#{fn 30298}# (syntax->datum #{filename 30297}#)))
+ (let ((#{tmp 30299}#
(datum->syntax
- #{filename 29910}#
- (let ((#{t 29915}# (%search-load-path #{fn 29911}#)))
- (if #{t 29915}#
- #{t 29915}#
+ #{filename 30297}#
+ (let ((#{t 30302}# (%search-load-path #{fn 30298}#)))
+ (if #{t 30302}#
+ #{t 30302}#
(syntax-violation
'include-from-path
"file not found in path"
- #{x 29903}#
- #{filename 29910}#))))))
+ #{x 30290}#
+ #{filename 30297}#))))))
(list '#(syntax-object
include
((top)
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("i29897"))
+ #(ribcage #(fn) #((top)) #("i30284"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("i29893"))
+ #(ribcage #(fn) #((top)) #("i30280"))
#(ribcage
#(k filename)
#((top) (top))
- #("i29889" "i29890"))
+ #("i30276" "i30277"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i29886")))
+ #(ribcage #(x) #((top)) #("i30273")))
(hygiene guile))
- #{tmp 29912}#))))
- #{tmp 29905}#)
+ #{tmp 30299}#))))
+ #{tmp 30292}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 29903}#))))))
+ #{x 30290}#))))))
(define unquote
(make-syntax-transformer
'unquote
'macro
- (lambda (#{x 29924}#)
+ (lambda (#{x 30311}#)
(syntax-violation
'unquote
"expression not valid outside of quasiquote"
- #{x 29924}#))))
+ #{x 30311}#))))
(define unquote-splicing
(make-syntax-transformer
'unquote-splicing
'macro
- (lambda (#{x 29927}#)
+ (lambda (#{x 30314}#)
(syntax-violation
'unquote-splicing
"expression not valid outside of quasiquote"
- #{x 29927}#))))
+ #{x 30314}#))))
(define case
(make-syntax-transformer
'case
'macro
- (lambda (#{x 29983}#)
- (let ((#{tmp 29985}#
+ (lambda (#{x 30370}#)
+ (let ((#{tmp 30372}#
($sc-dispatch
- #{x 29983}#
+ #{x 30370}#
'(_ any any . each-any))))
- (if #{tmp 29985}#
+ (if #{tmp 30372}#
(@apply
- (lambda (#{e 29989}# #{m1 29990}# #{m2 29991}#)
- (let ((#{tmp 29992}#
+ (lambda (#{e 30376}# #{m1 30377}# #{m2 30378}#)
+ (let ((#{tmp 30379}#
(letrec*
- ((#{f 30038}#
- (lambda (#{clause 30041}# #{clauses 30042}#)
- (if (null? #{clauses 30042}#)
- (let ((#{tmp 30044}#
+ ((#{f 30425}#
+ (lambda (#{clause 30428}# #{clauses 30429}#)
+ (if (null? #{clauses 30429}#)
+ (let ((#{tmp 30431}#
($sc-dispatch
- #{clause 30041}#
+ #{clause 30428}#
'(#(free-id
#(syntax-object
else
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i29942"
- "i29943"
- "i29944"))
+ #("i30329"
+ "i30330"
+ "i30331"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i29932"
- "i29933"
- "i29934"))
+ #("i30319"
+ "i30320"
+ "i30321"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i29929")))
+ #("i30316")))
(hygiene guile)))
any
.
each-any))))
- (if #{tmp 30044}#
+ (if #{tmp 30431}#
(@apply
- (lambda (#{e1 30048}# #{e2 30049}#)
+ (lambda (#{e1 30435}# #{e2 30436}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i29951" "i29952"))
+ #("i30338" "i30339"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i29942"
- "i29943"
- "i29944"))
+ #("i30329"
+ "i30330"
+ "i30331"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i29932"
- "i29933"
- "i29934"))
+ #("i30319"
+ "i30320"
+ "i30321"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i29929")))
+ #("i30316")))
(hygiene guile))
- (cons #{e1 30048}# #{e2 30049}#)))
- #{tmp 30044}#)
- (let ((#{tmp 30050}#
+ (cons #{e1 30435}# #{e2 30436}#)))
+ #{tmp 30431}#)
+ (let ((#{tmp 30437}#
($sc-dispatch
- #{clause 30041}#
+ #{clause 30428}#
'(each-any any . each-any))))
- (if #{tmp 30050}#
+ (if #{tmp 30437}#
(@apply
- (lambda (#{k 30054}#
- #{e1 30055}#
- #{e2 30056}#)
+ (lambda (#{k 30441}#
+ #{e1 30442}#
+ #{e2 30443}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i29957"
- "i29958"
- "i29959"))
+ #("i30344"
+ "i30345"
+ "i30346"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i29942"
- "i29943"
- "i29944"))
+ #("i30329"
+ "i30330"
+ "i30331"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i29932"
- "i29933"
- "i29934"))
+ #("i30319"
+ "i30320"
+ "i30321"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i29929")))
+ #("i30316")))
(hygiene guile))
(list '#(syntax-object
memv
#((top)
(top)
(top))
- #("i29957"
- "i29958"
- "i29959"))
+ #("i30344"
+ "i30345"
+ "i30346"))
#(ribcage () () ())
#(ribcage
#(f
#((top)
(top)
(top))
- #("i29942"
- "i29943"
- "i29944"))
+ #("i30329"
+ "i30330"
+ "i30331"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i29932"
- "i29933"
- "i29934"))
+ #("i30319"
+ "i30320"
+ "i30321"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i29929")))
+ #("i30316")))
(hygiene guile))
'#(syntax-object
t
#((top)
(top)
(top))
- #("i29957"
- "i29958"
- "i29959"))
+ #("i30344"
+ "i30345"
+ "i30346"))
#(ribcage () () ())
#(ribcage
#(f
#((top)
(top)
(top))
- #("i29942"
- "i29943"
- "i29944"))
+ #("i30329"
+ "i30330"
+ "i30331"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i29932"
- "i29933"
- "i29934"))
+ #("i30319"
+ "i30320"
+ "i30321"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i29929")))
+ #("i30316")))
(hygiene guile))
(list '#(syntax-object
quote
#((top)
(top)
(top))
- #("i29957"
- "i29958"
- "i29959"))
+ #("i30344"
+ "i30345"
+ "i30346"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i29942"
- "i29943"
- "i29944"))
+ #("i30329"
+ "i30330"
+ "i30331"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i29932"
- "i29933"
- "i29934"))
+ #("i30319"
+ "i30320"
+ "i30321"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i29929")))
+ #("i30316")))
(hygiene
guile))
- #{k 30054}#))
+ #{k 30441}#))
(cons '#(syntax-object
begin
((top)
#((top)
(top)
(top))
- #("i29957"
- "i29958"
- "i29959"))
+ #("i30344"
+ "i30345"
+ "i30346"))
#(ribcage () () ())
#(ribcage
#(f
#((top)
(top)
(top))
- #("i29942"
- "i29943"
- "i29944"))
+ #("i30329"
+ "i30330"
+ "i30331"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i29932"
- "i29933"
- "i29934"))
+ #("i30319"
+ "i30320"
+ "i30321"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i29929")))
+ #("i30316")))
(hygiene guile))
- (cons #{e1 30055}#
- #{e2 30056}#))))
- #{tmp 30050}#)
+ (cons #{e1 30442}#
+ #{e2 30443}#))))
+ #{tmp 30437}#)
(syntax-violation
'case
"bad clause"
- #{x 29983}#
- #{clause 30041}#)))))
- (let ((#{tmp 30064}#
- (#{f 30038}#
- (car #{clauses 30042}#)
- (cdr #{clauses 30042}#))))
- (let ((#{tmp 30067}#
+ #{x 30370}#
+ #{clause 30428}#)))))
+ (let ((#{tmp 30451}#
+ (#{f 30425}#
+ (car #{clauses 30429}#)
+ (cdr #{clauses 30429}#))))
+ (let ((#{tmp 30454}#
($sc-dispatch
- #{clause 30041}#
+ #{clause 30428}#
'(each-any any . each-any))))
- (if #{tmp 30067}#
+ (if #{tmp 30454}#
(@apply
- (lambda (#{k 30071}#
- #{e1 30072}#
- #{e2 30073}#)
+ (lambda (#{k 30458}#
+ #{e1 30459}#
+ #{e2 30460}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i29973"
- "i29974"
- "i29975"))
+ #("i30360"
+ "i30361"
+ "i30362"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("i29969"))
+ #("i30356"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i29942"
- "i29943"
- "i29944"))
+ #("i30329"
+ "i30330"
+ "i30331"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i29932"
- "i29933"
- "i29934"))
+ #("i30319"
+ "i30320"
+ "i30321"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i29929")))
+ #("i30316")))
(hygiene guile))
(list '#(syntax-object
memv
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i29973"
- "i29974"
- "i29975"))
+ #("i30360"
+ "i30361"
+ "i30362"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("i29969"))
+ #("i30356"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i29942"
- "i29943"
- "i29944"))
+ #("i30329"
+ "i30330"
+ "i30331"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i29932"
- "i29933"
- "i29934"))
+ #("i30319"
+ "i30320"
+ "i30321"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i29929")))
+ #("i30316")))
(hygiene guile))
'#(syntax-object
t
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i29973"
- "i29974"
- "i29975"))
+ #("i30360"
+ "i30361"
+ "i30362"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("i29969"))
+ #("i30356"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i29942"
- "i29943"
- "i29944"))
+ #("i30329"
+ "i30330"
+ "i30331"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i29932"
- "i29933"
- "i29934"))
+ #("i30319"
+ "i30320"
+ "i30321"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i29929")))
+ #("i30316")))
(hygiene guile))
(list '#(syntax-object
quote
#((top)
(top)
(top))
- #("i29973"
- "i29974"
- "i29975"))
+ #("i30360"
+ "i30361"
+ "i30362"))
#(ribcage
()
()
#(ribcage
#(rest)
#((top))
- #("i29969"))
+ #("i30356"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i29942"
- "i29943"
- "i29944"))
+ #("i30329"
+ "i30330"
+ "i30331"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i29932"
- "i29933"
- "i29934"))
+ #("i30319"
+ "i30320"
+ "i30321"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i29929")))
+ #("i30316")))
(hygiene guile))
- #{k 30071}#))
+ #{k 30458}#))
(cons '#(syntax-object
begin
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i29973"
- "i29974"
- "i29975"))
+ #("i30360"
+ "i30361"
+ "i30362"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("i29969"))
+ #("i30356"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i29942"
- "i29943"
- "i29944"))
+ #("i30329"
+ "i30330"
+ "i30331"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i29932"
- "i29933"
- "i29934"))
+ #("i30319"
+ "i30320"
+ "i30321"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i29929")))
+ #("i30316")))
(hygiene guile))
- (cons #{e1 30072}#
- #{e2 30073}#))
- #{tmp 30064}#))
- #{tmp 30067}#)
+ (cons #{e1 30459}#
+ #{e2 30460}#))
+ #{tmp 30451}#))
+ #{tmp 30454}#)
(syntax-violation
'case
"bad clause"
- #{x 29983}#
- #{clause 30041}#))))))))
- (#{f 30038}# #{m1 29990}# #{m2 29991}#))))
- (let ((#{body 29993}# #{tmp 29992}#))
+ #{x 30370}#
+ #{clause 30428}#))))))))
+ (#{f 30425}# #{m1 30377}# #{m2 30378}#))))
+ (let ((#{body 30380}# #{tmp 30379}#))
(list '#(syntax-object
let
((top)
#(ribcage () () ())
- #(ribcage #(body) #((top)) #("i29940"))
+ #(ribcage #(body) #((top)) #("i30327"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i29932" "i29933" "i29934"))
+ #("i30319" "i30320" "i30321"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i29929")))
+ #(ribcage #(x) #((top)) #("i30316")))
(hygiene guile))
(list (list '#(syntax-object
t
((top)
#(ribcage () () ())
- #(ribcage #(body) #((top)) #("i29940"))
+ #(ribcage #(body) #((top)) #("i30327"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i29932" "i29933" "i29934"))
+ #("i30319" "i30320" "i30321"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i29929")))
+ #(ribcage #(x) #((top)) #("i30316")))
(hygiene guile))
- #{e 29989}#))
- #{body 29993}#))))
- #{tmp 29985}#)
+ #{e 30376}#))
+ #{body 30380}#))))
+ #{tmp 30372}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 29983}#))))))
+ #{x 30370}#))))))
(define make-variable-transformer
- (lambda (#{proc 30091}#)
- (if (procedure? #{proc 30091}#)
+ (lambda (#{proc 30478}#)
+ (if (procedure? #{proc 30478}#)
(letrec*
- ((#{trans 30092}#
- (lambda (#{x 30098}#)
- (#{proc 30091}# #{x 30098}#))))
+ ((#{trans 30479}#
+ (lambda (#{x 30485}#)
+ (#{proc 30478}# #{x 30485}#))))
(begin
(set-procedure-property!
- #{trans 30092}#
+ #{trans 30479}#
'variable-transformer
#t)
- #{trans 30092}#))
+ #{trans 30479}#))
(error "variable transformer not a procedure"
- #{proc 30091}#))))
+ #{proc 30478}#))))
(define identifier-syntax
(make-syntax-transformer
'identifier-syntax
'macro
- (lambda (#{x 30130}#)
- (let ((#{tmp 30132}#
- ($sc-dispatch #{x 30130}# '(_ any))))
- (if #{tmp 30132}#
+ (lambda (#{x 30517}#)
+ (let ((#{tmp 30519}#
+ ($sc-dispatch #{x 30517}# '(_ any))))
+ (if #{tmp 30519}#
(@apply
- (lambda (#{e 30136}#)
+ (lambda (#{e 30523}#)
(list '#(syntax-object
lambda
((top)
- #(ribcage #(e) #((top)) #("i30105"))
+ #(ribcage #(e) #((top)) #("i30492"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30102")))
+ #(ribcage #(x) #((top)) #("i30489")))
(hygiene guile))
'(#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("i30105"))
+ #(ribcage #(e) #((top)) #("i30492"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30102")))
+ #(ribcage #(x) #((top)) #("i30489")))
(hygiene guile)))
'#((#(syntax-object
macro-type
((top)
- #(ribcage #(e) #((top)) #("i30105"))
+ #(ribcage #(e) #((top)) #("i30492"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30102")))
+ #(ribcage #(x) #((top)) #("i30489")))
(hygiene guile))
.
#(syntax-object
identifier-syntax
((top)
- #(ribcage #(e) #((top)) #("i30105"))
+ #(ribcage #(e) #((top)) #("i30492"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30102")))
+ #(ribcage #(x) #((top)) #("i30489")))
(hygiene guile))))
(list '#(syntax-object
syntax-case
((top)
- #(ribcage #(e) #((top)) #("i30105"))
+ #(ribcage #(e) #((top)) #("i30492"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30102")))
+ #(ribcage #(x) #((top)) #("i30489")))
(hygiene guile))
'#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("i30105"))
+ #(ribcage #(e) #((top)) #("i30492"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30102")))
+ #(ribcage #(x) #((top)) #("i30489")))
(hygiene guile))
'()
(list '#(syntax-object
id
((top)
- #(ribcage #(e) #((top)) #("i30105"))
+ #(ribcage #(e) #((top)) #("i30492"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30102")))
+ #(ribcage #(x) #((top)) #("i30489")))
(hygiene guile))
'(#(syntax-object
identifier?
((top)
- #(ribcage #(e) #((top)) #("i30105"))
+ #(ribcage #(e) #((top)) #("i30492"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30102")))
+ #(ribcage #(x) #((top)) #("i30489")))
(hygiene guile))
(#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("i30105"))
+ #(ribcage #(e) #((top)) #("i30492"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30102")))
+ #(ribcage #(x) #((top)) #("i30489")))
(hygiene guile))
#(syntax-object
id
((top)
- #(ribcage #(e) #((top)) #("i30105"))
+ #(ribcage #(e) #((top)) #("i30492"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30102")))
+ #(ribcage #(x) #((top)) #("i30489")))
(hygiene guile))))
(list '#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("i30105"))
+ #(ribcage #(e) #((top)) #("i30492"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30102")))
+ #(ribcage #(x) #((top)) #("i30489")))
(hygiene guile))
- #{e 30136}#))
+ #{e 30523}#))
(list '(#(syntax-object
_
((top)
- #(ribcage #(e) #((top)) #("i30105"))
+ #(ribcage #(e) #((top)) #("i30492"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30102")))
+ #(ribcage #(x) #((top)) #("i30489")))
(hygiene guile))
#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("i30105"))
+ #(ribcage #(e) #((top)) #("i30492"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30102")))
+ #(ribcage #(x) #((top)) #("i30489")))
(hygiene guile))
#(syntax-object
...
((top)
- #(ribcage #(e) #((top)) #("i30105"))
+ #(ribcage #(e) #((top)) #("i30492"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30102")))
+ #(ribcage #(x) #((top)) #("i30489")))
(hygiene guile)))
(list '#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("i30105"))
+ #(ribcage #(e) #((top)) #("i30492"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30102")))
+ #(ribcage #(x) #((top)) #("i30489")))
(hygiene guile))
- (cons #{e 30136}#
+ (cons #{e 30523}#
'(#(syntax-object
x
((top)
#(ribcage
#(e)
#((top))
- #("i30105"))
+ #("i30492"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i30102")))
+ #("i30489")))
(hygiene guile))
#(syntax-object
...
#(ribcage
#(e)
#((top))
- #("i30105"))
+ #("i30492"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i30102")))
+ #("i30489")))
(hygiene guile)))))))))
- #{tmp 30132}#)
- (let ((#{tmp 30137}#
+ #{tmp 30519}#)
+ (let ((#{tmp 30524}#
($sc-dispatch
- #{x 30130}#
+ #{x 30517}#
'(_ (any any)
((#(free-id
#(syntax-object
set!
((top)
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30102")))
+ #(ribcage #(x) #((top)) #("i30489")))
(hygiene guile)))
any
any)
any)))))
- (if (if #{tmp 30137}#
+ (if (if #{tmp 30524}#
(@apply
- (lambda (#{id 30141}#
- #{exp1 30142}#
- #{var 30143}#
- #{val 30144}#
- #{exp2 30145}#)
- (if (identifier? #{id 30141}#)
- (identifier? #{var 30143}#)
+ (lambda (#{id 30528}#
+ #{exp1 30529}#
+ #{var 30530}#
+ #{val 30531}#
+ #{exp2 30532}#)
+ (if (identifier? #{id 30528}#)
+ (identifier? #{var 30530}#)
#f))
- #{tmp 30137}#)
+ #{tmp 30524}#)
#f)
(@apply
- (lambda (#{id 30146}#
- #{exp1 30147}#
- #{var 30148}#
- #{val 30149}#
- #{exp2 30150}#)
+ (lambda (#{id 30533}#
+ #{exp1 30534}#
+ #{var 30535}#
+ #{val 30536}#
+ #{exp2 30537}#)
(list '#(syntax-object
make-variable-transformer
((top)
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i30120" "i30121" "i30122" "i30123" "i30124"))
+ #("i30507" "i30508" "i30509" "i30510" "i30511"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30102")))
+ #(ribcage #(x) #((top)) #("i30489")))
(hygiene guile))
(list '#(syntax-object
lambda
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i30120"
- "i30121"
- "i30122"
- "i30123"
- "i30124"))
+ #("i30507"
+ "i30508"
+ "i30509"
+ "i30510"
+ "i30511"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30102")))
+ #(ribcage #(x) #((top)) #("i30489")))
(hygiene guile))
'(#(syntax-object
x
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i30120"
- "i30121"
- "i30122"
- "i30123"
- "i30124"))
+ #("i30507"
+ "i30508"
+ "i30509"
+ "i30510"
+ "i30511"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30102")))
+ #(ribcage #(x) #((top)) #("i30489")))
(hygiene guile)))
'#((#(syntax-object
macro-type
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i30120"
- "i30121"
- "i30122"
- "i30123"
- "i30124"))
+ #("i30507"
+ "i30508"
+ "i30509"
+ "i30510"
+ "i30511"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30102")))
+ #(ribcage #(x) #((top)) #("i30489")))
(hygiene guile))
.
#(syntax-object
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i30120"
- "i30121"
- "i30122"
- "i30123"
- "i30124"))
+ #("i30507"
+ "i30508"
+ "i30509"
+ "i30510"
+ "i30511"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30102")))
+ #(ribcage #(x) #((top)) #("i30489")))
(hygiene guile))))
(list '#(syntax-object
syntax-case
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i30120"
- "i30121"
- "i30122"
- "i30123"
- "i30124"))
+ #("i30507"
+ "i30508"
+ "i30509"
+ "i30510"
+ "i30511"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30102")))
+ #(ribcage #(x) #((top)) #("i30489")))
(hygiene guile))
'#(syntax-object
x
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i30120"
- "i30121"
- "i30122"
- "i30123"
- "i30124"))
+ #("i30507"
+ "i30508"
+ "i30509"
+ "i30510"
+ "i30511"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30102")))
+ #(ribcage #(x) #((top)) #("i30489")))
(hygiene guile))
'(#(syntax-object
set!
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i30120"
- "i30121"
- "i30122"
- "i30123"
- "i30124"))
+ #("i30507"
+ "i30508"
+ "i30509"
+ "i30510"
+ "i30511"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30102")))
+ #(ribcage #(x) #((top)) #("i30489")))
(hygiene guile)))
(list (list '#(syntax-object
set!
(top)
(top)
(top))
- #("i30120"
- "i30121"
- "i30122"
- "i30123"
- "i30124"))
+ #("i30507"
+ "i30508"
+ "i30509"
+ "i30510"
+ "i30511"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i30102")))
+ #("i30489")))
(hygiene guile))
- #{var 30148}#
- #{val 30149}#)
+ #{var 30535}#
+ #{val 30536}#)
(list '#(syntax-object
syntax
((top)
(top)
(top)
(top))
- #("i30120"
- "i30121"
- "i30122"
- "i30123"
- "i30124"))
+ #("i30507"
+ "i30508"
+ "i30509"
+ "i30510"
+ "i30511"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i30102")))
+ #("i30489")))
(hygiene guile))
- #{exp2 30150}#))
- (list (cons #{id 30146}#
+ #{exp2 30537}#))
+ (list (cons #{id 30533}#
'(#(syntax-object
x
((top)
(top)
(top)
(top))
- #("i30120"
- "i30121"
- "i30122"
- "i30123"
- "i30124"))
+ #("i30507"
+ "i30508"
+ "i30509"
+ "i30510"
+ "i30511"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i30102")))
+ #("i30489")))
(hygiene guile))
#(syntax-object
...
(top)
(top)
(top))
- #("i30120"
- "i30121"
- "i30122"
- "i30123"
- "i30124"))
+ #("i30507"
+ "i30508"
+ "i30509"
+ "i30510"
+ "i30511"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i30102")))
+ #("i30489")))
(hygiene guile))))
(list '#(syntax-object
syntax
(top)
(top)
(top))
- #("i30120"
- "i30121"
- "i30122"
- "i30123"
- "i30124"))
+ #("i30507"
+ "i30508"
+ "i30509"
+ "i30510"
+ "i30511"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i30102")))
+ #("i30489")))
(hygiene guile))
- (cons #{exp1 30147}#
+ (cons #{exp1 30534}#
'(#(syntax-object
x
((top)
(top)
(top)
(top))
- #("i30120"
- "i30121"
- "i30122"
- "i30123"
- "i30124"))
+ #("i30507"
+ "i30508"
+ "i30509"
+ "i30510"
+ "i30511"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i30102")))
+ #("i30489")))
(hygiene guile))
#(syntax-object
...
(top)
(top)
(top))
- #("i30120"
- "i30121"
- "i30122"
- "i30123"
- "i30124"))
+ #("i30507"
+ "i30508"
+ "i30509"
+ "i30510"
+ "i30511"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i30102")))
+ #("i30489")))
(hygiene guile))))))
- (list #{id 30146}#
+ (list #{id 30533}#
(list '#(syntax-object
identifier?
((top)
(top)
(top)
(top))
- #("i30120"
- "i30121"
- "i30122"
- "i30123"
- "i30124"))
+ #("i30507"
+ "i30508"
+ "i30509"
+ "i30510"
+ "i30511"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i30102")))
+ #("i30489")))
(hygiene guile))
(list '#(syntax-object
syntax
(top)
(top)
(top))
- #("i30120"
- "i30121"
- "i30122"
- "i30123"
- "i30124"))
+ #("i30507"
+ "i30508"
+ "i30509"
+ "i30510"
+ "i30511"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i30102")))
+ #("i30489")))
(hygiene guile))
- #{id 30146}#))
+ #{id 30533}#))
(list '#(syntax-object
syntax
((top)
(top)
(top)
(top))
- #("i30120"
- "i30121"
- "i30122"
- "i30123"
- "i30124"))
+ #("i30507"
+ "i30508"
+ "i30509"
+ "i30510"
+ "i30511"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i30102")))
+ #("i30489")))
(hygiene guile))
- #{exp1 30147}#))))))
- #{tmp 30137}#)
+ #{exp1 30534}#))))))
+ #{tmp 30524}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 30130}#))))))))
+ #{x 30517}#))))))))
(define define*
(make-syntax-transformer
'define*
'macro
- (lambda (#{x 30182}#)
- (let ((#{tmp 30184}#
+ (lambda (#{x 30569}#)
+ (let ((#{tmp 30571}#
($sc-dispatch
- #{x 30182}#
+ #{x 30569}#
'(_ (any . any) any . each-any))))
- (if #{tmp 30184}#
+ (if #{tmp 30571}#
(@apply
- (lambda (#{id 30188}#
- #{args 30189}#
- #{b0 30190}#
- #{b1 30191}#)
+ (lambda (#{id 30575}#
+ #{args 30576}#
+ #{b0 30577}#
+ #{b1 30578}#)
(list '#(syntax-object
define
((top)
#(ribcage
#(id args b0 b1)
#((top) (top) (top) (top))
- #("i30164" "i30165" "i30166" "i30167"))
+ #("i30551" "i30552" "i30553" "i30554"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30161")))
+ #(ribcage #(x) #((top)) #("i30548")))
(hygiene guile))
- #{id 30188}#
+ #{id 30575}#
(cons '#(syntax-object
lambda*
((top)
#(ribcage
#(id args b0 b1)
#((top) (top) (top) (top))
- #("i30164" "i30165" "i30166" "i30167"))
+ #("i30551" "i30552" "i30553" "i30554"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30161")))
+ #(ribcage #(x) #((top)) #("i30548")))
(hygiene guile))
- (cons #{args 30189}#
- (cons #{b0 30190}# #{b1 30191}#)))))
- #{tmp 30184}#)
- (let ((#{tmp 30192}#
- ($sc-dispatch #{x 30182}# '(_ any any))))
- (if (if #{tmp 30192}#
+ (cons #{args 30576}#
+ (cons #{b0 30577}# #{b1 30578}#)))))
+ #{tmp 30571}#)
+ (let ((#{tmp 30579}#
+ ($sc-dispatch #{x 30569}# '(_ any any))))
+ (if (if #{tmp 30579}#
(@apply
- (lambda (#{id 30196}# #{val 30197}#)
+ (lambda (#{id 30583}# #{val 30584}#)
(identifier?
'#(syntax-object
x
#(ribcage
#(id val)
#((top) (top))
- #("i30174" "i30175"))
+ #("i30561" "i30562"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30161")))
+ #(ribcage #(x) #((top)) #("i30548")))
(hygiene guile))))
- #{tmp 30192}#)
+ #{tmp 30579}#)
#f)
(@apply
- (lambda (#{id 30198}# #{val 30199}#)
+ (lambda (#{id 30585}# #{val 30586}#)
(list '#(syntax-object
define
((top)
#(ribcage
#(id val)
#((top) (top))
- #("i30178" "i30179"))
+ #("i30565" "i30566"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30161")))
+ #(ribcage #(x) #((top)) #("i30548")))
(hygiene guile))
- #{id 30198}#
- #{val 30199}#))
- #{tmp 30192}#)
+ #{id 30585}#
+ #{val 30586}#))
+ #{tmp 30579}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 30182}#))))))))
+ #{x 30569}#))))))))
HCoop / bpt / guile.git / commitdiff