(eval-when (compile) (set-current-module (resolve-module (quote (guile))))) (if #f #f) (letrec* ((#{top-level-eval-hook 4373}# (lambda (#{x 35449}# #{mod 35450}#) (primitive-eval #{x 35449}#))) (#{maybe-name-value! 4378}# (lambda (#{name 18994}# #{val 18995}#) (if (if (struct? #{val 18995}#) (eq? (struct-vtable #{val 18995}#) (vector-ref %expanded-vtables 14)) #f) (let ((#{meta 19002}# (struct-ref #{val 18995}# 1))) (if (not (assq 'name #{meta 19002}#)) (let ((#{v 19007}# (cons (cons 'name #{name 18994}#) #{meta 19002}#))) (struct-set! #{val 18995}# 1 #{v 19007}#))))))) (#{build-call 4380}# (lambda (#{source 18739}# #{fun-exp 18740}# #{arg-exps 18741}#) (make-struct/no-tail (vector-ref %expanded-vtables 11) #{source 18739}# #{fun-exp 18740}# #{arg-exps 18741}#))) (#{build-conditional 4381}# (lambda (#{source 18747}# #{test-exp 18748}# #{then-exp 18749}# #{else-exp 18750}#) (make-struct/no-tail (vector-ref %expanded-vtables 10) #{source 18747}# #{test-exp 18748}# #{then-exp 18749}# #{else-exp 18750}#))) (#{build-dynlet 4382}# (lambda (#{source 18757}# #{fluids 18758}# #{vals 18759}# #{body 18760}#) (make-struct/no-tail (vector-ref %expanded-vtables 18) #{source 18757}# #{fluids 18758}# #{vals 18759}# #{body 18760}#))) (#{build-lexical-reference 4383}# (lambda (#{type 35451}# #{source 35452}# #{name 35453}# #{var 35454}#) (make-struct/no-tail (vector-ref %expanded-vtables 3) #{source 35452}# #{name 35453}# #{var 35454}#))) (#{build-lexical-assignment 4384}# (lambda (#{source 18767}# #{name 18768}# #{var 18769}# #{exp 18770}#) (begin (if (if (struct? #{exp 18770}#) (eq? (struct-vtable #{exp 18770}#) (vector-ref %expanded-vtables 14)) #f) (let ((#{meta 18786}# (struct-ref #{exp 18770}# 1))) (if (not (assq 'name #{meta 18786}#)) (let ((#{v 18793}# (cons (cons 'name #{name 18768}#) #{meta 18786}#))) (struct-set! #{exp 18770}# 1 #{v 18793}#))))) (make-struct/no-tail (vector-ref %expanded-vtables 4) #{source 18767}# #{name 18768}# #{var 18769}# #{exp 18770}#)))) (#{analyze-variable 4385}# (lambda (#{mod 35460}# #{var 35461}# #{modref-cont 35462}# #{bare-cont 35463}#) (if (not #{mod 35460}#) (#{bare-cont 35463}# #{var 35461}#) (let ((#{kind 35464}# (car #{mod 35460}#)) (#{mod 35465}# (cdr #{mod 35460}#))) (if (eqv? #{kind 35464}# 'public) (#{modref-cont 35462}# #{mod 35465}# #{var 35461}# #t) (if (eqv? #{kind 35464}# 'private) (if (not (equal? #{mod 35465}# (module-name (current-module)))) (#{modref-cont 35462}# #{mod 35465}# #{var 35461}# #f) (#{bare-cont 35463}# #{var 35461}#)) (if (eqv? #{kind 35464}# 'bare) (#{bare-cont 35463}# #{var 35461}#) (if (eqv? #{kind 35464}# 'hygiene) (if (if (not (equal? #{mod 35465}# (module-name (current-module)))) (module-variable (resolve-module #{mod 35465}#) #{var 35461}#) #f) (#{modref-cont 35462}# #{mod 35465}# #{var 35461}# #f) (#{bare-cont 35463}# #{var 35461}#)) (syntax-violation #f "bad module kind" #{var 35461}# #{mod 35465}#))))))))) (#{build-global-reference 4386}# (lambda (#{source 35480}# #{var 35481}# #{mod 35482}#) (#{analyze-variable 4385}# #{mod 35482}# #{var 35481}# (lambda (#{mod 35485}# #{var 35486}# #{public? 35487}#) (make-struct/no-tail (vector-ref %expanded-vtables 5) #{source 35480}# #{mod 35485}# #{var 35486}# #{public? 35487}#)) (lambda (#{var 35494}#) (make-struct/no-tail (vector-ref %expanded-vtables 7) #{source 35480}# #{var 35494}#))))) (#{build-global-assignment 4387}# (lambda (#{source 18802}# #{var 18803}# #{exp 18804}# #{mod 18805}#) (begin (if (if (struct? #{exp 18804}#) (eq? (struct-vtable #{exp 18804}#) (vector-ref %expanded-vtables 14)) #f) (let ((#{meta 18821}# (struct-ref #{exp 18804}# 1))) (if (not (assq 'name #{meta 18821}#)) (let ((#{v 18828}# (cons (cons 'name #{var 18803}#) #{meta 18821}#))) (struct-set! #{exp 18804}# 1 #{v 18828}#))))) (#{analyze-variable 4385}# #{mod 18805}# #{var 18803}# (lambda (#{mod 18833}# #{var 18834}# #{public? 18835}#) (make-struct/no-tail (vector-ref %expanded-vtables 6) #{source 18802}# #{mod 18833}# #{var 18834}# #{public? 18835}# #{exp 18804}#)) (lambda (#{var 18843}#) (make-struct/no-tail (vector-ref %expanded-vtables 8) #{source 18802}# #{var 18843}# #{exp 18804}#)))))) (#{build-global-definition 4388}# (lambda (#{source 35499}# #{var 35500}# #{exp 35501}#) (begin (if (if (struct? #{exp 35501}#) (eq? (struct-vtable #{exp 35501}#) (vector-ref %expanded-vtables 14)) #f) (let ((#{meta 35517}# (struct-ref #{exp 35501}# 1))) (if (not (assq 'name #{meta 35517}#)) (let ((#{v 35524}# (cons (cons 'name #{var 35500}#) #{meta 35517}#))) (struct-set! #{exp 35501}# 1 #{v 35524}#))))) (make-struct/no-tail (vector-ref %expanded-vtables 9) #{source 35499}# #{var 35500}# #{exp 35501}#)))) (#{build-simple-lambda 4389}# (lambda (#{src 18849}# #{req 18850}# #{rest 18851}# #{vars 18852}# #{meta 18853}# #{exp 18854}#) (let ((#{body 18860}# (make-struct/no-tail (vector-ref %expanded-vtables 15) #{src 18849}# #{req 18850}# #f #{rest 18851}# #f '() #{vars 18852}# #{exp 18854}# #f))) (make-struct/no-tail (vector-ref %expanded-vtables 14) #{src 18849}# #{meta 18853}# #{body 18860}#)))) (#{build-primcall 4392}# (lambda (#{src 18872}# #{name 18873}# #{args 18874}#) (make-struct/no-tail (vector-ref %expanded-vtables 12) #{src 18872}# #{name 18873}# #{args 18874}#))) (#{build-sequence 4395}# (lambda (#{src 35532}# #{exps 35533}#) (if (null? (cdr #{exps 35533}#)) (car #{exps 35533}#) (let ((#{head 35537}# (car #{exps 35533}#)) (#{tail 35538}# (#{build-sequence 4395}# #f (cdr #{exps 35533}#)))) (make-struct/no-tail (vector-ref %expanded-vtables 13) #{src 35532}# #{head 35537}# #{tail 35538}#))))) (#{build-named-let 4397}# (lambda (#{src 18880}# #{ids 18881}# #{vars 18882}# #{val-exps 18883}# #{body-exp 18884}#) (let ((#{f 18885}# (car #{vars 18882}#)) (#{f-name 18886}# (car #{ids 18881}#)) (#{vars 18887}# (cdr #{vars 18882}#)) (#{ids 18888}# (cdr #{ids 18881}#))) (let ((#{proc 18889}# (let ((#{body 18909}# (make-struct/no-tail (vector-ref %expanded-vtables 15) #{src 18880}# #{ids 18888}# #f #f #f '() #{vars 18887}# #{body-exp 18884}# #f))) (make-struct/no-tail (vector-ref %expanded-vtables 14) #{src 18880}# '() #{body 18909}#)))) (begin (if (if (struct? #{proc 18889}#) (eq? (struct-vtable #{proc 18889}#) (vector-ref %expanded-vtables 14)) #f) (let ((#{meta 18933}# (struct-ref #{proc 18889}# 1))) (if (not (assq 'name #{meta 18933}#)) (let ((#{v 18940}# (cons (cons 'name #{f-name 18886}#) #{meta 18933}#))) (struct-set! #{proc 18889}# 1 #{v 18940}#))))) (for-each #{maybe-name-value! 4378}# #{ids 18888}# #{val-exps 18883}#) (let ((#{names 18964}# (list #{f-name 18886}#)) (#{gensyms 18965}# (list #{f 18885}#)) (#{vals 18966}# (list #{proc 18889}#)) (#{body 18967}# (let ((#{fun-exp 18971}# (make-struct/no-tail (vector-ref %expanded-vtables 3) #{src 18880}# #{f-name 18886}# #{f 18885}#))) (make-struct/no-tail (vector-ref %expanded-vtables 11) #{src 18880}# #{fun-exp 18971}# #{val-exps 18883}#)))) (make-struct/no-tail (vector-ref %expanded-vtables 17) #{src 18880}# #f #{names 18964}# #{gensyms 18965}# #{vals 18966}# #{body 18967}#))))))) (#{build-letrec 4398}# (lambda (#{src 18987}# #{in-order? 18988}# #{ids 18989}# #{vars 18990}# #{val-exps 18991}# #{body-exp 18992}#) (if (null? #{vars 18990}#) #{body-exp 18992}# (begin (for-each #{maybe-name-value! 4378}# #{ids 18989}# #{val-exps 18991}#) (make-struct/no-tail (vector-ref %expanded-vtables 17) #{src 18987}# #{in-order? 18988}# #{ids 18989}# #{vars 18990}# #{val-exps 18991}# #{body-exp 18992}#))))) (#{source-annotation 4407}# (lambda (#{x 19018}#) (if (if (vector? #{x 19018}#) (if (= (vector-length #{x 19018}#) 4) (eq? (vector-ref #{x 19018}# 0) 'syntax-object) #f) #f) (#{source-annotation 4407}# (vector-ref #{x 19018}# 1)) (if (pair? #{x 19018}#) (let ((#{props 19033}# (source-properties #{x 19018}#))) (if (pair? #{props 19033}#) #{props 19033}# #f)) #f)))) (#{extend-env 4408}# (lambda (#{labels 19035}# #{bindings 19036}# #{r 19037}#) (if (null? #{labels 19035}#) #{r 19037}# (#{extend-env 4408}# (cdr #{labels 19035}#) (cdr #{bindings 19036}#) (cons (cons (car #{labels 19035}#) (car #{bindings 19036}#)) #{r 19037}#))))) (#{extend-var-env 4409}# (lambda (#{labels 19038}# #{vars 19039}# #{r 19040}#) (if (null? #{labels 19038}#) #{r 19040}# (#{extend-var-env 4409}# (cdr #{labels 19038}#) (cdr #{vars 19039}#) (cons (cons (car #{labels 19038}#) (cons 'lexical (car #{vars 19039}#))) #{r 19040}#))))) (#{macros-only-env 4410}# (lambda (#{r 19041}#) (if (null? #{r 19041}#) '() (let ((#{a 19042}# (car #{r 19041}#))) (if (let ((#{t 19045}# (car (cdr #{a 19042}#)))) (if (eq? #{t 19045}# 'macro) #t (eq? #{t 19045}# 'syntax-parameter))) (cons #{a 19042}# (#{macros-only-env 4410}# (cdr #{r 19041}#))) (#{macros-only-env 4410}# (cdr #{r 19041}#))))))) (#{global-extend 4411}# (lambda (#{type 19047}# #{sym 19048}# #{val 19049}#) (module-define! (current-module) #{sym 19048}# (make-syntax-transformer #{sym 19048}# #{type 19047}# #{val 19049}#)))) (#{id? 4413}# (lambda (#{x 11971}#) (if (symbol? #{x 11971}#) #t (if (if (vector? #{x 11971}#) (if (= (vector-length #{x 11971}#) 4) (eq? (vector-ref #{x 11971}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref #{x 11971}# 1)) #f)))) (#{gen-labels 4416}# (lambda (#{ls 19059}#) (if (null? #{ls 19059}#) '() (cons (symbol->string (gensym "i")) (#{gen-labels 4416}# (cdr #{ls 19059}#)))))) (#{make-binding-wrap 4427}# (lambda (#{ids 19063}# #{labels 19064}# #{w 19065}#) (if (null? #{ids 19063}#) #{w 19065}# (cons (car #{w 19065}#) (cons (let ((#{labelvec 19066}# (list->vector #{labels 19064}#))) (let ((#{n 19067}# (vector-length #{labelvec 19066}#))) (let ((#{symnamevec 19068}# (make-vector #{n 19067}#)) (#{marksvec 19069}# (make-vector #{n 19067}#))) (begin (letrec* ((#{f 19070}# (lambda (#{ids 19269}# #{i 19270}#) (if (not (null? #{ids 19269}#)) (call-with-values (lambda () (let ((#{x 19273}# (car #{ids 19269}#))) (if (if (vector? #{x 19273}#) (if (= (vector-length #{x 19273}#) 4) (eq? (vector-ref #{x 19273}# 0) 'syntax-object) #f) #f) (values (vector-ref #{x 19273}# 1) (let ((#{m1 19289}# (car #{w 19065}#)) (#{m2 19290}# (car (vector-ref #{x 19273}# 2)))) (if (null? #{m2 19290}#) #{m1 19289}# (append #{m1 19289}# #{m2 19290}#)))) (values #{x 19273}# (car #{w 19065}#))))) (lambda (#{symname 19310}# #{marks 19311}#) (begin (vector-set! #{symnamevec 19068}# #{i 19270}# #{symname 19310}#) (vector-set! #{marksvec 19069}# #{i 19270}# #{marks 19311}#) (#{f 19070}# (cdr #{ids 19269}#) (#{1+}# #{i 19270}#))))))))) (#{f 19070}# #{ids 19063}# 0)) (vector 'ribcage #{symnamevec 19068}# #{marksvec 19069}# #{labelvec 19066}#))))) (cdr #{w 19065}#)))))) (#{same-marks? 4431}# (lambda (#{x 35539}# #{y 35540}#) (if (eq? #{x 35539}# #{y 35540}#) (eq? #{x 35539}# #{y 35540}#) (if (not (null? #{x 35539}#)) (if (not (null? #{y 35540}#)) (if (eq? (car #{x 35539}#) (car #{y 35540}#)) (#{same-marks? 4431}# (cdr #{x 35539}#) (cdr #{y 35540}#)) #f) #f) #f)))) (#{id-var-name 4432}# (lambda (#{id 35548}# #{w 35549}# #{mod 35550}#) (letrec* ((#{search 35551}# (lambda (#{sym 35617}# #{subst 35618}# #{marks 35619}# #{mod 35620}#) (if (null? #{subst 35618}#) (values #f #{marks 35619}#) (let ((#{fst 35621}# (car #{subst 35618}#))) (if (eq? #{fst 35621}# 'shift) (#{search 35551}# #{sym 35617}# (cdr #{subst 35618}#) (cdr #{marks 35619}#) #{mod 35620}#) (let ((#{symnames 35623}# (vector-ref #{fst 35621}# 1))) (if (vector? #{symnames 35623}#) (#{search-vector-rib 35553}# #{sym 35617}# #{subst 35618}# #{marks 35619}# #{symnames 35623}# #{fst 35621}# #{mod 35620}#) (#{search-list-rib 35552}# #{sym 35617}# #{subst 35618}# #{marks 35619}# #{symnames 35623}# #{fst 35621}# #{mod 35620}#)))))))) (#{search-list-rib 35552}# (lambda (#{sym 35798}# #{subst 35799}# #{marks 35800}# #{symnames 35801}# #{ribcage 35802}# #{mod 35803}#) (letrec* ((#{f 35804}# (lambda (#{symnames 35807}# #{i 35808}#) (if (null? #{symnames 35807}#) (#{search 35551}# #{sym 35798}# (cdr #{subst 35799}#) #{marks 35800}# #{mod 35803}#) (if (if (eq? (car #{symnames 35807}#) #{sym 35798}#) (#{same-marks? 4431}# #{marks 35800}# (list-ref (vector-ref #{ribcage 35802}# 2) #{i 35808}#)) #f) (let ((#{n 35954}# (list-ref (vector-ref #{ribcage 35802}# 3) #{i 35808}#))) (if (pair? #{n 35954}#) (if (equal? #{mod 35803}# (car #{n 35954}#)) (values (cdr #{n 35954}#) #{marks 35800}#) (#{f 35804}# (cdr #{symnames 35807}#) (#{1+}# #{i 35808}#))) (values #{n 35954}# #{marks 35800}#))) (#{f 35804}# (cdr #{symnames 35807}#) (#{1+}# #{i 35808}#))))))) (#{f 35804}# #{symnames 35801}# 0)))) (#{search-vector-rib 35553}# (lambda (#{sym 35959}# #{subst 35960}# #{marks 35961}# #{symnames 35962}# #{ribcage 35963}# #{mod 35964}#) (let ((#{n 35965}# (vector-length #{symnames 35962}#))) (letrec* ((#{f 35966}# (lambda (#{i 35969}#) (if (= #{i 35969}# #{n 35965}#) (#{search 35551}# #{sym 35959}# (cdr #{subst 35960}#) #{marks 35961}# #{mod 35964}#) (if (if (eq? (vector-ref #{symnames 35962}# #{i 35969}#) #{sym 35959}#) (#{same-marks? 4431}# #{marks 35961}# (vector-ref (vector-ref #{ribcage 35963}# 2) #{i 35969}#)) #f) (let ((#{n 36116}# (vector-ref (vector-ref #{ribcage 35963}# 3) #{i 35969}#))) (if (pair? #{n 36116}#) (if (equal? #{mod 35964}# (car #{n 36116}#)) (values (cdr #{n 36116}#) #{marks 35961}#) (#{f 35966}# (#{1+}# #{i 35969}#))) (values #{n 36116}# #{marks 35961}#))) (#{f 35966}# (#{1+}# #{i 35969}#))))))) (#{f 35966}# 0)))))) (if (symbol? #{id 35548}#) (let ((#{t 35554}# (#{search 35551}# #{id 35548}# (cdr #{w 35549}#) (car #{w 35549}#) #{mod 35550}#))) (if #{t 35554}# #{t 35554}# #{id 35548}#)) (if (if (vector? #{id 35548}#) (if (= (vector-length #{id 35548}#) 4) (eq? (vector-ref #{id 35548}# 0) 'syntax-object) #f) #f) (let ((#{id 35569}# (vector-ref #{id 35548}# 1)) (#{w1 35570}# (vector-ref #{id 35548}# 2)) (#{mod 35571}# (vector-ref #{id 35548}# 3))) (let ((#{marks 35572}# (let ((#{m1 35582}# (car #{w 35549}#)) (#{m2 35583}# (car #{w1 35570}#))) (if (null? #{m2 35583}#) #{m1 35582}# (append #{m1 35582}# #{m2 35583}#))))) (call-with-values (lambda () (#{search 35551}# #{id 35569}# (cdr #{w 35549}#) #{marks 35572}# #{mod 35571}#)) (lambda (#{new-id 35603}# #{marks 35604}#) (if #{new-id 35603}# #{new-id 35603}# (let ((#{t 35612}# (#{search 35551}# #{id 35569}# (cdr #{w1 35570}#) #{marks 35604}# #{mod 35571}#))) (if #{t 35612}# #{t 35612}# #{id 35569}#))))))) (syntax-violation 'id-var-name "invalid id" #{id 35548}#)))))) (#{resolve-identifier 4433}# (lambda (#{id 19318}# #{w 19319}# #{r 19320}# #{mod 19321}# #{resolve-syntax-parameters? 19322}#) (let ((#{n 19326}# (#{id-var-name 4432}# #{id 19318}# #{w 19319}# #{mod 19321}#))) (if (if (vector? #{n 19326}#) (if (= (vector-length #{n 19326}#) 4) (eq? (vector-ref #{n 19326}# 0) 'syntax-object) #f) #f) (#{resolve-identifier 4433}# #{n 19326}# #{w 19319}# #{r 19320}# #{mod 19321}# #{resolve-syntax-parameters? 19322}#) (if (symbol? #{n 19326}#) (let ((#{mod 19341}# (if (if (vector? #{id 19318}#) (if (= (vector-length #{id 19318}#) 4) (eq? (vector-ref #{id 19318}# 0) 'syntax-object) #f) #f) (vector-ref #{id 19318}# 3) #{mod 19321}#))) (let ((#{b 19342}# (let ((#{b 19345}# (let ((#{t 19346}# (begin (if (if (not #{mod 19341}#) (current-module) #f) (warn "module system is booted, we should have a module" #{n 19326}#)) (let ((#{v 19395}# (module-variable (if #{mod 19341}# (resolve-module (cdr #{mod 19341}#)) (current-module)) #{n 19326}#))) (if #{v 19395}# (if (variable-bound? #{v 19395}#) (let ((#{val 19404}# (variable-ref #{v 19395}#))) (if (macro? #{val 19404}#) (if (macro-type #{val 19404}#) (cons (macro-type #{val 19404}#) (macro-binding #{val 19404}#)) #f) #f)) #f) #f))))) (if #{t 19346}# #{t 19346}# '(global))))) (if (if #{resolve-syntax-parameters? 19322}# (eq? (car #{b 19345}#) 'syntax-parameter) #f) (let ((#{t 19413}# (assq-ref #{r 19320}# (cdr #{b 19345}#)))) (if #{t 19413}# #{t 19413}# (cons 'macro (car (cdr #{b 19345}#))))) #{b 19345}#)))) (if (eq? (car #{b 19342}#) 'global) (values 'global #{n 19326}# #{mod 19341}#) (values (car #{b 19342}#) (cdr #{b 19342}#) #{mod 19341}#)))) (if (string? #{n 19326}#) (let ((#{mod 19419}# (if (if (vector? #{id 19318}#) (if (= (vector-length #{id 19318}#) 4) (eq? (vector-ref #{id 19318}# 0) 'syntax-object) #f) #f) (vector-ref #{id 19318}# 3) #{mod 19321}#))) (let ((#{b 19420}# (let ((#{b 19423}# (let ((#{t 19424}# (assq-ref #{r 19320}# #{n 19326}#))) (if #{t 19424}# #{t 19424}# '(displaced-lexical))))) (if (if #{resolve-syntax-parameters? 19322}# (eq? (car #{b 19423}#) 'syntax-parameter) #f) (let ((#{t 19425}# (assq-ref #{r 19320}# (cdr #{b 19423}#)))) (if #{t 19425}# #{t 19425}# (cons 'macro (car (cdr #{b 19423}#))))) #{b 19423}#)))) (values (car #{b 19420}#) (cdr #{b 19420}#) #{mod 19419}#))) (error "unexpected id-var-name" #{id 19318}# #{w 19319}# #{n 19326}#))))))) (#{free-id=? 4434}# (lambda (#{i 19438}# #{j 19439}#) (let ((#{mi 19440}# (if (if (vector? #{i 19438}#) (if (= (vector-length #{i 19438}#) 4) (eq? (vector-ref #{i 19438}# 0) 'syntax-object) #f) #f) (vector-ref #{i 19438}# 3) #f))) (let ((#{mj 19441}# (if (if (vector? #{j 19439}#) (if (= (vector-length #{j 19439}#) 4) (eq? (vector-ref #{j 19439}# 0) 'syntax-object) #f) #f) (vector-ref #{j 19439}# 3) #f))) (let ((#{ni 19442}# (#{id-var-name 4432}# #{i 19438}# '(()) #{mi 19440}#))) (let ((#{nj 19443}# (#{id-var-name 4432}# #{j 19439}# '(()) #{mj 19441}#))) (if (if (vector? #{ni 19442}#) (if (= (vector-length #{ni 19442}#) 4) (eq? (vector-ref #{ni 19442}# 0) 'syntax-object) #f) #f) (#{free-id=? 4434}# #{ni 19442}# #{j 19439}#) (if (if (vector? #{nj 19443}#) (if (= (vector-length #{nj 19443}#) 4) (eq? (vector-ref #{nj 19443}# 0) 'syntax-object) #f) #f) (#{free-id=? 4434}# #{i 19438}# #{nj 19443}#) (if (symbol? #{ni 19442}#) (if (eq? #{nj 19443}# (if (if (vector? #{j 19439}#) (if (= (vector-length #{j 19439}#) 4) (eq? (vector-ref #{j 19439}# 0) 'syntax-object) #f) #f) (vector-ref #{j 19439}# 1) #{j 19439}#)) (if (let ((#{bi 19515}# (module-variable (if #{mi 19440}# (resolve-module (cdr #{mi 19440}#)) (current-module)) (if (if (vector? #{i 19438}#) (if (= (vector-length #{i 19438}#) 4) (eq? (vector-ref #{i 19438}# 0) 'syntax-object) #f) #f) (vector-ref #{i 19438}# 1) #{i 19438}#)))) (if #{bi 19515}# (eq? #{bi 19515}# (module-variable (if #{mj 19441}# (resolve-module (cdr #{mj 19441}#)) (current-module)) (if (if (vector? #{j 19439}#) (if (= (vector-length #{j 19439}#) 4) (eq? (vector-ref #{j 19439}# 0) 'syntax-object) #f) #f) (vector-ref #{j 19439}# 1) #{j 19439}#))) (if (not (module-variable (if #{mj 19441}# (resolve-module (cdr #{mj 19441}#)) (current-module)) (if (if (vector? #{j 19439}#) (if (= (vector-length #{j 19439}#) 4) (eq? (vector-ref #{j 19439}# 0) 'syntax-object) #f) #f) (vector-ref #{j 19439}# 1) #{j 19439}#))) (eq? #{ni 19442}# #{nj 19443}#) #f))) (eq? (module-variable (if #{mi 19440}# (resolve-module (cdr #{mi 19440}#)) (current-module)) (if (if (vector? #{i 19438}#) (if (= (vector-length #{i 19438}#) 4) (eq? (vector-ref #{i 19438}# 0) 'syntax-object) #f) #f) (vector-ref #{i 19438}# 1) #{i 19438}#)) (module-variable (if #{mj 19441}# (resolve-module (cdr #{mj 19441}#)) (current-module)) (if (if (vector? #{j 19439}#) (if (= (vector-length #{j 19439}#) 4) (eq? (vector-ref #{j 19439}# 0) 'syntax-object) #f) #f) (vector-ref #{j 19439}# 1) #{j 19439}#))) #f) #f) (equal? #{ni 19442}# #{nj 19443}#)))))))))) (#{bound-id=? 4435}# (lambda (#{i 19708}# #{j 19709}#) (if (if (if (vector? #{i 19708}#) (if (= (vector-length #{i 19708}#) 4) (eq? (vector-ref #{i 19708}# 0) 'syntax-object) #f) #f) (if (vector? #{j 19709}#) (if (= (vector-length #{j 19709}#) 4) (eq? (vector-ref #{j 19709}# 0) 'syntax-object) #f) #f) #f) (if (eq? (vector-ref #{i 19708}# 1) (vector-ref #{j 19709}# 1)) (#{same-marks? 4431}# (car (vector-ref #{i 19708}# 2)) (car (vector-ref #{j 19709}# 2))) #f) (eq? #{i 19708}# #{j 19709}#)))) (#{valid-bound-ids? 4436}# (lambda (#{ids 19878}#) (if (letrec* ((#{all-ids? 19879}# (lambda (#{ids 20076}#) (if (null? #{ids 20076}#) (null? #{ids 20076}#) (if (let ((#{x 20087}# (car #{ids 20076}#))) (if (symbol? #{x 20087}#) #t (if (if (vector? #{x 20087}#) (if (= (vector-length #{x 20087}#) 4) (eq? (vector-ref #{x 20087}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref #{x 20087}# 1)) #f))) (#{all-ids? 19879}# (cdr #{ids 20076}#)) #f))))) (#{all-ids? 19879}# #{ids 19878}#)) (#{distinct-bound-ids? 4437}# #{ids 19878}#) #f))) (#{distinct-bound-ids? 4437}# (lambda (#{ids 20208}#) (letrec* ((#{distinct? 20209}# (lambda (#{ids 20314}#) (if (null? #{ids 20314}#) (null? #{ids 20314}#) (if (not (#{bound-id-member? 4438}# (car #{ids 20314}#) (cdr #{ids 20314}#))) (#{distinct? 20209}# (cdr #{ids 20314}#)) #f))))) (#{distinct? 20209}# #{ids 20208}#)))) (#{bound-id-member? 4438}# (lambda (#{x 20410}# #{list 20411}#) (if (not (null? #{list 20411}#)) (let ((#{t 20412}# (#{bound-id=? 4435}# #{x 20410}# (car #{list 20411}#)))) (if #{t 20412}# #{t 20412}# (#{bound-id-member? 4438}# #{x 20410}# (cdr #{list 20411}#)))) #f))) (#{source-wrap 4440}# (lambda (#{x 20590}# #{w 20591}# #{s 20592}# #{defmod 20593}#) (let ((#{x 20597}# (begin (if (if (pair? #{x 20590}#) #{s 20592}# #f) (set-source-properties! #{x 20590}# #{s 20592}#)) #{x 20590}#))) (if (if (null? (car #{w 20591}#)) (null? (cdr #{w 20591}#)) #f) #{x 20597}# (if (if (vector? #{x 20597}#) (if (= (vector-length #{x 20597}#) 4) (eq? (vector-ref #{x 20597}# 0) 'syntax-object) #f) #f) (let ((#{expression 20629}# (vector-ref #{x 20597}# 1)) (#{wrap 20630}# (let ((#{w2 20638}# (vector-ref #{x 20597}# 2))) (let ((#{m1 20639}# (car #{w 20591}#)) (#{s1 20640}# (cdr #{w 20591}#))) (if (null? #{m1 20639}#) (if (null? #{s1 20640}#) #{w2 20638}# (cons (car #{w2 20638}#) (let ((#{m2 20655}# (cdr #{w2 20638}#))) (if (null? #{m2 20655}#) #{s1 20640}# (append #{s1 20640}# #{m2 20655}#))))) (cons (let ((#{m2 20663}# (car #{w2 20638}#))) (if (null? #{m2 20663}#) #{m1 20639}# (append #{m1 20639}# #{m2 20663}#))) (let ((#{m2 20671}# (cdr #{w2 20638}#))) (if (null? #{m2 20671}#) #{s1 20640}# (append #{s1 20640}# #{m2 20671}#)))))))) (#{module 20631}# (vector-ref #{x 20597}# 3))) (vector 'syntax-object #{expression 20629}# #{wrap 20630}# #{module 20631}#)) (if (null? #{x 20597}#) #{x 20597}# (vector 'syntax-object #{x 20597}# #{w 20591}# #{defmod 20593}#))))))) (#{chi-sequence 4441}# (lambda (#{body 36121}# #{r 36122}# #{w 36123}# #{s 36124}# #{mod 36125}#) (#{build-sequence 4395}# #{s 36124}# (letrec* ((#{dobody 36217}# (lambda (#{body 36304}# #{r 36305}# #{w 36306}# #{mod 36307}#) (if (null? #{body 36304}#) '() (let ((#{first 36308}# (#{chi 4446}# (car #{body 36304}#) #{r 36305}# #{w 36306}# #{mod 36307}#))) (cons #{first 36308}# (#{dobody 36217}# (cdr #{body 36304}#) #{r 36305}# #{w 36306}# #{mod 36307}#))))))) (#{dobody 36217}# #{body 36121}# #{r 36122}# #{w 36123}# #{mod 36125}#))))) (#{chi-top-sequence 4442}# (lambda (#{body 20686}# #{r 20687}# #{w 20688}# #{s 20689}# #{m 20690}# #{esew 20691}# #{mod 20692}#) (let ((#{r 20693}# (cons '("placeholder" placeholder) #{r 20687}#))) (let ((#{ribcage 20694}# (vector 'ribcage '() '() '()))) (let ((#{w 20695}# (cons (car #{w 20688}#) (cons #{ribcage 20694}# (cdr #{w 20688}#))))) (letrec* ((#{record-definition! 20696}# (lambda (#{id 23703}# #{var 23704}#) (let ((#{mod 23705}# (cons 'hygiene (module-name (current-module))))) (let ((#{label 23711}# (cons (vector-ref #{id 23703}# 3) (if (if (vector? #{var 23704}#) (if (= (vector-length #{var 23704}#) 4) (eq? (vector-ref #{var 23704}# 0) 'syntax-object) #f) #f) (let ((#{expression 23773}# (vector-ref #{var 23704}# 1)) (#{wrap 23774}# (let ((#{w2 23784}# (vector-ref #{var 23704}# 2))) (cons (let ((#{m2 23791}# (car #{w2 23784}#))) (if (null? #{m2 23791}#) '(top) (append '(top) #{m2 23791}#))) (let ((#{m2 23800}# (cdr #{w2 23784}#))) (if (null? #{m2 23800}#) '() (append '() #{m2 23800}#)))))) (#{module 23775}# (vector-ref #{var 23704}# 3))) (vector 'syntax-object #{expression 23773}# #{wrap 23774}# #{module 23775}#)) (if (null? #{var 23704}#) #{var 23704}# (vector 'syntax-object #{var 23704}# '((top)) #{mod 23705}#)))))) (begin (let ((#{update 23714}# (cons (vector-ref #{id 23703}# 1) (vector-ref #{ribcage 20694}# 1)))) (vector-set! #{ribcage 20694}# 1 #{update 23714}#)) (let ((#{update 23729}# (cons (car (vector-ref #{id 23703}# 2)) (vector-ref #{ribcage 20694}# 2)))) (vector-set! #{ribcage 20694}# 2 #{update 23729}#)) (let ((#{update 23744}# (cons #{label 23711}# (vector-ref #{ribcage 20694}# 3)))) (vector-set! #{ribcage 20694}# 3 #{update 23744}#))))))) (#{parse 20699}# (lambda (#{body 20904}# #{r 20905}# #{w 20906}# #{s 20907}# #{m 20908}# #{esew 20909}# #{mod 20910}#) (letrec* ((#{lp 20911}# (lambda (#{body 20998}# #{exps 20999}#) (if (null? #{body 20998}#) #{exps 20999}# (#{lp 20911}# (cdr #{body 20998}#) (append (#{parse1 20700}# (car #{body 20998}#) #{r 20905}# #{w 20906}# #{s 20907}# #{m 20908}# #{esew 20909}# #{mod 20910}#) #{exps 20999}#)))))) (#{lp 20911}# #{body 20904}# '())))) (#{parse1 20700}# (lambda (#{x 21073}# #{r 21074}# #{w 21075}# #{s 21076}# #{m 21077}# #{esew 21078}# #{mod 21079}#) (call-with-values (lambda () (#{syntax-type 4445}# #{x 21073}# #{r 21074}# #{w 21075}# (#{source-annotation 4407}# #{x 21073}#) #{ribcage 20694}# #{mod 21079}# #f)) (lambda (#{type 21283}# #{value 21284}# #{e 21285}# #{w 21286}# #{s 21287}# #{mod 21288}#) (if (eqv? #{type 21283}# 'define-form) (let ((#{id 21292}# (if (if (null? (car #{w 21286}#)) (null? (cdr #{w 21286}#)) #f) #{value 21284}# (if (if (vector? #{value 21284}#) (if (= (vector-length #{value 21284}#) 4) (eq? (vector-ref #{value 21284}# 0) 'syntax-object) #f) #f) (let ((#{expression 21342}# (vector-ref #{value 21284}# 1)) (#{wrap 21343}# (let ((#{w2 21353}# (vector-ref #{value 21284}# 2))) (let ((#{m1 21354}# (car #{w 21286}#)) (#{s1 21355}# (cdr #{w 21286}#))) (if (null? #{m1 21354}#) (if (null? #{s1 21355}#) #{w2 21353}# (cons (car #{w2 21353}#) (let ((#{m2 21372}# (cdr #{w2 21353}#))) (if (null? #{m2 21372}#) #{s1 21355}# (append #{s1 21355}# #{m2 21372}#))))) (cons (let ((#{m2 21380}# (car #{w2 21353}#))) (if (null? #{m2 21380}#) #{m1 21354}# (append #{m1 21354}# #{m2 21380}#))) (let ((#{m2 21388}# (cdr #{w2 21353}#))) (if (null? #{m2 21388}#) #{s1 21355}# (append #{s1 21355}# #{m2 21388}#)))))))) (#{module 21344}# (vector-ref #{value 21284}# 3))) (vector 'syntax-object #{expression 21342}# #{wrap 21343}# #{module 21344}#)) (if (null? #{value 21284}#) #{value 21284}# (vector 'syntax-object #{value 21284}# #{w 21286}# #{mod 21288}#)))))) (begin (symbol->string (gensym "i")) (let ((#{var 21294}# (if (not (equal? (car (vector-ref #{id 21292}# 2)) '(top))) (symbol-append (vector-ref #{id 21292}# 1) '- (string->symbol (number->string (hash (syntax->datum #{x 21073}#) most-positive-fixnum) 16))) (vector-ref #{id 21292}# 1)))) (begin (#{record-definition! 20696}# #{id 21292}# #{var 21294}#) (list (if (eq? #{m 21077}# 'c&e) (let ((#{x 21519}# (#{build-global-definition 4388}# #{s 21287}# #{var 21294}# (#{chi 4446}# #{e 21285}# #{r 21074}# #{w 21286}# #{mod 21288}#)))) (begin (#{top-level-eval-hook 4373}# #{x 21519}# #{mod 21288}#) (lambda () #{x 21519}#))) (lambda () (#{build-global-definition 4388}# #{s 21287}# #{var 21294}# (#{chi 4446}# #{e 21285}# #{r 21074}# #{w 21286}# #{mod 21288}#))))))))) (if (if (eqv? #{type 21283}# 'define-syntax-form) #t (eqv? #{type 21283}# 'define-syntax-parameter-form)) (let ((#{id 22035}# (if (if (null? (car #{w 21286}#)) (null? (cdr #{w 21286}#)) #f) #{value 21284}# (if (if (vector? #{value 21284}#) (if (= (vector-length #{value 21284}#) 4) (eq? (vector-ref #{value 21284}# 0) 'syntax-object) #f) #f) (let ((#{expression 22085}# (vector-ref #{value 21284}# 1)) (#{wrap 22086}# (let ((#{w2 22096}# (vector-ref #{value 21284}# 2))) (let ((#{m1 22097}# (car #{w 21286}#)) (#{s1 22098}# (cdr #{w 21286}#))) (if (null? #{m1 22097}#) (if (null? #{s1 22098}#) #{w2 22096}# (cons (car #{w2 22096}#) (let ((#{m2 22115}# (cdr #{w2 22096}#))) (if (null? #{m2 22115}#) #{s1 22098}# (append #{s1 22098}# #{m2 22115}#))))) (cons (let ((#{m2 22123}# (car #{w2 22096}#))) (if (null? #{m2 22123}#) #{m1 22097}# (append #{m1 22097}# #{m2 22123}#))) (let ((#{m2 22131}# (cdr #{w2 22096}#))) (if (null? #{m2 22131}#) #{s1 22098}# (append #{s1 22098}# #{m2 22131}#)))))))) (#{module 22087}# (vector-ref #{value 21284}# 3))) (vector 'syntax-object #{expression 22085}# #{wrap 22086}# #{module 22087}#)) (if (null? #{value 21284}#) #{value 21284}# (vector 'syntax-object #{value 21284}# #{w 21286}# #{mod 21288}#)))))) (begin (symbol->string (gensym "i")) (let ((#{var 22037}# (if (not (equal? (car (vector-ref #{id 22035}# 2)) '(top))) (symbol-append (vector-ref #{id 22035}# 1) '- (string->symbol (number->string (hash (syntax->datum #{x 21073}#) most-positive-fixnum) 16))) (vector-ref #{id 22035}# 1)))) (begin (#{record-definition! 20696}# #{id 22035}# #{var 22037}#) (if (eqv? #{m 21077}# 'c) (if (memq 'compile #{esew 21078}#) (let ((#{e 22265}# (#{chi-install-global 4443}# #{var 22037}# #{type 21283}# (#{chi 4446}# #{e 21285}# #{r 21074}# #{w 21286}# #{mod 21288}#)))) (begin (#{top-level-eval-hook 4373}# #{e 22265}# #{mod 21288}#) (if (memq 'load #{esew 21078}#) (list (lambda () #{e 22265}#)) '()))) (if (memq 'load #{esew 21078}#) (list (lambda () (#{chi-install-global 4443}# #{var 22037}# #{type 21283}# (#{chi 4446}# #{e 21285}# #{r 21074}# #{w 21286}# #{mod 21288}#)))) '())) (if (eqv? #{m 21077}# 'c&e) (let ((#{e 22785}# (#{chi-install-global 4443}# #{var 22037}# #{type 21283}# (#{chi 4446}# #{e 21285}# #{r 21074}# #{w 21286}# #{mod 21288}#)))) (begin (#{top-level-eval-hook 4373}# #{e 22785}# #{mod 21288}#) (list (lambda () #{e 22785}#)))) (begin (if (memq 'eval #{esew 21078}#) (#{top-level-eval-hook 4373}# (#{chi-install-global 4443}# #{var 22037}# #{type 21283}# (#{chi 4446}# #{e 21285}# #{r 21074}# #{w 21286}# #{mod 21288}#)) #{mod 21288}#)) '()))))))) (if (eqv? #{type 21283}# 'begin-form) (let ((#{tmp 23414}# ($sc-dispatch #{e 21285}# '(_ . each-any)))) (if #{tmp 23414}# (@apply (lambda (#{e1 23418}#) (#{parse 20699}# #{e1 23418}# #{r 21074}# #{w 21286}# #{s 21287}# #{m 21077}# #{esew 21078}# #{mod 21288}#)) #{tmp 23414}#) (syntax-violation #f "source expression failed to match any pattern" #{e 21285}#))) (if (eqv? #{type 21283}# 'local-syntax-form) (#{chi-local-syntax 4451}# #{value 21284}# #{e 21285}# #{r 21074}# #{w 21286}# #{s 21287}# #{mod 21288}# (lambda (#{forms 23464}# #{r 23465}# #{w 23466}# #{s 23467}# #{mod 23468}#) (#{parse 20699}# #{forms 23464}# #{r 23465}# #{w 23466}# #{s 23467}# #{m 21077}# #{esew 21078}# #{mod 23468}#))) (if (eqv? #{type 21283}# 'eval-when-form) (let ((#{tmp 23507}# ($sc-dispatch #{e 21285}# '(_ each-any any . each-any)))) (if #{tmp 23507}# (@apply (lambda (#{x 23511}# #{e1 23512}# #{e2 23513}#) (let ((#{when-list 23514}# (#{chi-when-list 4444}# #{e 21285}# #{x 23511}# #{w 21286}#)) (#{body 23515}# (cons #{e1 23512}# #{e2 23513}#))) (letrec* ((#{recurse 23516}# (lambda (#{m 23652}# #{esew 23653}#) (#{parse 20699}# #{body 23515}# #{r 21074}# #{w 21286}# #{s 21287}# #{m 23652}# #{esew 23653}# #{mod 21288}#)))) (if (eq? #{m 21077}# 'e) (if (memq 'eval #{when-list 23514}#) (#{recurse 23516}# (if (memq 'expand #{when-list 23514}#) 'c&e 'e) '(eval)) (begin (if (memq 'expand #{when-list 23514}#) (let ((#{x 23557}# (#{chi-top-sequence 4442}# #{body 23515}# #{r 21074}# #{w 21286}# #{s 21287}# 'e '(eval) #{mod 21288}#))) (primitive-eval #{x 23557}#))) '())) (if (memq 'load #{when-list 23514}#) (if (let ((#{t 23559}# (memq 'compile #{when-list 23514}#))) (if #{t 23559}# #{t 23559}# (let ((#{t 23561}# (memq 'expand #{when-list 23514}#))) (if #{t 23561}# #{t 23561}# (if (eq? #{m 21077}# 'c&e) (memq 'eval #{when-list 23514}#) #f))))) (#{recurse 23516}# 'c&e '(compile load)) (if (if (eq? #{m 21077}# 'c) #t (eq? #{m 21077}# 'c&e)) (#{recurse 23516}# 'c '(load)) '())) (if (let ((#{t 23643}# (memq 'compile #{when-list 23514}#))) (if #{t 23643}# #{t 23643}# (let ((#{t 23645}# (memq 'expand #{when-list 23514}#))) (if #{t 23645}# #{t 23645}# (if (eq? #{m 21077}# 'c&e) (memq 'eval #{when-list 23514}#) #f))))) (begin (let ((#{x 23650}# (#{chi-top-sequence 4442}# #{body 23515}# #{r 21074}# #{w 21286}# #{s 21287}# 'e '(eval) #{mod 21288}#))) (primitive-eval #{x 23650}#)) '()) '())))))) #{tmp 23507}#) (syntax-violation #f "source expression failed to match any pattern" #{e 21285}#))) (list (if (eq? #{m 21077}# 'c&e) (let ((#{x 23694}# (#{chi-expr 4447}# #{type 21283}# #{value 21284}# #{e 21285}# #{r 21074}# #{w 21286}# #{s 21287}# #{mod 21288}#))) (begin (primitive-eval #{x 23694}#) (lambda () #{x 23694}#))) (lambda () (#{chi-expr 4447}# #{type 21283}# #{value 21284}# #{e 21285}# #{r 21074}# #{w 21286}# #{s 21287}# #{mod 21288}#)))))))))))))) (let ((#{exps 20701}# (map (lambda (#{x 20832}#) (#{x 20832}#)) (reverse (#{parse 20699}# #{body 20686}# #{r 20693}# #{w 20695}# #{s 20689}# #{m 20690}# #{esew 20691}# #{mod 20692}#))))) (if (null? #{exps 20701}#) (make-struct/no-tail (vector-ref %expanded-vtables 0) #{s 20689}#) (#{build-sequence 4395}# #{s 20689}# #{exps 20701}#))))))))) (#{chi-install-global 4443}# (lambda (#{name 23822}# #{type 23823}# #{e 23824}#) (let ((#{exp 23830}# (let ((#{args 23841}# (if (eq? #{type 23823}# 'define-syntax-parameter-form) (list (make-struct/no-tail (vector-ref %expanded-vtables 1) #f #{name 23822}#) (make-struct/no-tail (vector-ref %expanded-vtables 1) #f 'syntax-parameter) (let ((#{args 23864}# (list #{e 23824}#))) (make-struct/no-tail (vector-ref %expanded-vtables 12) #f 'list #{args 23864}#))) (list (make-struct/no-tail (vector-ref %expanded-vtables 1) #f #{name 23822}#) (make-struct/no-tail (vector-ref %expanded-vtables 1) #f 'macro) #{e 23824}#)))) (make-struct/no-tail (vector-ref %expanded-vtables 12) #f 'make-syntax-transformer #{args 23841}#)))) (begin (if (if (struct? #{exp 23830}#) (eq? (struct-vtable #{exp 23830}#) (vector-ref %expanded-vtables 14)) #f) (let ((#{meta 23891}# (struct-ref #{exp 23830}# 1))) (if (not (assq 'name #{meta 23891}#)) (let ((#{v 23898}# (cons (cons 'name #{name 23822}#) #{meta 23891}#))) (struct-set! #{exp 23830}# 1 #{v 23898}#))))) (make-struct/no-tail (vector-ref %expanded-vtables 9) #f #{name 23822}# #{exp 23830}#))))) (#{chi-when-list 4444}# (lambda (#{e 23909}# #{when-list 23910}# #{w 23911}#) (letrec* ((#{f 23912}# (lambda (#{when-list 24114}# #{situations 24115}#) (if (null? #{when-list 24114}#) #{situations 24115}# (#{f 23912}# (cdr #{when-list 24114}#) (cons (let ((#{x 24116}# (syntax->datum (car #{when-list 24114}#)))) (if (if (eq? #{x 24116}# 'compile) #t (if (eq? #{x 24116}# 'load) #t (if (eq? #{x 24116}# 'eval) #t (eq? #{x 24116}# 'expand)))) #{x 24116}# (syntax-violation 'eval-when "invalid situation" #{e 23909}# (let ((#{x 24135}# (car #{when-list 24114}#))) (if (if (null? (car #{w 23911}#)) (null? (cdr #{w 23911}#)) #f) #{x 24135}# (if (if (vector? #{x 24135}#) (if (= (vector-length #{x 24135}#) 4) (eq? (vector-ref #{x 24135}# 0) 'syntax-object) #f) #f) (let ((#{expression 24153}# (vector-ref #{x 24135}# 1)) (#{wrap 24154}# (let ((#{w2 24162}# (vector-ref #{x 24135}# 2))) (let ((#{m1 24163}# (car #{w 23911}#)) (#{s1 24164}# (cdr #{w 23911}#))) (if (null? #{m1 24163}#) (if (null? #{s1 24164}#) #{w2 24162}# (cons (car #{w2 24162}#) (let ((#{m2 24179}# (cdr #{w2 24162}#))) (if (null? #{m2 24179}#) #{s1 24164}# (append #{s1 24164}# #{m2 24179}#))))) (cons (let ((#{m2 24187}# (car #{w2 24162}#))) (if (null? #{m2 24187}#) #{m1 24163}# (append #{m1 24163}# #{m2 24187}#))) (let ((#{m2 24195}# (cdr #{w2 24162}#))) (if (null? #{m2 24195}#) #{s1 24164}# (append #{s1 24164}# #{m2 24195}#)))))))) (#{module 24155}# (vector-ref #{x 24135}# 3))) (vector 'syntax-object #{expression 24153}# #{wrap 24154}# #{module 24155}#)) (if (null? #{x 24135}#) #{x 24135}# (vector 'syntax-object #{x 24135}# #{w 23911}# #f)))))))) #{situations 24115}#)))))) (#{f 23912}# #{when-list 23910}# '())))) (#{syntax-type 4445}# (lambda (#{e 24210}# #{r 24211}# #{w 24212}# #{s 24213}# #{rib 24214}# #{mod 24215}# #{for-car? 24216}#) (if (symbol? #{e 24210}#) (call-with-values (lambda () (#{resolve-identifier 4433}# #{e 24210}# #{w 24212}# #{r 24211}# #{mod 24215}# #t)) (lambda (#{type 24219}# #{value 24220}# #{mod* 24221}#) (if (eqv? #{type 24219}# 'macro) (if #{for-car? 24216}# (values #{type 24219}# #{value 24220}# #{e 24210}# #{w 24212}# #{s 24213}# #{mod 24215}#) (#{syntax-type 4445}# (#{chi-macro 4449}# #{value 24220}# #{e 24210}# #{r 24211}# #{w 24212}# #{s 24213}# #{rib 24214}# #{mod 24215}#) #{r 24211}# '(()) #{s 24213}# #{rib 24214}# #{mod 24215}# #f)) (if (eqv? #{type 24219}# 'global) (values #{type 24219}# #{value 24220}# #{value 24220}# #{w 24212}# #{s 24213}# #{mod* 24221}#) (values #{type 24219}# #{value 24220}# #{e 24210}# #{w 24212}# #{s 24213}# #{mod 24215}#))))) (if (pair? #{e 24210}#) (let ((#{first 24230}# (car #{e 24210}#))) (call-with-values (lambda () (#{syntax-type 4445}# #{first 24230}# #{r 24211}# #{w 24212}# #{s 24213}# #{rib 24214}# #{mod 24215}# #t)) (lambda (#{ftype 24232}# #{fval 24233}# #{fe 24234}# #{fw 24235}# #{fs 24236}# #{fmod 24237}#) (if (eqv? #{ftype 24232}# 'lexical) (values 'lexical-call #{fval 24233}# #{e 24210}# #{w 24212}# #{s 24213}# #{mod 24215}#) (if (eqv? #{ftype 24232}# 'global) (values 'global-call (vector 'syntax-object #{fval 24233}# #{w 24212}# #{fmod 24237}#) #{e 24210}# #{w 24212}# #{s 24213}# #{mod 24215}#) (if (eqv? #{ftype 24232}# 'macro) (#{syntax-type 4445}# (#{chi-macro 4449}# #{fval 24233}# #{e 24210}# #{r 24211}# #{w 24212}# #{s 24213}# #{rib 24214}# #{mod 24215}#) #{r 24211}# '(()) #{s 24213}# #{rib 24214}# #{mod 24215}# #{for-car? 24216}#) (if (eqv? #{ftype 24232}# 'module-ref) (call-with-values (lambda () (#{fval 24233}# #{e 24210}# #{r 24211}# #{w 24212}#)) (lambda (#{e 24258}# #{r 24259}# #{w 24260}# #{s 24261}# #{mod 24262}#) (#{syntax-type 4445}# #{e 24258}# #{r 24259}# #{w 24260}# #{s 24261}# #{rib 24214}# #{mod 24262}# #{for-car? 24216}#))) (if (eqv? #{ftype 24232}# 'core) (values 'core-form #{fval 24233}# #{e 24210}# #{w 24212}# #{s 24213}# #{mod 24215}#) (if (eqv? #{ftype 24232}# 'local-syntax) (values 'local-syntax-form #{fval 24233}# #{e 24210}# #{w 24212}# #{s 24213}# #{mod 24215}#) (if (eqv? #{ftype 24232}# 'begin) (values 'begin-form #f #{e 24210}# #{w 24212}# #{s 24213}# #{mod 24215}#) (if (eqv? #{ftype 24232}# 'eval-when) (values 'eval-when-form #f #{e 24210}# #{w 24212}# #{s 24213}# #{mod 24215}#) (if (eqv? #{ftype 24232}# 'define) (let ((#{tmp 24279}# ($sc-dispatch #{e 24210}# '(_ any any)))) (if (if #{tmp 24279}# (@apply (lambda (#{name 24283}# #{val 24284}#) (if (symbol? #{name 24283}#) #t (if (if (vector? #{name 24283}#) (if (= (vector-length #{name 24283}#) 4) (eq? (vector-ref #{name 24283}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref #{name 24283}# 1)) #f))) #{tmp 24279}#) #f) (@apply (lambda (#{name 24311}# #{val 24312}#) (values 'define-form #{name 24311}# #{val 24312}# #{w 24212}# #{s 24213}# #{mod 24215}#)) #{tmp 24279}#) (let ((#{tmp 24313}# ($sc-dispatch #{e 24210}# '(_ (any . any) any . each-any)))) (if (if #{tmp 24313}# (@apply (lambda (#{name 24317}# #{args 24318}# #{e1 24319}# #{e2 24320}#) (if (if (symbol? #{name 24317}#) #t (if (if (vector? #{name 24317}#) (if (= (vector-length #{name 24317}#) 4) (eq? (vector-ref #{name 24317}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref #{name 24317}# 1)) #f)) (#{valid-bound-ids? 4436}# (#{lambda-var-list 4461}# #{args 24318}#)) #f)) #{tmp 24313}#) #f) (@apply (lambda (#{name 24801}# #{args 24802}# #{e1 24803}# #{e2 24804}#) (values 'define-form (if (if (null? (car #{w 24212}#)) (null? (cdr #{w 24212}#)) #f) #{name 24801}# (if (if (vector? #{name 24801}#) (if (= (vector-length #{name 24801}#) 4) (eq? (vector-ref #{name 24801}# 0) 'syntax-object) #f) #f) (let ((#{expression 24834}# (vector-ref #{name 24801}# 1)) (#{wrap 24835}# (let ((#{w2 24845}# (vector-ref #{name 24801}# 2))) (let ((#{m1 24846}# (car #{w 24212}#)) (#{s1 24847}# (cdr #{w 24212}#))) (if (null? #{m1 24846}#) (if (null? #{s1 24847}#) #{w2 24845}# (cons (car #{w2 24845}#) (let ((#{m2 24864}# (cdr #{w2 24845}#))) (if (null? #{m2 24864}#) #{s1 24847}# (append #{s1 24847}# #{m2 24864}#))))) (cons (let ((#{m2 24872}# (car #{w2 24845}#))) (if (null? #{m2 24872}#) #{m1 24846}# (append #{m1 24846}# #{m2 24872}#))) (let ((#{m2 24880}# (cdr #{w2 24845}#))) (if (null? #{m2 24880}#) #{s1 24847}# (append #{s1 24847}# #{m2 24880}#)))))))) (#{module 24836}# (vector-ref #{name 24801}# 3))) (vector 'syntax-object #{expression 24834}# #{wrap 24835}# #{module 24836}#)) (if (null? #{name 24801}#) #{name 24801}# (vector 'syntax-object #{name 24801}# #{w 24212}# #{mod 24215}#)))) (let ((#{e 24906}# (cons '#(syntax-object lambda ((top) #(ribcage #(name args e1 e2) #((top) (top) (top) (top)) #("i1955" "i1956" "i1957" "i1958")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(ftype fval fe fw fs fmod) #((top) (top) (top) (top) (top) (top)) #("i1908" "i1909" "i1910" "i1911" "i1912" "i1913")) #(ribcage () () ()) #(ribcage #(first) #((top)) #("i1900")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(e r w s rib mod for-car?) #((top) (top) (top) (top) (top) (top) (top)) #("i1879" "i1880" "i1881" "i1882" "i1883" "i1884" "i1885")) #(ribcage (lambda-var-list gen-var strip chi-lambda-case lambda*-formals chi-simple-lambda lambda-formals ellipsis? chi-void eval-local-transformer chi-local-syntax chi-body chi-macro chi-call chi-expr chi syntax-type chi-when-list chi-install-global chi-top-sequence chi-sequence source-wrap wrap bound-id-member? distinct-bound-ids? valid-bound-ids? bound-id=? free-id=? resolve-identifier 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 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-primcall 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-call 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-seq make-primcall make-call 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) (top) (top)) ("i471" "i469" "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" "i400" "i398" "i395" "i394" "i393" "i391" "i390" "i388" "i386" "i384" "i382" "i380" "i378" "i376" "i374" "i371" "i369" "i368" "i366" "i364" "i362" "i360" "i359" "i358" "i357" "i355" "i354" "i351" "i349" "i347" "i345" "i343" "i341" "i340" "i339" "i337" "i335" "i334" "i331" "i330" "i328" "i326" "i324" "i322" "i320" "i318" "i316" "i314" "i312" "i309" "i307" "i305" "i303" "i301" "i299" "i297" "i295" "i293" "i291" "i289" "i287" "i285" "i283" "i281" "i279" "i277" "i275" "i273" "i271" "i269" "i267" "i265" "i263" "i262" "i259" "i257" "i256" "i255" "i254" "i253" "i251" "i249" "i247" "i244" "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")) #(ribcage () () ())) (hygiene guile)) (let ((#{x 24910}# (cons #{args 24802}# (cons #{e1 24803}# #{e2 24804}#)))) (if (if (null? (car #{w 24212}#)) (null? (cdr #{w 24212}#)) #f) #{x 24910}# (if (if (vector? #{x 24910}#) (if (= (vector-length #{x 24910}#) 4) (eq? (vector-ref #{x 24910}# 0) 'syntax-object) #f) #f) (let ((#{expression 24928}# (vector-ref #{x 24910}# 1)) (#{wrap 24929}# (let ((#{w2 24937}# (vector-ref #{x 24910}# 2))) (let ((#{m1 24938}# (car #{w 24212}#)) (#{s1 24939}# (cdr #{w 24212}#))) (if (null? #{m1 24938}#) (if (null? #{s1 24939}#) #{w2 24937}# (cons (car #{w2 24937}#) (let ((#{m2 24954}# (cdr #{w2 24937}#))) (if (null? #{m2 24954}#) #{s1 24939}# (append #{s1 24939}# #{m2 24954}#))))) (cons (let ((#{m2 24962}# (car #{w2 24937}#))) (if (null? #{m2 24962}#) #{m1 24938}# (append #{m1 24938}# #{m2 24962}#))) (let ((#{m2 24970}# (cdr #{w2 24937}#))) (if (null? #{m2 24970}#) #{s1 24939}# (append #{s1 24939}# #{m2 24970}#)))))))) (#{module 24930}# (vector-ref #{x 24910}# 3))) (vector 'syntax-object #{expression 24928}# #{wrap 24929}# #{module 24930}#)) (if (null? #{x 24910}#) #{x 24910}# (vector 'syntax-object #{x 24910}# #{w 24212}# #{mod 24215}#)))))))) (begin (if (if (pair? #{e 24906}#) #{s 24213}# #f) (set-source-properties! #{e 24906}# #{s 24213}#)) #{e 24906}#)) '(()) #{s 24213}# #{mod 24215}#)) #{tmp 24313}#) (let ((#{tmp 24989}# ($sc-dispatch #{e 24210}# '(_ any)))) (if (if #{tmp 24989}# (@apply (lambda (#{name 24993}#) (if (symbol? #{name 24993}#) #t (if (if (vector? #{name 24993}#) (if (= (vector-length #{name 24993}#) 4) (eq? (vector-ref #{name 24993}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref #{name 24993}# 1)) #f))) #{tmp 24989}#) #f) (@apply (lambda (#{name 25020}#) (values 'define-form (if (if (null? (car #{w 24212}#)) (null? (cdr #{w 24212}#)) #f) #{name 25020}# (if (if (vector? #{name 25020}#) (if (= (vector-length #{name 25020}#) 4) (eq? (vector-ref #{name 25020}# 0) 'syntax-object) #f) #f) (let ((#{expression 25050}# (vector-ref #{name 25020}# 1)) (#{wrap 25051}# (let ((#{w2 25061}# (vector-ref #{name 25020}# 2))) (let ((#{m1 25062}# (car #{w 24212}#)) (#{s1 25063}# (cdr #{w 24212}#))) (if (null? #{m1 25062}#) (if (null? #{s1 25063}#) #{w2 25061}# (cons (car #{w2 25061}#) (let ((#{m2 25080}# (cdr #{w2 25061}#))) (if (null? #{m2 25080}#) #{s1 25063}# (append #{s1 25063}# #{m2 25080}#))))) (cons (let ((#{m2 25088}# (car #{w2 25061}#))) (if (null? #{m2 25088}#) #{m1 25062}# (append #{m1 25062}# #{m2 25088}#))) (let ((#{m2 25096}# (cdr #{w2 25061}#))) (if (null? #{m2 25096}#) #{s1 25063}# (append #{s1 25063}# #{m2 25096}#)))))))) (#{module 25052}# (vector-ref #{name 25020}# 3))) (vector 'syntax-object #{expression 25050}# #{wrap 25051}# #{module 25052}#)) (if (null? #{name 25020}#) #{name 25020}# (vector 'syntax-object #{name 25020}# #{w 24212}# #{mod 24215}#)))) '(#(syntax-object if ((top) #(ribcage #(name) #((top)) #("i1968")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(ftype fval fe fw fs fmod) #((top) (top) (top) (top) (top) (top)) #("i1908" "i1909" "i1910" "i1911" "i1912" "i1913")) #(ribcage () () ()) #(ribcage #(first) #((top)) #("i1900")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(e r w s rib mod for-car?) #((top) (top) (top) (top) (top) (top) (top)) #("i1879" "i1880" "i1881" "i1882" "i1883" "i1884" "i1885")) #(ribcage (lambda-var-list gen-var strip chi-lambda-case lambda*-formals chi-simple-lambda lambda-formals ellipsis? chi-void eval-local-transformer chi-local-syntax chi-body chi-macro chi-call chi-expr chi syntax-type chi-when-list chi-install-global chi-top-sequence chi-sequence source-wrap wrap bound-id-member? distinct-bound-ids? valid-bound-ids? bound-id=? free-id=? resolve-identifier 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 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-primcall 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-call 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-seq make-primcall make-call 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) (top) (top)) ("i471" "i469" "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" "i400" "i398" "i395" "i394" "i393" "i391" "i390" "i388" "i386" "i384" "i382" "i380" "i378" "i376" "i374" "i371" "i369" "i368" "i366" "i364" "i362" "i360" "i359" "i358" "i357" "i355" "i354" "i351" "i349" "i347" "i345" "i343" "i341" "i340" "i339" "i337" "i335" "i334" "i331" "i330" "i328" "i326" "i324" "i322" "i320" "i318" "i316" "i314" "i312" "i309" "i307" "i305" "i303" "i301" "i299" "i297" "i295" "i293" "i291" "i289" "i287" "i285" "i283" "i281" "i279" "i277" "i275" "i273" "i271" "i269" "i267" "i265" "i263" "i262" "i259" "i257" "i256" "i255" "i254" "i253" "i251" "i249" "i247" "i244" "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")) #(ribcage () () ())) (hygiene guile)) #(syntax-object #f ((top) #(ribcage #(name) #((top)) #("i1968")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(ftype fval fe fw fs fmod) #((top) (top) (top) (top) (top) (top)) #("i1908" "i1909" "i1910" "i1911" "i1912" "i1913")) #(ribcage () () ()) #(ribcage #(first) #((top)) #("i1900")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(e r w s rib mod for-car?) #((top) (top) (top) (top) (top) (top) (top)) #("i1879" "i1880" "i1881" "i1882" "i1883" "i1884" "i1885")) #(ribcage (lambda-var-list gen-var strip chi-lambda-case lambda*-formals chi-simple-lambda lambda-formals ellipsis? chi-void eval-local-transformer chi-local-syntax chi-body chi-macro chi-call chi-expr chi syntax-type chi-when-list chi-install-global chi-top-sequence chi-sequence source-wrap wrap bound-id-member? distinct-bound-ids? valid-bound-ids? bound-id=? free-id=? resolve-identifier 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 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-primcall 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-call 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-seq make-primcall make-call 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) (top) (top)) ("i471" "i469" "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" "i400" "i398" "i395" "i394" "i393" "i391" "i390" "i388" "i386" "i384" "i382" "i380" "i378" "i376" "i374" "i371" "i369" "i368" "i366" "i364" "i362" "i360" "i359" "i358" "i357" "i355" "i354" "i351" "i349" "i347" "i345" "i343" "i341" "i340" "i339" "i337" "i335" "i334" "i331" "i330" "i328" "i326" "i324" "i322" "i320" "i318" "i316" "i314" "i312" "i309" "i307" "i305" "i303" "i301" "i299" "i297" "i295" "i293" "i291" "i289" "i287" "i285" "i283" "i281" "i279" "i277" "i275" "i273" "i271" "i269" "i267" "i265" "i263" "i262" "i259" "i257" "i256" "i255" "i254" "i253" "i251" "i249" "i247" "i244" "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")) #(ribcage () () ())) (hygiene guile)) #(syntax-object #f ((top) #(ribcage #(name) #((top)) #("i1968")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(ftype fval fe fw fs fmod) #((top) (top) (top) (top) (top) (top)) #("i1908" "i1909" "i1910" "i1911" "i1912" "i1913")) #(ribcage () () ()) #(ribcage #(first) #((top)) #("i1900")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(e r w s rib mod for-car?) #((top) (top) (top) (top) (top) (top) (top)) #("i1879" "i1880" "i1881" "i1882" "i1883" "i1884" "i1885")) #(ribcage (lambda-var-list gen-var strip chi-lambda-case lambda*-formals chi-simple-lambda lambda-formals ellipsis? chi-void eval-local-transformer chi-local-syntax chi-body chi-macro chi-call chi-expr chi syntax-type chi-when-list chi-install-global chi-top-sequence chi-sequence source-wrap wrap bound-id-member? distinct-bound-ids? valid-bound-ids? bound-id=? free-id=? resolve-identifier 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 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-primcall 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-call 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-seq make-primcall make-call 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) (top) (top)) ("i471" "i469" "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" "i400" "i398" "i395" "i394" "i393" "i391" "i390" "i388" "i386" "i384" "i382" "i380" "i378" "i376" "i374" "i371" "i369" "i368" "i366" "i364" "i362" "i360" "i359" "i358" "i357" "i355" "i354" "i351" "i349" "i347" "i345" "i343" "i341" "i340" "i339" "i337" "i335" "i334" "i331" "i330" "i328" "i326" "i324" "i322" "i320" "i318" "i316" "i314" "i312" "i309" "i307" "i305" "i303" "i301" "i299" "i297" "i295" "i293" "i291" "i289" "i287" "i285" "i283" "i281" "i279" "i277" "i275" "i273" "i271" "i269" "i267" "i265" "i263" "i262" "i259" "i257" "i256" "i255" "i254" "i253" "i251" "i249" "i247" "i244" "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")) #(ribcage () () ())) (hygiene guile))) '(()) #{s 24213}# #{mod 24215}#)) #{tmp 24989}#) (syntax-violation #f "source expression failed to match any pattern" #{e 24210}#))))))) (if (eqv? #{ftype 24232}# 'define-syntax) (let ((#{tmp 25135}# ($sc-dispatch #{e 24210}# '(_ any any)))) (if (if #{tmp 25135}# (@apply (lambda (#{name 25139}# #{val 25140}#) (if (symbol? #{name 25139}#) #t (if (if (vector? #{name 25139}#) (if (= (vector-length #{name 25139}#) 4) (eq? (vector-ref #{name 25139}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref #{name 25139}# 1)) #f))) #{tmp 25135}#) #f) (@apply (lambda (#{name 25167}# #{val 25168}#) (values 'define-syntax-form #{name 25167}# #{val 25168}# #{w 24212}# #{s 24213}# #{mod 24215}#)) #{tmp 25135}#) (syntax-violation #f "source expression failed to match any pattern" #{e 24210}#))) (if (eqv? #{ftype 24232}# 'define-syntax-parameter) (let ((#{tmp 25179}# ($sc-dispatch #{e 24210}# '(_ any any)))) (if (if #{tmp 25179}# (@apply (lambda (#{name 25183}# #{val 25184}#) (if (symbol? #{name 25183}#) #t (if (if (vector? #{name 25183}#) (if (= (vector-length #{name 25183}#) 4) (eq? (vector-ref #{name 25183}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref #{name 25183}# 1)) #f))) #{tmp 25179}#) #f) (@apply (lambda (#{name 25211}# #{val 25212}#) (values 'define-syntax-parameter-form #{name 25211}# #{val 25212}# #{w 24212}# #{s 24213}# #{mod 24215}#)) #{tmp 25179}#) (syntax-violation #f "source expression failed to match any pattern" #{e 24210}#))) (values 'call #f #{e 24210}# #{w 24212}# #{s 24213}# #{mod 24215}#))))))))))))))) (if (if (vector? #{e 24210}#) (if (= (vector-length #{e 24210}#) 4) (eq? (vector-ref #{e 24210}# 0) 'syntax-object) #f) #f) (#{syntax-type 4445}# (vector-ref #{e 24210}# 1) #{r 24211}# (let ((#{w2 25237}# (vector-ref #{e 24210}# 2))) (let ((#{m1 25238}# (car #{w 24212}#)) (#{s1 25239}# (cdr #{w 24212}#))) (if (null? #{m1 25238}#) (if (null? #{s1 25239}#) #{w2 25237}# (cons (car #{w2 25237}#) (let ((#{m2 25250}# (cdr #{w2 25237}#))) (if (null? #{m2 25250}#) #{s1 25239}# (append #{s1 25239}# #{m2 25250}#))))) (cons (let ((#{m2 25258}# (car #{w2 25237}#))) (if (null? #{m2 25258}#) #{m1 25238}# (append #{m1 25238}# #{m2 25258}#))) (let ((#{m2 25266}# (cdr #{w2 25237}#))) (if (null? #{m2 25266}#) #{s1 25239}# (append #{s1 25239}# #{m2 25266}#))))))) (let ((#{t 25271}# (#{source-annotation 4407}# #{e 24210}#))) (if #{t 25271}# #{t 25271}# #{s 24213}#)) #{rib 24214}# (let ((#{t 25569}# (vector-ref #{e 24210}# 3))) (if #{t 25569}# #{t 25569}# #{mod 24215}#)) #{for-car? 24216}#) (if (self-evaluating? #{e 24210}#) (values 'constant #f #{e 24210}# #{w 24212}# #{s 24213}# #{mod 24215}#) (values 'other #f #{e 24210}# #{w 24212}# #{s 24213}# #{mod 24215}#))))))) (#{chi 4446}# (lambda (#{e 25578}# #{r 25579}# #{w 25580}# #{mod 25581}#) (call-with-values (lambda () (#{syntax-type 4445}# #{e 25578}# #{r 25579}# #{w 25580}# (#{source-annotation 4407}# #{e 25578}#) #f #{mod 25581}# #f)) (lambda (#{type 25785}# #{value 25786}# #{e 25787}# #{w 25788}# #{s 25789}# #{mod 25790}#) (#{chi-expr 4447}# #{type 25785}# #{value 25786}# #{e 25787}# #{r 25579}# #{w 25788}# #{s 25789}# #{mod 25790}#))))) (#{chi-expr 4447}# (lambda (#{type 25793}# #{value 25794}# #{e 25795}# #{r 25796}# #{w 25797}# #{s 25798}# #{mod 25799}#) (if (eqv? #{type 25793}# 'lexical) (make-struct/no-tail (vector-ref %expanded-vtables 3) #{s 25798}# #{e 25795}# #{value 25794}#) (if (if (eqv? #{type 25793}# 'core) #t (eqv? #{type 25793}# 'core-form)) (#{value 25794}# #{e 25795}# #{r 25796}# #{w 25797}# #{s 25798}# #{mod 25799}#) (if (eqv? #{type 25793}# 'module-ref) (call-with-values (lambda () (#{value 25794}# #{e 25795}# #{r 25796}# #{w 25797}#)) (lambda (#{e 25825}# #{r 25826}# #{w 25827}# #{s 25828}# #{mod 25829}#) (#{chi 4446}# #{e 25825}# #{r 25826}# #{w 25827}# #{mod 25829}#))) (if (eqv? #{type 25793}# 'lexical-call) (#{chi-call 4448}# (let ((#{id 26010}# (car #{e 25795}#))) (#{build-lexical-reference 4383}# 'fun (#{source-annotation 4407}# #{id 26010}#) (if (if (vector? #{id 26010}#) (if (= (vector-length #{id 26010}#) 4) (eq? (vector-ref #{id 26010}# 0) 'syntax-object) #f) #f) (syntax->datum #{id 26010}#) #{id 26010}#) #{value 25794}#)) #{e 25795}# #{r 25796}# #{w 25797}# #{s 25798}# #{mod 25799}#) (if (eqv? #{type 25793}# 'global-call) (#{chi-call 4448}# (#{build-global-reference 4386}# (#{source-annotation 4407}# (car #{e 25795}#)) (if (if (vector? #{value 25794}#) (if (= (vector-length #{value 25794}#) 4) (eq? (vector-ref #{value 25794}# 0) 'syntax-object) #f) #f) (vector-ref #{value 25794}# 1) #{value 25794}#) (if (if (vector? #{value 25794}#) (if (= (vector-length #{value 25794}#) 4) (eq? (vector-ref #{value 25794}# 0) 'syntax-object) #f) #f) (vector-ref #{value 25794}# 3) #{mod 25799}#)) #{e 25795}# #{r 25796}# #{w 25797}# #{s 25798}# #{mod 25799}#) (if (eqv? #{type 25793}# 'constant) (let ((#{exp 26732}# (#{strip 4459}# (let ((#{x 26745}# (begin (if (if (pair? #{e 25795}#) #{s 25798}# #f) (set-source-properties! #{e 25795}# #{s 25798}#)) #{e 25795}#))) (if (if (null? (car #{w 25797}#)) (null? (cdr #{w 25797}#)) #f) #{x 26745}# (if (if (vector? #{x 26745}#) (if (= (vector-length #{x 26745}#) 4) (eq? (vector-ref #{x 26745}# 0) 'syntax-object) #f) #f) (let ((#{expression 26777}# (vector-ref #{x 26745}# 1)) (#{wrap 26778}# (let ((#{w2 26786}# (vector-ref #{x 26745}# 2))) (let ((#{m1 26787}# (car #{w 25797}#)) (#{s1 26788}# (cdr #{w 25797}#))) (if (null? #{m1 26787}#) (if (null? #{s1 26788}#) #{w2 26786}# (cons (car #{w2 26786}#) (let ((#{m2 26803}# (cdr #{w2 26786}#))) (if (null? #{m2 26803}#) #{s1 26788}# (append #{s1 26788}# #{m2 26803}#))))) (cons (let ((#{m2 26811}# (car #{w2 26786}#))) (if (null? #{m2 26811}#) #{m1 26787}# (append #{m1 26787}# #{m2 26811}#))) (let ((#{m2 26819}# (cdr #{w2 26786}#))) (if (null? #{m2 26819}#) #{s1 26788}# (append #{s1 26788}# #{m2 26819}#)))))))) (#{module 26779}# (vector-ref #{x 26745}# 3))) (vector 'syntax-object #{expression 26777}# #{wrap 26778}# #{module 26779}#)) (if (null? #{x 26745}#) #{x 26745}# (vector 'syntax-object #{x 26745}# #{w 25797}# #{mod 25799}#))))) '(())))) (make-struct/no-tail (vector-ref %expanded-vtables 1) #{s 25798}# #{exp 26732}#)) (if (eqv? #{type 25793}# 'global) (#{analyze-variable 4385}# #{mod 25799}# #{value 25794}# (lambda (#{mod 26844}# #{var 26845}# #{public? 26846}#) (make-struct/no-tail (vector-ref %expanded-vtables 5) #{s 25798}# #{mod 26844}# #{var 26845}# #{public? 26846}#)) (lambda (#{var 26854}#) (make-struct/no-tail (vector-ref %expanded-vtables 7) #{s 25798}# #{var 26854}#))) (if (eqv? #{type 25793}# 'call) (#{chi-call 4448}# (#{chi 4446}# (car #{e 25795}#) #{r 25796}# #{w 25797}# #{mod 25799}#) #{e 25795}# #{r 25796}# #{w 25797}# #{s 25798}# #{mod 25799}#) (if (eqv? #{type 25793}# 'begin-form) (let ((#{tmp 27032}# ($sc-dispatch #{e 25795}# '(_ any . each-any)))) (if #{tmp 27032}# (@apply (lambda (#{e1 27036}# #{e2 27037}#) (#{chi-sequence 4441}# (cons #{e1 27036}# #{e2 27037}#) #{r 25796}# #{w 25797}# #{s 25798}# #{mod 25799}#)) #{tmp 27032}#) (syntax-violation #f "source expression failed to match any pattern" #{e 25795}#))) (if (eqv? #{type 25793}# 'local-syntax-form) (#{chi-local-syntax 4451}# #{value 25794}# #{e 25795}# #{r 25796}# #{w 25797}# #{s 25798}# #{mod 25799}# #{chi-sequence 4441}#) (if (eqv? #{type 25793}# 'eval-when-form) (let ((#{tmp 27217}# ($sc-dispatch #{e 25795}# '(_ each-any any . each-any)))) (if #{tmp 27217}# (@apply (lambda (#{x 27221}# #{e1 27222}# #{e2 27223}#) (let ((#{when-list 27224}# (#{chi-when-list 4444}# #{e 25795}# #{x 27221}# #{w 25797}#))) (if (memq 'eval #{when-list 27224}#) (#{chi-sequence 4441}# (cons #{e1 27222}# #{e2 27223}#) #{r 25796}# #{w 25797}# #{s 25798}# #{mod 25799}#) (make-struct/no-tail (vector-ref %expanded-vtables 0) #f)))) #{tmp 27217}#) (syntax-violation #f "source expression failed to match any pattern" #{e 25795}#))) (if (if (eqv? #{type 25793}# 'define-form) #t (if (eqv? #{type 25793}# 'define-syntax-form) #t (eqv? #{type 25793}# 'define-syntax-parameter-form))) (syntax-violation #f "definition in expression context" #{e 25795}# (if (if (null? (car #{w 25797}#)) (null? (cdr #{w 25797}#)) #f) #{value 25794}# (if (if (vector? #{value 25794}#) (if (= (vector-length #{value 25794}#) 4) (eq? (vector-ref #{value 25794}# 0) 'syntax-object) #f) #f) (let ((#{expression 27378}# (vector-ref #{value 25794}# 1)) (#{wrap 27379}# (let ((#{w2 27389}# (vector-ref #{value 25794}# 2))) (let ((#{m1 27390}# (car #{w 25797}#)) (#{s1 27391}# (cdr #{w 25797}#))) (if (null? #{m1 27390}#) (if (null? #{s1 27391}#) #{w2 27389}# (cons (car #{w2 27389}#) (let ((#{m2 27408}# (cdr #{w2 27389}#))) (if (null? #{m2 27408}#) #{s1 27391}# (append #{s1 27391}# #{m2 27408}#))))) (cons (let ((#{m2 27416}# (car #{w2 27389}#))) (if (null? #{m2 27416}#) #{m1 27390}# (append #{m1 27390}# #{m2 27416}#))) (let ((#{m2 27424}# (cdr #{w2 27389}#))) (if (null? #{m2 27424}#) #{s1 27391}# (append #{s1 27391}# #{m2 27424}#)))))))) (#{module 27380}# (vector-ref #{value 25794}# 3))) (vector 'syntax-object #{expression 27378}# #{wrap 27379}# #{module 27380}#)) (if (null? #{value 25794}#) #{value 25794}# (vector 'syntax-object #{value 25794}# #{w 25797}# #{mod 25799}#))))) (if (eqv? #{type 25793}# 'syntax) (syntax-violation #f "reference to pattern variable outside syntax form" (let ((#{x 27459}# (begin (if (if (pair? #{e 25795}#) #{s 25798}# #f) (set-source-properties! #{e 25795}# #{s 25798}#)) #{e 25795}#))) (if (if (null? (car #{w 25797}#)) (null? (cdr #{w 25797}#)) #f) #{x 27459}# (if (if (vector? #{x 27459}#) (if (= (vector-length #{x 27459}#) 4) (eq? (vector-ref #{x 27459}# 0) 'syntax-object) #f) #f) (let ((#{expression 27491}# (vector-ref #{x 27459}# 1)) (#{wrap 27492}# (let ((#{w2 27500}# (vector-ref #{x 27459}# 2))) (let ((#{m1 27501}# (car #{w 25797}#)) (#{s1 27502}# (cdr #{w 25797}#))) (if (null? #{m1 27501}#) (if (null? #{s1 27502}#) #{w2 27500}# (cons (car #{w2 27500}#) (let ((#{m2 27517}# (cdr #{w2 27500}#))) (if (null? #{m2 27517}#) #{s1 27502}# (append #{s1 27502}# #{m2 27517}#))))) (cons (let ((#{m2 27525}# (car #{w2 27500}#))) (if (null? #{m2 27525}#) #{m1 27501}# (append #{m1 27501}# #{m2 27525}#))) (let ((#{m2 27533}# (cdr #{w2 27500}#))) (if (null? #{m2 27533}#) #{s1 27502}# (append #{s1 27502}# #{m2 27533}#)))))))) (#{module 27493}# (vector-ref #{x 27459}# 3))) (vector 'syntax-object #{expression 27491}# #{wrap 27492}# #{module 27493}#)) (if (null? #{x 27459}#) #{x 27459}# (vector 'syntax-object #{x 27459}# #{w 25797}# #{mod 25799}#)))))) (if (eqv? #{type 25793}# 'displaced-lexical) (syntax-violation #f "reference to identifier outside its scope" (let ((#{x 27560}# (begin (if (if (pair? #{e 25795}#) #{s 25798}# #f) (set-source-properties! #{e 25795}# #{s 25798}#)) #{e 25795}#))) (if (if (null? (car #{w 25797}#)) (null? (cdr #{w 25797}#)) #f) #{x 27560}# (if (if (vector? #{x 27560}#) (if (= (vector-length #{x 27560}#) 4) (eq? (vector-ref #{x 27560}# 0) 'syntax-object) #f) #f) (let ((#{expression 27592}# (vector-ref #{x 27560}# 1)) (#{wrap 27593}# (let ((#{w2 27601}# (vector-ref #{x 27560}# 2))) (let ((#{m1 27602}# (car #{w 25797}#)) (#{s1 27603}# (cdr #{w 25797}#))) (if (null? #{m1 27602}#) (if (null? #{s1 27603}#) #{w2 27601}# (cons (car #{w2 27601}#) (let ((#{m2 27618}# (cdr #{w2 27601}#))) (if (null? #{m2 27618}#) #{s1 27603}# (append #{s1 27603}# #{m2 27618}#))))) (cons (let ((#{m2 27626}# (car #{w2 27601}#))) (if (null? #{m2 27626}#) #{m1 27602}# (append #{m1 27602}# #{m2 27626}#))) (let ((#{m2 27634}# (cdr #{w2 27601}#))) (if (null? #{m2 27634}#) #{s1 27603}# (append #{s1 27603}# #{m2 27634}#)))))))) (#{module 27594}# (vector-ref #{x 27560}# 3))) (vector 'syntax-object #{expression 27592}# #{wrap 27593}# #{module 27594}#)) (if (null? #{x 27560}#) #{x 27560}# (vector 'syntax-object #{x 27560}# #{w 25797}# #{mod 25799}#)))))) (syntax-violation #f "unexpected syntax" (let ((#{x 27658}# (begin (if (if (pair? #{e 25795}#) #{s 25798}# #f) (set-source-properties! #{e 25795}# #{s 25798}#)) #{e 25795}#))) (if (if (null? (car #{w 25797}#)) (null? (cdr #{w 25797}#)) #f) #{x 27658}# (if (if (vector? #{x 27658}#) (if (= (vector-length #{x 27658}#) 4) (eq? (vector-ref #{x 27658}# 0) 'syntax-object) #f) #f) (let ((#{expression 27690}# (vector-ref #{x 27658}# 1)) (#{wrap 27691}# (let ((#{w2 27699}# (vector-ref #{x 27658}# 2))) (let ((#{m1 27700}# (car #{w 25797}#)) (#{s1 27701}# (cdr #{w 25797}#))) (if (null? #{m1 27700}#) (if (null? #{s1 27701}#) #{w2 27699}# (cons (car #{w2 27699}#) (let ((#{m2 27716}# (cdr #{w2 27699}#))) (if (null? #{m2 27716}#) #{s1 27701}# (append #{s1 27701}# #{m2 27716}#))))) (cons (let ((#{m2 27724}# (car #{w2 27699}#))) (if (null? #{m2 27724}#) #{m1 27700}# (append #{m1 27700}# #{m2 27724}#))) (let ((#{m2 27732}# (cdr #{w2 27699}#))) (if (null? #{m2 27732}#) #{s1 27701}# (append #{s1 27701}# #{m2 27732}#)))))))) (#{module 27692}# (vector-ref #{x 27658}# 3))) (vector 'syntax-object #{expression 27690}# #{wrap 27691}# #{module 27692}#)) (if (null? #{x 27658}#) #{x 27658}# (vector 'syntax-object #{x 27658}# #{w 25797}# #{mod 25799}#)))))))))))))))))))))) (#{chi-call 4448}# (lambda (#{x 27747}# #{e 27748}# #{r 27749}# #{w 27750}# #{s 27751}# #{mod 27752}#) (let ((#{tmp 27754}# ($sc-dispatch #{e 27748}# '(any . each-any)))) (if #{tmp 27754}# (@apply (lambda (#{e0 27758}# #{e1 27759}#) (#{build-call 4380}# #{s 27751}# #{x 27747}# (map (lambda (#{e 27851}#) (#{chi 4446}# #{e 27851}# #{r 27749}# #{w 27750}# #{mod 27752}#)) #{e1 27759}#))) #{tmp 27754}#) (syntax-violation #f "source expression failed to match any pattern" #{e 27748}#))))) (#{chi-macro 4449}# (lambda (#{p 27939}# #{e 27940}# #{r 27941}# #{w 27942}# #{s 27943}# #{rib 27944}# #{mod 27945}#) (letrec* ((#{rebuild-macro-output 27946}# (lambda (#{x 28053}# #{m 28054}#) (if (pair? #{x 28053}#) (let ((#{e 28058}# (cons (#{rebuild-macro-output 27946}# (car #{x 28053}#) #{m 28054}#) (#{rebuild-macro-output 27946}# (cdr #{x 28053}#) #{m 28054}#)))) (begin (if (if (pair? #{e 28058}#) #{s 27943}# #f) (set-source-properties! #{e 28058}# #{s 27943}#)) #{e 28058}#)) (if (if (vector? #{x 28053}#) (if (= (vector-length #{x 28053}#) 4) (eq? (vector-ref #{x 28053}# 0) 'syntax-object) #f) #f) (let ((#{w 28074}# (vector-ref #{x 28053}# 2))) (let ((#{ms 28075}# (car #{w 28074}#)) (#{s 28076}# (cdr #{w 28074}#))) (if (if (pair? #{ms 28075}#) (eq? (car #{ms 28075}#) #f) #f) (let ((#{expression 28084}# (vector-ref #{x 28053}# 1)) (#{wrap 28085}# (cons (cdr #{ms 28075}#) (if #{rib 27944}# (cons #{rib 27944}# (cdr #{s 28076}#)) (cdr #{s 28076}#)))) (#{module 28086}# (vector-ref #{x 28053}# 3))) (vector 'syntax-object #{expression 28084}# #{wrap 28085}# #{module 28086}#)) (let ((#{expression 28096}# (let ((#{e 28101}# (vector-ref #{x 28053}# 1))) (begin (if (if (pair? #{e 28101}#) #{s 28076}# #f) (set-source-properties! #{e 28101}# #{s 28076}#)) #{e 28101}#))) (#{wrap 28097}# (cons (cons #{m 28054}# #{ms 28075}#) (if #{rib 27944}# (cons #{rib 27944}# (cons 'shift #{s 28076}#)) (cons 'shift #{s 28076}#)))) (#{module 28098}# (vector-ref #{x 28053}# 3))) (vector 'syntax-object #{expression 28096}# #{wrap 28097}# #{module 28098}#))))) (if (vector? #{x 28053}#) (let ((#{n 28113}# (vector-length #{x 28053}#))) (let ((#{v 28114}# (let ((#{e 28122}# (make-vector #{n 28113}#))) (begin (if (if (pair? #{e 28122}#) #{x 28053}# #f) (set-source-properties! #{e 28122}# #{x 28053}#)) #{e 28122}#)))) (letrec* ((#{loop 28115}# (lambda (#{i 28176}#) (if (= #{i 28176}# #{n 28113}#) #{v 28114}# (begin (vector-set! #{v 28114}# #{i 28176}# (#{rebuild-macro-output 27946}# (vector-ref #{x 28053}# #{i 28176}#) #{m 28054}#)) (#{loop 28115}# (#{1+}# #{i 28176}#))))))) (#{loop 28115}# 0)))) (if (symbol? #{x 28053}#) (syntax-violation #f "encountered raw symbol in macro output" (let ((#{s 28182}# (cdr #{w 27942}#))) (let ((#{x 28186}# (begin (if (if (pair? #{e 27940}#) #{s 28182}# #f) (set-source-properties! #{e 27940}# #{s 28182}#)) #{e 27940}#))) (if (if (null? (car #{w 27942}#)) (null? (cdr #{w 27942}#)) #f) #{x 28186}# (if (if (vector? #{x 28186}#) (if (= (vector-length #{x 28186}#) 4) (eq? (vector-ref #{x 28186}# 0) 'syntax-object) #f) #f) (let ((#{expression 28218}# (vector-ref #{x 28186}# 1)) (#{wrap 28219}# (let ((#{w2 28227}# (vector-ref #{x 28186}# 2))) (let ((#{m1 28228}# (car #{w 27942}#)) (#{s1 28229}# (cdr #{w 27942}#))) (if (null? #{m1 28228}#) (if (null? #{s1 28229}#) #{w2 28227}# (cons (car #{w2 28227}#) (let ((#{m2 28244}# (cdr #{w2 28227}#))) (if (null? #{m2 28244}#) #{s1 28229}# (append #{s1 28229}# #{m2 28244}#))))) (cons (let ((#{m2 28252}# (car #{w2 28227}#))) (if (null? #{m2 28252}#) #{m1 28228}# (append #{m1 28228}# #{m2 28252}#))) (let ((#{m2 28260}# (cdr #{w2 28227}#))) (if (null? #{m2 28260}#) #{s1 28229}# (append #{s1 28229}# #{m2 28260}#)))))))) (#{module 28220}# (vector-ref #{x 28186}# 3))) (vector 'syntax-object #{expression 28218}# #{wrap 28219}# #{module 28220}#)) (if (null? #{x 28186}#) #{x 28186}# (vector 'syntax-object #{x 28186}# #{w 27942}# #{mod 27945}#)))))) #{x 28053}#) (begin (if (if (pair? #{x 28053}#) #{s 27943}# #f) (set-source-properties! #{x 28053}# #{s 27943}#)) #{x 28053}#)))))))) (#{rebuild-macro-output 27946}# (#{p 27939}# (let ((#{w 27953}# (cons (cons #f (car #{w 27942}#)) (cons 'shift (cdr #{w 27942}#))))) (let ((#{x 27958}# (begin (if (if (pair? #{e 27940}#) #{s 27943}# #f) (set-source-properties! #{e 27940}# #{s 27943}#)) #{e 27940}#))) (if (if (null? (car #{w 27953}#)) (null? (cdr #{w 27953}#)) #f) #{x 27958}# (if (if (vector? #{x 27958}#) (if (= (vector-length #{x 27958}#) 4) (eq? (vector-ref #{x 27958}# 0) 'syntax-object) #f) #f) (let ((#{expression 27996}# (vector-ref #{x 27958}# 1)) (#{wrap 27997}# (let ((#{w2 28005}# (vector-ref #{x 27958}# 2))) (let ((#{m1 28006}# (car #{w 27953}#)) (#{s1 28007}# (cdr #{w 27953}#))) (if (null? #{m1 28006}#) (if (null? #{s1 28007}#) #{w2 28005}# (cons (car #{w2 28005}#) (let ((#{m2 28022}# (cdr #{w2 28005}#))) (if (null? #{m2 28022}#) #{s1 28007}# (append #{s1 28007}# #{m2 28022}#))))) (cons (let ((#{m2 28030}# (car #{w2 28005}#))) (if (null? #{m2 28030}#) #{m1 28006}# (append #{m1 28006}# #{m2 28030}#))) (let ((#{m2 28038}# (cdr #{w2 28005}#))) (if (null? #{m2 28038}#) #{s1 28007}# (append #{s1 28007}# #{m2 28038}#)))))))) (#{module 27998}# (vector-ref #{x 27958}# 3))) (vector 'syntax-object #{expression 27996}# #{wrap 27997}# #{module 27998}#)) (if (null? #{x 27958}#) #{x 27958}# (vector 'syntax-object #{x 27958}# #{w 27953}# #{mod 27945}#))))))) (gensym "m"))))) (#{chi-body 4450}# (lambda (#{body 28290}# #{outer-form 28291}# #{r 28292}# #{w 28293}# #{mod 28294}#) (let ((#{r 28295}# (cons '("placeholder" placeholder) #{r 28292}#))) (let ((#{ribcage 28296}# (vector 'ribcage '() '() '()))) (let ((#{w 28297}# (cons (car #{w 28293}#) (cons #{ribcage 28296}# (cdr #{w 28293}#))))) (letrec* ((#{parse 28298}# (lambda (#{body 28406}# #{ids 28407}# #{labels 28408}# #{var-ids 28409}# #{vars 28410}# #{vals 28411}# #{bindings 28412}#) (if (null? #{body 28406}#) (syntax-violation #f "no expressions in body" #{outer-form 28291}#) (let ((#{e 28413}# (cdr (car #{body 28406}#))) (#{er 28414}# (car (car #{body 28406}#)))) (call-with-values (lambda () (#{syntax-type 4445}# #{e 28413}# #{er 28414}# '(()) (#{source-annotation 4407}# #{er 28414}#) #{ribcage 28296}# #{mod 28294}# #f)) (lambda (#{type 28620}# #{value 28621}# #{e 28622}# #{w 28623}# #{s 28624}# #{mod 28625}#) (if (eqv? #{type 28620}# 'define-form) (let ((#{id 28629}# (if (if (null? (car #{w 28623}#)) (null? (cdr #{w 28623}#)) #f) #{value 28621}# (if (if (vector? #{value 28621}#) (if (= (vector-length #{value 28621}#) 4) (eq? (vector-ref #{value 28621}# 0) 'syntax-object) #f) #f) (let ((#{expression 28674}# (vector-ref #{value 28621}# 1)) (#{wrap 28675}# (let ((#{w2 28685}# (vector-ref #{value 28621}# 2))) (let ((#{m1 28686}# (car #{w 28623}#)) (#{s1 28687}# (cdr #{w 28623}#))) (if (null? #{m1 28686}#) (if (null? #{s1 28687}#) #{w2 28685}# (cons (car #{w2 28685}#) (let ((#{m2 28704}# (cdr #{w2 28685}#))) (if (null? #{m2 28704}#) #{s1 28687}# (append #{s1 28687}# #{m2 28704}#))))) (cons (let ((#{m2 28712}# (car #{w2 28685}#))) (if (null? #{m2 28712}#) #{m1 28686}# (append #{m1 28686}# #{m2 28712}#))) (let ((#{m2 28720}# (cdr #{w2 28685}#))) (if (null? #{m2 28720}#) #{s1 28687}# (append #{s1 28687}# #{m2 28720}#)))))))) (#{module 28676}# (vector-ref #{value 28621}# 3))) (vector 'syntax-object #{expression 28674}# #{wrap 28675}# #{module 28676}#)) (if (null? #{value 28621}#) #{value 28621}# (vector 'syntax-object #{value 28621}# #{w 28623}# #{mod 28625}#))))) (#{label 28630}# (symbol->string (gensym "i")))) (let ((#{var 28631}# (let ((#{id 28781}# (if (if (vector? #{id 28629}#) (if (= (vector-length #{id 28629}#) 4) (eq? (vector-ref #{id 28629}# 0) 'syntax-object) #f) #f) (vector-ref #{id 28629}# 1) #{id 28629}#))) (gensym (string-append (symbol->string #{id 28781}#) " "))))) (begin (begin (let ((#{update 28640}# (cons (vector-ref #{id 28629}# 1) (vector-ref #{ribcage 28296}# 1)))) (vector-set! #{ribcage 28296}# 1 #{update 28640}#)) (let ((#{update 28752}# (cons (car (vector-ref #{id 28629}# 2)) (vector-ref #{ribcage 28296}# 2)))) (vector-set! #{ribcage 28296}# 2 #{update 28752}#)) (let ((#{update 28767}# (cons #{label 28630}# (vector-ref #{ribcage 28296}# 3)))) (vector-set! #{ribcage 28296}# 3 #{update 28767}#))) (#{parse 28298}# (cdr #{body 28406}#) (cons #{id 28629}# #{ids 28407}#) (cons #{label 28630}# #{labels 28408}#) (cons #{id 28629}# #{var-ids 28409}#) (cons #{var 28631}# #{vars 28410}#) (cons (cons #{er 28414}# (if (if (null? (car #{w 28623}#)) (null? (cdr #{w 28623}#)) #f) #{e 28622}# (if (if (vector? #{e 28622}#) (if (= (vector-length #{e 28622}#) 4) (eq? (vector-ref #{e 28622}# 0) 'syntax-object) #f) #f) (let ((#{expression 28833}# (vector-ref #{e 28622}# 1)) (#{wrap 28834}# (let ((#{w2 28844}# (vector-ref #{e 28622}# 2))) (let ((#{m1 28845}# (car #{w 28623}#)) (#{s1 28846}# (cdr #{w 28623}#))) (if (null? #{m1 28845}#) (if (null? #{s1 28846}#) #{w2 28844}# (cons (car #{w2 28844}#) (let ((#{m2 28863}# (cdr #{w2 28844}#))) (if (null? #{m2 28863}#) #{s1 28846}# (append #{s1 28846}# #{m2 28863}#))))) (cons (let ((#{m2 28871}# (car #{w2 28844}#))) (if (null? #{m2 28871}#) #{m1 28845}# (append #{m1 28845}# #{m2 28871}#))) (let ((#{m2 28879}# (cdr #{w2 28844}#))) (if (null? #{m2 28879}#) #{s1 28846}# (append #{s1 28846}# #{m2 28879}#)))))))) (#{module 28835}# (vector-ref #{e 28622}# 3))) (vector 'syntax-object #{expression 28833}# #{wrap 28834}# #{module 28835}#)) (if (null? #{e 28622}#) #{e 28622}# (vector 'syntax-object #{e 28622}# #{w 28623}# #{mod 28625}#))))) #{vals 28411}#) (cons (cons 'lexical #{var 28631}#) #{bindings 28412}#))))) (if (if (eqv? #{type 28620}# 'define-syntax-form) #t (eqv? #{type 28620}# 'define-syntax-parameter-form)) (let ((#{id 28910}# (if (if (null? (car #{w 28623}#)) (null? (cdr #{w 28623}#)) #f) #{value 28621}# (if (if (vector? #{value 28621}#) (if (= (vector-length #{value 28621}#) 4) (eq? (vector-ref #{value 28621}# 0) 'syntax-object) #f) #f) (let ((#{expression 28954}# (vector-ref #{value 28621}# 1)) (#{wrap 28955}# (let ((#{w2 28965}# (vector-ref #{value 28621}# 2))) (let ((#{m1 28966}# (car #{w 28623}#)) (#{s1 28967}# (cdr #{w 28623}#))) (if (null? #{m1 28966}#) (if (null? #{s1 28967}#) #{w2 28965}# (cons (car #{w2 28965}#) (let ((#{m2 28984}# (cdr #{w2 28965}#))) (if (null? #{m2 28984}#) #{s1 28967}# (append #{s1 28967}# #{m2 28984}#))))) (cons (let ((#{m2 28992}# (car #{w2 28965}#))) (if (null? #{m2 28992}#) #{m1 28966}# (append #{m1 28966}# #{m2 28992}#))) (let ((#{m2 29000}# (cdr #{w2 28965}#))) (if (null? #{m2 29000}#) #{s1 28967}# (append #{s1 28967}# #{m2 29000}#)))))))) (#{module 28956}# (vector-ref #{value 28621}# 3))) (vector 'syntax-object #{expression 28954}# #{wrap 28955}# #{module 28956}#)) (if (null? #{value 28621}#) #{value 28621}# (vector 'syntax-object #{value 28621}# #{w 28623}# #{mod 28625}#))))) (#{label 28911}# (symbol->string (gensym "i")))) (begin (begin (let ((#{update 28920}# (cons (vector-ref #{id 28910}# 1) (vector-ref #{ribcage 28296}# 1)))) (vector-set! #{ribcage 28296}# 1 #{update 28920}#)) (let ((#{update 29032}# (cons (car (vector-ref #{id 28910}# 2)) (vector-ref #{ribcage 28296}# 2)))) (vector-set! #{ribcage 28296}# 2 #{update 29032}#)) (let ((#{update 29047}# (cons #{label 28911}# (vector-ref #{ribcage 28296}# 3)))) (vector-set! #{ribcage 28296}# 3 #{update 29047}#))) (#{parse 28298}# (cdr #{body 28406}#) (cons #{id 28910}# #{ids 28407}#) (cons #{label 28911}# #{labels 28408}#) #{var-ids 28409}# #{vars 28410}# #{vals 28411}# (cons (cons (if (eq? #{type 28620}# 'define-syntax-parameter-form) 'syntax-parameter 'macro) (cons #{er 28414}# (if (if (null? (car #{w 28623}#)) (null? (cdr #{w 28623}#)) #f) #{e 28622}# (if (if (vector? #{e 28622}#) (if (= (vector-length #{e 28622}#) 4) (eq? (vector-ref #{e 28622}# 0) 'syntax-object) #f) #f) (let ((#{expression 29086}# (vector-ref #{e 28622}# 1)) (#{wrap 29087}# (let ((#{w2 29097}# (vector-ref #{e 28622}# 2))) (let ((#{m1 29098}# (car #{w 28623}#)) (#{s1 29099}# (cdr #{w 28623}#))) (if (null? #{m1 29098}#) (if (null? #{s1 29099}#) #{w2 29097}# (cons (car #{w2 29097}#) (let ((#{m2 29116}# (cdr #{w2 29097}#))) (if (null? #{m2 29116}#) #{s1 29099}# (append #{s1 29099}# #{m2 29116}#))))) (cons (let ((#{m2 29124}# (car #{w2 29097}#))) (if (null? #{m2 29124}#) #{m1 29098}# (append #{m1 29098}# #{m2 29124}#))) (let ((#{m2 29132}# (cdr #{w2 29097}#))) (if (null? #{m2 29132}#) #{s1 29099}# (append #{s1 29099}# #{m2 29132}#)))))))) (#{module 29088}# (vector-ref #{e 28622}# 3))) (vector 'syntax-object #{expression 29086}# #{wrap 29087}# #{module 29088}#)) (if (null? #{e 28622}#) #{e 28622}# (vector 'syntax-object #{e 28622}# #{w 28623}# #{mod 28625}#)))))) #{bindings 28412}#)))) (if (eqv? #{type 28620}# 'begin-form) (let ((#{tmp 29159}# ($sc-dispatch #{e 28622}# '(_ . each-any)))) (if #{tmp 29159}# (@apply (lambda (#{e1 29163}#) (#{parse 28298}# (letrec* ((#{f 29164}# (lambda (#{forms 29380}#) (if (null? #{forms 29380}#) (cdr #{body 28406}#) (cons (cons #{er 28414}# (let ((#{x 29384}# (car #{forms 29380}#))) (if (if (null? (car #{w 28623}#)) (null? (cdr #{w 28623}#)) #f) #{x 29384}# (if (if (vector? #{x 29384}#) (if (= (vector-length #{x 29384}#) 4) (eq? (vector-ref #{x 29384}# 0) 'syntax-object) #f) #f) (let ((#{expression 29402}# (vector-ref #{x 29384}# 1)) (#{wrap 29403}# (let ((#{w2 29411}# (vector-ref #{x 29384}# 2))) (let ((#{m1 29412}# (car #{w 28623}#)) (#{s1 29413}# (cdr #{w 28623}#))) (if (null? #{m1 29412}#) (if (null? #{s1 29413}#) #{w2 29411}# (cons (car #{w2 29411}#) (let ((#{m2 29428}# (cdr #{w2 29411}#))) (if (null? #{m2 29428}#) #{s1 29413}# (append #{s1 29413}# #{m2 29428}#))))) (cons (let ((#{m2 29436}# (car #{w2 29411}#))) (if (null? #{m2 29436}#) #{m1 29412}# (append #{m1 29412}# #{m2 29436}#))) (let ((#{m2 29444}# (cdr #{w2 29411}#))) (if (null? #{m2 29444}#) #{s1 29413}# (append #{s1 29413}# #{m2 29444}#)))))))) (#{module 29404}# (vector-ref #{x 29384}# 3))) (vector 'syntax-object #{expression 29402}# #{wrap 29403}# #{module 29404}#)) (if (null? #{x 29384}#) #{x 29384}# (vector 'syntax-object #{x 29384}# #{w 28623}# #{mod 28625}#)))))) (#{f 29164}# (cdr #{forms 29380}#))))))) (#{f 29164}# #{e1 29163}#)) #{ids 28407}# #{labels 28408}# #{var-ids 28409}# #{vars 28410}# #{vals 28411}# #{bindings 28412}#)) #{tmp 29159}#) (syntax-violation #f "source expression failed to match any pattern" #{e 28622}#))) (if (eqv? #{type 28620}# 'local-syntax-form) (#{chi-local-syntax 4451}# #{value 28621}# #{e 28622}# #{er 28414}# #{w 28623}# #{s 28624}# #{mod 28625}# (lambda (#{forms 29470}# #{er 29471}# #{w 29472}# #{s 29473}# #{mod 29474}#) (#{parse 28298}# (letrec* ((#{f 29475}# (lambda (#{forms 29691}#) (if (null? #{forms 29691}#) (cdr #{body 28406}#) (cons (cons #{er 29471}# (let ((#{x 29695}# (car #{forms 29691}#))) (if (if (null? (car #{w 29472}#)) (null? (cdr #{w 29472}#)) #f) #{x 29695}# (if (if (vector? #{x 29695}#) (if (= (vector-length #{x 29695}#) 4) (eq? (vector-ref #{x 29695}# 0) 'syntax-object) #f) #f) (let ((#{expression 29713}# (vector-ref #{x 29695}# 1)) (#{wrap 29714}# (let ((#{w2 29722}# (vector-ref #{x 29695}# 2))) (let ((#{m1 29723}# (car #{w 29472}#)) (#{s1 29724}# (cdr #{w 29472}#))) (if (null? #{m1 29723}#) (if (null? #{s1 29724}#) #{w2 29722}# (cons (car #{w2 29722}#) (let ((#{m2 29739}# (cdr #{w2 29722}#))) (if (null? #{m2 29739}#) #{s1 29724}# (append #{s1 29724}# #{m2 29739}#))))) (cons (let ((#{m2 29747}# (car #{w2 29722}#))) (if (null? #{m2 29747}#) #{m1 29723}# (append #{m1 29723}# #{m2 29747}#))) (let ((#{m2 29755}# (cdr #{w2 29722}#))) (if (null? #{m2 29755}#) #{s1 29724}# (append #{s1 29724}# #{m2 29755}#)))))))) (#{module 29715}# (vector-ref #{x 29695}# 3))) (vector 'syntax-object #{expression 29713}# #{wrap 29714}# #{module 29715}#)) (if (null? #{x 29695}#) #{x 29695}# (vector 'syntax-object #{x 29695}# #{w 29472}# #{mod 29474}#)))))) (#{f 29475}# (cdr #{forms 29691}#))))))) (#{f 29475}# #{forms 29470}#)) #{ids 28407}# #{labels 28408}# #{var-ids 28409}# #{vars 28410}# #{vals 28411}# #{bindings 28412}#))) (if (null? #{ids 28407}#) (#{build-sequence 4395}# #f (map (lambda (#{x 29844}#) (#{chi 4446}# (cdr #{x 29844}#) (car #{x 29844}#) '(()) #{mod 28625}#)) (cons (cons #{er 28414}# (let ((#{x 29923}# (begin (if (if (pair? #{e 28622}#) #{s 28624}# #f) (set-source-properties! #{e 28622}# #{s 28624}#)) #{e 28622}#))) (if (if (null? (car #{w 28623}#)) (null? (cdr #{w 28623}#)) #f) #{x 29923}# (if (if (vector? #{x 29923}#) (if (= (vector-length #{x 29923}#) 4) (eq? (vector-ref #{x 29923}# 0) 'syntax-object) #f) #f) (let ((#{expression 29955}# (vector-ref #{x 29923}# 1)) (#{wrap 29956}# (let ((#{w2 29964}# (vector-ref #{x 29923}# 2))) (let ((#{m1 29965}# (car #{w 28623}#)) (#{s1 29966}# (cdr #{w 28623}#))) (if (null? #{m1 29965}#) (if (null? #{s1 29966}#) #{w2 29964}# (cons (car #{w2 29964}#) (let ((#{m2 29981}# (cdr #{w2 29964}#))) (if (null? #{m2 29981}#) #{s1 29966}# (append #{s1 29966}# #{m2 29981}#))))) (cons (let ((#{m2 29989}# (car #{w2 29964}#))) (if (null? #{m2 29989}#) #{m1 29965}# (append #{m1 29965}# #{m2 29989}#))) (let ((#{m2 29997}# (cdr #{w2 29964}#))) (if (null? #{m2 29997}#) #{s1 29966}# (append #{s1 29966}# #{m2 29997}#)))))))) (#{module 29957}# (vector-ref #{x 29923}# 3))) (vector 'syntax-object #{expression 29955}# #{wrap 29956}# #{module 29957}#)) (if (null? #{x 29923}#) #{x 29923}# (vector 'syntax-object #{x 29923}# #{w 28623}# #{mod 28625}#)))))) (cdr #{body 28406}#)))) (begin (if (not (#{valid-bound-ids? 4436}# #{ids 28407}#)) (syntax-violation #f "invalid or duplicate identifier in definition" #{outer-form 28291}#)) (letrec* ((#{loop 30096}# (lambda (#{bs 30099}# #{er-cache 30100}# #{r-cache 30101}#) (if (not (null? #{bs 30099}#)) (let ((#{b 30102}# (car #{bs 30099}#))) (if (let ((#{t 30105}# (car #{b 30102}#))) (if (eq? #{t 30105}# 'macro) #t (eq? #{t 30105}# 'syntax-parameter))) (let ((#{er 30107}# (car (cdr #{b 30102}#)))) (let ((#{r-cache 30108}# (if (eq? #{er 30107}# #{er-cache 30100}#) #{r-cache 30101}# (#{macros-only-env 4410}# #{er 30107}#)))) (begin (set-cdr! #{b 30102}# (#{eval-local-transformer 4452}# (#{chi 4446}# (cdr (cdr #{b 30102}#)) #{r-cache 30108}# '(()) #{mod 28625}#) #{mod 28625}#)) (if (eq? (car #{b 30102}#) 'syntax-parameter) (set-cdr! #{b 30102}# (list (cdr #{b 30102}#)))) (#{loop 30096}# (cdr #{bs 30099}#) #{er 30107}# #{r-cache 30108}#)))) (#{loop 30096}# (cdr #{bs 30099}#) #{er-cache 30100}# #{r-cache 30101}#))))))) (#{loop 30096}# #{bindings 28412}# #f #f)) (set-cdr! #{r 28295}# (#{extend-env 4408}# #{labels 28408}# #{bindings 28412}# (cdr #{r 28295}#))) (#{build-letrec 4398}# #f #t (reverse (map syntax->datum #{var-ids 28409}#)) (reverse #{vars 28410}#) (map (lambda (#{x 30536}#) (#{chi 4446}# (cdr #{x 30536}#) (car #{x 30536}#) '(()) #{mod 28625}#)) (reverse #{vals 28411}#)) (#{build-sequence 4395}# #f (map (lambda (#{x 30680}#) (#{chi 4446}# (cdr #{x 30680}#) (car #{x 30680}#) '(()) #{mod 28625}#)) (cons (cons #{er 28414}# (let ((#{x 30759}# (begin (if (if (pair? #{e 28622}#) #{s 28624}# #f) (set-source-properties! #{e 28622}# #{s 28624}#)) #{e 28622}#))) (if (if (null? (car #{w 28623}#)) (null? (cdr #{w 28623}#)) #f) #{x 30759}# (if (if (vector? #{x 30759}#) (if (= (vector-length #{x 30759}#) 4) (eq? (vector-ref #{x 30759}# 0) 'syntax-object) #f) #f) (let ((#{expression 30791}# (vector-ref #{x 30759}# 1)) (#{wrap 30792}# (let ((#{w2 30800}# (vector-ref #{x 30759}# 2))) (let ((#{m1 30801}# (car #{w 28623}#)) (#{s1 30802}# (cdr #{w 28623}#))) (if (null? #{m1 30801}#) (if (null? #{s1 30802}#) #{w2 30800}# (cons (car #{w2 30800}#) (let ((#{m2 30817}# (cdr #{w2 30800}#))) (if (null? #{m2 30817}#) #{s1 30802}# (append #{s1 30802}# #{m2 30817}#))))) (cons (let ((#{m2 30825}# (car #{w2 30800}#))) (if (null? #{m2 30825}#) #{m1 30801}# (append #{m1 30801}# #{m2 30825}#))) (let ((#{m2 30833}# (cdr #{w2 30800}#))) (if (null? #{m2 30833}#) #{s1 30802}# (append #{s1 30802}# #{m2 30833}#)))))))) (#{module 30793}# (vector-ref #{x 30759}# 3))) (vector 'syntax-object #{expression 30791}# #{wrap 30792}# #{module 30793}#)) (if (null? #{x 30759}#) #{x 30759}# (vector 'syntax-object #{x 30759}# #{w 28623}# #{mod 28625}#)))))) (cdr #{body 28406}#)))))))))))))))))) (#{parse 28298}# (map (lambda (#{x 28301}#) (cons #{r 28295}# (if (if (null? (car #{w 28297}#)) (null? (cdr #{w 28297}#)) #f) #{x 28301}# (if (if (vector? #{x 28301}#) (if (= (vector-length #{x 28301}#) 4) (eq? (vector-ref #{x 28301}# 0) 'syntax-object) #f) #f) (let ((#{expression 28337}# (vector-ref #{x 28301}# 1)) (#{wrap 28338}# (let ((#{w2 28348}# (vector-ref #{x 28301}# 2))) (let ((#{m1 28349}# (car #{w 28297}#)) (#{s1 28350}# (cdr #{w 28297}#))) (if (null? #{m1 28349}#) (if (null? #{s1 28350}#) #{w2 28348}# (cons (car #{w2 28348}#) (let ((#{m2 28367}# (cdr #{w2 28348}#))) (if (null? #{m2 28367}#) #{s1 28350}# (append #{s1 28350}# #{m2 28367}#))))) (cons (let ((#{m2 28375}# (car #{w2 28348}#))) (if (null? #{m2 28375}#) #{m1 28349}# (append #{m1 28349}# #{m2 28375}#))) (let ((#{m2 28383}# (cdr #{w2 28348}#))) (if (null? #{m2 28383}#) #{s1 28350}# (append #{s1 28350}# #{m2 28383}#)))))))) (#{module 28339}# (vector-ref #{x 28301}# 3))) (vector 'syntax-object #{expression 28337}# #{wrap 28338}# #{module 28339}#)) (if (null? #{x 28301}#) #{x 28301}# (vector 'syntax-object #{x 28301}# #{w 28297}# #{mod 28294}#)))))) #{body 28290}#) '() '() '() '() '() '()))))))) (#{chi-local-syntax 4451}# (lambda (#{rec? 30848}# #{e 30849}# #{r 30850}# #{w 30851}# #{s 30852}# #{mod 30853}# #{k 30854}#) (let ((#{tmp 30856}# ($sc-dispatch #{e 30849}# '(_ #(each (any any)) any . each-any)))) (if #{tmp 30856}# (@apply (lambda (#{id 30860}# #{val 30861}# #{e1 30862}# #{e2 30863}#) (if (not (#{valid-bound-ids? 4436}# #{id 30860}#)) (syntax-violation #f "duplicate bound keyword" #{e 30849}#) (let ((#{labels 30960}# (#{gen-labels 4416}# #{id 30860}#))) (let ((#{new-w 30961}# (#{make-binding-wrap 4427}# #{id 30860}# #{labels 30960}# #{w 30851}#))) (#{k 30854}# (cons #{e1 30862}# #{e2 30863}#) (#{extend-env 4408}# #{labels 30960}# (let ((#{trans-r 31001}# (#{macros-only-env 4410}# #{r 30850}#))) (begin (if #{rec? 30848}# (if #f #f)) (map (lambda (#{x 31002}#) (cons 'macro (#{eval-local-transformer 4452}# (#{chi 4446}# #{x 31002}# #{trans-r 31001}# (if #{rec? 30848}# #{new-w 30961}# #{w 30851}#) #{mod 30853}#) #{mod 30853}#))) #{val 30861}#))) #{r 30850}#) #{new-w 30961}# #{s 30852}# #{mod 30853}#))))) #{tmp 30856}#) (syntax-violation #f "bad local syntax definition" (let ((#{x 31335}# (begin (if (if (pair? #{e 30849}#) #{s 30852}# #f) (set-source-properties! #{e 30849}# #{s 30852}#)) #{e 30849}#))) (if (if (null? (car #{w 30851}#)) (null? (cdr #{w 30851}#)) #f) #{x 31335}# (if (if (vector? #{x 31335}#) (if (= (vector-length #{x 31335}#) 4) (eq? (vector-ref #{x 31335}# 0) 'syntax-object) #f) #f) (let ((#{expression 31367}# (vector-ref #{x 31335}# 1)) (#{wrap 31368}# (let ((#{w2 31376}# (vector-ref #{x 31335}# 2))) (let ((#{m1 31377}# (car #{w 30851}#)) (#{s1 31378}# (cdr #{w 30851}#))) (if (null? #{m1 31377}#) (if (null? #{s1 31378}#) #{w2 31376}# (cons (car #{w2 31376}#) (let ((#{m2 31393}# (cdr #{w2 31376}#))) (if (null? #{m2 31393}#) #{s1 31378}# (append #{s1 31378}# #{m2 31393}#))))) (cons (let ((#{m2 31401}# (car #{w2 31376}#))) (if (null? #{m2 31401}#) #{m1 31377}# (append #{m1 31377}# #{m2 31401}#))) (let ((#{m2 31409}# (cdr #{w2 31376}#))) (if (null? #{m2 31409}#) #{s1 31378}# (append #{s1 31378}# #{m2 31409}#)))))))) (#{module 31369}# (vector-ref #{x 31335}# 3))) (vector 'syntax-object #{expression 31367}# #{wrap 31368}# #{module 31369}#)) (if (null? #{x 31335}#) #{x 31335}# (vector 'syntax-object #{x 31335}# #{w 30851}# #{mod 30853}#)))))))))) (#{eval-local-transformer 4452}# (lambda (#{expanded 31427}# #{mod 31428}#) (let ((#{p 31429}# (primitive-eval #{expanded 31427}#))) (if (procedure? #{p 31429}#) #{p 31429}# (syntax-violation #f "nonprocedure transformer" #{p 31429}#))))) (#{ellipsis? 4454}# (lambda (#{x 6023}#) (if (if (if (vector? #{x 6023}#) (if (= (vector-length #{x 6023}#) 4) (eq? (vector-ref #{x 6023}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref #{x 6023}# 1)) #f) (#{free-id=? 4434}# #{x 6023}# '#(syntax-object ... ((top) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i2341")) #(ribcage (lambda-var-list gen-var strip chi-lambda-case lambda*-formals chi-simple-lambda lambda-formals ellipsis? chi-void eval-local-transformer chi-local-syntax chi-body chi-macro chi-call chi-expr chi syntax-type chi-when-list chi-install-global chi-top-sequence chi-sequence source-wrap wrap bound-id-member? distinct-bound-ids? valid-bound-ids? bound-id=? free-id=? resolve-identifier 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 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-primcall 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-call 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-seq make-primcall make-call 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) (top) (top)) ("i471" "i469" "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" "i400" "i398" "i395" "i394" "i393" "i391" "i390" "i388" "i386" "i384" "i382" "i380" "i378" "i376" "i374" "i371" "i369" "i368" "i366" "i364" "i362" "i360" "i359" "i358" "i357" "i355" "i354" "i351" "i349" "i347" "i345" "i343" "i341" "i340" "i339" "i337" "i335" "i334" "i331" "i330" "i328" "i326" "i324" "i322" "i320" "i318" "i316" "i314" "i312" "i309" "i307" "i305" "i303" "i301" "i299" "i297" "i295" "i293" "i291" "i289" "i287" "i285" "i283" "i281" "i279" "i277" "i275" "i273" "i271" "i269" "i267" "i265" "i263" "i262" "i259" "i257" "i256" "i255" "i254" "i253" "i251" "i249" "i247" "i244" "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")) #(ribcage () () ())) (hygiene guile))) #f))) (#{lambda-formals 4455}# (lambda (#{orig-args 31434}#) (letrec* ((#{req 31435}# (lambda (#{args 31439}# #{rreq 31440}#) (let ((#{tmp 31442}# ($sc-dispatch #{args 31439}# '()))) (if #{tmp 31442}# (@apply (lambda () (#{check 31436}# (reverse #{rreq 31440}#) #f)) #{tmp 31442}#) (let ((#{tmp 31558}# ($sc-dispatch #{args 31439}# '(any . any)))) (if (if #{tmp 31558}# (@apply (lambda (#{a 31562}# #{b 31563}#) (if (symbol? #{a 31562}#) #t (if (if (vector? #{a 31562}#) (if (= (vector-length #{a 31562}#) 4) (eq? (vector-ref #{a 31562}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref #{a 31562}# 1)) #f))) #{tmp 31558}#) #f) (@apply (lambda (#{a 31590}# #{b 31591}#) (#{req 31435}# #{b 31591}# (cons #{a 31590}# #{rreq 31440}#))) #{tmp 31558}#) (let ((#{tmp 31592}# (list #{args 31439}#))) (if (@apply (lambda (#{r 31594}#) (if (symbol? #{r 31594}#) #t (if (if (vector? #{r 31594}#) (if (= (vector-length #{r 31594}#) 4) (eq? (vector-ref #{r 31594}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref #{r 31594}# 1)) #f))) #{tmp 31592}#) (@apply (lambda (#{r 31624}#) (#{check 31436}# (reverse #{rreq 31440}#) #{r 31624}#)) #{tmp 31592}#) (syntax-violation 'lambda "invalid argument list" #{orig-args 31434}# #{args 31439}#))))))))) (#{check 31436}# (lambda (#{req 31748}# #{rest 31749}#) (if (#{distinct-bound-ids? 4437}# (if #{rest 31749}# (cons #{rest 31749}# #{req 31748}#) #{req 31748}#)) (values #{req 31748}# #f #{rest 31749}# #f) (syntax-violation 'lambda "duplicate identifier in argument list" #{orig-args 31434}#))))) (#{req 31435}# #{orig-args 31434}# '())))) (#{chi-simple-lambda 4456}# (lambda (#{e 31858}# #{r 31859}# #{w 31860}# #{s 31861}# #{mod 31862}# #{req 31863}# #{rest 31864}# #{meta 31865}# #{body 31866}#) (let ((#{ids 31867}# (if #{rest 31864}# (append #{req 31863}# (list #{rest 31864}#)) #{req 31863}#))) (let ((#{vars 31868}# (map #{gen-var 4460}# #{ids 31867}#))) (let ((#{labels 31869}# (#{gen-labels 4416}# #{ids 31867}#))) (#{build-simple-lambda 4389}# #{s 31861}# (map syntax->datum #{req 31863}#) (if #{rest 31864}# (syntax->datum #{rest 31864}#) #f) #{vars 31868}# #{meta 31865}# (#{chi-body 4450}# #{body 31866}# (let ((#{x 32058}# (begin (if (if (pair? #{e 31858}#) #{s 31861}# #f) (set-source-properties! #{e 31858}# #{s 31861}#)) #{e 31858}#))) (if (if (null? (car #{w 31860}#)) (null? (cdr #{w 31860}#)) #f) #{x 32058}# (if (if (vector? #{x 32058}#) (if (= (vector-length #{x 32058}#) 4) (eq? (vector-ref #{x 32058}# 0) 'syntax-object) #f) #f) (let ((#{expression 32090}# (vector-ref #{x 32058}# 1)) (#{wrap 32091}# (let ((#{w2 32099}# (vector-ref #{x 32058}# 2))) (let ((#{m1 32100}# (car #{w 31860}#)) (#{s1 32101}# (cdr #{w 31860}#))) (if (null? #{m1 32100}#) (if (null? #{s1 32101}#) #{w2 32099}# (cons (car #{w2 32099}#) (let ((#{m2 32116}# (cdr #{w2 32099}#))) (if (null? #{m2 32116}#) #{s1 32101}# (append #{s1 32101}# #{m2 32116}#))))) (cons (let ((#{m2 32124}# (car #{w2 32099}#))) (if (null? #{m2 32124}#) #{m1 32100}# (append #{m1 32100}# #{m2 32124}#))) (let ((#{m2 32132}# (cdr #{w2 32099}#))) (if (null? #{m2 32132}#) #{s1 32101}# (append #{s1 32101}# #{m2 32132}#)))))))) (#{module 32092}# (vector-ref #{x 32058}# 3))) (vector 'syntax-object #{expression 32090}# #{wrap 32091}# #{module 32092}#)) (if (null? #{x 32058}#) #{x 32058}# (vector 'syntax-object #{x 32058}# #{w 31860}# #{mod 31862}#))))) (#{extend-var-env 4409}# #{labels 31869}# #{vars 31868}# #{r 31859}#) (#{make-binding-wrap 4427}# #{ids 31867}# #{labels 31869}# #{w 31860}#) #{mod 31862}#))))))) (#{lambda*-formals 4457}# (lambda (#{orig-args 32363}#) (letrec* ((#{req 32364}# (lambda (#{args 32371}# #{rreq 32372}#) (let ((#{tmp 32374}# ($sc-dispatch #{args 32371}# '()))) (if #{tmp 32374}# (@apply (lambda () (#{check 32368}# (reverse #{rreq 32372}#) '() #f '())) #{tmp 32374}#) (let ((#{tmp 32493}# ($sc-dispatch #{args 32371}# '(any . any)))) (if (if #{tmp 32493}# (@apply (lambda (#{a 32497}# #{b 32498}#) (if (symbol? #{a 32497}#) #t (if (if (vector? #{a 32497}#) (if (= (vector-length #{a 32497}#) 4) (eq? (vector-ref #{a 32497}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref #{a 32497}# 1)) #f))) #{tmp 32493}#) #f) (@apply (lambda (#{a 32525}# #{b 32526}#) (#{req 32364}# #{b 32526}# (cons #{a 32525}# #{rreq 32372}#))) #{tmp 32493}#) (let ((#{tmp 32527}# ($sc-dispatch #{args 32371}# '(any . any)))) (if (if #{tmp 32527}# (@apply (lambda (#{a 32531}# #{b 32532}#) (eq? (syntax->datum #{a 32531}#) #:optional)) #{tmp 32527}#) #f) (@apply (lambda (#{a 32533}# #{b 32534}#) (#{opt 32365}# #{b 32534}# (reverse #{rreq 32372}#) '())) #{tmp 32527}#) (let ((#{tmp 32537}# ($sc-dispatch #{args 32371}# '(any . any)))) (if (if #{tmp 32537}# (@apply (lambda (#{a 32541}# #{b 32542}#) (eq? (syntax->datum #{a 32541}#) #:key)) #{tmp 32537}#) #f) (@apply (lambda (#{a 32543}# #{b 32544}#) (#{key 32366}# #{b 32544}# (reverse #{rreq 32372}#) '() '())) #{tmp 32537}#) (let ((#{tmp 32547}# ($sc-dispatch #{args 32371}# '(any any)))) (if (if #{tmp 32547}# (@apply (lambda (#{a 32551}# #{b 32552}#) (eq? (syntax->datum #{a 32551}#) #:rest)) #{tmp 32547}#) #f) (@apply (lambda (#{a 32553}# #{b 32554}#) (#{rest 32367}# #{b 32554}# (reverse #{rreq 32372}#) '() '())) #{tmp 32547}#) (let ((#{tmp 32557}# (list #{args 32371}#))) (if (@apply (lambda (#{r 32559}#) (if (symbol? #{r 32559}#) #t (if (if (vector? #{r 32559}#) (if (= (vector-length #{r 32559}#) 4) (eq? (vector-ref #{r 32559}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref #{r 32559}# 1)) #f))) #{tmp 32557}#) (@apply (lambda (#{r 32589}#) (#{rest 32367}# #{r 32589}# (reverse #{rreq 32372}#) '() '())) #{tmp 32557}#) (syntax-violation 'lambda* "invalid argument list" #{orig-args 32363}# #{args 32371}#))))))))))))))) (#{opt 32365}# (lambda (#{args 32608}# #{req 32609}# #{ropt 32610}#) (let ((#{tmp 32612}# ($sc-dispatch #{args 32608}# '()))) (if #{tmp 32612}# (@apply (lambda () (#{check 32368}# #{req 32609}# (reverse #{ropt 32610}#) #f '())) #{tmp 32612}#) (let ((#{tmp 32733}# ($sc-dispatch #{args 32608}# '(any . any)))) (if (if #{tmp 32733}# (@apply (lambda (#{a 32737}# #{b 32738}#) (if (symbol? #{a 32737}#) #t (if (if (vector? #{a 32737}#) (if (= (vector-length #{a 32737}#) 4) (eq? (vector-ref #{a 32737}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref #{a 32737}# 1)) #f))) #{tmp 32733}#) #f) (@apply (lambda (#{a 32765}# #{b 32766}#) (#{opt 32365}# #{b 32766}# #{req 32609}# (cons (cons #{a 32765}# '(#(syntax-object #f ((top) #(ribcage #(a b) #((top) (top)) #("i2480" "i2481")) #(ribcage () () ()) #(ribcage #(args req ropt) #((top) (top) (top)) #("i2470" "i2471" "i2472")) #(ribcage (check rest key opt req) ((top) (top) (top) (top) (top)) ("i2416" "i2414" "i2412" "i2410" "i2408")) #(ribcage #(orig-args) #((top)) #("i2407")) #(ribcage (lambda-var-list gen-var strip chi-lambda-case lambda*-formals chi-simple-lambda lambda-formals ellipsis? chi-void eval-local-transformer chi-local-syntax chi-body chi-macro chi-call chi-expr chi syntax-type chi-when-list chi-install-global chi-top-sequence chi-sequence source-wrap wrap bound-id-member? distinct-bound-ids? valid-bound-ids? bound-id=? free-id=? resolve-identifier 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 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-primcall 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-call 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-seq make-primcall make-call 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) (top) (top)) ("i471" "i469" "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" "i400" "i398" "i395" "i394" "i393" "i391" "i390" "i388" "i386" "i384" "i382" "i380" "i378" "i376" "i374" "i371" "i369" "i368" "i366" "i364" "i362" "i360" "i359" "i358" "i357" "i355" "i354" "i351" "i349" "i347" "i345" "i343" "i341" "i340" "i339" "i337" "i335" "i334" "i331" "i330" "i328" "i326" "i324" "i322" "i320" "i318" "i316" "i314" "i312" "i309" "i307" "i305" "i303" "i301" "i299" "i297" "i295" "i293" "i291" "i289" "i287" "i285" "i283" "i281" "i279" "i277" "i275" "i273" "i271" "i269" "i267" "i265" "i263" "i262" "i259" "i257" "i256" "i255" "i254" "i253" "i251" "i249" "i247" "i244" "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")) #(ribcage () () ())) (hygiene guile)))) #{ropt 32610}#))) #{tmp 32733}#) (let ((#{tmp 32767}# ($sc-dispatch #{args 32608}# '((any any) . any)))) (if (if #{tmp 32767}# (@apply (lambda (#{a 32771}# #{init 32772}# #{b 32773}#) (if (symbol? #{a 32771}#) #t (if (if (vector? #{a 32771}#) (if (= (vector-length #{a 32771}#) 4) (eq? (vector-ref #{a 32771}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref #{a 32771}# 1)) #f))) #{tmp 32767}#) #f) (@apply (lambda (#{a 32800}# #{init 32801}# #{b 32802}#) (#{opt 32365}# #{b 32802}# #{req 32609}# (cons (list #{a 32800}# #{init 32801}#) #{ropt 32610}#))) #{tmp 32767}#) (let ((#{tmp 32803}# ($sc-dispatch #{args 32608}# '(any . any)))) (if (if #{tmp 32803}# (@apply (lambda (#{a 32807}# #{b 32808}#) (eq? (syntax->datum #{a 32807}#) #:key)) #{tmp 32803}#) #f) (@apply (lambda (#{a 32809}# #{b 32810}#) (#{key 32366}# #{b 32810}# #{req 32609}# (reverse #{ropt 32610}#) '())) #{tmp 32803}#) (let ((#{tmp 32813}# ($sc-dispatch #{args 32608}# '(any any)))) (if (if #{tmp 32813}# (@apply (lambda (#{a 32817}# #{b 32818}#) (eq? (syntax->datum #{a 32817}#) #:rest)) #{tmp 32813}#) #f) (@apply (lambda (#{a 32819}# #{b 32820}#) (#{rest 32367}# #{b 32820}# #{req 32609}# (reverse #{ropt 32610}#) '())) #{tmp 32813}#) (let ((#{tmp 32823}# (list #{args 32608}#))) (if (@apply (lambda (#{r 32825}#) (if (symbol? #{r 32825}#) #t (if (if (vector? #{r 32825}#) (if (= (vector-length #{r 32825}#) 4) (eq? (vector-ref #{r 32825}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref #{r 32825}# 1)) #f))) #{tmp 32823}#) (@apply (lambda (#{r 32855}#) (#{rest 32367}# #{r 32855}# #{req 32609}# (reverse #{ropt 32610}#) '())) #{tmp 32823}#) (syntax-violation 'lambda* "invalid optional argument list" #{orig-args 32363}# #{args 32608}#))))))))))))))) (#{key 32366}# (lambda (#{args 32874}# #{req 32875}# #{opt 32876}# #{rkey 32877}#) (let ((#{tmp 32879}# ($sc-dispatch #{args 32874}# '()))) (if #{tmp 32879}# (@apply (lambda () (#{check 32368}# #{req 32875}# #{opt 32876}# #f (cons #f (reverse #{rkey 32877}#)))) #{tmp 32879}#) (let ((#{tmp 33001}# ($sc-dispatch #{args 32874}# '(any . any)))) (if (if #{tmp 33001}# (@apply (lambda (#{a 33005}# #{b 33006}#) (if (symbol? #{a 33005}#) #t (if (if (vector? #{a 33005}#) (if (= (vector-length #{a 33005}#) 4) (eq? (vector-ref #{a 33005}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref #{a 33005}# 1)) #f))) #{tmp 33001}#) #f) (@apply (lambda (#{a 33033}# #{b 33034}#) (let ((#{tmp 33035}# (symbol->keyword (syntax->datum #{a 33033}#)))) (#{key 32366}# #{b 33034}# #{req 32875}# #{opt 32876}# (cons (cons #{tmp 33035}# (cons #{a 33033}# '(#(syntax-object #f ((top) #(ribcage () () ()) #(ribcage #(k) #((top)) #("i2543")) #(ribcage #(a b) #((top) (top)) #("i2537" "i2538")) #(ribcage () () ()) #(ribcage #(args req opt rkey) #((top) (top) (top) (top)) #("i2526" "i2527" "i2528" "i2529")) #(ribcage (check rest key opt req) ((top) (top) (top) (top) (top)) ("i2416" "i2414" "i2412" "i2410" "i2408")) #(ribcage #(orig-args) #((top)) #("i2407")) #(ribcage (lambda-var-list gen-var strip chi-lambda-case lambda*-formals chi-simple-lambda lambda-formals ellipsis? chi-void eval-local-transformer chi-local-syntax chi-body chi-macro chi-call chi-expr chi syntax-type chi-when-list chi-install-global chi-top-sequence chi-sequence source-wrap wrap bound-id-member? distinct-bound-ids? valid-bound-ids? bound-id=? free-id=? resolve-identifier 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 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-primcall 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-call 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-seq make-primcall make-call 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) (top) (top)) ("i471" "i469" "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" "i400" "i398" "i395" "i394" "i393" "i391" "i390" "i388" "i386" "i384" "i382" "i380" "i378" "i376" "i374" "i371" "i369" "i368" "i366" "i364" "i362" "i360" "i359" "i358" "i357" "i355" "i354" "i351" "i349" "i347" "i345" "i343" "i341" "i340" "i339" "i337" "i335" "i334" "i331" "i330" "i328" "i326" "i324" "i322" "i320" "i318" "i316" "i314" "i312" "i309" "i307" "i305" "i303" "i301" "i299" "i297" "i295" "i293" "i291" "i289" "i287" "i285" "i283" "i281" "i279" "i277" "i275" "i273" "i271" "i269" "i267" "i265" "i263" "i262" "i259" "i257" "i256" "i255" "i254" "i253" "i251" "i249" "i247" "i244" "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")) #(ribcage () () ())) (hygiene guile))))) #{rkey 32877}#)))) #{tmp 33001}#) (let ((#{tmp 33038}# ($sc-dispatch #{args 32874}# '((any any) . any)))) (if (if #{tmp 33038}# (@apply (lambda (#{a 33042}# #{init 33043}# #{b 33044}#) (if (symbol? #{a 33042}#) #t (if (if (vector? #{a 33042}#) (if (= (vector-length #{a 33042}#) 4) (eq? (vector-ref #{a 33042}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref #{a 33042}# 1)) #f))) #{tmp 33038}#) #f) (@apply (lambda (#{a 33071}# #{init 33072}# #{b 33073}#) (let ((#{tmp 33074}# (symbol->keyword (syntax->datum #{a 33071}#)))) (#{key 32366}# #{b 33073}# #{req 32875}# #{opt 32876}# (cons (list #{tmp 33074}# #{a 33071}# #{init 33072}#) #{rkey 32877}#)))) #{tmp 33038}#) (let ((#{tmp 33077}# ($sc-dispatch #{args 32874}# '((any any any) . any)))) (if (if #{tmp 33077}# (@apply (lambda (#{a 33081}# #{init 33082}# #{k 33083}# #{b 33084}#) (if (if (symbol? #{a 33081}#) #t (if (if (vector? #{a 33081}#) (if (= (vector-length #{a 33081}#) 4) (eq? (vector-ref #{a 33081}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref #{a 33081}# 1)) #f)) (keyword? (syntax->datum #{k 33083}#)) #f)) #{tmp 33077}#) #f) (@apply (lambda (#{a 33111}# #{init 33112}# #{k 33113}# #{b 33114}#) (#{key 32366}# #{b 33114}# #{req 32875}# #{opt 32876}# (cons (list #{k 33113}# #{a 33111}# #{init 33112}#) #{rkey 32877}#))) #{tmp 33077}#) (let ((#{tmp 33115}# ($sc-dispatch #{args 32874}# '(any)))) (if (if #{tmp 33115}# (@apply (lambda (#{aok 33119}#) (eq? (syntax->datum #{aok 33119}#) #:allow-other-keys)) #{tmp 33115}#) #f) (@apply (lambda (#{aok 33120}#) (#{check 32368}# #{req 32875}# #{opt 32876}# #f (cons #t (reverse #{rkey 32877}#)))) #{tmp 33115}#) (let ((#{tmp 33239}# ($sc-dispatch #{args 32874}# '(any any any)))) (if (if #{tmp 33239}# (@apply (lambda (#{aok 33243}# #{a 33244}# #{b 33245}#) (if (eq? (syntax->datum #{aok 33243}#) #:allow-other-keys) (eq? (syntax->datum #{a 33244}#) #:rest) #f)) #{tmp 33239}#) #f) (@apply (lambda (#{aok 33246}# #{a 33247}# #{b 33248}#) (#{rest 32367}# #{b 33248}# #{req 32875}# #{opt 32876}# (cons #t (reverse #{rkey 32877}#)))) #{tmp 33239}#) (let ((#{tmp 33251}# ($sc-dispatch #{args 32874}# '(any . any)))) (if (if #{tmp 33251}# (@apply (lambda (#{aok 33255}# #{r 33256}#) (if (eq? (syntax->datum #{aok 33255}#) #:allow-other-keys) (if (symbol? #{r 33256}#) #t (if (if (vector? #{r 33256}#) (if (= (vector-length #{r 33256}#) 4) (eq? (vector-ref #{r 33256}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref #{r 33256}# 1)) #f)) #f)) #{tmp 33251}#) #f) (@apply (lambda (#{aok 33283}# #{r 33284}#) (#{rest 32367}# #{r 33284}# #{req 32875}# #{opt 32876}# (cons #t (reverse #{rkey 32877}#)))) #{tmp 33251}#) (let ((#{tmp 33287}# ($sc-dispatch #{args 32874}# '(any any)))) (if (if #{tmp 33287}# (@apply (lambda (#{a 33291}# #{b 33292}#) (eq? (syntax->datum #{a 33291}#) #:rest)) #{tmp 33287}#) #f) (@apply (lambda (#{a 33293}# #{b 33294}#) (#{rest 32367}# #{b 33294}# #{req 32875}# #{opt 32876}# (cons #f (reverse #{rkey 32877}#)))) #{tmp 33287}#) (let ((#{tmp 33297}# (list #{args 32874}#))) (if (@apply (lambda (#{r 33299}#) (if (symbol? #{r 33299}#) #t (if (if (vector? #{r 33299}#) (if (= (vector-length #{r 33299}#) 4) (eq? (vector-ref #{r 33299}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref #{r 33299}# 1)) #f))) #{tmp 33297}#) (@apply (lambda (#{r 33329}#) (#{rest 32367}# #{r 33329}# #{req 32875}# #{opt 32876}# (cons #f (reverse #{rkey 32877}#)))) #{tmp 33297}#) (syntax-violation 'lambda* "invalid keyword argument list" #{orig-args 32363}# #{args 32874}#))))))))))))))))))))) (#{rest 32367}# (lambda (#{args 33357}# #{req 33358}# #{opt 33359}# #{kw 33360}#) (let ((#{tmp 33362}# (list #{args 33357}#))) (if (@apply (lambda (#{r 33364}#) (if (symbol? #{r 33364}#) #t (if (if (vector? #{r 33364}#) (if (= (vector-length #{r 33364}#) 4) (eq? (vector-ref #{r 33364}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref #{r 33364}# 1)) #f))) #{tmp 33362}#) (@apply (lambda (#{r 33394}#) (#{check 32368}# #{req 33358}# #{opt 33359}# #{r 33394}# #{kw 33360}#)) #{tmp 33362}#) (syntax-violation 'lambda* "invalid rest argument" #{orig-args 32363}# #{args 33357}#))))) (#{check 32368}# (lambda (#{req 33522}# #{opt 33523}# #{rest 33524}# #{kw 33525}#) (if (#{distinct-bound-ids? 4437}# (append #{req 33522}# (map car #{opt 33523}#) (if #{rest 33524}# (list #{rest 33524}#) '()) (if (pair? #{kw 33525}#) (map cadr (cdr #{kw 33525}#)) '()))) (values #{req 33522}# #{opt 33523}# #{rest 33524}# #{kw 33525}#) (syntax-violation 'lambda* "duplicate identifier in argument list" #{orig-args 32363}#))))) (#{req 32364}# #{orig-args 32363}# '())))) (#{chi-lambda-case 4458}# (lambda (#{e 33634}# #{r 33635}# #{w 33636}# #{s 33637}# #{mod 33638}# #{get-formals 33639}# #{clauses 33640}#) (letrec* ((#{expand-req 33641}# (lambda (#{req 33777}# #{opt 33778}# #{rest 33779}# #{kw 33780}# #{body 33781}#) (let ((#{vars 33782}# (map #{gen-var 4460}# #{req 33777}#)) (#{labels 33783}# (#{gen-labels 4416}# #{req 33777}#))) (let ((#{r* 33784}# (#{extend-var-env 4409}# #{labels 33783}# #{vars 33782}# #{r 33635}#)) (#{w* 33785}# (#{make-binding-wrap 4427}# #{req 33777}# #{labels 33783}# #{w 33636}#))) (#{expand-opt 33642}# (map syntax->datum #{req 33777}#) #{opt 33778}# #{rest 33779}# #{kw 33780}# #{body 33781}# (reverse #{vars 33782}#) #{r* 33784}# #{w* 33785}# '() '()))))) (#{expand-opt 33642}# (lambda (#{req 34021}# #{opt 34022}# #{rest 34023}# #{kw 34024}# #{body 34025}# #{vars 34026}# #{r* 34027}# #{w* 34028}# #{out 34029}# #{inits 34030}#) (if (pair? #{opt 34022}#) (let ((#{tmp 34031}# (car #{opt 34022}#))) (let ((#{tmp 34032}# ($sc-dispatch #{tmp 34031}# '(any any)))) (if #{tmp 34032}# (@apply (lambda (#{id 34034}# #{i 34035}#) (let ((#{v 34036}# (let ((#{id 34044}# (if (if (vector? #{id 34034}#) (if (= (vector-length #{id 34034}#) 4) (eq? (vector-ref #{id 34034}# 0) 'syntax-object) #f) #f) (vector-ref #{id 34034}# 1) #{id 34034}#))) (gensym (string-append (symbol->string #{id 34044}#) " "))))) (let ((#{l 34037}# (#{gen-labels 4416}# (list #{v 34036}#)))) (let ((#{r** 34038}# (#{extend-var-env 4409}# #{l 34037}# (list #{v 34036}#) #{r* 34027}#))) (let ((#{w** 34039}# (#{make-binding-wrap 4427}# (list #{id 34034}#) #{l 34037}# #{w* 34028}#))) (#{expand-opt 33642}# #{req 34021}# (cdr #{opt 34022}#) #{rest 34023}# #{kw 34024}# #{body 34025}# (cons #{v 34036}# #{vars 34026}#) #{r** 34038}# #{w** 34039}# (cons (syntax->datum #{id 34034}#) #{out 34029}#) (cons (#{chi 4446}# #{i 34035}# #{r* 34027}# #{w* 34028}# #{mod 33638}#) #{inits 34030}#))))))) #{tmp 34032}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp 34031}#)))) (if #{rest 34023}# (let ((#{v 34345}# (let ((#{id 34355}# (if (if (vector? #{rest 34023}#) (if (= (vector-length #{rest 34023}#) 4) (eq? (vector-ref #{rest 34023}# 0) 'syntax-object) #f) #f) (vector-ref #{rest 34023}# 1) #{rest 34023}#))) (gensym (string-append (symbol->string #{id 34355}#) " "))))) (let ((#{l 34346}# (#{gen-labels 4416}# (list #{v 34345}#)))) (let ((#{r* 34347}# (#{extend-var-env 4409}# #{l 34346}# (list #{v 34345}#) #{r* 34027}#))) (let ((#{w* 34348}# (#{make-binding-wrap 4427}# (list #{rest 34023}#) #{l 34346}# #{w* 34028}#))) (#{expand-kw 33643}# #{req 34021}# (if (pair? #{out 34029}#) (reverse #{out 34029}#) #f) (syntax->datum #{rest 34023}#) (if (pair? #{kw 34024}#) (cdr #{kw 34024}#) #{kw 34024}#) #{body 34025}# (cons #{v 34345}# #{vars 34026}#) #{r* 34347}# #{w* 34348}# (if (pair? #{kw 34024}#) (car #{kw 34024}#) #f) '() #{inits 34030}#))))) (#{expand-kw 33643}# #{req 34021}# (if (pair? #{out 34029}#) (reverse #{out 34029}#) #f) #f (if (pair? #{kw 34024}#) (cdr #{kw 34024}#) #{kw 34024}#) #{body 34025}# #{vars 34026}# #{r* 34027}# #{w* 34028}# (if (pair? #{kw 34024}#) (car #{kw 34024}#) #f) '() #{inits 34030}#))))) (#{expand-kw 33643}# (lambda (#{req 34577}# #{opt 34578}# #{rest 34579}# #{kw 34580}# #{body 34581}# #{vars 34582}# #{r* 34583}# #{w* 34584}# #{aok 34585}# #{out 34586}# #{inits 34587}#) (if (pair? #{kw 34580}#) (let ((#{tmp 34588}# (car #{kw 34580}#))) (let ((#{tmp 34589}# ($sc-dispatch #{tmp 34588}# '(any any any)))) (if #{tmp 34589}# (@apply (lambda (#{k 34591}# #{id 34592}# #{i 34593}#) (let ((#{v 34594}# (let ((#{id 34602}# (if (if (vector? #{id 34592}#) (if (= (vector-length #{id 34592}#) 4) (eq? (vector-ref #{id 34592}# 0) 'syntax-object) #f) #f) (vector-ref #{id 34592}# 1) #{id 34592}#))) (gensym (string-append (symbol->string #{id 34602}#) " "))))) (let ((#{l 34595}# (#{gen-labels 4416}# (list #{v 34594}#)))) (let ((#{r** 34596}# (#{extend-var-env 4409}# #{l 34595}# (list #{v 34594}#) #{r* 34583}#))) (let ((#{w** 34597}# (#{make-binding-wrap 4427}# (list #{id 34592}#) #{l 34595}# #{w* 34584}#))) (#{expand-kw 33643}# #{req 34577}# #{opt 34578}# #{rest 34579}# (cdr #{kw 34580}#) #{body 34581}# (cons #{v 34594}# #{vars 34582}#) #{r** 34596}# #{w** 34597}# #{aok 34585}# (cons (list (syntax->datum #{k 34591}#) (syntax->datum #{id 34592}#) #{v 34594}#) #{out 34586}#) (cons (#{chi 4446}# #{i 34593}# #{r* 34583}# #{w* 34584}# #{mod 33638}#) #{inits 34587}#))))))) #{tmp 34589}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp 34588}#)))) (#{expand-body 33644}# #{req 34577}# #{opt 34578}# #{rest 34579}# (if (if #{aok 34585}# #{aok 34585}# (pair? #{out 34586}#)) (cons #{aok 34585}# (reverse #{out 34586}#)) #f) #{body 34581}# (reverse #{vars 34582}#) #{r* 34583}# #{w* 34584}# (reverse #{inits 34587}#) '())))) (#{expand-body 33644}# (lambda (#{req 34912}# #{opt 34913}# #{rest 34914}# #{kw 34915}# #{body 34916}# #{vars 34917}# #{r* 34918}# #{w* 34919}# #{inits 34920}# #{meta 34921}#) (let ((#{tmp 34923}# ($sc-dispatch #{body 34916}# '(any any . each-any)))) (if (if #{tmp 34923}# (@apply (lambda (#{docstring 34927}# #{e1 34928}# #{e2 34929}#) (string? (syntax->datum #{docstring 34927}#))) #{tmp 34923}#) #f) (@apply (lambda (#{docstring 34930}# #{e1 34931}# #{e2 34932}#) (#{expand-body 33644}# #{req 34912}# #{opt 34913}# #{rest 34914}# #{kw 34915}# (cons #{e1 34931}# #{e2 34932}#) #{vars 34917}# #{r* 34918}# #{w* 34919}# #{inits 34920}# (append #{meta 34921}# (list (cons 'documentation (syntax->datum #{docstring 34930}#)))))) #{tmp 34923}#) (let ((#{tmp 34933}# ($sc-dispatch #{body 34916}# '(#(vector #(each (any . any))) any . each-any)))) (if #{tmp 34933}# (@apply (lambda (#{k 34937}# #{v 34938}# #{e1 34939}# #{e2 34940}#) (#{expand-body 33644}# #{req 34912}# #{opt 34913}# #{rest 34914}# #{kw 34915}# (cons #{e1 34939}# #{e2 34940}#) #{vars 34917}# #{r* 34918}# #{w* 34919}# #{inits 34920}# (append #{meta 34921}# (syntax->datum (map cons #{k 34937}# #{v 34938}#))))) #{tmp 34933}#) (let ((#{tmp 34941}# ($sc-dispatch #{body 34916}# '(any . each-any)))) (if #{tmp 34941}# (@apply (lambda (#{e1 34945}# #{e2 34946}#) (values #{meta 34921}# #{req 34912}# #{opt 34913}# #{rest 34914}# #{kw 34915}# #{inits 34920}# #{vars 34917}# (#{chi-body 4450}# (cons #{e1 34945}# #{e2 34946}#) (let ((#{x 34958}# (begin (if (if (pair? #{e 33634}#) #{s 33637}# #f) (set-source-properties! #{e 33634}# #{s 33637}#)) #{e 33634}#))) (if (if (null? (car #{w 33636}#)) (null? (cdr #{w 33636}#)) #f) #{x 34958}# (if (if (vector? #{x 34958}#) (if (= (vector-length #{x 34958}#) 4) (eq? (vector-ref #{x 34958}# 0) 'syntax-object) #f) #f) (let ((#{expression 34990}# (vector-ref #{x 34958}# 1)) (#{wrap 34991}# (let ((#{w2 34999}# (vector-ref #{x 34958}# 2))) (let ((#{m1 35000}# (car #{w 33636}#)) (#{s1 35001}# (cdr #{w 33636}#))) (if (null? #{m1 35000}#) (if (null? #{s1 35001}#) #{w2 34999}# (cons (car #{w2 34999}#) (let ((#{m2 35016}# (cdr #{w2 34999}#))) (if (null? #{m2 35016}#) #{s1 35001}# (append #{s1 35001}# #{m2 35016}#))))) (cons (let ((#{m2 35024}# (car #{w2 34999}#))) (if (null? #{m2 35024}#) #{m1 35000}# (append #{m1 35000}# #{m2 35024}#))) (let ((#{m2 35032}# (cdr #{w2 34999}#))) (if (null? #{m2 35032}#) #{s1 35001}# (append #{s1 35001}# #{m2 35032}#)))))))) (#{module 34992}# (vector-ref #{x 34958}# 3))) (vector 'syntax-object #{expression 34990}# #{wrap 34991}# #{module 34992}#)) (if (null? #{x 34958}#) #{x 34958}# (vector 'syntax-object #{x 34958}# #{w 33636}# #{mod 33638}#))))) #{r* 34918}# #{w* 34919}# #{mod 33638}#))) #{tmp 34941}#) (syntax-violation #f "source expression failed to match any pattern" #{body 34916}#)))))))))) (let ((#{tmp 33646}# ($sc-dispatch #{clauses 33640}# '()))) (if #{tmp 33646}# (@apply (lambda () (values '() #f)) #{tmp 33646}#) (let ((#{tmp 33651}# ($sc-dispatch #{clauses 33640}# '((any any . each-any) . #(each (any any . each-any)))))) (if #{tmp 33651}# (@apply (lambda (#{args 33655}# #{e1 33656}# #{e2 33657}# #{args* 33658}# #{e1* 33659}# #{e2* 33660}#) (call-with-values (lambda () (#{get-formals 33639}# #{args 33655}#)) (lambda (#{req 33661}# #{opt 33662}# #{rest 33663}# #{kw 33664}#) (call-with-values (lambda () (#{expand-req 33641}# #{req 33661}# #{opt 33662}# #{rest 33663}# #{kw 33664}# (cons #{e1 33656}# #{e2 33657}#))) (lambda (#{meta 33733}# #{req 33734}# #{opt 33735}# #{rest 33736}# #{kw 33737}# #{inits 33738}# #{vars 33739}# #{body 33740}#) (call-with-values (lambda () (#{chi-lambda-case 4458}# #{e 33634}# #{r 33635}# #{w 33636}# #{s 33637}# #{mod 33638}# #{get-formals 33639}# (map (lambda (#{tmp 2886 33741}# #{tmp 2885 33742}# #{tmp 2884 33743}#) (cons #{tmp 2884 33743}# (cons #{tmp 2885 33742}# #{tmp 2886 33741}#))) #{e2* 33660}# #{e1* 33659}# #{args* 33658}#))) (lambda (#{meta* 33744}# #{else* 33745}#) (values (append #{meta 33733}# #{meta* 33744}#) (make-struct/no-tail (vector-ref %expanded-vtables 15) #{s 33637}# #{req 33734}# #{opt 33735}# #{rest 33736}# #{kw 33737}# #{inits 33738}# #{vars 33739}# #{body 33740}# #{else* 33745}#))))))))) #{tmp 33651}#) (syntax-violation #f "source expression failed to match any pattern" #{clauses 33640}#)))))))) (#{strip 4459}# (lambda (#{x 35059}# #{w 35060}#) (if (memq 'top (car #{w 35060}#)) #{x 35059}# (letrec* ((#{f 35061}# (lambda (#{x 35064}#) (if (if (vector? #{x 35064}#) (if (= (vector-length #{x 35064}#) 4) (eq? (vector-ref #{x 35064}# 0) 'syntax-object) #f) #f) (#{strip 4459}# (vector-ref #{x 35064}# 1) (vector-ref #{x 35064}# 2)) (if (pair? #{x 35064}#) (let ((#{a 35083}# (#{f 35061}# (car #{x 35064}#))) (#{d 35084}# (#{f 35061}# (cdr #{x 35064}#)))) (if (if (eq? #{a 35083}# (car #{x 35064}#)) (eq? #{d 35084}# (cdr #{x 35064}#)) #f) #{x 35064}# (cons #{a 35083}# #{d 35084}#))) (if (vector? #{x 35064}#) (let ((#{old 35087}# (vector->list #{x 35064}#))) (let ((#{new 35088}# (map #{f 35061}# #{old 35087}#))) (letrec* ((#{lp 35089}# (lambda (#{l1 35186}# #{l2 35187}#) (if (null? #{l1 35186}#) #{x 35064}# (if (eq? (car #{l1 35186}#) (car #{l2 35187}#)) (#{lp 35089}# (cdr #{l1 35186}#) (cdr #{l2 35187}#)) (list->vector #{new 35088}#)))))) (#{lp 35089}# #{old 35087}# #{new 35088}#)))) #{x 35064}#)))))) (#{f 35061}# #{x 35059}#))))) (#{gen-var 4460}# (lambda (#{id 33789}#) (let ((#{id 33790}# (if (if (vector? #{id 33789}#) (if (= (vector-length #{id 33789}#) 4) (eq? (vector-ref #{id 33789}# 0) 'syntax-object) #f) #f) (vector-ref #{id 33789}# 1) #{id 33789}#))) (gensym (string-append (symbol->string #{id 33790}#) " "))))) (#{lambda-var-list 4461}# (lambda (#{vars 35188}#) (letrec* ((#{lvl 35189}# (lambda (#{vars 35192}# #{ls 35193}# #{w 35194}#) (if (pair? #{vars 35192}#) (#{lvl 35189}# (cdr #{vars 35192}#) (cons (let ((#{x 35198}# (car #{vars 35192}#))) (if (if (null? (car #{w 35194}#)) (null? (cdr #{w 35194}#)) #f) #{x 35198}# (if (if (vector? #{x 35198}#) (if (= (vector-length #{x 35198}#) 4) (eq? (vector-ref #{x 35198}# 0) 'syntax-object) #f) #f) (let ((#{expression 35216}# (vector-ref #{x 35198}# 1)) (#{wrap 35217}# (let ((#{w2 35225}# (vector-ref #{x 35198}# 2))) (let ((#{m1 35226}# (car #{w 35194}#)) (#{s1 35227}# (cdr #{w 35194}#))) (if (null? #{m1 35226}#) (if (null? #{s1 35227}#) #{w2 35225}# (cons (car #{w2 35225}#) (let ((#{m2 35242}# (cdr #{w2 35225}#))) (if (null? #{m2 35242}#) #{s1 35227}# (append #{s1 35227}# #{m2 35242}#))))) (cons (let ((#{m2 35250}# (car #{w2 35225}#))) (if (null? #{m2 35250}#) #{m1 35226}# (append #{m1 35226}# #{m2 35250}#))) (let ((#{m2 35258}# (cdr #{w2 35225}#))) (if (null? #{m2 35258}#) #{s1 35227}# (append #{s1 35227}# #{m2 35258}#)))))))) (#{module 35218}# (vector-ref #{x 35198}# 3))) (vector 'syntax-object #{expression 35216}# #{wrap 35217}# #{module 35218}#)) (if (null? #{x 35198}#) #{x 35198}# (vector 'syntax-object #{x 35198}# #{w 35194}# #f))))) #{ls 35193}#) #{w 35194}#) (if (if (symbol? #{vars 35192}#) #t (if (if (vector? #{vars 35192}#) (if (= (vector-length #{vars 35192}#) 4) (eq? (vector-ref #{vars 35192}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref #{vars 35192}# 1)) #f)) (cons (if (if (null? (car #{w 35194}#)) (null? (cdr #{w 35194}#)) #f) #{vars 35192}# (if (if (vector? #{vars 35192}#) (if (= (vector-length #{vars 35192}#) 4) (eq? (vector-ref #{vars 35192}# 0) 'syntax-object) #f) #f) (let ((#{expression 35328}# (vector-ref #{vars 35192}# 1)) (#{wrap 35329}# (let ((#{w2 35339}# (vector-ref #{vars 35192}# 2))) (let ((#{m1 35340}# (car #{w 35194}#)) (#{s1 35341}# (cdr #{w 35194}#))) (if (null? #{m1 35340}#) (if (null? #{s1 35341}#) #{w2 35339}# (cons (car #{w2 35339}#) (let ((#{m2 35358}# (cdr #{w2 35339}#))) (if (null? #{m2 35358}#) #{s1 35341}# (append #{s1 35341}# #{m2 35358}#))))) (cons (let ((#{m2 35366}# (car #{w2 35339}#))) (if (null? #{m2 35366}#) #{m1 35340}# (append #{m1 35340}# #{m2 35366}#))) (let ((#{m2 35374}# (cdr #{w2 35339}#))) (if (null? #{m2 35374}#) #{s1 35341}# (append #{s1 35341}# #{m2 35374}#)))))))) (#{module 35330}# (vector-ref #{vars 35192}# 3))) (vector 'syntax-object #{expression 35328}# #{wrap 35329}# #{module 35330}#)) (if (null? #{vars 35192}#) #{vars 35192}# (vector 'syntax-object #{vars 35192}# #{w 35194}# #f)))) #{ls 35193}#) (if (null? #{vars 35192}#) #{ls 35193}# (if (if (vector? #{vars 35192}#) (if (= (vector-length #{vars 35192}#) 4) (eq? (vector-ref #{vars 35192}# 0) 'syntax-object) #f) #f) (#{lvl 35189}# (vector-ref #{vars 35192}# 1) #{ls 35193}# (let ((#{w2 35415}# (vector-ref #{vars 35192}# 2))) (let ((#{m1 35416}# (car #{w 35194}#)) (#{s1 35417}# (cdr #{w 35194}#))) (if (null? #{m1 35416}#) (if (null? #{s1 35417}#) #{w2 35415}# (cons (car #{w2 35415}#) (let ((#{m2 35428}# (cdr #{w2 35415}#))) (if (null? #{m2 35428}#) #{s1 35417}# (append #{s1 35417}# #{m2 35428}#))))) (cons (let ((#{m2 35436}# (car #{w2 35415}#))) (if (null? #{m2 35436}#) #{m1 35416}# (append #{m1 35416}# #{m2 35436}#))) (let ((#{m2 35444}# (cdr #{w2 35415}#))) (if (null? #{m2 35444}#) #{s1 35417}# (append #{s1 35417}# #{m2 35444}#)))))))) (cons #{vars 35192}# #{ls 35193}#)))))))) (#{lvl 35189}# #{vars 35188}# '() '(())))))) (begin (module-define! (current-module) 'letrec-syntax (make-syntax-transformer 'letrec-syntax 'local-syntax #t)) (module-define! (current-module) 'let-syntax (make-syntax-transformer 'let-syntax 'local-syntax #f)) (#{global-extend 4411}# 'core 'syntax-parameterize (lambda (#{e 4588}# #{r 4589}# #{w 4590}# #{s 4591}# #{mod 4592}#) (let ((#{tmp 4594}# ($sc-dispatch #{e 4588}# '(_ #(each (any any)) any . each-any)))) (if (if #{tmp 4594}# (@apply (lambda (#{var 4598}# #{val 4599}# #{e1 4600}# #{e2 4601}#) (#{valid-bound-ids? 4436}# #{var 4598}#)) #{tmp 4594}#) #f) (@apply (lambda (#{var 4686}# #{val 4687}# #{e1 4688}# #{e2 4689}#) (let ((#{names 4690}# (map (lambda (#{x 5039}#) (call-with-values (lambda () (#{resolve-identifier 4433}# #{x 5039}# #{w 4590}# #{r 4589}# #{mod 4592}# #f)) (lambda (#{type 5042}# #{value 5043}# #{mod 5044}#) (if (eqv? #{type 5042}# 'displaced-lexical) (syntax-violation 'syntax-parameterize "identifier out of context" #{e 4588}# (let ((#{x 5057}# (begin (if (if (pair? #{x 5039}#) #{s 4591}# #f) (set-source-properties! #{x 5039}# #{s 4591}#)) #{x 5039}#))) (if (if (null? (car #{w 4590}#)) (null? (cdr #{w 4590}#)) #f) #{x 5057}# (if (if (vector? #{x 5057}#) (if (= (vector-length #{x 5057}#) 4) (eq? (vector-ref #{x 5057}# 0) 'syntax-object) #f) #f) (let ((#{expression 5089}# (vector-ref #{x 5057}# 1)) (#{wrap 5090}# (let ((#{w2 5098}# (vector-ref #{x 5057}# 2))) (let ((#{m1 5099}# (car #{w 4590}#)) (#{s1 5100}# (cdr #{w 4590}#))) (if (null? #{m1 5099}#) (if (null? #{s1 5100}#) #{w2 5098}# (cons (car #{w2 5098}#) (let ((#{m2 5115}# (cdr #{w2 5098}#))) (if (null? #{m2 5115}#) #{s1 5100}# (append #{s1 5100}# #{m2 5115}#))))) (cons (let ((#{m2 5123}# (car #{w2 5098}#))) (if (null? #{m2 5123}#) #{m1 5099}# (append #{m1 5099}# #{m2 5123}#))) (let ((#{m2 5131}# (cdr #{w2 5098}#))) (if (null? #{m2 5131}#) #{s1 5100}# (append #{s1 5100}# #{m2 5131}#)))))))) (#{module 5091}# (vector-ref #{x 5057}# 3))) (vector 'syntax-object #{expression 5089}# #{wrap 5090}# #{module 5091}#)) (if (null? #{x 5057}#) #{x 5057}# (vector 'syntax-object #{x 5057}# #{w 4590}# #{mod 5044}#)))))) (if (eqv? #{type 5042}# 'syntax-parameter) #{value 5043}# (syntax-violation 'syntax-parameterize "invalid syntax parameter" #{e 4588}# (let ((#{x 5158}# (begin (if (if (pair? #{x 5039}#) #{s 4591}# #f) (set-source-properties! #{x 5039}# #{s 4591}#)) #{x 5039}#))) (if (if (null? (car #{w 4590}#)) (null? (cdr #{w 4590}#)) #f) #{x 5158}# (if (if (vector? #{x 5158}#) (if (= (vector-length #{x 5158}#) 4) (eq? (vector-ref #{x 5158}# 0) 'syntax-object) #f) #f) (let ((#{expression 5190}# (vector-ref #{x 5158}# 1)) (#{wrap 5191}# (let ((#{w2 5199}# (vector-ref #{x 5158}# 2))) (let ((#{m1 5200}# (car #{w 4590}#)) (#{s1 5201}# (cdr #{w 4590}#))) (if (null? #{m1 5200}#) (if (null? #{s1 5201}#) #{w2 5199}# (cons (car #{w2 5199}#) (let ((#{m2 5216}# (cdr #{w2 5199}#))) (if (null? #{m2 5216}#) #{s1 5201}# (append #{s1 5201}# #{m2 5216}#))))) (cons (let ((#{m2 5224}# (car #{w2 5199}#))) (if (null? #{m2 5224}#) #{m1 5200}# (append #{m1 5200}# #{m2 5224}#))) (let ((#{m2 5232}# (cdr #{w2 5199}#))) (if (null? #{m2 5232}#) #{s1 5201}# (append #{s1 5201}# #{m2 5232}#)))))))) (#{module 5192}# (vector-ref #{x 5158}# 3))) (vector 'syntax-object #{expression 5190}# #{wrap 5191}# #{module 5192}#)) (if (null? #{x 5158}#) #{x 5158}# (vector 'syntax-object #{x 5158}# #{w 4590}# #{mod 5044}#))))))))))) #{var 4686}#)) (#{bindings 4691}# (let ((#{trans-r 5247}# (#{macros-only-env 4410}# #{r 4589}#))) (map (lambda (#{x 5248}#) (cons 'macro (#{eval-local-transformer 4452}# (#{chi 4446}# #{x 5248}# #{trans-r 5247}# #{w 4590}# #{mod 4592}#) #{mod 4592}#))) #{val 4687}#)))) (#{chi-body 4450}# (cons #{e1 4688}# #{e2 4689}#) (let ((#{x 4703}# (begin (if (if (pair? #{e 4588}#) #{s 4591}# #f) (set-source-properties! #{e 4588}# #{s 4591}#)) #{e 4588}#))) (if (if (null? (car #{w 4590}#)) (null? (cdr #{w 4590}#)) #f) #{x 4703}# (if (if (vector? #{x 4703}#) (if (= (vector-length #{x 4703}#) 4) (eq? (vector-ref #{x 4703}# 0) 'syntax-object) #f) #f) (let ((#{expression 4735}# (vector-ref #{x 4703}# 1)) (#{wrap 4736}# (let ((#{w2 4744}# (vector-ref #{x 4703}# 2))) (let ((#{m1 4745}# (car #{w 4590}#)) (#{s1 4746}# (cdr #{w 4590}#))) (if (null? #{m1 4745}#) (if (null? #{s1 4746}#) #{w2 4744}# (cons (car #{w2 4744}#) (let ((#{m2 4761}# (cdr #{w2 4744}#))) (if (null? #{m2 4761}#) #{s1 4746}# (append #{s1 4746}# #{m2 4761}#))))) (cons (let ((#{m2 4769}# (car #{w2 4744}#))) (if (null? #{m2 4769}#) #{m1 4745}# (append #{m1 4745}# #{m2 4769}#))) (let ((#{m2 4777}# (cdr #{w2 4744}#))) (if (null? #{m2 4777}#) #{s1 4746}# (append #{s1 4746}# #{m2 4777}#)))))))) (#{module 4737}# (vector-ref #{x 4703}# 3))) (vector 'syntax-object #{expression 4735}# #{wrap 4736}# #{module 4737}#)) (if (null? #{x 4703}#) #{x 4703}# (vector 'syntax-object #{x 4703}# #{w 4590}# #{mod 4592}#))))) (#{extend-env 4408}# #{names 4690}# #{bindings 4691}# #{r 4589}#) #{w 4590}# #{mod 4592}#))) #{tmp 4594}#) (syntax-violation 'syntax-parameterize "bad syntax" (let ((#{x 5472}# (begin (if (if (pair? #{e 4588}#) #{s 4591}# #f) (set-source-properties! #{e 4588}# #{s 4591}#)) #{e 4588}#))) (if (if (null? (car #{w 4590}#)) (null? (cdr #{w 4590}#)) #f) #{x 5472}# (if (if (vector? #{x 5472}#) (if (= (vector-length #{x 5472}#) 4) (eq? (vector-ref #{x 5472}# 0) 'syntax-object) #f) #f) (let ((#{expression 5504}# (vector-ref #{x 5472}# 1)) (#{wrap 5505}# (let ((#{w2 5513}# (vector-ref #{x 5472}# 2))) (let ((#{m1 5514}# (car #{w 4590}#)) (#{s1 5515}# (cdr #{w 4590}#))) (if (null? #{m1 5514}#) (if (null? #{s1 5515}#) #{w2 5513}# (cons (car #{w2 5513}#) (let ((#{m2 5530}# (cdr #{w2 5513}#))) (if (null? #{m2 5530}#) #{s1 5515}# (append #{s1 5515}# #{m2 5530}#))))) (cons (let ((#{m2 5538}# (car #{w2 5513}#))) (if (null? #{m2 5538}#) #{m1 5514}# (append #{m1 5514}# #{m2 5538}#))) (let ((#{m2 5546}# (cdr #{w2 5513}#))) (if (null? #{m2 5546}#) #{s1 5515}# (append #{s1 5515}# #{m2 5546}#)))))))) (#{module 5506}# (vector-ref #{x 5472}# 3))) (vector 'syntax-object #{expression 5504}# #{wrap 5505}# #{module 5506}#)) (if (null? #{x 5472}#) #{x 5472}# (vector 'syntax-object #{x 5472}# #{w 4590}# #{mod 4592}#)))))))))) (module-define! (current-module) 'quote (make-syntax-transformer 'quote 'core (lambda (#{e 5574}# #{r 5575}# #{w 5576}# #{s 5577}# #{mod 5578}#) (let ((#{tmp 5580}# ($sc-dispatch #{e 5574}# '(_ any)))) (if #{tmp 5580}# (@apply (lambda (#{e 5583}#) (let ((#{exp 5587}# (#{strip 4459}# #{e 5583}# #{w 5576}#))) (make-struct/no-tail (vector-ref %expanded-vtables 1) #{s 5577}# #{exp 5587}#))) #{tmp 5580}#) (syntax-violation 'quote "bad syntax" (let ((#{x 5601}# (begin (if (if (pair? #{e 5574}#) #{s 5577}# #f) (set-source-properties! #{e 5574}# #{s 5577}#)) #{e 5574}#))) (if (if (null? (car #{w 5576}#)) (null? (cdr #{w 5576}#)) #f) #{x 5601}# (if (if (vector? #{x 5601}#) (if (= (vector-length #{x 5601}#) 4) (eq? (vector-ref #{x 5601}# 0) 'syntax-object) #f) #f) (let ((#{expression 5633}# (vector-ref #{x 5601}# 1)) (#{wrap 5634}# (let ((#{w2 5642}# (vector-ref #{x 5601}# 2))) (let ((#{m1 5643}# (car #{w 5576}#)) (#{s1 5644}# (cdr #{w 5576}#))) (if (null? #{m1 5643}#) (if (null? #{s1 5644}#) #{w2 5642}# (cons (car #{w2 5642}#) (let ((#{m2 5659}# (cdr #{w2 5642}#))) (if (null? #{m2 5659}#) #{s1 5644}# (append #{s1 5644}# #{m2 5659}#))))) (cons (let ((#{m2 5667}# (car #{w2 5642}#))) (if (null? #{m2 5667}#) #{m1 5643}# (append #{m1 5643}# #{m2 5667}#))) (let ((#{m2 5675}# (cdr #{w2 5642}#))) (if (null? #{m2 5675}#) #{s1 5644}# (append #{s1 5644}# #{m2 5675}#)))))))) (#{module 5635}# (vector-ref #{x 5601}# 3))) (vector 'syntax-object #{expression 5633}# #{wrap 5634}# #{module 5635}#)) (if (null? #{x 5601}#) #{x 5601}# (vector 'syntax-object #{x 5601}# #{w 5576}# #{mod 5578}#))))))))))) (#{global-extend 4411}# 'core 'syntax (letrec* ((#{gen-syntax 5899}# (lambda (#{src 6362}# #{e 6363}# #{r 6364}# #{maps 6365}# #{ellipsis? 6366}# #{mod 6367}#) (if (if (symbol? #{e 6363}#) #t (if (if (vector? #{e 6363}#) (if (= (vector-length #{e 6363}#) 4) (eq? (vector-ref #{e 6363}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref #{e 6363}# 1)) #f)) (call-with-values (lambda () (#{resolve-identifier 4433}# #{e 6363}# '(()) #{r 6364}# #{mod 6367}# #f)) (lambda (#{type 6396}# #{value 6397}# #{mod 6398}#) (if (eqv? #{type 6396}# 'syntax) (call-with-values (lambda () (#{gen-ref 5900}# #{src 6362}# (car #{value 6397}#) (cdr #{value 6397}#) #{maps 6365}#)) (lambda (#{var 6404}# #{maps 6405}#) (values (list 'ref #{var 6404}#) #{maps 6405}#))) (if (#{ellipsis? 6366}# #{e 6363}#) (syntax-violation 'syntax "misplaced ellipsis" #{src 6362}#) (values (list 'quote #{e 6363}#) #{maps 6365}#))))) (let ((#{tmp 6407}# ($sc-dispatch #{e 6363}# '(any any)))) (if (if #{tmp 6407}# (@apply (lambda (#{dots 6411}# #{e 6412}#) (#{ellipsis? 6366}# #{dots 6411}#)) #{tmp 6407}#) #f) (@apply (lambda (#{dots 6413}# #{e 6414}#) (#{gen-syntax 5899}# #{src 6362}# #{e 6414}# #{r 6364}# #{maps 6365}# (lambda (#{x 6415}#) #f) #{mod 6367}#)) #{tmp 6407}#) (let ((#{tmp 6416}# ($sc-dispatch #{e 6363}# '(any any . any)))) (if (if #{tmp 6416}# (@apply (lambda (#{x 6420}# #{dots 6421}# #{y 6422}#) (#{ellipsis? 6366}# #{dots 6421}#)) #{tmp 6416}#) #f) (@apply (lambda (#{x 6423}# #{dots 6424}# #{y 6425}#) (letrec* ((#{f 6426}# (lambda (#{y 6434}# #{k 6435}#) (let ((#{tmp 6437}# ($sc-dispatch #{y 6434}# '(any . any)))) (if (if #{tmp 6437}# (@apply (lambda (#{dots 6441}# #{y 6442}#) (#{ellipsis? 6366}# #{dots 6441}#)) #{tmp 6437}#) #f) (@apply (lambda (#{dots 6443}# #{y 6444}#) (#{f 6426}# #{y 6444}# (lambda (#{maps 6445}#) (call-with-values (lambda () (#{k 6435}# (cons '() #{maps 6445}#))) (lambda (#{x 6446}# #{maps 6447}#) (if (null? (car #{maps 6447}#)) (syntax-violation 'syntax "extra ellipsis" #{src 6362}#) (values (let ((#{map-env 6451}# (car #{maps 6447}#))) (list 'apply '(primitive append) (#{gen-map 5902}# #{x 6446}# #{map-env 6451}#))) (cdr #{maps 6447}#)))))))) #{tmp 6437}#) (call-with-values (lambda () (#{gen-syntax 5899}# #{src 6362}# #{y 6434}# #{r 6364}# #{maps 6365}# #{ellipsis? 6366}# #{mod 6367}#)) (lambda (#{y 6454}# #{maps 6455}#) (call-with-values (lambda () (#{k 6435}# #{maps 6455}#)) (lambda (#{x 6456}# #{maps 6457}#) (values (if (equal? #{y 6454}# ''()) #{x 6456}# (list 'append #{x 6456}# #{y 6454}#)) #{maps 6457}#)))))))))) (#{f 6426}# #{y 6425}# (lambda (#{maps 6429}#) (call-with-values (lambda () (#{gen-syntax 5899}# #{src 6362}# #{x 6423}# #{r 6364}# (cons '() #{maps 6429}#) #{ellipsis? 6366}# #{mod 6367}#)) (lambda (#{x 6430}# #{maps 6431}#) (if (null? (car #{maps 6431}#)) (syntax-violation 'syntax "extra ellipsis" #{src 6362}#) (values (#{gen-map 5902}# #{x 6430}# (car #{maps 6431}#)) (cdr #{maps 6431}#))))))))) #{tmp 6416}#) (let ((#{tmp 6473}# ($sc-dispatch #{e 6363}# '(any . any)))) (if #{tmp 6473}# (@apply (lambda (#{x 6477}# #{y 6478}#) (call-with-values (lambda () (#{gen-syntax 5899}# #{src 6362}# #{x 6477}# #{r 6364}# #{maps 6365}# #{ellipsis? 6366}# #{mod 6367}#)) (lambda (#{x 6479}# #{maps 6480}#) (call-with-values (lambda () (#{gen-syntax 5899}# #{src 6362}# #{y 6478}# #{r 6364}# #{maps 6480}# #{ellipsis? 6366}# #{mod 6367}#)) (lambda (#{y 6481}# #{maps 6482}#) (values (let ((#{atom-key 6487}# (car #{y 6481}#))) (if (eqv? #{atom-key 6487}# 'quote) (if (eq? (car #{x 6479}#) 'quote) (list 'quote (cons (car (cdr #{x 6479}#)) (car (cdr #{y 6481}#)))) (if (eq? (car (cdr #{y 6481}#)) '()) (list 'list #{x 6479}#) (list 'cons #{x 6479}# #{y 6481}#))) (if (eqv? #{atom-key 6487}# 'list) (cons 'list (cons #{x 6479}# (cdr #{y 6481}#))) (list 'cons #{x 6479}# #{y 6481}#)))) #{maps 6482}#)))))) #{tmp 6473}#) (let ((#{tmp 6516}# ($sc-dispatch #{e 6363}# '#(vector (any . each-any))))) (if #{tmp 6516}# (@apply (lambda (#{e1 6520}# #{e2 6521}#) (call-with-values (lambda () (#{gen-syntax 5899}# #{src 6362}# (cons #{e1 6520}# #{e2 6521}#) #{r 6364}# #{maps 6365}# #{ellipsis? 6366}# #{mod 6367}#)) (lambda (#{e 6522}# #{maps 6523}#) (values (if (eq? (car #{e 6522}#) 'list) (cons 'vector (cdr #{e 6522}#)) (if (eq? (car #{e 6522}#) 'quote) (list 'quote (list->vector (car (cdr #{e 6522}#)))) (list 'list->vector #{e 6522}#))) #{maps 6523}#)))) #{tmp 6516}#) (values (list 'quote #{e 6363}#) #{maps 6365}#)))))))))))) (#{gen-ref 5900}# (lambda (#{src 6550}# #{var 6551}# #{level 6552}# #{maps 6553}#) (if (= #{level 6552}# 0) (values #{var 6551}# #{maps 6553}#) (if (null? #{maps 6553}#) (syntax-violation 'syntax "missing ellipsis" #{src 6550}#) (call-with-values (lambda () (#{gen-ref 5900}# #{src 6550}# #{var 6551}# (#{1-}# #{level 6552}#) (cdr #{maps 6553}#))) (lambda (#{outer-var 6554}# #{outer-maps 6555}#) (let ((#{b 6556}# (assq #{outer-var 6554}# (car #{maps 6553}#)))) (if #{b 6556}# (values (cdr #{b 6556}#) #{maps 6553}#) (let ((#{inner-var 6558}# (gensym (string-append (symbol->string 'tmp) " ")))) (values #{inner-var 6558}# (cons (cons (cons #{outer-var 6554}# #{inner-var 6558}#) (car #{maps 6553}#)) #{outer-maps 6555}#))))))))))) (#{gen-map 5902}# (lambda (#{e 6572}# #{map-env 6573}#) (let ((#{formals 6574}# (map cdr #{map-env 6573}#)) (#{actuals 6575}# (map (lambda (#{x 6577}#) (list 'ref (car #{x 6577}#))) #{map-env 6573}#))) (if (eq? (car #{e 6572}#) 'ref) (car #{actuals 6575}#) (if (and-map (lambda (#{x 6578}#) (if (eq? (car #{x 6578}#) 'ref) (memq (car (cdr #{x 6578}#)) #{formals 6574}#) #f)) (cdr #{e 6572}#)) (cons 'map (cons (list 'primitive (car #{e 6572}#)) (map (let ((#{r 6580}# (map cons #{formals 6574}# #{actuals 6575}#))) (lambda (#{x 6581}#) (cdr (assq (car (cdr #{x 6581}#)) #{r 6580}#)))) (cdr #{e 6572}#)))) (cons 'map (cons (list 'lambda #{formals 6574}# #{e 6572}#) #{actuals 6575}#))))))) (#{regen 5906}# (lambda (#{x 6583}#) (let ((#{atom-key 6584}# (car #{x 6583}#))) (if (eqv? #{atom-key 6584}# 'ref) (let ((#{name 6594}# (car (cdr #{x 6583}#))) (#{var 6595}# (car (cdr #{x 6583}#)))) (make-struct/no-tail (vector-ref %expanded-vtables 3) #f #{name 6594}# #{var 6595}#)) (if (eqv? #{atom-key 6584}# 'primitive) (let ((#{name 6606}# (car (cdr #{x 6583}#)))) (make-struct/no-tail (vector-ref %expanded-vtables 2) #f #{name 6606}#)) (if (eqv? #{atom-key 6584}# 'quote) (let ((#{exp 6617}# (car (cdr #{x 6583}#)))) (make-struct/no-tail (vector-ref %expanded-vtables 1) #f #{exp 6617}#)) (if (eqv? #{atom-key 6584}# 'lambda) (if (list? (car (cdr #{x 6583}#))) (let ((#{req 6628}# (car (cdr #{x 6583}#))) (#{vars 6630}# (car (cdr #{x 6583}#))) (#{exp 6632}# (#{regen 5906}# (car (cdr (cdr #{x 6583}#)))))) (let ((#{body 6637}# (make-struct/no-tail (vector-ref %expanded-vtables 15) #f #{req 6628}# #f #f #f '() #{vars 6630}# #{exp 6632}# #f))) (make-struct/no-tail (vector-ref %expanded-vtables 14) #f '() #{body 6637}#))) (error "how did we get here" #{x 6583}#)) (let ((#{name 6653}# (car #{x 6583}#)) (#{args 6654}# (map #{regen 5906}# (cdr #{x 6583}#)))) (make-struct/no-tail (vector-ref %expanded-vtables 12) #f #{name 6653}# #{args 6654}#)))))))))) (lambda (#{e 5907}# #{r 5908}# #{w 5909}# #{s 5910}# #{mod 5911}#) (let ((#{e 5912}# (let ((#{x 6273}# (begin (if (if (pair? #{e 5907}#) #{s 5910}# #f) (set-source-properties! #{e 5907}# #{s 5910}#)) #{e 5907}#))) (if (if (null? (car #{w 5909}#)) (null? (cdr #{w 5909}#)) #f) #{x 6273}# (if (if (vector? #{x 6273}#) (if (= (vector-length #{x 6273}#) 4) (eq? (vector-ref #{x 6273}# 0) 'syntax-object) #f) #f) (let ((#{expression 6305}# (vector-ref #{x 6273}# 1)) (#{wrap 6306}# (let ((#{w2 6314}# (vector-ref #{x 6273}# 2))) (let ((#{m1 6315}# (car #{w 5909}#)) (#{s1 6316}# (cdr #{w 5909}#))) (if (null? #{m1 6315}#) (if (null? #{s1 6316}#) #{w2 6314}# (cons (car #{w2 6314}#) (let ((#{m2 6331}# (cdr #{w2 6314}#))) (if (null? #{m2 6331}#) #{s1 6316}# (append #{s1 6316}# #{m2 6331}#))))) (cons (let ((#{m2 6339}# (car #{w2 6314}#))) (if (null? #{m2 6339}#) #{m1 6315}# (append #{m1 6315}# #{m2 6339}#))) (let ((#{m2 6347}# (cdr #{w2 6314}#))) (if (null? #{m2 6347}#) #{s1 6316}# (append #{s1 6316}# #{m2 6347}#)))))))) (#{module 6307}# (vector-ref #{x 6273}# 3))) (vector 'syntax-object #{expression 6305}# #{wrap 6306}# #{module 6307}#)) (if (null? #{x 6273}#) #{x 6273}# (vector 'syntax-object #{x 6273}# #{w 5909}# #{mod 5911}#))))))) (let ((#{tmp 5913}# #{e 5912}#)) (let ((#{tmp 5914}# ($sc-dispatch #{tmp 5913}# '(_ any)))) (if #{tmp 5914}# (@apply (lambda (#{x 5966}#) (call-with-values (lambda () (#{gen-syntax 5899}# #{e 5912}# #{x 5966}# #{r 5908}# '() #{ellipsis? 4454}# #{mod 5911}#)) (lambda (#{e 6049}# #{maps 6050}#) (#{regen 5906}# #{e 6049}#)))) #{tmp 5914}#) (syntax-violation 'syntax "bad `syntax' form" #{e 5912}#)))))))) (#{global-extend 4411}# 'core 'lambda (lambda (#{e 6890}# #{r 6891}# #{w 6892}# #{s 6893}# #{mod 6894}#) (let ((#{tmp 6896}# ($sc-dispatch #{e 6890}# '(_ any any . each-any)))) (if #{tmp 6896}# (@apply (lambda (#{args 6900}# #{e1 6901}# #{e2 6902}#) (call-with-values (lambda () (#{lambda-formals 4455}# #{args 6900}#)) (lambda (#{req 6905}# #{opt 6906}# #{rest 6907}# #{kw 6908}#) (letrec* ((#{lp 6909}# (lambda (#{body 6912}# #{meta 6913}#) (let ((#{tmp 6915}# ($sc-dispatch #{body 6912}# '(any any . each-any)))) (if (if #{tmp 6915}# (@apply (lambda (#{docstring 6919}# #{e1 6920}# #{e2 6921}#) (string? (syntax->datum #{docstring 6919}#))) #{tmp 6915}#) #f) (@apply (lambda (#{docstring 6922}# #{e1 6923}# #{e2 6924}#) (#{lp 6909}# (cons #{e1 6923}# #{e2 6924}#) (append #{meta 6913}# (list (cons 'documentation (syntax->datum #{docstring 6922}#)))))) #{tmp 6915}#) (let ((#{tmp 6925}# ($sc-dispatch #{body 6912}# '(#(vector #(each (any . any))) any . each-any)))) (if #{tmp 6925}# (@apply (lambda (#{k 6929}# #{v 6930}# #{e1 6931}# #{e2 6932}#) (#{lp 6909}# (cons #{e1 6931}# #{e2 6932}#) (append #{meta 6913}# (syntax->datum (map cons #{k 6929}# #{v 6930}#))))) #{tmp 6925}#) (#{chi-simple-lambda 4456}# #{e 6890}# #{r 6891}# #{w 6892}# #{s 6893}# #{mod 6894}# #{req 6905}# #{rest 6907}# #{meta 6913}# #{body 6912}#)))))))) (#{lp 6909}# (cons #{e1 6901}# #{e2 6902}#) '()))))) #{tmp 6896}#) (syntax-violation 'lambda "bad lambda" #{e 6890}#))))) (#{global-extend 4411}# 'core 'lambda* (lambda (#{e 7316}# #{r 7317}# #{w 7318}# #{s 7319}# #{mod 7320}#) (let ((#{tmp 7322}# ($sc-dispatch #{e 7316}# '(_ any any . each-any)))) (if #{tmp 7322}# (@apply (lambda (#{args 7326}# #{e1 7327}# #{e2 7328}#) (call-with-values (lambda () (#{chi-lambda-case 4458}# #{e 7316}# #{r 7317}# #{w 7318}# #{s 7319}# #{mod 7320}# #{lambda*-formals 4457}# (list (cons #{args 7326}# (cons #{e1 7327}# #{e2 7328}#))))) (lambda (#{meta 7331}# #{lcase 7332}#) (make-struct/no-tail (vector-ref %expanded-vtables 14) #{s 7319}# #{meta 7331}# #{lcase 7332}#)))) #{tmp 7322}#) (syntax-violation 'lambda "bad lambda*" #{e 7316}#))))) (#{global-extend 4411}# 'core 'case-lambda (lambda (#{e 7495}# #{r 7496}# #{w 7497}# #{s 7498}# #{mod 7499}#) (let ((#{tmp 7501}# ($sc-dispatch #{e 7495}# '(_ (any any . each-any) . #(each (any any . each-any)))))) (if #{tmp 7501}# (@apply (lambda (#{args 7505}# #{e1 7506}# #{e2 7507}# #{args* 7508}# #{e1* 7509}# #{e2* 7510}#) (call-with-values (lambda () (#{chi-lambda-case 4458}# #{e 7495}# #{r 7496}# #{w 7497}# #{s 7498}# #{mod 7499}# #{lambda-formals 4455}# (cons (cons #{args 7505}# (cons #{e1 7506}# #{e2 7507}#)) (map (lambda (#{tmp 3385 7513}# #{tmp 3384 7514}# #{tmp 3383 7515}#) (cons #{tmp 3383 7515}# (cons #{tmp 3384 7514}# #{tmp 3385 7513}#))) #{e2* 7510}# #{e1* 7509}# #{args* 7508}#)))) (lambda (#{meta 7516}# #{lcase 7517}#) (make-struct/no-tail (vector-ref %expanded-vtables 14) #{s 7498}# #{meta 7516}# #{lcase 7517}#)))) #{tmp 7501}#) (syntax-violation 'case-lambda "bad case-lambda" #{e 7495}#))))) (#{global-extend 4411}# 'core 'case-lambda* (lambda (#{e 7686}# #{r 7687}# #{w 7688}# #{s 7689}# #{mod 7690}#) (let ((#{tmp 7692}# ($sc-dispatch #{e 7686}# '(_ (any any . each-any) . #(each (any any . each-any)))))) (if #{tmp 7692}# (@apply (lambda (#{args 7696}# #{e1 7697}# #{e2 7698}# #{args* 7699}# #{e1* 7700}# #{e2* 7701}#) (call-with-values (lambda () (#{chi-lambda-case 4458}# #{e 7686}# #{r 7687}# #{w 7688}# #{s 7689}# #{mod 7690}# #{lambda*-formals 4457}# (cons (cons #{args 7696}# (cons #{e1 7697}# #{e2 7698}#)) (map (lambda (#{tmp 3420 7704}# #{tmp 3419 7705}# #{tmp 3418 7706}#) (cons #{tmp 3418 7706}# (cons #{tmp 3419 7705}# #{tmp 3420 7704}#))) #{e2* 7701}# #{e1* 7700}# #{args* 7699}#)))) (lambda (#{meta 7707}# #{lcase 7708}#) (make-struct/no-tail (vector-ref %expanded-vtables 14) #{s 7689}# #{meta 7707}# #{lcase 7708}#)))) #{tmp 7692}#) (syntax-violation 'case-lambda "bad case-lambda*" #{e 7686}#))))) (#{global-extend 4411}# 'core 'let (letrec* ((#{chi-let 7917}# (lambda (#{e 8127}# #{r 8128}# #{w 8129}# #{s 8130}# #{mod 8131}# #{constructor 8132}# #{ids 8133}# #{vals 8134}# #{exps 8135}#) (if (not (#{valid-bound-ids? 4436}# #{ids 8133}#)) (syntax-violation 'let "duplicate bound variable" #{e 8127}#) (let ((#{labels 8220}# (#{gen-labels 4416}# #{ids 8133}#)) (#{new-vars 8221}# (map #{gen-var 4460}# #{ids 8133}#))) (let ((#{nw 8222}# (#{make-binding-wrap 4427}# #{ids 8133}# #{labels 8220}# #{w 8129}#)) (#{nr 8223}# (#{extend-var-env 4409}# #{labels 8220}# #{new-vars 8221}# #{r 8128}#))) (#{constructor 8132}# #{s 8130}# (map syntax->datum #{ids 8133}#) #{new-vars 8221}# (map (lambda (#{x 8240}#) (#{chi 4446}# #{x 8240}# #{r 8128}# #{w 8129}# #{mod 8131}#)) #{vals 8134}#) (#{chi-body 4450}# #{exps 8135}# (#{source-wrap 4440}# #{e 8127}# #{nw 8222}# #{s 8130}# #{mod 8131}#) #{nr 8223}# #{nw 8222}# #{mod 8131}#)))))))) (lambda (#{e 7918}# #{r 7919}# #{w 7920}# #{s 7921}# #{mod 7922}#) (let ((#{tmp 7924}# ($sc-dispatch #{e 7918}# '(_ #(each (any any)) any . each-any)))) (if (if #{tmp 7924}# (@apply (lambda (#{id 7928}# #{val 7929}# #{e1 7930}# #{e2 7931}#) (and-map #{id? 4413}# #{id 7928}#)) #{tmp 7924}#) #f) (@apply (lambda (#{id 7947}# #{val 7948}# #{e1 7949}# #{e2 7950}#) (#{chi-let 7917}# #{e 7918}# #{r 7919}# #{w 7920}# #{s 7921}# #{mod 7922}# (lambda (#{src 7954}# #{ids 7955}# #{vars 7956}# #{val-exps 7957}# #{body-exp 7958}#) (begin (for-each #{maybe-name-value! 4378}# #{ids 7955}# #{val-exps 7957}#) (if (null? #{vars 7956}#) #{body-exp 7958}# (make-struct/no-tail (vector-ref %expanded-vtables 16) #{src 7954}# #{ids 7955}# #{vars 7956}# #{val-exps 7957}# #{body-exp 7958}#)))) #{id 7947}# #{val 7948}# (cons #{e1 7949}# #{e2 7950}#))) #{tmp 7924}#) (let ((#{tmp 7965}# ($sc-dispatch #{e 7918}# '(_ any #(each (any any)) any . each-any)))) (if (if #{tmp 7965}# (@apply (lambda (#{f 7969}# #{id 7970}# #{val 7971}# #{e1 7972}# #{e2 7973}#) (if (if (symbol? #{f 7969}#) #t (if (if (vector? #{f 7969}#) (if (= (vector-length #{f 7969}#) 4) (eq? (vector-ref #{f 7969}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref #{f 7969}# 1)) #f)) (and-map #{id? 4413}# #{id 7970}#) #f)) #{tmp 7965}#) #f) (@apply (lambda (#{f 8015}# #{id 8016}# #{val 8017}# #{e1 8018}# #{e2 8019}#) (#{chi-let 7917}# #{e 7918}# #{r 7919}# #{w 7920}# #{s 7921}# #{mod 7922}# #{build-named-let 4397}# (cons #{f 8015}# #{id 8016}#) #{val 8017}# (cons #{e1 8018}# #{e2 8019}#))) #{tmp 7965}#) (syntax-violation 'let "bad let" (let ((#{x 8032}# (begin (if (if (pair? #{e 7918}#) #{s 7921}# #f) (set-source-properties! #{e 7918}# #{s 7921}#)) #{e 7918}#))) (if (if (null? (car #{w 7920}#)) (null? (cdr #{w 7920}#)) #f) #{x 8032}# (if (if (vector? #{x 8032}#) (if (= (vector-length #{x 8032}#) 4) (eq? (vector-ref #{x 8032}# 0) 'syntax-object) #f) #f) (let ((#{expression 8064}# (vector-ref #{x 8032}# 1)) (#{wrap 8065}# (let ((#{w2 8073}# (vector-ref #{x 8032}# 2))) (let ((#{m1 8074}# (car #{w 7920}#)) (#{s1 8075}# (cdr #{w 7920}#))) (if (null? #{m1 8074}#) (if (null? #{s1 8075}#) #{w2 8073}# (cons (car #{w2 8073}#) (let ((#{m2 8090}# (cdr #{w2 8073}#))) (if (null? #{m2 8090}#) #{s1 8075}# (append #{s1 8075}# #{m2 8090}#))))) (cons (let ((#{m2 8098}# (car #{w2 8073}#))) (if (null? #{m2 8098}#) #{m1 8074}# (append #{m1 8074}# #{m2 8098}#))) (let ((#{m2 8106}# (cdr #{w2 8073}#))) (if (null? #{m2 8106}#) #{s1 8075}# (append #{s1 8075}# #{m2 8106}#)))))))) (#{module 8066}# (vector-ref #{x 8032}# 3))) (vector 'syntax-object #{expression 8064}# #{wrap 8065}# #{module 8066}#)) (if (null? #{x 8032}#) #{x 8032}# (vector 'syntax-object #{x 8032}# #{w 7920}# #{mod 7922}#))))))))))))) (#{global-extend 4411}# 'core 'letrec (lambda (#{e 8717}# #{r 8718}# #{w 8719}# #{s 8720}# #{mod 8721}#) (let ((#{tmp 8723}# ($sc-dispatch #{e 8717}# '(_ #(each (any any)) any . each-any)))) (if (if #{tmp 8723}# (@apply (lambda (#{id 8727}# #{val 8728}# #{e1 8729}# #{e2 8730}#) (and-map #{id? 4413}# #{id 8727}#)) #{tmp 8723}#) #f) (@apply (lambda (#{id 8746}# #{val 8747}# #{e1 8748}# #{e2 8749}#) (if (not (#{valid-bound-ids? 4436}# #{id 8746}#)) (syntax-violation 'letrec "duplicate bound variable" #{e 8717}#) (let ((#{labels 8846}# (#{gen-labels 4416}# #{id 8746}#)) (#{new-vars 8847}# (map #{gen-var 4460}# #{id 8746}#))) (let ((#{w 8848}# (#{make-binding-wrap 4427}# #{id 8746}# #{labels 8846}# #{w 8719}#)) (#{r 8849}# (#{extend-var-env 4409}# #{labels 8846}# #{new-vars 8847}# #{r 8718}#))) (#{build-letrec 4398}# #{s 8720}# #f (map syntax->datum #{id 8746}#) #{new-vars 8847}# (map (lambda (#{x 8928}#) (#{chi 4446}# #{x 8928}# #{r 8849}# #{w 8848}# #{mod 8721}#)) #{val 8747}#) (#{chi-body 4450}# (cons #{e1 8748}# #{e2 8749}#) (let ((#{x 8990}# (begin (if (if (pair? #{e 8717}#) #{s 8720}# #f) (set-source-properties! #{e 8717}# #{s 8720}#)) #{e 8717}#))) (if (if (null? (car #{w 8848}#)) (null? (cdr #{w 8848}#)) #f) #{x 8990}# (if (if (vector? #{x 8990}#) (if (= (vector-length #{x 8990}#) 4) (eq? (vector-ref #{x 8990}# 0) 'syntax-object) #f) #f) (let ((#{expression 9022}# (vector-ref #{x 8990}# 1)) (#{wrap 9023}# (let ((#{w2 9031}# (vector-ref #{x 8990}# 2))) (let ((#{m1 9032}# (car #{w 8848}#)) (#{s1 9033}# (cdr #{w 8848}#))) (if (null? #{m1 9032}#) (if (null? #{s1 9033}#) #{w2 9031}# (cons (car #{w2 9031}#) (let ((#{m2 9048}# (cdr #{w2 9031}#))) (if (null? #{m2 9048}#) #{s1 9033}# (append #{s1 9033}# #{m2 9048}#))))) (cons (let ((#{m2 9056}# (car #{w2 9031}#))) (if (null? #{m2 9056}#) #{m1 9032}# (append #{m1 9032}# #{m2 9056}#))) (let ((#{m2 9064}# (cdr #{w2 9031}#))) (if (null? #{m2 9064}#) #{s1 9033}# (append #{s1 9033}# #{m2 9064}#)))))))) (#{module 9024}# (vector-ref #{x 8990}# 3))) (vector 'syntax-object #{expression 9022}# #{wrap 9023}# #{module 9024}#)) (if (null? #{x 8990}#) #{x 8990}# (vector 'syntax-object #{x 8990}# #{w 8848}# #{mod 8721}#))))) #{r 8849}# #{w 8848}# #{mod 8721}#)))))) #{tmp 8723}#) (syntax-violation 'letrec "bad letrec" (let ((#{x 9304}# (begin (if (if (pair? #{e 8717}#) #{s 8720}# #f) (set-source-properties! #{e 8717}# #{s 8720}#)) #{e 8717}#))) (if (if (null? (car #{w 8719}#)) (null? (cdr #{w 8719}#)) #f) #{x 9304}# (if (if (vector? #{x 9304}#) (if (= (vector-length #{x 9304}#) 4) (eq? (vector-ref #{x 9304}# 0) 'syntax-object) #f) #f) (let ((#{expression 9336}# (vector-ref #{x 9304}# 1)) (#{wrap 9337}# (let ((#{w2 9345}# (vector-ref #{x 9304}# 2))) (let ((#{m1 9346}# (car #{w 8719}#)) (#{s1 9347}# (cdr #{w 8719}#))) (if (null? #{m1 9346}#) (if (null? #{s1 9347}#) #{w2 9345}# (cons (car #{w2 9345}#) (let ((#{m2 9362}# (cdr #{w2 9345}#))) (if (null? #{m2 9362}#) #{s1 9347}# (append #{s1 9347}# #{m2 9362}#))))) (cons (let ((#{m2 9370}# (car #{w2 9345}#))) (if (null? #{m2 9370}#) #{m1 9346}# (append #{m1 9346}# #{m2 9370}#))) (let ((#{m2 9378}# (cdr #{w2 9345}#))) (if (null? #{m2 9378}#) #{s1 9347}# (append #{s1 9347}# #{m2 9378}#)))))))) (#{module 9338}# (vector-ref #{x 9304}# 3))) (vector 'syntax-object #{expression 9336}# #{wrap 9337}# #{module 9338}#)) (if (null? #{x 9304}#) #{x 9304}# (vector 'syntax-object #{x 9304}# #{w 8719}# #{mod 8721}#)))))))))) (#{global-extend 4411}# 'core 'letrec* (lambda (#{e 9529}# #{r 9530}# #{w 9531}# #{s 9532}# #{mod 9533}#) (let ((#{tmp 9535}# ($sc-dispatch #{e 9529}# '(_ #(each (any any)) any . each-any)))) (if (if #{tmp 9535}# (@apply (lambda (#{id 9539}# #{val 9540}# #{e1 9541}# #{e2 9542}#) (and-map #{id? 4413}# #{id 9539}#)) #{tmp 9535}#) #f) (@apply (lambda (#{id 9558}# #{val 9559}# #{e1 9560}# #{e2 9561}#) (if (not (#{valid-bound-ids? 4436}# #{id 9558}#)) (syntax-violation 'letrec* "duplicate bound variable" #{e 9529}#) (let ((#{labels 9658}# (#{gen-labels 4416}# #{id 9558}#)) (#{new-vars 9659}# (map #{gen-var 4460}# #{id 9558}#))) (let ((#{w 9660}# (#{make-binding-wrap 4427}# #{id 9558}# #{labels 9658}# #{w 9531}#)) (#{r 9661}# (#{extend-var-env 4409}# #{labels 9658}# #{new-vars 9659}# #{r 9530}#))) (#{build-letrec 4398}# #{s 9532}# #t (map syntax->datum #{id 9558}#) #{new-vars 9659}# (map (lambda (#{x 9740}#) (#{chi 4446}# #{x 9740}# #{r 9661}# #{w 9660}# #{mod 9533}#)) #{val 9559}#) (#{chi-body 4450}# (cons #{e1 9560}# #{e2 9561}#) (let ((#{x 9802}# (begin (if (if (pair? #{e 9529}#) #{s 9532}# #f) (set-source-properties! #{e 9529}# #{s 9532}#)) #{e 9529}#))) (if (if (null? (car #{w 9660}#)) (null? (cdr #{w 9660}#)) #f) #{x 9802}# (if (if (vector? #{x 9802}#) (if (= (vector-length #{x 9802}#) 4) (eq? (vector-ref #{x 9802}# 0) 'syntax-object) #f) #f) (let ((#{expression 9834}# (vector-ref #{x 9802}# 1)) (#{wrap 9835}# (let ((#{w2 9843}# (vector-ref #{x 9802}# 2))) (let ((#{m1 9844}# (car #{w 9660}#)) (#{s1 9845}# (cdr #{w 9660}#))) (if (null? #{m1 9844}#) (if (null? #{s1 9845}#) #{w2 9843}# (cons (car #{w2 9843}#) (let ((#{m2 9860}# (cdr #{w2 9843}#))) (if (null? #{m2 9860}#) #{s1 9845}# (append #{s1 9845}# #{m2 9860}#))))) (cons (let ((#{m2 9868}# (car #{w2 9843}#))) (if (null? #{m2 9868}#) #{m1 9844}# (append #{m1 9844}# #{m2 9868}#))) (let ((#{m2 9876}# (cdr #{w2 9843}#))) (if (null? #{m2 9876}#) #{s1 9845}# (append #{s1 9845}# #{m2 9876}#)))))))) (#{module 9836}# (vector-ref #{x 9802}# 3))) (vector 'syntax-object #{expression 9834}# #{wrap 9835}# #{module 9836}#)) (if (null? #{x 9802}#) #{x 9802}# (vector 'syntax-object #{x 9802}# #{w 9660}# #{mod 9533}#))))) #{r 9661}# #{w 9660}# #{mod 9533}#)))))) #{tmp 9535}#) (syntax-violation 'letrec* "bad letrec*" (let ((#{x 10116}# (begin (if (if (pair? #{e 9529}#) #{s 9532}# #f) (set-source-properties! #{e 9529}# #{s 9532}#)) #{e 9529}#))) (if (if (null? (car #{w 9531}#)) (null? (cdr #{w 9531}#)) #f) #{x 10116}# (if (if (vector? #{x 10116}#) (if (= (vector-length #{x 10116}#) 4) (eq? (vector-ref #{x 10116}# 0) 'syntax-object) #f) #f) (let ((#{expression 10148}# (vector-ref #{x 10116}# 1)) (#{wrap 10149}# (let ((#{w2 10157}# (vector-ref #{x 10116}# 2))) (let ((#{m1 10158}# (car #{w 9531}#)) (#{s1 10159}# (cdr #{w 9531}#))) (if (null? #{m1 10158}#) (if (null? #{s1 10159}#) #{w2 10157}# (cons (car #{w2 10157}#) (let ((#{m2 10174}# (cdr #{w2 10157}#))) (if (null? #{m2 10174}#) #{s1 10159}# (append #{s1 10159}# #{m2 10174}#))))) (cons (let ((#{m2 10182}# (car #{w2 10157}#))) (if (null? #{m2 10182}#) #{m1 10158}# (append #{m1 10158}# #{m2 10182}#))) (let ((#{m2 10190}# (cdr #{w2 10157}#))) (if (null? #{m2 10190}#) #{s1 10159}# (append #{s1 10159}# #{m2 10190}#)))))))) (#{module 10150}# (vector-ref #{x 10116}# 3))) (vector 'syntax-object #{expression 10148}# #{wrap 10149}# #{module 10150}#)) (if (null? #{x 10116}#) #{x 10116}# (vector 'syntax-object #{x 10116}# #{w 9531}# #{mod 9533}#)))))))))) (#{global-extend 4411}# 'core 'set! (lambda (#{e 10353}# #{r 10354}# #{w 10355}# #{s 10356}# #{mod 10357}#) (let ((#{tmp 10359}# ($sc-dispatch #{e 10353}# '(_ any any)))) (if (if #{tmp 10359}# (@apply (lambda (#{id 10363}# #{val 10364}#) (if (symbol? #{id 10363}#) #t (if (if (vector? #{id 10363}#) (if (= (vector-length #{id 10363}#) 4) (eq? (vector-ref #{id 10363}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref #{id 10363}# 1)) #f))) #{tmp 10359}#) #f) (@apply (lambda (#{id 10391}# #{val 10392}#) (call-with-values (lambda () (#{resolve-identifier 4433}# #{id 10391}# #{w 10355}# #{r 10354}# #{mod 10357}# #t)) (lambda (#{type 10395}# #{value 10396}# #{id-mod 10397}#) (if (eqv? #{type 10395}# 'lexical) (#{build-lexical-assignment 4384}# #{s 10356}# (syntax->datum #{id 10391}#) #{value 10396}# (#{chi 4446}# #{val 10392}# #{r 10354}# #{w 10355}# #{mod 10357}#)) (if (eqv? #{type 10395}# 'global) (#{build-global-assignment 4387}# #{s 10356}# #{value 10396}# (#{chi 4446}# #{val 10392}# #{r 10354}# #{w 10355}# #{mod 10357}#) #{id-mod 10397}#) (if (eqv? #{type 10395}# 'macro) (if (procedure-property #{value 10396}# 'variable-transformer) (#{chi 4446}# (#{chi-macro 4449}# #{value 10396}# #{e 10353}# #{r 10354}# #{w 10355}# #{s 10356}# #f #{mod 10357}#) #{r 10354}# '(()) #{mod 10357}#) (syntax-violation 'set! "not a variable transformer" (if (if (null? (car #{w 10355}#)) (null? (cdr #{w 10355}#)) #f) #{e 10353}# (if (if (vector? #{e 10353}#) (if (= (vector-length #{e 10353}#) 4) (eq? (vector-ref #{e 10353}# 0) 'syntax-object) #f) #f) (let ((#{expression 10857}# (vector-ref #{e 10353}# 1)) (#{wrap 10858}# (let ((#{w2 10868}# (vector-ref #{e 10353}# 2))) (let ((#{m1 10869}# (car #{w 10355}#)) (#{s1 10870}# (cdr #{w 10355}#))) (if (null? #{m1 10869}#) (if (null? #{s1 10870}#) #{w2 10868}# (cons (car #{w2 10868}#) (let ((#{m2 10887}# (cdr #{w2 10868}#))) (if (null? #{m2 10887}#) #{s1 10870}# (append #{s1 10870}# #{m2 10887}#))))) (cons (let ((#{m2 10895}# (car #{w2 10868}#))) (if (null? #{m2 10895}#) #{m1 10869}# (append #{m1 10869}# #{m2 10895}#))) (let ((#{m2 10903}# (cdr #{w2 10868}#))) (if (null? #{m2 10903}#) #{s1 10870}# (append #{s1 10870}# #{m2 10903}#)))))))) (#{module 10859}# (vector-ref #{e 10353}# 3))) (vector 'syntax-object #{expression 10857}# #{wrap 10858}# #{module 10859}#)) (if (null? #{e 10353}#) #{e 10353}# (vector 'syntax-object #{e 10353}# #{w 10355}# #{mod 10357}#)))) (if (if (null? (car #{w 10355}#)) (null? (cdr #{w 10355}#)) #f) #{id 10391}# (if (if (vector? #{id 10391}#) (if (= (vector-length #{id 10391}#) 4) (eq? (vector-ref #{id 10391}# 0) 'syntax-object) #f) #f) (let ((#{expression 10955}# (vector-ref #{id 10391}# 1)) (#{wrap 10956}# (let ((#{w2 10966}# (vector-ref #{id 10391}# 2))) (let ((#{m1 10967}# (car #{w 10355}#)) (#{s1 10968}# (cdr #{w 10355}#))) (if (null? #{m1 10967}#) (if (null? #{s1 10968}#) #{w2 10966}# (cons (car #{w2 10966}#) (let ((#{m2 10985}# (cdr #{w2 10966}#))) (if (null? #{m2 10985}#) #{s1 10968}# (append #{s1 10968}# #{m2 10985}#))))) (cons (let ((#{m2 10993}# (car #{w2 10966}#))) (if (null? #{m2 10993}#) #{m1 10967}# (append #{m1 10967}# #{m2 10993}#))) (let ((#{m2 11001}# (cdr #{w2 10966}#))) (if (null? #{m2 11001}#) #{s1 10968}# (append #{s1 10968}# #{m2 11001}#)))))))) (#{module 10957}# (vector-ref #{id 10391}# 3))) (vector 'syntax-object #{expression 10955}# #{wrap 10956}# #{module 10957}#)) (if (null? #{id 10391}#) #{id 10391}# (vector 'syntax-object #{id 10391}# #{w 10355}# #{id-mod 10397}#)))))) (if (eqv? #{type 10395}# 'displaced-lexical) (syntax-violation 'set! "identifier out of context" (if (if (null? (car #{w 10355}#)) (null? (cdr #{w 10355}#)) #f) #{id 10391}# (if (if (vector? #{id 10391}#) (if (= (vector-length #{id 10391}#) 4) (eq? (vector-ref #{id 10391}# 0) 'syntax-object) #f) #f) (let ((#{expression 11056}# (vector-ref #{id 10391}# 1)) (#{wrap 11057}# (let ((#{w2 11067}# (vector-ref #{id 10391}# 2))) (let ((#{m1 11068}# (car #{w 10355}#)) (#{s1 11069}# (cdr #{w 10355}#))) (if (null? #{m1 11068}#) (if (null? #{s1 11069}#) #{w2 11067}# (cons (car #{w2 11067}#) (let ((#{m2 11086}# (cdr #{w2 11067}#))) (if (null? #{m2 11086}#) #{s1 11069}# (append #{s1 11069}# #{m2 11086}#))))) (cons (let ((#{m2 11094}# (car #{w2 11067}#))) (if (null? #{m2 11094}#) #{m1 11068}# (append #{m1 11068}# #{m2 11094}#))) (let ((#{m2 11102}# (cdr #{w2 11067}#))) (if (null? #{m2 11102}#) #{s1 11069}# (append #{s1 11069}# #{m2 11102}#)))))))) (#{module 11058}# (vector-ref #{id 10391}# 3))) (vector 'syntax-object #{expression 11056}# #{wrap 11057}# #{module 11058}#)) (if (null? #{id 10391}#) #{id 10391}# (vector 'syntax-object #{id 10391}# #{w 10355}# #{mod 10357}#))))) (syntax-violation 'set! "bad set!" (let ((#{x 11134}# (begin (if (if (pair? #{e 10353}#) #{s 10356}# #f) (set-source-properties! #{e 10353}# #{s 10356}#)) #{e 10353}#))) (if (if (null? (car #{w 10355}#)) (null? (cdr #{w 10355}#)) #f) #{x 11134}# (if (if (vector? #{x 11134}#) (if (= (vector-length #{x 11134}#) 4) (eq? (vector-ref #{x 11134}# 0) 'syntax-object) #f) #f) (let ((#{expression 11166}# (vector-ref #{x 11134}# 1)) (#{wrap 11167}# (let ((#{w2 11175}# (vector-ref #{x 11134}# 2))) (let ((#{m1 11176}# (car #{w 10355}#)) (#{s1 11177}# (cdr #{w 10355}#))) (if (null? #{m1 11176}#) (if (null? #{s1 11177}#) #{w2 11175}# (cons (car #{w2 11175}#) (let ((#{m2 11192}# (cdr #{w2 11175}#))) (if (null? #{m2 11192}#) #{s1 11177}# (append #{s1 11177}# #{m2 11192}#))))) (cons (let ((#{m2 11200}# (car #{w2 11175}#))) (if (null? #{m2 11200}#) #{m1 11176}# (append #{m1 11176}# #{m2 11200}#))) (let ((#{m2 11208}# (cdr #{w2 11175}#))) (if (null? #{m2 11208}#) #{s1 11177}# (append #{s1 11177}# #{m2 11208}#)))))))) (#{module 11168}# (vector-ref #{x 11134}# 3))) (vector 'syntax-object #{expression 11166}# #{wrap 11167}# #{module 11168}#)) (if (null? #{x 11134}#) #{x 11134}# (vector 'syntax-object #{x 11134}# #{w 10355}# #{mod 10357}#))))))))))))) #{tmp 10359}#) (let ((#{tmp 11223}# ($sc-dispatch #{e 10353}# '(_ (any . each-any) any)))) (if #{tmp 11223}# (@apply (lambda (#{head 11227}# #{tail 11228}# #{val 11229}#) (call-with-values (lambda () (#{syntax-type 4445}# #{head 11227}# #{r 10354}# '(()) #f #f #{mod 10357}# #t)) (lambda (#{type 11232}# #{value 11233}# #{ee 11234}# #{ww 11235}# #{ss 11236}# #{modmod 11237}#) (if (eqv? #{type 11232}# 'module-ref) (let ((#{val 11241}# (#{chi 4446}# #{val 11229}# #{r 10354}# #{w 10355}# #{mod 10357}#))) (call-with-values (lambda () (#{value 11233}# (cons #{head 11227}# #{tail 11228}#) #{r 10354}# #{w 10355}#)) (lambda (#{e 11242}# #{r 11243}# #{w 11244}# #{s* 11245}# #{mod 11246}#) (let ((#{tmp 11248}# (list #{e 11242}#))) (if (@apply (lambda (#{e 11250}#) (if (symbol? #{e 11250}#) #t (if (if (vector? #{e 11250}#) (if (= (vector-length #{e 11250}#) 4) (eq? (vector-ref #{e 11250}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref #{e 11250}# 1)) #f))) #{tmp 11248}#) (@apply (lambda (#{e 11280}#) (#{build-global-assignment 4387}# #{s 10356}# (syntax->datum #{e 11280}#) #{val 11241}# #{mod 11246}#)) #{tmp 11248}#) (syntax-violation #f "source expression failed to match any pattern" #{e 11242}#)))))) (#{build-call 4380}# #{s 10356}# (#{chi 4446}# (list '#(syntax-object setter ((top) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(type value ee ww ss modmod) #((top) (top) (top) (top) (top) (top)) #("i3658" "i3659" "i3660" "i3661" "i3662" "i3663")) #(ribcage #(head tail val) #((top) (top) (top)) #("i3644" "i3645" "i3646")) #(ribcage () () ()) #(ribcage #(e r w s mod) #((top) (top) (top) (top) (top)) #("i3616" "i3617" "i3618" "i3619" "i3620")) #(ribcage (lambda-var-list gen-var strip chi-lambda-case lambda*-formals chi-simple-lambda lambda-formals ellipsis? chi-void eval-local-transformer chi-local-syntax chi-body chi-macro chi-call chi-expr chi syntax-type chi-when-list chi-install-global chi-top-sequence chi-sequence source-wrap wrap bound-id-member? distinct-bound-ids? valid-bound-ids? bound-id=? free-id=? resolve-identifier 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 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-primcall 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-call 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-seq make-primcall make-call 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) (top) (top)) ("i471" "i469" "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" "i400" "i398" "i395" "i394" "i393" "i391" "i390" "i388" "i386" "i384" "i382" "i380" "i378" "i376" "i374" "i371" "i369" "i368" "i366" "i364" "i362" "i360" "i359" "i358" "i357" "i355" "i354" "i351" "i349" "i347" "i345" "i343" "i341" "i340" "i339" "i337" "i335" "i334" "i331" "i330" "i328" "i326" "i324" "i322" "i320" "i318" "i316" "i314" "i312" "i309" "i307" "i305" "i303" "i301" "i299" "i297" "i295" "i293" "i291" "i289" "i287" "i285" "i283" "i281" "i279" "i277" "i275" "i273" "i271" "i269" "i267" "i265" "i263" "i262" "i259" "i257" "i256" "i255" "i254" "i253" "i251" "i249" "i247" "i244" "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")) #(ribcage () () ())) (hygiene guile)) #{head 11227}#) #{r 10354}# #{w 10355}# #{mod 10357}#) (map (lambda (#{e 11609}#) (#{chi 4446}# #{e 11609}# #{r 10354}# #{w 10355}# #{mod 10357}#)) (append #{tail 11228}# (list #{val 11229}#)))))))) #{tmp 11223}#) (syntax-violation 'set! "bad set!" (let ((#{x 11701}# (begin (if (if (pair? #{e 10353}#) #{s 10356}# #f) (set-source-properties! #{e 10353}# #{s 10356}#)) #{e 10353}#))) (if (if (null? (car #{w 10355}#)) (null? (cdr #{w 10355}#)) #f) #{x 11701}# (if (if (vector? #{x 11701}#) (if (= (vector-length #{x 11701}#) 4) (eq? (vector-ref #{x 11701}# 0) 'syntax-object) #f) #f) (let ((#{expression 11733}# (vector-ref #{x 11701}# 1)) (#{wrap 11734}# (let ((#{w2 11742}# (vector-ref #{x 11701}# 2))) (let ((#{m1 11743}# (car #{w 10355}#)) (#{s1 11744}# (cdr #{w 10355}#))) (if (null? #{m1 11743}#) (if (null? #{s1 11744}#) #{w2 11742}# (cons (car #{w2 11742}#) (let ((#{m2 11759}# (cdr #{w2 11742}#))) (if (null? #{m2 11759}#) #{s1 11744}# (append #{s1 11744}# #{m2 11759}#))))) (cons (let ((#{m2 11767}# (car #{w2 11742}#))) (if (null? #{m2 11767}#) #{m1 11743}# (append #{m1 11743}# #{m2 11767}#))) (let ((#{m2 11775}# (cdr #{w2 11742}#))) (if (null? #{m2 11775}#) #{s1 11744}# (append #{s1 11744}# #{m2 11775}#)))))))) (#{module 11735}# (vector-ref #{x 11701}# 3))) (vector 'syntax-object #{expression 11733}# #{wrap 11734}# #{module 11735}#)) (if (null? #{x 11701}#) #{x 11701}# (vector 'syntax-object #{x 11701}# #{w 10355}# #{mod 10357}#)))))))))))) (module-define! (current-module) '@ (make-syntax-transformer '@ 'module-ref (lambda (#{e 11806}# #{r 11807}# #{w 11808}#) (let ((#{tmp 11810}# ($sc-dispatch #{e 11806}# '(_ each-any any)))) (if (if #{tmp 11810}# (@apply (lambda (#{mod 11813}# #{id 11814}#) (if (and-map #{id? 4413}# #{mod 11813}#) (if (symbol? #{id 11814}#) #t (if (if (vector? #{id 11814}#) (if (= (vector-length #{id 11814}#) 4) (eq? (vector-ref #{id 11814}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref #{id 11814}# 1)) #f)) #f)) #{tmp 11810}#) #f) (@apply (lambda (#{mod 11854}# #{id 11855}#) (values (syntax->datum #{id 11855}#) #{r 11807}# #{w 11808}# #f (syntax->datum (cons '#(syntax-object public ((top) #(ribcage #(mod id) #((top) (top)) #("i3705" "i3706")) #(ribcage () () ()) #(ribcage #(e r w) #((top) (top) (top)) #("i3693" "i3694" "i3695")) #(ribcage (lambda-var-list gen-var strip chi-lambda-case lambda*-formals chi-simple-lambda lambda-formals ellipsis? chi-void eval-local-transformer chi-local-syntax chi-body chi-macro chi-call chi-expr chi syntax-type chi-when-list chi-install-global chi-top-sequence chi-sequence source-wrap wrap bound-id-member? distinct-bound-ids? valid-bound-ids? bound-id=? free-id=? resolve-identifier 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 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-primcall 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-call 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-seq make-primcall make-call 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) (top) (top)) ("i471" "i469" "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" "i400" "i398" "i395" "i394" "i393" "i391" "i390" "i388" "i386" "i384" "i382" "i380" "i378" "i376" "i374" "i371" "i369" "i368" "i366" "i364" "i362" "i360" "i359" "i358" "i357" "i355" "i354" "i351" "i349" "i347" "i345" "i343" "i341" "i340" "i339" "i337" "i335" "i334" "i331" "i330" "i328" "i326" "i324" "i322" "i320" "i318" "i316" "i314" "i312" "i309" "i307" "i305" "i303" "i301" "i299" "i297" "i295" "i293" "i291" "i289" "i287" "i285" "i283" "i281" "i279" "i277" "i275" "i273" "i271" "i269" "i267" "i265" "i263" "i262" "i259" "i257" "i256" "i255" "i254" "i253" "i251" "i249" "i247" "i244" "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")) #(ribcage () () ())) (hygiene guile)) #{mod 11854}#)))) #{tmp 11810}#) (syntax-violation #f "source expression failed to match any pattern" #{e 11806}#)))))) (#{global-extend 4411}# 'module-ref '@@ (lambda (#{e 11959}# #{r 11960}# #{w 11961}#) (letrec* ((#{remodulate 11962}# (lambda (#{x 12198}# #{mod 12199}#) (if (pair? #{x 12198}#) (cons (#{remodulate 11962}# (car #{x 12198}#) #{mod 12199}#) (#{remodulate 11962}# (cdr #{x 12198}#) #{mod 12199}#)) (if (if (vector? #{x 12198}#) (if (= (vector-length #{x 12198}#) 4) (eq? (vector-ref #{x 12198}# 0) 'syntax-object) #f) #f) (let ((#{expression 12213}# (#{remodulate 11962}# (vector-ref #{x 12198}# 1) #{mod 12199}#)) (#{wrap 12214}# (vector-ref #{x 12198}# 2))) (vector 'syntax-object #{expression 12213}# #{wrap 12214}# #{mod 12199}#)) (if (vector? #{x 12198}#) (let ((#{n 12222}# (vector-length #{x 12198}#))) (let ((#{v 12223}# (make-vector #{n 12222}#))) (letrec* ((#{loop 12224}# (lambda (#{i 12279}#) (if (= #{i 12279}# #{n 12222}#) #{v 12223}# (begin (vector-set! #{v 12223}# #{i 12279}# (#{remodulate 11962}# (vector-ref #{x 12198}# #{i 12279}#) #{mod 12199}#)) (#{loop 12224}# (#{1+}# #{i 12279}#))))))) (#{loop 12224}# 0)))) #{x 12198}#)))))) (let ((#{tmp 11964}# ($sc-dispatch #{e 11959}# '(_ each-any any)))) (if (if #{tmp 11964}# (@apply (lambda (#{mod 11968}# #{exp 11969}#) (and-map #{id? 4413}# #{mod 11968}#)) #{tmp 11964}#) #f) (@apply (lambda (#{mod 11985}# #{exp 11986}#) (let ((#{mod 11987}# (syntax->datum (cons '#(syntax-object private ((top) #(ribcage #(mod exp) #((top) (top)) #("i3749" "i3750")) #(ribcage (remodulate) ((top)) ("i3716")) #(ribcage #(e r w) #((top) (top) (top)) #("i3713" "i3714" "i3715")) #(ribcage (lambda-var-list gen-var strip chi-lambda-case lambda*-formals chi-simple-lambda lambda-formals ellipsis? chi-void eval-local-transformer chi-local-syntax chi-body chi-macro chi-call chi-expr chi syntax-type chi-when-list chi-install-global chi-top-sequence chi-sequence source-wrap wrap bound-id-member? distinct-bound-ids? valid-bound-ids? bound-id=? free-id=? resolve-identifier 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 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-primcall 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-call 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-seq make-primcall make-call 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) (top) (top)) ("i471" "i469" "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" "i400" "i398" "i395" "i394" "i393" "i391" "i390" "i388" "i386" "i384" "i382" "i380" "i378" "i376" "i374" "i371" "i369" "i368" "i366" "i364" "i362" "i360" "i359" "i358" "i357" "i355" "i354" "i351" "i349" "i347" "i345" "i343" "i341" "i340" "i339" "i337" "i335" "i334" "i331" "i330" "i328" "i326" "i324" "i322" "i320" "i318" "i316" "i314" "i312" "i309" "i307" "i305" "i303" "i301" "i299" "i297" "i295" "i293" "i291" "i289" "i287" "i285" "i283" "i281" "i279" "i277" "i275" "i273" "i271" "i269" "i267" "i265" "i263" "i262" "i259" "i257" "i256" "i255" "i254" "i253" "i251" "i249" "i247" "i244" "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")) #(ribcage () () ())) (hygiene guile)) #{mod 11985}#)))) (values (#{remodulate 11962}# #{exp 11986}# #{mod 11987}#) #{r 11960}# #{w 11961}# (#{source-annotation 4407}# #{exp 11986}#) #{mod 11987}#))) #{tmp 11964}#) (syntax-violation #f "source expression failed to match any pattern" #{e 11959}#)))))) (#{global-extend 4411}# 'core 'if (lambda (#{e 12392}# #{r 12393}# #{w 12394}# #{s 12395}# #{mod 12396}#) (let ((#{tmp 12398}# ($sc-dispatch #{e 12392}# '(_ any any)))) (if #{tmp 12398}# (@apply (lambda (#{test 12402}# #{then 12403}#) (#{build-conditional 4381}# #{s 12395}# (#{chi 4446}# #{test 12402}# #{r 12393}# #{w 12394}# #{mod 12396}#) (#{chi 4446}# #{then 12403}# #{r 12393}# #{w 12394}# #{mod 12396}#) (make-struct/no-tail (vector-ref %expanded-vtables 0) #f))) #{tmp 12398}#) (let ((#{tmp 12664}# ($sc-dispatch #{e 12392}# '(_ any any any)))) (if #{tmp 12664}# (@apply (lambda (#{test 12668}# #{then 12669}# #{else 12670}#) (#{build-conditional 4381}# #{s 12395}# (#{chi 4446}# #{test 12668}# #{r 12393}# #{w 12394}# #{mod 12396}#) (#{chi 4446}# #{then 12669}# #{r 12393}# #{w 12394}# #{mod 12396}#) (#{chi 4446}# #{else 12670}# #{r 12393}# #{w 12394}# #{mod 12396}#))) #{tmp 12664}#) (syntax-violation #f "source expression failed to match any pattern" #{e 12392}#))))))) (#{global-extend 4411}# 'core 'with-fluids (lambda (#{e 13129}# #{r 13130}# #{w 13131}# #{s 13132}# #{mod 13133}#) (let ((#{tmp 13135}# ($sc-dispatch #{e 13129}# '(_ #(each (any any)) any . each-any)))) (if #{tmp 13135}# (@apply (lambda (#{fluid 13139}# #{val 13140}# #{b 13141}# #{b* 13142}#) (#{build-dynlet 4382}# #{s 13132}# (map (lambda (#{x 13235}#) (#{chi 4446}# #{x 13235}# #{r 13130}# #{w 13131}# #{mod 13133}#)) #{fluid 13139}#) (map (lambda (#{x 13317}#) (#{chi 4446}# #{x 13317}# #{r 13130}# #{w 13131}# #{mod 13133}#)) #{val 13140}#) (#{chi-body 4450}# (cons #{b 13141}# #{b* 13142}#) (let ((#{x 13410}# (begin (if (if (pair? #{e 13129}#) #{s 13132}# #f) (set-source-properties! #{e 13129}# #{s 13132}#)) #{e 13129}#))) (if (if (null? (car #{w 13131}#)) (null? (cdr #{w 13131}#)) #f) #{x 13410}# (if (if (vector? #{x 13410}#) (if (= (vector-length #{x 13410}#) 4) (eq? (vector-ref #{x 13410}# 0) 'syntax-object) #f) #f) (let ((#{expression 13442}# (vector-ref #{x 13410}# 1)) (#{wrap 13443}# (let ((#{w2 13451}# (vector-ref #{x 13410}# 2))) (let ((#{m1 13452}# (car #{w 13131}#)) (#{s1 13453}# (cdr #{w 13131}#))) (if (null? #{m1 13452}#) (if (null? #{s1 13453}#) #{w2 13451}# (cons (car #{w2 13451}#) (let ((#{m2 13468}# (cdr #{w2 13451}#))) (if (null? #{m2 13468}#) #{s1 13453}# (append #{s1 13453}# #{m2 13468}#))))) (cons (let ((#{m2 13476}# (car #{w2 13451}#))) (if (null? #{m2 13476}#) #{m1 13452}# (append #{m1 13452}# #{m2 13476}#))) (let ((#{m2 13484}# (cdr #{w2 13451}#))) (if (null? #{m2 13484}#) #{s1 13453}# (append #{s1 13453}# #{m2 13484}#)))))))) (#{module 13444}# (vector-ref #{x 13410}# 3))) (vector 'syntax-object #{expression 13442}# #{wrap 13443}# #{module 13444}#)) (if (null? #{x 13410}#) #{x 13410}# (vector 'syntax-object #{x 13410}# #{w 13131}# #{mod 13133}#))))) #{r 13130}# #{w 13131}# #{mod 13133}#))) #{tmp 13135}#) (syntax-violation #f "source expression failed to match any pattern" #{e 13129}#))))) (module-define! (current-module) 'begin (make-syntax-transformer 'begin 'begin '())) (module-define! (current-module) 'define (make-syntax-transformer 'define 'define '())) (module-define! (current-module) 'define-syntax (make-syntax-transformer 'define-syntax 'define-syntax '())) (module-define! (current-module) 'define-syntax-parameter (make-syntax-transformer 'define-syntax-parameter 'define-syntax-parameter '())) (module-define! (current-module) 'eval-when (make-syntax-transformer 'eval-when 'eval-when '())) (#{global-extend 4411}# 'core 'syntax-case (letrec* ((#{convert-pattern 13788}# (lambda (#{pattern 15444}# #{keys 15445}#) (letrec* ((#{cvt* 15446}# (lambda (#{p* 16245}# #{n 16246}# #{ids 16247}#) (if (not (pair? #{p* 16245}#)) (#{cvt 15448}# #{p* 16245}# #{n 16246}# #{ids 16247}#) (call-with-values (lambda () (#{cvt* 15446}# (cdr #{p* 16245}#) #{n 16246}# #{ids 16247}#)) (lambda (#{y 16250}# #{ids 16251}#) (call-with-values (lambda () (#{cvt 15448}# (car #{p* 16245}#) #{n 16246}# #{ids 16251}#)) (lambda (#{x 16254}# #{ids 16255}#) (values (cons #{x 16254}# #{y 16250}#) #{ids 16255}#)))))))) (#{v-reverse 15447}# (lambda (#{x 16256}#) (letrec* ((#{loop 16257}# (lambda (#{r 16358}# #{x 16359}#) (if (not (pair? #{x 16359}#)) (values #{r 16358}# #{x 16359}#) (#{loop 16257}# (cons (car #{x 16359}#) #{r 16358}#) (cdr #{x 16359}#)))))) (#{loop 16257}# '() #{x 16256}#)))) (#{cvt 15448}# (lambda (#{p 15451}# #{n 15452}# #{ids 15453}#) (if (if (symbol? #{p 15451}#) #t (if (if (vector? #{p 15451}#) (if (= (vector-length #{p 15451}#) 4) (eq? (vector-ref #{p 15451}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref #{p 15451}# 1)) #f)) (if (#{bound-id-member? 4438}# #{p 15451}# #{keys 15445}#) (values (vector 'free-id #{p 15451}#) #{ids 15453}#) (if (#{free-id=? 4434}# #{p 15451}# '#(syntax-object _ ((top) #(ribcage () () ()) #(ribcage #(p n ids) #((top) (top) (top)) #("i3850" "i3851" "i3852")) #(ribcage (cvt v-reverse cvt*) ((top) (top) (top)) ("i3823" "i3821" "i3819")) #(ribcage #(pattern keys) #((top) (top)) #("i3817" "i3818")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) ("i3813" "i3811" "i3809" "i3807")) #(ribcage (lambda-var-list gen-var strip chi-lambda-case lambda*-formals chi-simple-lambda lambda-formals ellipsis? chi-void eval-local-transformer chi-local-syntax chi-body chi-macro chi-call chi-expr chi syntax-type chi-when-list chi-install-global chi-top-sequence chi-sequence source-wrap wrap bound-id-member? distinct-bound-ids? valid-bound-ids? bound-id=? free-id=? resolve-identifier 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 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-primcall 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-call 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-seq make-primcall make-call 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) (top) (top)) ("i471" "i469" "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" "i400" "i398" "i395" "i394" "i393" "i391" "i390" "i388" "i386" "i384" "i382" "i380" "i378" "i376" "i374" "i371" "i369" "i368" "i366" "i364" "i362" "i360" "i359" "i358" "i357" "i355" "i354" "i351" "i349" "i347" "i345" "i343" "i341" "i340" "i339" "i337" "i335" "i334" "i331" "i330" "i328" "i326" "i324" "i322" "i320" "i318" "i316" "i314" "i312" "i309" "i307" "i305" "i303" "i301" "i299" "i297" "i295" "i293" "i291" "i289" "i287" "i285" "i283" "i281" "i279" "i277" "i275" "i273" "i271" "i269" "i267" "i265" "i263" "i262" "i259" "i257" "i256" "i255" "i254" "i253" "i251" "i249" "i247" "i244" "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")) #(ribcage () () ())) (hygiene guile))) (values '_ #{ids 15453}#) (values 'any (cons (cons #{p 15451}# #{n 15452}#) #{ids 15453}#)))) (let ((#{tmp 15585}# ($sc-dispatch #{p 15451}# '(any any)))) (if (if #{tmp 15585}# (@apply (lambda (#{x 15589}# #{dots 15590}#) (if (if (if (vector? #{dots 15590}#) (if (= (vector-length #{dots 15590}#) 4) (eq? (vector-ref #{dots 15590}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref #{dots 15590}# 1)) #f) (#{free-id=? 4434}# #{dots 15590}# '#(syntax-object ... ((top) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i2341")) #(ribcage (lambda-var-list gen-var strip chi-lambda-case lambda*-formals chi-simple-lambda lambda-formals ellipsis? chi-void eval-local-transformer chi-local-syntax chi-body chi-macro chi-call chi-expr chi syntax-type chi-when-list chi-install-global chi-top-sequence chi-sequence source-wrap wrap bound-id-member? distinct-bound-ids? valid-bound-ids? bound-id=? free-id=? resolve-identifier 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 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-primcall 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-call 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-seq make-primcall make-call 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) (top) (top)) ("i471" "i469" "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" "i400" "i398" "i395" "i394" "i393" "i391" "i390" "i388" "i386" "i384" "i382" "i380" "i378" "i376" "i374" "i371" "i369" "i368" "i366" "i364" "i362" "i360" "i359" "i358" "i357" "i355" "i354" "i351" "i349" "i347" "i345" "i343" "i341" "i340" "i339" "i337" "i335" "i334" "i331" "i330" "i328" "i326" "i324" "i322" "i320" "i318" "i316" "i314" "i312" "i309" "i307" "i305" "i303" "i301" "i299" "i297" "i295" "i293" "i291" "i289" "i287" "i285" "i283" "i281" "i279" "i277" "i275" "i273" "i271" "i269" "i267" "i265" "i263" "i262" "i259" "i257" "i256" "i255" "i254" "i253" "i251" "i249" "i247" "i244" "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")) #(ribcage () () ())) (hygiene guile))) #f)) #{tmp 15585}#) #f) (@apply (lambda (#{x 15629}# #{dots 15630}#) (call-with-values (lambda () (#{cvt 15448}# #{x 15629}# (#{1+}# #{n 15452}#) #{ids 15453}#)) (lambda (#{p 15631}# #{ids 15632}#) (values (if (eq? #{p 15631}# 'any) 'each-any (vector 'each #{p 15631}#)) #{ids 15632}#)))) #{tmp 15585}#) (let ((#{tmp 15633}# ($sc-dispatch #{p 15451}# '(any any . any)))) (if (if #{tmp 15633}# (@apply (lambda (#{x 15637}# #{dots 15638}# #{ys 15639}#) (if (if (if (vector? #{dots 15638}#) (if (= (vector-length #{dots 15638}#) 4) (eq? (vector-ref #{dots 15638}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref #{dots 15638}# 1)) #f) (#{free-id=? 4434}# #{dots 15638}# '#(syntax-object ... ((top) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i2341")) #(ribcage (lambda-var-list gen-var strip chi-lambda-case lambda*-formals chi-simple-lambda lambda-formals ellipsis? chi-void eval-local-transformer chi-local-syntax chi-body chi-macro chi-call chi-expr chi syntax-type chi-when-list chi-install-global chi-top-sequence chi-sequence source-wrap wrap bound-id-member? distinct-bound-ids? valid-bound-ids? bound-id=? free-id=? resolve-identifier 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 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-primcall 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-call 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-seq make-primcall make-call 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) (top) (top)) ("i471" "i469" "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" "i400" "i398" "i395" "i394" "i393" "i391" "i390" "i388" "i386" "i384" "i382" "i380" "i378" "i376" "i374" "i371" "i369" "i368" "i366" "i364" "i362" "i360" "i359" "i358" "i357" "i355" "i354" "i351" "i349" "i347" "i345" "i343" "i341" "i340" "i339" "i337" "i335" "i334" "i331" "i330" "i328" "i326" "i324" "i322" "i320" "i318" "i316" "i314" "i312" "i309" "i307" "i305" "i303" "i301" "i299" "i297" "i295" "i293" "i291" "i289" "i287" "i285" "i283" "i281" "i279" "i277" "i275" "i273" "i271" "i269" "i267" "i265" "i263" "i262" "i259" "i257" "i256" "i255" "i254" "i253" "i251" "i249" "i247" "i244" "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")) #(ribcage () () ())) (hygiene guile))) #f)) #{tmp 15633}#) #f) (@apply (lambda (#{x 15678}# #{dots 15679}# #{ys 15680}#) (call-with-values (lambda () (#{cvt* 15446}# #{ys 15680}# #{n 15452}# #{ids 15453}#)) (lambda (#{ys 16165}# #{ids 16166}#) (call-with-values (lambda () (#{cvt 15448}# #{x 15678}# (#{1+}# #{n 15452}#) #{ids 16166}#)) (lambda (#{x 16167}# #{ids 16168}#) (call-with-values (lambda () (#{v-reverse 15447}# #{ys 16165}#)) (lambda (#{ys 16204}# #{e 16205}#) (values (vector 'each+ #{x 16167}# #{ys 16204}# #{e 16205}#) #{ids 16168}#)))))))) #{tmp 15633}#) (let ((#{tmp 16206}# ($sc-dispatch #{p 15451}# '(any . any)))) (if #{tmp 16206}# (@apply (lambda (#{x 16210}# #{y 16211}#) (call-with-values (lambda () (#{cvt 15448}# #{y 16211}# #{n 15452}# #{ids 15453}#)) (lambda (#{y 16212}# #{ids 16213}#) (call-with-values (lambda () (#{cvt 15448}# #{x 16210}# #{n 15452}# #{ids 16213}#)) (lambda (#{x 16214}# #{ids 16215}#) (values (cons #{x 16214}# #{y 16212}#) #{ids 16215}#)))))) #{tmp 16206}#) (let ((#{tmp 16216}# ($sc-dispatch #{p 15451}# '()))) (if #{tmp 16216}# (@apply (lambda () (values '() #{ids 15453}#)) #{tmp 16216}#) (let ((#{tmp 16220}# ($sc-dispatch #{p 15451}# '#(vector each-any)))) (if #{tmp 16220}# (@apply (lambda (#{x 16224}#) (call-with-values (lambda () (#{cvt 15448}# #{x 16224}# #{n 15452}# #{ids 15453}#)) (lambda (#{p 16225}# #{ids 16226}#) (values (vector 'vector #{p 16225}#) #{ids 16226}#)))) #{tmp 16220}#) (values (vector 'atom (#{strip 4459}# #{p 15451}# '(()))) #{ids 15453}#))))))))))))))) (#{cvt 15448}# #{pattern 15444}# 0 '())))) (#{build-dispatch-call 13789}# (lambda (#{pvars 16360}# #{exp 16361}# #{y 16362}# #{r 16363}# #{mod 16364}#) (let ((#{ids 16365}# (map car #{pvars 16360}#))) (begin (map cdr #{pvars 16360}#) (let ((#{labels 16367}# (#{gen-labels 4416}# #{ids 16365}#)) (#{new-vars 16368}# (map #{gen-var 4460}# #{ids 16365}#))) (#{build-primcall 4392}# #f 'apply (list (#{build-simple-lambda 4389}# #f (map syntax->datum #{ids 16365}#) #f #{new-vars 16368}# '() (#{chi 4446}# #{exp 16361}# (#{extend-env 4408}# #{labels 16367}# (map (lambda (#{var 16700}# #{level 16701}#) (cons 'syntax (cons #{var 16700}# #{level 16701}#))) #{new-vars 16368}# (map cdr #{pvars 16360}#)) #{r 16363}#) (#{make-binding-wrap 4427}# #{ids 16365}# #{labels 16367}# '(())) #{mod 16364}#)) #{y 16362}#))))))) (#{gen-clause 13790}# (lambda (#{x 15038}# #{keys 15039}# #{clauses 15040}# #{r 15041}# #{pat 15042}# #{fender 15043}# #{exp 15044}# #{mod 15045}#) (call-with-values (lambda () (#{convert-pattern 13788}# #{pat 15042}# #{keys 15039}#)) (lambda (#{p 15183}# #{pvars 15184}#) (if (not (#{distinct-bound-ids? 4437}# (map car #{pvars 15184}#))) (syntax-violation 'syntax-case "duplicate pattern variable" #{pat 15042}#) (if (not (and-map (lambda (#{x 15293}#) (not (let ((#{x 15297}# (car #{x 15293}#))) (if (if (if (vector? #{x 15297}#) (if (= (vector-length #{x 15297}#) 4) (eq? (vector-ref #{x 15297}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref #{x 15297}# 1)) #f) (#{free-id=? 4434}# #{x 15297}# '#(syntax-object ... ((top) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i2341")) #(ribcage (lambda-var-list gen-var strip chi-lambda-case lambda*-formals chi-simple-lambda lambda-formals ellipsis? chi-void eval-local-transformer chi-local-syntax chi-body chi-macro chi-call chi-expr chi syntax-type chi-when-list chi-install-global chi-top-sequence chi-sequence source-wrap wrap bound-id-member? distinct-bound-ids? valid-bound-ids? bound-id=? free-id=? resolve-identifier 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 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-primcall 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-call 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-seq make-primcall make-call 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) (top) (top)) ("i471" "i469" "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" "i400" "i398" "i395" "i394" "i393" "i391" "i390" "i388" "i386" "i384" "i382" "i380" "i378" "i376" "i374" "i371" "i369" "i368" "i366" "i364" "i362" "i360" "i359" "i358" "i357" "i355" "i354" "i351" "i349" "i347" "i345" "i343" "i341" "i340" "i339" "i337" "i335" "i334" "i331" "i330" "i328" "i326" "i324" "i322" "i320" "i318" "i316" "i314" "i312" "i309" "i307" "i305" "i303" "i301" "i299" "i297" "i295" "i293" "i291" "i289" "i287" "i285" "i283" "i281" "i279" "i277" "i275" "i273" "i271" "i269" "i267" "i265" "i263" "i262" "i259" "i257" "i256" "i255" "i254" "i253" "i251" "i249" "i247" "i244" "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")) #(ribcage () () ())) (hygiene guile))) #f)))) #{pvars 15184}#)) (syntax-violation 'syntax-case "misplaced ellipsis" #{pat 15042}#) (let ((#{y 15322}# (gensym (string-append (symbol->string 'tmp) " ")))) (let ((#{fun-exp 15327}# (let ((#{req 15336}# (list 'tmp)) (#{vars 15338}# (list #{y 15322}#)) (#{exp 15340}# (let ((#{y 15369}# (make-struct/no-tail (vector-ref %expanded-vtables 3) #f 'tmp #{y 15322}#))) (let ((#{test-exp 15373}# (let ((#{tmp 15382}# ($sc-dispatch #{fender 15043}# '#(atom #t)))) (if #{tmp 15382}# (@apply (lambda () #{y 15369}#) #{tmp 15382}#) (let ((#{then-exp 15400}# (#{build-dispatch-call 13789}# #{pvars 15184}# #{fender 15043}# #{y 15369}# #{r 15041}# #{mod 15045}#)) (#{else-exp 15401}# (make-struct/no-tail (vector-ref %expanded-vtables 1) #f #f))) (make-struct/no-tail (vector-ref %expanded-vtables 10) #f #{y 15369}# #{then-exp 15400}# #{else-exp 15401}#))))) (#{then-exp 15374}# (#{build-dispatch-call 13789}# #{pvars 15184}# #{exp 15044}# #{y 15369}# #{r 15041}# #{mod 15045}#)) (#{else-exp 15375}# (#{gen-syntax-case 13791}# #{x 15038}# #{keys 15039}# #{clauses 15040}# #{r 15041}# #{mod 15045}#))) (make-struct/no-tail (vector-ref %expanded-vtables 10) #f #{test-exp 15373}# #{then-exp 15374}# #{else-exp 15375}#))))) (let ((#{body 15345}# (make-struct/no-tail (vector-ref %expanded-vtables 15) #f #{req 15336}# #f #f #f '() #{vars 15338}# #{exp 15340}# #f))) (make-struct/no-tail (vector-ref %expanded-vtables 14) #f '() #{body 15345}#)))) (#{arg-exps 15328}# (list (if (eq? #{p 15183}# 'any) (let ((#{args 15423}# (list #{x 15038}#))) (make-struct/no-tail (vector-ref %expanded-vtables 12) #f 'list #{args 15423}#)) (let ((#{args 15432}# (list #{x 15038}# (make-struct/no-tail (vector-ref %expanded-vtables 1) #f #{p 15183}#)))) (make-struct/no-tail (vector-ref %expanded-vtables 12) #f '$sc-dispatch #{args 15432}#)))))) (make-struct/no-tail (vector-ref %expanded-vtables 11) #f #{fun-exp 15327}# #{arg-exps 15328}#))))))))) (#{gen-syntax-case 13791}# (lambda (#{x 14535}# #{keys 14536}# #{clauses 14537}# #{r 14538}# #{mod 14539}#) (if (null? #{clauses 14537}#) (let ((#{args 14545}# (list (make-struct/no-tail (vector-ref %expanded-vtables 1) #f #f) (make-struct/no-tail (vector-ref %expanded-vtables 1) #f "source expression failed to match any pattern") #{x 14535}#))) (make-struct/no-tail (vector-ref %expanded-vtables 12) #f 'syntax-violation #{args 14545}#)) (let ((#{tmp 14564}# (car #{clauses 14537}#))) (let ((#{tmp 14565}# ($sc-dispatch #{tmp 14564}# '(any any)))) (if #{tmp 14565}# (@apply (lambda (#{pat 14567}# #{exp 14568}#) (if (if (if (symbol? #{pat 14567}#) #t (if (if (vector? #{pat 14567}#) (if (= (vector-length #{pat 14567}#) 4) (eq? (vector-ref #{pat 14567}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref #{pat 14567}# 1)) #f)) (and-map (lambda (#{x 14595}#) (not (#{free-id=? 4434}# #{pat 14567}# #{x 14595}#))) (cons '#(syntax-object ... ((top) #(ribcage #(pat exp) #((top) (top)) #("i4010" "i4011")) #(ribcage () () ()) #(ribcage #(x keys clauses r mod) #((top) (top) (top) (top) (top)) #("i4000" "i4001" "i4002" "i4003" "i4004")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) ("i3813" "i3811" "i3809" "i3807")) #(ribcage (lambda-var-list gen-var strip chi-lambda-case lambda*-formals chi-simple-lambda lambda-formals ellipsis? chi-void eval-local-transformer chi-local-syntax chi-body chi-macro chi-call chi-expr chi syntax-type chi-when-list chi-install-global chi-top-sequence chi-sequence source-wrap wrap bound-id-member? distinct-bound-ids? valid-bound-ids? bound-id=? free-id=? resolve-identifier 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 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-primcall 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-call 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-seq make-primcall make-call 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) (top) (top)) ("i471" "i469" "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" "i400" "i398" "i395" "i394" "i393" "i391" "i390" "i388" "i386" "i384" "i382" "i380" "i378" "i376" "i374" "i371" "i369" "i368" "i366" "i364" "i362" "i360" "i359" "i358" "i357" "i355" "i354" "i351" "i349" "i347" "i345" "i343" "i341" "i340" "i339" "i337" "i335" "i334" "i331" "i330" "i328" "i326" "i324" "i322" "i320" "i318" "i316" "i314" "i312" "i309" "i307" "i305" "i303" "i301" "i299" "i297" "i295" "i293" "i291" "i289" "i287" "i285" "i283" "i281" "i279" "i277" "i275" "i273" "i271" "i269" "i267" "i265" "i263" "i262" "i259" "i257" "i256" "i255" "i254" "i253" "i251" "i249" "i247" "i244" "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")) #(ribcage () () ())) (hygiene guile)) #{keys 14536}#)) #f) (if (#{free-id=? 4434}# '#(syntax-object pad ((top) #(ribcage #(pat exp) #((top) (top)) #("i4010" "i4011")) #(ribcage () () ()) #(ribcage #(x keys clauses r mod) #((top) (top) (top) (top) (top)) #("i4000" "i4001" "i4002" "i4003" "i4004")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) ("i3813" "i3811" "i3809" "i3807")) #(ribcage (lambda-var-list gen-var strip chi-lambda-case lambda*-formals chi-simple-lambda lambda-formals ellipsis? chi-void eval-local-transformer chi-local-syntax chi-body chi-macro chi-call chi-expr chi syntax-type chi-when-list chi-install-global chi-top-sequence chi-sequence source-wrap wrap bound-id-member? distinct-bound-ids? valid-bound-ids? bound-id=? free-id=? resolve-identifier 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 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-primcall 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-call 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-seq make-primcall make-call 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) (top) (top)) ("i471" "i469" "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" "i400" "i398" "i395" "i394" "i393" "i391" "i390" "i388" "i386" "i384" "i382" "i380" "i378" "i376" "i374" "i371" "i369" "i368" "i366" "i364" "i362" "i360" "i359" "i358" "i357" "i355" "i354" "i351" "i349" "i347" "i345" "i343" "i341" "i340" "i339" "i337" "i335" "i334" "i331" "i330" "i328" "i326" "i324" "i322" "i320" "i318" "i316" "i314" "i312" "i309" "i307" "i305" "i303" "i301" "i299" "i297" "i295" "i293" "i291" "i289" "i287" "i285" "i283" "i281" "i279" "i277" "i275" "i273" "i271" "i269" "i267" "i265" "i263" "i262" "i259" "i257" "i256" "i255" "i254" "i253" "i251" "i249" "i247" "i244" "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")) #(ribcage () () ())) (hygiene guile)) '#(syntax-object _ ((top) #(ribcage #(pat exp) #((top) (top)) #("i4010" "i4011")) #(ribcage () () ()) #(ribcage #(x keys clauses r mod) #((top) (top) (top) (top) (top)) #("i4000" "i4001" "i4002" "i4003" "i4004")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) ("i3813" "i3811" "i3809" "i3807")) #(ribcage (lambda-var-list gen-var strip chi-lambda-case lambda*-formals chi-simple-lambda lambda-formals ellipsis? chi-void eval-local-transformer chi-local-syntax chi-body chi-macro chi-call chi-expr chi syntax-type chi-when-list chi-install-global chi-top-sequence chi-sequence source-wrap wrap bound-id-member? distinct-bound-ids? valid-bound-ids? bound-id=? free-id=? resolve-identifier 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 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-primcall 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-call 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-seq make-primcall make-call 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) (top) (top)) ("i471" "i469" "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" "i400" "i398" "i395" "i394" "i393" "i391" "i390" "i388" "i386" "i384" "i382" "i380" "i378" "i376" "i374" "i371" "i369" "i368" "i366" "i364" "i362" "i360" "i359" "i358" "i357" "i355" "i354" "i351" "i349" "i347" "i345" "i343" "i341" "i340" "i339" "i337" "i335" "i334" "i331" "i330" "i328" "i326" "i324" "i322" "i320" "i318" "i316" "i314" "i312" "i309" "i307" "i305" "i303" "i301" "i299" "i297" "i295" "i293" "i291" "i289" "i287" "i285" "i283" "i281" "i279" "i277" "i275" "i273" "i271" "i269" "i267" "i265" "i263" "i262" "i259" "i257" "i256" "i255" "i254" "i253" "i251" "i249" "i247" "i244" "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")) #(ribcage () () ())) (hygiene guile))) (#{chi 4446}# #{exp 14568}# #{r 14538}# '(()) #{mod 14539}#) (let ((#{labels 14681}# (list (symbol->string (gensym "i")))) (#{var 14682}# (let ((#{id 14720}# (if (if (vector? #{pat 14567}#) (if (= (vector-length #{pat 14567}#) 4) (eq? (vector-ref #{pat 14567}# 0) 'syntax-object) #f) #f) (vector-ref #{pat 14567}# 1) #{pat 14567}#))) (gensym (string-append (symbol->string #{id 14720}#) " "))))) (#{build-call 4380}# #f (#{build-simple-lambda 4389}# #f (list (syntax->datum #{pat 14567}#)) #f (list #{var 14682}#) '() (#{chi 4446}# #{exp 14568}# (#{extend-env 4408}# #{labels 14681}# (list (cons 'syntax (cons #{var 14682}# 0))) #{r 14538}#) (#{make-binding-wrap 4427}# (list #{pat 14567}#) #{labels 14681}# '(())) #{mod 14539}#)) (list #{x 14535}#)))) (#{gen-clause 13790}# #{x 14535}# #{keys 14536}# (cdr #{clauses 14537}#) #{r 14538}# #{pat 14567}# #t #{exp 14568}# #{mod 14539}#))) #{tmp 14565}#) (let ((#{tmp 15030}# ($sc-dispatch #{tmp 14564}# '(any any any)))) (if #{tmp 15030}# (@apply (lambda (#{pat 15032}# #{fender 15033}# #{exp 15034}#) (#{gen-clause 13790}# #{x 14535}# #{keys 14536}# (cdr #{clauses 14537}#) #{r 14538}# #{pat 15032}# #{fender 15033}# #{exp 15034}# #{mod 14539}#)) #{tmp 15030}#) (syntax-violation 'syntax-case "invalid clause" (car #{clauses 14537}#))))))))))) (lambda (#{e 13792}# #{r 13793}# #{w 13794}# #{s 13795}# #{mod 13796}#) (let ((#{e 13797}# (let ((#{x 14446}# (begin (if (if (pair? #{e 13792}#) #{s 13795}# #f) (set-source-properties! #{e 13792}# #{s 13795}#)) #{e 13792}#))) (if (if (null? (car #{w 13794}#)) (null? (cdr #{w 13794}#)) #f) #{x 14446}# (if (if (vector? #{x 14446}#) (if (= (vector-length #{x 14446}#) 4) (eq? (vector-ref #{x 14446}# 0) 'syntax-object) #f) #f) (let ((#{expression 14478}# (vector-ref #{x 14446}# 1)) (#{wrap 14479}# (let ((#{w2 14487}# (vector-ref #{x 14446}# 2))) (let ((#{m1 14488}# (car #{w 13794}#)) (#{s1 14489}# (cdr #{w 13794}#))) (if (null? #{m1 14488}#) (if (null? #{s1 14489}#) #{w2 14487}# (cons (car #{w2 14487}#) (let ((#{m2 14504}# (cdr #{w2 14487}#))) (if (null? #{m2 14504}#) #{s1 14489}# (append #{s1 14489}# #{m2 14504}#))))) (cons (let ((#{m2 14512}# (car #{w2 14487}#))) (if (null? #{m2 14512}#) #{m1 14488}# (append #{m1 14488}# #{m2 14512}#))) (let ((#{m2 14520}# (cdr #{w2 14487}#))) (if (null? #{m2 14520}#) #{s1 14489}# (append #{s1 14489}# #{m2 14520}#)))))))) (#{module 14480}# (vector-ref #{x 14446}# 3))) (vector 'syntax-object #{expression 14478}# #{wrap 14479}# #{module 14480}#)) (if (null? #{x 14446}#) #{x 14446}# (vector 'syntax-object #{x 14446}# #{w 13794}# #{mod 13796}#))))))) (let ((#{tmp 13798}# #{e 13797}#)) (let ((#{tmp 13799}# ($sc-dispatch #{tmp 13798}# '(_ any each-any . each-any)))) (if #{tmp 13799}# (@apply (lambda (#{val 13851}# #{key 13852}# #{m 13853}#) (if (and-map (lambda (#{x 13854}#) (if (if (symbol? #{x 13854}#) #t (if (if (vector? #{x 13854}#) (if (= (vector-length #{x 13854}#) 4) (eq? (vector-ref #{x 13854}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref #{x 13854}# 1)) #f)) (not (if (if (if (vector? #{x 13854}#) (if (= (vector-length #{x 13854}#) 4) (eq? (vector-ref #{x 13854}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref #{x 13854}# 1)) #f) (#{free-id=? 4434}# #{x 13854}# '#(syntax-object ... ((top) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i2341")) #(ribcage (lambda-var-list gen-var strip chi-lambda-case lambda*-formals chi-simple-lambda lambda-formals ellipsis? chi-void eval-local-transformer chi-local-syntax chi-body chi-macro chi-call chi-expr chi syntax-type chi-when-list chi-install-global chi-top-sequence chi-sequence source-wrap wrap bound-id-member? distinct-bound-ids? valid-bound-ids? bound-id=? free-id=? resolve-identifier 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 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-primcall 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-call 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-seq make-primcall make-call 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) (top) (top)) ("i471" "i469" "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" "i400" "i398" "i395" "i394" "i393" "i391" "i390" "i388" "i386" "i384" "i382" "i380" "i378" "i376" "i374" "i371" "i369" "i368" "i366" "i364" "i362" "i360" "i359" "i358" "i357" "i355" "i354" "i351" "i349" "i347" "i345" "i343" "i341" "i340" "i339" "i337" "i335" "i334" "i331" "i330" "i328" "i326" "i324" "i322" "i320" "i318" "i316" "i314" "i312" "i309" "i307" "i305" "i303" "i301" "i299" "i297" "i295" "i293" "i291" "i289" "i287" "i285" "i283" "i281" "i279" "i277" "i275" "i273" "i271" "i269" "i267" "i265" "i263" "i262" "i259" "i257" "i256" "i255" "i254" "i253" "i251" "i249" "i247" "i244" "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")) #(ribcage () () ())) (hygiene guile))) #f)) #f)) #{key 13852}#) (let ((#{x 13919}# (gensym (string-append (symbol->string 'tmp) " ")))) (#{build-call 4380}# #{s 13795}# (let ((#{req 14061}# (list 'tmp)) (#{vars 14063}# (list #{x 13919}#)) (#{exp 14065}# (#{gen-syntax-case 13791}# (make-struct/no-tail (vector-ref %expanded-vtables 3) #f 'tmp #{x 13919}#) #{key 13852}# #{m 13853}# #{r 13793}# #{mod 13796}#))) (let ((#{body 14070}# (make-struct/no-tail (vector-ref %expanded-vtables 15) #f #{req 14061}# #f #f #f '() #{vars 14063}# #{exp 14065}# #f))) (make-struct/no-tail (vector-ref %expanded-vtables 14) #f '() #{body 14070}#))) (list (#{chi 4446}# #{val 13851}# #{r 13793}# '(()) #{mod 13796}#)))) (syntax-violation 'syntax-case "invalid literals list" #{e 13797}#))) #{tmp 13799}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp 13798}#)))))))) (set! macroexpand (lambda* (#{x 16802}# #:optional (#{m 16803}# 'e) (#{esew 16804}# '(eval))) (#{chi-top-sequence 4442}# (list #{x 16802}#) '() '((top)) #f #{m 16803}# #{esew 16804}# (cons 'hygiene (module-name (current-module)))))) (set! identifier? (lambda (#{x 16807}#) (if (if (vector? #{x 16807}#) (if (= (vector-length #{x 16807}#) 4) (eq? (vector-ref #{x 16807}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref #{x 16807}# 1)) #f))) (set! datum->syntax (lambda (#{id 16832}# #{datum 16833}#) (let ((#{wrap 16838}# (vector-ref #{id 16832}# 2)) (#{module 16839}# (vector-ref #{id 16832}# 3))) (vector 'syntax-object #{datum 16833}# #{wrap 16838}# #{module 16839}#)))) (set! syntax->datum (lambda (#{x 16846}#) (#{strip 4459}# #{x 16846}# '(())))) (set! syntax-source (lambda (#{x 16849}#) (#{source-annotation 4407}# #{x 16849}#))) (set! generate-temporaries (lambda (#{ls 17051}#) (begin (if (not (list? #{ls 17051}#)) (syntax-violation 'generate-temporaries "invalid argument" #{ls 17051}#)) (let ((#{mod 17059}# (cons 'hygiene (module-name (current-module))))) (map (lambda (#{x 17060}#) (let ((#{x 17064}# (gensym))) (if (if (vector? #{x 17064}#) (if (= (vector-length #{x 17064}#) 4) (eq? (vector-ref #{x 17064}# 0) 'syntax-object) #f) #f) (let ((#{expression 17079}# (vector-ref #{x 17064}# 1)) (#{wrap 17080}# (let ((#{w2 17088}# (vector-ref #{x 17064}# 2))) (cons (let ((#{m2 17095}# (car #{w2 17088}#))) (if (null? #{m2 17095}#) '(top) (append '(top) #{m2 17095}#))) (let ((#{m2 17102}# (cdr #{w2 17088}#))) (if (null? #{m2 17102}#) '() (append '() #{m2 17102}#)))))) (#{module 17081}# (vector-ref #{x 17064}# 3))) (vector 'syntax-object #{expression 17079}# #{wrap 17080}# #{module 17081}#)) (if (null? #{x 17064}#) #{x 17064}# (vector 'syntax-object #{x 17064}# '((top)) #{mod 17059}#))))) #{ls 17051}#))))) (set! free-identifier=? (lambda (#{x 17111}# #{y 17112}#) (begin (if (not (if (if (vector? #{x 17111}#) (if (= (vector-length #{x 17111}#) 4) (eq? (vector-ref #{x 17111}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref #{x 17111}# 1)) #f)) (syntax-violation 'free-identifier=? "invalid argument" #{x 17111}#)) (if (not (if (if (vector? #{y 17112}#) (if (= (vector-length #{y 17112}#) 4) (eq? (vector-ref #{y 17112}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref #{y 17112}# 1)) #f)) (syntax-violation 'free-identifier=? "invalid argument" #{y 17112}#)) (#{free-id=? 4434}# #{x 17111}# #{y 17112}#)))) (set! bound-identifier=? (lambda (#{x 17187}# #{y 17188}#) (begin (if (not (if (if (vector? #{x 17187}#) (if (= (vector-length #{x 17187}#) 4) (eq? (vector-ref #{x 17187}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref #{x 17187}# 1)) #f)) (syntax-violation 'bound-identifier=? "invalid argument" #{x 17187}#)) (if (not (if (if (vector? #{y 17188}#) (if (= (vector-length #{y 17188}#) 4) (eq? (vector-ref #{y 17188}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref #{y 17188}# 1)) #f)) (syntax-violation 'bound-identifier=? "invalid argument" #{y 17188}#)) (#{bound-id=? 4435}# #{x 17187}# #{y 17188}#)))) (set! syntax-violation (lambda* (#{who 17354}# #{message 17355}# #{form 17356}# #:optional (#{subform 17357}# #f)) (begin (if (not (if (not #{who 17354}#) (not #{who 17354}#) (let ((#{t 17375}# (string? #{who 17354}#))) (if #{t 17375}# #{t 17375}# (symbol? #{who 17354}#))))) (syntax-violation 'syntax-violation "invalid argument" #{who 17354}#)) (if (not (string? #{message 17355}#)) (syntax-violation 'syntax-violation "invalid argument" #{message 17355}#)) (throw 'syntax-error #{who 17354}# #{message 17355}# (#{source-annotation 4407}# (if #{form 17356}# #{form 17356}# #{subform 17357}#)) (#{strip 4459}# #{form 17356}# '(())) (if #{subform 17357}# (#{strip 4459}# #{subform 17357}# '(())) #f))))) (letrec* ((#{match-each 17626}# (lambda (#{e 18514}# #{p 18515}# #{w 18516}# #{mod 18517}#) (if (pair? #{e 18514}#) (let ((#{first 18518}# (#{match 17632}# (car #{e 18514}#) #{p 18515}# #{w 18516}# '() #{mod 18517}#))) (if #{first 18518}# (let ((#{rest 18521}# (#{match-each 17626}# (cdr #{e 18514}#) #{p 18515}# #{w 18516}# #{mod 18517}#))) (if #{rest 18521}# (cons #{first 18518}# #{rest 18521}#) #f)) #f)) (if (null? #{e 18514}#) '() (if (if (vector? #{e 18514}#) (if (= (vector-length #{e 18514}#) 4) (eq? (vector-ref #{e 18514}# 0) 'syntax-object) #f) #f) (#{match-each 17626}# (vector-ref #{e 18514}# 1) #{p 18515}# (let ((#{w2 18543}# (vector-ref #{e 18514}# 2))) (let ((#{m1 18544}# (car #{w 18516}#)) (#{s1 18545}# (cdr #{w 18516}#))) (if (null? #{m1 18544}#) (if (null? #{s1 18545}#) #{w2 18543}# (cons (car #{w2 18543}#) (let ((#{m2 18556}# (cdr #{w2 18543}#))) (if (null? #{m2 18556}#) #{s1 18545}# (append #{s1 18545}# #{m2 18556}#))))) (cons (let ((#{m2 18564}# (car #{w2 18543}#))) (if (null? #{m2 18564}#) #{m1 18544}# (append #{m1 18544}# #{m2 18564}#))) (let ((#{m2 18572}# (cdr #{w2 18543}#))) (if (null? #{m2 18572}#) #{s1 18545}# (append #{s1 18545}# #{m2 18572}#))))))) (vector-ref #{e 18514}# 3)) #f))))) (#{match-each-any 17628}# (lambda (#{e 18581}# #{w 18582}# #{mod 18583}#) (if (pair? #{e 18581}#) (let ((#{l 18584}# (#{match-each-any 17628}# (cdr #{e 18581}#) #{w 18582}# #{mod 18583}#))) (if #{l 18584}# (cons (let ((#{x 18589}# (car #{e 18581}#))) (if (if (null? (car #{w 18582}#)) (null? (cdr #{w 18582}#)) #f) #{x 18589}# (if (if (vector? #{x 18589}#) (if (= (vector-length #{x 18589}#) 4) (eq? (vector-ref #{x 18589}# 0) 'syntax-object) #f) #f) (let ((#{expression 18607}# (vector-ref #{x 18589}# 1)) (#{wrap 18608}# (let ((#{w2 18616}# (vector-ref #{x 18589}# 2))) (let ((#{m1 18617}# (car #{w 18582}#)) (#{s1 18618}# (cdr #{w 18582}#))) (if (null? #{m1 18617}#) (if (null? #{s1 18618}#) #{w2 18616}# (cons (car #{w2 18616}#) (let ((#{m2 18633}# (cdr #{w2 18616}#))) (if (null? #{m2 18633}#) #{s1 18618}# (append #{s1 18618}# #{m2 18633}#))))) (cons (let ((#{m2 18641}# (car #{w2 18616}#))) (if (null? #{m2 18641}#) #{m1 18617}# (append #{m1 18617}# #{m2 18641}#))) (let ((#{m2 18649}# (cdr #{w2 18616}#))) (if (null? #{m2 18649}#) #{s1 18618}# (append #{s1 18618}# #{m2 18649}#)))))))) (#{module 18609}# (vector-ref #{x 18589}# 3))) (vector 'syntax-object #{expression 18607}# #{wrap 18608}# #{module 18609}#)) (if (null? #{x 18589}#) #{x 18589}# (vector 'syntax-object #{x 18589}# #{w 18582}# #{mod 18583}#))))) #{l 18584}#) #f)) (if (null? #{e 18581}#) '() (if (if (vector? #{e 18581}#) (if (= (vector-length #{e 18581}#) 4) (eq? (vector-ref #{e 18581}# 0) 'syntax-object) #f) #f) (#{match-each-any 17628}# (vector-ref #{e 18581}# 1) (let ((#{w2 18682}# (vector-ref #{e 18581}# 2))) (let ((#{m1 18683}# (car #{w 18582}#)) (#{s1 18684}# (cdr #{w 18582}#))) (if (null? #{m1 18683}#) (if (null? #{s1 18684}#) #{w2 18682}# (cons (car #{w2 18682}#) (let ((#{m2 18695}# (cdr #{w2 18682}#))) (if (null? #{m2 18695}#) #{s1 18684}# (append #{s1 18684}# #{m2 18695}#))))) (cons (let ((#{m2 18703}# (car #{w2 18682}#))) (if (null? #{m2 18703}#) #{m1 18683}# (append #{m1 18683}# #{m2 18703}#))) (let ((#{m2 18711}# (cdr #{w2 18682}#))) (if (null? #{m2 18711}#) #{s1 18684}# (append #{s1 18684}# #{m2 18711}#))))))) #{mod 18583}#) #f))))) (#{match-empty 17629}# (lambda (#{p 18716}# #{r 18717}#) (if (null? #{p 18716}#) #{r 18717}# (if (eq? #{p 18716}# '_) #{r 18717}# (if (eq? #{p 18716}# 'any) (cons '() #{r 18717}#) (if (pair? #{p 18716}#) (#{match-empty 17629}# (car #{p 18716}#) (#{match-empty 17629}# (cdr #{p 18716}#) #{r 18717}#)) (if (eq? #{p 18716}# 'each-any) (cons '() #{r 18717}#) (let ((#{atom-key 18718}# (vector-ref #{p 18716}# 0))) (if (eqv? #{atom-key 18718}# 'each) (#{match-empty 17629}# (vector-ref #{p 18716}# 1) #{r 18717}#) (if (eqv? #{atom-key 18718}# 'each+) (#{match-empty 17629}# (vector-ref #{p 18716}# 1) (#{match-empty 17629}# (reverse (vector-ref #{p 18716}# 2)) (#{match-empty 17629}# (vector-ref #{p 18716}# 3) #{r 18717}#))) (if (if (eqv? #{atom-key 18718}# 'free-id) #t (eqv? #{atom-key 18718}# 'atom)) #{r 18717}# (if (eqv? #{atom-key 18718}# 'vector) (#{match-empty 17629}# (vector-ref #{p 18716}# 1) #{r 18717}#))))))))))))) (#{combine 17630}# (lambda (#{r* 18737}# #{r 18738}#) (if (null? (car #{r* 18737}#)) #{r 18738}# (cons (map car #{r* 18737}#) (#{combine 17630}# (map cdr #{r* 18737}#) #{r 18738}#))))) (#{match* 17631}# (lambda (#{e 17661}# #{p 17662}# #{w 17663}# #{r 17664}# #{mod 17665}#) (if (null? #{p 17662}#) (if (null? #{e 17661}#) #{r 17664}# #f) (if (pair? #{p 17662}#) (if (pair? #{e 17661}#) (#{match 17632}# (car #{e 17661}#) (car #{p 17662}#) #{w 17663}# (#{match 17632}# (cdr #{e 17661}#) (cdr #{p 17662}#) #{w 17663}# #{r 17664}# #{mod 17665}#) #{mod 17665}#) #f) (if (eq? #{p 17662}# 'each-any) (let ((#{l 17670}# (#{match-each-any 17628}# #{e 17661}# #{w 17663}# #{mod 17665}#))) (if #{l 17670}# (cons #{l 17670}# #{r 17664}#) #f)) (let ((#{atom-key 17675}# (vector-ref #{p 17662}# 0))) (if (eqv? #{atom-key 17675}# 'each) (if (null? #{e 17661}#) (#{match-empty 17629}# (vector-ref #{p 17662}# 1) #{r 17664}#) (let ((#{l 17682}# (#{match-each 17626}# #{e 17661}# (vector-ref #{p 17662}# 1) #{w 17663}# #{mod 17665}#))) (if #{l 17682}# (letrec* ((#{collect 17685}# (lambda (#{l 17746}#) (if (null? (car #{l 17746}#)) #{r 17664}# (cons (map car #{l 17746}#) (#{collect 17685}# (map cdr #{l 17746}#))))))) (#{collect 17685}# #{l 17682}#)) #f))) (if (eqv? #{atom-key 17675}# 'each+) (call-with-values (lambda () (let ((#{x-pat 17755}# (vector-ref #{p 17662}# 1)) (#{y-pat 17756}# (vector-ref #{p 17662}# 2)) (#{z-pat 17757}# (vector-ref #{p 17662}# 3))) (letrec* ((#{f 17761}# (lambda (#{e 17763}# #{w 17764}#) (if (pair? #{e 17763}#) (call-with-values (lambda () (#{f 17761}# (cdr #{e 17763}#) #{w 17764}#)) (lambda (#{xr* 17765}# #{y-pat 17766}# #{r 17767}#) (if #{r 17767}# (if (null? #{y-pat 17766}#) (let ((#{xr 17768}# (#{match 17632}# (car #{e 17763}#) #{x-pat 17755}# #{w 17764}# '() #{mod 17665}#))) (if #{xr 17768}# (values (cons #{xr 17768}# #{xr* 17765}#) #{y-pat 17766}# #{r 17767}#) (values #f #f #f))) (values '() (cdr #{y-pat 17766}#) (#{match 17632}# (car #{e 17763}#) (car #{y-pat 17766}#) #{w 17764}# #{r 17767}# #{mod 17665}#))) (values #f #f #f)))) (if (if (vector? #{e 17763}#) (if (= (vector-length #{e 17763}#) 4) (eq? (vector-ref #{e 17763}# 0) 'syntax-object) #f) #f) (#{f 17761}# (vector-ref #{e 17763}# 1) (let ((#{m1 17796}# (car #{w 17764}#)) (#{s1 17797}# (cdr #{w 17764}#))) (if (null? #{m1 17796}#) (if (null? #{s1 17797}#) #{e 17763}# (cons (car #{e 17763}#) (let ((#{m2 17809}# (cdr #{e 17763}#))) (if (null? #{m2 17809}#) #{s1 17797}# (append #{s1 17797}# #{m2 17809}#))))) (cons (let ((#{m2 17819}# (car #{e 17763}#))) (if (null? #{m2 17819}#) #{m1 17796}# (append #{m1 17796}# #{m2 17819}#))) (let ((#{m2 17829}# (cdr #{e 17763}#))) (if (null? #{m2 17829}#) #{s1 17797}# (append #{s1 17797}# #{m2 17829}#))))))) (values '() #{y-pat 17756}# (#{match 17632}# #{e 17763}# #{z-pat 17757}# #{w 17764}# #{r 17664}# #{mod 17665}#))))))) (#{f 17761}# #{e 17661}# #{w 17663}#)))) (lambda (#{xr* 17839}# #{y-pat 17840}# #{r 17841}#) (if #{r 17841}# (if (null? #{y-pat 17840}#) (if (null? #{xr* 17839}#) (#{match-empty 17629}# (vector-ref #{p 17662}# 1) #{r 17841}#) (#{combine 17630}# #{xr* 17839}# #{r 17841}#)) #f) #f))) (if (eqv? #{atom-key 17675}# 'free-id) (if (if (symbol? #{e 17661}#) #t (if (if (vector? #{e 17661}#) (if (= (vector-length #{e 17661}#) 4) (eq? (vector-ref #{e 17661}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref #{e 17661}# 1)) #f)) (if (#{free-id=? 4434}# (if (if (null? (car #{w 17663}#)) (null? (cdr #{w 17663}#)) #f) #{e 17661}# (if (if (vector? #{e 17661}#) (if (= (vector-length #{e 17661}#) 4) (eq? (vector-ref #{e 17661}# 0) 'syntax-object) #f) #f) (let ((#{expression 18272}# (vector-ref #{e 17661}# 1)) (#{wrap 18273}# (let ((#{w2 18283}# (vector-ref #{e 17661}# 2))) (let ((#{m1 18284}# (car #{w 17663}#)) (#{s1 18285}# (cdr #{w 17663}#))) (if (null? #{m1 18284}#) (if (null? #{s1 18285}#) #{w2 18283}# (cons (car #{w2 18283}#) (let ((#{m2 18302}# (cdr #{w2 18283}#))) (if (null? #{m2 18302}#) #{s1 18285}# (append #{s1 18285}# #{m2 18302}#))))) (cons (let ((#{m2 18310}# (car #{w2 18283}#))) (if (null? #{m2 18310}#) #{m1 18284}# (append #{m1 18284}# #{m2 18310}#))) (let ((#{m2 18318}# (cdr #{w2 18283}#))) (if (null? #{m2 18318}#) #{s1 18285}# (append #{s1 18285}# #{m2 18318}#)))))))) (#{module 18274}# (vector-ref #{e 17661}# 3))) (vector 'syntax-object #{expression 18272}# #{wrap 18273}# #{module 18274}#)) (if (null? #{e 17661}#) #{e 17661}# (vector 'syntax-object #{e 17661}# #{w 17663}# #{mod 17665}#)))) (vector-ref #{p 17662}# 1)) #{r 17664}# #f) #f) (if (eqv? #{atom-key 17675}# 'atom) (if (equal? (vector-ref #{p 17662}# 1) (#{strip 4459}# #{e 17661}# #{w 17663}#)) #{r 17664}# #f) (if (eqv? #{atom-key 17675}# 'vector) (if (vector? #{e 17661}#) (#{match 17632}# (vector->list #{e 17661}#) (vector-ref #{p 17662}# 1) #{w 17663}# #{r 17664}# #{mod 17665}#) #f)))))))))))) (#{match 17632}# (lambda (#{e 18351}# #{p 18352}# #{w 18353}# #{r 18354}# #{mod 18355}#) (if (not #{r 18354}#) #f (if (eq? #{p 18352}# '_) #{r 18354}# (if (eq? #{p 18352}# 'any) (cons (if (if (null? (car #{w 18353}#)) (null? (cdr #{w 18353}#)) #f) #{e 18351}# (if (if (vector? #{e 18351}#) (if (= (vector-length #{e 18351}#) 4) (eq? (vector-ref #{e 18351}# 0) 'syntax-object) #f) #f) (let ((#{expression 18385}# (vector-ref #{e 18351}# 1)) (#{wrap 18386}# (let ((#{w2 18396}# (vector-ref #{e 18351}# 2))) (let ((#{m1 18397}# (car #{w 18353}#)) (#{s1 18398}# (cdr #{w 18353}#))) (if (null? #{m1 18397}#) (if (null? #{s1 18398}#) #{w2 18396}# (cons (car #{w2 18396}#) (let ((#{m2 18415}# (cdr #{w2 18396}#))) (if (null? #{m2 18415}#) #{s1 18398}# (append #{s1 18398}# #{m2 18415}#))))) (cons (let ((#{m2 18423}# (car #{w2 18396}#))) (if (null? #{m2 18423}#) #{m1 18397}# (append #{m1 18397}# #{m2 18423}#))) (let ((#{m2 18431}# (cdr #{w2 18396}#))) (if (null? #{m2 18431}#) #{s1 18398}# (append #{s1 18398}# #{m2 18431}#)))))))) (#{module 18387}# (vector-ref #{e 18351}# 3))) (vector 'syntax-object #{expression 18385}# #{wrap 18386}# #{module 18387}#)) (if (null? #{e 18351}#) #{e 18351}# (vector 'syntax-object #{e 18351}# #{w 18353}# #{mod 18355}#)))) #{r 18354}#) (if (if (vector? #{e 18351}#) (if (= (vector-length #{e 18351}#) 4) (eq? (vector-ref #{e 18351}# 0) 'syntax-object) #f) #f) (#{match* 17631}# (vector-ref #{e 18351}# 1) #{p 18352}# (let ((#{w2 18474}# (vector-ref #{e 18351}# 2))) (let ((#{m1 18475}# (car #{w 18353}#)) (#{s1 18476}# (cdr #{w 18353}#))) (if (null? #{m1 18475}#) (if (null? #{s1 18476}#) #{w2 18474}# (cons (car #{w2 18474}#) (let ((#{m2 18487}# (cdr #{w2 18474}#))) (if (null? #{m2 18487}#) #{s1 18476}# (append #{s1 18476}# #{m2 18487}#))))) (cons (let ((#{m2 18495}# (car #{w2 18474}#))) (if (null? #{m2 18495}#) #{m1 18475}# (append #{m1 18475}# #{m2 18495}#))) (let ((#{m2 18503}# (cdr #{w2 18474}#))) (if (null? #{m2 18503}#) #{s1 18476}# (append #{s1 18476}# #{m2 18503}#))))))) #{r 18354}# (vector-ref #{e 18351}# 3)) (#{match* 17631}# #{e 18351}# #{p 18352}# #{w 18353}# #{r 18354}# #{mod 18355}#)))))))) (set! $sc-dispatch (lambda (#{e 17633}# #{p 17634}#) (if (eq? #{p 17634}# 'any) (list #{e 17633}#) (if (eq? #{p 17634}# '_) '() (if (if (vector? #{e 17633}#) (if (= (vector-length #{e 17633}#) 4) (eq? (vector-ref #{e 17633}# 0) 'syntax-object) #f) #f) (#{match* 17631}# (vector-ref #{e 17633}# 1) #{p 17634}# (vector-ref #{e 17633}# 2) '() (vector-ref #{e 17633}# 3)) (#{match* 17631}# #{e 17633}# #{p 17634}# '(()) '() #f))))))))) (define with-syntax (make-syntax-transformer 'with-syntax 'macro (lambda (#{x 36462}#) (let ((#{tmp 36464}# ($sc-dispatch #{x 36462}# '(_ () any . each-any)))) (if #{tmp 36464}# (@apply (lambda (#{e1 36468}# #{e2 36469}#) (cons '#(syntax-object let ((top) #(ribcage #(e1 e2) #((top) (top)) #("i36435" "i36436")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i36432")) #(ribcage (with-syntax) ((top)) (((hygiene guile) . #(syntax-object with-syntax ((top)) (hygiene guile)))))) (hygiene guile)) (cons '() (cons #{e1 36468}# #{e2 36469}#)))) #{tmp 36464}#) (let ((#{tmp 36470}# ($sc-dispatch #{x 36462}# '(_ ((any any)) any . each-any)))) (if #{tmp 36470}# (@apply (lambda (#{out 36474}# #{in 36475}# #{e1 36476}# #{e2 36477}#) (list '#(syntax-object syntax-case ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) #("i36441" "i36442" "i36443" "i36444")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i36432")) #(ribcage (with-syntax) ((top)) (((hygiene guile) . #(syntax-object with-syntax ((top)) (hygiene guile)))))) (hygiene guile)) #{in 36475}# '() (list #{out 36474}# (cons '#(syntax-object let ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) #("i36441" "i36442" "i36443" "i36444")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i36432")) #(ribcage (with-syntax) ((top)) (((hygiene guile) . #(syntax-object with-syntax ((top)) (hygiene guile)))))) (hygiene guile)) (cons '() (cons #{e1 36476}# #{e2 36477}#)))))) #{tmp 36470}#) (let ((#{tmp 36478}# ($sc-dispatch #{x 36462}# '(_ #(each (any any)) any . each-any)))) (if #{tmp 36478}# (@apply (lambda (#{out 36482}# #{in 36483}# #{e1 36484}# #{e2 36485}#) (list '#(syntax-object syntax-case ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) #("i36451" "i36452" "i36453" "i36454")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i36432")) #(ribcage (with-syntax) ((top)) (((hygiene guile) . #(syntax-object with-syntax ((top)) (hygiene guile)))))) (hygiene guile)) (cons '#(syntax-object list ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) #("i36451" "i36452" "i36453" "i36454")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i36432")) #(ribcage (with-syntax) ((top)) (((hygiene guile) . #(syntax-object with-syntax ((top)) (hygiene guile)))))) (hygiene guile)) #{in 36483}#) '() (list #{out 36482}# (cons '#(syntax-object let ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) #("i36451" "i36452" "i36453" "i36454")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i36432")) #(ribcage (with-syntax) ((top)) (((hygiene guile) . #(syntax-object with-syntax ((top)) (hygiene guile)))))) (hygiene guile)) (cons '() (cons #{e1 36484}# #{e2 36485}#)))))) #{tmp 36478}#) (syntax-violation #f "source expression failed to match any pattern" #{x 36462}#)))))))))) (define syntax-rules (make-syntax-transformer 'syntax-rules 'macro (lambda (#{x 36540}#) (let ((#{tmp 36542}# ($sc-dispatch #{x 36540}# '(_ each-any . #(each ((any . any) any)))))) (if #{tmp 36542}# (@apply (lambda (#{k 36546}# #{keyword 36547}# #{pattern 36548}# #{template 36549}#) (list '#(syntax-object lambda ((top) #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) #("i36503" "i36504" "i36505" "i36506")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i36500")) #(ribcage (syntax-rules) ((top)) (((hygiene guile) . #(syntax-object syntax-rules ((top)) (hygiene guile)))))) (hygiene guile)) '(#(syntax-object x ((top) #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) #("i36503" "i36504" "i36505" "i36506")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i36500")) #(ribcage (syntax-rules) ((top)) (((hygiene guile) . #(syntax-object syntax-rules ((top)) (hygiene guile)))))) (hygiene guile))) (vector '(#(syntax-object macro-type ((top) #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) #("i36503" "i36504" "i36505" "i36506")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i36500")) #(ribcage (syntax-rules) ((top)) (((hygiene guile) . #(syntax-object syntax-rules ((top)) (hygiene guile)))))) (hygiene guile)) . #(syntax-object syntax-rules ((top) #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) #("i36503" "i36504" "i36505" "i36506")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i36500")) #(ribcage (syntax-rules) ((top)) (((hygiene guile) . #(syntax-object syntax-rules ((top)) (hygiene guile)))))) (hygiene guile))) (cons '#(syntax-object patterns ((top) #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) #("i36503" "i36504" "i36505" "i36506")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i36500")) #(ribcage (syntax-rules) ((top)) (((hygiene guile) . #(syntax-object syntax-rules ((top)) (hygiene guile)))))) (hygiene guile)) #{pattern 36548}#)) (cons '#(syntax-object syntax-case ((top) #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) #("i36503" "i36504" "i36505" "i36506")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i36500")) #(ribcage (syntax-rules) ((top)) (((hygiene guile) . #(syntax-object syntax-rules ((top)) (hygiene guile)))))) (hygiene guile)) (cons '#(syntax-object x ((top) #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) #("i36503" "i36504" "i36505" "i36506")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i36500")) #(ribcage (syntax-rules) ((top)) (((hygiene guile) . #(syntax-object syntax-rules ((top)) (hygiene guile)))))) (hygiene guile)) (cons #{k 36546}# (map (lambda (#{tmp 36514 36550}# #{tmp 36513 36551}#) (list (cons '#(syntax-object _ ((top) #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) #("i36503" "i36504" "i36505" "i36506")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i36500")) #(ribcage (syntax-rules) ((top)) (((hygiene guile) . #(syntax-object syntax-rules ((top)) (hygiene guile)))))) (hygiene guile)) #{tmp 36513 36551}#) (list '#(syntax-object syntax ((top) #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) #("i36503" "i36504" "i36505" "i36506")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i36500")) #(ribcage (syntax-rules) ((top)) (((hygiene guile) . #(syntax-object syntax-rules ((top)) (hygiene guile)))))) (hygiene guile)) #{tmp 36514 36550}#))) #{template 36549}# #{pattern 36548}#)))))) #{tmp 36542}#) (let ((#{tmp 36552}# ($sc-dispatch #{x 36540}# '(_ each-any any . #(each ((any . any) any)))))) (if (if #{tmp 36552}# (@apply (lambda (#{k 36556}# #{docstring 36557}# #{keyword 36558}# #{pattern 36559}# #{template 36560}#) (string? (syntax->datum #{docstring 36557}#))) #{tmp 36552}#) #f) (@apply (lambda (#{k 36561}# #{docstring 36562}# #{keyword 36563}# #{pattern 36564}# #{template 36565}#) (list '#(syntax-object lambda ((top) #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) #("i36526" "i36527" "i36528" "i36529" "i36530")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i36500")) #(ribcage (syntax-rules) ((top)) (((hygiene guile) . #(syntax-object syntax-rules ((top)) (hygiene guile)))))) (hygiene guile)) '(#(syntax-object x ((top) #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) #("i36526" "i36527" "i36528" "i36529" "i36530")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i36500")) #(ribcage (syntax-rules) ((top)) (((hygiene guile) . #(syntax-object syntax-rules ((top)) (hygiene guile)))))) (hygiene guile))) #{docstring 36562}# (vector '(#(syntax-object macro-type ((top) #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) #("i36526" "i36527" "i36528" "i36529" "i36530")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i36500")) #(ribcage (syntax-rules) ((top)) (((hygiene guile) . #(syntax-object syntax-rules ((top)) (hygiene guile)))))) (hygiene guile)) . #(syntax-object syntax-rules ((top) #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) #("i36526" "i36527" "i36528" "i36529" "i36530")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i36500")) #(ribcage (syntax-rules) ((top)) (((hygiene guile) . #(syntax-object syntax-rules ((top)) (hygiene guile)))))) (hygiene guile))) (cons '#(syntax-object patterns ((top) #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) #("i36526" "i36527" "i36528" "i36529" "i36530")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i36500")) #(ribcage (syntax-rules) ((top)) (((hygiene guile) . #(syntax-object syntax-rules ((top)) (hygiene guile)))))) (hygiene guile)) #{pattern 36564}#)) (cons '#(syntax-object syntax-case ((top) #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) #("i36526" "i36527" "i36528" "i36529" "i36530")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i36500")) #(ribcage (syntax-rules) ((top)) (((hygiene guile) . #(syntax-object syntax-rules ((top)) (hygiene guile)))))) (hygiene guile)) (cons '#(syntax-object x ((top) #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) #("i36526" "i36527" "i36528" "i36529" "i36530")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i36500")) #(ribcage (syntax-rules) ((top)) (((hygiene guile) . #(syntax-object syntax-rules ((top)) (hygiene guile)))))) (hygiene guile)) (cons #{k 36561}# (map (lambda (#{tmp 36539 36566}# #{tmp 36538 36567}#) (list (cons '#(syntax-object _ ((top) #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) #("i36526" "i36527" "i36528" "i36529" "i36530")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i36500")) #(ribcage (syntax-rules) ((top)) (((hygiene guile) . #(syntax-object syntax-rules ((top)) (hygiene guile)))))) (hygiene guile)) #{tmp 36538 36567}#) (list '#(syntax-object syntax ((top) #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) #("i36526" "i36527" "i36528" "i36529" "i36530")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i36500")) #(ribcage (syntax-rules) ((top)) (((hygiene guile) . #(syntax-object syntax-rules ((top)) (hygiene guile)))))) (hygiene guile)) #{tmp 36539 36566}#))) #{template 36565}# #{pattern 36564}#)))))) #{tmp 36552}#) (syntax-violation #f "source expression failed to match any pattern" #{x 36540}#)))))))) (define define-syntax-rule (make-syntax-transformer 'define-syntax-rule 'macro (lambda (#{x 36605}#) (let ((#{tmp 36607}# ($sc-dispatch #{x 36605}# '(_ (any . any) any)))) (if #{tmp 36607}# (@apply (lambda (#{name 36611}# #{pattern 36612}# #{template 36613}#) (list '#(syntax-object define-syntax ((top) #(ribcage #(name pattern template) #((top) (top) (top)) #("i36582" "i36583" "i36584")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i36579")) #(ribcage (define-syntax-rule) ((top)) (((hygiene guile) . #(syntax-object define-syntax-rule ((top)) (hygiene guile)))))) (hygiene guile)) #{name 36611}# (list '#(syntax-object syntax-rules ((top) #(ribcage #(name pattern template) #((top) (top) (top)) #("i36582" "i36583" "i36584")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i36579")) #(ribcage (define-syntax-rule) ((top)) (((hygiene guile) . #(syntax-object define-syntax-rule ((top)) (hygiene guile)))))) (hygiene guile)) '() (list (cons '#(syntax-object _ ((top) #(ribcage #(name pattern template) #((top) (top) (top)) #("i36582" "i36583" "i36584")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i36579")) #(ribcage (define-syntax-rule) ((top)) (((hygiene guile) . #(syntax-object define-syntax-rule ((top)) (hygiene guile)))))) (hygiene guile)) #{pattern 36612}#) #{template 36613}#)))) #{tmp 36607}#) (let ((#{tmp 36614}# ($sc-dispatch #{x 36605}# '(_ (any . any) any any)))) (if (if #{tmp 36614}# (@apply (lambda (#{name 36618}# #{pattern 36619}# #{docstring 36620}# #{template 36621}#) (string? (syntax->datum #{docstring 36620}#))) #{tmp 36614}#) #f) (@apply (lambda (#{name 36622}# #{pattern 36623}# #{docstring 36624}# #{template 36625}#) (list '#(syntax-object define-syntax ((top) #(ribcage #(name pattern docstring template) #((top) (top) (top) (top)) #("i36597" "i36598" "i36599" "i36600")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i36579")) #(ribcage (define-syntax-rule) ((top)) (((hygiene guile) . #(syntax-object define-syntax-rule ((top)) (hygiene guile)))))) (hygiene guile)) #{name 36622}# (list '#(syntax-object syntax-rules ((top) #(ribcage #(name pattern docstring template) #((top) (top) (top) (top)) #("i36597" "i36598" "i36599" "i36600")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i36579")) #(ribcage (define-syntax-rule) ((top)) (((hygiene guile) . #(syntax-object define-syntax-rule ((top)) (hygiene guile)))))) (hygiene guile)) '() #{docstring 36624}# (list (cons '#(syntax-object _ ((top) #(ribcage #(name pattern docstring template) #((top) (top) (top) (top)) #("i36597" "i36598" "i36599" "i36600")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i36579")) #(ribcage (define-syntax-rule) ((top)) (((hygiene guile) . #(syntax-object define-syntax-rule ((top)) (hygiene guile)))))) (hygiene guile)) #{pattern 36623}#) #{template 36625}#)))) #{tmp 36614}#) (syntax-violation #f "source expression failed to match any pattern" #{x 36605}#)))))))) (define let* (make-syntax-transformer 'let* 'macro (lambda (#{x 36675}#) (let ((#{tmp 36677}# ($sc-dispatch #{x 36675}# '(any #(each (any any)) any . each-any)))) (if (if #{tmp 36677}# (@apply (lambda (#{let* 36681}# #{x 36682}# #{v 36683}# #{e1 36684}# #{e2 36685}#) (and-map identifier? #{x 36682}#)) #{tmp 36677}#) #f) (@apply (lambda (#{let* 36686}# #{x 36687}# #{v 36688}# #{e1 36689}# #{e2 36690}#) (letrec* ((#{f 36691}# (lambda (#{bindings 36694}#) (if (null? #{bindings 36694}#) (cons '#(syntax-object let ((top) #(ribcage () () ()) #(ribcage #(f bindings) #((top) (top)) #("i36661" "i36662")) #(ribcage #(let* x v e1 e2) #((top) (top) (top) (top) (top)) #("i36651" "i36652" "i36653" "i36654" "i36655")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i36637")) #(ribcage (let*) ((top)) (((hygiene guile) . #(syntax-object let* ((top)) (hygiene guile)))))) (hygiene guile)) (cons '() (cons #{e1 36689}# #{e2 36690}#))) (let ((#{tmp 36695}# (list (#{f 36691}# (cdr #{bindings 36694}#)) (car #{bindings 36694}#)))) (let ((#{tmp 36696}# ($sc-dispatch #{tmp 36695}# '(any any)))) (if #{tmp 36696}# (@apply (lambda (#{body 36698}# #{binding 36699}#) (list '#(syntax-object let ((top) #(ribcage () () ()) #(ribcage #(body binding) #((top) (top)) #("i36671" "i36672")) #(ribcage () () ()) #(ribcage #(f bindings) #((top) (top)) #("i36661" "i36662")) #(ribcage #(let* x v e1 e2) #((top) (top) (top) (top) (top)) #("i36651" "i36652" "i36653" "i36654" "i36655")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i36637")) #(ribcage (let*) ((top)) (((hygiene guile) . #(syntax-object let* ((top)) (hygiene guile)))))) (hygiene guile)) (list #{binding 36699}#) #{body 36698}#)) #{tmp 36696}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp 36695}#)))))))) (#{f 36691}# (map list #{x 36687}# #{v 36688}#)))) #{tmp 36677}#) (syntax-violation #f "source expression failed to match any pattern" #{x 36675}#)))))) (define do (make-syntax-transformer 'do 'macro (lambda (#{orig-x 36758}#) (let ((#{tmp 36760}# ($sc-dispatch #{orig-x 36758}# '(_ #(each (any any . any)) (any . each-any) . each-any)))) (if #{tmp 36760}# (@apply (lambda (#{var 36764}# #{init 36765}# #{step 36766}# #{e0 36767}# #{e1 36768}# #{c 36769}#) (let ((#{tmp 36770}# (map (lambda (#{v 36773}# #{s 36774}#) (let ((#{tmp 36776}# ($sc-dispatch #{s 36774}# '()))) (if #{tmp 36776}# (@apply (lambda () #{v 36773}#) #{tmp 36776}#) (let ((#{tmp 36779}# ($sc-dispatch #{s 36774}# '(any)))) (if #{tmp 36779}# (@apply (lambda (#{e 36782}#) #{e 36782}#) #{tmp 36779}#) (syntax-violation 'do "bad step expression" #{orig-x 36758}# #{s 36774}#)))))) #{var 36764}# #{step 36766}#))) (let ((#{tmp 36771}# ($sc-dispatch #{tmp 36770}# 'each-any))) (if #{tmp 36771}# (@apply (lambda (#{step 36788}#) (let ((#{tmp 36790}# ($sc-dispatch #{e1 36768}# '()))) (if #{tmp 36790}# (@apply (lambda () (list '#(syntax-object let ((top) #(ribcage () () ()) #(ribcage #(step) #((top)) #("i36726")) #(ribcage #(var init step e0 e1 c) #((top) (top) (top) (top) (top) (top)) #("i36711" "i36712" "i36713" "i36714" "i36715" "i36716")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i36708")) #(ribcage (do) ((top)) (((hygiene guile) . #(syntax-object do ((top)) (hygiene guile)))))) (hygiene guile)) '#(syntax-object doloop ((top) #(ribcage () () ()) #(ribcage #(step) #((top)) #("i36726")) #(ribcage #(var init step e0 e1 c) #((top) (top) (top) (top) (top) (top)) #("i36711" "i36712" "i36713" "i36714" "i36715" "i36716")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i36708")) #(ribcage (do) ((top)) (((hygiene guile) . #(syntax-object do ((top)) (hygiene guile)))))) (hygiene guile)) (map list #{var 36764}# #{init 36765}#) (list '#(syntax-object if ((top) #(ribcage () () ()) #(ribcage #(step) #((top)) #("i36726")) #(ribcage #(var init step e0 e1 c) #((top) (top) (top) (top) (top) (top)) #("i36711" "i36712" "i36713" "i36714" "i36715" "i36716")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i36708")) #(ribcage (do) ((top)) (((hygiene guile) . #(syntax-object do ((top)) (hygiene guile)))))) (hygiene guile)) (list '#(syntax-object not ((top) #(ribcage () () ()) #(ribcage #(step) #((top)) #("i36726")) #(ribcage #(var init step e0 e1 c) #((top) (top) (top) (top) (top) (top)) #("i36711" "i36712" "i36713" "i36714" "i36715" "i36716")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i36708")) #(ribcage (do) ((top)) (((hygiene guile) . #(syntax-object do ((top)) (hygiene guile)))))) (hygiene guile)) #{e0 36767}#) (cons '#(syntax-object begin ((top) #(ribcage () () ()) #(ribcage #(step) #((top)) #("i36726")) #(ribcage #(var init step e0 e1 c) #((top) (top) (top) (top) (top) (top)) #("i36711" "i36712" "i36713" "i36714" "i36715" "i36716")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i36708")) #(ribcage (do) ((top)) (((hygiene guile) . #(syntax-object do ((top)) (hygiene guile)))))) (hygiene guile)) (append #{c 36769}# (list (cons '#(syntax-object doloop ((top) #(ribcage () () ()) #(ribcage #(step) #((top)) #("i36726")) #(ribcage #(var init step e0 e1 c) #((top) (top) (top) (top) (top) (top)) #("i36711" "i36712" "i36713" "i36714" "i36715" "i36716")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i36708")) #(ribcage (do) ((top)) (((hygiene guile) . #(syntax-object do ((top)) (hygiene guile)))))) (hygiene guile)) #{step 36788}#))))))) #{tmp 36790}#) (let ((#{tmp 36794}# ($sc-dispatch #{e1 36768}# '(any . each-any)))) (if #{tmp 36794}# (@apply (lambda (#{e1 36798}# #{e2 36799}#) (list '#(syntax-object let ((top) #(ribcage #(e1 e2) #((top) (top)) #("i36735" "i36736")) #(ribcage () () ()) #(ribcage #(step) #((top)) #("i36726")) #(ribcage #(var init step e0 e1 c) #((top) (top) (top) (top) (top) (top)) #("i36711" "i36712" "i36713" "i36714" "i36715" "i36716")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i36708")) #(ribcage (do) ((top)) (((hygiene guile) . #(syntax-object do ((top)) (hygiene guile)))))) (hygiene guile)) '#(syntax-object doloop ((top) #(ribcage #(e1 e2) #((top) (top)) #("i36735" "i36736")) #(ribcage () () ()) #(ribcage #(step) #((top)) #("i36726")) #(ribcage #(var init step e0 e1 c) #((top) (top) (top) (top) (top) (top)) #("i36711" "i36712" "i36713" "i36714" "i36715" "i36716")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i36708")) #(ribcage (do) ((top)) (((hygiene guile) . #(syntax-object do ((top)) (hygiene guile)))))) (hygiene guile)) (map list #{var 36764}# #{init 36765}#) (list '#(syntax-object if ((top) #(ribcage #(e1 e2) #((top) (top)) #("i36735" "i36736")) #(ribcage () () ()) #(ribcage #(step) #((top)) #("i36726")) #(ribcage #(var init step e0 e1 c) #((top) (top) (top) (top) (top) (top)) #("i36711" "i36712" "i36713" "i36714" "i36715" "i36716")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i36708")) #(ribcage (do) ((top)) (((hygiene guile) . #(syntax-object do ((top)) (hygiene guile)))))) (hygiene guile)) #{e0 36767}# (cons '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) #("i36735" "i36736")) #(ribcage () () ()) #(ribcage #(step) #((top)) #("i36726")) #(ribcage #(var init step e0 e1 c) #((top) (top) (top) (top) (top) (top)) #("i36711" "i36712" "i36713" "i36714" "i36715" "i36716")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i36708")) #(ribcage (do) ((top)) (((hygiene guile) . #(syntax-object do ((top)) (hygiene guile)))))) (hygiene guile)) (cons #{e1 36798}# #{e2 36799}#)) (cons '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) #("i36735" "i36736")) #(ribcage () () ()) #(ribcage #(step) #((top)) #("i36726")) #(ribcage #(var init step e0 e1 c) #((top) (top) (top) (top) (top) (top)) #("i36711" "i36712" "i36713" "i36714" "i36715" "i36716")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i36708")) #(ribcage (do) ((top)) (((hygiene guile) . #(syntax-object do ((top)) (hygiene guile)))))) (hygiene guile)) (append #{c 36769}# (list (cons '#(syntax-object doloop ((top) #(ribcage #(e1 e2) #((top) (top)) #("i36735" "i36736")) #(ribcage () () ()) #(ribcage #(step) #((top)) #("i36726")) #(ribcage #(var init step e0 e1 c) #((top) (top) (top) (top) (top) (top)) #("i36711" "i36712" "i36713" "i36714" "i36715" "i36716")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i36708")) #(ribcage (do) ((top)) (((hygiene guile) . #(syntax-object do ((top)) (hygiene guile)))))) (hygiene guile)) #{step 36788}#))))))) #{tmp 36794}#) (syntax-violation #f "source expression failed to match any pattern" #{e1 36768}#)))))) #{tmp 36771}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp 36770}#))))) #{tmp 36760}#) (syntax-violation #f "source expression failed to match any pattern" #{orig-x 36758}#)))))) (define quasiquote (make-syntax-transformer 'quasiquote 'macro (letrec* ((#{quasi 37086}# (lambda (#{p 37110}# #{lev 37111}#) (let ((#{tmp 37113}# ($sc-dispatch #{p 37110}# '(#(free-id #(syntax-object unquote ((top) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i36832" "i36833")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i36828" "i36826" "i36824" "i36822" "i36820" "i36818" "i36816")) #(ribcage (quasiquote) ((top)) (((hygiene guile) . #(syntax-object quasiquote ((top)) (hygiene guile)))))) (hygiene guile))) any)))) (if #{tmp 37113}# (@apply (lambda (#{p 37117}#) (if (= #{lev 37111}# 0) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) #("i36836")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i36832" "i36833")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i36828" "i36826" "i36824" "i36822" "i36820" "i36818" "i36816")) #(ribcage (quasiquote) ((top)) (((hygiene guile) . #(syntax-object quasiquote ((top)) (hygiene guile)))))) (hygiene guile)) #{p 37117}#) (#{quasicons 37088}# '(#(syntax-object "quote" ((top) #(ribcage #(p) #((top)) #("i36836")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i36832" "i36833")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i36828" "i36826" "i36824" "i36822" "i36820" "i36818" "i36816")) #(ribcage (quasiquote) ((top)) (((hygiene guile) . #(syntax-object quasiquote ((top)) (hygiene guile)))))) (hygiene guile)) #(syntax-object unquote ((top) #(ribcage #(p) #((top)) #("i36836")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i36832" "i36833")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i36828" "i36826" "i36824" "i36822" "i36820" "i36818" "i36816")) #(ribcage (quasiquote) ((top)) (((hygiene guile) . #(syntax-object quasiquote ((top)) (hygiene guile)))))) (hygiene guile))) (#{quasi 37086}# (list #{p 37117}#) (#{1-}# #{lev 37111}#))))) #{tmp 37113}#) (let ((#{tmp 37120}# ($sc-dispatch #{p 37110}# '(#(free-id #(syntax-object quasiquote ((top) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i36832" "i36833")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i36828" "i36826" "i36824" "i36822" "i36820" "i36818" "i36816")) #(ribcage (quasiquote) ((top)) (((hygiene guile) . #(syntax-object quasiquote ((top)) (hygiene guile)))))) (hygiene guile))) any)))) (if #{tmp 37120}# (@apply (lambda (#{p 37124}#) (#{quasicons 37088}# '(#(syntax-object "quote" ((top) #(ribcage #(p) #((top)) #("i36839")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i36832" "i36833")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i36828" "i36826" "i36824" "i36822" "i36820" "i36818" "i36816")) #(ribcage (quasiquote) ((top)) (((hygiene guile) . #(syntax-object quasiquote ((top)) (hygiene guile)))))) (hygiene guile)) #(syntax-object quasiquote ((top) #(ribcage #(p) #((top)) #("i36839")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i36832" "i36833")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i36828" "i36826" "i36824" "i36822" "i36820" "i36818" "i36816")) #(ribcage (quasiquote) ((top)) (((hygiene guile) . #(syntax-object quasiquote ((top)) (hygiene guile)))))) (hygiene guile))) (#{quasi 37086}# (list #{p 37124}#) (#{1+}# #{lev 37111}#)))) #{tmp 37120}#) (let ((#{tmp 37127}# ($sc-dispatch #{p 37110}# '(any . any)))) (if #{tmp 37127}# (@apply (lambda (#{p 37131}# #{q 37132}#) (let ((#{tmp 37134}# ($sc-dispatch #{p 37131}# '(#(free-id #(syntax-object unquote ((top) #(ribcage #(p q) #((top) (top)) #("i36842" "i36843")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i36832" "i36833")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i36828" "i36826" "i36824" "i36822" "i36820" "i36818" "i36816")) #(ribcage (quasiquote) ((top)) (((hygiene guile) . #(syntax-object quasiquote ((top)) (hygiene guile)))))) (hygiene guile))) . each-any)))) (if #{tmp 37134}# (@apply (lambda (#{p 37138}#) (if (= #{lev 37111}# 0) (#{quasilist* 37090}# (map (lambda (#{tmp 36850 37177}#) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) #("i36848")) #(ribcage #(p q) #((top) (top)) #("i36842" "i36843")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i36832" "i36833")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i36828" "i36826" "i36824" "i36822" "i36820" "i36818" "i36816")) #(ribcage (quasiquote) ((top)) (((hygiene guile) . #(syntax-object quasiquote ((top)) (hygiene guile)))))) (hygiene guile)) #{tmp 36850 37177}#)) #{p 37138}#) (#{quasi 37086}# #{q 37132}# #{lev 37111}#)) (#{quasicons 37088}# (#{quasicons 37088}# '(#(syntax-object "quote" ((top) #(ribcage #(p) #((top)) #("i36848")) #(ribcage #(p q) #((top) (top)) #("i36842" "i36843")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i36832" "i36833")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i36828" "i36826" "i36824" "i36822" "i36820" "i36818" "i36816")) #(ribcage (quasiquote) ((top)) (((hygiene guile) . #(syntax-object quasiquote ((top)) (hygiene guile)))))) (hygiene guile)) #(syntax-object unquote ((top) #(ribcage #(p) #((top)) #("i36848")) #(ribcage #(p q) #((top) (top)) #("i36842" "i36843")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i36832" "i36833")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i36828" "i36826" "i36824" "i36822" "i36820" "i36818" "i36816")) #(ribcage (quasiquote) ((top)) (((hygiene guile) . #(syntax-object quasiquote ((top)) (hygiene guile)))))) (hygiene guile))) (#{quasi 37086}# #{p 37138}# (#{1-}# #{lev 37111}#))) (#{quasi 37086}# #{q 37132}# #{lev 37111}#)))) #{tmp 37134}#) (let ((#{tmp 37182}# ($sc-dispatch #{p 37131}# '(#(free-id #(syntax-object unquote-splicing ((top) #(ribcage #(p q) #((top) (top)) #("i36842" "i36843")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i36832" "i36833")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i36828" "i36826" "i36824" "i36822" "i36820" "i36818" "i36816")) #(ribcage (quasiquote) ((top)) (((hygiene guile) . #(syntax-object quasiquote ((top)) (hygiene guile)))))) (hygiene guile))) . each-any)))) (if #{tmp 37182}# (@apply (lambda (#{p 37186}#) (if (= #{lev 37111}# 0) (#{quasiappend 37089}# (map (lambda (#{tmp 36855 37189}#) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) #("i36853")) #(ribcage #(p q) #((top) (top)) #("i36842" "i36843")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i36832" "i36833")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i36828" "i36826" "i36824" "i36822" "i36820" "i36818" "i36816")) #(ribcage (quasiquote) ((top)) (((hygiene guile) . #(syntax-object quasiquote ((top)) (hygiene guile)))))) (hygiene guile)) #{tmp 36855 37189}#)) #{p 37186}#) (#{quasi 37086}# #{q 37132}# #{lev 37111}#)) (#{quasicons 37088}# (#{quasicons 37088}# '(#(syntax-object "quote" ((top) #(ribcage #(p) #((top)) #("i36853")) #(ribcage #(p q) #((top) (top)) #("i36842" "i36843")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i36832" "i36833")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i36828" "i36826" "i36824" "i36822" "i36820" "i36818" "i36816")) #(ribcage (quasiquote) ((top)) (((hygiene guile) . #(syntax-object quasiquote ((top)) (hygiene guile)))))) (hygiene guile)) #(syntax-object unquote-splicing ((top) #(ribcage #(p) #((top)) #("i36853")) #(ribcage #(p q) #((top) (top)) #("i36842" "i36843")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i36832" "i36833")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i36828" "i36826" "i36824" "i36822" "i36820" "i36818" "i36816")) #(ribcage (quasiquote) ((top)) (((hygiene guile) . #(syntax-object quasiquote ((top)) (hygiene guile)))))) (hygiene guile))) (#{quasi 37086}# #{p 37186}# (#{1-}# #{lev 37111}#))) (#{quasi 37086}# #{q 37132}# #{lev 37111}#)))) #{tmp 37182}#) (#{quasicons 37088}# (#{quasi 37086}# #{p 37131}# #{lev 37111}#) (#{quasi 37086}# #{q 37132}# #{lev 37111}#))))))) #{tmp 37127}#) (let ((#{tmp 37203}# ($sc-dispatch #{p 37110}# '#(vector each-any)))) (if #{tmp 37203}# (@apply (lambda (#{x 37207}#) (let ((#{x 37210}# (#{vquasi 37087}# #{x 37207}# #{lev 37111}#))) (let ((#{tmp 37212}# ($sc-dispatch #{x 37210}# '(#(atom "quote") each-any)))) (if #{tmp 37212}# (@apply (lambda (#{x 37216}#) (list '#(syntax-object "quote" ((top) #(ribcage #(x) #((top)) #("i36960")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i36957")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i36828" "i36826" "i36824" "i36822" "i36820" "i36818" "i36816")) #(ribcage (quasiquote) ((top)) (((hygiene guile) . #(syntax-object quasiquote ((top)) (hygiene guile)))))) (hygiene guile)) (list->vector #{x 37216}#))) #{tmp 37212}#) (letrec* ((#{f 37218}# (lambda (#{y 37230}# #{k 37231}#) (let ((#{tmp 37233}# ($sc-dispatch #{y 37230}# '(#(atom "quote") each-any)))) (if #{tmp 37233}# (@apply (lambda (#{y 37236}#) (#{k 37231}# (map (lambda (#{tmp 36985 37237}#) (list '#(syntax-object "quote" ((top) #(ribcage #(y) #((top)) #("i36983")) #(ribcage () () ()) #(ribcage #(f y k) #((top) (top) (top)) #("i36965" "i36966" "i36967")) #(ribcage #(_) #((top)) #("i36963")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i36957")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i36828" "i36826" "i36824" "i36822" "i36820" "i36818" "i36816")) #(ribcage (quasiquote) ((top)) (((hygiene guile) . #(syntax-object quasiquote ((top)) (hygiene guile)))))) (hygiene guile)) #{tmp 36985 37237}#)) #{y 37236}#))) #{tmp 37233}#) (let ((#{tmp 37238}# ($sc-dispatch #{y 37230}# '(#(atom "list") . each-any)))) (if #{tmp 37238}# (@apply (lambda (#{y 37241}#) (#{k 37231}# #{y 37241}#)) #{tmp 37238}#) (let ((#{tmp 37242}# ($sc-dispatch #{y 37230}# '(#(atom "list*") . #(each+ any (any) ()))))) (if #{tmp 37242}# (@apply (lambda (#{y 37245}# #{z 37246}#) (#{f 37218}# #{z 37246}# (lambda (#{ls 37247}#) (#{k 37231}# (append #{y 37245}# #{ls 37247}#))))) #{tmp 37242}#) (list '#(syntax-object "list->vector" ((top) #(ribcage () () ()) #(ribcage #(#{ g37000}#) #((m37001 top)) #("i37004")) #(ribcage #(else) #((top)) #("i36998")) #(ribcage () () ()) #(ribcage #(f y k) #((top) (top) (top)) #("i36965" "i36966" "i36967")) #(ribcage #(_) #((top)) #("i36963")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i36957")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i36828" "i36826" "i36824" "i36822" "i36820" "i36818" "i36816")) #(ribcage (quasiquote) ((top)) (((hygiene guile) . #(syntax-object quasiquote ((top)) (hygiene guile)))))) (hygiene guile)) #{x 37210}#)))))))))) (#{f 37218}# #{x 37210}# (lambda (#{ls 37220}#) (let ((#{tmp 37222}# ($sc-dispatch #{ls 37220}# 'each-any))) (if #{tmp 37222}# (@apply (lambda (#{ g36973 37225}#) (cons '#(syntax-object "vector" ((top) #(ribcage () () ()) #(ribcage #(#{ g36973}#) #((m36974 top)) #("i36978")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(ls) #((top)) #("i36972")) #(ribcage #(_) #((top)) #("i36963")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i36957")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i36828" "i36826" "i36824" "i36822" "i36820" "i36818" "i36816")) #(ribcage (quasiquote) ((top)) (((hygiene guile) . #(syntax-object quasiquote ((top)) (hygiene guile)))))) (hygiene guile)) #{ g36973 37225}#)) #{tmp 37222}#) (syntax-violation #f "source expression failed to match any pattern" #{ls 37220}#)))))))))) #{tmp 37203}#) (list '#(syntax-object "quote" ((top) #(ribcage #(p) #((top)) #("i36863")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i36832" "i36833")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i36828" "i36826" "i36824" "i36822" "i36820" "i36818" "i36816")) #(ribcage (quasiquote) ((top)) (((hygiene guile) . #(syntax-object quasiquote ((top)) (hygiene guile)))))) (hygiene guile)) #{p 37110}#))))))))))) (#{vquasi 37087}# (lambda (#{p 37275}# #{lev 37276}#) (let ((#{tmp 37278}# ($sc-dispatch #{p 37275}# '(any . any)))) (if #{tmp 37278}# (@apply (lambda (#{p 37282}# #{q 37283}#) (let ((#{tmp 37285}# ($sc-dispatch #{p 37282}# '(#(free-id #(syntax-object unquote ((top) #(ribcage #(p q) #((top) (top)) #("i36871" "i36872")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i36867" "i36868")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i36828" "i36826" "i36824" "i36822" "i36820" "i36818" "i36816")) #(ribcage (quasiquote) ((top)) (((hygiene guile) . #(syntax-object quasiquote ((top)) (hygiene guile)))))) (hygiene guile))) . each-any)))) (if #{tmp 37285}# (@apply (lambda (#{p 37289}#) (if (= #{lev 37276}# 0) (#{quasilist* 37090}# (map (lambda (#{tmp 36879 37328}#) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) #("i36877")) #(ribcage #(p q) #((top) (top)) #("i36871" "i36872")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i36867" "i36868")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i36828" "i36826" "i36824" "i36822" "i36820" "i36818" "i36816")) #(ribcage (quasiquote) ((top)) (((hygiene guile) . #(syntax-object quasiquote ((top)) (hygiene guile)))))) (hygiene guile)) #{tmp 36879 37328}#)) #{p 37289}#) (#{vquasi 37087}# #{q 37283}# #{lev 37276}#)) (#{quasicons 37088}# (#{quasicons 37088}# '(#(syntax-object "quote" ((top) #(ribcage #(p) #((top)) #("i36877")) #(ribcage #(p q) #((top) (top)) #("i36871" "i36872")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i36867" "i36868")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i36828" "i36826" "i36824" "i36822" "i36820" "i36818" "i36816")) #(ribcage (quasiquote) ((top)) (((hygiene guile) . #(syntax-object quasiquote ((top)) (hygiene guile)))))) (hygiene guile)) #(syntax-object unquote ((top) #(ribcage #(p) #((top)) #("i36877")) #(ribcage #(p q) #((top) (top)) #("i36871" "i36872")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i36867" "i36868")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i36828" "i36826" "i36824" "i36822" "i36820" "i36818" "i36816")) #(ribcage (quasiquote) ((top)) (((hygiene guile) . #(syntax-object quasiquote ((top)) (hygiene guile)))))) (hygiene guile))) (#{quasi 37086}# #{p 37289}# (#{1-}# #{lev 37276}#))) (#{vquasi 37087}# #{q 37283}# #{lev 37276}#)))) #{tmp 37285}#) (let ((#{tmp 37335}# ($sc-dispatch #{p 37282}# '(#(free-id #(syntax-object unquote-splicing ((top) #(ribcage #(p q) #((top) (top)) #("i36871" "i36872")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i36867" "i36868")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i36828" "i36826" "i36824" "i36822" "i36820" "i36818" "i36816")) #(ribcage (quasiquote) ((top)) (((hygiene guile) . #(syntax-object quasiquote ((top)) (hygiene guile)))))) (hygiene guile))) . each-any)))) (if #{tmp 37335}# (@apply (lambda (#{p 37339}#) (if (= #{lev 37276}# 0) (#{quasiappend 37089}# (map (lambda (#{tmp 36884 37342}#) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) #("i36882")) #(ribcage #(p q) #((top) (top)) #("i36871" "i36872")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i36867" "i36868")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i36828" "i36826" "i36824" "i36822" "i36820" "i36818" "i36816")) #(ribcage (quasiquote) ((top)) (((hygiene guile) . #(syntax-object quasiquote ((top)) (hygiene guile)))))) (hygiene guile)) #{tmp 36884 37342}#)) #{p 37339}#) (#{vquasi 37087}# #{q 37283}# #{lev 37276}#)) (#{quasicons 37088}# (#{quasicons 37088}# '(#(syntax-object "quote" ((top) #(ribcage #(p) #((top)) #("i36882")) #(ribcage #(p q) #((top) (top)) #("i36871" "i36872")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i36867" "i36868")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i36828" "i36826" "i36824" "i36822" "i36820" "i36818" "i36816")) #(ribcage (quasiquote) ((top)) (((hygiene guile) . #(syntax-object quasiquote ((top)) (hygiene guile)))))) (hygiene guile)) #(syntax-object unquote-splicing ((top) #(ribcage #(p) #((top)) #("i36882")) #(ribcage #(p q) #((top) (top)) #("i36871" "i36872")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i36867" "i36868")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i36828" "i36826" "i36824" "i36822" "i36820" "i36818" "i36816")) #(ribcage (quasiquote) ((top)) (((hygiene guile) . #(syntax-object quasiquote ((top)) (hygiene guile)))))) (hygiene guile))) (#{quasi 37086}# #{p 37339}# (#{1-}# #{lev 37276}#))) (#{vquasi 37087}# #{q 37283}# #{lev 37276}#)))) #{tmp 37335}#) (#{quasicons 37088}# (#{quasi 37086}# #{p 37282}# #{lev 37276}#) (#{vquasi 37087}# #{q 37283}# #{lev 37276}#))))))) #{tmp 37278}#) (let ((#{tmp 37360}# ($sc-dispatch #{p 37275}# '()))) (if #{tmp 37360}# (@apply (lambda () '(#(syntax-object "quote" ((top) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i36867" "i36868")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i36828" "i36826" "i36824" "i36822" "i36820" "i36818" "i36816")) #(ribcage (quasiquote) ((top)) (((hygiene guile) . #(syntax-object quasiquote ((top)) (hygiene guile)))))) (hygiene guile)) ())) #{tmp 37360}#) (syntax-violation #f "source expression failed to match any pattern" #{p 37275}#))))))) (#{quasicons 37088}# (lambda (#{x 37373}# #{y 37374}#) (let ((#{tmp 37375}# (list #{x 37373}# #{y 37374}#))) (let ((#{tmp 37376}# ($sc-dispatch #{tmp 37375}# '(any any)))) (if #{tmp 37376}# (@apply (lambda (#{x 37378}# #{y 37379}#) (let ((#{tmp 37381}# ($sc-dispatch #{y 37379}# '(#(atom "quote") any)))) (if #{tmp 37381}# (@apply (lambda (#{dy 37385}#) (let ((#{tmp 37387}# ($sc-dispatch #{x 37378}# '(#(atom "quote") any)))) (if #{tmp 37387}# (@apply (lambda (#{dx 37391}#) (list '#(syntax-object "quote" ((top) #(ribcage #(dx) #((top)) #("i36906")) #(ribcage #(dy) #((top)) #("i36902")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i36896" "i36897")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i36891" "i36892")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i36828" "i36826" "i36824" "i36822" "i36820" "i36818" "i36816")) #(ribcage (quasiquote) ((top)) (((hygiene guile) . #(syntax-object quasiquote ((top)) (hygiene guile)))))) (hygiene guile)) (cons #{dx 37391}# #{dy 37385}#))) #{tmp 37387}#) (if (null? #{dy 37385}#) (list '#(syntax-object "list" ((top) #(ribcage #(_) #((top)) #("i36908")) #(ribcage #(dy) #((top)) #("i36902")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i36896" "i36897")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i36891" "i36892")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i36828" "i36826" "i36824" "i36822" "i36820" "i36818" "i36816")) #(ribcage (quasiquote) ((top)) (((hygiene guile) . #(syntax-object quasiquote ((top)) (hygiene guile)))))) (hygiene guile)) #{x 37378}#) (list '#(syntax-object "list*" ((top) #(ribcage #(_) #((top)) #("i36908")) #(ribcage #(dy) #((top)) #("i36902")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i36896" "i36897")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i36891" "i36892")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i36828" "i36826" "i36824" "i36822" "i36820" "i36818" "i36816")) #(ribcage (quasiquote) ((top)) (((hygiene guile) . #(syntax-object quasiquote ((top)) (hygiene guile)))))) (hygiene guile)) #{x 37378}# #{y 37379}#))))) #{tmp 37381}#) (let ((#{tmp 37396}# ($sc-dispatch #{y 37379}# '(#(atom "list") . any)))) (if #{tmp 37396}# (@apply (lambda (#{stuff 37400}#) (cons '#(syntax-object "list" ((top) #(ribcage #(stuff) #((top)) #("i36911")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i36896" "i36897")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i36891" "i36892")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i36828" "i36826" "i36824" "i36822" "i36820" "i36818" "i36816")) #(ribcage (quasiquote) ((top)) (((hygiene guile) . #(syntax-object quasiquote ((top)) (hygiene guile)))))) (hygiene guile)) (cons #{x 37378}# #{stuff 37400}#))) #{tmp 37396}#) (let ((#{tmp 37401}# ($sc-dispatch #{y 37379}# '(#(atom "list*") . any)))) (if #{tmp 37401}# (@apply (lambda (#{stuff 37405}#) (cons '#(syntax-object "list*" ((top) #(ribcage #(stuff) #((top)) #("i36914")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i36896" "i36897")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i36891" "i36892")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i36828" "i36826" "i36824" "i36822" "i36820" "i36818" "i36816")) #(ribcage (quasiquote) ((top)) (((hygiene guile) . #(syntax-object quasiquote ((top)) (hygiene guile)))))) (hygiene guile)) (cons #{x 37378}# #{stuff 37405}#))) #{tmp 37401}#) (list '#(syntax-object "list*" ((top) #(ribcage #(_) #((top)) #("i36916")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i36896" "i36897")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i36891" "i36892")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i36828" "i36826" "i36824" "i36822" "i36820" "i36818" "i36816")) #(ribcage (quasiquote) ((top)) (((hygiene guile) . #(syntax-object quasiquote ((top)) (hygiene guile)))))) (hygiene guile)) #{x 37378}# #{y 37379}#)))))))) #{tmp 37376}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp 37375}#)))))) (#{quasiappend 37089}# (lambda (#{x 37416}# #{y 37417}#) (let ((#{tmp 37419}# ($sc-dispatch #{y 37417}# '(#(atom "quote") ())))) (if #{tmp 37419}# (@apply (lambda () (if (null? #{x 37416}#) '(#(syntax-object "quote" ((top) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i36920" "i36921")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i36828" "i36826" "i36824" "i36822" "i36820" "i36818" "i36816")) #(ribcage (quasiquote) ((top)) (((hygiene guile) . #(syntax-object quasiquote ((top)) (hygiene guile)))))) (hygiene guile)) ()) (if (null? (cdr #{x 37416}#)) (car #{x 37416}#) (let ((#{tmp 37424}# ($sc-dispatch #{x 37416}# 'each-any))) (if #{tmp 37424}# (@apply (lambda (#{p 37428}#) (cons '#(syntax-object "append" ((top) #(ribcage () () ()) #(ribcage #(p) #((top)) #("i36932")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i36920" "i36921")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i36828" "i36826" "i36824" "i36822" "i36820" "i36818" "i36816")) #(ribcage (quasiquote) ((top)) (((hygiene guile) . #(syntax-object quasiquote ((top)) (hygiene guile)))))) (hygiene guile)) #{p 37428}#)) #{tmp 37424}#) (syntax-violation #f "source expression failed to match any pattern" #{x 37416}#)))))) #{tmp 37419}#) (if (null? #{x 37416}#) #{y 37417}# (let ((#{tmp 37436}# (list #{x 37416}# #{y 37417}#))) (let ((#{tmp 37437}# ($sc-dispatch #{tmp 37436}# '(each-any any)))) (if #{tmp 37437}# (@apply (lambda (#{p 37439}# #{y 37440}#) (cons '#(syntax-object "append" ((top) #(ribcage () () ()) #(ribcage #(p y) #((top) (top)) #("i36943" "i36944")) #(ribcage #(_) #((top)) #("i36935")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i36920" "i36921")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i36828" "i36826" "i36824" "i36822" "i36820" "i36818" "i36816")) #(ribcage (quasiquote) ((top)) (((hygiene guile) . #(syntax-object quasiquote ((top)) (hygiene guile)))))) (hygiene guile)) (append #{p 37439}# (list #{y 37440}#)))) #{tmp 37437}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp 37436}#))))))))) (#{quasilist* 37090}# (lambda (#{x 37444}# #{y 37445}#) (letrec* ((#{f 37446}# (lambda (#{x 37550}#) (if (null? #{x 37550}#) #{y 37445}# (#{quasicons 37088}# (car #{x 37550}#) (#{f 37446}# (cdr #{x 37550}#))))))) (#{f 37446}# #{x 37444}#)))) (#{emit 37092}# (lambda (#{x 37553}#) (let ((#{tmp 37555}# ($sc-dispatch #{x 37553}# '(#(atom "quote") any)))) (if #{tmp 37555}# (@apply (lambda (#{x 37559}#) (list '#(syntax-object quote ((top) #(ribcage #(x) #((top)) #("i37010")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i37007")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i36828" "i36826" "i36824" "i36822" "i36820" "i36818" "i36816")) #(ribcage (quasiquote) ((top)) (((hygiene guile) . #(syntax-object quasiquote ((top)) (hygiene guile)))))) (hygiene guile)) #{x 37559}#)) #{tmp 37555}#) (let ((#{tmp 37560}# ($sc-dispatch #{x 37553}# '(#(atom "list") . each-any)))) (if #{tmp 37560}# (@apply (lambda (#{x 37564}#) (let ((#{tmp 37565}# (map #{emit 37092}# #{x 37564}#))) (let ((#{tmp 37566}# ($sc-dispatch #{tmp 37565}# 'each-any))) (if #{tmp 37566}# (@apply (lambda (#{ g37015 37568}#) (cons '#(syntax-object list ((top) #(ribcage () () ()) #(ribcage #(#{ g37015}#) #((m37016 top)) #("i37020")) #(ribcage #(x) #((top)) #("i37013")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i37007")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i36828" "i36826" "i36824" "i36822" "i36820" "i36818" "i36816")) #(ribcage (quasiquote) ((top)) (((hygiene guile) . #(syntax-object quasiquote ((top)) (hygiene guile)))))) (hygiene guile)) #{ g37015 37568}#)) #{tmp 37566}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp 37565}#))))) #{tmp 37560}#) (let ((#{tmp 37569}# ($sc-dispatch #{x 37553}# '(#(atom "list*") . #(each+ any (any) ()))))) (if #{tmp 37569}# (@apply (lambda (#{x 37573}# #{y 37574}#) (letrec* ((#{f 37575}# (lambda (#{x* 37578}#) (if (null? #{x* 37578}#) (#{emit 37092}# #{y 37574}#) (let ((#{tmp 37579}# (list (#{emit 37092}# (car #{x* 37578}#)) (#{f 37575}# (cdr #{x* 37578}#))))) (let ((#{tmp 37580}# ($sc-dispatch #{tmp 37579}# '(any any)))) (if #{tmp 37580}# (@apply (lambda (#{ g37035 37582}# #{ g37034 37583}#) (list '#(syntax-object cons ((top) #(ribcage () () ()) #(ribcage #(#{ g37035}# #{ g37034}#) #((m37036 top) (m37036 top)) #("i37040" "i37041")) #(ribcage () () ()) #(ribcage #(f x*) #((top) (top)) #("i37029" "i37030")) #(ribcage #(x y) #((top) (top)) #("i37025" "i37026")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i37007")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i36828" "i36826" "i36824" "i36822" "i36820" "i36818" "i36816")) #(ribcage (quasiquote) ((top)) (((hygiene guile) . #(syntax-object quasiquote ((top)) (hygiene guile)))))) (hygiene guile)) #{ g37035 37582}# #{ g37034 37583}#)) #{tmp 37580}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp 37579}#)))))))) (#{f 37575}# #{x 37573}#))) #{tmp 37569}#) (let ((#{tmp 37584}# ($sc-dispatch #{x 37553}# '(#(atom "append") . each-any)))) (if #{tmp 37584}# (@apply (lambda (#{x 37588}#) (let ((#{tmp 37589}# (map #{emit 37092}# #{x 37588}#))) (let ((#{tmp 37590}# ($sc-dispatch #{tmp 37589}# 'each-any))) (if #{tmp 37590}# (@apply (lambda (#{ g37047 37592}#) (cons '#(syntax-object append ((top) #(ribcage () () ()) #(ribcage #(#{ g37047}#) #((m37048 top)) #("i37052")) #(ribcage #(x) #((top)) #("i37045")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i37007")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i36828" "i36826" "i36824" "i36822" "i36820" "i36818" "i36816")) #(ribcage (quasiquote) ((top)) (((hygiene guile) . #(syntax-object quasiquote ((top)) (hygiene guile)))))) (hygiene guile)) #{ g37047 37592}#)) #{tmp 37590}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp 37589}#))))) #{tmp 37584}#) (let ((#{tmp 37593}# ($sc-dispatch #{x 37553}# '(#(atom "vector") . each-any)))) (if #{tmp 37593}# (@apply (lambda (#{x 37597}#) (let ((#{tmp 37598}# (map #{emit 37092}# #{x 37597}#))) (let ((#{tmp 37599}# ($sc-dispatch #{tmp 37598}# 'each-any))) (if #{tmp 37599}# (@apply (lambda (#{ g37059 37601}#) (cons '#(syntax-object vector ((top) #(ribcage () () ()) #(ribcage #(#{ g37059}#) #((m37060 top)) #("i37064")) #(ribcage #(x) #((top)) #("i37057")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i37007")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i36828" "i36826" "i36824" "i36822" "i36820" "i36818" "i36816")) #(ribcage (quasiquote) ((top)) (((hygiene guile) . #(syntax-object quasiquote ((top)) (hygiene guile)))))) (hygiene guile)) #{ g37059 37601}#)) #{tmp 37599}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp 37598}#))))) #{tmp 37593}#) (let ((#{tmp 37602}# ($sc-dispatch #{x 37553}# '(#(atom "list->vector") any)))) (if #{tmp 37602}# (@apply (lambda (#{x 37606}#) (let ((#{tmp 37607}# (#{emit 37092}# #{x 37606}#))) (list '#(syntax-object list->vector ((top) #(ribcage () () ()) #(ribcage #(#{ g37071}#) #((m37072 top)) #("i37075")) #(ribcage #(x) #((top)) #("i37069")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i37007")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i36828" "i36826" "i36824" "i36822" "i36820" "i36818" "i36816")) #(ribcage (quasiquote) ((top)) (((hygiene guile) . #(syntax-object quasiquote ((top)) (hygiene guile)))))) (hygiene guile)) #{tmp 37607}#))) #{tmp 37602}#) (let ((#{tmp 37610}# ($sc-dispatch #{x 37553}# '(#(atom "value") any)))) (if #{tmp 37610}# (@apply (lambda (#{x 37614}#) #{x 37614}#) #{tmp 37610}#) (syntax-violation #f "source expression failed to match any pattern" #{x 37553}#)))))))))))))))))) (lambda (#{x 37093}#) (let ((#{tmp 37095}# ($sc-dispatch #{x 37093}# '(_ any)))) (if #{tmp 37095}# (@apply (lambda (#{e 37099}#) (#{emit 37092}# (#{quasi 37086}# #{e 37099}# 0))) #{tmp 37095}#) (syntax-violation #f "source expression failed to match any pattern" #{x 37093}#))))))) (define include (make-syntax-transformer 'include 'macro (lambda (#{x 37670}#) (letrec* ((#{read-file 37671}# (lambda (#{fn 37787}# #{k 37788}#) (let ((#{p 37789}# (open-input-file #{fn 37787}#))) (letrec* ((#{f 37790}# (lambda (#{x 37847}# #{result 37848}#) (if (eof-object? #{x 37847}#) (begin (close-input-port #{p 37789}#) (reverse #{result 37848}#)) (#{f 37790}# (read #{p 37789}#) (cons (datum->syntax #{k 37788}# #{x 37847}#) #{result 37848}#)))))) (#{f 37790}# (read #{p 37789}#) '())))))) (let ((#{tmp 37673}# ($sc-dispatch #{x 37670}# '(any any)))) (if #{tmp 37673}# (@apply (lambda (#{k 37677}# #{filename 37678}#) (let ((#{fn 37679}# (syntax->datum #{filename 37678}#))) (let ((#{tmp 37680}# (#{read-file 37671}# #{fn 37679}# #{filename 37678}#))) (let ((#{tmp 37681}# ($sc-dispatch #{tmp 37680}# 'each-any))) (if #{tmp 37681}# (@apply (lambda (#{exp 37699}#) (cons '#(syntax-object begin ((top) #(ribcage () () ()) #(ribcage #(exp) #((top)) #("i37667")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(fn) #((top)) #("i37662")) #(ribcage #(k filename) #((top) (top)) #("i37658" "i37659")) #(ribcage (read-file) ((top)) ("i37642")) #(ribcage #(x) #((top)) #("i37641")) #(ribcage (include) ((top)) (((hygiene guile) . #(syntax-object include ((top)) (hygiene guile)))))) (hygiene guile)) #{exp 37699}#)) #{tmp 37681}#) (syntax-violation #f "source expression failed to match any pattern" #{tmp 37680}#)))))) #{tmp 37673}#) (syntax-violation #f "source expression failed to match any pattern" #{x 37670}#))))))) (define include-from-path (make-syntax-transformer 'include-from-path 'macro (lambda (#{x 37868}#) (let ((#{tmp 37870}# ($sc-dispatch #{x 37868}# '(any any)))) (if #{tmp 37870}# (@apply (lambda (#{k 37874}# #{filename 37875}#) (let ((#{fn 37876}# (syntax->datum #{filename 37875}#))) (let ((#{tmp 37877}# (datum->syntax #{filename 37875}# (let ((#{t 37880}# (%search-load-path #{fn 37876}#))) (if #{t 37880}# #{t 37880}# (syntax-violation 'include-from-path "file not found in path" #{x 37868}# #{filename 37875}#)))))) (list '#(syntax-object include ((top) #(ribcage () () ()) #(ribcage #(fn) #((top)) #("i37862")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(fn) #((top)) #("i37858")) #(ribcage #(k filename) #((top) (top)) #("i37854" "i37855")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i37851")) #(ribcage (include-from-path) ((top)) (((hygiene guile) . #(syntax-object include-from-path ((top)) (hygiene guile)))))) (hygiene guile)) #{tmp 37877}#)))) #{tmp 37870}#) (syntax-violation #f "source expression failed to match any pattern" #{x 37868}#)))))) (define unquote (make-syntax-transformer 'unquote 'macro (lambda (#{x 37890}#) (syntax-violation 'unquote "expression not valid outside of quasiquote" #{x 37890}#)))) (define unquote-splicing (make-syntax-transformer 'unquote-splicing 'macro (lambda (#{x 37894}#) (syntax-violation 'unquote-splicing "expression not valid outside of quasiquote" #{x 37894}#)))) (define case (make-syntax-transformer 'case 'macro (lambda (#{x 37951}#) (let ((#{tmp 37953}# ($sc-dispatch #{x 37951}# '(_ any any . each-any)))) (if #{tmp 37953}# (@apply (lambda (#{e 37957}# #{m1 37958}# #{m2 37959}#) (let ((#{tmp 37960}# (letrec* ((#{f 38021}# (lambda (#{clause 38024}# #{clauses 38025}#) (if (null? #{clauses 38025}#) (let ((#{tmp 38027}# ($sc-dispatch #{clause 38024}# '(#(free-id #(syntax-object else ((top) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) #("i37910" "i37911" "i37912")) #(ribcage #(e m1 m2) #((top) (top) (top)) #("i37900" "i37901" "i37902")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i37897")) #(ribcage (case) ((top)) (((hygiene guile) . #(syntax-object case ((top)) (hygiene guile)))))) (hygiene guile))) any . each-any)))) (if #{tmp 38027}# (@apply (lambda (#{e1 38031}# #{e2 38032}#) (cons '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) #("i37919" "i37920")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) #("i37910" "i37911" "i37912")) #(ribcage #(e m1 m2) #((top) (top) (top)) #("i37900" "i37901" "i37902")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i37897")) #(ribcage (case) ((top)) (((hygiene guile) . #(syntax-object case ((top)) (hygiene guile)))))) (hygiene guile)) (cons #{e1 38031}# #{e2 38032}#))) #{tmp 38027}#) (let ((#{tmp 38033}# ($sc-dispatch #{clause 38024}# '(each-any any . each-any)))) (if #{tmp 38033}# (@apply (lambda (#{k 38037}# #{e1 38038}# #{e2 38039}#) (list '#(syntax-object if ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i37925" "i37926" "i37927")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) #("i37910" "i37911" "i37912")) #(ribcage #(e m1 m2) #((top) (top) (top)) #("i37900" "i37901" "i37902")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i37897")) #(ribcage (case) ((top)) (((hygiene guile) . #(syntax-object case ((top)) (hygiene guile)))))) (hygiene guile)) (list '#(syntax-object memv ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i37925" "i37926" "i37927")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) #("i37910" "i37911" "i37912")) #(ribcage #(e m1 m2) #((top) (top) (top)) #("i37900" "i37901" "i37902")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i37897")) #(ribcage (case) ((top)) (((hygiene guile) . #(syntax-object case ((top)) (hygiene guile)))))) (hygiene guile)) '#(syntax-object t ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i37925" "i37926" "i37927")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) #("i37910" "i37911" "i37912")) #(ribcage #(e m1 m2) #((top) (top) (top)) #("i37900" "i37901" "i37902")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i37897")) #(ribcage (case) ((top)) (((hygiene guile) . #(syntax-object case ((top)) (hygiene guile)))))) (hygiene guile)) (list '#(syntax-object quote ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i37925" "i37926" "i37927")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) #("i37910" "i37911" "i37912")) #(ribcage #(e m1 m2) #((top) (top) (top)) #("i37900" "i37901" "i37902")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i37897")) #(ribcage (case) ((top)) (((hygiene guile) . #(syntax-object case ((top)) (hygiene guile)))))) (hygiene guile)) #{k 38037}#)) (cons '#(syntax-object begin ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i37925" "i37926" "i37927")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) #("i37910" "i37911" "i37912")) #(ribcage #(e m1 m2) #((top) (top) (top)) #("i37900" "i37901" "i37902")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i37897")) #(ribcage (case) ((top)) (((hygiene guile) . #(syntax-object case ((top)) (hygiene guile)))))) (hygiene guile)) (cons #{e1 38038}# #{e2 38039}#)))) #{tmp 38033}#) (syntax-violation 'case "bad clause" #{x 37951}# #{clause 38024}#))))) (let ((#{tmp 38047}# (#{f 38021}# (car #{clauses 38025}#) (cdr #{clauses 38025}#)))) (let ((#{tmp 38050}# ($sc-dispatch #{clause 38024}# '(each-any any . each-any)))) (if #{tmp 38050}# (@apply (lambda (#{k 38054}# #{e1 38055}# #{e2 38056}#) (list '#(syntax-object if ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i37941" "i37942" "i37943")) #(ribcage () () ()) #(ribcage #(rest) #((top)) #("i37937")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) #("i37910" "i37911" "i37912")) #(ribcage #(e m1 m2) #((top) (top) (top)) #("i37900" "i37901" "i37902")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i37897")) #(ribcage (case) ((top)) (((hygiene guile) . #(syntax-object case ((top)) (hygiene guile)))))) (hygiene guile)) (list '#(syntax-object memv ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i37941" "i37942" "i37943")) #(ribcage () () ()) #(ribcage #(rest) #((top)) #("i37937")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) #("i37910" "i37911" "i37912")) #(ribcage #(e m1 m2) #((top) (top) (top)) #("i37900" "i37901" "i37902")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i37897")) #(ribcage (case) ((top)) (((hygiene guile) . #(syntax-object case ((top)) (hygiene guile)))))) (hygiene guile)) '#(syntax-object t ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i37941" "i37942" "i37943")) #(ribcage () () ()) #(ribcage #(rest) #((top)) #("i37937")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) #("i37910" "i37911" "i37912")) #(ribcage #(e m1 m2) #((top) (top) (top)) #("i37900" "i37901" "i37902")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i37897")) #(ribcage (case) ((top)) (((hygiene guile) . #(syntax-object case ((top)) (hygiene guile)))))) (hygiene guile)) (list '#(syntax-object quote ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i37941" "i37942" "i37943")) #(ribcage () () ()) #(ribcage #(rest) #((top)) #("i37937")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) #("i37910" "i37911" "i37912")) #(ribcage #(e m1 m2) #((top) (top) (top)) #("i37900" "i37901" "i37902")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i37897")) #(ribcage (case) ((top)) (((hygiene guile) . #(syntax-object case ((top)) (hygiene guile)))))) (hygiene guile)) #{k 38054}#)) (cons '#(syntax-object begin ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i37941" "i37942" "i37943")) #(ribcage () () ()) #(ribcage #(rest) #((top)) #("i37937")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) #("i37910" "i37911" "i37912")) #(ribcage #(e m1 m2) #((top) (top) (top)) #("i37900" "i37901" "i37902")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i37897")) #(ribcage (case) ((top)) (((hygiene guile) . #(syntax-object case ((top)) (hygiene guile)))))) (hygiene guile)) (cons #{e1 38055}# #{e2 38056}#)) #{tmp 38047}#)) #{tmp 38050}#) (syntax-violation 'case "bad clause" #{x 37951}# #{clause 38024}#)))))))) (#{f 38021}# #{m1 37958}# #{m2 37959}#)))) (let ((#{body 37961}# #{tmp 37960}#)) (list '#(syntax-object let ((top) #(ribcage () () ()) #(ribcage #(body) #((top)) #("i37908")) #(ribcage #(e m1 m2) #((top) (top) (top)) #("i37900" "i37901" "i37902")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i37897")) #(ribcage (case) ((top)) (((hygiene guile) . #(syntax-object case ((top)) (hygiene guile)))))) (hygiene guile)) (list (list '#(syntax-object t ((top) #(ribcage () () ()) #(ribcage #(body) #((top)) #("i37908")) #(ribcage #(e m1 m2) #((top) (top) (top)) #("i37900" "i37901" "i37902")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i37897")) #(ribcage (case) ((top)) (((hygiene guile) . #(syntax-object case ((top)) (hygiene guile)))))) (hygiene guile)) #{e 37957}#)) #{body 37961}#)))) #{tmp 37953}#) (syntax-violation #f "source expression failed to match any pattern" #{x 37951}#)))))) (define make-variable-transformer (lambda (#{proc 38075}#) (if (procedure? #{proc 38075}#) (letrec* ((#{trans 38076}# (lambda (#{x 38082}#) (#{proc 38075}# #{x 38082}#)))) (begin (set-procedure-property! #{trans 38076}# 'variable-transformer #t) #{trans 38076}#)) (error "variable transformer not a procedure" #{proc 38075}#)))) (define identifier-syntax (make-syntax-transformer 'identifier-syntax 'macro (lambda (#{x 38115}#) (let ((#{tmp 38117}# ($sc-dispatch #{x 38115}# '(_ any)))) (if #{tmp 38117}# (@apply (lambda (#{e 38121}#) (list '#(syntax-object lambda ((top) #(ribcage #(e) #((top)) #("i38090")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i38087")) #(ribcage (identifier-syntax) ((top)) (((hygiene guile) . #(syntax-object identifier-syntax ((top)) (hygiene guile)))))) (hygiene guile)) '(#(syntax-object x ((top) #(ribcage #(e) #((top)) #("i38090")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i38087")) #(ribcage (identifier-syntax) ((top)) (((hygiene guile) . #(syntax-object identifier-syntax ((top)) (hygiene guile)))))) (hygiene guile))) '#((#(syntax-object macro-type ((top) #(ribcage #(e) #((top)) #("i38090")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i38087")) #(ribcage (identifier-syntax) ((top)) (((hygiene guile) . #(syntax-object identifier-syntax ((top)) (hygiene guile)))))) (hygiene guile)) . #(syntax-object identifier-syntax ((top) #(ribcage #(e) #((top)) #("i38090")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i38087")) #(ribcage (identifier-syntax) ((top)) (((hygiene guile) . #(syntax-object identifier-syntax ((top)) (hygiene guile)))))) (hygiene guile)))) (list '#(syntax-object syntax-case ((top) #(ribcage #(e) #((top)) #("i38090")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i38087")) #(ribcage (identifier-syntax) ((top)) (((hygiene guile) . #(syntax-object identifier-syntax ((top)) (hygiene guile)))))) (hygiene guile)) '#(syntax-object x ((top) #(ribcage #(e) #((top)) #("i38090")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i38087")) #(ribcage (identifier-syntax) ((top)) (((hygiene guile) . #(syntax-object identifier-syntax ((top)) (hygiene guile)))))) (hygiene guile)) '() (list '#(syntax-object id ((top) #(ribcage #(e) #((top)) #("i38090")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i38087")) #(ribcage (identifier-syntax) ((top)) (((hygiene guile) . #(syntax-object identifier-syntax ((top)) (hygiene guile)))))) (hygiene guile)) '(#(syntax-object identifier? ((top) #(ribcage #(e) #((top)) #("i38090")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i38087")) #(ribcage (identifier-syntax) ((top)) (((hygiene guile) . #(syntax-object identifier-syntax ((top)) (hygiene guile)))))) (hygiene guile)) (#(syntax-object syntax ((top) #(ribcage #(e) #((top)) #("i38090")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i38087")) #(ribcage (identifier-syntax) ((top)) (((hygiene guile) . #(syntax-object identifier-syntax ((top)) (hygiene guile)))))) (hygiene guile)) #(syntax-object id ((top) #(ribcage #(e) #((top)) #("i38090")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i38087")) #(ribcage (identifier-syntax) ((top)) (((hygiene guile) . #(syntax-object identifier-syntax ((top)) (hygiene guile)))))) (hygiene guile)))) (list '#(syntax-object syntax ((top) #(ribcage #(e) #((top)) #("i38090")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i38087")) #(ribcage (identifier-syntax) ((top)) (((hygiene guile) . #(syntax-object identifier-syntax ((top)) (hygiene guile)))))) (hygiene guile)) #{e 38121}#)) (list '(#(syntax-object _ ((top) #(ribcage #(e) #((top)) #("i38090")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i38087")) #(ribcage (identifier-syntax) ((top)) (((hygiene guile) . #(syntax-object identifier-syntax ((top)) (hygiene guile)))))) (hygiene guile)) #(syntax-object x ((top) #(ribcage #(e) #((top)) #("i38090")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i38087")) #(ribcage (identifier-syntax) ((top)) (((hygiene guile) . #(syntax-object identifier-syntax ((top)) (hygiene guile)))))) (hygiene guile)) #(syntax-object ... ((top) #(ribcage #(e) #((top)) #("i38090")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i38087")) #(ribcage (identifier-syntax) ((top)) (((hygiene guile) . #(syntax-object identifier-syntax ((top)) (hygiene guile)))))) (hygiene guile))) (list '#(syntax-object syntax ((top) #(ribcage #(e) #((top)) #("i38090")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i38087")) #(ribcage (identifier-syntax) ((top)) (((hygiene guile) . #(syntax-object identifier-syntax ((top)) (hygiene guile)))))) (hygiene guile)) (cons #{e 38121}# '(#(syntax-object x ((top) #(ribcage #(e) #((top)) #("i38090")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i38087")) #(ribcage (identifier-syntax) ((top)) (((hygiene guile) . #(syntax-object identifier-syntax ((top)) (hygiene guile)))))) (hygiene guile)) #(syntax-object ... ((top) #(ribcage #(e) #((top)) #("i38090")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i38087")) #(ribcage (identifier-syntax) ((top)) (((hygiene guile) . #(syntax-object identifier-syntax ((top)) (hygiene guile)))))) (hygiene guile))))))))) #{tmp 38117}#) (let ((#{tmp 38122}# ($sc-dispatch #{x 38115}# '(_ (any any) ((#(free-id #(syntax-object set! ((top) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i38087")) #(ribcage (identifier-syntax) ((top)) (((hygiene guile) . #(syntax-object identifier-syntax ((top)) (hygiene guile)))))) (hygiene guile))) any any) any))))) (if (if #{tmp 38122}# (@apply (lambda (#{id 38126}# #{exp1 38127}# #{var 38128}# #{val 38129}# #{exp2 38130}#) (if (identifier? #{id 38126}#) (identifier? #{var 38128}#) #f)) #{tmp 38122}#) #f) (@apply (lambda (#{id 38131}# #{exp1 38132}# #{var 38133}# #{val 38134}# #{exp2 38135}#) (list '#(syntax-object make-variable-transformer ((top) #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) #("i38105" "i38106" "i38107" "i38108" "i38109")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i38087")) #(ribcage (identifier-syntax) ((top)) (((hygiene guile) . #(syntax-object identifier-syntax ((top)) (hygiene guile)))))) (hygiene guile)) (list '#(syntax-object lambda ((top) #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) #("i38105" "i38106" "i38107" "i38108" "i38109")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i38087")) #(ribcage (identifier-syntax) ((top)) (((hygiene guile) . #(syntax-object identifier-syntax ((top)) (hygiene guile)))))) (hygiene guile)) '(#(syntax-object x ((top) #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) #("i38105" "i38106" "i38107" "i38108" "i38109")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i38087")) #(ribcage (identifier-syntax) ((top)) (((hygiene guile) . #(syntax-object identifier-syntax ((top)) (hygiene guile)))))) (hygiene guile))) '#((#(syntax-object macro-type ((top) #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) #("i38105" "i38106" "i38107" "i38108" "i38109")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i38087")) #(ribcage (identifier-syntax) ((top)) (((hygiene guile) . #(syntax-object identifier-syntax ((top)) (hygiene guile)))))) (hygiene guile)) . #(syntax-object variable-transformer ((top) #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) #("i38105" "i38106" "i38107" "i38108" "i38109")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i38087")) #(ribcage (identifier-syntax) ((top)) (((hygiene guile) . #(syntax-object identifier-syntax ((top)) (hygiene guile)))))) (hygiene guile)))) (list '#(syntax-object syntax-case ((top) #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) #("i38105" "i38106" "i38107" "i38108" "i38109")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i38087")) #(ribcage (identifier-syntax) ((top)) (((hygiene guile) . #(syntax-object identifier-syntax ((top)) (hygiene guile)))))) (hygiene guile)) '#(syntax-object x ((top) #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) #("i38105" "i38106" "i38107" "i38108" "i38109")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i38087")) #(ribcage (identifier-syntax) ((top)) (((hygiene guile) . #(syntax-object identifier-syntax ((top)) (hygiene guile)))))) (hygiene guile)) '(#(syntax-object set! ((top) #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) #("i38105" "i38106" "i38107" "i38108" "i38109")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i38087")) #(ribcage (identifier-syntax) ((top)) (((hygiene guile) . #(syntax-object identifier-syntax ((top)) (hygiene guile)))))) (hygiene guile))) (list (list '#(syntax-object set! ((top) #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) #("i38105" "i38106" "i38107" "i38108" "i38109")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i38087")) #(ribcage (identifier-syntax) ((top)) (((hygiene guile) . #(syntax-object identifier-syntax ((top)) (hygiene guile)))))) (hygiene guile)) #{var 38133}# #{val 38134}#) (list '#(syntax-object syntax ((top) #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) #("i38105" "i38106" "i38107" "i38108" "i38109")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i38087")) #(ribcage (identifier-syntax) ((top)) (((hygiene guile) . #(syntax-object identifier-syntax ((top)) (hygiene guile)))))) (hygiene guile)) #{exp2 38135}#)) (list (cons #{id 38131}# '(#(syntax-object x ((top) #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) #("i38105" "i38106" "i38107" "i38108" "i38109")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i38087")) #(ribcage (identifier-syntax) ((top)) (((hygiene guile) . #(syntax-object identifier-syntax ((top)) (hygiene guile)))))) (hygiene guile)) #(syntax-object ... ((top) #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) #("i38105" "i38106" "i38107" "i38108" "i38109")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i38087")) #(ribcage (identifier-syntax) ((top)) (((hygiene guile) . #(syntax-object identifier-syntax ((top)) (hygiene guile)))))) (hygiene guile)))) (list '#(syntax-object syntax ((top) #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) #("i38105" "i38106" "i38107" "i38108" "i38109")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i38087")) #(ribcage (identifier-syntax) ((top)) (((hygiene guile) . #(syntax-object identifier-syntax ((top)) (hygiene guile)))))) (hygiene guile)) (cons #{exp1 38132}# '(#(syntax-object x ((top) #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) #("i38105" "i38106" "i38107" "i38108" "i38109")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i38087")) #(ribcage (identifier-syntax) ((top)) (((hygiene guile) . #(syntax-object identifier-syntax ((top)) (hygiene guile)))))) (hygiene guile)) #(syntax-object ... ((top) #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) #("i38105" "i38106" "i38107" "i38108" "i38109")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i38087")) #(ribcage (identifier-syntax) ((top)) (((hygiene guile) . #(syntax-object identifier-syntax ((top)) (hygiene guile)))))) (hygiene guile)))))) (list #{id 38131}# (list '#(syntax-object identifier? ((top) #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) #("i38105" "i38106" "i38107" "i38108" "i38109")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i38087")) #(ribcage (identifier-syntax) ((top)) (((hygiene guile) . #(syntax-object identifier-syntax ((top)) (hygiene guile)))))) (hygiene guile)) (list '#(syntax-object syntax ((top) #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) #("i38105" "i38106" "i38107" "i38108" "i38109")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i38087")) #(ribcage (identifier-syntax) ((top)) (((hygiene guile) . #(syntax-object identifier-syntax ((top)) (hygiene guile)))))) (hygiene guile)) #{id 38131}#)) (list '#(syntax-object syntax ((top) #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) #("i38105" "i38106" "i38107" "i38108" "i38109")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i38087")) #(ribcage (identifier-syntax) ((top)) (((hygiene guile) . #(syntax-object identifier-syntax ((top)) (hygiene guile)))))) (hygiene guile)) #{exp1 38132}#)))))) #{tmp 38122}#) (syntax-violation #f "source expression failed to match any pattern" #{x 38115}#)))))))) (define define* (make-syntax-transformer 'define* 'macro (lambda (#{x 38168}#) (let ((#{tmp 38170}# ($sc-dispatch #{x 38168}# '(_ (any . any) any . each-any)))) (if #{tmp 38170}# (@apply (lambda (#{id 38174}# #{args 38175}# #{b0 38176}# #{b1 38177}#) (list '#(syntax-object define ((top) #(ribcage #(id args b0 b1) #((top) (top) (top) (top)) #("i38150" "i38151" "i38152" "i38153")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i38147")) #(ribcage (define*) ((top)) (((hygiene guile) . #(syntax-object define* ((top)) (hygiene guile)))))) (hygiene guile)) #{id 38174}# (cons '#(syntax-object lambda* ((top) #(ribcage #(id args b0 b1) #((top) (top) (top) (top)) #("i38150" "i38151" "i38152" "i38153")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i38147")) #(ribcage (define*) ((top)) (((hygiene guile) . #(syntax-object define* ((top)) (hygiene guile)))))) (hygiene guile)) (cons #{args 38175}# (cons #{b0 38176}# #{b1 38177}#))))) #{tmp 38170}#) (let ((#{tmp 38178}# ($sc-dispatch #{x 38168}# '(_ any any)))) (if (if #{tmp 38178}# (@apply (lambda (#{id 38182}# #{val 38183}#) (identifier? '#(syntax-object x ((top) #(ribcage #(id val) #((top) (top)) #("i38160" "i38161")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i38147")) #(ribcage (define*) ((top)) (((hygiene guile) . #(syntax-object define* ((top)) (hygiene guile)))))) (hygiene guile)))) #{tmp 38178}#) #f) (@apply (lambda (#{id 38184}# #{val 38185}#) (list '#(syntax-object define ((top) #(ribcage #(id val) #((top) (top)) #("i38164" "i38165")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i38147")) #(ribcage (define*) ((top)) (((hygiene guile) . #(syntax-object define* ((top)) (hygiene guile)))))) (hygiene guile)) #{id 38184}# #{val 38185}#)) #{tmp 38178}#) (syntax-violation #f "source expression failed to match any pattern" #{x 38168}#))))))))