From 440ac793c4f32d1eeef89eb9974be39270c18069 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Wed, 16 Nov 2011 20:15:26 +0100 Subject: [PATCH] eval-when tidying up * module/ice-9/psyntax.scm: Rename expand-when-list to parse-when-list, and simplify to compare literal values. * module/ice-9/psyntax-pp.scm: Regenerate. --- module/ice-9/psyntax-pp.scm | 17348 +++++++++++++--------------------- module/ice-9/psyntax.scm | 30 +- 2 files changed, 6677 insertions(+), 10701 deletions(-) diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm index fd6398972..644ebf5c9 100644 --- a/module/ice-9/psyntax-pp.scm +++ b/module/ice-9/psyntax-pp.scm @@ -2,1212 +2,1211 @@ (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) @@ -1219,4432 +1218,416 @@ '(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) @@ -5657,10 +1640,10 @@ (top) (top) (top)) - #("i1855" - "i1856" - "i1857" - "i1858")) + #("i1843" + "i1844" + "i1845" + "i1846")) #(ribcage () () @@ -5682,12 +1665,12 @@ (top) (top) (top)) - #("i1808" - "i1809" - "i1810" - "i1811" - "i1812" - "i1813")) + #("i1796" + "i1797" + "i1798" + "i1799" + "i1800" + "i1801")) #(ribcage () () @@ -5695,7 +1678,7 @@ #(ribcage #(first) #((top)) - #("i1800")) + #("i1788")) #(ribcage () () @@ -5723,13 +1706,13 @@ (top) (top) (top)) - #("i1772" - "i1773" - "i1774" - "i1775" - "i1776" - "i1777" - "i1778")) + #("i1760" + "i1761" + "i1762" + "i1763" + "i1764" + "i1765" + "i1766")) #(ribcage (lambda-var-list gen-var @@ -5748,7 +1731,7 @@ expand-expr expand syntax-type - expand-when-list + parse-when-list expand-install-global expand-top-sequence expand-sequence @@ -6151,67 +2134,67 @@ "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 @@ -6227,17 +2210,17 @@ (top) (top) (top)) - #("i1808" - "i1809" - "i1810" - "i1811" - "i1812" - "i1813")) + #("i1796" + "i1797" + "i1798" + "i1799" + "i1800" + "i1801")) #(ribcage () () ()) #(ribcage #(first) #((top)) - #("i1800")) + #("i1788")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ()) @@ -6256,13 +2239,13 @@ (top) (top) (top)) - #("i1772" - "i1773" - "i1774" - "i1775" - "i1776" - "i1777" - "i1778")) + #("i1760" + "i1761" + "i1762" + "i1763" + "i1764" + "i1765" + "i1766")) #(ribcage (lambda-var-list gen-var @@ -6281,7 +2264,7 @@ expand-expr expand syntax-type - expand-when-list + parse-when-list expand-install-global expand-top-sequence expand-sequence @@ -6687,7 +2670,7 @@ #(ribcage #(name) #((top)) - #("i1868")) + #("i1856")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage @@ -6703,17 +2686,17 @@ (top) (top) (top)) - #("i1808" - "i1809" - "i1810" - "i1811" - "i1812" - "i1813")) + #("i1796" + "i1797" + "i1798" + "i1799" + "i1800" + "i1801")) #(ribcage () () ()) #(ribcage #(first) #((top)) - #("i1800")) + #("i1788")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ()) @@ -6732,13 +2715,13 @@ (top) (top) (top)) - #("i1772" - "i1773" - "i1774" - "i1775" - "i1776" - "i1777" - "i1778")) + #("i1760" + "i1761" + "i1762" + "i1763" + "i1764" + "i1765" + "i1766")) #(ribcage (lambda-var-list gen-var @@ -6757,7 +2740,7 @@ expand-expr expand syntax-type - expand-when-list + parse-when-list expand-install-global expand-top-sequence expand-sequence @@ -7163,7 +3146,7 @@ #(ribcage #(name) #((top)) - #("i1868")) + #("i1856")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage @@ -7179,17 +3162,17 @@ (top) (top) (top)) - #("i1808" - "i1809" - "i1810" - "i1811" - "i1812" - "i1813")) + #("i1796" + "i1797" + "i1798" + "i1799" + "i1800" + "i1801")) #(ribcage () () ()) #(ribcage #(first) #((top)) - #("i1800")) + #("i1788")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ()) @@ -7208,13 +3191,13 @@ (top) (top) (top)) - #("i1772" - "i1773" - "i1774" - "i1775" - "i1776" - "i1777" - "i1778")) + #("i1760" + "i1761" + "i1762" + "i1763" + "i1764" + "i1765" + "i1766")) #(ribcage (lambda-var-list gen-var @@ -7233,7 +3216,7 @@ expand-expr expand syntax-type - expand-when-list + parse-when-list expand-install-global expand-top-sequence expand-sequence @@ -7634,970 +3617,969 @@ "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 @@ -8616,7 +4598,7 @@ expand-expr expand syntax-type - expand-when-list + parse-when-list expand-install-global expand-top-sequence expand-sequence @@ -9023,7 +5005,7 @@ ((top) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i2230")) + #(ribcage #(x) #((top)) #("i2218")) #(ribcage (lambda-var-list gen-var @@ -9042,7 +5024,7 @@ expand-expr expand syntax-type - expand-when-list + parse-when-list expand-install-global expand-top-sequence expand-sequence @@ -9440,14 +5422,14 @@ ((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 @@ -9466,7 +5448,7 @@ expand-expr expand syntax-type - expand-when-list + parse-when-list expand-install-global expand-top-sequence expand-sequence @@ -9867,300 +5849,300 @@ '(()))) #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 @@ -10179,7 +6161,7 @@ expand-expr expand syntax-type - expand-when-list + parse-when-list expand-install-global expand-top-sequence expand-sequence @@ -10577,147 +6559,147 @@ ((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) @@ -10725,11 +6707,11 @@ #(ribcage #(k) #((top)) - #("i2432")) + #("i2420")) #(ribcage #(a b) #((top) (top)) - #("i2426" "i2427")) + #("i2414" "i2415")) #(ribcage () () ()) #(ribcage #(args req opt rkey) @@ -10737,10 +6719,10 @@ (top) (top) (top)) - #("i2415" - "i2416" - "i2417" - "i2418")) + #("i2403" + "i2404" + "i2405" + "i2406")) #(ribcage (check rest key opt req) ((top) @@ -10748,15 +6730,15 @@ (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 @@ -10775,7 +6757,7 @@ expand-expr expand syntax-type - expand-when-list + parse-when-list expand-install-global expand-top-sequence expand-sequence @@ -11173,780 +7155,780 @@ ((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) @@ -11962,1354 +7944,1354 @@ '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) @@ -13323,25 +9305,25 @@ (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 @@ -13360,7 +9342,7 @@ expand-expr expand syntax-type - expand-when-list + parse-when-list expand-install-global expand-top-sequence expand-sequence @@ -13758,62 +9740,62 @@ ((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 @@ -13822,12 +9804,12 @@ #(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 @@ -13846,7 +9828,7 @@ expand-expr expand syntax-type - expand-when-list + parse-when-list expand-install-global expand-top-sequence expand-sequence @@ -14244,70 +10226,70 @@ ((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 @@ -14315,12 +10297,12 @@ #(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 @@ -14339,7 +10321,7 @@ expand-expr expand syntax-type - expand-when-list + parse-when-list expand-install-global expand-top-sequence expand-sequence @@ -14737,127 +10719,127 @@ ((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 @@ -14880,75 +10862,75 @@ '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 _ @@ -14957,19 +10939,19 @@ #(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 @@ -14979,10 +10961,10 @@ (top) (top) (top)) - ("i3710" - "i3708" - "i3706" - "i3704")) + ("i3698" + "i3696" + "i3694" + "i3692")) #(ribcage (lambda-var-list gen-var @@ -15001,7 +10983,7 @@ expand-expr expand syntax-type - expand-when-list + parse-when-list expand-install-global expand-top-sequence expand-sequence @@ -15410,22 +11392,22 @@ #(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 @@ -15444,7 +11426,7 @@ expand-expr expand syntax-type - expand-when-list + parse-when-list expand-install-global expand-top-sequence expand-sequence @@ -15842,8 +11824,8 @@ ((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) @@ -15851,22 +11833,22 @@ #(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 @@ -15885,7 +11867,7 @@ expand-expr expand syntax-type - expand-when-list + parse-when-list expand-install-global expand-top-sequence expand-sequence @@ -16285,40 +12267,40 @@ (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 ... @@ -16334,7 +12316,7 @@ #(ribcage #(x) #((top)) - #("i2230")) + #("i2218")) #(ribcage (lambda-var-list gen-var @@ -16353,7 +12335,7 @@ expand-expr expand syntax-type - expand-when-list + parse-when-list expand-install-global expand-top-sequence expand-sequence @@ -16767,7 +12749,7 @@ #(ribcage #(x) #((top)) - #("i2230")) + #("i2218")) #(ribcage (lambda-var-list gen-var @@ -16786,7 +12768,7 @@ expand-expr expand syntax-type - expand-when-list + parse-when-list expand-install-global expand-top-sequence expand-sequence @@ -17184,10 +13166,10 @@ ((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) @@ -17196,7 +13178,7 @@ #(ribcage #(x) #((top)) - #("i2230")) + #("i2218")) #(ribcage (lambda-var-list gen-var @@ -17215,7 +13197,7 @@ expand-expr expand syntax-type - expand-when-list + parse-when-list expand-install-global expand-top-sequence expand-sequence @@ -17616,58 +13598,58 @@ '(()))) #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 ... @@ -17683,7 +13665,7 @@ #(ribcage #(x) #((top)) - #("i2230")) + #("i2218")) #(ribcage (lambda-var-list gen-var @@ -17702,7 +13684,7 @@ expand-expr expand syntax-type - expand-when-list + parse-when-list expand-install-global expand-top-sequence expand-sequence @@ -18117,7 +14099,7 @@ #(ribcage #(x) #((top)) - #("i2230")) + #("i2218")) #(ribcage (lambda-var-list gen-var @@ -18136,7 +14118,7 @@ expand-expr expand syntax-type - expand-when-list + parse-when-list expand-install-global expand-top-sequence expand-sequence @@ -18534,10 +14516,10 @@ ((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) @@ -18546,7 +14528,7 @@ #(ribcage #(x) #((top)) - #("i2230")) + #("i2218")) #(ribcage (lambda-var-list gen-var @@ -18565,7 +14547,7 @@ expand-expr expand syntax-type - expand-when-list + parse-when-list expand-install-global expand-top-sequence expand-sequence @@ -18966,111 +14948,111 @@ '(()))) #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 @@ -19083,78 +15065,78 @@ '(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 ... @@ -19170,7 +15152,7 @@ #(ribcage #(x) #((top)) - #("i2230")) + #("i2218")) #(ribcage (lambda-var-list gen-var @@ -19189,7 +15171,7 @@ expand-expr expand syntax-type - expand-when-list + parse-when-list expand-install-global expand-top-sequence expand-sequence @@ -19604,7 +15586,7 @@ #(ribcage #(x) #((top)) - #("i2230")) + #("i2218")) #(ribcage (lambda-var-list gen-var @@ -19623,7 +15605,7 @@ expand-expr expand syntax-type - expand-when-list + parse-when-list expand-install-global expand-top-sequence expand-sequence @@ -20021,10 +16003,10 @@ ((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) @@ -20033,7 +16015,7 @@ #(ribcage #(x) #((top)) - #("i2230")) + #("i2218")) #(ribcage (lambda-var-list gen-var @@ -20052,7 +16034,7 @@ expand-expr expand syntax-type - expand-when-list + parse-when-list expand-install-global expand-top-sequence expand-sequence @@ -20453,42 +16435,42 @@ '(()))) #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 @@ -20500,48 +16482,48 @@ %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)) @@ -20555,13 +16537,13 @@ '(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)) @@ -20575,27 +16557,27 @@ '(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) @@ -20607,7 +16589,7 @@ '(guile) 'syntax-violation #f))) - (#{arg-exps 12576}# + (#{arg-exps 12564}# (list (make-struct/no-tail (vector-ref %expanded-vtables 1) #f @@ -20616,61 +16598,61 @@ (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 @@ -20679,23 +16661,23 @@ #(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 @@ -20714,7 +16696,7 @@ expand-expr expand syntax-type - expand-when-list + parse-when-list expand-install-global expand-top-sequence expand-sequence @@ -21112,7 +17094,7 @@ ((top) (top) (top)) ("i46" "i45" "i44"))) (hygiene guile)) - #{keys 12567}#)) + #{keys 12555}#)) #f) (if (if (eq? (if (if (= (vector-length '#(syntax-object @@ -21121,7 +17103,7 @@ #(ribcage #(pat exp) #((top) (top)) - #("i3911" "i3912")) + #("i3899" "i3900")) #(ribcage () () ()) #(ribcage #(x @@ -21134,11 +17116,11 @@ (top) (top) (top)) - #("i3900" - "i3901" - "i3902" - "i3903" - "i3904")) + #("i3888" + "i3889" + "i3890" + "i3891" + "i3892")) #(ribcage (gen-syntax-case gen-clause @@ -21148,10 +17130,10 @@ (top) (top) (top)) - ("i3710" - "i3708" - "i3706" - "i3704")) + ("i3698" + "i3696" + "i3694" + "i3692")) #(ribcage (lambda-var-list gen-var @@ -21170,7 +17152,7 @@ expand-expr expand syntax-type - expand-when-list + parse-when-list expand-install-global expand-top-sequence expand-sequence @@ -21580,7 +17562,7 @@ #(ribcage #(pat exp) #((top) (top)) - #("i3911" "i3912")) + #("i3899" "i3900")) #(ribcage () () ()) #(ribcage #(x keys clauses r mod) @@ -21589,21 +17571,21 @@ (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 @@ -21622,7 +17604,7 @@ expand-expr expand syntax-type - expand-when-list + parse-when-list expand-install-global expand-top-sequence expand-sequence @@ -22027,7 +18009,7 @@ #(ribcage #(pat exp) #((top) (top)) - #("i3911" "i3912")) + #("i3899" "i3900")) #(ribcage () () ()) #(ribcage #(x @@ -22040,11 +18022,11 @@ (top) (top) (top)) - #("i3900" - "i3901" - "i3902" - "i3903" - "i3904")) + #("i3888" + "i3889" + "i3890" + "i3891" + "i3892")) #(ribcage (gen-syntax-case gen-clause @@ -22054,10 +18036,10 @@ (top) (top) (top)) - ("i3710" - "i3708" - "i3706" - "i3704")) + ("i3698" + "i3696" + "i3694" + "i3692")) #(ribcage (lambda-var-list gen-var @@ -22076,7 +18058,7 @@ expand-expr expand syntax-type - expand-when-list + parse-when-list expand-install-global expand-top-sequence expand-sequence @@ -22486,7 +18468,7 @@ #(ribcage #(pat exp) #((top) (top)) - #("i3911" "i3912")) + #("i3899" "i3900")) #(ribcage () () ()) #(ribcage #(x keys clauses r mod) @@ -22495,21 +18477,21 @@ (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 @@ -22528,7 +18510,7 @@ expand-expr expand syntax-type - expand-when-list + parse-when-list expand-install-global expand-top-sequence expand-sequence @@ -22926,33 +18908,33 @@ ((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 @@ -22971,7 +18953,7 @@ expand-expr expand syntax-type - expand-when-list + parse-when-list expand-install-global expand-top-sequence expand-sequence @@ -23370,33 +19352,33 @@ ("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 @@ -23415,7 +19397,7 @@ expand-expr expand syntax-type - expand-when-list + parse-when-list expand-install-global expand-top-sequence expand-sequence @@ -23815,136 +19797,136 @@ (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 ... @@ -23960,7 +19942,7 @@ #(ribcage #(x) #((top)) - #("i2230")) + #("i2218")) #(ribcage (lambda-var-list gen-var @@ -23979,7 +19961,7 @@ expand-expr expand syntax-type - expand-when-list + parse-when-list expand-install-global expand-top-sequence expand-sequence @@ -24393,7 +20375,7 @@ #(ribcage #(x) #((top)) - #("i2230")) + #("i2218")) #(ribcage (lambda-var-list gen-var @@ -24412,7 +20394,7 @@ expand-expr expand syntax-type - expand-when-list + parse-when-list expand-install-global expand-top-sequence expand-sequence @@ -24810,10 +20792,10 @@ ((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) @@ -24822,7 +20804,7 @@ #(ribcage #(x) #((top)) - #("i2230")) + #("i2218")) #(ribcage (lambda-var-list gen-var @@ -24841,7 +20823,7 @@ expand-expr expand syntax-type - expand-when-list + parse-when-list expand-install-global expand-top-sequence expand-sequence @@ -25243,591 +21225,591 @@ #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))))))))) @@ -25836,82 +21818,82 @@ (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 @@ -25919,62 +21901,62 @@ #(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 @@ -25982,9 +21964,9 @@ #(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 @@ -25993,9 +21975,9 @@ #(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 @@ -26004,9 +21986,9 @@ #(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 @@ -26014,20 +21996,20 @@ #(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 @@ -26035,13 +22017,13 @@ #(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) @@ -26054,10 +22036,10 @@ (top) (top) (top)) - #("i28573" - "i28574" - "i28575" - "i28576")) + #("i28960" + "i28961" + "i28962" + "i28963")) #(ribcage () () @@ -26065,9 +22047,9 @@ #(ribcage #(x) #((top)) - #("i28570"))) + #("i28957"))) (hygiene guile)) - #{tmp 28583 28621}#) + #{tmp 28970 29008}#) (list '#(syntax-object syntax ((top) @@ -26080,10 +22062,10 @@ (top) (top) (top)) - #("i28573" - "i28574" - "i28575" - "i28576")) + #("i28960" + "i28961" + "i28962" + "i28963")) #(ribcage () () @@ -26091,41 +22073,41 @@ #(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 @@ -26133,11 +22115,11 @@ #(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 @@ -26145,13 +22127,13 @@ #(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 @@ -26160,13 +22142,13 @@ #(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 @@ -26174,28 +22156,28 @@ #(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 @@ -26207,17 +22189,17 @@ 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) @@ -26232,11 +22214,11 @@ (top) (top) (top)) - #("i28596" - "i28597" - "i28598" - "i28599" - "i28600")) + #("i28983" + "i28984" + "i28985" + "i28986" + "i28987")) #(ribcage () () @@ -26244,10 +22226,10 @@ #(ribcage #(x) #((top)) - #("i28570"))) + #("i28957"))) (hygiene guile)) - #{tmp 28608 28637}#) + #{tmp 28995 29024}#) (list '#(syntax-object syntax ((top) @@ -26262,11 +22244,11 @@ (top) (top) (top)) - #("i28596" - "i28597" - "i28598" - "i28599" - "i28600")) + #("i28983" + "i28984" + "i28985" + "i28986" + "i28987")) #(ribcage () () @@ -26274,50 +22256,50 @@ #(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 @@ -26326,54 +22308,54 @@ #(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) @@ -26383,53 +22365,53 @@ 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) @@ -26437,27 +22419,27 @@ #(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) @@ -26465,86 +22447,86 @@ #(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 @@ -26554,7 +22536,7 @@ #(ribcage #(step) #((top)) - #("i28793")) + #("i29180")) #(ribcage #(var init step e0 e1 c) #((top) @@ -26563,17 +22545,17 @@ (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 @@ -26582,7 +22564,7 @@ #(ribcage #(step) #((top)) - #("i28793")) + #("i29180")) #(ribcage #(var init step e0 e1 c) #((top) @@ -26591,19 +22573,19 @@ (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) @@ -26611,7 +22593,7 @@ #(ribcage #(step) #((top)) - #("i28793")) + #("i29180")) #(ribcage #(var init step e0 e1 c) #((top) @@ -26620,17 +22602,17 @@ (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 @@ -26639,7 +22621,7 @@ #(ribcage #(step) #((top)) - #("i28793")) + #("i29180")) #(ribcage #(var init @@ -26653,19 +22635,19 @@ (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) @@ -26673,7 +22655,7 @@ #(ribcage #(step) #((top)) - #("i28793")) + #("i29180")) #(ribcage #(var init @@ -26687,20 +22669,20 @@ (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) @@ -26711,7 +22693,7 @@ #(ribcage #(step) #((top)) - #("i28793")) + #("i29180")) #(ribcage #(var init @@ -26725,12 +22707,12 @@ (top) (top) (top)) - #("i28778" - "i28779" - "i28780" - "i28781" - "i28782" - "i28783")) + #("i29165" + "i29166" + "i29167" + "i29168" + "i29169" + "i29170")) #(ribcage () () @@ -26738,30 +22720,30 @@ #(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) @@ -26770,17 +22752,17 @@ (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 @@ -26788,12 +22770,12 @@ #(ribcage #(e1 e2) #((top) (top)) - #("i28802" "i28803")) + #("i29189" "i29190")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("i28793")) + #("i29180")) #(ribcage #(var init step e0 e1 c) #((top) @@ -26802,33 +22784,33 @@ (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) @@ -26837,32 +22819,32 @@ (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 @@ -26876,33 +22858,33 @@ (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 @@ -26916,20 +22898,20 @@ (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) @@ -26938,8 +22920,8 @@ e2) #((top) (top)) - #("i28802" - "i28803")) + #("i29189" + "i29190")) #(ribcage () () @@ -26947,7 +22929,7 @@ #(ribcage #(step) #((top)) - #("i28793")) + #("i29180")) #(ribcage #(var init @@ -26961,12 +22943,12 @@ (top) (top) (top)) - #("i28778" - "i28779" - "i28780" - "i28781" - "i28782" - "i28783")) + #("i29165" + "i29166" + "i29167" + "i29168" + "i29169" + "i29170")) #(ribcage () () @@ -26974,36 +22956,36 @@ #(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 @@ -27012,7 +22994,7 @@ #(ribcage #(p lev) #((top) (top)) - #("i28898" "i28899")) + #("i29285" "i29286")) #(ribcage (emit quasivector quasilist* @@ -27021,28 +23003,28 @@ 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* @@ -27051,25 +23033,25 @@ 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* @@ -27078,23 +23060,23 @@ 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* @@ -27103,21 +23085,21 @@ 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 @@ -27126,7 +23108,7 @@ #(ribcage #(p lev) #((top) (top)) - #("i28898" "i28899")) + #("i29285" "i29286")) #(ribcage (emit quasivector quasilist* @@ -27135,28 +23117,28 @@ 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* @@ -27165,23 +23147,23 @@ 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* @@ -27190,26 +23172,26 @@ 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 @@ -27217,12 +23199,12 @@ #(ribcage #(p q) #((top) (top)) - #("i28908" "i28909")) + #("i29295" "i29296")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i28898" "i28899")) + #("i29285" "i29286")) #(ribcage (emit quasivector quasilist* @@ -27237,38 +23219,38 @@ (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* @@ -27283,37 +23265,37 @@ (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* @@ -27328,13 +23310,13 @@ (top) (top) (top)) - ("i28894" - "i28892" - "i28890" - "i28888" - "i28886" - "i28884" - "i28882"))) + ("i29281" + "i29279" + "i29277" + "i29275" + "i29273" + "i29271" + "i29269"))) (hygiene guile)) #(syntax-object unquote @@ -27342,16 +23324,16 @@ #(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* @@ -27366,24 +23348,24 @@ (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 @@ -27391,12 +23373,12 @@ #(ribcage #(p q) #((top) (top)) - #("i28908" "i28909")) + #("i29295" "i29296")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i28898" "i28899")) + #("i29285" "i29286")) #(ribcage (emit quasivector quasilist* @@ -27411,40 +23393,40 @@ (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* @@ -27459,37 +23441,37 @@ (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* @@ -27504,13 +23486,13 @@ (top) (top) (top)) - ("i28894" - "i28892" - "i28890" - "i28888" - "i28886" - "i28884" - "i28882"))) + ("i29281" + "i29279" + "i29277" + "i29275" + "i29273" + "i29271" + "i29269"))) (hygiene guile)) #(syntax-object unquote-splicing @@ -27518,16 +23500,16 @@ #(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* @@ -27542,57 +23524,57 @@ (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* @@ -27607,36 +23589,36 @@ (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 () () @@ -27648,13 +23630,13 @@ #((top) (top) (top)) - #("i29031" - "i29032" - "i29033")) + #("i29418" + "i29419" + "i29420")) #(ribcage #(_) #((top)) - #("i29029")) + #("i29416")) #(ribcage () () @@ -27662,7 +23644,7 @@ #(ribcage #(x) #((top)) - #("i29023")) + #("i29410")) #(ribcage (emit quasivector quasilist* @@ -27677,51 +23659,51 @@ (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) @@ -27730,14 +23712,14 @@ () ()) #(ribcage - #(#{ g29066}#) - #((m29067 + #(#{ g29453}#) + #((m29454 top)) - #("i29070")) + #("i29457")) #(ribcage #(else) #((top)) - #("i29064")) + #("i29451")) #(ribcage () () @@ -27747,13 +23729,13 @@ #((top) (top) (top)) - #("i29031" - "i29032" - "i29033")) + #("i29418" + "i29419" + "i29420")) #(ribcage #(_) #((top)) - #("i29029")) + #("i29416")) #(ribcage () () @@ -27761,7 +23743,7 @@ #(ribcage #(x) #((top)) - #("i29023")) + #("i29410")) #(ribcage (emit quasivector quasilist* @@ -27776,26 +23758,26 @@ (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) @@ -27804,9 +23786,9 @@ () ()) #(ribcage - #(#{ g29039}#) - #((m29040 top)) - #("i29044")) + #(#{ g29426}#) + #((m29427 top)) + #("i29431")) #(ribcage () () @@ -27822,11 +23804,11 @@ #(ribcage #(ls) #((top)) - #("i29038")) + #("i29425")) #(ribcage #(_) #((top)) - #("i29029")) + #("i29416")) #(ribcage () () @@ -27834,7 +23816,7 @@ #(ribcage #(x) #((top)) - #("i29023")) + #("i29410")) #(ribcage (emit quasivector quasilist* @@ -27849,30 +23831,30 @@ (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* @@ -27887,25 +23869,25 @@ (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 @@ -27913,12 +23895,12 @@ #(ribcage #(p q) #((top) (top)) - #("i28937" "i28938")) + #("i29324" "i29325")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i28933" "i28934")) + #("i29320" "i29321")) #(ribcage (emit quasivector quasilist* @@ -27933,38 +23915,38 @@ (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* @@ -27979,32 +23961,32 @@ (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* @@ -28019,27 +24001,27 @@ (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* @@ -28054,22 +24036,22 @@ (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 @@ -28077,12 +24059,12 @@ #(ribcage #(p q) #((top) (top)) - #("i28937" "i28938")) + #("i29324" "i29325")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i28933" "i28934")) + #("i29320" "i29321")) #(ribcage (emit quasivector quasilist* @@ -28097,38 +24079,38 @@ (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* @@ -28143,34 +24125,34 @@ (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* @@ -28185,27 +24167,27 @@ (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* @@ -28220,27 +24202,27 @@ (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 @@ -28250,7 +24232,7 @@ #(ribcage #(p lev) #((top) (top)) - #("i28933" "i28934")) + #("i29320" "i29321")) #(ribcage (emit quasivector quasilist* @@ -28259,64 +24241,64 @@ 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* @@ -28331,39 +24313,39 @@ (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* @@ -28378,37 +24360,37 @@ (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* @@ -28423,42 +24405,42 @@ (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* @@ -28473,41 +24455,41 @@ (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* @@ -28522,31 +24504,31 @@ (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* @@ -28561,29 +24543,29 @@ (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) @@ -28591,7 +24573,7 @@ #(ribcage #(x y) #((top) (top)) - #("i28986" "i28987")) + #("i29373" "i29374")) #(ribcage (emit quasivector quasilist* @@ -28600,32 +24582,32 @@ 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* @@ -28640,29 +24622,29 @@ (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) @@ -28670,13 +24652,13 @@ #(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* @@ -28691,44 +24673,44 @@ (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* @@ -28737,40 +24719,40 @@ 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* @@ -28785,70 +24767,70 @@ (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* @@ -28863,56 +24845,56 @@ (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* @@ -28927,54 +24909,54 @@ (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* @@ -28989,47 +24971,47 @@ (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* @@ -29044,188 +25026,188 @@ (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 @@ -29234,91 +25216,91 @@ #(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 @@ -29328,9 +25310,9 @@ #((top) (top) (top)) - #("i29957" - "i29958" - "i29959")) + #("i30344" + "i30345" + "i30346")) #(ribcage () () ()) #(ribcage #(f @@ -29339,22 +25321,22 @@ #((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 @@ -29364,9 +25346,9 @@ #((top) (top) (top)) - #("i29957" - "i29958" - "i29959")) + #("i30344" + "i30345" + "i30346")) #(ribcage () () ()) #(ribcage #(f @@ -29375,22 +25357,22 @@ #((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 @@ -29400,9 +25382,9 @@ #((top) (top) (top)) - #("i29957" - "i29958" - "i29959")) + #("i30344" + "i30345" + "i30346")) #(ribcage () () @@ -29414,17 +25396,17 @@ #((top) (top) (top)) - #("i29942" - "i29943" - "i29944")) + #("i30329" + "i30330" + "i30331")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i29932" - "i29933" - "i29934")) + #("i30319" + "i30320" + "i30321")) #(ribcage () () @@ -29432,10 +25414,10 @@ #(ribcage #(x) #((top)) - #("i29929"))) + #("i30316"))) (hygiene guile)) - #{k 30054}#)) + #{k 30441}#)) (cons '#(syntax-object begin ((top) @@ -29444,9 +25426,9 @@ #((top) (top) (top)) - #("i29957" - "i29958" - "i29959")) + #("i30344" + "i30345" + "i30346")) #(ribcage () () ()) #(ribcage #(f @@ -29455,76 +25437,76 @@ #((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 @@ -29532,32 +25514,32 @@ #(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 @@ -29565,32 +25547,32 @@ #(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 @@ -29600,9 +25582,9 @@ #((top) (top) (top)) - #("i29973" - "i29974" - "i29975")) + #("i30360" + "i30361" + "i30362")) #(ribcage () () @@ -29610,7 +25592,7 @@ #(ribcage #(rest) #((top)) - #("i29969")) + #("i30356")) #(ribcage () () @@ -29622,17 +25604,17 @@ #((top) (top) (top)) - #("i29942" - "i29943" - "i29944")) + #("i30329" + "i30330" + "i30331")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i29932" - "i29933" - "i29934")) + #("i30319" + "i30320" + "i30321")) #(ribcage () () @@ -29640,232 +25622,232 @@ #(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 ... @@ -29873,55 +25855,55 @@ #(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 @@ -29929,13 +25911,13 @@ #(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 @@ -29943,13 +25925,13 @@ #(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 @@ -29957,13 +25939,13 @@ #(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 @@ -29972,13 +25954,13 @@ #(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 @@ -29986,13 +25968,13 @@ #(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 @@ -30000,13 +25982,13 @@ #(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! @@ -30014,13 +25996,13 @@ #(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! @@ -30032,19 +26014,19 @@ (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) @@ -30055,19 +26037,19 @@ (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) @@ -30078,16 +26060,16 @@ (top) (top) (top)) - #("i30120" - "i30121" - "i30122" - "i30123" - "i30124")) + #("i30507" + "i30508" + "i30509" + "i30510" + "i30511")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i30102"))) + #("i30489"))) (hygiene guile)) #(syntax-object ... @@ -30099,16 +26081,16 @@ (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 @@ -30120,18 +26102,18 @@ (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) @@ -30146,16 +26128,16 @@ (top) (top) (top)) - #("i30120" - "i30121" - "i30122" - "i30123" - "i30124")) + #("i30507" + "i30508" + "i30509" + "i30510" + "i30511")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i30102"))) + #("i30489"))) (hygiene guile)) #(syntax-object ... @@ -30171,18 +26153,18 @@ (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) @@ -30193,16 +26175,16 @@ (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 @@ -30218,18 +26200,18 @@ (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) @@ -30240,68 +26222,68 @@ (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 @@ -30309,29 +26291,29 @@ #(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}#)))))))) diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm index 67491bbaa..e522f5467 100644 --- a/module/ice-9/psyntax.scm +++ b/module/ice-9/psyntax.scm @@ -908,7 +908,7 @@ ((eval-when-form) (syntax-case e () ((_ (x ...) e1 e2 ...) - (let ((when-list (expand-when-list e #'(x ...) w)) + (let ((when-list (parse-when-list e #'(x ...))) (body #'(e1 e2 ...))) (cond ((eq? m 'e) @@ -1032,23 +1032,17 @@ (build-data no-source 'macro) e))))) - (define expand-when-list - (lambda (e when-list w) + (define parse-when-list + (lambda (e when-list) ;; when-list is syntax'd version of list of situations - (let f ((when-list when-list) (situations '())) - (if (null? when-list) - situations - (f (cdr when-list) - (cons (let ((x (car when-list))) - (cond - ((free-id=? x #'compile) 'compile) - ((free-id=? x #'load) 'load) - ((free-id=? x #'eval) 'eval) - ((eq? (syntax->datum x) 'expand) 'expand) - (else (syntax-violation 'eval-when - "invalid situation" - e (wrap x w #f))))) - situations)))))) + (let ((result (strip when-list empty-wrap))) + (let lp ((l result)) + (if (null? l) + result + (if (memq (car l) '(compile load eval expand)) + (lp (cdr l)) + (syntax-violation 'eval-when "invalid situation" e + (car l)))))))) ;; syntax-type returns six values: type, value, e, w, s, and mod. The ;; first two are described in the table below. @@ -1216,7 +1210,7 @@ ((eval-when-form) (syntax-case e () ((_ (x ...) e1 e2 ...) - (let ((when-list (expand-when-list e #'(x ...) w))) + (let ((when-list (parse-when-list e #'(x ...)))) (if (memq 'eval when-list) (expand-sequence #'(e1 e2 ...) r w s mod) (expand-void)))))) -- 2.20.1