|
| From: | Andy Wingo |
| Subject: | [Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.3-15-g440ac79 |
| Date: | Wed, 16 Nov 2011 19:16:28 +0000 |
This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".
http://git.savannah.gnu.org/cgit/guile.git/commit/?id=440ac793c4f32d1eeef89eb9974be39270c18069
The branch, stable-2.0 has been updated
via 440ac793c4f32d1eeef89eb9974be39270c18069 (commit)
via 78a474558aa1261c51f443d464e00a3105f90b38 (commit)
from 46e0923d3526679701113c9ae01df1ba3a9ea0f5 (commit)
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.
- Log -----------------------------------------------------------------
commit 440ac793c4f32d1eeef89eb9974be39270c18069
Author: Andy Wingo <address@hidden>
Date: Wed Nov 16 20:15:26 2011 +0100
eval-when tidying up
* module/ice-9/psyntax.scm: Rename expand-when-list to parse-when-list,
and simplify to compare literal values.
* module/ice-9/psyntax-pp.scm: Regenerate.
commit 78a474558aa1261c51f443d464e00a3105f90b38
Author: Andy Wingo <address@hidden>
Date: Wed Nov 16 20:08:40 2011 +0100
psyntax: s/chi/expand/g
* module/ice-9/psyntax.scm: Rename all instances of "chi" to "expand".
Addded a hack to expand-eval-when that will be fixed later.
* module/ice-9/psyntax-pp.scm: Regenerated.
-----------------------------------------------------------------------
Summary of changes:
module/ice-9/psyntax-pp.scm |59485 ++++++++++++++++---------------------------
module/ice-9/psyntax.scm | 362 +-
2 files changed, 21939 insertions(+), 37908 deletions(-)
diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm
index de83209..644ebf5 100644
--- a/module/ice-9/psyntax-pp.scm
+++ b/module/ice-9/psyntax-pp.scm
@@ -2,1212 +2,1211 @@
(if #f #f)
(letrec*
- ((#{top-level-eval-hook 4273}#
- (lambda (#{x 28142}# #{mod 28143}#)
- (primitive-eval #{x 28142}#)))
- (#{maybe-name-value! 4278}#
- (lambda (#{name 16638}# #{val 16639}#)
- (if (if (struct? #{val 16639}#)
- (eq? (struct-vtable #{val 16639}#)
+ ((#{top-level-eval-hook 4261}#
+ (lambda (#{x 28515}# #{mod 28516}#)
+ (primitive-eval #{x 28515}#)))
+ (#{maybe-name-value! 4266}#
+ (lambda (#{name 16653}# #{val 16654}#)
+ (if (if (struct? #{val 16654}#)
+ (eq? (struct-vtable #{val 16654}#)
(vector-ref %expanded-vtables 13))
#f)
- (let ((#{meta 16646}# (struct-ref #{val 16639}# 1)))
- (if (not (assq 'name #{meta 16646}#))
- (let ((#{v 16651}#
- (cons (cons 'name #{name 16638}#) #{meta 16646}#)))
- (struct-set! #{val 16639}# 1 #{v 16651}#)))))))
- (#{build-application 4280}#
- (lambda (#{source 16363}#
- #{fun-exp 16364}#
- #{arg-exps 16365}#)
+ (let ((#{meta 16661}# (struct-ref #{val 16654}# 1)))
+ (if (not (assq 'name #{meta 16661}#))
+ (let ((#{v 16666}#
+ (cons (cons 'name #{name 16653}#) #{meta 16661}#)))
+ (struct-set! #{val 16654}# 1 #{v 16666}#)))))))
+ (#{build-application 4268}#
+ (lambda (#{source 16378}#
+ #{fun-exp 16379}#
+ #{arg-exps 16380}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
- #{source 16363}#
- #{fun-exp 16364}#
- #{arg-exps 16365}#)))
- (#{build-conditional 4281}#
- (lambda (#{source 16371}#
- #{test-exp 16372}#
- #{then-exp 16373}#
- #{else-exp 16374}#)
+ #{source 16378}#
+ #{fun-exp 16379}#
+ #{arg-exps 16380}#)))
+ (#{build-conditional 4269}#
+ (lambda (#{source 16386}#
+ #{test-exp 16387}#
+ #{then-exp 16388}#
+ #{else-exp 16389}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 10)
- #{source 16371}#
- #{test-exp 16372}#
- #{then-exp 16373}#
- #{else-exp 16374}#)))
- (#{build-dynlet 4282}#
- (lambda (#{source 16381}#
- #{fluids 16382}#
- #{vals 16383}#
- #{body 16384}#)
+ #{source 16386}#
+ #{test-exp 16387}#
+ #{then-exp 16388}#
+ #{else-exp 16389}#)))
+ (#{build-dynlet 4270}#
+ (lambda (#{source 16396}#
+ #{fluids 16397}#
+ #{vals 16398}#
+ #{body 16399}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 17)
- #{source 16381}#
- #{fluids 16382}#
- #{vals 16383}#
- #{body 16384}#)))
- (#{build-lexical-reference 4283}#
- (lambda (#{type 28144}#
- #{source 28145}#
- #{name 28146}#
- #{var 28147}#)
+ #{source 16396}#
+ #{fluids 16397}#
+ #{vals 16398}#
+ #{body 16399}#)))
+ (#{build-lexical-reference 4271}#
+ (lambda (#{type 28517}#
+ #{source 28518}#
+ #{name 28519}#
+ #{var 28520}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
- #{source 28145}#
- #{name 28146}#
- #{var 28147}#)))
- (#{build-lexical-assignment 4284}#
- (lambda (#{source 16391}#
- #{name 16392}#
- #{var 16393}#
- #{exp 16394}#)
+ #{source 28518}#
+ #{name 28519}#
+ #{var 28520}#)))
+ (#{build-lexical-assignment 4272}#
+ (lambda (#{source 16406}#
+ #{name 16407}#
+ #{var 16408}#
+ #{exp 16409}#)
(begin
- (if (if (struct? #{exp 16394}#)
- (eq? (struct-vtable #{exp 16394}#)
+ (if (if (struct? #{exp 16409}#)
+ (eq? (struct-vtable #{exp 16409}#)
(vector-ref %expanded-vtables 13))
#f)
- (let ((#{meta 16410}# (struct-ref #{exp 16394}# 1)))
- (if (not (assq 'name #{meta 16410}#))
- (let ((#{v 16417}#
- (cons (cons 'name #{name 16392}#) #{meta 16410}#)))
- (struct-set! #{exp 16394}# 1 #{v 16417}#)))))
+ (let ((#{meta 16425}# (struct-ref #{exp 16409}# 1)))
+ (if (not (assq 'name #{meta 16425}#))
+ (let ((#{v 16432}#
+ (cons (cons 'name #{name 16407}#) #{meta 16425}#)))
+ (struct-set! #{exp 16409}# 1 #{v 16432}#)))))
(make-struct/no-tail
(vector-ref %expanded-vtables 4)
- #{source 16391}#
- #{name 16392}#
- #{var 16393}#
- #{exp 16394}#))))
- (#{analyze-variable 4285}#
- (lambda (#{mod 28153}#
- #{var 28154}#
- #{modref-cont 28155}#
- #{bare-cont 28156}#)
- (if (not #{mod 28153}#)
- (#{bare-cont 28156}# #{var 28154}#)
- (let ((#{kind 28157}# (car #{mod 28153}#))
- (#{mod 28158}# (cdr #{mod 28153}#)))
- (if (eqv? #{kind 28157}# 'public)
- (#{modref-cont 28155}#
- #{mod 28158}#
- #{var 28154}#
+ #{source 16406}#
+ #{name 16407}#
+ #{var 16408}#
+ #{exp 16409}#))))
+ (#{analyze-variable 4273}#
+ (lambda (#{mod 28526}#
+ #{var 28527}#
+ #{modref-cont 28528}#
+ #{bare-cont 28529}#)
+ (if (not #{mod 28526}#)
+ (#{bare-cont 28529}# #{var 28527}#)
+ (let ((#{kind 28530}# (car #{mod 28526}#))
+ (#{mod 28531}# (cdr #{mod 28526}#)))
+ (if (eqv? #{kind 28530}# 'public)
+ (#{modref-cont 28528}#
+ #{mod 28531}#
+ #{var 28527}#
#t)
- (if (eqv? #{kind 28157}# 'private)
+ (if (eqv? #{kind 28530}# 'private)
(if (not (equal?
- #{mod 28158}#
+ #{mod 28531}#
(module-name (current-module))))
- (#{modref-cont 28155}#
- #{mod 28158}#
- #{var 28154}#
+ (#{modref-cont 28528}#
+ #{mod 28531}#
+ #{var 28527}#
#f)
- (#{bare-cont 28156}# #{var 28154}#))
- (if (eqv? #{kind 28157}# 'bare)
- (#{bare-cont 28156}# #{var 28154}#)
- (if (eqv? #{kind 28157}# 'hygiene)
+ (#{bare-cont 28529}# #{var 28527}#))
+ (if (eqv? #{kind 28530}# 'bare)
+ (#{bare-cont 28529}# #{var 28527}#)
+ (if (eqv? #{kind 28530}# 'hygiene)
(if (if (not (equal?
- #{mod 28158}#
+ #{mod 28531}#
(module-name (current-module))))
(module-variable
- (resolve-module #{mod 28158}#)
- #{var 28154}#)
+ (resolve-module #{mod 28531}#)
+ #{var 28527}#)
#f)
- (#{modref-cont 28155}#
- #{mod 28158}#
- #{var 28154}#
+ (#{modref-cont 28528}#
+ #{mod 28531}#
+ #{var 28527}#
#f)
- (#{bare-cont 28156}# #{var 28154}#))
+ (#{bare-cont 28529}# #{var 28527}#))
(syntax-violation
#f
"bad module kind"
- #{var 28154}#
- #{mod 28158}#)))))))))
- (#{build-global-reference 4286}#
- (lambda (#{source 28173}# #{var 28174}# #{mod 28175}#)
- (#{analyze-variable 4285}#
- #{mod 28175}#
- #{var 28174}#
- (lambda (#{mod 28178}# #{var 28179}# #{public? 28180}#)
+ #{var 28527}#
+ #{mod 28531}#)))))))))
+ (#{build-global-reference 4274}#
+ (lambda (#{source 28546}# #{var 28547}# #{mod 28548}#)
+ (#{analyze-variable 4273}#
+ #{mod 28548}#
+ #{var 28547}#
+ (lambda (#{mod 28551}# #{var 28552}# #{public? 28553}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 5)
- #{source 28173}#
- #{mod 28178}#
- #{var 28179}#
- #{public? 28180}#))
- (lambda (#{var 28188}#)
+ #{source 28546}#
+ #{mod 28551}#
+ #{var 28552}#
+ #{public? 28553}#))
+ (lambda (#{var 28561}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
- #{source 28173}#
- #{var 28188}#)))))
- (#{build-global-assignment 4287}#
- (lambda (#{source 16426}#
- #{var 16427}#
- #{exp 16428}#
- #{mod 16429}#)
+ #{source 28546}#
+ #{var 28561}#)))))
+ (#{build-global-assignment 4275}#
+ (lambda (#{source 16441}#
+ #{var 16442}#
+ #{exp 16443}#
+ #{mod 16444}#)
(begin
- (if (if (struct? #{exp 16428}#)
- (eq? (struct-vtable #{exp 16428}#)
+ (if (if (struct? #{exp 16443}#)
+ (eq? (struct-vtable #{exp 16443}#)
(vector-ref %expanded-vtables 13))
#f)
- (let ((#{meta 16445}# (struct-ref #{exp 16428}# 1)))
- (if (not (assq 'name #{meta 16445}#))
- (let ((#{v 16452}#
- (cons (cons 'name #{var 16427}#) #{meta 16445}#)))
- (struct-set! #{exp 16428}# 1 #{v 16452}#)))))
- (#{analyze-variable 4285}#
- #{mod 16429}#
- #{var 16427}#
- (lambda (#{mod 16457}# #{var 16458}# #{public? 16459}#)
+ (let ((#{meta 16460}# (struct-ref #{exp 16443}# 1)))
+ (if (not (assq 'name #{meta 16460}#))
+ (let ((#{v 16467}#
+ (cons (cons 'name #{var 16442}#) #{meta 16460}#)))
+ (struct-set! #{exp 16443}# 1 #{v 16467}#)))))
+ (#{analyze-variable 4273}#
+ #{mod 16444}#
+ #{var 16442}#
+ (lambda (#{mod 16472}# #{var 16473}# #{public? 16474}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 6)
- #{source 16426}#
- #{mod 16457}#
- #{var 16458}#
- #{public? 16459}#
- #{exp 16428}#))
- (lambda (#{var 16467}#)
+ #{source 16441}#
+ #{mod 16472}#
+ #{var 16473}#
+ #{public? 16474}#
+ #{exp 16443}#))
+ (lambda (#{var 16482}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 8)
- #{source 16426}#
- #{var 16467}#
- #{exp 16428}#))))))
- (#{build-global-definition 4288}#
- (lambda (#{source 28194}# #{var 28195}# #{exp 28196}#)
+ #{source 16441}#
+ #{var 16482}#
+ #{exp 16443}#))))))
+ (#{build-global-definition 4276}#
+ (lambda (#{source 28567}# #{var 28568}# #{exp 28569}#)
(begin
- (if (if (struct? #{exp 28196}#)
- (eq? (struct-vtable #{exp 28196}#)
+ (if (if (struct? #{exp 28569}#)
+ (eq? (struct-vtable #{exp 28569}#)
(vector-ref %expanded-vtables 13))
#f)
- (let ((#{meta 28212}# (struct-ref #{exp 28196}# 1)))
- (if (not (assq 'name #{meta 28212}#))
- (let ((#{v 28219}#
- (cons (cons 'name #{var 28195}#) #{meta 28212}#)))
- (struct-set! #{exp 28196}# 1 #{v 28219}#)))))
+ (let ((#{meta 28585}# (struct-ref #{exp 28569}# 1)))
+ (if (not (assq 'name #{meta 28585}#))
+ (let ((#{v 28592}#
+ (cons (cons 'name #{var 28568}#) #{meta 28585}#)))
+ (struct-set! #{exp 28569}# 1 #{v 28592}#)))))
(make-struct/no-tail
(vector-ref %expanded-vtables 9)
- #{source 28194}#
- #{var 28195}#
- #{exp 28196}#))))
- (#{build-simple-lambda 4289}#
- (lambda (#{src 16473}#
- #{req 16474}#
- #{rest 16475}#
- #{vars 16476}#
- #{meta 16477}#
- #{exp 16478}#)
- (let ((#{body 16484}#
+ #{source 28567}#
+ #{var 28568}#
+ #{exp 28569}#))))
+ (#{build-simple-lambda 4277}#
+ (lambda (#{src 16488}#
+ #{req 16489}#
+ #{rest 16490}#
+ #{vars 16491}#
+ #{meta 16492}#
+ #{exp 16493}#)
+ (let ((#{body 16499}#
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
- #{src 16473}#
- #{req 16474}#
+ #{src 16488}#
+ #{req 16489}#
#f
- #{rest 16475}#
+ #{rest 16490}#
#f
'()
- #{vars 16476}#
- #{exp 16478}#
+ #{vars 16491}#
+ #{exp 16493}#
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
- #{src 16473}#
- #{meta 16477}#
- #{body 16484}#))))
- (#{build-sequence 4294}#
- (lambda (#{src 28227}# #{exps 28228}#)
- (if (null? (cdr #{exps 28228}#))
- (car #{exps 28228}#)
+ #{src 16488}#
+ #{meta 16492}#
+ #{body 16499}#))))
+ (#{build-sequence 4282}#
+ (lambda (#{src 28600}# #{exps 28601}#)
+ (if (null? (cdr #{exps 28601}#))
+ (car #{exps 28601}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 12)
- #{src 28227}#
- #{exps 28228}#))))
- (#{build-let 4295}#
- (lambda (#{src 16496}#
- #{ids 16497}#
- #{vars 16498}#
- #{val-exps 16499}#
- #{body-exp 16500}#)
+ #{src 28600}#
+ #{exps 28601}#))))
+ (#{build-let 4283}#
+ (lambda (#{src 16511}#
+ #{ids 16512}#
+ #{vars 16513}#
+ #{val-exps 16514}#
+ #{body-exp 16515}#)
(begin
(for-each
- #{maybe-name-value! 4278}#
- #{ids 16497}#
- #{val-exps 16499}#)
- (if (null? #{vars 16498}#)
- #{body-exp 16500}#
+ #{maybe-name-value! 4266}#
+ #{ids 16512}#
+ #{val-exps 16514}#)
+ (if (null? #{vars 16513}#)
+ #{body-exp 16515}#
(make-struct/no-tail
(vector-ref %expanded-vtables 15)
- #{src 16496}#
- #{ids 16497}#
- #{vars 16498}#
- #{val-exps 16499}#
- #{body-exp 16500}#)))))
- (#{build-named-let 4296}#
- (lambda (#{src 16524}#
- #{ids 16525}#
- #{vars 16526}#
- #{val-exps 16527}#
- #{body-exp 16528}#)
- (let ((#{f 16529}# (car #{vars 16526}#))
- (#{f-name 16530}# (car #{ids 16525}#))
- (#{vars 16531}# (cdr #{vars 16526}#))
- (#{ids 16532}# (cdr #{ids 16525}#)))
- (let ((#{proc 16533}#
- (let ((#{body 16553}#
+ #{src 16511}#
+ #{ids 16512}#
+ #{vars 16513}#
+ #{val-exps 16514}#
+ #{body-exp 16515}#)))))
+ (#{build-named-let 4284}#
+ (lambda (#{src 16539}#
+ #{ids 16540}#
+ #{vars 16541}#
+ #{val-exps 16542}#
+ #{body-exp 16543}#)
+ (let ((#{f 16544}# (car #{vars 16541}#))
+ (#{f-name 16545}# (car #{ids 16540}#))
+ (#{vars 16546}# (cdr #{vars 16541}#))
+ (#{ids 16547}# (cdr #{ids 16540}#)))
+ (let ((#{proc 16548}#
+ (let ((#{body 16568}#
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
- #{src 16524}#
- #{ids 16532}#
+ #{src 16539}#
+ #{ids 16547}#
#f
#f
#f
'()
- #{vars 16531}#
- #{body-exp 16528}#
+ #{vars 16546}#
+ #{body-exp 16543}#
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
- #{src 16524}#
+ #{src 16539}#
'()
- #{body 16553}#))))
+ #{body 16568}#))))
(begin
- (if (if (struct? #{proc 16533}#)
- (eq? (struct-vtable #{proc 16533}#)
+ (if (if (struct? #{proc 16548}#)
+ (eq? (struct-vtable #{proc 16548}#)
(vector-ref %expanded-vtables 13))
#f)
- (let ((#{meta 16577}# (struct-ref #{proc 16533}# 1)))
- (if (not (assq 'name #{meta 16577}#))
- (let ((#{v 16584}#
- (cons (cons 'name #{f-name 16530}#)
- #{meta 16577}#)))
- (struct-set! #{proc 16533}# 1 #{v 16584}#)))))
+ (let ((#{meta 16592}# (struct-ref #{proc 16548}# 1)))
+ (if (not (assq 'name #{meta 16592}#))
+ (let ((#{v 16599}#
+ (cons (cons 'name #{f-name 16545}#)
+ #{meta 16592}#)))
+ (struct-set! #{proc 16548}# 1 #{v 16599}#)))))
(for-each
- #{maybe-name-value! 4278}#
- #{ids 16532}#
- #{val-exps 16527}#)
- (let ((#{names 16608}# (list #{f-name 16530}#))
- (#{gensyms 16609}# (list #{f 16529}#))
- (#{vals 16610}# (list #{proc 16533}#))
- (#{body 16611}#
- (let ((#{fun-exp 16615}#
+ #{maybe-name-value! 4266}#
+ #{ids 16547}#
+ #{val-exps 16542}#)
+ (let ((#{names 16623}# (list #{f-name 16545}#))
+ (#{gensyms 16624}# (list #{f 16544}#))
+ (#{vals 16625}# (list #{proc 16548}#))
+ (#{body 16626}#
+ (let ((#{fun-exp 16630}#
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
- #{src 16524}#
- #{f-name 16530}#
- #{f 16529}#)))
+ #{src 16539}#
+ #{f-name 16545}#
+ #{f 16544}#)))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
- #{src 16524}#
- #{fun-exp 16615}#
- #{val-exps 16527}#))))
+ #{src 16539}#
+ #{fun-exp 16630}#
+ #{val-exps 16542}#))))
(make-struct/no-tail
(vector-ref %expanded-vtables 16)
- #{src 16524}#
+ #{src 16539}#
#f
- #{names 16608}#
- #{gensyms 16609}#
- #{vals 16610}#
- #{body 16611}#)))))))
- (#{build-letrec 4297}#
- (lambda (#{src 16631}#
- #{in-order? 16632}#
- #{ids 16633}#
- #{vars 16634}#
- #{val-exps 16635}#
- #{body-exp 16636}#)
- (if (null? #{vars 16634}#)
- #{body-exp 16636}#
+ #{names 16623}#
+ #{gensyms 16624}#
+ #{vals 16625}#
+ #{body 16626}#)))))))
+ (#{build-letrec 4285}#
+ (lambda (#{src 16646}#
+ #{in-order? 16647}#
+ #{ids 16648}#
+ #{vars 16649}#
+ #{val-exps 16650}#
+ #{body-exp 16651}#)
+ (if (null? #{vars 16649}#)
+ #{body-exp 16651}#
(begin
(for-each
- #{maybe-name-value! 4278}#
- #{ids 16633}#
- #{val-exps 16635}#)
+ #{maybe-name-value! 4266}#
+ #{ids 16648}#
+ #{val-exps 16650}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 16)
- #{src 16631}#
- #{in-order? 16632}#
- #{ids 16633}#
- #{vars 16634}#
- #{val-exps 16635}#
- #{body-exp 16636}#)))))
- (#{source-annotation 4306}#
- (lambda (#{x 16662}#)
- (if (if (vector? #{x 16662}#)
- (if (= (vector-length #{x 16662}#) 4)
- (eq? (vector-ref #{x 16662}# 0) 'syntax-object)
+ #{src 16646}#
+ #{in-order? 16647}#
+ #{ids 16648}#
+ #{vars 16649}#
+ #{val-exps 16650}#
+ #{body-exp 16651}#)))))
+ (#{source-annotation 4294}#
+ (lambda (#{x 16677}#)
+ (if (if (vector? #{x 16677}#)
+ (if (= (vector-length #{x 16677}#) 4)
+ (eq? (vector-ref #{x 16677}# 0) 'syntax-object)
#f)
#f)
- (#{source-annotation 4306}#
- (vector-ref #{x 16662}# 1))
- (if (pair? #{x 16662}#)
- (let ((#{props 16677}# (source-properties #{x 16662}#)))
- (if (pair? #{props 16677}#) #{props 16677}# #f))
+ (#{source-annotation 4294}#
+ (vector-ref #{x 16677}# 1))
+ (if (pair? #{x 16677}#)
+ (let ((#{props 16692}# (source-properties #{x 16677}#)))
+ (if (pair? #{props 16692}#) #{props 16692}# #f))
#f))))
- (#{extend-env 4307}#
- (lambda (#{labels 16679}# #{bindings 16680}# #{r 16681}#)
- (if (null? #{labels 16679}#)
- #{r 16681}#
- (#{extend-env 4307}#
- (cdr #{labels 16679}#)
- (cdr #{bindings 16680}#)
- (cons (cons (car #{labels 16679}#)
- (car #{bindings 16680}#))
- #{r 16681}#)))))
- (#{extend-var-env 4308}#
- (lambda (#{labels 16682}# #{vars 16683}# #{r 16684}#)
- (if (null? #{labels 16682}#)
- #{r 16684}#
- (#{extend-var-env 4308}#
- (cdr #{labels 16682}#)
- (cdr #{vars 16683}#)
- (cons (cons (car #{labels 16682}#)
- (cons 'lexical (car #{vars 16683}#)))
- #{r 16684}#)))))
- (#{macros-only-env 4309}#
- (lambda (#{r 16685}#)
- (if (null? #{r 16685}#)
+ (#{extend-env 4295}#
+ (lambda (#{labels 16694}# #{bindings 16695}# #{r 16696}#)
+ (if (null? #{labels 16694}#)
+ #{r 16696}#
+ (#{extend-env 4295}#
+ (cdr #{labels 16694}#)
+ (cdr #{bindings 16695}#)
+ (cons (cons (car #{labels 16694}#)
+ (car #{bindings 16695}#))
+ #{r 16696}#)))))
+ (#{extend-var-env 4296}#
+ (lambda (#{labels 16697}# #{vars 16698}# #{r 16699}#)
+ (if (null? #{labels 16697}#)
+ #{r 16699}#
+ (#{extend-var-env 4296}#
+ (cdr #{labels 16697}#)
+ (cdr #{vars 16698}#)
+ (cons (cons (car #{labels 16697}#)
+ (cons 'lexical (car #{vars 16698}#)))
+ #{r 16699}#)))))
+ (#{macros-only-env 4297}#
+ (lambda (#{r 16700}#)
+ (if (null? #{r 16700}#)
'()
- (let ((#{a 16686}# (car #{r 16685}#)))
- (if (eq? (car (cdr #{a 16686}#)) 'macro)
- (cons #{a 16686}#
- (#{macros-only-env 4309}# (cdr #{r 16685}#)))
- (#{macros-only-env 4309}# (cdr #{r 16685}#)))))))
- (#{global-extend 4311}#
- (lambda (#{type 16688}# #{sym 16689}# #{val 16690}#)
+ (let ((#{a 16701}# (car #{r 16700}#)))
+ (if (eq? (car (cdr #{a 16701}#)) 'macro)
+ (cons #{a 16701}#
+ (#{macros-only-env 4297}# (cdr #{r 16700}#)))
+ (#{macros-only-env 4297}# (cdr #{r 16700}#)))))))
+ (#{global-extend 4299}#
+ (lambda (#{type 16703}# #{sym 16704}# #{val 16705}#)
(module-define!
(current-module)
- #{sym 16689}#
+ #{sym 16704}#
(make-syntax-transformer
- #{sym 16689}#
- #{type 16688}#
- #{val 16690}#))))
- (#{id? 4313}#
- (lambda (#{x 10546}#)
- (if (symbol? #{x 10546}#)
+ #{sym 16704}#
+ #{type 16703}#
+ #{val 16705}#))))
+ (#{id? 4301}#
+ (lambda (#{x 10537}#)
+ (if (symbol? #{x 10537}#)
#t
- (if (if (vector? #{x 10546}#)
- (if (= (vector-length #{x 10546}#) 4)
- (eq? (vector-ref #{x 10546}# 0) 'syntax-object)
+ (if (if (vector? #{x 10537}#)
+ (if (= (vector-length #{x 10537}#) 4)
+ (eq? (vector-ref #{x 10537}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 10546}# 1))
+ (symbol? (vector-ref #{x 10537}# 1))
#f))))
- (#{gen-labels 4316}#
- (lambda (#{ls 16700}#)
- (if (null? #{ls 16700}#)
+ (#{gen-labels 4304}#
+ (lambda (#{ls 16715}#)
+ (if (null? #{ls 16715}#)
'()
(cons (symbol->string (gensym "i"))
- (#{gen-labels 4316}# (cdr #{ls 16700}#))))))
- (#{make-binding-wrap 4327}#
- (lambda (#{ids 16704}# #{labels 16705}# #{w 16706}#)
- (if (null? #{ids 16704}#)
- #{w 16706}#
- (cons (car #{w 16706}#)
- (cons (let ((#{labelvec 16707}#
- (list->vector #{labels 16705}#)))
- (let ((#{n 16708}# (vector-length #{labelvec 16707}#)))
- (let ((#{symnamevec 16709}# (make-vector #{n 16708}#))
- (#{marksvec 16710}# (make-vector #{n 16708}#)))
+ (#{gen-labels 4304}# (cdr #{ls 16715}#))))))
+ (#{make-binding-wrap 4315}#
+ (lambda (#{ids 16719}# #{labels 16720}# #{w 16721}#)
+ (if (null? #{ids 16719}#)
+ #{w 16721}#
+ (cons (car #{w 16721}#)
+ (cons (let ((#{labelvec 16722}#
+ (list->vector #{labels 16720}#)))
+ (let ((#{n 16723}# (vector-length #{labelvec 16722}#)))
+ (let ((#{symnamevec 16724}# (make-vector #{n 16723}#))
+ (#{marksvec 16725}# (make-vector #{n 16723}#)))
(begin
(letrec*
- ((#{f 16711}#
- (lambda (#{ids 16714}# #{i 16715}#)
- (if (not (null? #{ids 16714}#))
+ ((#{f 16726}#
+ (lambda (#{ids 16729}# #{i 16730}#)
+ (if (not (null? #{ids 16729}#))
(call-with-values
(lambda ()
- (let ((#{x 16718}#
- (car #{ids 16714}#)))
- (if (if (vector? #{x 16718}#)
+ (let ((#{x 16733}#
+ (car #{ids 16729}#)))
+ (if (if (vector? #{x 16733}#)
(if (= (vector-length
- #{x 16718}#)
+ #{x 16733}#)
4)
(eq? (vector-ref
- #{x 16718}#
+ #{x 16733}#
0)
'syntax-object)
#f)
#f)
(values
- (vector-ref #{x 16718}# 1)
- (let ((#{m1 16734}#
- (car #{w 16706}#))
- (#{m2 16735}#
+ (vector-ref #{x 16733}# 1)
+ (let ((#{m1 16749}#
+ (car #{w 16721}#))
+ (#{m2 16750}#
(car (vector-ref
- #{x 16718}#
+ #{x 16733}#
2))))
- (if (null? #{m2 16735}#)
- #{m1 16734}#
+ (if (null? #{m2 16750}#)
+ #{m1 16749}#
(append
- #{m1 16734}#
- #{m2 16735}#))))
+ #{m1 16749}#
+ #{m2 16750}#))))
(values
- #{x 16718}#
- (car #{w 16706}#)))))
- (lambda (#{symname 16755}#
- #{marks 16756}#)
+ #{x 16733}#
+ (car #{w 16721}#)))))
+ (lambda (#{symname 16770}#
+ #{marks 16771}#)
(begin
(vector-set!
- #{symnamevec 16709}#
- #{i 16715}#
- #{symname 16755}#)
+ #{symnamevec 16724}#
+ #{i 16730}#
+ #{symname 16770}#)
(vector-set!
- #{marksvec 16710}#
- #{i 16715}#
- #{marks 16756}#)
- (#{f 16711}#
- (cdr #{ids 16714}#)
- (#{1+}# #{i 16715}#)))))))))
- (#{f 16711}# #{ids 16704}# 0))
+ #{marksvec 16725}#
+ #{i 16730}#
+ #{marks 16771}#)
+ (#{f 16726}#
+ (cdr #{ids 16729}#)
+ (#{1+}# #{i 16730}#)))))))))
+ (#{f 16726}# #{ids 16719}# 0))
(vector
'ribcage
- #{symnamevec 16709}#
- #{marksvec 16710}#
- #{labelvec 16707}#)))))
- (cdr #{w 16706}#))))))
- (#{join-wraps 4329}#
- (lambda (#{w1 16765}# #{w2 16766}#)
- (let ((#{m1 16767}# (car #{w1 16765}#))
- (#{s1 16768}# (cdr #{w1 16765}#)))
- (if (null? #{m1 16767}#)
- (if (null? #{s1 16768}#)
- #{w2 16766}#
- (cons (car #{w2 16766}#)
- (let ((#{m2 16775}# (cdr #{w2 16766}#)))
- (if (null? #{m2 16775}#)
- #{s1 16768}#
- (append #{s1 16768}# #{m2 16775}#)))))
- (cons (let ((#{m2 16784}# (car #{w2 16766}#)))
- (if (null? #{m2 16784}#)
- #{m1 16767}#
- (append #{m1 16767}# #{m2 16784}#)))
- (let ((#{m2 16793}# (cdr #{w2 16766}#)))
- (if (null? #{m2 16793}#)
- #{s1 16768}#
- (append #{s1 16768}# #{m2 16793}#))))))))
- (#{same-marks? 4331}#
- (lambda (#{x 16798}# #{y 16799}#)
- (if (eq? #{x 16798}# #{y 16799}#)
- (eq? #{x 16798}# #{y 16799}#)
- (if (not (null? #{x 16798}#))
- (if (not (null? #{y 16799}#))
- (if (eq? (car #{x 16798}#) (car #{y 16799}#))
- (#{same-marks? 4331}#
- (cdr #{x 16798}#)
- (cdr #{y 16799}#))
+ #{symnamevec 16724}#
+ #{marksvec 16725}#
+ #{labelvec 16722}#)))))
+ (cdr #{w 16721}#))))))
+ (#{join-wraps 4317}#
+ (lambda (#{w1 16780}# #{w2 16781}#)
+ (let ((#{m1 16782}# (car #{w1 16780}#))
+ (#{s1 16783}# (cdr #{w1 16780}#)))
+ (if (null? #{m1 16782}#)
+ (if (null? #{s1 16783}#)
+ #{w2 16781}#
+ (cons (car #{w2 16781}#)
+ (let ((#{m2 16790}# (cdr #{w2 16781}#)))
+ (if (null? #{m2 16790}#)
+ #{s1 16783}#
+ (append #{s1 16783}# #{m2 16790}#)))))
+ (cons (let ((#{m2 16799}# (car #{w2 16781}#)))
+ (if (null? #{m2 16799}#)
+ #{m1 16782}#
+ (append #{m1 16782}# #{m2 16799}#)))
+ (let ((#{m2 16808}# (cdr #{w2 16781}#)))
+ (if (null? #{m2 16808}#)
+ #{s1 16783}#
+ (append #{s1 16783}# #{m2 16808}#))))))))
+ (#{same-marks? 4319}#
+ (lambda (#{x 16813}# #{y 16814}#)
+ (if (eq? #{x 16813}# #{y 16814}#)
+ (eq? #{x 16813}# #{y 16814}#)
+ (if (not (null? #{x 16813}#))
+ (if (not (null? #{y 16814}#))
+ (if (eq? (car #{x 16813}#) (car #{y 16814}#))
+ (#{same-marks? 4319}#
+ (cdr #{x 16813}#)
+ (cdr #{y 16814}#))
#f)
#f)
#f))))
- (#{id-var-name 4332}#
- (lambda (#{id 16807}# #{w 16808}#)
+ (#{id-var-name 4320}#
+ (lambda (#{id 16822}# #{w 16823}#)
(letrec*
- ((#{search 16809}#
- (lambda (#{sym 16870}# #{subst 16871}# #{marks 16872}#)
- (if (null? #{subst 16871}#)
- (values #f #{marks 16872}#)
- (let ((#{fst 16873}# (car #{subst 16871}#)))
- (if (eq? #{fst 16873}# 'shift)
- (#{search 16809}#
- #{sym 16870}#
- (cdr #{subst 16871}#)
- (cdr #{marks 16872}#))
- (let ((#{symnames 16875}# (vector-ref #{fst 16873}# 1)))
- (if (vector? #{symnames 16875}#)
- (let ((#{n 16887}# (vector-length #{symnames 16875}#)))
+ ((#{search 16824}#
+ (lambda (#{sym 16885}# #{subst 16886}# #{marks 16887}#)
+ (if (null? #{subst 16886}#)
+ (values #f #{marks 16887}#)
+ (let ((#{fst 16888}# (car #{subst 16886}#)))
+ (if (eq? #{fst 16888}# 'shift)
+ (#{search 16824}#
+ #{sym 16885}#
+ (cdr #{subst 16886}#)
+ (cdr #{marks 16887}#))
+ (let ((#{symnames 16890}# (vector-ref #{fst 16888}# 1)))
+ (if (vector? #{symnames 16890}#)
+ (let ((#{n 16902}# (vector-length #{symnames 16890}#)))
(letrec*
- ((#{f 16888}#
- (lambda (#{i 16890}#)
- (if (= #{i 16890}# #{n 16887}#)
- (#{search 16809}#
- #{sym 16870}#
- (cdr #{subst 16871}#)
- #{marks 16872}#)
+ ((#{f 16903}#
+ (lambda (#{i 16905}#)
+ (if (= #{i 16905}# #{n 16902}#)
+ (#{search 16824}#
+ #{sym 16885}#
+ (cdr #{subst 16886}#)
+ #{marks 16887}#)
(if (if (eq? (vector-ref
- #{symnames 16875}#
- #{i 16890}#)
- #{sym 16870}#)
- (#{same-marks? 4331}#
- #{marks 16872}#
+ #{symnames 16890}#
+ #{i 16905}#)
+ #{sym 16885}#)
+ (#{same-marks? 4319}#
+ #{marks 16887}#
(vector-ref
- (vector-ref #{fst 16873}# 2)
- #{i 16890}#))
+ (vector-ref #{fst 16888}# 2)
+ #{i 16905}#))
#f)
(values
(vector-ref
- (vector-ref #{fst 16873}# 3)
- #{i 16890}#)
- #{marks 16872}#)
- (#{f 16888}# (#{1+}# #{i 16890}#)))))))
- (#{f 16888}# 0)))
+ (vector-ref #{fst 16888}# 3)
+ #{i 16905}#)
+ #{marks 16887}#)
+ (#{f 16903}# (#{1+}# #{i 16905}#)))))))
+ (#{f 16903}# 0)))
(letrec*
- ((#{f 16923}#
- (lambda (#{symnames 16925}# #{i 16926}#)
- (if (null? #{symnames 16925}#)
- (#{search 16809}#
- #{sym 16870}#
- (cdr #{subst 16871}#)
- #{marks 16872}#)
- (if (if (eq? (car #{symnames 16925}#)
- #{sym 16870}#)
- (#{same-marks? 4331}#
- #{marks 16872}#
+ ((#{f 16938}#
+ (lambda (#{symnames 16940}# #{i 16941}#)
+ (if (null? #{symnames 16940}#)
+ (#{search 16824}#
+ #{sym 16885}#
+ (cdr #{subst 16886}#)
+ #{marks 16887}#)
+ (if (if (eq? (car #{symnames 16940}#)
+ #{sym 16885}#)
+ (#{same-marks? 4319}#
+ #{marks 16887}#
(list-ref
- (vector-ref #{fst 16873}# 2)
- #{i 16926}#))
+ (vector-ref #{fst 16888}# 2)
+ #{i 16941}#))
#f)
(values
(list-ref
- (vector-ref #{fst 16873}# 3)
- #{i 16926}#)
- #{marks 16872}#)
- (#{f 16923}#
- (cdr #{symnames 16925}#)
- (#{1+}# #{i 16926}#)))))))
- (#{f 16923}# #{symnames 16875}# 0))))))))))
- (if (symbol? #{id 16807}#)
- (let ((#{t 16812}#
- (#{search 16809}#
- #{id 16807}#
- (cdr #{w 16808}#)
- (car #{w 16808}#))))
- (if #{t 16812}# #{t 16812}# #{id 16807}#))
- (if (if (vector? #{id 16807}#)
- (if (= (vector-length #{id 16807}#) 4)
- (eq? (vector-ref #{id 16807}# 0) 'syntax-object)
+ (vector-ref #{fst 16888}# 3)
+ #{i 16941}#)
+ #{marks 16887}#)
+ (#{f 16938}#
+ (cdr #{symnames 16940}#)
+ (#{1+}# #{i 16941}#)))))))
+ (#{f 16938}# #{symnames 16890}# 0))))))))))
+ (if (symbol? #{id 16822}#)
+ (let ((#{t 16827}#
+ (#{search 16824}#
+ #{id 16822}#
+ (cdr #{w 16823}#)
+ (car #{w 16823}#))))
+ (if #{t 16827}# #{t 16827}# #{id 16822}#))
+ (if (if (vector? #{id 16822}#)
+ (if (= (vector-length #{id 16822}#) 4)
+ (eq? (vector-ref #{id 16822}# 0) 'syntax-object)
#f)
#f)
- (let ((#{id 16827}# (vector-ref #{id 16807}# 1))
- (#{w1 16828}# (vector-ref #{id 16807}# 2)))
- (let ((#{marks 16829}#
- (let ((#{m1 16839}# (car #{w 16808}#))
- (#{m2 16840}# (car #{w1 16828}#)))
- (if (null? #{m2 16840}#)
- #{m1 16839}#
- (append #{m1 16839}# #{m2 16840}#)))))
+ (let ((#{id 16842}# (vector-ref #{id 16822}# 1))
+ (#{w1 16843}# (vector-ref #{id 16822}# 2)))
+ (let ((#{marks 16844}#
+ (let ((#{m1 16854}# (car #{w 16823}#))
+ (#{m2 16855}# (car #{w1 16843}#)))
+ (if (null? #{m2 16855}#)
+ #{m1 16854}#
+ (append #{m1 16854}# #{m2 16855}#)))))
(call-with-values
(lambda ()
- (#{search 16809}#
- #{id 16827}#
- (cdr #{w 16808}#)
- #{marks 16829}#))
- (lambda (#{new-id 16856}# #{marks 16857}#)
- (if #{new-id 16856}#
- #{new-id 16856}#
- (let ((#{t 16865}#
- (#{search 16809}#
- #{id 16827}#
- (cdr #{w1 16828}#)
- #{marks 16857}#)))
- (if #{t 16865}# #{t 16865}# #{id 16827}#)))))))
+ (#{search 16824}#
+ #{id 16842}#
+ (cdr #{w 16823}#)
+ #{marks 16844}#))
+ (lambda (#{new-id 16871}# #{marks 16872}#)
+ (if #{new-id 16871}#
+ #{new-id 16871}#
+ (let ((#{t 16880}#
+ (#{search 16824}#
+ #{id 16842}#
+ (cdr #{w1 16843}#)
+ #{marks 16872}#)))
+ (if #{t 16880}# #{t 16880}# #{id 16842}#)))))))
(syntax-violation
'id-var-name
"invalid id"
- #{id 16807}#))))))
- (#{valid-bound-ids? 4335}#
- (lambda (#{ids 16948}#)
+ #{id 16822}#))))))
+ (#{valid-bound-ids? 4323}#
+ (lambda (#{ids 16963}#)
(if (letrec*
- ((#{all-ids? 16949}#
- (lambda (#{ids 17111}#)
- (if (null? #{ids 17111}#)
- (null? #{ids 17111}#)
- (if (let ((#{x 17122}# (car #{ids 17111}#)))
- (if (symbol? #{x 17122}#)
+ ((#{all-ids? 16964}#
+ (lambda (#{ids 17126}#)
+ (if (null? #{ids 17126}#)
+ (null? #{ids 17126}#)
+ (if (let ((#{x 17137}# (car #{ids 17126}#)))
+ (if (symbol? #{x 17137}#)
#t
- (if (if (vector? #{x 17122}#)
- (if (= (vector-length #{x 17122}#) 4)
- (eq? (vector-ref #{x 17122}# 0)
+ (if (if (vector? #{x 17137}#)
+ (if (= (vector-length #{x 17137}#) 4)
+ (eq? (vector-ref #{x 17137}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 17122}# 1))
+ (symbol? (vector-ref #{x 17137}# 1))
#f)))
- (#{all-ids? 16949}# (cdr #{ids 17111}#))
+ (#{all-ids? 16964}# (cdr #{ids 17126}#))
#f)))))
- (#{all-ids? 16949}# #{ids 16948}#))
- (#{distinct-bound-ids? 4336}# #{ids 16948}#)
+ (#{all-ids? 16964}# #{ids 16963}#))
+ (#{distinct-bound-ids? 4324}# #{ids 16963}#)
#f)))
- (#{distinct-bound-ids? 4336}#
- (lambda (#{ids 17254}#)
+ (#{distinct-bound-ids? 4324}#
+ (lambda (#{ids 17269}#)
(letrec*
- ((#{distinct? 17255}#
- (lambda (#{ids 17371}#)
- (if (null? #{ids 17371}#)
- (null? #{ids 17371}#)
- (if (not (#{bound-id-member? 4337}#
- (car #{ids 17371}#)
- (cdr #{ids 17371}#)))
- (#{distinct? 17255}# (cdr #{ids 17371}#))
+ ((#{distinct? 17270}#
+ (lambda (#{ids 17386}#)
+ (if (null? #{ids 17386}#)
+ (null? #{ids 17386}#)
+ (if (not (#{bound-id-member? 4325}#
+ (car #{ids 17386}#)
+ (cdr #{ids 17386}#)))
+ (#{distinct? 17270}# (cdr #{ids 17386}#))
#f)))))
- (#{distinct? 17255}# #{ids 17254}#))))
- (#{bound-id-member? 4337}#
- (lambda (#{x 17591}# #{list 17592}#)
- (if (not (null? #{list 17592}#))
- (let ((#{t 17593}#
- (let ((#{j 17674}# (car #{list 17592}#)))
- (if (if (if (vector? #{x 17591}#)
- (if (= (vector-length #{x 17591}#) 4)
- (eq? (vector-ref #{x 17591}# 0) 'syntax-object)
+ (#{distinct? 17270}# #{ids 17269}#))))
+ (#{bound-id-member? 4325}#
+ (lambda (#{x 17606}# #{list 17607}#)
+ (if (not (null? #{list 17607}#))
+ (let ((#{t 17608}#
+ (let ((#{j 17689}# (car #{list 17607}#)))
+ (if (if (if (vector? #{x 17606}#)
+ (if (= (vector-length #{x 17606}#) 4)
+ (eq? (vector-ref #{x 17606}# 0) 'syntax-object)
#f)
#f)
- (if (vector? #{j 17674}#)
- (if (= (vector-length #{j 17674}#) 4)
- (eq? (vector-ref #{j 17674}# 0) 'syntax-object)
+ (if (vector? #{j 17689}#)
+ (if (= (vector-length #{j 17689}#) 4)
+ (eq? (vector-ref #{j 17689}# 0) 'syntax-object)
#f)
#f)
#f)
- (if (eq? (vector-ref #{x 17591}# 1)
- (vector-ref #{j 17674}# 1))
- (#{same-marks? 4331}#
- (car (vector-ref #{x 17591}# 2))
- (car (vector-ref #{j 17674}# 2)))
+ (if (eq? (vector-ref #{x 17606}# 1)
+ (vector-ref #{j 17689}# 1))
+ (#{same-marks? 4319}#
+ (car (vector-ref #{x 17606}# 2))
+ (car (vector-ref #{j 17689}# 2)))
#f)
- (eq? #{x 17591}# #{j 17674}#)))))
- (if #{t 17593}#
- #{t 17593}#
- (#{bound-id-member? 4337}#
- #{x 17591}#
- (cdr #{list 17592}#))))
+ (eq? #{x 17606}# #{j 17689}#)))))
+ (if #{t 17608}#
+ #{t 17608}#
+ (#{bound-id-member? 4325}#
+ #{x 17606}#
+ (cdr #{list 17607}#))))
#f)))
- (#{wrap 4338}#
- (lambda (#{x 17718}# #{w 17719}# #{defmod 17720}#)
- (if (if (null? (car #{w 17719}#))
- (null? (cdr #{w 17719}#))
+ (#{wrap 4326}#
+ (lambda (#{x 17733}# #{w 17734}# #{defmod 17735}#)
+ (if (if (null? (car #{w 17734}#))
+ (null? (cdr #{w 17734}#))
#f)
- #{x 17718}#
- (if (if (vector? #{x 17718}#)
- (if (= (vector-length #{x 17718}#) 4)
- (eq? (vector-ref #{x 17718}# 0) 'syntax-object)
+ #{x 17733}#
+ (if (if (vector? #{x 17733}#)
+ (if (= (vector-length #{x 17733}#) 4)
+ (eq? (vector-ref #{x 17733}# 0) 'syntax-object)
#f)
#f)
- (let ((#{expression 17734}# (vector-ref #{x 17718}# 1))
- (#{wrap 17735}#
- (#{join-wraps 4329}#
- #{w 17719}#
- (vector-ref #{x 17718}# 2)))
- (#{module 17736}# (vector-ref #{x 17718}# 3)))
+ (let ((#{expression 17749}# (vector-ref #{x 17733}# 1))
+ (#{wrap 17750}#
+ (#{join-wraps 4317}#
+ #{w 17734}#
+ (vector-ref #{x 17733}# 2)))
+ (#{module 17751}# (vector-ref #{x 17733}# 3)))
(vector
'syntax-object
- #{expression 17734}#
- #{wrap 17735}#
- #{module 17736}#))
- (if (null? #{x 17718}#)
- #{x 17718}#
+ #{expression 17749}#
+ #{wrap 17750}#
+ #{module 17751}#))
+ (if (null? #{x 17733}#)
+ #{x 17733}#
(vector
'syntax-object
- #{x 17718}#
- #{w 17719}#
- #{defmod 17720}#))))))
- (#{source-wrap 4339}#
- (lambda (#{x 17753}#
- #{w 17754}#
- #{s 17755}#
- #{defmod 17756}#)
- (#{wrap 4338}#
+ #{x 17733}#
+ #{w 17734}#
+ #{defmod 17735}#))))))
+ (#{source-wrap 4327}#
+ (lambda (#{x 17768}#
+ #{w 17769}#
+ #{s 17770}#
+ #{defmod 17771}#)
+ (#{wrap 4326}#
(begin
- (if (if (pair? #{x 17753}#) #{s 17755}# #f)
- (set-source-properties! #{x 17753}# #{s 17755}#))
- #{x 17753}#)
- #{w 17754}#
- #{defmod 17756}#)))
- (#{chi-sequence 4340}#
- (lambda (#{body 28233}#
- #{r 28234}#
- #{w 28235}#
- #{s 28236}#
- #{mod 28237}#)
- (#{build-sequence 4294}#
- #{s 28236}#
+ (if (if (pair? #{x 17768}#) #{s 17770}# #f)
+ (set-source-properties! #{x 17768}# #{s 17770}#))
+ #{x 17768}#)
+ #{w 17769}#
+ #{defmod 17771}#)))
+ (#{expand-sequence 4328}#
+ (lambda (#{body 28606}#
+ #{r 28607}#
+ #{w 28608}#
+ #{s 28609}#
+ #{mod 28610}#)
+ (#{build-sequence 4282}#
+ #{s 28609}#
(letrec*
- ((#{dobody 28322}#
- (lambda (#{body 28402}#
- #{r 28403}#
- #{w 28404}#
- #{mod 28405}#)
- (if (null? #{body 28402}#)
+ ((#{dobody 28695}#
+ (lambda (#{body 28775}#
+ #{r 28776}#
+ #{w 28777}#
+ #{mod 28778}#)
+ (if (null? #{body 28775}#)
'()
- (let ((#{first 28406}#
- (#{chi 4345}#
- (car #{body 28402}#)
- #{r 28403}#
- #{w 28404}#
- #{mod 28405}#)))
- (cons #{first 28406}#
- (#{dobody 28322}#
- (cdr #{body 28402}#)
- #{r 28403}#
- #{w 28404}#
- #{mod 28405}#)))))))
- (#{dobody 28322}#
- #{body 28233}#
- #{r 28234}#
- #{w 28235}#
- #{mod 28237}#)))))
- (#{chi-top-sequence 4341}#
- (lambda (#{body 17774}#
- #{r 17775}#
- #{w 17776}#
- #{s 17777}#
- #{m 17778}#
- #{esew 17779}#
- #{mod 17780}#)
+ (let ((#{first 28779}#
+ (#{expand 4333}#
+ (car #{body 28775}#)
+ #{r 28776}#
+ #{w 28777}#
+ #{mod 28778}#)))
+ (cons #{first 28779}#
+ (#{dobody 28695}#
+ (cdr #{body 28775}#)
+ #{r 28776}#
+ #{w 28777}#
+ #{mod 28778}#)))))))
+ (#{dobody 28695}#
+ #{body 28606}#
+ #{r 28607}#
+ #{w 28608}#
+ #{mod 28610}#)))))
+ (#{expand-top-sequence 4329}#
+ (lambda (#{body 17789}#
+ #{r 17790}#
+ #{w 17791}#
+ #{s 17792}#
+ #{m 17793}#
+ #{esew 17794}#
+ #{mod 17795}#)
(letrec*
- ((#{scan 17781}#
- (lambda (#{body 17912}#
- #{r 17913}#
- #{w 17914}#
- #{s 17915}#
- #{m 17916}#
- #{esew 17917}#
- #{mod 17918}#
- #{exps 17919}#)
- (if (null? #{body 17912}#)
- #{exps 17919}#
+ ((#{scan 17796}#
+ (lambda (#{body 17927}#
+ #{r 17928}#
+ #{w 17929}#
+ #{s 17930}#
+ #{m 17931}#
+ #{esew 17932}#
+ #{mod 17933}#
+ #{exps 17934}#)
+ (if (null? #{body 17927}#)
+ #{exps 17934}#
(call-with-values
(lambda ()
(call-with-values
(lambda ()
- (let ((#{e 17920}# (car #{body 17912}#)))
- (#{syntax-type 4344}#
- #{e 17920}#
- #{r 17913}#
- #{w 17914}#
- (let ((#{t 17924}#
- (#{source-annotation 4306}# #{e 17920}#)))
- (if #{t 17924}# #{t 17924}# #{s 17915}#))
+ (let ((#{e 17935}# (car #{body 17927}#)))
+ (#{syntax-type 4332}#
+ #{e 17935}#
+ #{r 17928}#
+ #{w 17929}#
+ (let ((#{t 17939}#
+ (#{source-annotation 4294}# #{e 17935}#)))
+ (if #{t 17939}# #{t 17939}# #{s 17930}#))
#f
- #{mod 17918}#
+ #{mod 17933}#
#f)))
- (lambda (#{type 18184}#
- #{value 18185}#
- #{e 18186}#
- #{w 18187}#
- #{s 18188}#
- #{mod 18189}#)
- (if (eqv? #{type 18184}# 'begin-form)
- (let ((#{tmp 18194}#
- ($sc-dispatch #{e 18186}# '(_))))
- (if #{tmp 18194}#
- (@apply (lambda () #{exps 17919}#) #{tmp 18194}#)
- (let ((#{tmp 18198}#
+ (lambda (#{type 18199}#
+ #{value 18200}#
+ #{e 18201}#
+ #{w 18202}#
+ #{s 18203}#
+ #{mod 18204}#)
+ (if (eqv? #{type 18199}# 'begin-form)
+ (let ((#{tmp 18209}#
+ ($sc-dispatch #{e 18201}# '(_))))
+ (if #{tmp 18209}#
+ (@apply (lambda () #{exps 17934}#) #{tmp 18209}#)
+ (let ((#{tmp 18213}#
($sc-dispatch
- #{e 18186}#
+ #{e 18201}#
'(_ any . each-any))))
- (if #{tmp 18198}#
+ (if #{tmp 18213}#
(@apply
- (lambda (#{e1 18202}# #{e2 18203}#)
- (#{scan 17781}#
- (cons #{e1 18202}# #{e2 18203}#)
- #{r 17913}#
- #{w 18187}#
- #{s 18188}#
- #{m 17916}#
- #{esew 17917}#
- #{mod 18189}#
- #{exps 17919}#))
- #{tmp 18198}#)
+ (lambda (#{e1 18217}# #{e2 18218}#)
+ (#{scan 17796}#
+ (cons #{e1 18217}# #{e2 18218}#)
+ #{r 17928}#
+ #{w 18202}#
+ #{s 18203}#
+ #{m 17931}#
+ #{esew 17932}#
+ #{mod 18204}#
+ #{exps 17934}#))
+ #{tmp 18213}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{e 18186}#)))))
- (if (eqv? #{type 18184}# 'local-syntax-form)
- (#{chi-local-syntax 4350}#
- #{value 18185}#
- #{e 18186}#
- #{r 17913}#
- #{w 18187}#
- #{s 18188}#
- #{mod 18189}#
- (lambda (#{body 18218}#
- #{r 18219}#
- #{w 18220}#
- #{s 18221}#
- #{mod 18222}#)
- (#{scan 17781}#
- #{body 18218}#
- #{r 18219}#
- #{w 18220}#
- #{s 18221}#
- #{m 17916}#
- #{esew 17917}#
- #{mod 18222}#
- #{exps 17919}#)))
- (if (eqv? #{type 18184}# 'eval-when-form)
- (let ((#{tmp 18227}#
+ #{e 18201}#)))))
+ (if (eqv? #{type 18199}# 'local-syntax-form)
+ (#{expand-local-syntax 4338}#
+ #{value 18200}#
+ #{e 18201}#
+ #{r 17928}#
+ #{w 18202}#
+ #{s 18203}#
+ #{mod 18204}#
+ (lambda (#{body 18233}#
+ #{r 18234}#
+ #{w 18235}#
+ #{s 18236}#
+ #{mod 18237}#)
+ (#{scan 17796}#
+ #{body 18233}#
+ #{r 18234}#
+ #{w 18235}#
+ #{s 18236}#
+ #{m 17931}#
+ #{esew 17932}#
+ #{mod 18237}#
+ #{exps 17934}#)))
+ (if (eqv? #{type 18199}# 'eval-when-form)
+ (let ((#{tmp 18242}#
($sc-dispatch
- #{e 18186}#
+ #{e 18201}#
'(_ each-any any . each-any))))
- (if #{tmp 18227}#
+ (if #{tmp 18242}#
(@apply
- (lambda (#{x 18231}#
- #{e1 18232}#
- #{e2 18233}#)
- (let ((#{when-list 18234}#
- (#{chi-when-list 4343}#
- #{e 18186}#
- #{x 18231}#
- #{w 18187}#))
- (#{body 18235}#
- (cons #{e1 18232}#
- #{e2 18233}#)))
- (if (eq? #{m 17916}# 'e)
- (if (memq 'eval #{when-list 18234}#)
- (#{scan 17781}#
- #{body 18235}#
- #{r 17913}#
- #{w 18187}#
- #{s 18188}#
+ (lambda (#{x 18246}#
+ #{e1 18247}#
+ #{e2 18248}#)
+ (let ((#{when-list 18249}#
+ (#{parse-when-list 4331}#
+ #{e 18201}#
+ #{x 18246}#))
+ (#{body 18250}#
+ (cons #{e1 18247}#
+ #{e2 18248}#)))
+ (if (eq? #{m 17931}# 'e)
+ (if (memq 'eval #{when-list 18249}#)
+ (#{scan 17796}#
+ #{body 18250}#
+ #{r 17928}#
+ #{w 18202}#
+ #{s 18203}#
(if (memq 'expand
- #{when-list 18234}#)
+ #{when-list 18249}#)
'c&e
'e)
'(eval)
- #{mod 18189}#
- #{exps 17919}#)
+ #{mod 18204}#
+ #{exps 17934}#)
(begin
(if (memq 'expand
- #{when-list 18234}#)
- (let ((#{x 18242}#
- (#{chi-top-sequence
4341}#
- #{body 18235}#
- #{r 17913}#
- #{w 18187}#
- #{s 18188}#
+ #{when-list 18249}#)
+ (let ((#{x 18327}#
+ (#{expand-top-sequence
4329}#
+ #{body 18250}#
+ #{r 17928}#
+ #{w 18202}#
+ #{s 18203}#
'e
'(eval)
- #{mod 18189}#)))
+ #{mod 18204}#)))
(primitive-eval
- #{x 18242}#)))
- (values #{exps 17919}#)))
- (if (memq 'load #{when-list 18234}#)
- (if (let ((#{t 18244}#
+ #{x 18327}#)))
+ (values #{exps 17934}#)))
+ (if (memq 'load #{when-list 18249}#)
+ (if (let ((#{t 18353}#
(memq 'compile
- #{when-list
18234}#)))
- (if #{t 18244}#
- #{t 18244}#
- (let ((#{t 18246}#
+ #{when-list
18249}#)))
+ (if #{t 18353}#
+ #{t 18353}#
+ (let ((#{t 18402}#
(memq 'expand
- #{when-list
18234}#)))
- (if #{t 18246}#
- #{t 18246}#
- (if (eq? #{m 17916}#
+ #{when-list
18249}#)))
+ (if #{t 18402}#
+ #{t 18402}#
+ (if (eq? #{m 17931}#
'c&e)
(memq 'eval
- #{when-list
18234}#)
+ #{when-list
18249}#)
#f)))))
- (#{scan 17781}#
- #{body 18235}#
- #{r 17913}#
- #{w 18187}#
- #{s 18188}#
+ (#{scan 17796}#
+ #{body 18250}#
+ #{r 17928}#
+ #{w 18202}#
+ #{s 18203}#
'c&e
'(compile load)
- #{mod 18189}#
- #{exps 17919}#)
- (if (if (eq? #{m 17916}# 'c)
+ #{mod 18204}#
+ #{exps 17934}#)
+ (if (if (eq? #{m 17931}# 'c)
#t
- (eq? #{m 17916}# 'c&e))
- (#{scan 17781}#
- #{body 18235}#
- #{r 17913}#
- #{w 18187}#
- #{s 18188}#
+ (eq? #{m 17931}# 'c&e))
+ (#{scan 17796}#
+ #{body 18250}#
+ #{r 17928}#
+ #{w 18202}#
+ #{s 18203}#
'c
'(load)
- #{mod 18189}#
- #{exps 17919}#)
- (values #{exps 17919}#)))
- (if (let ((#{t 18256}#
+ #{mod 18204}#
+ #{exps 17934}#)
+ (values #{exps 17934}#)))
+ (if (let ((#{t 18531}#
(memq 'compile
- #{when-list
18234}#)))
- (if #{t 18256}#
- #{t 18256}#
- (let ((#{t 18258}#
+ #{when-list
18249}#)))
+ (if #{t 18531}#
+ #{t 18531}#
+ (let ((#{t 18580}#
(memq 'expand
- #{when-list
18234}#)))
- (if #{t 18258}#
- #{t 18258}#
- (if (eq? #{m 17916}#
+ #{when-list
18249}#)))
+ (if #{t 18580}#
+ #{t 18580}#
+ (if (eq? #{m 17931}#
'c&e)
(memq 'eval
- #{when-list
18234}#)
+ #{when-list
18249}#)
#f)))))
(begin
- (let ((#{x 18263}#
- (#{chi-top-sequence
4341}#
- #{body 18235}#
- #{r 17913}#
- #{w 18187}#
- #{s 18188}#
+ (let ((#{x 18704}#
+ (#{expand-top-sequence
4329}#
+ #{body 18250}#
+ #{r 17928}#
+ #{w 18202}#
+ #{s 18203}#
'e
'(eval)
- #{mod 18189}#)))
- (primitive-eval #{x 18263}#))
- (values #{exps 17919}#))
- (values #{exps 17919}#))))))
- #{tmp 18227}#)
+ #{mod 18204}#)))
+ (primitive-eval #{x 18704}#))
+ (values #{exps 17934}#))
+ (values #{exps 17934}#))))))
+ #{tmp 18242}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{e 18186}#)))
- (if (eqv? #{type 18184}# 'define-syntax-form)
- (let ((#{n 18274}#
- (#{id-var-name 4332}#
- #{value 18185}#
- #{w 18187}#))
- (#{r 18275}#
- (#{macros-only-env 4309}#
- #{r 17913}#)))
- (if (eqv? #{m 17916}# 'c)
- (if (memq 'compile #{esew 17917}#)
- (let ((#{e 18279}#
- (#{chi-install-global 4342}#
- #{n 18274}#
- (#{chi 4345}#
- #{e 18186}#
- #{r 18275}#
- #{w 18187}#
- #{mod 18189}#))))
+ #{e 18201}#)))
+ (if (eqv? #{type 18199}# 'define-syntax-form)
+ (let ((#{n 18745}#
+ (#{id-var-name 4320}#
+ #{value 18200}#
+ #{w 18202}#))
+ (#{r 18746}#
+ (#{macros-only-env 4297}#
+ #{r 17928}#)))
+ (if (eqv? #{m 17931}# 'c)
+ (if (memq 'compile #{esew 17932}#)
+ (let ((#{e 18750}#
+ (#{expand-install-global 4330}#
+ #{n 18745}#
+ (#{expand 4333}#
+ #{e 18201}#
+ #{r 18746}#
+ #{w 18202}#
+ #{mod 18204}#))))
(begin
- (#{top-level-eval-hook 4273}#
- #{e 18279}#
- #{mod 18189}#)
- (if (memq 'load #{esew 17917}#)
+ (#{top-level-eval-hook 4261}#
+ #{e 18750}#
+ #{mod 18204}#)
+ (if (memq 'load #{esew 17932}#)
(values
- (cons #{e 18279}#
- #{exps 17919}#))
- (values #{exps 17919}#))))
- (if (memq 'load #{esew 17917}#)
+ (cons #{e 18750}#
+ #{exps 17934}#))
+ (values #{exps 17934}#))))
+ (if (memq 'load #{esew 17932}#)
(values
- (cons (#{chi-install-global 4342}#
- #{n 18274}#
- (#{chi 4345}#
- #{e 18186}#
- #{r 18275}#
- #{w 18187}#
- #{mod 18189}#))
- #{exps 17919}#))
- (values #{exps 17919}#)))
- (if (eqv? #{m 17916}# 'c&e)
- (let ((#{e 18736}#
- (#{chi-install-global 4342}#
- #{n 18274}#
- (#{chi 4345}#
- #{e 18186}#
- #{r 18275}#
- #{w 18187}#
- #{mod 18189}#))))
+ (cons (#{expand-install-global 4330}#
+ #{n 18745}#
+ (#{expand 4333}#
+ #{e 18201}#
+ #{r 18746}#
+ #{w 18202}#
+ #{mod 18204}#))
+ #{exps 17934}#))
+ (values #{exps 17934}#)))
+ (if (eqv? #{m 17931}# 'c&e)
+ (let ((#{e 19207}#
+ (#{expand-install-global 4330}#
+ #{n 18745}#
+ (#{expand 4333}#
+ #{e 18201}#
+ #{r 18746}#
+ #{w 18202}#
+ #{mod 18204}#))))
(begin
- (#{top-level-eval-hook 4273}#
- #{e 18736}#
- #{mod 18189}#)
+ (#{top-level-eval-hook 4261}#
+ #{e 19207}#
+ #{mod 18204}#)
(values
- (cons #{e 18736}#
- #{exps 17919}#))))
+ (cons #{e 19207}#
+ #{exps 17934}#))))
(begin
- (if (memq 'eval #{esew 17917}#)
- (#{top-level-eval-hook 4273}#
- (#{chi-install-global 4342}#
- #{n 18274}#
- (#{chi 4345}#
- #{e 18186}#
- #{r 18275}#
- #{w 18187}#
- #{mod 18189}#))
- #{mod 18189}#))
- (values #{exps 17919}#)))))
- (if (eqv? #{type 18184}# 'define-form)
- (let ((#{n 19386}#
- (#{id-var-name 4332}#
- #{value 18185}#
- #{w 18187}#)))
- (let ((#{type 19387}#
- (car (let ((#{t 20156}#
- (assq #{n 19386}#
- #{r 17913}#)))
- (if #{t 20156}#
- (cdr #{t 20156}#)
- (if (symbol? #{n 19386}#)
- (let ((#{t 20161}#
+ (if (memq 'eval #{esew 17932}#)
+ (#{top-level-eval-hook 4261}#
+ (#{expand-install-global 4330}#
+ #{n 18745}#
+ (#{expand 4333}#
+ #{e 18201}#
+ #{r 18746}#
+ #{w 18202}#
+ #{mod 18204}#))
+ #{mod 18204}#))
+ (values #{exps 17934}#)))))
+ (if (eqv? #{type 18199}# 'define-form)
+ (let ((#{n 19857}#
+ (#{id-var-name 4320}#
+ #{value 18200}#
+ #{w 18202}#)))
+ (let ((#{type 19858}#
+ (car (let ((#{t 20627}#
+ (assq #{n 19857}#
+ #{r 17928}#)))
+ (if #{t 20627}#
+ (cdr #{t 20627}#)
+ (if (symbol? #{n 19857}#)
+ (let ((#{t 20632}#
(begin
- (if (if (not
#{mod 18189}#)
+ (if (if (not
#{mod 18204}#)
(current-module)
#f)
(warn
"module system is booted, we should have a module"
- #{n
19386}#))
- (let ((#{v
20198}#
+ #{n
19857}#))
+ (let ((#{v
20669}#
(module-variable
- (if
#{mod 18189}#
+ (if
#{mod 18204}#
(resolve-module
-
(cdr #{mod 18189}#))
+
(cdr #{mod 18204}#))
(current-module))
- #{n
19386}#)))
- (if #{v
20198}#
+ #{n
19857}#)))
+ (if #{v
20669}#
(if
(variable-bound?
- #{v
20198}#)
- (let
((#{val 20207}#
+ #{v
20669}#)
+ (let
((#{val 20678}#
(variable-ref
-
#{v 20198}#)))
+
#{v 20669}#)))
(if
(macro?
-
#{val 20207}#)
+
#{val 20678}#)
(if
(macro-type
-
#{val 20207}#)
+
#{val 20678}#)
(cons (macro-type
-
#{val 20207}#)
+
#{val 20678}#)
(macro-binding
-
#{val 20207}#))
+
#{val 20678}#))
#f)
#f))
#f)
#f)))))
- (if #{t 20161}#
- #{t 20161}#
+ (if #{t 20632}#
+ #{t 20632}#
'(global)))
'(displaced-lexical)))))))
- (if (let ((#{t 19421}# #{type 19387}#))
- (if (eqv? #{t 19421}# 'global)
+ (if (let ((#{t 19892}# #{type 19858}#))
+ (if (eqv? #{t 19892}# 'global)
#t
- (if (eqv? #{t 19421}# 'core)
+ (if (eqv? #{t 19892}# 'core)
#t
- (if (eqv? #{t 19421}# 'macro)
+ (if (eqv? #{t 19892}# 'macro)
#t
- (eqv? #{t 19421}#
+ (eqv? #{t 19892}#
'module-ref)))))
(begin
- (if (if (if (eq? #{m 17916}# 'c)
+ (if (if (if (eq? #{m 17931}# 'c)
#t
- (eq? #{m 17916}# 'c&e))
+ (eq? #{m 17931}# 'c&e))
(if (not (module-local-variable
(current-module)
- #{n 19386}#))
+ #{n 19857}#))
(current-module)
#f)
#f)
- (let ((#{old 19585}#
+ (let ((#{old 20056}#
(module-variable
(current-module)
- #{n 19386}#)))
- (if (if (variable? #{old 19585}#)
+ #{n 19857}#)))
+ (if (if (variable? #{old 20056}#)
(variable-bound?
- #{old 19585}#)
+ #{old 20056}#)
#f)
(module-define!
(current-module)
- #{n 19386}#
- (variable-ref #{old 19585}#))
+ #{n 19857}#
+ (variable-ref #{old 20056}#))
(module-add!
(current-module)
- #{n 19386}#
+ #{n 19857}#
(make-undefined-variable)))))
(values
- (cons (if (eq? #{m 17916}# 'c&e)
- (let ((#{x 19587}#
-
(#{build-global-definition 4288}#
- #{s 18188}#
- #{n 19386}#
- (#{chi 4345}#
- #{e 18186}#
- #{r 17913}#
- #{w 18187}#
- #{mod
18189}#))))
+ (cons (if (eq? #{m 17931}# 'c&e)
+ (let ((#{x 20058}#
+
(#{build-global-definition 4276}#
+ #{s 18203}#
+ #{n 19857}#
+ (#{expand 4333}#
+ #{e 18201}#
+ #{r 17928}#
+ #{w 18202}#
+ #{mod
18204}#))))
(begin
- (#{top-level-eval-hook
4273}#
- #{x 19587}#
- #{mod 18189}#)
- #{x 19587}#))
+ (#{top-level-eval-hook
4261}#
+ #{x 20058}#
+ #{mod 18204}#)
+ #{x 20058}#))
(lambda ()
-
(#{build-global-definition 4288}#
- #{s 18188}#
- #{n 19386}#
- (#{chi 4345}#
- #{e 18186}#
- #{r 17913}#
- #{w 18187}#
- #{mod 18189}#))))
- #{exps 17919}#)))
- (if (let ((#{t 20083}# #{type 19387}#))
- (eqv? #{t 20083}#
+
(#{build-global-definition 4276}#
+ #{s 18203}#
+ #{n 19857}#
+ (#{expand 4333}#
+ #{e 18201}#
+ #{r 17928}#
+ #{w 18202}#
+ #{mod 18204}#))))
+ #{exps 17934}#)))
+ (if (let ((#{t 20554}# #{type 19858}#))
+ (eqv? #{t 20554}#
'displaced-lexical))
(syntax-violation
#f
"identifier out of context"
- #{e 18186}#
- (#{wrap 4338}#
- #{value 18185}#
- #{w 18187}#
- #{mod 18189}#))
+ #{e 18201}#
+ (#{wrap 4326}#
+ #{value 18200}#
+ #{w 18202}#
+ #{mod 18204}#))
(syntax-violation
#f
"cannot define keyword at top
level"
- #{e 18186}#
- (#{wrap 4338}#
- #{value 18185}#
- #{w 18187}#
- #{mod 18189}#))))))
+ #{e 18201}#
+ (#{wrap 4326}#
+ #{value 18200}#
+ #{w 18202}#
+ #{mod 18204}#))))))
(values
- (cons (if (eq? #{m 17916}# 'c&e)
- (let ((#{x 20218}#
- (#{chi-expr 4346}#
- #{type 18184}#
- #{value 18185}#
- #{e 18186}#
- #{r 17913}#
- #{w 18187}#
- #{s 18188}#
- #{mod 18189}#)))
+ (cons (if (eq? #{m 17931}# 'c&e)
+ (let ((#{x 20689}#
+ (#{expand-expr 4334}#
+ #{type 18199}#
+ #{value 18200}#
+ #{e 18201}#
+ #{r 17928}#
+ #{w 18202}#
+ #{s 18203}#
+ #{mod 18204}#)))
(begin
- (primitive-eval #{x 20218}#)
- #{x 20218}#))
+ (primitive-eval #{x 20689}#)
+ #{x 20689}#))
(lambda ()
- (#{chi-expr 4346}#
- #{type 18184}#
- #{value 18185}#
- #{e 18186}#
- #{r 17913}#
- #{w 18187}#
- #{s 18188}#
- #{mod 18189}#)))
- #{exps 17919}#))))))))))
- (lambda (#{exps 20227}#)
- (#{scan 17781}#
- (cdr #{body 17912}#)
- #{r 17913}#
- #{w 17914}#
- #{s 17915}#
- #{m 17916}#
- #{esew 17917}#
- #{mod 17918}#
- #{exps 20227}#)))))))
+ (#{expand-expr 4334}#
+ #{type 18199}#
+ #{value 18200}#
+ #{e 18201}#
+ #{r 17928}#
+ #{w 18202}#
+ #{s 18203}#
+ #{mod 18204}#)))
+ #{exps 17934}#))))))))))
+ (lambda (#{exps 20698}#)
+ (#{scan 17796}#
+ (cdr #{body 17927}#)
+ #{r 17928}#
+ #{w 17929}#
+ #{s 17930}#
+ #{m 17931}#
+ #{esew 17932}#
+ #{mod 17933}#
+ #{exps 20698}#)))))))
(call-with-values
(lambda ()
- (#{scan 17781}#
- #{body 17774}#
- #{r 17775}#
- #{w 17776}#
- #{s 17777}#
- #{m 17778}#
- #{esew 17779}#
- #{mod 17780}#
+ (#{scan 17796}#
+ #{body 17789}#
+ #{r 17790}#
+ #{w 17791}#
+ #{s 17792}#
+ #{m 17793}#
+ #{esew 17794}#
+ #{mod 17795}#
'()))
- (lambda (#{exps 17784}#)
- (if (null? #{exps 17784}#)
+ (lambda (#{exps 17799}#)
+ (if (null? #{exps 17799}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 0)
- #{s 17777}#)
- (#{build-sequence 4294}#
- #{s 17777}#
+ #{s 17792}#)
+ (#{build-sequence 4282}#
+ #{s 17792}#
(letrec*
- ((#{lp 17824}#
- (lambda (#{in 17908}# #{out 17909}#)
- (if (null? #{in 17908}#)
- #{out 17909}#
- (let ((#{e 17910}# (car #{in 17908}#)))
- (#{lp 17824}#
- (cdr #{in 17908}#)
- (cons (if (procedure? #{e 17910}#)
- (#{e 17910}#)
- #{e 17910}#)
- #{out 17909}#)))))))
- (#{lp 17824}# #{exps 17784}# '())))))))))
- (#{chi-install-global 4342}#
- (lambda (#{name 20228}# #{e 20229}#)
- (let ((#{exp 20235}#
- (let ((#{fun-exp 20245}#
+ ((#{lp 17839}#
+ (lambda (#{in 17923}# #{out 17924}#)
+ (if (null? #{in 17923}#)
+ #{out 17924}#
+ (let ((#{e 17925}# (car #{in 17923}#)))
+ (#{lp 17839}#
+ (cdr #{in 17923}#)
+ (cons (if (procedure? #{e 17925}#)
+ (#{e 17925}#)
+ #{e 17925}#)
+ #{out 17924}#)))))))
+ (#{lp 17839}# #{exps 17799}# '())))))))))
+ (#{expand-install-global 4330}#
+ (lambda (#{name 20699}# #{e 20700}#)
+ (let ((#{exp 20706}#
+ (let ((#{fun-exp 20716}#
(if (equal? (module-name (current-module)) '(guile))
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
@@ -1219,34691 +1218,14795 @@
'(guile)
'make-syntax-transformer
#f)))
- (#{arg-exps 20246}#
+ (#{arg-exps 20717}#
(list (make-struct/no-tail
(vector-ref %expanded-vtables 1)
#f
- #{name 20228}#)
+ #{name 20699}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 1)
#f
'macro)
- #{e 20229}#)))
+ #{e 20700}#)))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
#f
- #{fun-exp 20245}#
- #{arg-exps 20246}#))))
+ #{fun-exp 20716}#
+ #{arg-exps 20717}#))))
(begin
- (if (if (struct? #{exp 20235}#)
- (eq? (struct-vtable #{exp 20235}#)
+ (if (if (struct? #{exp 20706}#)
+ (eq? (struct-vtable #{exp 20706}#)
(vector-ref %expanded-vtables 13))
#f)
- (let ((#{meta 20287}# (struct-ref #{exp 20235}# 1)))
- (if (not (assq 'name #{meta 20287}#))
- (let ((#{v 20294}#
- (cons (cons 'name #{name 20228}#) #{meta 20287}#)))
- (struct-set! #{exp 20235}# 1 #{v 20294}#)))))
+ (let ((#{meta 20758}# (struct-ref #{exp 20706}# 1)))
+ (if (not (assq 'name #{meta 20758}#))
+ (let ((#{v 20765}#
+ (cons (cons 'name #{name 20699}#) #{meta 20758}#)))
+ (struct-set! #{exp 20706}# 1 #{v 20765}#)))))
(make-struct/no-tail
(vector-ref %expanded-vtables 9)
#f
- #{name 20228}#
- #{exp 20235}#)))))
- (#{chi-when-list 4343}#
- (lambda (#{e 20305}# #{when-list 20306}# #{w 20307}#)
- (letrec*
- ((#{f 20308}#
- (lambda (#{when-list 20311}# #{situations 20312}#)
- (if (null? #{when-list 20311}#)
- #{situations 20312}#
- (#{f 20308}#
- (cdr #{when-list 20311}#)
- (cons (let ((#{x 20313}# (car #{when-list 20311}#)))
- (if (if (eq? (if (if (vector? #{x 20313}#)
- (if (= (vector-length #{x 20313}#)
- 4)
- (eq? (vector-ref #{x 20313}# 0)
- 'syntax-object)
+ #{name 20699}#
+ #{exp 20706}#)))))
+ (#{parse-when-list 4331}#
+ (lambda (#{e 20776}# #{when-list 20777}#)
+ (let ((#{result 20778}#
+ (#{strip 4346}# #{when-list 20777}# '(()))))
+ (letrec*
+ ((#{lp 20779}#
+ (lambda (#{l 20833}#)
+ (if (null? #{l 20833}#)
+ #{result 20778}#
+ (if (let ((#{t 20835}# (car #{l 20833}#)))
+ (if (eq? #{t 20835}# 'compile)
+ #t
+ (if (eq? #{t 20835}# 'load)
+ #t
+ (if (eq? #{t 20835}# 'eval)
+ #t
+ (eq? #{t 20835}# 'expand)))))
+ (#{lp 20779}# (cdr #{l 20833}#))
+ (syntax-violation
+ 'eval-when
+ "invalid situation"
+ #{e 20776}#
+ (car #{l 20833}#)))))))
+ (#{lp 20779}# #{result 20778}#)))))
+ (#{syntax-type 4332}#
+ (lambda (#{e 20837}#
+ #{r 20838}#
+ #{w 20839}#
+ #{s 20840}#
+ #{rib 20841}#
+ #{mod 20842}#
+ #{for-car? 20843}#)
+ (if (symbol? #{e 20837}#)
+ (let ((#{n 20844}#
+ (#{id-var-name 4320}# #{e 20837}# #{w 20839}#)))
+ (let ((#{b 20845}#
+ (let ((#{t 21420}# (assq #{n 20844}# #{r 20838}#)))
+ (if #{t 21420}#
+ (cdr #{t 21420}#)
+ (if (symbol? #{n 20844}#)
+ (let ((#{t 21425}#
+ (begin
+ (if (if (not #{mod 20842}#)
+ (current-module)
+ #f)
+ (warn "module system is booted, we should
have a module"
+ #{n 20844}#))
+ (let ((#{v 21462}#
+ (module-variable
+ (if #{mod 20842}#
+ (resolve-module
+ (cdr #{mod 20842}#))
+ (current-module))
+ #{n 20844}#)))
+ (if #{v 21462}#
+ (if (variable-bound? #{v 21462}#)
+ (let ((#{val 21471}#
+ (variable-ref #{v 21462}#)))
+ (if (macro? #{val 21471}#)
+ (if (macro-type #{val 21471}#)
+ (cons (macro-type #{val 21471}#)
+ (macro-binding
+ #{val 21471}#))
#f)
- #f)
- (vector-ref #{x 20313}# 1)
- #{x 20313}#)
- (if (if (= (vector-length
- '#(syntax-object
- compile
- ((top)
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i1754"))
- #(ribcage () () ())
- #(ribcage
- #(f
- when-list
- situations)
- #((top) (top) (top))
- #("i1748"
- "i1749"
- "i1750"))
- #(ribcage () () ())
- #(ribcage
- #(e when-list w)
- #((top) (top) (top))
- #("i1745"
- "i1746"
- "i1747"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
-
eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
-
set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
-
set-syntax-object-module!
-
set-syntax-object-wrap!
-
set-syntax-object-expression!
-
syntax-object-module
- syntax-object-wrap
-
syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
-
build-global-definition
-
build-global-assignment
-
build-global-reference
- analyze-variable
-
build-lexical-assignment
-
build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
-
get-global-definition-hook
-
put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
-
make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
- (define-structure
-
define-expansion-accessors
-
define-expansion-constructors)
- ((top) (top) (top))
- ("i46" "i45" "i44")))
- (hygiene guile)))
- 4)
- (eq? (vector-ref
- '#(syntax-object
- compile
- ((top)
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i1754"))
- #(ribcage () () ())
- #(ribcage
- #(f
- when-list
- situations)
- #((top) (top) (top))
- #("i1748"
- "i1749"
- "i1750"))
- #(ribcage () () ())
- #(ribcage
- #(e when-list w)
- #((top) (top) (top))
- #("i1745"
- "i1746"
- "i1747"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
-
eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
-
set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
-
set-syntax-object-module!
-
set-syntax-object-wrap!
-
set-syntax-object-expression!
-
syntax-object-module
- syntax-object-wrap
-
syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
-
build-global-definition
-
build-global-assignment
-
build-global-reference
- analyze-variable
-
build-lexical-assignment
-
build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
-
get-global-definition-hook
-
put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
-
make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
- (define-structure
-
define-expansion-accessors
-
define-expansion-constructors)
- ((top) (top) (top))
- ("i46" "i45" "i44")))
- (hygiene guile))
- 0)
- 'syntax-object)
- #f)
- (vector-ref
- '#(syntax-object
- compile
- ((top)
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i1754"))
- #(ribcage () () ())
- #(ribcage
- #(f when-list situations)
- #((top) (top) (top))
- #("i1748" "i1749" "i1750"))
- #(ribcage () () ())
- #(ribcage
- #(e when-list w)
- #((top) (top) (top))
- #("i1745" "i1746" "i1747"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
-
set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
- (define-structure
- define-expansion-accessors
-
define-expansion-constructors)
- ((top) (top) (top))
- ("i46" "i45" "i44")))
- (hygiene guile))
- 1)
- '#(syntax-object
- compile
- ((top)
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i1754"))
- #(ribcage () () ())
- #(ribcage
- #(f when-list situations)
- #((top) (top) (top))
- #("i1748" "i1749" "i1750"))
- #(ribcage () () ())
- #(ribcage
- #(e when-list w)
- #((top) (top) (top))
- #("i1745" "i1746" "i1747"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
- (define-structure
- define-expansion-accessors
- define-expansion-constructors)
- ((top) (top) (top))
- ("i46" "i45" "i44")))
- (hygiene guile))))
- (eq? (#{id-var-name 4332}# #{x 20313}# '(()))
- (#{id-var-name 4332}#
- '#(syntax-object
- compile
- ((top)
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i1754"))
- #(ribcage () () ())
- #(ribcage
- #(f when-list situations)
- #((top) (top) (top))
- #("i1748" "i1749" "i1750"))
- #(ribcage () () ())
- #(ribcage
- #(e when-list w)
- #((top) (top) (top))
- #("i1745" "i1746" "i1747"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
- (define-structure
- define-expansion-accessors
- define-expansion-constructors)
- ((top) (top) (top))
- ("i46" "i45" "i44")))
- (hygiene guile))
- '(())))
- #f)
- 'compile
- (if (if (eq? (if (if (vector? #{x 20313}#)
- (if (= (vector-length
- #{x 20313}#)
- 4)
- (eq? (vector-ref
- #{x 20313}#
- 0)
- 'syntax-object)
- #f)
- #f)
- (vector-ref #{x 20313}# 1)
- #{x 20313}#)
- (if (if (= (vector-length
- '#(syntax-object
- load
- ((top)
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i1754"))
- #(ribcage () () ())
- #(ribcage
- #(f
- when-list
- situations)
- #((top)
- (top)
- (top))
- #("i1748"
- "i1749"
- "i1750"))
- #(ribcage () () ())
- #(ribcage
- #(e when-list w)
- #((top)
- (top)
- (top))
- #("i1745"
- "i1746"
- "i1747"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
-
eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
-
chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
-
distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
-
make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
-
set-ribcage-labels!
-
set-ribcage-marks!
-
set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
-
set-syntax-object-module!
-
set-syntax-object-wrap!
-
set-syntax-object-expression!
-
syntax-object-module
-
syntax-object-wrap
-
syntax-object-expression
- syntax-object?
-
make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
-
build-simple-lambda
-
build-global-definition
-
build-global-assignment
-
build-global-reference
- analyze-variable
-
build-lexical-assignment
-
build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
-
get-global-definition-hook
-
put-global-definition-hook
- gensym-hook
- local-eval-hook
-
top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
-
make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
-
make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
- (define-structure
-
define-expansion-accessors
-
define-expansion-constructors)
- ((top) (top) (top))
- ("i46"
- "i45"
- "i44")))
- (hygiene guile)))
- 4)
- (eq? (vector-ref
- '#(syntax-object
- load
- ((top)
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i1754"))
- #(ribcage () () ())
- #(ribcage
- #(f
- when-list
- situations)
- #((top)
- (top)
- (top))
- #("i1748"
- "i1749"
- "i1750"))
- #(ribcage () () ())
- #(ribcage
- #(e when-list w)
- #((top)
- (top)
- (top))
- #("i1745"
- "i1746"
- "i1747"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
-
eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
-
chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
-
distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
-
make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
-
set-ribcage-labels!
-
set-ribcage-marks!
-
set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
-
set-syntax-object-module!
-
set-syntax-object-wrap!
-
set-syntax-object-expression!
-
syntax-object-module
-
syntax-object-wrap
-
syntax-object-expression
- syntax-object?
-
make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
-
build-simple-lambda
-
build-global-definition
-
build-global-assignment
-
build-global-reference
- analyze-variable
-
build-lexical-assignment
-
build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
-
get-global-definition-hook
-
put-global-definition-hook
- gensym-hook
- local-eval-hook
-
top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
-
make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
-
make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
- (define-structure
-
define-expansion-accessors
-
define-expansion-constructors)
- ((top) (top) (top))
- ("i46"
- "i45"
- "i44")))
- (hygiene guile))
- 0)
- 'syntax-object)
- #f)
- (vector-ref
- '#(syntax-object
- load
- ((top)
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i1754"))
- #(ribcage () () ())
- #(ribcage
- #(f when-list situations)
- #((top) (top) (top))
- #("i1748" "i1749" "i1750"))
- #(ribcage () () ())
- #(ribcage
- #(e when-list w)
- #((top) (top) (top))
- #("i1745" "i1746" "i1747"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
-
set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
- (define-structure
- define-expansion-accessors
-
define-expansion-constructors)
- ((top) (top) (top))
- ("i46" "i45" "i44")))
- (hygiene guile))
- 1)
- '#(syntax-object
- load
- ((top)
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i1754"))
- #(ribcage () () ())
- #(ribcage
- #(f when-list situations)
- #((top) (top) (top))
- #("i1748" "i1749" "i1750"))
- #(ribcage () () ())
- #(ribcage
- #(e when-list w)
- #((top) (top) (top))
- #("i1745" "i1746" "i1747"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
-
set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
- (define-structure
- define-expansion-accessors
-
define-expansion-constructors)
- ((top) (top) (top))
- ("i46" "i45" "i44")))
- (hygiene guile))))
- (eq? (#{id-var-name 4332}# #{x 20313}# '(()))
- (#{id-var-name 4332}#
- '#(syntax-object
- load
- ((top)
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i1754"))
- #(ribcage () () ())
- #(ribcage
- #(f when-list situations)
- #((top) (top) (top))
- #("i1748" "i1749" "i1750"))
- #(ribcage () () ())
- #(ribcage
- #(e when-list w)
- #((top) (top) (top))
- #("i1745" "i1746" "i1747"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
- (define-structure
- define-expansion-accessors
- define-expansion-constructors)
- ((top) (top) (top))
- ("i46" "i45" "i44")))
- (hygiene guile))
- '(())))
- #f)
- 'load
- (if (if (eq? (if (if (vector? #{x 20313}#)
- (if (= (vector-length
- #{x 20313}#)
- 4)
- (eq? (vector-ref
- #{x 20313}#
- 0)
- 'syntax-object)
- #f)
- #f)
- (vector-ref #{x 20313}# 1)
- #{x 20313}#)
- (if (if (= (vector-length
- '#(syntax-object
- eval
- ((top)
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i1754"))
- #(ribcage () () ())
- #(ribcage
- #(f
- when-list
- situations)
- #((top)
- (top)
- (top))
- #("i1748"
- "i1749"
- "i1750"))
- #(ribcage () () ())
- #(ribcage
- #(e when-list w)
- #((top)
- (top)
- (top))
- #("i1745"
- "i1746"
- "i1747"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
-
chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
-
eval-local-transformer
-
chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
-
chi-install-global
-
chi-top-sequence
- chi-sequence
- source-wrap
- wrap
-
bound-id-member?
-
distinct-bound-ids?
-
valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
-
make-binding-wrap
- extend-ribcage!
-
make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
-
set-ribcage-labels!
-
set-ribcage-marks!
-
set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
-
ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
-
id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
-
source-annotation
- no-source
-
set-syntax-object-module!
-
set-syntax-object-wrap!
-
set-syntax-object-expression!
-
syntax-object-module
-
syntax-object-wrap
-
syntax-object-expression
- syntax-object?
-
make-syntax-object
-
build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
-
build-lambda-case
-
build-case-lambda
-
build-simple-lambda
-
build-global-definition
-
build-global-assignment
-
build-global-reference
-
analyze-variable
-
build-lexical-assignment
-
build-lexical-reference
- build-dynlet
-
build-conditional
-
build-application
- build-void
-
maybe-name-value!
- decorate-source
-
get-global-definition-hook
-
put-global-definition-hook
- gensym-hook
- local-eval-hook
-
top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
-
set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
-
make-lambda-case
- make-lambda
- make-sequence
-
make-application
-
make-conditional
-
make-toplevel-define
-
make-toplevel-set
-
make-toplevel-ref
- make-module-set
- make-module-ref
-
make-lexical-set
-
make-lexical-ref
-
make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
- (define-structure
-
define-expansion-accessors
-
define-expansion-constructors)
- ((top)
- (top)
- (top))
- ("i46"
- "i45"
- "i44")))
- (hygiene guile)))
- 4)
- (eq? (vector-ref
- '#(syntax-object
- eval
- ((top)
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i1754"))
- #(ribcage () () ())
- #(ribcage
- #(f
- when-list
- situations)
- #((top)
- (top)
- (top))
- #("i1748"
- "i1749"
- "i1750"))
- #(ribcage () () ())
- #(ribcage
- #(e when-list w)
- #((top)
- (top)
- (top))
- #("i1745"
- "i1746"
- "i1747"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
-
chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
-
eval-local-transformer
-
chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
-
chi-install-global
-
chi-top-sequence
- chi-sequence
- source-wrap
- wrap
-
bound-id-member?
-
distinct-bound-ids?
-
valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
-
make-binding-wrap
- extend-ribcage!
-
make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
-
set-ribcage-labels!
-
set-ribcage-marks!
-
set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
-
ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
-
id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
-
source-annotation
- no-source
-
set-syntax-object-module!
-
set-syntax-object-wrap!
-
set-syntax-object-expression!
-
syntax-object-module
-
syntax-object-wrap
-
syntax-object-expression
- syntax-object?
-
make-syntax-object
-
build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
-
build-lambda-case
-
build-case-lambda
-
build-simple-lambda
-
build-global-definition
-
build-global-assignment
-
build-global-reference
-
analyze-variable
-
build-lexical-assignment
-
build-lexical-reference
- build-dynlet
-
build-conditional
-
build-application
- build-void
-
maybe-name-value!
- decorate-source
-
get-global-definition-hook
-
put-global-definition-hook
- gensym-hook
- local-eval-hook
-
top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
-
set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
-
make-lambda-case
- make-lambda
- make-sequence
-
make-application
-
make-conditional
-
make-toplevel-define
-
make-toplevel-set
-
make-toplevel-ref
- make-module-set
- make-module-ref
-
make-lexical-set
-
make-lexical-ref
-
make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
- (define-structure
-
define-expansion-accessors
-
define-expansion-constructors)
- ((top)
- (top)
- (top))
- ("i46"
- "i45"
- "i44")))
- (hygiene guile))
- 0)
- 'syntax-object)
- #f)
- (vector-ref
- '#(syntax-object
- eval
- ((top)
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i1754"))
- #(ribcage () () ())
- #(ribcage
- #(f when-list situations)
- #((top) (top) (top))
- #("i1748"
- "i1749"
- "i1750"))
- #(ribcage () () ())
- #(ribcage
- #(e when-list w)
- #((top) (top) (top))
- #("i1745"
- "i1746"
- "i1747"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
-
set-syntax-object-module!
- set-syntax-object-wrap!
-
set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
-
get-global-definition-hook
-
put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
- (define-structure
-
define-expansion-accessors
-
define-expansion-constructors)
- ((top) (top) (top))
- ("i46" "i45" "i44")))
- (hygiene guile))
- 1)
- '#(syntax-object
- eval
- ((top)
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i1754"))
- #(ribcage () () ())
- #(ribcage
- #(f when-list situations)
- #((top) (top) (top))
- #("i1748" "i1749" "i1750"))
- #(ribcage () () ())
- #(ribcage
- #(e when-list w)
- #((top) (top) (top))
- #("i1745" "i1746" "i1747"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
-
set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
- (define-structure
- define-expansion-accessors
-
define-expansion-constructors)
- ((top) (top) (top))
- ("i46" "i45" "i44")))
- (hygiene guile))))
- (eq? (#{id-var-name 4332}#
- #{x 20313}#
- '(()))
- (#{id-var-name 4332}#
- '#(syntax-object
- eval
- ((top)
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i1754"))
- #(ribcage () () ())
- #(ribcage
- #(f when-list situations)
- #((top) (top) (top))
- #("i1748" "i1749" "i1750"))
- #(ribcage () () ())
- #(ribcage
- #(e when-list w)
- #((top) (top) (top))
- #("i1745" "i1746" "i1747"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
-
set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
- (define-structure
- define-expansion-accessors
-
define-expansion-constructors)
- ((top) (top) (top))
- ("i46" "i45" "i44")))
- (hygiene guile))
- '(())))
- #f)
- 'eval
- (if (if (eq? (if (if (vector? #{x 20313}#)
- (if (= (vector-length
- #{x 20313}#)
- 4)
- (eq? (vector-ref
- #{x 20313}#
- 0)
- 'syntax-object)
- #f)
- #f)
- (vector-ref #{x 20313}# 1)
- #{x 20313}#)
- (if (if (= (vector-length
- '#(syntax-object
- expand
- ((top)
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(x)
- #((top))
- #("i1754"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(f
- when-list
- situations)
- #((top)
- (top)
- (top))
- #("i1748"
- "i1749"
- "i1750"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(e
- when-list
- w)
- #((top)
- (top)
- (top))
- #("i1745"
- "i1746"
- "i1747"))
- #(ribcage
-
(lambda-var-list
- gen-var
- strip
-
chi-lambda-case
-
lambda*-formals
-
chi-simple-lambda
-
lambda-formals
- ellipsis?
- chi-void
-
eval-local-transformer
-
chi-local-syntax
- chi-body
- chi-macro
-
chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
-
chi-install-global
-
chi-top-sequence
- chi-sequence
- source-wrap
- wrap
-
bound-id-member?
-
distinct-bound-ids?
-
valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
-
make-binding-wrap
-
extend-ribcage!
-
make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
-
set-ribcage-labels!
-
set-ribcage-marks!
-
set-ribcage-symnames!
-
ribcage-labels
- ribcage-marks
-
ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
-
id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
-
macros-only-env
-
extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
-
source-annotation
- no-source
-
set-syntax-object-module!
-
set-syntax-object-wrap!
-
set-syntax-object-expression!
-
syntax-object-module
-
syntax-object-wrap
-
syntax-object-expression
-
syntax-object?
-
make-syntax-object
-
build-lexical-var
- build-letrec
-
build-named-let
- build-let
-
build-sequence
- build-data
- build-primref
-
build-lambda-case
-
build-case-lambda
-
build-simple-lambda
-
build-global-definition
-
build-global-assignment
-
build-global-reference
-
analyze-variable
-
build-lexical-assignment
-
build-lexical-reference
- build-dynlet
-
build-conditional
-
build-application
- build-void
-
maybe-name-value!
-
decorate-source
-
get-global-definition-hook
-
put-global-definition-hook
- gensym-hook
-
local-eval-hook
-
top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
-
set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
-
make-lambda-case
- make-lambda
- make-sequence
-
make-application
-
make-conditional
-
make-toplevel-define
-
make-toplevel-set
-
make-toplevel-ref
-
make-module-set
-
make-module-ref
-
make-lexical-set
-
make-lexical-ref
-
make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
-
(define-structure
-
define-expansion-accessors
-
define-expansion-constructors)
- ((top)
- (top)
- (top))
- ("i46"
- "i45"
- "i44")))
- (hygiene guile)))
- 4)
- (eq? (vector-ref
- '#(syntax-object
- expand
- ((top)
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(x)
- #((top))
- #("i1754"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(f
- when-list
- situations)
- #((top)
- (top)
- (top))
- #("i1748"
- "i1749"
- "i1750"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(e
- when-list
- w)
- #((top)
- (top)
- (top))
- #("i1745"
- "i1746"
- "i1747"))
- #(ribcage
-
(lambda-var-list
- gen-var
- strip
-
chi-lambda-case
-
lambda*-formals
-
chi-simple-lambda
-
lambda-formals
- ellipsis?
- chi-void
-
eval-local-transformer
-
chi-local-syntax
- chi-body
- chi-macro
-
chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
-
chi-install-global
-
chi-top-sequence
- chi-sequence
- source-wrap
- wrap
-
bound-id-member?
-
distinct-bound-ids?
-
valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
-
make-binding-wrap
-
extend-ribcage!
-
make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
-
set-ribcage-labels!
-
set-ribcage-marks!
-
set-ribcage-symnames!
-
ribcage-labels
- ribcage-marks
-
ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
-
id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
-
macros-only-env
-
extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
-
source-annotation
- no-source
-
set-syntax-object-module!
-
set-syntax-object-wrap!
-
set-syntax-object-expression!
-
syntax-object-module
-
syntax-object-wrap
-
syntax-object-expression
-
syntax-object?
-
make-syntax-object
-
build-lexical-var
- build-letrec
-
build-named-let
- build-let
-
build-sequence
- build-data
- build-primref
-
build-lambda-case
-
build-case-lambda
-
build-simple-lambda
-
build-global-definition
-
build-global-assignment
-
build-global-reference
-
analyze-variable
-
build-lexical-assignment
-
build-lexical-reference
- build-dynlet
-
build-conditional
-
build-application
- build-void
-
maybe-name-value!
-
decorate-source
-
get-global-definition-hook
-
put-global-definition-hook
- gensym-hook
-
local-eval-hook
-
top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
-
set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
-
make-lambda-case
- make-lambda
- make-sequence
-
make-application
-
make-conditional
-
make-toplevel-define
-
make-toplevel-set
-
make-toplevel-ref
-
make-module-set
-
make-module-ref
-
make-lexical-set
-
make-lexical-ref
-
make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
-
(define-structure
-
define-expansion-accessors
-
define-expansion-constructors)
- ((top)
- (top)
- (top))
- ("i46"
- "i45"
- "i44")))
- (hygiene guile))
- 0)
- 'syntax-object)
- #f)
- (vector-ref
- '#(syntax-object
- expand
- ((top)
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i1754"))
- #(ribcage () () ())
- #(ribcage
- #(f
- when-list
- situations)
- #((top) (top) (top))
- #("i1748"
- "i1749"
- "i1750"))
- #(ribcage () () ())
- #(ribcage
- #(e when-list w)
- #((top) (top) (top))
- #("i1745"
- "i1746"
- "i1747"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
-
set-syntax-object-module!
-
set-syntax-object-wrap!
-
set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
-
syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
-
build-global-definition
-
build-global-assignment
- build-global-reference
- analyze-variable
-
build-lexical-assignment
-
build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
-
get-global-definition-hook
-
put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
- (define-structure
-
define-expansion-accessors
-
define-expansion-constructors)
- ((top) (top) (top))
- ("i46" "i45" "i44")))
- (hygiene guile))
- 1)
- '#(syntax-object
- expand
- ((top)
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i1754"))
- #(ribcage () () ())
- #(ribcage
- #(f when-list situations)
- #((top) (top) (top))
- #("i1748"
- "i1749"
- "i1750"))
- #(ribcage () () ())
- #(ribcage
- #(e when-list w)
- #((top) (top) (top))
- #("i1745"
- "i1746"
- "i1747"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
-
set-syntax-object-module!
- set-syntax-object-wrap!
-
set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
-
get-global-definition-hook
-
put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
- (define-structure
-
define-expansion-accessors
-
define-expansion-constructors)
- ((top) (top) (top))
- ("i46" "i45" "i44")))
- (hygiene guile))))
- (eq? (#{id-var-name 4332}#
- #{x 20313}#
- '(()))
- (#{id-var-name 4332}#
- '#(syntax-object
- expand
- ((top)
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i1754"))
- #(ribcage () () ())
- #(ribcage
- #(f when-list situations)
- #((top) (top) (top))
- #("i1748" "i1749" "i1750"))
- #(ribcage () () ())
- #(ribcage
- #(e when-list w)
- #((top) (top) (top))
- #("i1745" "i1746" "i1747"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
-
set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
- (define-structure
- define-expansion-accessors
-
define-expansion-constructors)
- ((top) (top) (top))
- ("i46" "i45" "i44")))
- (hygiene guile))
- '(())))
- #f)
- 'expand
- (syntax-violation
- 'eval-when
- "invalid situation"
- #{e 20305}#
- (#{wrap 4338}#
- #{x 20313}#
- #{w 20307}#
- #f)))))))
- #{situations 20312}#))))))
- (#{f 20308}# #{when-list 20306}# '()))))
- (#{syntax-type 4344}#
- (lambda (#{e 20516}#
- #{r 20517}#
- #{w 20518}#
- #{s 20519}#
- #{rib 20520}#
- #{mod 20521}#
- #{for-car? 20522}#)
- (if (symbol? #{e 20516}#)
- (let ((#{n 20523}#
- (#{id-var-name 4332}# #{e 20516}# #{w 20518}#)))
- (let ((#{b 20524}#
- (let ((#{t 21099}# (assq #{n 20523}# #{r 20517}#)))
- (if #{t 21099}#
- (cdr #{t 21099}#)
- (if (symbol? #{n 20523}#)
- (let ((#{t 21104}#
- (begin
- (if (if (not #{mod 20521}#)
- (current-module)
- #f)
- (warn "module system is booted, we should
have a module"
- #{n 20523}#))
- (let ((#{v 21141}#
- (module-variable
- (if #{mod 20521}#
- (resolve-module
- (cdr #{mod 20521}#))
- (current-module))
- #{n 20523}#)))
- (if #{v 21141}#
- (if (variable-bound? #{v 21141}#)
- (let ((#{val 21150}#
- (variable-ref #{v 21141}#)))
- (if (macro? #{val 21150}#)
- (if (macro-type #{val 21150}#)
- (cons (macro-type #{val 21150}#)
- (macro-binding
- #{val 21150}#))
- #f)
- #f))
- #f)
- #f)))))
- (if #{t 21104}# #{t 21104}# '(global)))
- '(displaced-lexical))))))
- (let ((#{type 20525}# (car #{b 20524}#)))
- (if (let ((#{t 20559}# #{type 20525}#))
- (eqv? #{t 20559}# 'lexical))
- (values
- #{type 20525}#
- (cdr #{b 20524}#)
- #{e 20516}#
- #{w 20518}#
- #{s 20519}#
- #{mod 20521}#)
- (if (let ((#{t 20716}# #{type 20525}#))
- (eqv? #{t 20716}# 'global))
- (values
- #{type 20525}#
- #{n 20523}#
- #{e 20516}#
- #{w 20518}#
- #{s 20519}#
- #{mod 20521}#)
- (if (let ((#{t 20842}# #{type 20525}#))
- (eqv? #{t 20842}# 'macro))
- (if #{for-car? 20522}#
- (values
- #{type 20525}#
- (cdr #{b 20524}#)
- #{e 20516}#
- #{w 20518}#
- #{s 20519}#
- #{mod 20521}#)
- (#{syntax-type 4344}#
- (#{chi-macro 4348}#
- (cdr #{b 20524}#)
- #{e 20516}#
- #{r 20517}#
- #{w 20518}#
- #{s 20519}#
- #{rib 20520}#
- #{mod 20521}#)
- #{r 20517}#
- '(())
- #{s 20519}#
- #{rib 20520}#
- #{mod 20521}#
- #f))
- (values
- #{type 20525}#
- (cdr #{b 20524}#)
- #{e 20516}#
- #{w 20518}#
- #{s 20519}#
- #{mod 20521}#)))))))
- (if (pair? #{e 20516}#)
- (let ((#{first 21161}# (car #{e 20516}#)))
- (call-with-values
- (lambda ()
- (#{syntax-type 4344}#
- #{first 21161}#
- #{r 20517}#
- #{w 20518}#
- #{s 20519}#
- #{rib 20520}#
- #{mod 20521}#
- #t))
- (lambda (#{ftype 21163}#
- #{fval 21164}#
- #{fe 21165}#
- #{fw 21166}#
- #{fs 21167}#
- #{fmod 21168}#)
- (if (eqv? #{ftype 21163}# 'lexical)
- (values
- 'lexical-call
- #{fval 21164}#
- #{e 20516}#
- #{w 20518}#
- #{s 20519}#
- #{mod 20521}#)
- (if (eqv? #{ftype 21163}# 'global)
- (values
- 'global-call
- (vector
- 'syntax-object
- #{fval 21164}#
- #{w 20518}#
- #{fmod 21168}#)
- #{e 20516}#
- #{w 20518}#
- #{s 20519}#
- #{mod 20521}#)
- (if (eqv? #{ftype 21163}# 'macro)
- (#{syntax-type 4344}#
- (#{chi-macro 4348}#
- #{fval 21164}#
- #{e 20516}#
- #{r 20517}#
- #{w 20518}#
- #{s 20519}#
- #{rib 20520}#
- #{mod 20521}#)
- #{r 20517}#
- '(())
- #{s 20519}#
- #{rib 20520}#
- #{mod 20521}#
- #{for-car? 20522}#)
- (if (eqv? #{ftype 21163}# 'module-ref)
- (call-with-values
- (lambda ()
- (#{fval 21164}#
- #{e 20516}#
- #{r 20517}#
- #{w 20518}#))
- (lambda (#{e 21189}#
- #{r 21190}#
- #{w 21191}#
- #{s 21192}#
- #{mod 21193}#)
- (#{syntax-type 4344}#
- #{e 21189}#
- #{r 21190}#
- #{w 21191}#
- #{s 21192}#
- #{rib 20520}#
- #{mod 21193}#
- #{for-car? 20522}#)))
- (if (eqv? #{ftype 21163}# 'core)
- (values
- 'core-form
- #{fval 21164}#
- #{e 20516}#
- #{w 20518}#
- #{s 20519}#
- #{mod 20521}#)
- (if (eqv? #{ftype 21163}# 'local-syntax)
- (values
- 'local-syntax-form
- #{fval 21164}#
- #{e 20516}#
- #{w 20518}#
- #{s 20519}#
- #{mod 20521}#)
- (if (eqv? #{ftype 21163}# 'begin)
- (values
- 'begin-form
- #f
- #{e 20516}#
- #{w 20518}#
- #{s 20519}#
- #{mod 20521}#)
- (if (eqv? #{ftype 21163}# 'eval-when)
- (values
- 'eval-when-form
- #f
- #{e 20516}#
- #{w 20518}#
- #{s 20519}#
- #{mod 20521}#)
- (if (eqv? #{ftype 21163}# 'define)
- (let ((#{tmp 21210}#
- ($sc-dispatch
- #{e 20516}#
- '(_ any any))))
- (if (if #{tmp 21210}#
- (@apply
- (lambda (#{name 21214}#
- #{val 21215}#)
- (if (symbol? #{name 21214}#)
- #t
- (if (if (vector?
- #{name 21214}#)
- (if (= (vector-length
- #{name 21214}#)
- 4)
- (eq? (vector-ref
- #{name 21214}#
- 0)
- 'syntax-object)
- #f)
- #f)
- (symbol?
- (vector-ref
- #{name 21214}#
- 1))
- #f)))
- #{tmp 21210}#)
- #f)
- (@apply
- (lambda (#{name 21242}# #{val 21243}#)
- (values
- 'define-form
- #{name 21242}#
- #{val 21243}#
- #{w 20518}#
- #{s 20519}#
- #{mod 20521}#))
- #{tmp 21210}#)
- (let ((#{tmp 21244}#
- ($sc-dispatch
- #{e 20516}#
- '(_ (any . any)
- any
- .
- each-any))))
- (if (if #{tmp 21244}#
- (@apply
- (lambda (#{name 21248}#
- #{args 21249}#
- #{e1 21250}#
- #{e2 21251}#)
- (if (if (symbol?
- #{name 21248}#)
- #t
- (if (if (vector?
- #{name
21248}#)
- (if (=
(vector-length
- #{name
21248}#)
- 4)
- (eq?
(vector-ref
- #{name
21248}#
- 0)
-
'syntax-object)
- #f)
- #f)
- (symbol?
- (vector-ref
- #{name 21248}#
- 1))
- #f))
- (#{valid-bound-ids? 4335}#
- (letrec*
- ((#{lvl 21400}#
- (lambda (#{vars
21402}#
- #{ls
21403}#
- #{w
21404}#)
- (if (pair?
#{vars 21402}#)
- (#{lvl 21400}#
- (cdr #{vars
21402}#)
- (cons
(#{wrap 4338}#
- (car
#{vars 21402}#)
- #{w
21404}#
- #f)
- #{ls
21403}#)
- #{w 21404}#)
- (if (if
(symbol?
-
#{vars 21402}#)
- #t
- (if (if
(vector?
-
#{vars 21402}#)
-
(if (= (vector-length
-
#{vars 21402}#)
-
4)
-
(eq? (vector-ref
-
#{vars 21402}#
-
0)
-
'syntax-object)
-
#f)
- #f)
-
(symbol?
-
(vector-ref
-
#{vars 21402}#
- 1))
- #f))
- (cons
(#{wrap 4338}#
-
#{vars 21402}#
- #{w
21404}#
- #f)
- #{ls
21403}#)
- (if (null?
#{vars 21402}#)
- #{ls
21403}#
- (if (if
(vector?
-
#{vars 21402}#)
- (if
(= (vector-length
-
#{vars 21402}#)
-
4)
-
(eq? (vector-ref
-
#{vars 21402}#
-
0)
-
'syntax-object)
- #f)
- #f)
- (#{lvl
21400}#
-
(vector-ref
-
#{vars 21402}#
- 1)
- #{ls
21403}#
-
(#{join-wraps 4329}#
- #{w
21404}#
-
(vector-ref
-
#{vars 21402}#
-
2)))
- (cons
#{vars 21402}#
-
#{ls 21403}#))))))))
- (#{lvl 21400}#
- #{args 21249}#
- '()
- '(()))))
- #f))
- #{tmp 21244}#)
- #f)
- (@apply
- (lambda (#{name 21448}#
- #{args 21449}#
- #{e1 21450}#
- #{e2 21451}#)
- (values
- 'define-form
- (#{wrap 4338}#
- #{name 21448}#
- #{w 20518}#
- #{mod 20521}#)
- (let ((#{e 21457}#
- (cons '#(syntax-object
- lambda
- ((top)
- #(ribcage
- #(name
- args
- e1
- e2)
- #((top)
- (top)
- (top)
- (top))
- #("i1855"
- "i1856"
- "i1857"
-
"i1858"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(ftype
- fval
- fe
- fw
- fs
- fmod)
- #((top)
- (top)
- (top)
- (top)
- (top)
- (top))
- #("i1808"
- "i1809"
- "i1810"
- "i1811"
- "i1812"
-
"i1813"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(first)
- #((top))
-
#("i1800"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(e
- r
- w
- s
- rib
- mod
-
for-car?)
- #((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- #("i1772"
- "i1773"
- "i1774"
- "i1775"
- "i1776"
- "i1777"
-
"i1778"))
- #(ribcage
-
(lambda-var-list
- gen-var
- strip
-
chi-lambda-case
-
lambda*-formals
-
chi-simple-lambda
-
lambda-formals
-
ellipsis?
- chi-void
-
eval-local-transformer
-
chi-local-syntax
- chi-body
-
chi-macro
-
chi-application
- chi-expr
- chi
-
syntax-type
-
chi-when-list
-
chi-install-global
-
chi-top-sequence
-
chi-sequence
-
source-wrap
- wrap
-
bound-id-member?
-
distinct-bound-ids?
-
valid-bound-ids?
-
bound-id=?
-
free-id=?
-
id-var-name
-
same-marks?
-
join-marks
-
join-wraps
-
smart-append
-
make-binding-wrap
-
extend-ribcage!
-
make-empty-ribcage
- new-mark
-
anti-mark
-
the-anti-mark
-
top-marked?
- top-wrap
-
empty-wrap
-
set-ribcage-labels!
-
set-ribcage-marks!
-
set-ribcage-symnames!
-
ribcage-labels
-
ribcage-marks
-
ribcage-symnames
- ribcage?
-
make-ribcage
-
gen-labels
-
gen-label
-
make-rename
-
rename-marks
-
rename-new
-
rename-old
-
subst-rename?
-
wrap-subst
-
wrap-marks
-
make-wrap
-
id-sym-name&marks
-
id-sym-name
- id?
-
nonsymbol-id?
-
global-extend
- lookup
-
macros-only-env
-
extend-var-env
-
extend-env
- null-env
-
binding-value
-
binding-type
-
make-binding
-
arg-check
-
source-annotation
-
no-source
-
set-syntax-object-module!
-
set-syntax-object-wrap!
-
set-syntax-object-expression!
-
syntax-object-module
-
syntax-object-wrap
-
syntax-object-expression
-
syntax-object?
-
make-syntax-object
-
build-lexical-var
-
build-letrec
-
build-named-let
-
build-let
-
build-sequence
-
build-data
-
build-primref
-
build-lambda-case
-
build-case-lambda
-
build-simple-lambda
-
build-global-definition
-
build-global-assignment
-
build-global-reference
-
analyze-variable
-
build-lexical-assignment
-
build-lexical-reference
-
build-dynlet
-
build-conditional
-
build-application
-
build-void
-
maybe-name-value!
-
decorate-source
-
get-global-definition-hook
-
put-global-definition-hook
-
gensym-hook
-
local-eval-hook
-
top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
-
set-lambda-meta!
-
lambda-meta
- lambda?
-
make-dynlet
-
make-letrec
- make-let
-
make-lambda-case
-
make-lambda
-
make-sequence
-
make-application
-
make-conditional
-
make-toplevel-define
-
make-toplevel-set
-
make-toplevel-ref
-
make-module-set
-
make-module-ref
-
make-lexical-set
-
make-lexical-ref
-
make-primitive-ref
-
make-const
-
make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
-
(define-structure
-
define-expansion-accessors
-
define-expansion-constructors)
- ((top)
- (top)
- (top))
- ("i46"
- "i45"
- "i44")))
- (hygiene
- guile))
- (#{wrap 4338}#
- (cons #{args
21449}#
- (cons
#{e1 21450}#
-
#{e2 21451}#))
- #{w 20518}#
- #{mod
20521}#))))
- (begin
- (if (if (pair? #{e
21457}#)
- #{s 20519}#
- #f)
- (set-source-properties!
- #{e 21457}#
- #{s 20519}#))
- #{e 21457}#))
- '(())
- #{s 20519}#
- #{mod 20521}#))
- #{tmp 21244}#)
- (let ((#{tmp 21464}#
- ($sc-dispatch
- #{e 20516}#
- '(_ any))))
- (if (if #{tmp 21464}#
- (@apply
- (lambda (#{name 21468}#)
- (if (symbol?
- #{name 21468}#)
- #t
- (if (if (vector?
- #{name
21468}#)
- (if (=
(vector-length
- #{name
21468}#)
- 4)
- (eq?
(vector-ref
- #{name
21468}#
- 0)
-
'syntax-object)
- #f)
- #f)
- (symbol?
- (vector-ref
- #{name 21468}#
- 1))
- #f)))
- #{tmp 21464}#)
- #f)
- (@apply
- (lambda (#{name 21495}#)
- (values
- 'define-form
- (#{wrap 4338}#
- #{name 21495}#
- #{w 20518}#
- #{mod 20521}#)
- '(#(syntax-object
- if
- ((top)
- #(ribcage
- #(name)
- #((top))
- #("i1868"))
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage
- #(ftype
- fval
- fe
- fw
- fs
- fmod)
- #((top)
- (top)
- (top)
- (top)
- (top)
- (top))
- #("i1808"
- "i1809"
- "i1810"
- "i1811"
- "i1812"
- "i1813"))
- #(ribcage () () ())
- #(ribcage
- #(first)
- #((top))
- #("i1800"))
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage
- #(e
- r
- w
- s
- rib
- mod
- for-car?)
- #((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- #("i1772"
- "i1773"
- "i1774"
- "i1775"
- "i1776"
- "i1777"
- "i1778"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
-
eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
-
chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
-
distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
-
make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
-
set-ribcage-labels!
-
set-ribcage-marks!
-
set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
-
set-syntax-object-module!
-
set-syntax-object-wrap!
-
set-syntax-object-expression!
-
syntax-object-module
-
syntax-object-wrap
-
syntax-object-expression
- syntax-object?
-
make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
-
build-simple-lambda
-
build-global-definition
-
build-global-assignment
-
build-global-reference
- analyze-variable
-
build-lexical-assignment
-
build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
-
get-global-definition-hook
-
put-global-definition-hook
- gensym-hook
- local-eval-hook
-
top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
-
make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
-
make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
- (define-structure
-
define-expansion-accessors
-
define-expansion-constructors)
- ((top) (top) (top))
- ("i46"
- "i45"
- "i44")))
- (hygiene guile))
- #(syntax-object
- #f
- ((top)
- #(ribcage
- #(name)
- #((top))
- #("i1868"))
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage
- #(ftype
- fval
- fe
- fw
- fs
- fmod)
- #((top)
- (top)
- (top)
- (top)
- (top)
- (top))
- #("i1808"
- "i1809"
- "i1810"
- "i1811"
- "i1812"
- "i1813"))
- #(ribcage () () ())
- #(ribcage
- #(first)
- #((top))
- #("i1800"))
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage
- #(e
- r
- w
- s
- rib
- mod
- for-car?)
- #((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- #("i1772"
- "i1773"
- "i1774"
- "i1775"
- "i1776"
- "i1777"
- "i1778"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
-
eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
-
chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
-
distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
-
make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
-
set-ribcage-labels!
-
set-ribcage-marks!
-
set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
-
set-syntax-object-module!
-
set-syntax-object-wrap!
-
set-syntax-object-expression!
-
syntax-object-module
-
syntax-object-wrap
-
syntax-object-expression
- syntax-object?
-
make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
-
build-simple-lambda
-
build-global-definition
-
build-global-assignment
-
build-global-reference
- analyze-variable
-
build-lexical-assignment
-
build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
-
get-global-definition-hook
-
put-global-definition-hook
- gensym-hook
- local-eval-hook
-
top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
-
make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
-
make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
- (define-structure
-
define-expansion-accessors
-
define-expansion-constructors)
- ((top) (top) (top))
- ("i46"
- "i45"
- "i44")))
- (hygiene guile))
- #(syntax-object
- #f
- ((top)
- #(ribcage
- #(name)
- #((top))
- #("i1868"))
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage
- #(ftype
- fval
- fe
- fw
- fs
- fmod)
- #((top)
- (top)
- (top)
- (top)
- (top)
- (top))
- #("i1808"
- "i1809"
- "i1810"
- "i1811"
- "i1812"
- "i1813"))
- #(ribcage () () ())
- #(ribcage
- #(first)
- #((top))
- #("i1800"))
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage
- #(e
- r
- w
- s
- rib
- mod
- for-car?)
- #((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- #("i1772"
- "i1773"
- "i1774"
- "i1775"
- "i1776"
- "i1777"
- "i1778"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
-
eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
-
chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
-
distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
-
make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
-
set-ribcage-labels!
-
set-ribcage-marks!
-
set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
-
set-syntax-object-module!
-
set-syntax-object-wrap!
-
set-syntax-object-expression!
-
syntax-object-module
-
syntax-object-wrap
-
syntax-object-expression
- syntax-object?
-
make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
-
build-simple-lambda
-
build-global-definition
-
build-global-assignment
-
build-global-reference
- analyze-variable
-
build-lexical-assignment
-
build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
-
get-global-definition-hook
-
put-global-definition-hook
- gensym-hook
- local-eval-hook
-
top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
-
make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
-
make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
- (define-structure
-
define-expansion-accessors
-
define-expansion-constructors)
- ((top) (top) (top))
- ("i46"
- "i45"
- "i44")))
- (hygiene guile)))
- '(())
- #{s 20519}#
- #{mod 20521}#))
- #{tmp 21464}#)
- (syntax-violation
- #f
- "source expression failed to
match any pattern"
- #{e 20516}#)))))))
- (if (eqv? #{ftype 21163}# 'define-syntax)
- (let ((#{tmp 21514}#
- ($sc-dispatch
- #{e 20516}#
- '(_ any any))))
- (if (if #{tmp 21514}#
- (@apply
- (lambda (#{name 21518}#
- #{val 21519}#)
- (if (symbol? #{name 21518}#)
- #t
- (if (if (vector?
- #{name 21518}#)
- (if (= (vector-length
- #{name
21518}#)
- 4)
- (eq? (vector-ref
- #{name
21518}#
- 0)
- 'syntax-object)
- #f)
- #f)
- (symbol?
- (vector-ref
- #{name 21518}#
- 1))
- #f)))
- #{tmp 21514}#)
- #f)
- (@apply
- (lambda (#{name 21546}#
- #{val 21547}#)
- (values
- 'define-syntax-form
- #{name 21546}#
- #{val 21547}#
- #{w 20518}#
- #{s 20519}#
- #{mod 20521}#))
- #{tmp 21514}#)
- (syntax-violation
- #f
- "source expression failed to match
any pattern"
- #{e 20516}#)))
- (values
- 'call
- #f
- #{e 20516}#
- #{w 20518}#
- #{s 20519}#
- #{mod 20521}#))))))))))))))
- (if (if (vector? #{e 20516}#)
- (if (= (vector-length #{e 20516}#) 4)
- (eq? (vector-ref #{e 20516}# 0) 'syntax-object)
- #f)
- #f)
- (#{syntax-type 4344}#
- (vector-ref #{e 20516}# 1)
- #{r 20517}#
- (#{join-wraps 4329}#
- #{w 20518}#
- (vector-ref #{e 20516}# 2))
- (let ((#{t 21574}#
- (#{source-annotation 4306}# #{e 20516}#)))
- (if #{t 21574}# #{t 21574}# #{s 20519}#))
- #{rib 20520}#
- (let ((#{t 21834}# (vector-ref #{e 20516}# 3)))
- (if #{t 21834}# #{t 21834}# #{mod 20521}#))
- #{for-car? 20522}#)
- (if (self-evaluating? #{e 20516}#)
- (values
- 'constant
- #f
- #{e 20516}#
- #{w 20518}#
- #{s 20519}#
- #{mod 20521}#)
- (values
- 'other
- #f
- #{e 20516}#
- #{w 20518}#
- #{s 20519}#
- #{mod 20521}#)))))))
- (#{chi 4345}#
- (lambda (#{e 21843}#
- #{r 21844}#
- #{w 21845}#
- #{mod 21846}#)
- (call-with-values
- (lambda ()
- (#{syntax-type 4344}#
- #{e 21843}#
- #{r 21844}#
- #{w 21845}#
- (#{source-annotation 4306}# #{e 21843}#)
- #f
- #{mod 21846}#
- #f))
- (lambda (#{type 22020}#
- #{value 22021}#
- #{e 22022}#
- #{w 22023}#
- #{s 22024}#
- #{mod 22025}#)
- (#{chi-expr 4346}#
- #{type 22020}#
- #{value 22021}#
- #{e 22022}#
- #{r 21844}#
- #{w 22023}#
- #{s 22024}#
- #{mod 22025}#)))))
- (#{chi-expr 4346}#
- (lambda (#{type 22028}#
- #{value 22029}#
- #{e 22030}#
- #{r 22031}#
- #{w 22032}#
- #{s 22033}#
- #{mod 22034}#)
- (if (eqv? #{type 22028}# 'lexical)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 3)
- #{s 22033}#
- #{e 22030}#
- #{value 22029}#)
- (if (if (eqv? #{type 22028}# 'core)
- #t
- (eqv? #{type 22028}# 'core-form))
- (#{value 22029}#
- #{e 22030}#
- #{r 22031}#
- #{w 22032}#
- #{s 22033}#
- #{mod 22034}#)
- (if (eqv? #{type 22028}# 'module-ref)
- (call-with-values
- (lambda ()
- (#{value 22029}#
- #{e 22030}#
- #{r 22031}#
- #{w 22032}#))
- (lambda (#{e 22060}#
- #{r 22061}#
- #{w 22062}#
- #{s 22063}#
- #{mod 22064}#)
- (#{chi 4345}#
- #{e 22060}#
- #{r 22061}#
- #{w 22062}#
- #{mod 22064}#)))
- (if (eqv? #{type 22028}# 'lexical-call)
- (#{chi-application 4347}#
- (let ((#{id 22144}# (car #{e 22030}#)))
- (#{build-lexical-reference 4283}#
- 'fun
- (#{source-annotation 4306}# #{id 22144}#)
- (if (if (vector? #{id 22144}#)
- (if (= (vector-length #{id 22144}#) 4)
- (eq? (vector-ref #{id 22144}# 0) 'syntax-object)
- #f)
- #f)
- (syntax->datum #{id 22144}#)
- #{id 22144}#)
- #{value 22029}#))
- #{e 22030}#
- #{r 22031}#
- #{w 22032}#
- #{s 22033}#
- #{mod 22034}#)
- (if (eqv? #{type 22028}# 'global-call)
- (#{chi-application 4347}#
- (#{build-global-reference 4286}#
- (#{source-annotation 4306}# (car #{e 22030}#))
- (if (if (vector? #{value 22029}#)
- (if (= (vector-length #{value 22029}#) 4)
- (eq? (vector-ref #{value 22029}# 0)
- 'syntax-object)
- #f)
- #f)
- (vector-ref #{value 22029}# 1)
- #{value 22029}#)
- (if (if (vector? #{value 22029}#)
- (if (= (vector-length #{value 22029}#) 4)
- (eq? (vector-ref #{value 22029}# 0)
- 'syntax-object)
- #f)
- #f)
- (vector-ref #{value 22029}# 3)
- #{mod 22034}#))
- #{e 22030}#
- #{r 22031}#
- #{w 22032}#
- #{s 22033}#
- #{mod 22034}#)
- (if (eqv? #{type 22028}# 'constant)
- (let ((#{exp 22680}#
- (#{strip 4358}#
- (#{wrap 4338}#
- (begin
- (if (if (pair? #{e 22030}#) #{s 22033}# #f)
- (set-source-properties!
- #{e 22030}#
- #{s 22033}#))
- #{e 22030}#)
- #{w 22032}#
- #{mod 22034}#)
- '(()))))
- (make-struct/no-tail
- (vector-ref %expanded-vtables 1)
- #{s 22033}#
- #{exp 22680}#))
- (if (eqv? #{type 22028}# 'global)
- (#{analyze-variable 4285}#
- #{mod 22034}#
- #{value 22029}#
- (lambda (#{mod 22716}# #{var 22717}# #{public? 22718}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 5)
- #{s 22033}#
- #{mod 22716}#
- #{var 22717}#
- #{public? 22718}#))
- (lambda (#{var 22727}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 7)
- #{s 22033}#
- #{var 22727}#)))
- (if (eqv? #{type 22028}# 'call)
- (#{chi-application 4347}#
- (#{chi 4345}#
- (car #{e 22030}#)
- #{r 22031}#
- #{w 22032}#
- #{mod 22034}#)
- #{e 22030}#
- #{r 22031}#
- #{w 22032}#
- #{s 22033}#
- #{mod 22034}#)
- (if (eqv? #{type 22028}# 'begin-form)
- (let ((#{tmp 22807}#
- ($sc-dispatch
- #{e 22030}#
- '(_ any . each-any))))
- (if #{tmp 22807}#
- (@apply
- (lambda (#{e1 22811}# #{e2 22812}#)
- (#{chi-sequence 4340}#
- (cons #{e1 22811}# #{e2 22812}#)
- #{r 22031}#
- #{w 22032}#
- #{s 22033}#
- #{mod 22034}#))
- #{tmp 22807}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{e 22030}#)))
- (if (eqv? #{type 22028}# 'local-syntax-form)
- (#{chi-local-syntax 4350}#
- #{value 22029}#
- #{e 22030}#
- #{r 22031}#
- #{w 22032}#
- #{s 22033}#
- #{mod 22034}#
- #{chi-sequence 4340}#)
- (if (eqv? #{type 22028}# 'eval-when-form)
- (let ((#{tmp 22978}#
- ($sc-dispatch
- #{e 22030}#
- '(_ each-any any . each-any))))
- (if #{tmp 22978}#
- (@apply
- (lambda (#{x 22982}#
- #{e1 22983}#
- #{e2 22984}#)
- (let ((#{when-list 22985}#
- (#{chi-when-list 4343}#
- #{e 22030}#
- #{x 22982}#
- #{w 22032}#)))
- (if (memq 'eval #{when-list 22985}#)
- (#{chi-sequence 4340}#
- (cons #{e1 22983}# #{e2 22984}#)
- #{r 22031}#
- #{w 22032}#
- #{s 22033}#
- #{mod 22034}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 0)
- #f))))
- #{tmp 22978}#)
- (syntax-violation
- #f
- "source expression failed to match any
pattern"
- #{e 22030}#)))
- (if (if (eqv? #{type 22028}# 'define-form)
- #t
- (eqv? #{type 22028}# 'define-syntax-form))
- (syntax-violation
- #f
- "definition in expression context"
- #{e 22030}#
- (#{wrap 4338}#
- #{value 22029}#
- #{w 22032}#
- #{mod 22034}#))
- (if (eqv? #{type 22028}# 'syntax)
- (syntax-violation
- #f
- "reference to pattern variable outside
syntax form"
- (#{wrap 4338}#
- (begin
- (if (if (pair? #{e 22030}#)
- #{s 22033}#
- #f)
- (set-source-properties!
- #{e 22030}#
- #{s 22033}#))
- #{e 22030}#)
- #{w 22032}#
- #{mod 22034}#))
- (if (eqv? #{type 22028}# 'displaced-lexical)
- (syntax-violation
- #f
- "reference to identifier outside its
scope"
- (#{wrap 4338}#
- (begin
- (if (if (pair? #{e 22030}#)
- #{s 22033}#
- #f)
- (set-source-properties!
- #{e 22030}#
- #{s 22033}#))
- #{e 22030}#)
- #{w 22032}#
- #{mod 22034}#))
- (syntax-violation
- #f
- "unexpected syntax"
- (#{wrap 4338}#
- (begin
- (if (if (pair? #{e 22030}#)
- #{s 22033}#
- #f)
- (set-source-properties!
- #{e 22030}#
- #{s 22033}#))
- #{e 22030}#)
- #{w 22032}#
- #{mod 22034}#))))))))))))))))))
- (#{chi-application 4347}#
- (lambda (#{x 23174}#
- #{e 23175}#
- #{r 23176}#
- #{w 23177}#
- #{s 23178}#
- #{mod 23179}#)
- (let ((#{tmp 23181}#
- ($sc-dispatch #{e 23175}# '(any . each-any))))
- (if #{tmp 23181}#
- (@apply
- (lambda (#{e0 23185}# #{e1 23186}#)
- (#{build-application 4280}#
- #{s 23178}#
- #{x 23174}#
- (map (lambda (#{e 23271}#)
- (#{chi 4345}#
- #{e 23271}#
- #{r 23176}#
- #{w 23177}#
- #{mod 23179}#))
- #{e1 23186}#)))
- #{tmp 23181}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{e 23175}#)))))
- (#{chi-macro 4348}#
- (lambda (#{p 23352}#
- #{e 23353}#
- #{r 23354}#
- #{w 23355}#
- #{s 23356}#
- #{rib 23357}#
- #{mod 23358}#)
- (letrec*
- ((#{rebuild-macro-output 23359}#
- (lambda (#{x 23390}# #{m 23391}#)
- (if (pair? #{x 23390}#)
- (let ((#{e 23395}#
- (cons (#{rebuild-macro-output 23359}#
- (car #{x 23390}#)
- #{m 23391}#)
- (#{rebuild-macro-output 23359}#
- (cdr #{x 23390}#)
- #{m 23391}#))))
- (begin
- (if (if (pair? #{e 23395}#) #{s 23356}# #f)
- (set-source-properties! #{e 23395}# #{s 23356}#))
- #{e 23395}#))
- (if (if (vector? #{x 23390}#)
- (if (= (vector-length #{x 23390}#) 4)
- (eq? (vector-ref #{x 23390}# 0) 'syntax-object)
- #f)
- #f)
- (let ((#{w 23411}# (vector-ref #{x 23390}# 2)))
- (let ((#{ms 23412}# (car #{w 23411}#))
- (#{s 23413}# (cdr #{w 23411}#)))
- (if (if (pair? #{ms 23412}#)
- (eq? (car #{ms 23412}#) #f)
- #f)
- (let ((#{expression 23421}# (vector-ref #{x 23390}# 1))
- (#{wrap 23422}#
- (cons (cdr #{ms 23412}#)
- (if #{rib 23357}#
- (cons #{rib 23357}# (cdr #{s 23413}#))
- (cdr #{s 23413}#))))
- (#{module 23423}# (vector-ref #{x 23390}# 3)))
- (vector
- 'syntax-object
- #{expression 23421}#
- #{wrap 23422}#
- #{module 23423}#))
- (let ((#{expression 23433}#
- (let ((#{e 23438}# (vector-ref #{x 23390}# 1)))
- (begin
- (if (if (pair? #{e 23438}#) #{s 23413}# #f)
- (set-source-properties!
- #{e 23438}#
- #{s 23413}#))
- #{e 23438}#)))
- (#{wrap 23434}#
- (cons (cons #{m 23391}# #{ms 23412}#)
- (if #{rib 23357}#
- (cons #{rib 23357}#
- (cons 'shift #{s 23413}#))
- (cons 'shift #{s 23413}#))))
- (#{module 23435}# (vector-ref #{x 23390}# 3)))
- (vector
- 'syntax-object
- #{expression 23433}#
- #{wrap 23434}#
- #{module 23435}#)))))
- (if (vector? #{x 23390}#)
- (let ((#{n 23450}# (vector-length #{x 23390}#)))
- (let ((#{v 23451}#
- (let ((#{e 23459}# (make-vector #{n 23450}#)))
- (begin
- (if (if (pair? #{e 23459}#) #{x 23390}# #f)
- (set-source-properties!
- #{e 23459}#
- #{x 23390}#))
- #{e 23459}#))))
- (letrec*
- ((#{loop 23452}#
- (lambda (#{i 23504}#)
- (if (= #{i 23504}# #{n 23450}#)
- #{v 23451}#
- (begin
- (vector-set!
- #{v 23451}#
- #{i 23504}#
- (#{rebuild-macro-output 23359}#
- (vector-ref #{x 23390}# #{i 23504}#)
- #{m 23391}#))
- (#{loop 23452}# (#{1+}# #{i 23504}#)))))))
- (#{loop 23452}# 0))))
- (if (symbol? #{x 23390}#)
- (syntax-violation
- #f
- "encountered raw symbol in macro output"
- (let ((#{s 23510}# (cdr #{w 23355}#)))
- (#{wrap 4338}#
- (begin
- (if (if (pair? #{e 23353}#) #{s 23510}# #f)
- (set-source-properties!
- #{e 23353}#
- #{s 23510}#))
- #{e 23353}#)
- #{w 23355}#
- #{mod 23358}#))
- #{x 23390}#)
- (begin
- (if (if (pair? #{x 23390}#) #{s 23356}# #f)
- (set-source-properties! #{x 23390}# #{s 23356}#))
- #{x 23390}#))))))))
- (#{rebuild-macro-output 23359}#
- (#{p 23352}#
- (let ((#{w 23366}#
- (cons (cons #f (car #{w 23355}#))
- (cons 'shift (cdr #{w 23355}#)))))
- (#{wrap 4338}#
- (begin
- (if (if (pair? #{e 23353}#) #{s 23356}# #f)
- (set-source-properties! #{e 23353}# #{s 23356}#))
- #{e 23353}#)
- #{w 23366}#
- #{mod 23358}#)))
- (gensym "m")))))
- (#{chi-body 4349}#
- (lambda (#{body 23542}#
- #{outer-form 23543}#
- #{r 23544}#
- #{w 23545}#
- #{mod 23546}#)
- (let ((#{r 23547}#
- (cons '("placeholder" placeholder) #{r 23544}#)))
- (let ((#{ribcage 23548}# (vector 'ribcage '() '() '())))
- (let ((#{w 23549}#
- (cons (car #{w 23545}#)
- (cons #{ribcage 23548}# (cdr #{w 23545}#)))))
- (letrec*
- ((#{parse 23550}#
- (lambda (#{body 23563}#
- #{ids 23564}#
- #{labels 23565}#
- #{var-ids 23566}#
- #{vars 23567}#
- #{vals 23568}#
- #{bindings 23569}#)
- (if (null? #{body 23563}#)
- (syntax-violation
- #f
- "no expressions in body"
- #{outer-form 23543}#)
- (let ((#{e 23570}# (cdr (car #{body 23563}#)))
- (#{er 23571}# (car (car #{body 23563}#))))
- (call-with-values
- (lambda ()
- (#{syntax-type 4344}#
- #{e 23570}#
- #{er 23571}#
- '(())
- (#{source-annotation 4306}# #{er 23571}#)
- #{ribcage 23548}#
- #{mod 23546}#
- #f))
- (lambda (#{type 23747}#
- #{value 23748}#
- #{e 23749}#
- #{w 23750}#
- #{s 23751}#
- #{mod 23752}#)
- (if (eqv? #{type 23747}# 'define-form)
- (let ((#{id 23756}#
- (#{wrap 4338}#
- #{value 23748}#
- #{w 23750}#
- #{mod 23752}#))
- (#{label 23757}#
- (symbol->string (gensym "i"))))
- (let ((#{var 23758}#
- (let ((#{id 23818}#
- (if (if (vector? #{id 23756}#)
- (if (= (vector-length
- #{id 23756}#)
- 4)
- (eq? (vector-ref
- #{id 23756}#
- 0)
- 'syntax-object)
- #f)
- #f)
- (vector-ref #{id 23756}# 1)
- #{id 23756}#)))
- (gensym
- (string-append
- (symbol->string #{id 23818}#)
- " ")))))
- (begin
- (let ((#{update 23808}#
- (cons (vector-ref #{id 23756}# 1)
- (vector-ref
- #{ribcage 23548}#
- 1))))
- (vector-set!
- #{ribcage 23548}#
- 1
- #{update 23808}#))
- (let ((#{update 23810}#
- (cons (car (vector-ref
- #{id 23756}#
- 2))
- (vector-ref
- #{ribcage 23548}#
- 2))))
- (vector-set!
- #{ribcage 23548}#
- 2
- #{update 23810}#))
- (let ((#{update 23812}#
- (cons #{label 23757}#
- (vector-ref
- #{ribcage 23548}#
- 3))))
- (vector-set!
- #{ribcage 23548}#
- 3
- #{update 23812}#))
- (#{parse 23550}#
- (cdr #{body 23563}#)
- (cons #{id 23756}# #{ids 23564}#)
- (cons #{label 23757}# #{labels 23565}#)
- (cons #{id 23756}# #{var-ids 23566}#)
- (cons #{var 23758}# #{vars 23567}#)
- (cons (cons #{er 23571}#
- (#{wrap 4338}#
- #{e 23749}#
- #{w 23750}#
- #{mod 23752}#))
- #{vals 23568}#)
- (cons (cons 'lexical #{var 23758}#)
- #{bindings 23569}#)))))
- (if (eqv? #{type 23747}# 'define-syntax-form)
- (let ((#{id 23846}#
- (#{wrap 4338}#
- #{value 23748}#
- #{w 23750}#
- #{mod 23752}#))
- (#{label 23847}#
- (symbol->string (gensym "i"))))
- (begin
- (let ((#{update 23897}#
- (cons (vector-ref #{id 23846}# 1)
- (vector-ref
- #{ribcage 23548}#
- 1))))
- (vector-set!
- #{ribcage 23548}#
- 1
- #{update 23897}#))
- (let ((#{update 23899}#
- (cons (car (vector-ref
- #{id 23846}#
- 2))
- (vector-ref
- #{ribcage 23548}#
- 2))))
- (vector-set!
- #{ribcage 23548}#
- 2
- #{update 23899}#))
- (let ((#{update 23901}#
- (cons #{label 23847}#
- (vector-ref
- #{ribcage 23548}#
- 3))))
- (vector-set!
- #{ribcage 23548}#
- 3
- #{update 23901}#))
- (#{parse 23550}#
- (cdr #{body 23563}#)
- (cons #{id 23846}# #{ids 23564}#)
- (cons #{label 23847}# #{labels 23565}#)
- #{var-ids 23566}#
- #{vars 23567}#
- #{vals 23568}#
- (cons (cons 'macro
- (cons #{er 23571}#
- (#{wrap 4338}#
- #{e 23749}#
- #{w 23750}#
- #{mod 23752}#)))
- #{bindings 23569}#))))
- (if (eqv? #{type 23747}# 'begin-form)
- (let ((#{tmp 23909}#
- ($sc-dispatch
- #{e 23749}#
- '(_ . each-any))))
- (if #{tmp 23909}#
- (@apply
- (lambda (#{e1 23913}#)
- (#{parse 23550}#
- (letrec*
- ((#{f 23914}#
- (lambda (#{forms 23977}#)
- (if (null? #{forms 23977}#)
- (cdr #{body 23563}#)
- (cons (cons #{er 23571}#
- (#{wrap 4338}#
- (car
#{forms 23977}#)
- #{w 23750}#
- #{mod
23752}#))
- (#{f 23914}#
- (cdr #{forms
23977}#)))))))
- (#{f 23914}# #{e1 23913}#))
- #{ids 23564}#
- #{labels 23565}#
- #{var-ids 23566}#
- #{vars 23567}#
- #{vals 23568}#
- #{bindings 23569}#))
- #{tmp 23909}#)
- (syntax-violation
- #f
- "source expression failed to match any
pattern"
- #{e 23749}#)))
- (if (eqv? #{type 23747}# 'local-syntax-form)
- (#{chi-local-syntax 4350}#
- #{value 23748}#
- #{e 23749}#
- #{er 23571}#
- #{w 23750}#
- #{s 23751}#
- #{mod 23752}#
- (lambda (#{forms 23991}#
- #{er 23992}#
- #{w 23993}#
- #{s 23994}#
- #{mod 23995}#)
- (#{parse 23550}#
- (letrec*
- ((#{f 23996}#
- (lambda (#{forms 24059}#)
- (if (null? #{forms 24059}#)
- (cdr #{body 23563}#)
- (cons (cons #{er 23992}#
- (#{wrap 4338}#
- (car #{forms
24059}#)
- #{w 23993}#
- #{mod
23995}#))
- (#{f 23996}#
- (cdr #{forms
24059}#)))))))
- (#{f 23996}# #{forms 23991}#))
- #{ids 23564}#
- #{labels 23565}#
- #{var-ids 23566}#
- #{vars 23567}#
- #{vals 23568}#
- #{bindings 23569}#)))
- (if (null? #{ids 23564}#)
- (#{build-sequence 4294}#
- #f
- (map (lambda (#{x 24129}#)
- (#{chi 4345}#
- (cdr #{x 24129}#)
- (car #{x 24129}#)
- '(())
- #{mod 23752}#))
- (cons (cons #{er 23571}#
- (#{wrap 4338}#
- (begin
- (if (if (pair?
#{e 23749}#)
- #{s 23751}#
- #f)
-
(set-source-properties!
- #{e 23749}#
- #{s 23751}#))
- #{e 23749}#)
- #{w 23750}#
- #{mod 23752}#))
- (cdr #{body 23563}#))))
- (begin
- (if (not (#{valid-bound-ids? 4335}#
- #{ids 23564}#))
- (syntax-violation
- #f
- "invalid or duplicate identifier
in definition"
- #{outer-form 23543}#))
- (letrec*
- ((#{loop 24291}#
- (lambda (#{bs 24294}#
- #{er-cache 24295}#
- #{r-cache 24296}#)
- (if (not (null? #{bs 24294}#))
- (let ((#{b 24297}#
- (car #{bs 24294}#)))
- (if (eq? (car #{b 24297}#)
- 'macro)
- (let ((#{er 24299}#
- (car (cdr #{b
24297}#))))
- (let ((#{r-cache 24300}#
- (if (eq? #{er
24299}#
-
#{er-cache 24295}#)
- #{r-cache
24296}#
-
(#{macros-only-env 4309}#
- #{er
24299}#))))
- (begin
- (set-cdr!
- #{b 24297}#
-
(#{eval-local-transformer 4351}#
- (#{chi 4345}#
- (cdr (cdr #{b
24297}#))
- #{r-cache
24300}#
- '(())
- #{mod 23752}#)
- #{mod 23752}#))
- (#{loop 24291}#
- (cdr #{bs 24294}#)
- #{er 24299}#
- #{r-cache
24300}#))))
- (#{loop 24291}#
- (cdr #{bs 24294}#)
- #{er-cache 24295}#
- #{r-cache 24296}#)))))))
- (#{loop 24291}#
- #{bindings 23569}#
- #f
- #f))
- (set-cdr!
- #{r 23547}#
- (#{extend-env 4307}#
- #{labels 23565}#
- #{bindings 23569}#
- (cdr #{r 23547}#)))
- (#{build-letrec 4297}#
- #f
- #t
- (reverse
- (map syntax->datum
- #{var-ids 23566}#))
- (reverse #{vars 23567}#)
- (map (lambda (#{x 24653}#)
- (#{chi 4345}#
- (cdr #{x 24653}#)
- (car #{x 24653}#)
- '(())
- #{mod 23752}#))
- (reverse #{vals 23568}#))
- (#{build-sequence 4294}#
- #f
- (map (lambda (#{x 24783}#)
- (#{chi 4345}#
- (cdr #{x 24783}#)
- (car #{x 24783}#)
- '(())
- #{mod 23752}#))
- (cons (cons #{er 23571}#
- (#{wrap 4338}#
- (begin
- (if (if
(pair? #{e 23749}#)
- #{s
23751}#
- #f)
-
(set-source-properties!
- #{e
23749}#
- #{s
23751}#))
- #{e 23749}#)
- #{w 23750}#
- #{mod 23752}#))
- (cdr #{body
23563}#))))))))))))))))))
- (#{parse 23550}#
- (map (lambda (#{x 23553}#)
- (cons #{r 23547}#
- (#{wrap 4338}#
- #{x 23553}#
- #{w 23549}#
- #{mod 23546}#)))
- #{body 23542}#)
- '()
- '()
- '()
- '()
- '()
- '())))))))
- (#{chi-local-syntax 4350}#
- (lambda (#{rec? 24868}#
- #{e 24869}#
- #{r 24870}#
- #{w 24871}#
- #{s 24872}#
- #{mod 24873}#
- #{k 24874}#)
- (let ((#{tmp 24876}#
- ($sc-dispatch
- #{e 24869}#
- '(_ #(each (any any)) any . each-any))))
- (if #{tmp 24876}#
- (@apply
- (lambda (#{id 24880}#
- #{val 24881}#
- #{e1 24882}#
- #{e2 24883}#)
- (if (not (#{valid-bound-ids? 4335}# #{id 24880}#))
- (syntax-violation
- #f
- "duplicate bound keyword"
- #{e 24869}#)
- (let ((#{labels 24973}#
- (#{gen-labels 4316}# #{id 24880}#)))
- (let ((#{new-w 24974}#
- (#{make-binding-wrap 4327}#
- #{id 24880}#
- #{labels 24973}#
- #{w 24871}#)))
- (#{k 24874}#
- (cons #{e1 24882}# #{e2 24883}#)
- (#{extend-env 4307}#
- #{labels 24973}#
- (let ((#{trans-r 25012}#
- (#{macros-only-env 4309}# #{r 24870}#)))
- (begin
- (if #{rec? 24868}# (if #f #f))
- (map (lambda (#{x 25013}#)
- (cons 'macro
- (#{eval-local-transformer 4351}#
- (#{chi 4345}#
- #{x 25013}#
- #{trans-r 25012}#
- (if #{rec? 24868}#
- #{new-w 24974}#
- #{w 24871}#)
- #{mod 24873}#)
- #{mod 24873}#)))
- #{val 24881}#)))
- #{r 24870}#)
- #{new-w 24974}#
- #{s 24872}#
- #{mod 24873}#)))))
- #{tmp 24876}#)
- (syntax-violation
- #f
- "bad local syntax definition"
- (#{wrap 4338}#
- (begin
- (if (if (pair? #{e 24869}#) #{s 24872}# #f)
- (set-source-properties! #{e 24869}# #{s 24872}#))
- #{e 24869}#)
- #{w 24871}#
- #{mod 24873}#))))))
- (#{eval-local-transformer 4351}#
- (lambda (#{expanded 25314}# #{mod 25315}#)
- (let ((#{p 25316}# (primitive-eval #{expanded 25314}#)))
- (if (procedure? #{p 25316}#)
- #{p 25316}#
- (syntax-violation
- #f
- "nonprocedure transformer"
- #{p 25316}#)))))
- (#{ellipsis? 4353}#
- (lambda (#{x 5159}#)
- (if (if (if (vector? #{x 5159}#)
- (if (= (vector-length #{x 5159}#) 4)
- (eq? (vector-ref #{x 5159}# 0) 'syntax-object)
- #f)
- #f)
- (symbol? (vector-ref #{x 5159}# 1))
- #f)
- (if (eq? (if (if (vector? #{x 5159}#)
- (if (= (vector-length #{x 5159}#) 4)
- (eq? (vector-ref #{x 5159}# 0) 'syntax-object)
- #f)
- #f)
- (vector-ref #{x 5159}# 1)
- #{x 5159}#)
- (if (if (= (vector-length
- '#(syntax-object
- ...
- ((top)
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i2230"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
- (define-structure
- define-expansion-accessors
- define-expansion-constructors)
- ((top) (top) (top))
- ("i46" "i45" "i44")))
- (hygiene guile)))
- 4)
- (eq? (vector-ref
- '#(syntax-object
- ...
- ((top)
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i2230"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
- (define-structure
- define-expansion-accessors
- define-expansion-constructors)
- ((top) (top) (top))
- ("i46" "i45" "i44")))
- (hygiene guile))
- 0)
- 'syntax-object)
- #f)
- (vector-ref
- '#(syntax-object
- ...
- ((top)
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i2230"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
- (define-structure
- define-expansion-accessors
- define-expansion-constructors)
- ((top) (top) (top))
- ("i46" "i45" "i44")))
- (hygiene guile))
- 1)
- '#(syntax-object
- ...
- ((top)
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i2230"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
- (define-structure
- define-expansion-accessors
- define-expansion-constructors)
- ((top) (top) (top))
- ("i46" "i45" "i44")))
- (hygiene guile))))
- (eq? (#{id-var-name 4332}# #{x 5159}# '(()))
- (#{id-var-name 4332}#
- '#(syntax-object
- ...
- ((top)
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i2230"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
- (define-structure
- define-expansion-accessors
- define-expansion-constructors)
- ((top) (top) (top))
- ("i46" "i45" "i44")))
- (hygiene guile))
- '(())))
- #f)
- #f)))
- (#{lambda-formals 4354}#
- (lambda (#{orig-args 25321}#)
- (letrec*
- ((#{req 25322}#
- (lambda (#{args 25326}# #{rreq 25327}#)
- (let ((#{tmp 25329}# ($sc-dispatch #{args 25326}# '())))
- (if #{tmp 25329}#
- (@apply
- (lambda ()
- (#{check 25323}# (reverse #{rreq 25327}#) #f))
- #{tmp 25329}#)
- (let ((#{tmp 25456}#
- ($sc-dispatch #{args 25326}# '(any . any))))
- (if (if #{tmp 25456}#
- (@apply
- (lambda (#{a 25460}# #{b 25461}#)
- (if (symbol? #{a 25460}#)
- #t
- (if (if (vector? #{a 25460}#)
- (if (= (vector-length #{a 25460}#) 4)
- (eq? (vector-ref #{a 25460}# 0)
- 'syntax-object)
- #f)
- #f)
- (symbol? (vector-ref #{a 25460}# 1))
- #f)))
- #{tmp 25456}#)
- #f)
- (@apply
- (lambda (#{a 25488}# #{b 25489}#)
- (#{req 25322}#
- #{b 25489}#
- (cons #{a 25488}# #{rreq 25327}#)))
- #{tmp 25456}#)
- (let ((#{tmp 25490}# (list #{args 25326}#)))
- (if (@apply
- (lambda (#{r 25492}#)
- (if (symbol? #{r 25492}#)
- #t
- (if (if (vector? #{r 25492}#)
- (if (= (vector-length #{r 25492}#) 4)
- (eq? (vector-ref #{r 25492}# 0)
- 'syntax-object)
- #f)
- #f)
- (symbol? (vector-ref #{r 25492}# 1))
- #f)))
- #{tmp 25490}#)
- (@apply
- (lambda (#{r 25522}#)
- (#{check 25323}#
- (reverse #{rreq 25327}#)
- #{r 25522}#))
- #{tmp 25490}#)
- (syntax-violation
- 'lambda
- "invalid argument list"
- #{orig-args 25321}#
- #{args 25326}#)))))))))
- (#{check 25323}#
- (lambda (#{req 25657}# #{rest 25658}#)
- (if (#{distinct-bound-ids? 4336}#
- (if #{rest 25658}#
- (cons #{rest 25658}# #{req 25657}#)
- #{req 25657}#))
- (values #{req 25657}# #f #{rest 25658}# #f)
- (syntax-violation
- 'lambda
- "duplicate identifier in argument list"
- #{orig-args 25321}#)))))
- (#{req 25322}# #{orig-args 25321}# '()))))
- (#{chi-simple-lambda 4355}#
- (lambda (#{e 25778}#
- #{r 25779}#
- #{w 25780}#
- #{s 25781}#
- #{mod 25782}#
- #{req 25783}#
- #{rest 25784}#
- #{meta 25785}#
- #{body 25786}#)
- (let ((#{ids 25787}#
- (if #{rest 25784}#
- (append #{req 25783}# (list #{rest 25784}#))
- #{req 25783}#)))
- (let ((#{vars 25788}#
- (map #{gen-var 4359}# #{ids 25787}#)))
- (let ((#{labels 25789}#
- (#{gen-labels 4316}# #{ids 25787}#)))
- (#{build-simple-lambda 4289}#
- #{s 25781}#
- (map syntax->datum #{req 25783}#)
- (if #{rest 25784}#
- (syntax->datum #{rest 25784}#)
- #f)
- #{vars 25788}#
- #{meta 25785}#
- (#{chi-body 4349}#
- #{body 25786}#
- (#{wrap 4338}#
- (begin
- (if (if (pair? #{e 25778}#) #{s 25781}# #f)
- (set-source-properties! #{e 25778}# #{s 25781}#))
- #{e 25778}#)
- #{w 25780}#
- #{mod 25782}#)
- (#{extend-var-env 4308}#
- #{labels 25789}#
- #{vars 25788}#
- #{r 25779}#)
- (#{make-binding-wrap 4327}#
- #{ids 25787}#
- #{labels 25789}#
- #{w 25780}#)
- #{mod 25782}#)))))))
- (#{lambda*-formals 4356}#
- (lambda (#{orig-args 26089}#)
- (letrec*
- ((#{req 26090}#
- (lambda (#{args 26097}# #{rreq 26098}#)
- (let ((#{tmp 26100}# ($sc-dispatch #{args 26097}# '())))
- (if #{tmp 26100}#
- (@apply
- (lambda ()
- (#{check 26094}#
- (reverse #{rreq 26098}#)
- '()
- #f
- '()))
- #{tmp 26100}#)
- (let ((#{tmp 26106}#
- ($sc-dispatch #{args 26097}# '(any . any))))
- (if (if #{tmp 26106}#
- (@apply
- (lambda (#{a 26110}# #{b 26111}#)
- (if (symbol? #{a 26110}#)
- #t
- (if (if (vector? #{a 26110}#)
- (if (= (vector-length #{a 26110}#) 4)
- (eq? (vector-ref #{a 26110}# 0)
- 'syntax-object)
- #f)
- #f)
- (symbol? (vector-ref #{a 26110}# 1))
- #f)))
- #{tmp 26106}#)
- #f)
- (@apply
- (lambda (#{a 26138}# #{b 26139}#)
- (#{req 26090}#
- #{b 26139}#
- (cons #{a 26138}# #{rreq 26098}#)))
- #{tmp 26106}#)
- (let ((#{tmp 26140}#
- ($sc-dispatch #{args 26097}# '(any . any))))
- (if (if #{tmp 26140}#
- (@apply
- (lambda (#{a 26144}# #{b 26145}#)
- (eq? (syntax->datum #{a 26144}#) #:optional))
- #{tmp 26140}#)
- #f)
- (@apply
- (lambda (#{a 26146}# #{b 26147}#)
- (#{opt 26091}#
- #{b 26147}#
- (reverse #{rreq 26098}#)
- '()))
- #{tmp 26140}#)
- (let ((#{tmp 26150}#
- ($sc-dispatch #{args 26097}# '(any . any))))
- (if (if #{tmp 26150}#
- (@apply
- (lambda (#{a 26154}# #{b 26155}#)
- (eq? (syntax->datum #{a 26154}#) #:key))
- #{tmp 26150}#)
- #f)
- (@apply
- (lambda (#{a 26156}# #{b 26157}#)
- (#{key 26092}#
- #{b 26157}#
- (reverse #{rreq 26098}#)
- '()
- '()))
- #{tmp 26150}#)
- (let ((#{tmp 26160}#
- ($sc-dispatch
- #{args 26097}#
- '(any any))))
- (if (if #{tmp 26160}#
- (@apply
- (lambda (#{a 26164}# #{b 26165}#)
- (eq? (syntax->datum #{a 26164}#)
- #:rest))
- #{tmp 26160}#)
- #f)
- (@apply
- (lambda (#{a 26166}# #{b 26167}#)
- (#{rest 26093}#
- #{b 26167}#
- (reverse #{rreq 26098}#)
- '()
- '()))
- #{tmp 26160}#)
- (let ((#{tmp 26170}# (list #{args 26097}#)))
- (if (@apply
- (lambda (#{r 26172}#)
- (if (symbol? #{r 26172}#)
- #t
- (if (if (vector? #{r 26172}#)
- (if (= (vector-length
- #{r 26172}#)
- 4)
- (eq? (vector-ref
- #{r 26172}#
- 0)
- 'syntax-object)
- #f)
- #f)
- (symbol?
- (vector-ref #{r 26172}# 1))
- #f)))
- #{tmp 26170}#)
- (@apply
- (lambda (#{r 26202}#)
- (#{rest 26093}#
- #{r 26202}#
- (reverse #{rreq 26098}#)
- '()
- '()))
- #{tmp 26170}#)
- (syntax-violation
- 'lambda*
- "invalid argument list"
- #{orig-args 26089}#
- #{args 26097}#)))))))))))))))
- (#{opt 26091}#
- (lambda (#{args 26221}# #{req 26222}# #{ropt 26223}#)
- (let ((#{tmp 26225}# ($sc-dispatch #{args 26221}# '())))
- (if #{tmp 26225}#
- (@apply
- (lambda ()
- (#{check 26094}#
- #{req 26222}#
- (reverse #{ropt 26223}#)
- #f
- '()))
- #{tmp 26225}#)
- (let ((#{tmp 26231}#
- ($sc-dispatch #{args 26221}# '(any . any))))
- (if (if #{tmp 26231}#
- (@apply
- (lambda (#{a 26235}# #{b 26236}#)
- (if (symbol? #{a 26235}#)
- #t
- (if (if (vector? #{a 26235}#)
- (if (= (vector-length #{a 26235}#) 4)
- (eq? (vector-ref #{a 26235}# 0)
- 'syntax-object)
- #f)
- #f)
- (symbol? (vector-ref #{a 26235}# 1))
- #f)))
- #{tmp 26231}#)
- #f)
- (@apply
- (lambda (#{a 26263}# #{b 26264}#)
- (#{opt 26091}#
- #{b 26264}#
- #{req 26222}#
- (cons (cons #{a 26263}#
- '(#(syntax-object
- #f
- ((top)
- #(ribcage
- #(a b)
- #((top) (top))
- #("i2369" "i2370"))
- #(ribcage () () ())
- #(ribcage
- #(args req ropt)
- #((top) (top) (top))
- #("i2359" "i2360" "i2361"))
- #(ribcage
- (check rest key opt req)
- ((top) (top) (top) (top) (top))
- ("i2305"
- "i2303"
- "i2301"
- "i2299"
- "i2297"))
- #(ribcage
- #(orig-args)
- #((top))
- #("i2296"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
- (define-structure
- define-expansion-accessors
- define-expansion-constructors)
- ((top) (top) (top))
- ("i46" "i45" "i44")))
- (hygiene guile))))
- #{ropt 26223}#)))
- #{tmp 26231}#)
- (let ((#{tmp 26265}#
- ($sc-dispatch
- #{args 26221}#
- '((any any) . any))))
- (if (if #{tmp 26265}#
- (@apply
- (lambda (#{a 26269}#
- #{init 26270}#
- #{b 26271}#)
- (if (symbol? #{a 26269}#)
- #t
- (if (if (vector? #{a 26269}#)
- (if (= (vector-length #{a 26269}#) 4)
- (eq? (vector-ref #{a 26269}# 0)
- 'syntax-object)
- #f)
- #f)
- (symbol? (vector-ref #{a 26269}# 1))
- #f)))
- #{tmp 26265}#)
- #f)
- (@apply
- (lambda (#{a 26298}# #{init 26299}# #{b 26300}#)
- (#{opt 26091}#
- #{b 26300}#
- #{req 26222}#
- (cons (list #{a 26298}# #{init 26299}#)
- #{ropt 26223}#)))
- #{tmp 26265}#)
- (let ((#{tmp 26301}#
- ($sc-dispatch #{args 26221}# '(any . any))))
- (if (if #{tmp 26301}#
- (@apply
- (lambda (#{a 26305}# #{b 26306}#)
- (eq? (syntax->datum #{a 26305}#) #:key))
- #{tmp 26301}#)
- #f)
- (@apply
- (lambda (#{a 26307}# #{b 26308}#)
- (#{key 26092}#
- #{b 26308}#
- #{req 26222}#
- (reverse #{ropt 26223}#)
- '()))
- #{tmp 26301}#)
- (let ((#{tmp 26311}#
- ($sc-dispatch
- #{args 26221}#
- '(any any))))
- (if (if #{tmp 26311}#
- (@apply
- (lambda (#{a 26315}# #{b 26316}#)
- (eq? (syntax->datum #{a 26315}#)
- #:rest))
- #{tmp 26311}#)
- #f)
- (@apply
- (lambda (#{a 26317}# #{b 26318}#)
- (#{rest 26093}#
- #{b 26318}#
- #{req 26222}#
- (reverse #{ropt 26223}#)
- '()))
- #{tmp 26311}#)
- (let ((#{tmp 26321}# (list #{args 26221}#)))
- (if (@apply
- (lambda (#{r 26323}#)
- (if (symbol? #{r 26323}#)
- #t
- (if (if (vector? #{r 26323}#)
- (if (= (vector-length
- #{r 26323}#)
- 4)
- (eq? (vector-ref
- #{r 26323}#
- 0)
- 'syntax-object)
- #f)
- #f)
- (symbol?
- (vector-ref #{r 26323}# 1))
- #f)))
- #{tmp 26321}#)
- (@apply
- (lambda (#{r 26353}#)
- (#{rest 26093}#
- #{r 26353}#
- #{req 26222}#
- (reverse #{ropt 26223}#)
- '()))
- #{tmp 26321}#)
- (syntax-violation
- 'lambda*
- "invalid optional argument list"
- #{orig-args 26089}#
- #{args 26221}#)))))))))))))))
- (#{key 26092}#
- (lambda (#{args 26372}#
- #{req 26373}#
- #{opt 26374}#
- #{rkey 26375}#)
- (let ((#{tmp 26377}# ($sc-dispatch #{args 26372}# '())))
- (if #{tmp 26377}#
- (@apply
- (lambda ()
- (#{check 26094}#
- #{req 26373}#
- #{opt 26374}#
- #f
- (cons #f (reverse #{rkey 26375}#))))
- #{tmp 26377}#)
- (let ((#{tmp 26383}#
- ($sc-dispatch #{args 26372}# '(any . any))))
- (if (if #{tmp 26383}#
- (@apply
- (lambda (#{a 26387}# #{b 26388}#)
- (if (symbol? #{a 26387}#)
- #t
- (if (if (vector? #{a 26387}#)
- (if (= (vector-length #{a 26387}#) 4)
- (eq? (vector-ref #{a 26387}# 0)
- 'syntax-object)
- #f)
- #f)
- (symbol? (vector-ref #{a 26387}# 1))
- #f)))
- #{tmp 26383}#)
- #f)
- (@apply
- (lambda (#{a 26415}# #{b 26416}#)
- (let ((#{tmp 26417}#
- (symbol->keyword
- (syntax->datum #{a 26415}#))))
- (#{key 26092}#
- #{b 26416}#
- #{req 26373}#
- #{opt 26374}#
- (cons (cons #{tmp 26417}#
- (cons #{a 26415}#
- '(#(syntax-object
- #f
- ((top)
- #(ribcage () () ())
- #(ribcage
- #(k)
- #((top))
- #("i2432"))
- #(ribcage
- #(a b)
- #((top) (top))
- #("i2426" "i2427"))
- #(ribcage () () ())
- #(ribcage
- #(args req opt rkey)
- #((top)
- (top)
- (top)
- (top))
- #("i2415"
- "i2416"
- "i2417"
- "i2418"))
- #(ribcage
- (check rest key opt req)
- ((top)
- (top)
- (top)
- (top)
- (top))
- ("i2305"
- "i2303"
- "i2301"
- "i2299"
- "i2297"))
- #(ribcage
- #(orig-args)
- #((top))
- #("i2296"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
-
set-syntax-object-module!
-
set-syntax-object-wrap!
-
set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
-
syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
-
build-global-definition
-
build-global-assignment
- build-global-reference
- analyze-variable
-
build-lexical-assignment
-
build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
-
get-global-definition-hook
-
put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
- (define-structure
-
define-expansion-accessors
-
define-expansion-constructors)
- ((top) (top) (top))
- ("i46" "i45" "i44")))
- (hygiene guile)))))
- #{rkey 26375}#))))
- #{tmp 26383}#)
- (let ((#{tmp 26420}#
- ($sc-dispatch
- #{args 26372}#
- '((any any) . any))))
- (if (if #{tmp 26420}#
- (@apply
- (lambda (#{a 26424}#
- #{init 26425}#
- #{b 26426}#)
- (if (symbol? #{a 26424}#)
- #t
- (if (if (vector? #{a 26424}#)
- (if (= (vector-length #{a 26424}#) 4)
- (eq? (vector-ref #{a 26424}# 0)
- 'syntax-object)
- #f)
- #f)
- (symbol? (vector-ref #{a 26424}# 1))
- #f)))
- #{tmp 26420}#)
- #f)
- (@apply
- (lambda (#{a 26453}# #{init 26454}# #{b 26455}#)
- (let ((#{tmp 26456}#
- (symbol->keyword
- (syntax->datum #{a 26453}#))))
- (#{key 26092}#
- #{b 26455}#
- #{req 26373}#
- #{opt 26374}#
- (cons (list #{tmp 26456}#
- #{a 26453}#
- #{init 26454}#)
- #{rkey 26375}#))))
- #{tmp 26420}#)
- (let ((#{tmp 26459}#
- ($sc-dispatch
- #{args 26372}#
- '((any any any) . any))))
- (if (if #{tmp 26459}#
- (@apply
- (lambda (#{a 26463}#
- #{init 26464}#
- #{k 26465}#
- #{b 26466}#)
- (if (if (symbol? #{a 26463}#)
- #t
- (if (if (vector? #{a 26463}#)
- (if (= (vector-length
- #{a 26463}#)
- 4)
- (eq? (vector-ref
- #{a 26463}#
- 0)
- 'syntax-object)
- #f)
- #f)
- (symbol?
- (vector-ref #{a 26463}# 1))
- #f))
- (keyword? (syntax->datum #{k 26465}#))
- #f))
- #{tmp 26459}#)
- #f)
- (@apply
- (lambda (#{a 26493}#
- #{init 26494}#
- #{k 26495}#
- #{b 26496}#)
- (#{key 26092}#
- #{b 26496}#
- #{req 26373}#
- #{opt 26374}#
- (cons (list #{k 26495}#
- #{a 26493}#
- #{init 26494}#)
- #{rkey 26375}#)))
- #{tmp 26459}#)
- (let ((#{tmp 26497}#
- ($sc-dispatch #{args 26372}# '(any))))
- (if (if #{tmp 26497}#
- (@apply
- (lambda (#{aok 26501}#)
- (eq? (syntax->datum #{aok 26501}#)
- #:allow-other-keys))
- #{tmp 26497}#)
- #f)
- (@apply
- (lambda (#{aok 26502}#)
- (#{check 26094}#
- #{req 26373}#
- #{opt 26374}#
- #f
- (cons #t (reverse #{rkey 26375}#))))
- #{tmp 26497}#)
- (let ((#{tmp 26505}#
- ($sc-dispatch
- #{args 26372}#
- '(any any any))))
- (if (if #{tmp 26505}#
- (@apply
- (lambda (#{aok 26509}#
- #{a 26510}#
- #{b 26511}#)
- (if (eq? (syntax->datum
- #{aok 26509}#)
- #:allow-other-keys)
- (eq? (syntax->datum
- #{a 26510}#)
- #:rest)
- #f))
- #{tmp 26505}#)
- #f)
- (@apply
- (lambda (#{aok 26512}#
- #{a 26513}#
- #{b 26514}#)
- (#{rest 26093}#
- #{b 26514}#
- #{req 26373}#
- #{opt 26374}#
- (cons #t
- (reverse #{rkey 26375}#))))
- #{tmp 26505}#)
- (let ((#{tmp 26517}#
- ($sc-dispatch
- #{args 26372}#
- '(any . any))))
- (if (if #{tmp 26517}#
- (@apply
- (lambda (#{aok 26521}#
- #{r 26522}#)
- (if (eq? (syntax->datum
- #{aok 26521}#)
- #:allow-other-keys)
- (if (symbol? #{r 26522}#)
- #t
- (if (if (vector?
- #{r 26522}#)
- (if (=
(vector-length
- #{r
26522}#)
- 4)
- (eq? (vector-ref
- #{r
26522}#
- 0)
-
'syntax-object)
- #f)
- #f)
- (symbol?
- (vector-ref
- #{r 26522}#
- 1))
- #f))
- #f))
- #{tmp 26517}#)
- #f)
- (@apply
- (lambda (#{aok 26549}# #{r 26550}#)
- (#{rest 26093}#
- #{r 26550}#
- #{req 26373}#
- #{opt 26374}#
- (cons #t
- (reverse
- #{rkey 26375}#))))
- #{tmp 26517}#)
- (let ((#{tmp 26553}#
- ($sc-dispatch
- #{args 26372}#
- '(any any))))
- (if (if #{tmp 26553}#
- (@apply
- (lambda (#{a 26557}#
- #{b 26558}#)
- (eq? (syntax->datum
- #{a 26557}#)
- #:rest))
- #{tmp 26553}#)
- #f)
- (@apply
- (lambda (#{a 26559}#
- #{b 26560}#)
- (#{rest 26093}#
- #{b 26560}#
- #{req 26373}#
- #{opt 26374}#
- (cons #f
- (reverse
- #{rkey 26375}#))))
- #{tmp 26553}#)
- (let ((#{tmp 26563}#
- (list #{args 26372}#)))
- (if (@apply
- (lambda (#{r 26565}#)
- (if (symbol?
- #{r 26565}#)
- #t
- (if (if (vector?
- #{r
26565}#)
- (if (=
(vector-length
- #{r
26565}#)
- 4)
- (eq?
(vector-ref
- #{r
26565}#
- 0)
-
'syntax-object)
- #f)
- #f)
- (symbol?
- (vector-ref
- #{r 26565}#
- 1))
- #f)))
- #{tmp 26563}#)
- (@apply
- (lambda (#{r 26595}#)
- (#{rest 26093}#
- #{r 26595}#
- #{req 26373}#
- #{opt 26374}#
- (cons #f
- (reverse
- #{rkey
26375}#))))
- #{tmp 26563}#)
- (syntax-violation
- 'lambda*
- "invalid keyword argument
list"
- #{orig-args 26089}#
- #{args
26372}#)))))))))))))))))))))
- (#{rest 26093}#
- (lambda (#{args 26623}#
- #{req 26624}#
- #{opt 26625}#
- #{kw 26626}#)
- (let ((#{tmp 26628}# (list #{args 26623}#)))
- (if (@apply
- (lambda (#{r 26630}#)
- (if (symbol? #{r 26630}#)
- #t
- (if (if (vector? #{r 26630}#)
- (if (= (vector-length #{r 26630}#) 4)
- (eq? (vector-ref #{r 26630}# 0)
- 'syntax-object)
- #f)
- #f)
- (symbol? (vector-ref #{r 26630}# 1))
- #f)))
- #{tmp 26628}#)
- (@apply
- (lambda (#{r 26660}#)
- (#{check 26094}#
- #{req 26624}#
- #{opt 26625}#
- #{r 26660}#
- #{kw 26626}#))
- #{tmp 26628}#)
- (syntax-violation
- 'lambda*
- "invalid rest argument"
- #{orig-args 26089}#
- #{args 26623}#)))))
- (#{check 26094}#
- (lambda (#{req 26664}#
- #{opt 26665}#
- #{rest 26666}#
- #{kw 26667}#)
- (if (#{distinct-bound-ids? 4336}#
- (append
- #{req 26664}#
- (map car #{opt 26665}#)
- (if #{rest 26666}# (list #{rest 26666}#) '())
- (if (pair? #{kw 26667}#)
- (map cadr (cdr #{kw 26667}#))
- '())))
- (values
- #{req 26664}#
- #{opt 26665}#
- #{rest 26666}#
- #{kw 26667}#)
- (syntax-violation
- 'lambda*
- "duplicate identifier in argument list"
- #{orig-args 26089}#)))))
- (#{req 26090}# #{orig-args 26089}# '()))))
- (#{chi-lambda-case 4357}#
- (lambda (#{e 26787}#
- #{r 26788}#
- #{w 26789}#
- #{s 26790}#
- #{mod 26791}#
- #{get-formals 26792}#
- #{clauses 26793}#)
- (letrec*
- ((#{expand-req 26794}#
- (lambda (#{req 26928}#
- #{opt 26929}#
- #{rest 26930}#
- #{kw 26931}#
- #{body 26932}#)
- (let ((#{vars 26933}#
- (map #{gen-var 4359}# #{req 26928}#))
- (#{labels 26934}#
- (#{gen-labels 4316}# #{req 26928}#)))
- (let ((#{r* 26935}#
- (#{extend-var-env 4308}#
- #{labels 26934}#
- #{vars 26933}#
- #{r 26788}#))
- (#{w* 26936}#
- (#{make-binding-wrap 4327}#
- #{req 26928}#
- #{labels 26934}#
- #{w 26789}#)))
- (#{expand-opt 26795}#
- (map syntax->datum #{req 26928}#)
- #{opt 26929}#
- #{rest 26930}#
- #{kw 26931}#
- #{body 26932}#
- (reverse #{vars 26933}#)
- #{r* 26935}#
- #{w* 26936}#
- '()
- '())))))
- (#{expand-opt 26795}#
- (lambda (#{req 27152}#
- #{opt 27153}#
- #{rest 27154}#
- #{kw 27155}#
- #{body 27156}#
- #{vars 27157}#
- #{r* 27158}#
- #{w* 27159}#
- #{out 27160}#
- #{inits 27161}#)
- (if (pair? #{opt 27153}#)
- (let ((#{tmp 27162}# (car #{opt 27153}#)))
- (let ((#{tmp 27163}#
- ($sc-dispatch #{tmp 27162}# '(any any))))
- (if #{tmp 27163}#
- (@apply
- (lambda (#{id 27165}# #{i 27166}#)
- (let ((#{v 27167}#
- (let ((#{id 27175}#
- (if (if (vector? #{id 27165}#)
- (if (= (vector-length
- #{id 27165}#)
- 4)
- (eq? (vector-ref
- #{id 27165}#
- 0)
- 'syntax-object)
- #f)
- #f)
- (vector-ref #{id 27165}# 1)
- #{id 27165}#)))
- (gensym
- (string-append
- (symbol->string #{id 27175}#)
- " ")))))
- (let ((#{l 27168}#
- (#{gen-labels 4316}# (list #{v 27167}#))))
- (let ((#{r** 27169}#
- (#{extend-var-env 4308}#
- #{l 27168}#
- (list #{v 27167}#)
- #{r* 27158}#)))
- (let ((#{w** 27170}#
- (#{make-binding-wrap 4327}#
- (list #{id 27165}#)
- #{l 27168}#
- #{w* 27159}#)))
- (#{expand-opt 26795}#
- #{req 27152}#
- (cdr #{opt 27153}#)
- #{rest 27154}#
- #{kw 27155}#
- #{body 27156}#
- (cons #{v 27167}# #{vars 27157}#)
- #{r** 27169}#
- #{w** 27170}#
- (cons (syntax->datum #{id 27165}#)
- #{out 27160}#)
- (cons (#{chi 4345}#
- #{i 27166}#
- #{r* 27158}#
- #{w* 27159}#
- #{mod 26791}#)
- #{inits 27161}#)))))))
- #{tmp 27163}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp 27162}#))))
- (if #{rest 27154}#
- (let ((#{v 27447}#
- (let ((#{id 27457}#
- (if (if (vector? #{rest 27154}#)
- (if (= (vector-length #{rest 27154}#)
- 4)
- (eq? (vector-ref #{rest 27154}# 0)
- 'syntax-object)
- #f)
- #f)
- (vector-ref #{rest 27154}# 1)
- #{rest 27154}#)))
- (gensym
- (string-append
- (symbol->string #{id 27457}#)
- " ")))))
- (let ((#{l 27448}#
- (#{gen-labels 4316}# (list #{v 27447}#))))
- (let ((#{r* 27449}#
- (#{extend-var-env 4308}#
- #{l 27448}#
- (list #{v 27447}#)
- #{r* 27158}#)))
- (let ((#{w* 27450}#
- (#{make-binding-wrap 4327}#
- (list #{rest 27154}#)
- #{l 27448}#
- #{w* 27159}#)))
- (#{expand-kw 26796}#
- #{req 27152}#
- (if (pair? #{out 27160}#)
- (reverse #{out 27160}#)
- #f)
- (syntax->datum #{rest 27154}#)
- (if (pair? #{kw 27155}#)
- (cdr #{kw 27155}#)
- #{kw 27155}#)
- #{body 27156}#
- (cons #{v 27447}# #{vars 27157}#)
- #{r* 27449}#
- #{w* 27450}#
- (if (pair? #{kw 27155}#) (car #{kw 27155}#) #f)
- '()
- #{inits 27161}#)))))
- (#{expand-kw 26796}#
- #{req 27152}#
- (if (pair? #{out 27160}#)
- (reverse #{out 27160}#)
- #f)
- #f
- (if (pair? #{kw 27155}#)
- (cdr #{kw 27155}#)
- #{kw 27155}#)
- #{body 27156}#
- #{vars 27157}#
- #{r* 27158}#
- #{w* 27159}#
- (if (pair? #{kw 27155}#) (car #{kw 27155}#) #f)
- '()
- #{inits 27161}#)))))
- (#{expand-kw 26796}#
- (lambda (#{req 27657}#
- #{opt 27658}#
- #{rest 27659}#
- #{kw 27660}#
- #{body 27661}#
- #{vars 27662}#
- #{r* 27663}#
- #{w* 27664}#
- #{aok 27665}#
- #{out 27666}#
- #{inits 27667}#)
- (if (pair? #{kw 27660}#)
- (let ((#{tmp 27668}# (car #{kw 27660}#)))
- (let ((#{tmp 27669}#
- ($sc-dispatch #{tmp 27668}# '(any any any))))
- (if #{tmp 27669}#
- (@apply
- (lambda (#{k 27671}# #{id 27672}# #{i 27673}#)
- (let ((#{v 27674}#
- (let ((#{id 27682}#
- (if (if (vector? #{id 27672}#)
- (if (= (vector-length
- #{id 27672}#)
- 4)
- (eq? (vector-ref
- #{id 27672}#
- 0)
- 'syntax-object)
- #f)
- #f)
- (vector-ref #{id 27672}# 1)
- #{id 27672}#)))
- (gensym
- (string-append
- (symbol->string #{id 27682}#)
- " ")))))
- (let ((#{l 27675}#
- (#{gen-labels 4316}# (list #{v 27674}#))))
- (let ((#{r** 27676}#
- (#{extend-var-env 4308}#
- #{l 27675}#
- (list #{v 27674}#)
- #{r* 27663}#)))
- (let ((#{w** 27677}#
- (#{make-binding-wrap 4327}#
- (list #{id 27672}#)
- #{l 27675}#
- #{w* 27664}#)))
- (#{expand-kw 26796}#
- #{req 27657}#
- #{opt 27658}#
- #{rest 27659}#
- (cdr #{kw 27660}#)
- #{body 27661}#
- (cons #{v 27674}# #{vars 27662}#)
- #{r** 27676}#
- #{w** 27677}#
- #{aok 27665}#
- (cons (list (syntax->datum #{k 27671}#)
- (syntax->datum #{id 27672}#)
- #{v 27674}#)
- #{out 27666}#)
- (cons (#{chi 4345}#
- #{i 27673}#
- #{r* 27663}#
- #{w* 27664}#
- #{mod 26791}#)
- #{inits 27667}#)))))))
- #{tmp 27669}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp 27668}#))))
- (#{expand-body 26797}#
- #{req 27657}#
- #{opt 27658}#
- #{rest 27659}#
- (if (if #{aok 27665}#
- #{aok 27665}#
- (pair? #{out 27666}#))
- (cons #{aok 27665}# (reverse #{out 27666}#))
- #f)
- #{body 27661}#
- (reverse #{vars 27662}#)
- #{r* 27663}#
- #{w* 27664}#
- (reverse #{inits 27667}#)
- '()))))
- (#{expand-body 26797}#
- (lambda (#{req 27963}#
- #{opt 27964}#
- #{rest 27965}#
- #{kw 27966}#
- #{body 27967}#
- #{vars 27968}#
- #{r* 27969}#
- #{w* 27970}#
- #{inits 27971}#
- #{meta 27972}#)
- (let ((#{tmp 27974}#
- ($sc-dispatch
- #{body 27967}#
- '(any any . each-any))))
- (if (if #{tmp 27974}#
- (@apply
- (lambda (#{docstring 27978}# #{e1 27979}# #{e2 27980}#)
- (string? (syntax->datum #{docstring 27978}#)))
- #{tmp 27974}#)
- #f)
- (@apply
- (lambda (#{docstring 27981}# #{e1 27982}# #{e2 27983}#)
- (#{expand-body 26797}#
- #{req 27963}#
- #{opt 27964}#
- #{rest 27965}#
- #{kw 27966}#
- (cons #{e1 27982}# #{e2 27983}#)
- #{vars 27968}#
- #{r* 27969}#
- #{w* 27970}#
- #{inits 27971}#
- (append
- #{meta 27972}#
- (list (cons 'documentation
- (syntax->datum #{docstring 27981}#))))))
- #{tmp 27974}#)
- (let ((#{tmp 27984}#
- ($sc-dispatch
- #{body 27967}#
- '(#(vector #(each (any . any))) any . each-any))))
- (if #{tmp 27984}#
- (@apply
- (lambda (#{k 27988}#
- #{v 27989}#
- #{e1 27990}#
- #{e2 27991}#)
- (#{expand-body 26797}#
- #{req 27963}#
- #{opt 27964}#
- #{rest 27965}#
- #{kw 27966}#
- (cons #{e1 27990}# #{e2 27991}#)
- #{vars 27968}#
- #{r* 27969}#
- #{w* 27970}#
- #{inits 27971}#
- (append
- #{meta 27972}#
- (syntax->datum
- (map cons #{k 27988}# #{v 27989}#)))))
- #{tmp 27984}#)
- (let ((#{tmp 27992}#
- ($sc-dispatch #{body 27967}# '(any . each-any))))
- (if #{tmp 27992}#
- (@apply
- (lambda (#{e1 27996}# #{e2 27997}#)
- (values
- #{meta 27972}#
- #{req 27963}#
- #{opt 27964}#
- #{rest 27965}#
- #{kw 27966}#
- #{inits 27971}#
- #{vars 27968}#
- (#{chi-body 4349}#
- (cons #{e1 27996}# #{e2 27997}#)
- (#{wrap 4338}#
- (begin
- (if (if (pair? #{e 26787}#)
- #{s 26790}#
- #f)
- (set-source-properties!
- #{e 26787}#
- #{s 26790}#))
- #{e 26787}#)
- #{w 26789}#
- #{mod 26791}#)
- #{r* 27969}#
- #{w* 27970}#
- #{mod 26791}#)))
- #{tmp 27992}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{body 27967}#))))))))))
- (let ((#{tmp 26799}#
- ($sc-dispatch #{clauses 26793}# '())))
- (if #{tmp 26799}#
- (@apply
- (lambda () (values '() #f))
- #{tmp 26799}#)
- (let ((#{tmp 26804}#
- ($sc-dispatch
- #{clauses 26793}#
- '((any any . each-any)
- .
- #(each (any any . each-any))))))
- (if #{tmp 26804}#
- (@apply
- (lambda (#{args 26808}#
- #{e1 26809}#
- #{e2 26810}#
- #{args* 26811}#
- #{e1* 26812}#
- #{e2* 26813}#)
- (call-with-values
- (lambda ()
- (#{get-formals 26792}# #{args 26808}#))
- (lambda (#{req 26814}#
- #{opt 26815}#
- #{rest 26816}#
- #{kw 26817}#)
- (call-with-values
- (lambda ()
- (#{expand-req 26794}#
- #{req 26814}#
- #{opt 26815}#
- #{rest 26816}#
- #{kw 26817}#
- (cons #{e1 26809}# #{e2 26810}#)))
- (lambda (#{meta 26884}#
- #{req 26885}#
- #{opt 26886}#
- #{rest 26887}#
- #{kw 26888}#
- #{inits 26889}#
- #{vars 26890}#
- #{body 26891}#)
- (call-with-values
- (lambda ()
- (#{chi-lambda-case 4357}#
- #{e 26787}#
- #{r 26788}#
- #{w 26789}#
- #{s 26790}#
- #{mod 26791}#
- #{get-formals 26792}#
- (map (lambda (#{tmp 2775 26892}#
- #{tmp 2774 26893}#
- #{tmp 2773 26894}#)
- (cons #{tmp 2773 26894}#
- (cons #{tmp 2774 26893}#
- #{tmp 2775 26892}#)))
- #{e2* 26813}#
- #{e1* 26812}#
- #{args* 26811}#)))
- (lambda (#{meta* 26895}# #{else* 26896}#)
- (values
- (append #{meta 26884}# #{meta* 26895}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 14)
- #{s 26790}#
- #{req 26885}#
- #{opt 26886}#
- #{rest 26887}#
- #{kw 26888}#
- #{inits 26889}#
- #{vars 26890}#
- #{body 26891}#
- #{else* 26896}#)))))))))
- #{tmp 26804}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{clauses 26793}#))))))))
- (#{strip 4358}#
- (lambda (#{x 28034}# #{w 28035}#)
- (if (memq 'top (car #{w 28035}#))
- #{x 28034}#
- (letrec*
- ((#{f 28036}#
- (lambda (#{x 28039}#)
- (if (if (vector? #{x 28039}#)
- (if (= (vector-length #{x 28039}#) 4)
- (eq? (vector-ref #{x 28039}# 0) 'syntax-object)
- #f)
- #f)
- (#{strip 4358}#
- (vector-ref #{x 28039}# 1)
- (vector-ref #{x 28039}# 2))
- (if (pair? #{x 28039}#)
- (let ((#{a 28058}# (#{f 28036}# (car #{x 28039}#)))
- (#{d 28059}# (#{f 28036}# (cdr #{x 28039}#))))
- (if (if (eq? #{a 28058}# (car #{x 28039}#))
- (eq? #{d 28059}# (cdr #{x 28039}#))
- #f)
- #{x 28039}#
- (cons #{a 28058}# #{d 28059}#)))
- (if (vector? #{x 28039}#)
- (let ((#{old 28062}# (vector->list #{x 28039}#)))
- (let ((#{new 28063}# (map #{f 28036}# #{old 28062}#)))
- (letrec*
- ((#{lp 28064}#
- (lambda (#{l1 28140}# #{l2 28141}#)
- (if (null? #{l1 28140}#)
- #{x 28039}#
- (if (eq? (car #{l1 28140}#)
- (car #{l2 28141}#))
- (#{lp 28064}#
- (cdr #{l1 28140}#)
- (cdr #{l2 28141}#))
- (list->vector #{new 28063}#))))))
- (#{lp 28064}# #{old 28062}# #{new 28063}#))))
- #{x 28039}#))))))
- (#{f 28036}# #{x 28034}#)))))
- (#{gen-var 4359}#
- (lambda (#{id 26940}#)
- (let ((#{id 26941}#
- (if (if (vector? #{id 26940}#)
- (if (= (vector-length #{id 26940}#) 4)
- (eq? (vector-ref #{id 26940}# 0) 'syntax-object)
- #f)
- #f)
- (vector-ref #{id 26940}# 1)
- #{id 26940}#)))
- (gensym
- (string-append (symbol->string #{id 26941}#) " "))))))
- (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 4311}#
- 'core
- 'fluid-let-syntax
- (lambda (#{e 4480}#
- #{r 4481}#
- #{w 4482}#
- #{s 4483}#
- #{mod 4484}#)
- (let ((#{tmp 4486}#
- ($sc-dispatch
- #{e 4480}#
- '(_ #(each (any any)) any . each-any))))
- (if (if #{tmp 4486}#
- (@apply
- (lambda (#{var 4490}#
- #{val 4491}#
- #{e1 4492}#
- #{e2 4493}#)
- (#{valid-bound-ids? 4335}# #{var 4490}#))
- #{tmp 4486}#)
- #f)
- (@apply
- (lambda (#{var 4571}#
- #{val 4572}#
- #{e1 4573}#
- #{e2 4574}#)
- (let ((#{names 4575}#
- (map (lambda (#{x 4765}#)
- (#{id-var-name 4332}# #{x 4765}# #{w 4482}#))
- #{var 4571}#)))
- (begin
- (for-each
- (lambda (#{id 4576}# #{n 4577}#)
- (let ((#{atom-key 4578}#
- (car (let ((#{t 4702}#
- (assq #{n 4577}# #{r 4481}#)))
- (if #{t 4702}#
- (cdr #{t 4702}#)
- (if (symbol? #{n 4577}#)
- (let ((#{t 4707}#
- (begin
- (if (if (not #{mod 4484}#)
- (current-module)
- #f)
- (warn "module system is
booted, we should have a module"
- #{n 4577}#))
- (let ((#{v 4744}#
- (module-variable
- (if #{mod 4484}#
-
(resolve-module
- (cdr #{mod
4484}#))
-
(current-module))
- #{n 4577}#)))
- (if #{v 4744}#
- (if (variable-bound?
- #{v 4744}#)
- (let ((#{val 4753}#
-
(variable-ref
- #{v
4744}#)))
- (if (macro?
- #{val
4753}#)
- (if (macro-type
- #{val
4753}#)
- (cons
(macro-type
- #{val
4753}#)
-
(macro-binding
- #{val
4753}#))
- #f)
- #f))
- #f)
- #f)))))
- (if #{t 4707}#
- #{t 4707}#
- '(global)))
- '(displaced-lexical)))))))
- (if (let ((#{t 4611}# #{atom-key 4578}#))
- (eqv? #{t 4611}# 'displaced-lexical))
- (syntax-violation
- 'fluid-let-syntax
- "identifier out of context"
- #{e 4480}#
- (#{wrap 4338}#
- (begin
- (if (if (pair? #{id 4576}#) #{s 4483}# #f)
- (set-source-properties!
- #{id 4576}#
- #{s 4483}#))
- #{id 4576}#)
- #{w 4482}#
- #{mod 4484}#)))))
- #{var 4571}#
- #{names 4575}#)
- (#{chi-body 4349}#
- (cons #{e1 4573}# #{e2 4574}#)
- (#{wrap 4338}#
- (begin
- (if (if (pair? #{e 4480}#) #{s 4483}# #f)
- (set-source-properties! #{e 4480}# #{s 4483}#))
- #{e 4480}#)
- #{w 4482}#
- #{mod 4484}#)
- (#{extend-env 4307}#
- #{names 4575}#
- (let ((#{trans-r 4851}#
- (#{macros-only-env 4309}# #{r 4481}#)))
- (map (lambda (#{x 4852}#)
- (cons 'macro
- (#{eval-local-transformer 4351}#
- (#{chi 4345}#
- #{x 4852}#
- #{trans-r 4851}#
- #{w 4482}#
- #{mod 4484}#)
- #{mod 4484}#)))
- #{val 4572}#))
- #{r 4481}#)
- #{w 4482}#
- #{mod 4484}#))))
- #{tmp 4486}#)
- (syntax-violation
- 'fluid-let-syntax
- "bad syntax"
- (#{wrap 4338}#
- (begin
- (if (if (pair? #{e 4480}#) #{s 4483}# #f)
- (set-source-properties! #{e 4480}# #{s 4483}#))
- #{e 4480}#)
- #{w 4482}#
- #{mod 4484}#))))))
- (module-define!
- (current-module)
- 'quote
- (make-syntax-transformer
- 'quote
- 'core
- (lambda (#{e 5066}#
- #{r 5067}#
- #{w 5068}#
- #{s 5069}#
- #{mod 5070}#)
- (let ((#{tmp 5072}# ($sc-dispatch #{e 5066}# '(_ any))))
- (if #{tmp 5072}#
- (@apply
- (lambda (#{e 5075}#)
- (let ((#{exp 5079}#
- (#{strip 4358}# #{e 5075}# #{w 5068}#)))
- (make-struct/no-tail
- (vector-ref %expanded-vtables 1)
- #{s 5069}#
- #{exp 5079}#)))
- #{tmp 5072}#)
- (syntax-violation
- 'quote
- "bad syntax"
- (#{wrap 4338}#
- (begin
- (if (if (pair? #{e 5066}#) #{s 5069}# #f)
- (set-source-properties! #{e 5066}# #{s 5069}#))
- #{e 5066}#)
- #{w 5068}#
- #{mod 5070}#)))))))
- (#{global-extend 4311}#
- 'core
- 'syntax
- (letrec*
- ((#{gen-syntax 5303}#
- (lambda (#{src 5405}#
- #{e 5406}#
- #{r 5407}#
- #{maps 5408}#
- #{ellipsis? 5409}#
- #{mod 5410}#)
- (if (if (symbol? #{e 5406}#)
- #t
- (if (if (vector? #{e 5406}#)
- (if (= (vector-length #{e 5406}#) 4)
- (eq? (vector-ref #{e 5406}# 0) 'syntax-object)
- #f)
- #f)
- (symbol? (vector-ref #{e 5406}# 1))
- #f))
- (let ((#{label 5437}#
- (#{id-var-name 4332}# #{e 5406}# '(()))))
- (let ((#{b 5438}#
- (let ((#{t 5575}# (assq #{label 5437}# #{r 5407}#)))
- (if #{t 5575}#
- (cdr #{t 5575}#)
- (if (symbol? #{label 5437}#)
- (let ((#{t 5580}#
- (begin
- (if (if (not #{mod 5410}#)
- (current-module)
- #f)
- (warn "module system is booted, we
should have a module"
- #{label 5437}#))
- (let ((#{v 5617}#
- (module-variable
- (if #{mod 5410}#
- (resolve-module
- (cdr #{mod 5410}#))
- (current-module))
- #{label 5437}#)))
- (if #{v 5617}#
- (if (variable-bound? #{v 5617}#)
- (let ((#{val 5626}#
- (variable-ref
- #{v 5617}#)))
- (if (macro? #{val 5626}#)
- (if (macro-type
- #{val 5626}#)
- (cons (macro-type
- #{val 5626}#)
- (macro-binding
- #{val 5626}#))
- #f)
- #f))
- #f)
- #f)))))
- (if #{t 5580}# #{t 5580}# '(global)))
- '(displaced-lexical))))))
- (if (eq? (car #{b 5438}#) 'syntax)
- (call-with-values
- (lambda ()
- (let ((#{var.lev 5471}# (cdr #{b 5438}#)))
- (#{gen-ref 5304}#
- #{src 5405}#
- (car #{var.lev 5471}#)
- (cdr #{var.lev 5471}#)
- #{maps 5408}#)))
- (lambda (#{var 5567}# #{maps 5568}#)
- (values (list 'ref #{var 5567}#) #{maps 5568}#)))
- (if (#{ellipsis? 5409}# #{e 5406}#)
- (syntax-violation
- 'syntax
- "misplaced ellipsis"
- #{src 5405}#)
- (values (list 'quote #{e 5406}#) #{maps 5408}#)))))
- (let ((#{tmp 5638}#
- ($sc-dispatch #{e 5406}# '(any any))))
- (if (if #{tmp 5638}#
- (@apply
- (lambda (#{dots 5642}# #{e 5643}#)
- (#{ellipsis? 5409}# #{dots 5642}#))
- #{tmp 5638}#)
- #f)
- (@apply
- (lambda (#{dots 5644}# #{e 5645}#)
- (#{gen-syntax 5303}#
- #{src 5405}#
- #{e 5645}#
- #{r 5407}#
- #{maps 5408}#
- (lambda (#{x 5646}#) #f)
- #{mod 5410}#))
- #{tmp 5638}#)
- (let ((#{tmp 5647}#
- ($sc-dispatch #{e 5406}# '(any any . any))))
- (if (if #{tmp 5647}#
- (@apply
- (lambda (#{x 5651}# #{dots 5652}# #{y 5653}#)
- (#{ellipsis? 5409}# #{dots 5652}#))
- #{tmp 5647}#)
- #f)
- (@apply
- (lambda (#{x 5654}# #{dots 5655}# #{y 5656}#)
- (letrec*
- ((#{f 5657}#
- (lambda (#{y 5665}# #{k 5666}#)
- (let ((#{tmp 5668}#
- ($sc-dispatch
- #{y 5665}#
- '(any . any))))
- (if (if #{tmp 5668}#
- (@apply
- (lambda (#{dots 5672}# #{y 5673}#)
- (#{ellipsis? 5409}#
- #{dots 5672}#))
- #{tmp 5668}#)
- #f)
- (@apply
- (lambda (#{dots 5674}# #{y 5675}#)
- (#{f 5657}#
- #{y 5675}#
- (lambda (#{maps 5676}#)
- (call-with-values
- (lambda ()
- (#{k 5666}#
- (cons '() #{maps 5676}#)))
- (lambda (#{x 5677}#
- #{maps 5678}#)
- (if (null? (car #{maps
5678}#))
- (syntax-violation
- 'syntax
- "extra ellipsis"
- #{src 5405}#)
- (values
- (let ((#{map-env 5682}#
- (car #{maps
5678}#)))
- (list 'apply
- '(primitive
- append)
- (#{gen-map 5306}#
- #{x 5677}#
- #{map-env
5682}#)))
- (cdr #{maps
5678}#))))))))
- #{tmp 5668}#)
- (call-with-values
- (lambda ()
- (#{gen-syntax 5303}#
- #{src 5405}#
- #{y 5665}#
- #{r 5407}#
- #{maps 5408}#
- #{ellipsis? 5409}#
- #{mod 5410}#))
- (lambda (#{y 5685}# #{maps 5686}#)
- (call-with-values
- (lambda ()
- (#{k 5666}# #{maps 5686}#))
- (lambda (#{x 5687}# #{maps 5688}#)
- (values
- (if (equal? #{y 5685}# ''())
- #{x 5687}#
- (list 'append
- #{x 5687}#
- #{y 5685}#))
- #{maps 5688}#))))))))))
- (#{f 5657}#
- #{y 5656}#
- (lambda (#{maps 5660}#)
- (call-with-values
- (lambda ()
- (#{gen-syntax 5303}#
- #{src 5405}#
- #{x 5654}#
- #{r 5407}#
- (cons '() #{maps 5660}#)
- #{ellipsis? 5409}#
- #{mod 5410}#))
- (lambda (#{x 5661}# #{maps 5662}#)
- (if (null? (car #{maps 5662}#))
- (syntax-violation
- 'syntax
- "extra ellipsis"
- #{src 5405}#)
- (values
- (#{gen-map 5306}#
- #{x 5661}#
- (car #{maps 5662}#))
- (cdr #{maps 5662}#)))))))))
- #{tmp 5647}#)
- (let ((#{tmp 5704}#
- ($sc-dispatch #{e 5406}# '(any . any))))
- (if #{tmp 5704}#
- (@apply
- (lambda (#{x 5708}# #{y 5709}#)
- (call-with-values
- (lambda ()
- (#{gen-syntax 5303}#
- #{src 5405}#
- #{x 5708}#
- #{r 5407}#
- #{maps 5408}#
- #{ellipsis? 5409}#
- #{mod 5410}#))
- (lambda (#{x 5710}# #{maps 5711}#)
- (call-with-values
- (lambda ()
- (#{gen-syntax 5303}#
- #{src 5405}#
- #{y 5709}#
- #{r 5407}#
- #{maps 5711}#
- #{ellipsis? 5409}#
- #{mod 5410}#))
- (lambda (#{y 5712}# #{maps 5713}#)
- (values
- (let ((#{atom-key 5718}#
- (car #{y 5712}#)))
- (if (eqv? #{atom-key 5718}# 'quote)
- (if (eq? (car #{x 5710}#) 'quote)
- (list 'quote
- (cons (car (cdr #{x
5710}#))
- (car (cdr #{y
5712}#))))
- (if (eq? (car (cdr #{y 5712}#))
- '())
- (list 'list #{x 5710}#)
- (list 'cons
- #{x 5710}#
- #{y 5712}#)))
- (if (eqv? #{atom-key 5718}# 'list)
- (cons 'list
- (cons #{x 5710}#
- (cdr #{y 5712}#)))
- (list 'cons
- #{x 5710}#
- #{y 5712}#))))
- #{maps 5713}#))))))
- #{tmp 5704}#)
- (let ((#{tmp 5747}#
- ($sc-dispatch
- #{e 5406}#
- '#(vector (any . each-any)))))
- (if #{tmp 5747}#
- (@apply
- (lambda (#{e1 5751}# #{e2 5752}#)
- (call-with-values
- (lambda ()
- (#{gen-syntax 5303}#
- #{src 5405}#
- (cons #{e1 5751}# #{e2 5752}#)
- #{r 5407}#
- #{maps 5408}#
- #{ellipsis? 5409}#
- #{mod 5410}#))
- (lambda (#{e 5753}# #{maps 5754}#)
- (values
- (if (eq? (car #{e 5753}#) 'list)
- (cons 'vector (cdr #{e 5753}#))
- (if (eq? (car #{e 5753}#) 'quote)
- (list 'quote
- (list->vector
- (car (cdr #{e 5753}#))))
- (list 'list->vector #{e 5753}#)))
- #{maps 5754}#))))
- #{tmp 5747}#)
- (values
- (list 'quote #{e 5406}#)
- #{maps 5408}#))))))))))))
- (#{gen-ref 5304}#
- (lambda (#{src 5781}#
- #{var 5782}#
- #{level 5783}#
- #{maps 5784}#)
- (if (= #{level 5783}# 0)
- (values #{var 5782}# #{maps 5784}#)
- (if (null? #{maps 5784}#)
- (syntax-violation
- 'syntax
- "missing ellipsis"
- #{src 5781}#)
- (call-with-values
- (lambda ()
- (#{gen-ref 5304}#
- #{src 5781}#
- #{var 5782}#
- (#{1-}# #{level 5783}#)
- (cdr #{maps 5784}#)))
- (lambda (#{outer-var 5785}# #{outer-maps 5786}#)
- (let ((#{b 5787}#
- (assq #{outer-var 5785}# (car #{maps 5784}#))))
- (if #{b 5787}#
- (values (cdr #{b 5787}#) #{maps 5784}#)
- (let ((#{inner-var 5789}#
- (gensym
- (string-append (symbol->string 'tmp) " "))))
- (values
- #{inner-var 5789}#
- (cons (cons (cons #{outer-var 5785}#
- #{inner-var 5789}#)
- (car #{maps 5784}#))
- #{outer-maps 5786}#)))))))))))
- (#{gen-map 5306}#
- (lambda (#{e 5803}# #{map-env 5804}#)
- (let ((#{formals 5805}# (map cdr #{map-env 5804}#))
- (#{actuals 5806}#
- (map (lambda (#{x 5808}#)
- (list 'ref (car #{x 5808}#)))
- #{map-env 5804}#)))
- (if (eq? (car #{e 5803}#) 'ref)
- (car #{actuals 5806}#)
- (if (and-map
- (lambda (#{x 5809}#)
- (if (eq? (car #{x 5809}#) 'ref)
- (memq (car (cdr #{x 5809}#)) #{formals 5805}#)
- #f))
- (cdr #{e 5803}#))
- (cons 'map
- (cons (list 'primitive (car #{e 5803}#))
- (map (let ((#{r 5811}#
- (map cons
- #{formals 5805}#
- #{actuals 5806}#)))
- (lambda (#{x 5812}#)
- (cdr (assq (car (cdr #{x 5812}#))
- #{r 5811}#))))
- (cdr #{e 5803}#))))
- (cons 'map
- (cons (list 'lambda #{formals 5805}# #{e 5803}#)
- #{actuals 5806}#)))))))
- (#{regen 5310}#
- (lambda (#{x 5814}#)
- (let ((#{atom-key 5815}# (car #{x 5814}#)))
- (if (eqv? #{atom-key 5815}# 'ref)
- (let ((#{name 5825}# (car (cdr #{x 5814}#)))
- (#{var 5826}# (car (cdr #{x 5814}#))))
- (make-struct/no-tail
- (vector-ref %expanded-vtables 3)
- #f
- #{name 5825}#
- #{var 5826}#))
- (if (eqv? #{atom-key 5815}# 'primitive)
- (let ((#{name 5838}# (car (cdr #{x 5814}#))))
- (if (equal? (module-name (current-module)) '(guile))
- (make-struct/no-tail
- (vector-ref %expanded-vtables 7)
- #f
- #{name 5838}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 5)
- #f
- '(guile)
- #{name 5838}#
- #f)))
- (if (eqv? #{atom-key 5815}# 'quote)
- (let ((#{exp 5856}# (car (cdr #{x 5814}#))))
- (make-struct/no-tail
- (vector-ref %expanded-vtables 1)
- #f
- #{exp 5856}#))
- (if (eqv? #{atom-key 5815}# 'lambda)
- (if (list? (car (cdr #{x 5814}#)))
- (let ((#{req 5867}# (car (cdr #{x 5814}#)))
- (#{vars 5869}# (car (cdr #{x 5814}#)))
- (#{exp 5871}#
- (#{regen 5310}#
- (car (cdr (cdr #{x 5814}#))))))
- (let ((#{body 5876}#
- (make-struct/no-tail
- (vector-ref %expanded-vtables 14)
- #f
- #{req 5867}#
- #f
- #f
- #f
- '()
- #{vars 5869}#
- #{exp 5871}#
- #f)))
- (make-struct/no-tail
- (vector-ref %expanded-vtables 13)
- #f
- '()
- #{body 5876}#)))
- (error "how did we get here" #{x 5814}#))
- (let ((#{fun-exp 5892}#
- (let ((#{name 5901}# (car #{x 5814}#)))
- (if (equal?
- (module-name (current-module))
- '(guile))
- (make-struct/no-tail
- (vector-ref %expanded-vtables 7)
- #f
- #{name 5901}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 5)
- #f
- '(guile)
- #{name 5901}#
- #f))))
- (#{arg-exps 5893}#
- (map #{regen 5310}# (cdr #{x 5814}#))))
- (make-struct/no-tail
- (vector-ref %expanded-vtables 11)
- #f
- #{fun-exp 5892}#
- #{arg-exps 5893}#))))))))))
- (lambda (#{e 5311}#
- #{r 5312}#
- #{w 5313}#
- #{s 5314}#
- #{mod 5315}#)
- (let ((#{e 5316}#
- (#{wrap 4338}#
- (begin
- (if (if (pair? #{e 5311}#) #{s 5314}# #f)
- (set-source-properties! #{e 5311}# #{s 5314}#))
- #{e 5311}#)
- #{w 5313}#
- #{mod 5315}#)))
- (let ((#{tmp 5318}# ($sc-dispatch #{e 5316}# '(_ any))))
- (if #{tmp 5318}#
- (@apply
- (lambda (#{x 5343}#)
- (call-with-values
- (lambda ()
- (#{gen-syntax 5303}#
- #{e 5316}#
- #{x 5343}#
- #{r 5312}#
- '()
- #{ellipsis? 4353}#
- #{mod 5315}#))
- (lambda (#{e 5397}# #{maps 5398}#)
- (#{regen 5310}# #{e 5397}#))))
- #{tmp 5318}#)
- (syntax-violation
- 'syntax
- "bad `syntax' form"
- #{e 5316}#)))))))
- (#{global-extend 4311}#
- 'core
- 'lambda
- (lambda (#{e 6096}#
- #{r 6097}#
- #{w 6098}#
- #{s 6099}#
- #{mod 6100}#)
- (let ((#{tmp 6102}#
- ($sc-dispatch #{e 6096}# '(_ any any . each-any))))
- (if #{tmp 6102}#
- (@apply
- (lambda (#{args 6106}# #{e1 6107}# #{e2 6108}#)
- (call-with-values
- (lambda ()
- (#{lambda-formals 4354}# #{args 6106}#))
- (lambda (#{req 6111}#
- #{opt 6112}#
- #{rest 6113}#
- #{kw 6114}#)
- (letrec*
- ((#{lp 6115}#
- (lambda (#{body 6118}# #{meta 6119}#)
- (let ((#{tmp 6121}#
- ($sc-dispatch
- #{body 6118}#
- '(any any . each-any))))
- (if (if #{tmp 6121}#
- (@apply
- (lambda (#{docstring 6125}#
- #{e1 6126}#
- #{e2 6127}#)
- (string?
- (syntax->datum #{docstring 6125}#)))
- #{tmp 6121}#)
- #f)
- (@apply
- (lambda (#{docstring 6128}#
- #{e1 6129}#
- #{e2 6130}#)
- (#{lp 6115}#
- (cons #{e1 6129}# #{e2 6130}#)
- (append
- #{meta 6119}#
- (list (cons 'documentation
- (syntax->datum
- #{docstring 6128}#))))))
- #{tmp 6121}#)
- (let ((#{tmp 6131}#
- ($sc-dispatch
- #{body 6118}#
- '(#(vector #(each (any . any)))
- any
- .
- each-any))))
- (if #{tmp 6131}#
- (@apply
- (lambda (#{k 6135}#
- #{v 6136}#
- #{e1 6137}#
- #{e2 6138}#)
- (#{lp 6115}#
- (cons #{e1 6137}# #{e2 6138}#)
- (append
- #{meta 6119}#
- (syntax->datum
- (map cons
- #{k 6135}#
- #{v 6136}#)))))
- #{tmp 6131}#)
- (#{chi-simple-lambda 4355}#
- #{e 6096}#
- #{r 6097}#
- #{w 6098}#
- #{s 6099}#
- #{mod 6100}#
- #{req 6111}#
- #{rest 6113}#
- #{meta 6119}#
- #{body 6118}#))))))))
- (#{lp 6115}# (cons #{e1 6107}# #{e2 6108}#) '())))))
- #{tmp 6102}#)
- (syntax-violation
- 'lambda
- "bad lambda"
- #{e 6096}#)))))
- (#{global-extend 4311}#
- 'core
- 'lambda*
- (lambda (#{e 6430}#
- #{r 6431}#
- #{w 6432}#
- #{s 6433}#
- #{mod 6434}#)
- (let ((#{tmp 6436}#
- ($sc-dispatch #{e 6430}# '(_ any any . each-any))))
- (if #{tmp 6436}#
- (@apply
- (lambda (#{args 6440}# #{e1 6441}# #{e2 6442}#)
- (call-with-values
- (lambda ()
- (#{chi-lambda-case 4357}#
- #{e 6430}#
- #{r 6431}#
- #{w 6432}#
- #{s 6433}#
- #{mod 6434}#
- #{lambda*-formals 4356}#
- (list (cons #{args 6440}#
- (cons #{e1 6441}# #{e2 6442}#)))))
- (lambda (#{meta 6445}# #{lcase 6446}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 13)
- #{s 6433}#
- #{meta 6445}#
- #{lcase 6446}#))))
- #{tmp 6436}#)
- (syntax-violation
- 'lambda
- "bad lambda*"
- #{e 6430}#)))))
- (#{global-extend 4311}#
- 'core
- 'case-lambda
- (lambda (#{e 6620}#
- #{r 6621}#
- #{w 6622}#
- #{s 6623}#
- #{mod 6624}#)
- (let ((#{tmp 6626}#
- ($sc-dispatch
- #{e 6620}#
- '(_ (any any . each-any)
- .
- #(each (any any . each-any))))))
- (if #{tmp 6626}#
- (@apply
- (lambda (#{args 6630}#
- #{e1 6631}#
- #{e2 6632}#
- #{args* 6633}#
- #{e1* 6634}#
- #{e2* 6635}#)
- (call-with-values
- (lambda ()
- (#{chi-lambda-case 4357}#
- #{e 6620}#
- #{r 6621}#
- #{w 6622}#
- #{s 6623}#
- #{mod 6624}#
- #{lambda-formals 4354}#
- (cons (cons #{args 6630}#
- (cons #{e1 6631}# #{e2 6632}#))
- (map (lambda (#{tmp 3274 6638}#
- #{tmp 3273 6639}#
- #{tmp 3272 6640}#)
- (cons #{tmp 3272 6640}#
- (cons #{tmp 3273 6639}#
- #{tmp 3274 6638}#)))
- #{e2* 6635}#
- #{e1* 6634}#
- #{args* 6633}#))))
- (lambda (#{meta 6641}# #{lcase 6642}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 13)
- #{s 6623}#
- #{meta 6641}#
- #{lcase 6642}#))))
- #{tmp 6626}#)
- (syntax-violation
- 'case-lambda
- "bad case-lambda"
- #{e 6620}#)))))
- (#{global-extend 4311}#
- 'core
- 'case-lambda*
- (lambda (#{e 6805}#
- #{r 6806}#
- #{w 6807}#
- #{s 6808}#
- #{mod 6809}#)
- (let ((#{tmp 6811}#
- ($sc-dispatch
- #{e 6805}#
- '(_ (any any . each-any)
- .
- #(each (any any . each-any))))))
- (if #{tmp 6811}#
- (@apply
- (lambda (#{args 6815}#
- #{e1 6816}#
- #{e2 6817}#
- #{args* 6818}#
- #{e1* 6819}#
- #{e2* 6820}#)
- (call-with-values
- (lambda ()
- (#{chi-lambda-case 4357}#
- #{e 6805}#
- #{r 6806}#
- #{w 6807}#
- #{s 6808}#
- #{mod 6809}#
- #{lambda*-formals 4356}#
- (cons (cons #{args 6815}#
- (cons #{e1 6816}# #{e2 6817}#))
- (map (lambda (#{tmp 3309 6823}#
- #{tmp 3308 6824}#
- #{tmp 3307 6825}#)
- (cons #{tmp 3307 6825}#
- (cons #{tmp 3308 6824}#
- #{tmp 3309 6823}#)))
- #{e2* 6820}#
- #{e1* 6819}#
- #{args* 6818}#))))
- (lambda (#{meta 6826}# #{lcase 6827}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 13)
- #{s 6808}#
- #{meta 6826}#
- #{lcase 6827}#))))
- #{tmp 6811}#)
- (syntax-violation
- 'case-lambda
- "bad case-lambda*"
- #{e 6805}#)))))
- (#{global-extend 4311}#
- 'core
- 'let
- (letrec*
- ((#{chi-let 7019}#
- (lambda (#{e 7168}#
- #{r 7169}#
- #{w 7170}#
- #{s 7171}#
- #{mod 7172}#
- #{constructor 7173}#
- #{ids 7174}#
- #{vals 7175}#
- #{exps 7176}#)
- (if (not (#{valid-bound-ids? 4335}# #{ids 7174}#))
- (syntax-violation
- 'let
- "duplicate bound variable"
- #{e 7168}#)
- (let ((#{labels 7254}#
- (#{gen-labels 4316}# #{ids 7174}#))
- (#{new-vars 7255}#
- (map #{gen-var 4359}# #{ids 7174}#)))
- (let ((#{nw 7256}#
- (#{make-binding-wrap 4327}#
- #{ids 7174}#
- #{labels 7254}#
- #{w 7170}#))
- (#{nr 7257}#
- (#{extend-var-env 4308}#
- #{labels 7254}#
- #{new-vars 7255}#
- #{r 7169}#)))
- (#{constructor 7173}#
- #{s 7171}#
- (map syntax->datum #{ids 7174}#)
- #{new-vars 7255}#
- (map (lambda (#{x 7274}#)
- (#{chi 4345}#
- #{x 7274}#
- #{r 7169}#
- #{w 7170}#
- #{mod 7172}#))
- #{vals 7175}#)
- (#{chi-body 4349}#
- #{exps 7176}#
- (#{source-wrap 4339}#
- #{e 7168}#
- #{nw 7256}#
- #{s 7171}#
- #{mod 7172}#)
- #{nr 7257}#
- #{nw 7256}#
- #{mod 7172}#))))))))
- (lambda (#{e 7020}#
- #{r 7021}#
- #{w 7022}#
- #{s 7023}#
- #{mod 7024}#)
- (let ((#{tmp 7026}#
- ($sc-dispatch
- #{e 7020}#
- '(_ #(each (any any)) any . each-any))))
- (if (if #{tmp 7026}#
- (@apply
- (lambda (#{id 7030}#
- #{val 7031}#
- #{e1 7032}#
- #{e2 7033}#)
- (and-map #{id? 4313}# #{id 7030}#))
- #{tmp 7026}#)
- #f)
- (@apply
- (lambda (#{id 7049}#
- #{val 7050}#
- #{e1 7051}#
- #{e2 7052}#)
- (#{chi-let 7019}#
- #{e 7020}#
- #{r 7021}#
- #{w 7022}#
- #{s 7023}#
- #{mod 7024}#
- #{build-let 4295}#
- #{id 7049}#
- #{val 7050}#
- (cons #{e1 7051}# #{e2 7052}#)))
- #{tmp 7026}#)
- (let ((#{tmp 7082}#
- ($sc-dispatch
- #{e 7020}#
- '(_ any #(each (any any)) any . each-any))))
- (if (if #{tmp 7082}#
- (@apply
- (lambda (#{f 7086}#
- #{id 7087}#
- #{val 7088}#
- #{e1 7089}#
- #{e2 7090}#)
- (if (if (symbol? #{f 7086}#)
- #t
- (if (if (vector? #{f 7086}#)
- (if (= (vector-length #{f 7086}#) 4)
- (eq? (vector-ref #{f 7086}# 0)
- 'syntax-object)
- #f)
- #f)
- (symbol? (vector-ref #{f 7086}# 1))
- #f))
- (and-map #{id? 4313}# #{id 7087}#)
- #f))
- #{tmp 7082}#)
- #f)
- (@apply
- (lambda (#{f 7132}#
- #{id 7133}#
- #{val 7134}#
- #{e1 7135}#
- #{e2 7136}#)
- (#{chi-let 7019}#
- #{e 7020}#
- #{r 7021}#
- #{w 7022}#
- #{s 7023}#
- #{mod 7024}#
- #{build-named-let 4296}#
- (cons #{f 7132}# #{id 7133}#)
- #{val 7134}#
- (cons #{e1 7135}# #{e2 7136}#)))
- #{tmp 7082}#)
- (syntax-violation
- 'let
- "bad let"
- (#{wrap 4338}#
- (begin
- (if (if (pair? #{e 7020}#) #{s 7023}# #f)
- (set-source-properties! #{e 7020}# #{s 7023}#))
- #{e 7020}#)
- #{w 7022}#
- #{mod 7024}#)))))))))
- (#{global-extend 4311}#
- 'core
- 'letrec
- (lambda (#{e 7723}#
- #{r 7724}#
- #{w 7725}#
- #{s 7726}#
- #{mod 7727}#)
- (let ((#{tmp 7729}#
- ($sc-dispatch
- #{e 7723}#
- '(_ #(each (any any)) any . each-any))))
- (if (if #{tmp 7729}#
- (@apply
- (lambda (#{id 7733}#
- #{val 7734}#
- #{e1 7735}#
- #{e2 7736}#)
- (and-map #{id? 4313}# #{id 7733}#))
- #{tmp 7729}#)
- #f)
- (@apply
- (lambda (#{id 7752}#
- #{val 7753}#
- #{e1 7754}#
- #{e2 7755}#)
- (if (not (#{valid-bound-ids? 4335}# #{id 7752}#))
- (syntax-violation
- 'letrec
- "duplicate bound variable"
- #{e 7723}#)
- (let ((#{labels 7845}#
- (#{gen-labels 4316}# #{id 7752}#))
- (#{new-vars 7846}#
- (map #{gen-var 4359}# #{id 7752}#)))
- (let ((#{w 7847}#
- (#{make-binding-wrap 4327}#
- #{id 7752}#
- #{labels 7845}#
- #{w 7725}#))
- (#{r 7848}#
- (#{extend-var-env 4308}#
- #{labels 7845}#
- #{new-vars 7846}#
- #{r 7724}#)))
- (#{build-letrec 4297}#
- #{s 7726}#
- #f
- (map syntax->datum #{id 7752}#)
- #{new-vars 7846}#
- (map (lambda (#{x 7935}#)
- (#{chi 4345}#
- #{x 7935}#
- #{r 7848}#
- #{w 7847}#
- #{mod 7727}#))
- #{val 7753}#)
- (#{chi-body 4349}#
- (cons #{e1 7754}# #{e2 7755}#)
- (#{wrap 4338}#
- (begin
- (if (if (pair? #{e 7723}#) #{s 7726}# #f)
- (set-source-properties! #{e 7723}# #{s 7726}#))
- #{e 7723}#)
- #{w 7847}#
- #{mod 7727}#)
- #{r 7848}#
- #{w 7847}#
- #{mod 7727}#))))))
- #{tmp 7729}#)
- (syntax-violation
- 'letrec
- "bad letrec"
- (#{wrap 4338}#
- (begin
- (if (if (pair? #{e 7723}#) #{s 7726}# #f)
- (set-source-properties! #{e 7723}# #{s 7726}#))
- #{e 7723}#)
- #{w 7725}#
- #{mod 7727}#))))))
- (#{global-extend 4311}#
- 'core
- 'letrec*
- (lambda (#{e 8352}#
- #{r 8353}#
- #{w 8354}#
- #{s 8355}#
- #{mod 8356}#)
- (let ((#{tmp 8358}#
- ($sc-dispatch
- #{e 8352}#
- '(_ #(each (any any)) any . each-any))))
- (if (if #{tmp 8358}#
- (@apply
- (lambda (#{id 8362}#
- #{val 8363}#
- #{e1 8364}#
- #{e2 8365}#)
- (and-map #{id? 4313}# #{id 8362}#))
- #{tmp 8358}#)
- #f)
- (@apply
- (lambda (#{id 8381}#
- #{val 8382}#
- #{e1 8383}#
- #{e2 8384}#)
- (if (not (#{valid-bound-ids? 4335}# #{id 8381}#))
- (syntax-violation
- 'letrec*
- "duplicate bound variable"
- #{e 8352}#)
- (let ((#{labels 8474}#
- (#{gen-labels 4316}# #{id 8381}#))
- (#{new-vars 8475}#
- (map #{gen-var 4359}# #{id 8381}#)))
- (let ((#{w 8476}#
- (#{make-binding-wrap 4327}#
- #{id 8381}#
- #{labels 8474}#
- #{w 8354}#))
- (#{r 8477}#
- (#{extend-var-env 4308}#
- #{labels 8474}#
- #{new-vars 8475}#
- #{r 8353}#)))
- (#{build-letrec 4297}#
- #{s 8355}#
- #t
- (map syntax->datum #{id 8381}#)
- #{new-vars 8475}#
- (map (lambda (#{x 8564}#)
- (#{chi 4345}#
- #{x 8564}#
- #{r 8477}#
- #{w 8476}#
- #{mod 8356}#))
- #{val 8382}#)
- (#{chi-body 4349}#
- (cons #{e1 8383}# #{e2 8384}#)
- (#{wrap 4338}#
- (begin
- (if (if (pair? #{e 8352}#) #{s 8355}# #f)
- (set-source-properties! #{e 8352}# #{s 8355}#))
- #{e 8352}#)
- #{w 8476}#
- #{mod 8356}#)
- #{r 8477}#
- #{w 8476}#
- #{mod 8356}#))))))
- #{tmp 8358}#)
- (syntax-violation
- 'letrec*
- "bad letrec*"
- (#{wrap 4338}#
- (begin
- (if (if (pair? #{e 8352}#) #{s 8355}# #f)
- (set-source-properties! #{e 8352}# #{s 8355}#))
- #{e 8352}#)
- #{w 8354}#
- #{mod 8356}#))))))
- (#{global-extend 4311}#
- 'core
- 'set!
- (lambda (#{e 9035}#
- #{r 9036}#
- #{w 9037}#
- #{s 9038}#
- #{mod 9039}#)
- (let ((#{tmp 9041}#
- ($sc-dispatch #{e 9035}# '(_ any any))))
- (if (if #{tmp 9041}#
- (@apply
- (lambda (#{id 9045}# #{val 9046}#)
- (if (symbol? #{id 9045}#)
- #t
- (if (if (vector? #{id 9045}#)
- (if (= (vector-length #{id 9045}#) 4)
- (eq? (vector-ref #{id 9045}# 0) 'syntax-object)
- #f)
- #f)
- (symbol? (vector-ref #{id 9045}# 1))
- #f)))
- #{tmp 9041}#)
- #f)
- (@apply
- (lambda (#{id 9073}# #{val 9074}#)
- (let ((#{n 9075}#
- (#{id-var-name 4332}# #{id 9073}# #{w 9037}#))
- (#{id-mod 9076}#
- (if (if (vector? #{id 9073}#)
- (if (= (vector-length #{id 9073}#) 4)
- (eq? (vector-ref #{id 9073}# 0) 'syntax-object)
- #f)
- #f)
- (vector-ref #{id 9073}# 3)
- #{mod 9039}#)))
- (let ((#{b 9077}#
- (let ((#{t 9764}# (assq #{n 9075}# #{r 9036}#)))
- (if #{t 9764}#
- (cdr #{t 9764}#)
- (if (symbol? #{n 9075}#)
- (let ((#{t 9769}#
- (begin
- (if (if (not #{id-mod 9076}#)
- (current-module)
- #f)
- (warn "module system is booted, we
should have a module"
- #{n 9075}#))
- (let ((#{v 9806}#
- (module-variable
- (if #{id-mod 9076}#
- (resolve-module
- (cdr #{id-mod 9076}#))
- (current-module))
- #{n 9075}#)))
- (if #{v 9806}#
- (if (variable-bound? #{v 9806}#)
- (let ((#{val 9815}#
- (variable-ref
- #{v 9806}#)))
- (if (macro? #{val 9815}#)
- (if (macro-type
- #{val 9815}#)
- (cons (macro-type
- #{val 9815}#)
- (macro-binding
- #{val 9815}#))
- #f)
- #f))
- #f)
- #f)))))
- (if #{t 9769}# #{t 9769}# '(global)))
- '(displaced-lexical))))))
- (let ((#{atom-key 9078}# (car #{b 9077}#)))
- (if (let ((#{t 9115}# #{atom-key 9078}#))
- (eqv? #{t 9115}# 'lexical))
- (#{build-lexical-assignment 4284}#
- #{s 9038}#
- (syntax->datum #{id 9073}#)
- (cdr #{b 9077}#)
- (#{chi 4345}#
- #{val 9074}#
- #{r 9036}#
- #{w 9037}#
- #{mod 9039}#))
- (if (let ((#{t 9400}# #{atom-key 9078}#))
- (eqv? #{t 9400}# 'global))
- (#{build-global-assignment 4287}#
- #{s 9038}#
- #{n 9075}#
- (#{chi 4345}#
- #{val 9074}#
- #{r 9036}#
- #{w 9037}#
- #{mod 9039}#)
- #{id-mod 9076}#)
- (if (let ((#{t 9655}# #{atom-key 9078}#))
- (eqv? #{t 9655}# 'macro))
- (let ((#{p 9718}# (cdr #{b 9077}#)))
- (if (procedure-property
- #{p 9718}#
- 'variable-transformer)
- (#{chi 4345}#
- (#{chi-macro 4348}#
- #{p 9718}#
- #{e 9035}#
- #{r 9036}#
- #{w 9037}#
- #{s 9038}#
- #f
- #{mod 9039}#)
- #{r 9036}#
- '(())
- #{mod 9039}#)
- (syntax-violation
- 'set!
- "not a variable transformer"
- (#{wrap 4338}#
- #{e 9035}#
- #{w 9037}#
- #{mod 9039}#)
- (#{wrap 4338}#
- #{id 9073}#
- #{w 9037}#
- #{id-mod 9076}#))))
- (if (eqv? #{atom-key 9078}# 'displaced-lexical)
- (syntax-violation
- 'set!
- "identifier out of context"
- (#{wrap 4338}#
- #{id 9073}#
- #{w 9037}#
- #{mod 9039}#))
- (syntax-violation
- 'set!
- "bad set!"
- (#{wrap 4338}#
- (begin
- (if (if (pair? #{e 9035}#) #{s 9038}# #f)
- (set-source-properties!
- #{e 9035}#
- #{s 9038}#))
- #{e 9035}#)
- #{w 9037}#
- #{mod 9039}#))))))))))
- #{tmp 9041}#)
- (let ((#{tmp 9916}#
- ($sc-dispatch
- #{e 9035}#
- '(_ (any . each-any) any))))
- (if #{tmp 9916}#
- (@apply
- (lambda (#{head 9920}# #{tail 9921}# #{val 9922}#)
- (call-with-values
- (lambda ()
- (#{syntax-type 4344}#
- #{head 9920}#
- #{r 9036}#
- '(())
- #f
- #f
- #{mod 9039}#
- #t))
- (lambda (#{type 9925}#
- #{value 9926}#
- #{ee 9927}#
- #{ww 9928}#
- #{ss 9929}#
- #{modmod 9930}#)
- (if (eqv? #{type 9925}# 'module-ref)
- (let ((#{val 9934}#
- (#{chi 4345}#
- #{val 9922}#
- #{r 9036}#
- #{w 9037}#
- #{mod 9039}#)))
- (call-with-values
- (lambda ()
- (#{value 9926}#
- (cons #{head 9920}# #{tail 9921}#)
- #{r 9036}#
- #{w 9037}#))
- (lambda (#{e 9935}#
- #{r 9936}#
- #{w 9937}#
- #{s* 9938}#
- #{mod 9939}#)
- (let ((#{tmp 9941}# (list #{e 9935}#)))
- (if (@apply
- (lambda (#{e 9943}#)
- (if (symbol? #{e 9943}#)
- #t
- (if (if (vector? #{e 9943}#)
- (if (= (vector-length
- #{e 9943}#)
- 4)
- (eq? (vector-ref
- #{e 9943}#
- 0)
- 'syntax-object)
- #f)
- #f)
- (symbol?
- (vector-ref #{e 9943}# 1))
- #f)))
- #{tmp 9941}#)
- (@apply
- (lambda (#{e 9973}#)
- (#{build-global-assignment 4287}#
- #{s 9038}#
- (syntax->datum #{e 9973}#)
- #{val 9934}#
- #{mod 9939}#))
- #{tmp 9941}#)
- (syntax-violation
- #f
- "source expression failed to match any
pattern"
- #{e 9935}#))))))
- (#{build-application 4280}#
- #{s 9038}#
- (#{chi 4345}#
- (list '#(syntax-object
- setter
- ((top)
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage
- #(type value ee ww ss modmod)
- #((top)
- (top)
- (top)
- (top)
- (top)
- (top))
- #("i3555"
- "i3556"
- "i3557"
- "i3558"
- "i3559"
- "i3560"))
- #(ribcage
- #(head tail val)
- #((top) (top) (top))
- #("i3541" "i3542" "i3543"))
- #(ribcage () () ())
- #(ribcage
- #(e r w s mod)
- #((top) (top) (top) (top) (top))
- #("i3505"
- "i3506"
- "i3507"
- "i3508"
- "i3509"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
- (define-structure
- define-expansion-accessors
- define-expansion-constructors)
- ((top) (top) (top))
- ("i46" "i45" "i44")))
- (hygiene guile))
- #{head 9920}#)
- #{r 9036}#
- #{w 9037}#
- #{mod 9039}#)
- (map (lambda (#{e 10274}#)
- (#{chi 4345}#
- #{e 10274}#
- #{r 9036}#
- #{w 9037}#
- #{mod 9039}#))
- (append
- #{tail 9921}#
- (list #{val 9922}#))))))))
- #{tmp 9916}#)
- (syntax-violation
- 'set!
- "bad set!"
- (#{wrap 4338}#
- (begin
- (if (if (pair? #{e 9035}#) #{s 9038}# #f)
- (set-source-properties! #{e 9035}# #{s 9038}#))
- #{e 9035}#)
- #{w 9037}#
- #{mod 9039}#))))))))
- (module-define!
- (current-module)
- '@
- (make-syntax-transformer
- '@
- 'module-ref
- (lambda (#{e 10388}# #{r 10389}# #{w 10390}#)
- (let ((#{tmp 10392}#
- ($sc-dispatch #{e 10388}# '(_ each-any any))))
- (if (if #{tmp 10392}#
- (@apply
- (lambda (#{mod 10395}# #{id 10396}#)
- (if (and-map #{id? 4313}# #{mod 10395}#)
- (if (symbol? #{id 10396}#)
- #t
- (if (if (vector? #{id 10396}#)
- (if (= (vector-length #{id 10396}#) 4)
- (eq? (vector-ref #{id 10396}# 0)
- 'syntax-object)
- #f)
- #f)
- (symbol? (vector-ref #{id 10396}# 1))
- #f))
- #f))
- #{tmp 10392}#)
- #f)
- (@apply
- (lambda (#{mod 10436}# #{id 10437}#)
- (values
- (syntax->datum #{id 10437}#)
- #{r 10389}#
- #{w 10390}#
- #f
- (syntax->datum
- (cons '#(syntax-object
- public
- ((top)
- #(ribcage
- #(mod id)
- #((top) (top))
- #("i3602" "i3603"))
- #(ribcage () () ())
- #(ribcage
- #(e r w)
- #((top) (top) (top))
- #("i3590" "i3591" "i3592"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
- (define-structure
- define-expansion-accessors
- define-expansion-constructors)
- ((top) (top) (top))
- ("i46" "i45" "i44")))
- (hygiene guile))
- #{mod 10436}#))))
- #{tmp 10392}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{e 10388}#))))))
- (#{global-extend 4311}#
- 'module-ref
- '@@
- (lambda (#{e 10534}# #{r 10535}# #{w 10536}#)
- (letrec*
- ((#{remodulate 10537}#
- (lambda (#{x 10743}# #{mod 10744}#)
- (if (pair? #{x 10743}#)
- (cons (#{remodulate 10537}#
- (car #{x 10743}#)
- #{mod 10744}#)
- (#{remodulate 10537}#
- (cdr #{x 10743}#)
- #{mod 10744}#))
- (if (if (vector? #{x 10743}#)
- (if (= (vector-length #{x 10743}#) 4)
- (eq? (vector-ref #{x 10743}# 0) 'syntax-object)
- #f)
- #f)
- (let ((#{expression 10758}#
- (#{remodulate 10537}#
- (vector-ref #{x 10743}# 1)
- #{mod 10744}#))
- (#{wrap 10759}# (vector-ref #{x 10743}# 2)))
- (vector
- 'syntax-object
- #{expression 10758}#
- #{wrap 10759}#
- #{mod 10744}#))
- (if (vector? #{x 10743}#)
- (let ((#{n 10767}# (vector-length #{x 10743}#)))
- (let ((#{v 10768}# (make-vector #{n 10767}#)))
- (letrec*
- ((#{loop 10769}#
- (lambda (#{i 10816}#)
- (if (= #{i 10816}# #{n 10767}#)
- #{v 10768}#
- (begin
- (vector-set!
- #{v 10768}#
- #{i 10816}#
- (#{remodulate 10537}#
- (vector-ref #{x 10743}# #{i 10816}#)
- #{mod 10744}#))
- (#{loop 10769}# (#{1+}# #{i 10816}#)))))))
- (#{loop 10769}# 0))))
- #{x 10743}#))))))
- (let ((#{tmp 10539}#
- ($sc-dispatch #{e 10534}# '(_ each-any any))))
- (if (if #{tmp 10539}#
- (@apply
- (lambda (#{mod 10543}# #{exp 10544}#)
- (and-map #{id? 4313}# #{mod 10543}#))
- #{tmp 10539}#)
- #f)
- (@apply
- (lambda (#{mod 10560}# #{exp 10561}#)
- (let ((#{mod 10562}#
- (syntax->datum
- (cons '#(syntax-object
- private
- ((top)
- #(ribcage
- #(mod exp)
- #((top) (top))
- #("i3646" "i3647"))
- #(ribcage (remodulate) ((top)) ("i3613"))
- #(ribcage
- #(e r w)
- #((top) (top) (top))
- #("i3610" "i3611" "i3612"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
- (define-structure
- define-expansion-accessors
- define-expansion-constructors)
- ((top) (top) (top))
- ("i46" "i45" "i44")))
- (hygiene guile))
- #{mod 10560}#))))
- (values
- (#{remodulate 10537}#
- #{exp 10561}#
- #{mod 10562}#)
- #{r 10535}#
- #{w 10536}#
- (#{source-annotation 4306}# #{exp 10561}#)
- #{mod 10562}#)))
- #{tmp 10539}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{e 10534}#))))))
- (#{global-extend 4311}#
- 'core
- 'if
- (lambda (#{e 10922}#
- #{r 10923}#
- #{w 10924}#
- #{s 10925}#
- #{mod 10926}#)
- (let ((#{tmp 10928}#
- ($sc-dispatch #{e 10922}# '(_ any any))))
- (if #{tmp 10928}#
- (@apply
- (lambda (#{test 10932}# #{then 10933}#)
- (#{build-conditional 4281}#
- #{s 10925}#
- (#{chi 4345}#
- #{test 10932}#
- #{r 10923}#
- #{w 10924}#
- #{mod 10926}#)
- (#{chi 4345}#
- #{then 10933}#
- #{r 10923}#
- #{w 10924}#
- #{mod 10926}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 0)
- #f)))
- #{tmp 10928}#)
- (let ((#{tmp 11173}#
- ($sc-dispatch #{e 10922}# '(_ any any any))))
- (if #{tmp 11173}#
- (@apply
- (lambda (#{test 11177}# #{then 11178}# #{else 11179}#)
- (#{build-conditional 4281}#
- #{s 10925}#
- (#{chi 4345}#
- #{test 11177}#
- #{r 10923}#
- #{w 10924}#
- #{mod 10926}#)
- (#{chi 4345}#
- #{then 11178}#
- #{r 10923}#
- #{w 10924}#
- #{mod 10926}#)
- (#{chi 4345}#
- #{else 11179}#
- #{r 10923}#
- #{w 10924}#
- #{mod 10926}#)))
- #{tmp 11173}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{e 10922}#)))))))
- (#{global-extend 4311}#
- 'core
- 'with-fluids
- (lambda (#{e 11603}#
- #{r 11604}#
- #{w 11605}#
- #{s 11606}#
- #{mod 11607}#)
- (let ((#{tmp 11609}#
- ($sc-dispatch
- #{e 11603}#
- '(_ #(each (any any)) any . each-any))))
- (if #{tmp 11609}#
- (@apply
- (lambda (#{fluid 11613}#
- #{val 11614}#
- #{b 11615}#
- #{b* 11616}#)
- (#{build-dynlet 4282}#
- #{s 11606}#
- (map (lambda (#{x 11702}#)
- (#{chi 4345}#
- #{x 11702}#
- #{r 11604}#
- #{w 11605}#
- #{mod 11607}#))
- #{fluid 11613}#)
- (map (lambda (#{x 11777}#)
- (#{chi 4345}#
- #{x 11777}#
- #{r 11604}#
- #{w 11605}#
- #{mod 11607}#))
- #{val 11614}#)
- (#{chi-body 4349}#
- (cons #{b 11615}# #{b* 11616}#)
- (#{wrap 4338}#
- (begin
- (if (if (pair? #{e 11603}#) #{s 11606}# #f)
- (set-source-properties! #{e 11603}# #{s 11606}#))
- #{e 11603}#)
- #{w 11605}#
- #{mod 11607}#)
- #{r 11604}#
- #{w 11605}#
- #{mod 11607}#)))
- #{tmp 11609}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{e 11603}#)))))
- (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)
- 'eval-when
- (make-syntax-transformer
- 'eval-when
- 'eval-when
- '()))
- (#{global-extend 4311}#
- 'core
- 'syntax-case
- (letrec*
- ((#{convert-pattern 12148}#
- (lambda (#{pattern 13759}# #{keys 13760}#)
- (letrec*
- ((#{cvt* 13761}#
- (lambda (#{p* 14378}# #{n 14379}# #{ids 14380}#)
- (if (not (pair? #{p* 14378}#))
- (#{cvt 13763}#
- #{p* 14378}#
- #{n 14379}#
- #{ids 14380}#)
- (call-with-values
- (lambda ()
- (#{cvt* 13761}#
- (cdr #{p* 14378}#)
- #{n 14379}#
- #{ids 14380}#))
- (lambda (#{y 14383}# #{ids 14384}#)
- (call-with-values
- (lambda ()
- (#{cvt 13763}#
- (car #{p* 14378}#)
- #{n 14379}#
- #{ids 14384}#))
- (lambda (#{x 14387}# #{ids 14388}#)
- (values
- (cons #{x 14387}# #{y 14383}#)
- #{ids 14388}#))))))))
- (#{v-reverse 13762}#
- (lambda (#{x 14389}#)
- (letrec*
- ((#{loop 14390}#
- (lambda (#{r 14467}# #{x 14468}#)
- (if (not (pair? #{x 14468}#))
- (values #{r 14467}# #{x 14468}#)
- (#{loop 14390}#
- (cons (car #{x 14468}#) #{r 14467}#)
- (cdr #{x 14468}#))))))
- (#{loop 14390}# '() #{x 14389}#))))
- (#{cvt 13763}#
- (lambda (#{p 13766}# #{n 13767}# #{ids 13768}#)
- (if (if (symbol? #{p 13766}#)
- #t
- (if (if (vector? #{p 13766}#)
- (if (= (vector-length #{p 13766}#) 4)
- (eq? (vector-ref #{p 13766}# 0)
- 'syntax-object)
- #f)
- #f)
- (symbol? (vector-ref #{p 13766}# 1))
- #f))
- (if (#{bound-id-member? 4337}#
- #{p 13766}#
- #{keys 13760}#)
- (values
- (vector 'free-id #{p 13766}#)
- #{ids 13768}#)
- (if (if (eq? (if (if (vector? #{p 13766}#)
- (if (= (vector-length #{p 13766}#)
- 4)
- (eq? (vector-ref #{p 13766}# 0)
- 'syntax-object)
- #f)
- #f)
- (vector-ref #{p 13766}# 1)
- #{p 13766}#)
- (if (if (= (vector-length
- '#(syntax-object
- _
- ((top)
- #(ribcage () () ())
- #(ribcage
- #(p n ids)
- #((top) (top) (top))
- #("i3747"
- "i3748"
- "i3749"))
- #(ribcage
- (cvt v-reverse cvt*)
- ((top) (top) (top))
- ("i3720"
- "i3718"
- "i3716"))
- #(ribcage
- #(pattern keys)
- #((top) (top))
- #("i3714" "i3715"))
- #(ribcage
- (gen-syntax-case
- gen-clause
- build-dispatch-call
- convert-pattern)
- ((top)
- (top)
- (top)
- (top))
- ("i3710"
- "i3708"
- "i3706"
- "i3704"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
-
eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
-
set-syntax-object-module!
-
set-syntax-object-wrap!
-
set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
-
syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
-
build-global-definition
-
build-global-assignment
-
build-global-reference
- analyze-variable
-
build-lexical-assignment
-
build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
-
get-global-definition-hook
-
put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
- (define-structure
-
define-expansion-accessors
-
define-expansion-constructors)
- ((top) (top) (top))
- ("i46" "i45" "i44")))
- (hygiene guile)))
- 4)
- (eq? (vector-ref
- '#(syntax-object
- _
- ((top)
- #(ribcage () () ())
- #(ribcage
- #(p n ids)
- #((top) (top) (top))
- #("i3747"
- "i3748"
- "i3749"))
- #(ribcage
- (cvt v-reverse cvt*)
- ((top) (top) (top))
- ("i3720"
- "i3718"
- "i3716"))
- #(ribcage
- #(pattern keys)
- #((top) (top))
- #("i3714" "i3715"))
- #(ribcage
- (gen-syntax-case
- gen-clause
- build-dispatch-call
- convert-pattern)
- ((top)
- (top)
- (top)
- (top))
- ("i3710"
- "i3708"
- "i3706"
- "i3704"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
-
eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
-
set-syntax-object-module!
-
set-syntax-object-wrap!
-
set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
-
syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
-
build-global-definition
-
build-global-assignment
-
build-global-reference
- analyze-variable
-
build-lexical-assignment
-
build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
-
get-global-definition-hook
-
put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
- (define-structure
-
define-expansion-accessors
-
define-expansion-constructors)
- ((top) (top) (top))
- ("i46" "i45" "i44")))
- (hygiene guile))
- 0)
- 'syntax-object)
- #f)
- (vector-ref
- '#(syntax-object
- _
- ((top)
- #(ribcage () () ())
- #(ribcage
- #(p n ids)
- #((top) (top) (top))
- #("i3747" "i3748" "i3749"))
- #(ribcage
- (cvt v-reverse cvt*)
- ((top) (top) (top))
- ("i3720" "i3718" "i3716"))
- #(ribcage
- #(pattern keys)
- #((top) (top))
- #("i3714" "i3715"))
- #(ribcage
- (gen-syntax-case
- gen-clause
- build-dispatch-call
- convert-pattern)
- ((top) (top) (top) (top))
- ("i3710"
- "i3708"
- "i3706"
- "i3704"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
- (define-structure
- define-expansion-accessors
- define-expansion-constructors)
- ((top) (top) (top))
- ("i46" "i45" "i44")))
- (hygiene guile))
- 1)
- '#(syntax-object
- _
- ((top)
- #(ribcage () () ())
- #(ribcage
- #(p n ids)
- #((top) (top) (top))
- #("i3747" "i3748" "i3749"))
- #(ribcage
- (cvt v-reverse cvt*)
- ((top) (top) (top))
- ("i3720" "i3718" "i3716"))
- #(ribcage
- #(pattern keys)
- #((top) (top))
- #("i3714" "i3715"))
- #(ribcage
- (gen-syntax-case
- gen-clause
- build-dispatch-call
- convert-pattern)
- ((top) (top) (top) (top))
- ("i3710" "i3708" "i3706" "i3704"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
- (define-structure
- define-expansion-accessors
- define-expansion-constructors)
- ((top) (top) (top))
- ("i46" "i45" "i44")))
- (hygiene guile))))
- (eq? (#{id-var-name 4332}# #{p 13766}# '(()))
- (#{id-var-name 4332}#
- '#(syntax-object
- _
- ((top)
- #(ribcage () () ())
- #(ribcage
- #(p n ids)
- #((top) (top) (top))
- #("i3747" "i3748" "i3749"))
- #(ribcage
- (cvt v-reverse cvt*)
- ((top) (top) (top))
- ("i3720" "i3718" "i3716"))
- #(ribcage
- #(pattern keys)
- #((top) (top))
- #("i3714" "i3715"))
- #(ribcage
- (gen-syntax-case
- gen-clause
- build-dispatch-call
- convert-pattern)
- ((top) (top) (top) (top))
- ("i3710" "i3708" "i3706" "i3704"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
- (define-structure
- define-expansion-accessors
- define-expansion-constructors)
- ((top) (top) (top))
- ("i46" "i45" "i44")))
- (hygiene guile))
- '(())))
- #f)
- (values '_ #{ids 13768}#)
- (values
- 'any
- (cons (cons #{p 13766}# #{n 13767}#)
- #{ids 13768}#))))
- (let ((#{tmp 14087}#
- ($sc-dispatch #{p 13766}# '(any any))))
- (if (if #{tmp 14087}#
- (@apply
- (lambda (#{x 14091}# #{dots 14092}#)
- (if (if (if (vector? #{dots 14092}#)
- (if (= (vector-length
- #{dots 14092}#)
- 4)
- (eq? (vector-ref
- #{dots 14092}#
- 0)
- 'syntax-object)
- #f)
- #f)
- (symbol? (vector-ref #{dots 14092}# 1))
- #f)
- (if (eq? (if (if (vector? #{dots 14092}#)
- (if (= (vector-length
- #{dots 14092}#)
- 4)
- (eq? (vector-ref
- #{dots 14092}#
- 0)
- 'syntax-object)
- #f)
- #f)
- (vector-ref #{dots 14092}# 1)
- #{dots 14092}#)
- (if (if (= (vector-length
- '#(syntax-object
- ...
- ((top)
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(x)
- #((top))
- #("i2230"))
- #(ribcage
-
(lambda-var-list
- gen-var
- strip
-
chi-lambda-case
-
lambda*-formals
-
chi-simple-lambda
-
lambda-formals
- ellipsis?
- chi-void
-
eval-local-transformer
-
chi-local-syntax
- chi-body
- chi-macro
-
chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
-
chi-install-global
-
chi-top-sequence
- chi-sequence
- source-wrap
- wrap
-
bound-id-member?
-
distinct-bound-ids?
-
valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
-
make-binding-wrap
-
extend-ribcage!
-
make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
-
set-ribcage-labels!
-
set-ribcage-marks!
-
set-ribcage-symnames!
-
ribcage-labels
- ribcage-marks
-
ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
-
id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
-
macros-only-env
-
extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
-
source-annotation
- no-source
-
set-syntax-object-module!
-
set-syntax-object-wrap!
-
set-syntax-object-expression!
-
syntax-object-module
-
syntax-object-wrap
-
syntax-object-expression
-
syntax-object?
-
make-syntax-object
-
build-lexical-var
- build-letrec
-
build-named-let
- build-let
-
build-sequence
- build-data
- build-primref
-
build-lambda-case
-
build-case-lambda
-
build-simple-lambda
-
build-global-definition
-
build-global-assignment
-
build-global-reference
-
analyze-variable
-
build-lexical-assignment
-
build-lexical-reference
- build-dynlet
-
build-conditional
-
build-application
- build-void
-
maybe-name-value!
-
decorate-source
-
get-global-definition-hook
-
put-global-definition-hook
- gensym-hook
-
local-eval-hook
-
top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
-
set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
-
make-lambda-case
- make-lambda
- make-sequence
-
make-application
-
make-conditional
-
make-toplevel-define
-
make-toplevel-set
-
make-toplevel-ref
-
make-module-set
-
make-module-ref
-
make-lexical-set
-
make-lexical-ref
-
make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
-
(define-structure
-
define-expansion-accessors
-
define-expansion-constructors)
- ((top)
- (top)
- (top))
- ("i46"
- "i45"
- "i44")))
- (hygiene guile)))
- 4)
- (eq? (vector-ref
- '#(syntax-object
- ...
- ((top)
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(x)
- #((top))
- #("i2230"))
- #(ribcage
-
(lambda-var-list
- gen-var
- strip
-
chi-lambda-case
-
lambda*-formals
-
chi-simple-lambda
-
lambda-formals
- ellipsis?
- chi-void
-
eval-local-transformer
-
chi-local-syntax
- chi-body
- chi-macro
-
chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
-
chi-install-global
-
chi-top-sequence
- chi-sequence
- source-wrap
- wrap
-
bound-id-member?
-
distinct-bound-ids?
-
valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
-
make-binding-wrap
-
extend-ribcage!
-
make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
-
set-ribcage-labels!
-
set-ribcage-marks!
-
set-ribcage-symnames!
-
ribcage-labels
- ribcage-marks
-
ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
-
id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
-
macros-only-env
-
extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
-
source-annotation
- no-source
-
set-syntax-object-module!
-
set-syntax-object-wrap!
-
set-syntax-object-expression!
-
syntax-object-module
-
syntax-object-wrap
-
syntax-object-expression
-
syntax-object?
-
make-syntax-object
-
build-lexical-var
- build-letrec
-
build-named-let
- build-let
-
build-sequence
- build-data
- build-primref
-
build-lambda-case
-
build-case-lambda
-
build-simple-lambda
-
build-global-definition
-
build-global-assignment
-
build-global-reference
-
analyze-variable
-
build-lexical-assignment
-
build-lexical-reference
- build-dynlet
-
build-conditional
-
build-application
- build-void
-
maybe-name-value!
-
decorate-source
-
get-global-definition-hook
-
put-global-definition-hook
- gensym-hook
-
local-eval-hook
-
top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
-
set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
-
make-lambda-case
- make-lambda
- make-sequence
-
make-application
-
make-conditional
-
make-toplevel-define
-
make-toplevel-set
-
make-toplevel-ref
-
make-module-set
-
make-module-ref
-
make-lexical-set
-
make-lexical-ref
-
make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
-
(define-structure
-
define-expansion-accessors
-
define-expansion-constructors)
- ((top)
- (top)
- (top))
- ("i46"
- "i45"
- "i44")))
- (hygiene guile))
- 0)
- 'syntax-object)
- #f)
- (vector-ref
- '#(syntax-object
- ...
- ((top)
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i2230"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
-
set-syntax-object-module!
-
set-syntax-object-wrap!
-
set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
-
syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
-
build-global-definition
-
build-global-assignment
- build-global-reference
- analyze-variable
-
build-lexical-assignment
-
build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
-
get-global-definition-hook
-
put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
- (define-structure
-
define-expansion-accessors
-
define-expansion-constructors)
- ((top) (top) (top))
- ("i46" "i45" "i44")))
- (hygiene guile))
- 1)
- '#(syntax-object
- ...
- ((top)
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i2230"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
-
set-syntax-object-module!
- set-syntax-object-wrap!
-
set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
-
get-global-definition-hook
-
put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
- (define-structure
-
define-expansion-accessors
-
define-expansion-constructors)
- ((top) (top) (top))
- ("i46" "i45" "i44")))
- (hygiene guile))))
- (eq? (#{id-var-name 4332}#
- #{dots 14092}#
- '(()))
- (#{id-var-name 4332}#
- '#(syntax-object
- ...
- ((top)
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i2230"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
-
set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
- (define-structure
- define-expansion-accessors
-
define-expansion-constructors)
- ((top) (top) (top))
- ("i46" "i45" "i44")))
- (hygiene guile))
- '(())))
- #f)
- #f))
- #{tmp 14087}#)
- #f)
- (@apply
- (lambda (#{x 14189}# #{dots 14190}#)
- (call-with-values
- (lambda ()
- (#{cvt 13763}#
- #{x 14189}#
- (#{1+}# #{n 13767}#)
- #{ids 13768}#))
- (lambda (#{p 14191}# #{ids 14192}#)
- (values
- (if (eq? #{p 14191}# 'any)
- 'each-any
- (vector 'each #{p 14191}#))
- #{ids 14192}#))))
- #{tmp 14087}#)
- (let ((#{tmp 14193}#
- ($sc-dispatch #{p 13766}# '(any any . any))))
- (if (if #{tmp 14193}#
- (@apply
- (lambda (#{x 14197}#
- #{dots 14198}#
- #{ys 14199}#)
- (if (if (if (vector? #{dots 14198}#)
- (if (= (vector-length
- #{dots 14198}#)
- 4)
- (eq? (vector-ref
- #{dots 14198}#
- 0)
- 'syntax-object)
- #f)
- #f)
- (symbol?
- (vector-ref #{dots 14198}# 1))
- #f)
- (if (eq? (if (if (vector?
- #{dots 14198}#)
- (if (= (vector-length
- #{dots 14198}#)
- 4)
- (eq? (vector-ref
- #{dots 14198}#
- 0)
- 'syntax-object)
- #f)
- #f)
- (vector-ref
- #{dots 14198}#
- 1)
- #{dots 14198}#)
- (if (if (= (vector-length
- '#(syntax-object
- ...
- ((top)
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(x)
- #((top))
- #("i2230"))
- #(ribcage
-
(lambda-var-list
- gen-var
- strip
-
chi-lambda-case
-
lambda*-formals
-
chi-simple-lambda
-
lambda-formals
- ellipsis?
- chi-void
-
eval-local-transformer
-
chi-local-syntax
- chi-body
- chi-macro
-
chi-application
- chi-expr
- chi
-
syntax-type
-
chi-when-list
-
chi-install-global
-
chi-top-sequence
-
chi-sequence
-
source-wrap
- wrap
-
bound-id-member?
-
distinct-bound-ids?
-
valid-bound-ids?
-
bound-id=?
- free-id=?
-
id-var-name
-
same-marks?
-
join-marks
-
join-wraps
-
smart-append
-
make-binding-wrap
-
extend-ribcage!
-
make-empty-ribcage
- new-mark
- anti-mark
-
the-anti-mark
-
top-marked?
- top-wrap
-
empty-wrap
-
set-ribcage-labels!
-
set-ribcage-marks!
-
set-ribcage-symnames!
-
ribcage-labels
-
ribcage-marks
-
ribcage-symnames
- ribcage?
-
make-ribcage
-
gen-labels
- gen-label
-
make-rename
-
rename-marks
-
rename-new
-
rename-old
-
subst-rename?
-
wrap-subst
-
wrap-marks
- make-wrap
-
id-sym-name&marks
-
id-sym-name
- id?
-
nonsymbol-id?
-
global-extend
- lookup
-
macros-only-env
-
extend-var-env
-
extend-env
- null-env
-
binding-value
-
binding-type
-
make-binding
- arg-check
-
source-annotation
- no-source
-
set-syntax-object-module!
-
set-syntax-object-wrap!
-
set-syntax-object-expression!
-
syntax-object-module
-
syntax-object-wrap
-
syntax-object-expression
-
syntax-object?
-
make-syntax-object
-
build-lexical-var
-
build-letrec
-
build-named-let
- build-let
-
build-sequence
-
build-data
-
build-primref
-
build-lambda-case
-
build-case-lambda
-
build-simple-lambda
-
build-global-definition
-
build-global-assignment
-
build-global-reference
-
analyze-variable
-
build-lexical-assignment
-
build-lexical-reference
-
build-dynlet
-
build-conditional
-
build-application
-
build-void
-
maybe-name-value!
-
decorate-source
-
get-global-definition-hook
-
put-global-definition-hook
-
gensym-hook
-
local-eval-hook
-
top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
-
set-lambda-meta!
-
lambda-meta
- lambda?
-
make-dynlet
-
make-letrec
- make-let
-
make-lambda-case
-
make-lambda
-
make-sequence
-
make-application
-
make-conditional
-
make-toplevel-define
-
make-toplevel-set
-
make-toplevel-ref
-
make-module-set
-
make-module-ref
-
make-lexical-set
-
make-lexical-ref
-
make-primitive-ref
-
make-const
-
make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
-
(define-structure
-
define-expansion-accessors
-
define-expansion-constructors)
- ((top)
- (top)
- (top))
- ("i46"
- "i45"
- "i44")))
- (hygiene
- guile)))
- 4)
- (eq? (vector-ref
- '#(syntax-object
- ...
- ((top)
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(x)
- #((top))
- #("i2230"))
- #(ribcage
-
(lambda-var-list
- gen-var
- strip
-
chi-lambda-case
-
lambda*-formals
-
chi-simple-lambda
-
lambda-formals
- ellipsis?
- chi-void
-
eval-local-transformer
-
chi-local-syntax
- chi-body
- chi-macro
-
chi-application
- chi-expr
- chi
-
syntax-type
-
chi-when-list
-
chi-install-global
-
chi-top-sequence
-
chi-sequence
-
source-wrap
- wrap
-
bound-id-member?
-
distinct-bound-ids?
-
valid-bound-ids?
-
bound-id=?
- free-id=?
-
id-var-name
-
same-marks?
-
join-marks
-
join-wraps
-
smart-append
-
make-binding-wrap
-
extend-ribcage!
-
make-empty-ribcage
- new-mark
- anti-mark
-
the-anti-mark
-
top-marked?
- top-wrap
-
empty-wrap
-
set-ribcage-labels!
-
set-ribcage-marks!
-
set-ribcage-symnames!
-
ribcage-labels
-
ribcage-marks
-
ribcage-symnames
- ribcage?
-
make-ribcage
-
gen-labels
- gen-label
-
make-rename
-
rename-marks
-
rename-new
-
rename-old
-
subst-rename?
-
wrap-subst
-
wrap-marks
- make-wrap
-
id-sym-name&marks
-
id-sym-name
- id?
-
nonsymbol-id?
-
global-extend
- lookup
-
macros-only-env
-
extend-var-env
-
extend-env
- null-env
-
binding-value
-
binding-type
-
make-binding
- arg-check
-
source-annotation
- no-source
-
set-syntax-object-module!
-
set-syntax-object-wrap!
-
set-syntax-object-expression!
-
syntax-object-module
-
syntax-object-wrap
-
syntax-object-expression
-
syntax-object?
-
make-syntax-object
-
build-lexical-var
-
build-letrec
-
build-named-let
- build-let
-
build-sequence
-
build-data
-
build-primref
-
build-lambda-case
-
build-case-lambda
-
build-simple-lambda
-
build-global-definition
-
build-global-assignment
-
build-global-reference
-
analyze-variable
-
build-lexical-assignment
-
build-lexical-reference
-
build-dynlet
-
build-conditional
-
build-application
-
build-void
-
maybe-name-value!
-
decorate-source
-
get-global-definition-hook
-
put-global-definition-hook
-
gensym-hook
-
local-eval-hook
-
top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
-
set-lambda-meta!
-
lambda-meta
- lambda?
-
make-dynlet
-
make-letrec
- make-let
-
make-lambda-case
-
make-lambda
-
make-sequence
-
make-application
-
make-conditional
-
make-toplevel-define
-
make-toplevel-set
-
make-toplevel-ref
-
make-module-set
-
make-module-ref
-
make-lexical-set
-
make-lexical-ref
-
make-primitive-ref
-
make-const
-
make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
-
(define-structure
-
define-expansion-accessors
-
define-expansion-constructors)
- ((top)
- (top)
- (top))
- ("i46"
- "i45"
- "i44")))
- (hygiene
- guile))
- 0)
- 'syntax-object)
- #f)
- (vector-ref
- '#(syntax-object
- ...
- ((top)
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i2230"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
-
eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
-
distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
-
set-ribcage-labels!
- set-ribcage-marks!
-
set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
-
set-syntax-object-module!
-
set-syntax-object-wrap!
-
set-syntax-object-expression!
-
syntax-object-module
- syntax-object-wrap
-
syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
-
build-simple-lambda
-
build-global-definition
-
build-global-assignment
-
build-global-reference
- analyze-variable
-
build-lexical-assignment
-
build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
-
get-global-definition-hook
-
put-global-definition-hook
- gensym-hook
- local-eval-hook
-
top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
-
make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
- (define-structure
-
define-expansion-accessors
-
define-expansion-constructors)
- ((top) (top) (top))
- ("i46"
- "i45"
- "i44")))
- (hygiene guile))
- 1)
- '#(syntax-object
- ...
- ((top)
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i2230"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
-
eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
-
set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
-
set-syntax-object-module!
-
set-syntax-object-wrap!
-
set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
-
syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
-
build-global-definition
-
build-global-assignment
-
build-global-reference
- analyze-variable
-
build-lexical-assignment
-
build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
-
get-global-definition-hook
-
put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
- (define-structure
-
define-expansion-accessors
-
define-expansion-constructors)
- ((top) (top) (top))
- ("i46" "i45" "i44")))
- (hygiene guile))))
- (eq? (#{id-var-name 4332}#
- #{dots 14198}#
- '(()))
- (#{id-var-name 4332}#
- '#(syntax-object
- ...
- ((top)
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i2230"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
-
set-syntax-object-module!
-
set-syntax-object-wrap!
-
set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
-
syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
-
build-global-definition
-
build-global-assignment
- build-global-reference
- analyze-variable
-
build-lexical-assignment
-
build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
-
get-global-definition-hook
-
put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
- (define-structure
-
define-expansion-accessors
-
define-expansion-constructors)
- ((top) (top) (top))
- ("i46" "i45" "i44")))
- (hygiene guile))
- '(())))
- #f)
- #f))
- #{tmp 14193}#)
- #f)
- (@apply
- (lambda (#{x 14296}#
- #{dots 14297}#
- #{ys 14298}#)
- (call-with-values
- (lambda ()
- (#{cvt* 13761}#
- #{ys 14298}#
- #{n 13767}#
- #{ids 13768}#))
- (lambda (#{ys 14301}# #{ids 14302}#)
- (call-with-values
- (lambda ()
- (#{cvt 13763}#
- #{x 14296}#
- (#{1+}# #{n 13767}#)
- #{ids 14302}#))
- (lambda (#{x 14303}# #{ids 14304}#)
- (call-with-values
- (lambda ()
- (#{v-reverse 13762}#
- #{ys 14301}#))
- (lambda (#{ys 14337}# #{e 14338}#)
- (values
- (vector
- 'each+
- #{x 14303}#
- #{ys 14337}#
- #{e 14338}#)
- #{ids 14304}#))))))))
- #{tmp 14193}#)
- (let ((#{tmp 14339}#
- ($sc-dispatch #{p 13766}# '(any . any))))
- (if #{tmp 14339}#
- (@apply
- (lambda (#{x 14343}# #{y 14344}#)
- (call-with-values
- (lambda ()
- (#{cvt 13763}#
- #{y 14344}#
- #{n 13767}#
- #{ids 13768}#))
- (lambda (#{y 14345}# #{ids 14346}#)
- (call-with-values
- (lambda ()
- (#{cvt 13763}#
- #{x 14343}#
- #{n 13767}#
- #{ids 14346}#))
- (lambda (#{x 14347}# #{ids 14348}#)
- (values
- (cons #{x 14347}# #{y 14345}#)
- #{ids 14348}#))))))
- #{tmp 14339}#)
- (let ((#{tmp 14349}#
- ($sc-dispatch #{p 13766}# '())))
- (if #{tmp 14349}#
- (@apply
- (lambda () (values '() #{ids 13768}#))
- #{tmp 14349}#)
- (let ((#{tmp 14353}#
- ($sc-dispatch
- #{p 13766}#
- '#(vector each-any))))
- (if #{tmp 14353}#
- (@apply
- (lambda (#{x 14357}#)
- (call-with-values
- (lambda ()
- (#{cvt 13763}#
- #{x 14357}#
- #{n 13767}#
- #{ids 13768}#))
- (lambda (#{p 14358}#
- #{ids 14359}#)
- (values
- (vector
- 'vector
- #{p 14358}#)
- #{ids 14359}#))))
- #{tmp 14353}#)
- (values
- (vector
- 'atom
- (#{strip 4358}#
- #{p 13766}#
- '(())))
- #{ids 13768}#)))))))))))))))
- (#{cvt 13763}# #{pattern 13759}# 0 '()))))
- (#{build-dispatch-call 12149}#
- (lambda (#{pvars 14469}#
- #{exp 14470}#
- #{y 14471}#
- #{r 14472}#
- #{mod 14473}#)
- (let ((#{ids 14474}# (map car #{pvars 14469}#)))
- (begin
- (map cdr #{pvars 14469}#)
- (let ((#{labels 14476}#
- (#{gen-labels 4316}# #{ids 14474}#))
- (#{new-vars 14477}#
- (map #{gen-var 4359}# #{ids 14474}#)))
- (#{build-application 4280}#
- #f
- (if (equal? (module-name (current-module)) '(guile))
- (make-struct/no-tail
- (vector-ref %expanded-vtables 7)
- #f
- 'apply)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 5)
- #f
- '(guile)
- 'apply
- #f))
- (list (#{build-simple-lambda 4289}#
- #f
- (map syntax->datum #{ids 14474}#)
- #f
- #{new-vars 14477}#
- '()
- (#{chi 4345}#
- #{exp 14470}#
- (#{extend-env 4307}#
- #{labels 14476}#
- (map (lambda (#{var 14802}# #{level 14803}#)
- (cons 'syntax
- (cons #{var 14802}#
- #{level 14803}#)))
- #{new-vars 14477}#
- (map cdr #{pvars 14469}#))
- #{r 14472}#)
- (#{make-binding-wrap 4327}#
- #{ids 14474}#
- #{labels 14476}#
- '(()))
- #{mod 14473}#))
- #{y 14471}#)))))))
- (#{gen-clause 12150}#
- (lambda (#{x 13123}#
- #{keys 13124}#
- #{clauses 13125}#
- #{r 13126}#
- #{pat 13127}#
- #{fender 13128}#
- #{exp 13129}#
- #{mod 13130}#)
- (call-with-values
- (lambda ()
- (#{convert-pattern 12148}#
- #{pat 13127}#
- #{keys 13124}#))
- (lambda (#{p 13285}# #{pvars 13286}#)
- (if (not (#{distinct-bound-ids? 4336}#
- (map car #{pvars 13286}#)))
- (syntax-violation
- 'syntax-case
- "duplicate pattern variable"
- #{pat 13127}#)
- (if (not (and-map
- (lambda (#{x 13406}#)
- (not (let ((#{x 13410}# (car #{x 13406}#)))
- (if (if (if (vector? #{x 13410}#)
- (if (= (vector-length
- #{x 13410}#)
- 4)
- (eq? (vector-ref
- #{x 13410}#
- 0)
- 'syntax-object)
- #f)
- #f)
- (symbol?
- (vector-ref #{x 13410}# 1))
- #f)
- (if (eq? (if (if (vector? #{x 13410}#)
- (if (= (vector-length
- #{x 13410}#)
- 4)
- (eq? (vector-ref
- #{x 13410}#
- 0)
- 'syntax-object)
- #f)
- #f)
- (vector-ref #{x 13410}# 1)
- #{x 13410}#)
- (if (if (= (vector-length
- '#(syntax-object
- ...
- ((top)
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(x)
- #((top))
-
#("i2230"))
- #(ribcage
-
(lambda-var-list
- gen-var
- strip
-
chi-lambda-case
-
lambda*-formals
-
chi-simple-lambda
-
lambda-formals
-
ellipsis?
- chi-void
-
eval-local-transformer
-
chi-local-syntax
- chi-body
-
chi-macro
-
chi-application
- chi-expr
- chi
-
syntax-type
-
chi-when-list
-
chi-install-global
-
chi-top-sequence
-
chi-sequence
-
source-wrap
- wrap
-
bound-id-member?
-
distinct-bound-ids?
-
valid-bound-ids?
-
bound-id=?
-
free-id=?
-
id-var-name
-
same-marks?
-
join-marks
-
join-wraps
-
smart-append
-
make-binding-wrap
-
extend-ribcage!
-
make-empty-ribcage
- new-mark
-
anti-mark
-
the-anti-mark
-
top-marked?
- top-wrap
-
empty-wrap
-
set-ribcage-labels!
-
set-ribcage-marks!
-
set-ribcage-symnames!
-
ribcage-labels
-
ribcage-marks
-
ribcage-symnames
- ribcage?
-
make-ribcage
-
gen-labels
-
gen-label
-
make-rename
-
rename-marks
-
rename-new
-
rename-old
-
subst-rename?
-
wrap-subst
-
wrap-marks
-
make-wrap
-
id-sym-name&marks
-
id-sym-name
- id?
-
nonsymbol-id?
-
global-extend
- lookup
-
macros-only-env
-
extend-var-env
-
extend-env
- null-env
-
binding-value
-
binding-type
-
make-binding
-
arg-check
-
source-annotation
-
no-source
-
set-syntax-object-module!
-
set-syntax-object-wrap!
-
set-syntax-object-expression!
-
syntax-object-module
-
syntax-object-wrap
-
syntax-object-expression
-
syntax-object?
-
make-syntax-object
-
build-lexical-var
-
build-letrec
-
build-named-let
-
build-let
-
build-sequence
-
build-data
-
build-primref
-
build-lambda-case
-
build-case-lambda
-
build-simple-lambda
-
build-global-definition
-
build-global-assignment
-
build-global-reference
-
analyze-variable
-
build-lexical-assignment
-
build-lexical-reference
-
build-dynlet
-
build-conditional
-
build-application
-
build-void
-
maybe-name-value!
-
decorate-source
-
get-global-definition-hook
-
put-global-definition-hook
-
gensym-hook
-
local-eval-hook
-
top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
-
set-lambda-meta!
-
lambda-meta
- lambda?
-
make-dynlet
-
make-letrec
- make-let
-
make-lambda-case
-
make-lambda
-
make-sequence
-
make-application
-
make-conditional
-
make-toplevel-define
-
make-toplevel-set
-
make-toplevel-ref
-
make-module-set
-
make-module-ref
-
make-lexical-set
-
make-lexical-ref
-
make-primitive-ref
-
make-const
-
make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
-
(define-structure
-
define-expansion-accessors
-
define-expansion-constructors)
- ((top)
- (top)
- (top))
- ("i46"
- "i45"
- "i44")))
- (hygiene
- guile)))
- 4)
- (eq? (vector-ref
- '#(syntax-object
- ...
- ((top)
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(x)
- #((top))
-
#("i2230"))
- #(ribcage
-
(lambda-var-list
- gen-var
- strip
-
chi-lambda-case
-
lambda*-formals
-
chi-simple-lambda
-
lambda-formals
-
ellipsis?
- chi-void
-
eval-local-transformer
-
chi-local-syntax
- chi-body
-
chi-macro
-
chi-application
- chi-expr
- chi
-
syntax-type
-
chi-when-list
-
chi-install-global
-
chi-top-sequence
-
chi-sequence
-
source-wrap
- wrap
-
bound-id-member?
-
distinct-bound-ids?
-
valid-bound-ids?
-
bound-id=?
-
free-id=?
-
id-var-name
-
same-marks?
-
join-marks
-
join-wraps
-
smart-append
-
make-binding-wrap
-
extend-ribcage!
-
make-empty-ribcage
- new-mark
-
anti-mark
-
the-anti-mark
-
top-marked?
- top-wrap
-
empty-wrap
-
set-ribcage-labels!
-
set-ribcage-marks!
-
set-ribcage-symnames!
-
ribcage-labels
-
ribcage-marks
-
ribcage-symnames
- ribcage?
-
make-ribcage
-
gen-labels
-
gen-label
-
make-rename
-
rename-marks
-
rename-new
-
rename-old
-
subst-rename?
-
wrap-subst
-
wrap-marks
-
make-wrap
-
id-sym-name&marks
-
id-sym-name
- id?
-
nonsymbol-id?
-
global-extend
- lookup
-
macros-only-env
-
extend-var-env
-
extend-env
- null-env
-
binding-value
-
binding-type
-
make-binding
-
arg-check
-
source-annotation
-
no-source
-
set-syntax-object-module!
-
set-syntax-object-wrap!
-
set-syntax-object-expression!
-
syntax-object-module
-
syntax-object-wrap
-
syntax-object-expression
-
syntax-object?
-
make-syntax-object
-
build-lexical-var
-
build-letrec
-
build-named-let
-
build-let
-
build-sequence
-
build-data
-
build-primref
-
build-lambda-case
-
build-case-lambda
-
build-simple-lambda
-
build-global-definition
-
build-global-assignment
-
build-global-reference
-
analyze-variable
-
build-lexical-assignment
-
build-lexical-reference
-
build-dynlet
-
build-conditional
-
build-application
-
build-void
-
maybe-name-value!
-
decorate-source
-
get-global-definition-hook
-
put-global-definition-hook
-
gensym-hook
-
local-eval-hook
-
top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
-
set-lambda-meta!
-
lambda-meta
- lambda?
-
make-dynlet
-
make-letrec
- make-let
-
make-lambda-case
-
make-lambda
-
make-sequence
-
make-application
-
make-conditional
-
make-toplevel-define
-
make-toplevel-set
-
make-toplevel-ref
-
make-module-set
-
make-module-ref
-
make-lexical-set
-
make-lexical-ref
-
make-primitive-ref
-
make-const
-
make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
-
(define-structure
-
define-expansion-accessors
-
define-expansion-constructors)
- ((top)
- (top)
- (top))
- ("i46"
- "i45"
- "i44")))
- (hygiene
- guile))
- 0)
- 'syntax-object)
- #f)
- (vector-ref
- '#(syntax-object
- ...
- ((top)
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i2230"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
-
eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
-
chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
-
distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
-
make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
-
set-ribcage-labels!
-
set-ribcage-marks!
-
set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
-
set-syntax-object-module!
-
set-syntax-object-wrap!
-
set-syntax-object-expression!
-
syntax-object-module
-
syntax-object-wrap
-
syntax-object-expression
- syntax-object?
-
make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
-
build-simple-lambda
-
build-global-definition
-
build-global-assignment
-
build-global-reference
- analyze-variable
-
build-lexical-assignment
-
build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
-
get-global-definition-hook
-
put-global-definition-hook
- gensym-hook
- local-eval-hook
-
top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
-
make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
-
make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
- (define-structure
-
define-expansion-accessors
-
define-expansion-constructors)
- ((top) (top) (top))
- ("i46"
- "i45"
- "i44")))
- (hygiene guile))
- 1)
- '#(syntax-object
- ...
- ((top)
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i2230"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
-
eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
-
set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
-
set-syntax-object-module!
-
set-syntax-object-wrap!
-
set-syntax-object-expression!
-
syntax-object-module
- syntax-object-wrap
-
syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
-
build-global-definition
-
build-global-assignment
-
build-global-reference
- analyze-variable
-
build-lexical-assignment
-
build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
-
get-global-definition-hook
-
put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
-
make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
- (define-structure
-
define-expansion-accessors
-
define-expansion-constructors)
- ((top) (top) (top))
- ("i46" "i45" "i44")))
- (hygiene guile))))
- (eq? (#{id-var-name 4332}#
- #{x 13410}#
- '(()))
- (#{id-var-name 4332}#
- '#(syntax-object
- ...
- ((top)
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i2230"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
-
eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
-
set-syntax-object-module!
-
set-syntax-object-wrap!
-
set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
-
syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
-
build-global-definition
-
build-global-assignment
-
build-global-reference
- analyze-variable
-
build-lexical-assignment
-
build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
-
get-global-definition-hook
-
put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
- (define-structure
-
define-expansion-accessors
-
define-expansion-constructors)
- ((top) (top) (top))
- ("i46" "i45" "i44")))
- (hygiene guile))
- '(())))
- #f)
- #f))))
- #{pvars 13286}#))
- (syntax-violation
- 'syntax-case
- "misplaced ellipsis"
- #{pat 13127}#)
- (let ((#{y 13483}#
- (gensym
- (string-append (symbol->string 'tmp) " "))))
- (#{build-application 4280}#
- #f
- (let ((#{req 13633}# (list 'tmp))
- (#{vars 13635}# (list #{y 13483}#))
- (#{exp 13637}#
- (let ((#{y 13654}#
- (make-struct/no-tail
- (vector-ref %expanded-vtables 3)
- #f
- 'tmp
- #{y 13483}#)))
- (let ((#{test-exp 13658}#
- (let ((#{tmp 13667}#
- ($sc-dispatch
- #{fender 13128}#
- '#(atom #t))))
- (if #{tmp 13667}#
- (@apply
- (lambda () #{y 13654}#)
- #{tmp 13667}#)
- (let ((#{then-exp 13685}#
- (#{build-dispatch-call
12149}#
- #{pvars 13286}#
- #{fender 13128}#
- #{y 13654}#
- #{r 13126}#
- #{mod 13130}#))
- (#{else-exp 13686}#
- (make-struct/no-tail
- (vector-ref
- %expanded-vtables
- 1)
- #f
- #f)))
- (make-struct/no-tail
- (vector-ref
- %expanded-vtables
- 10)
- #f
- #{y 13654}#
- #{then-exp 13685}#
- #{else-exp 13686}#)))))
- (#{then-exp 13659}#
- (#{build-dispatch-call 12149}#
- #{pvars 13286}#
- #{exp 13129}#
- #{y 13654}#
- #{r 13126}#
- #{mod 13130}#))
- (#{else-exp 13660}#
- (#{gen-syntax-case 12151}#
- #{x 13123}#
- #{keys 13124}#
- #{clauses 13125}#
- #{r 13126}#
- #{mod 13130}#)))
- (make-struct/no-tail
- (vector-ref %expanded-vtables 10)
- #f
- #{test-exp 13658}#
- #{then-exp 13659}#
- #{else-exp 13660}#)))))
- (let ((#{body 13642}#
- (make-struct/no-tail
- (vector-ref %expanded-vtables 14)
- #f
- #{req 13633}#
- #f
- #f
- #f
- '()
- #{vars 13635}#
- #{exp 13637}#
- #f)))
- (make-struct/no-tail
- (vector-ref %expanded-vtables 13)
- #f
- '()
- #{body 13642}#)))
- (list (if (eq? #{p 13285}# 'any)
- (let ((#{fun-exp 13708}#
- (if (equal?
- (module-name (current-module))
- '(guile))
- (make-struct/no-tail
- (vector-ref %expanded-vtables 7)
- #f
- 'list)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 5)
- #f
- '(guile)
- 'list
- #f)))
- (#{arg-exps 13709}# (list #{x 13123}#)))
- (make-struct/no-tail
- (vector-ref %expanded-vtables 11)
- #f
- #{fun-exp 13708}#
- #{arg-exps 13709}#))
- (let ((#{fun-exp 13732}#
- (if (equal?
- (module-name (current-module))
- '(guile))
- (make-struct/no-tail
- (vector-ref %expanded-vtables 7)
- #f
- '$sc-dispatch)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 5)
- #f
- '(guile)
- '$sc-dispatch
- #f)))
- (#{arg-exps 13733}#
- (list #{x 13123}#
- (make-struct/no-tail
- (vector-ref
- %expanded-vtables
- 1)
- #f
- #{p 13285}#))))
- (make-struct/no-tail
- (vector-ref %expanded-vtables 11)
- #f
- #{fun-exp 13732}#
- #{arg-exps 13733}#))))))))))))
- (#{gen-syntax-case 12151}#
- (lambda (#{x 12557}#
- #{keys 12558}#
- #{clauses 12559}#
- #{r 12560}#
- #{mod 12561}#)
- (if (null? #{clauses 12559}#)
- (let ((#{fun-exp 12566}#
- (if (equal? (module-name (current-module)) '(guile))
- (make-struct/no-tail
- (vector-ref %expanded-vtables 7)
- #f
- 'syntax-violation)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 5)
- #f
- '(guile)
- 'syntax-violation
- #f)))
- (#{arg-exps 12567}#
- (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 12557}#)))
- (make-struct/no-tail
- (vector-ref %expanded-vtables 11)
- #f
- #{fun-exp 12566}#
- #{arg-exps 12567}#))
- (let ((#{tmp 12600}# (car #{clauses 12559}#)))
- (let ((#{tmp 12601}#
- ($sc-dispatch #{tmp 12600}# '(any any))))
- (if #{tmp 12601}#
- (@apply
- (lambda (#{pat 12603}# #{exp 12604}#)
- (if (if (if (symbol? #{pat 12603}#)
- #t
- (if (if (vector? #{pat 12603}#)
- (if (= (vector-length #{pat 12603}#)
- 4)
- (eq? (vector-ref #{pat 12603}# 0)
- 'syntax-object)
- #f)
- #f)
- (symbol? (vector-ref #{pat 12603}# 1))
- #f))
- (and-map
- (lambda (#{x 12631}#)
- (not (if (eq? (if (if (vector?
- #{pat 12603}#)
- (if (= (vector-length
- #{pat 12603}#)
- 4)
- (eq? (vector-ref
- #{pat 12603}#
- 0)
- 'syntax-object)
- #f)
- #f)
- (vector-ref #{pat 12603}# 1)
- #{pat 12603}#)
- (if (if (vector? #{x 12631}#)
- (if (= (vector-length
- #{x 12631}#)
- 4)
- (eq? (vector-ref
- #{x 12631}#
- 0)
- 'syntax-object)
- #f)
- #f)
- (vector-ref #{x 12631}# 1)
- #{x 12631}#))
- (eq? (#{id-var-name 4332}#
- #{pat 12603}#
- '(()))
- (#{id-var-name 4332}#
- #{x 12631}#
- '(())))
- #f)))
- (cons '#(syntax-object
- ...
- ((top)
- #(ribcage
- #(pat exp)
- #((top) (top))
- #("i3911" "i3912"))
- #(ribcage () () ())
- #(ribcage
- #(x keys clauses r mod)
- #((top) (top) (top) (top) (top))
- #("i3900"
- "i3901"
- "i3902"
- "i3903"
- "i3904"))
- #(ribcage
- (gen-syntax-case
- gen-clause
- build-dispatch-call
- convert-pattern)
- ((top) (top) (top) (top))
- ("i3710" "i3708" "i3706" "i3704"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
- (define-structure
- define-expansion-accessors
- define-expansion-constructors)
- ((top) (top) (top))
- ("i46" "i45" "i44")))
- (hygiene guile))
- #{keys 12558}#))
- #f)
- (if (if (eq? (if (if (= (vector-length
- '#(syntax-object
- pad
- ((top)
- #(ribcage
- #(pat exp)
- #((top) (top))
- #("i3911" "i3912"))
- #(ribcage () () ())
- #(ribcage
- #(x
- keys
- clauses
- r
- mod)
- #((top)
- (top)
- (top)
- (top)
- (top))
- #("i3900"
- "i3901"
- "i3902"
- "i3903"
- "i3904"))
- #(ribcage
- (gen-syntax-case
- gen-clause
-
build-dispatch-call
- convert-pattern)
- ((top)
- (top)
- (top)
- (top))
- ("i3710"
- "i3708"
- "i3706"
- "i3704"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
-
eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
-
distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
-
set-ribcage-labels!
- set-ribcage-marks!
-
set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
-
set-syntax-object-module!
-
set-syntax-object-wrap!
-
set-syntax-object-expression!
-
syntax-object-module
- syntax-object-wrap
-
syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
-
build-simple-lambda
-
build-global-definition
-
build-global-assignment
-
build-global-reference
- analyze-variable
-
build-lexical-assignment
-
build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
-
get-global-definition-hook
-
put-global-definition-hook
- gensym-hook
- local-eval-hook
-
top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
-
make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
- (define-structure
-
define-expansion-accessors
-
define-expansion-constructors)
- ((top) (top) (top))
- ("i46"
- "i45"
- "i44")))
- (hygiene guile)))
- 4)
- (eq? (vector-ref
- '#(syntax-object
- pad
- ((top)
- #(ribcage
- #(pat exp)
- #((top) (top))
- #("i3911" "i3912"))
- #(ribcage () () ())
- #(ribcage
- #(x
- keys
- clauses
- r
- mod)
- #((top)
- (top)
- (top)
- (top)
- (top))
- #("i3900"
- "i3901"
- "i3902"
- "i3903"
- "i3904"))
- #(ribcage
- (gen-syntax-case
- gen-clause
-
build-dispatch-call
- convert-pattern)
- ((top)
- (top)
- (top)
- (top))
- ("i3710"
- "i3708"
- "i3706"
- "i3704"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
-
eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
-
distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
-
set-ribcage-labels!
- set-ribcage-marks!
-
set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
-
set-syntax-object-module!
-
set-syntax-object-wrap!
-
set-syntax-object-expression!
-
syntax-object-module
- syntax-object-wrap
-
syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
-
build-simple-lambda
-
build-global-definition
-
build-global-assignment
-
build-global-reference
- analyze-variable
-
build-lexical-assignment
-
build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
-
get-global-definition-hook
-
put-global-definition-hook
- gensym-hook
- local-eval-hook
-
top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
-
make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
- (define-structure
-
define-expansion-accessors
-
define-expansion-constructors)
- ((top) (top) (top))
- ("i46"
- "i45"
- "i44")))
- (hygiene guile))
- 0)
- 'syntax-object)
- #f)
- (vector-ref
- '#(syntax-object
- pad
- ((top)
- #(ribcage
- #(pat exp)
- #((top) (top))
- #("i3911" "i3912"))
- #(ribcage () () ())
- #(ribcage
- #(x keys clauses r mod)
- #((top)
- (top)
- (top)
- (top)
- (top))
- #("i3900"
- "i3901"
- "i3902"
- "i3903"
- "i3904"))
- #(ribcage
- (gen-syntax-case
- gen-clause
- build-dispatch-call
- convert-pattern)
- ((top) (top) (top) (top))
- ("i3710"
- "i3708"
- "i3706"
- "i3704"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
-
set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
- (define-structure
- define-expansion-accessors
-
define-expansion-constructors)
- ((top) (top) (top))
- ("i46" "i45" "i44")))
- (hygiene guile))
- 1)
- '#(syntax-object
- pad
- ((top)
- #(ribcage
- #(pat exp)
- #((top) (top))
- #("i3911" "i3912"))
- #(ribcage () () ())
- #(ribcage
- #(x keys clauses r mod)
- #((top)
- (top)
- (top)
- (top)
- (top))
- #("i3900"
- "i3901"
- "i3902"
- "i3903"
- "i3904"))
- #(ribcage
- (gen-syntax-case
- gen-clause
- build-dispatch-call
- convert-pattern)
- ((top) (top) (top) (top))
- ("i3710"
- "i3708"
- "i3706"
- "i3704"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
- (define-structure
- define-expansion-accessors
-
define-expansion-constructors)
- ((top) (top) (top))
- ("i46" "i45" "i44")))
- (hygiene guile)))
- (if (if (= (vector-length
- '#(syntax-object
- _
- ((top)
- #(ribcage
- #(pat exp)
- #((top) (top))
- #("i3911" "i3912"))
- #(ribcage () () ())
- #(ribcage
- #(x
- keys
- clauses
- r
- mod)
- #((top)
- (top)
- (top)
- (top)
- (top))
- #("i3900"
- "i3901"
- "i3902"
- "i3903"
- "i3904"))
- #(ribcage
- (gen-syntax-case
- gen-clause
-
build-dispatch-call
- convert-pattern)
- ((top)
- (top)
- (top)
- (top))
- ("i3710"
- "i3708"
- "i3706"
- "i3704"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
-
eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
-
distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
-
set-ribcage-labels!
- set-ribcage-marks!
-
set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
-
set-syntax-object-module!
-
set-syntax-object-wrap!
-
set-syntax-object-expression!
-
syntax-object-module
- syntax-object-wrap
-
syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
-
build-simple-lambda
-
build-global-definition
-
build-global-assignment
-
build-global-reference
- analyze-variable
-
build-lexical-assignment
-
build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
-
get-global-definition-hook
-
put-global-definition-hook
- gensym-hook
- local-eval-hook
-
top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
-
make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
- (define-structure
-
define-expansion-accessors
-
define-expansion-constructors)
- ((top) (top) (top))
- ("i46"
- "i45"
- "i44")))
- (hygiene guile)))
- 4)
- (eq? (vector-ref
- '#(syntax-object
- _
- ((top)
- #(ribcage
- #(pat exp)
- #((top) (top))
- #("i3911" "i3912"))
- #(ribcage () () ())
- #(ribcage
- #(x
- keys
- clauses
- r
- mod)
- #((top)
- (top)
- (top)
- (top)
- (top))
- #("i3900"
- "i3901"
- "i3902"
- "i3903"
- "i3904"))
- #(ribcage
- (gen-syntax-case
- gen-clause
-
build-dispatch-call
- convert-pattern)
- ((top)
- (top)
- (top)
- (top))
- ("i3710"
- "i3708"
- "i3706"
- "i3704"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
-
eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
-
distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
-
set-ribcage-labels!
- set-ribcage-marks!
-
set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
-
set-syntax-object-module!
-
set-syntax-object-wrap!
-
set-syntax-object-expression!
-
syntax-object-module
- syntax-object-wrap
-
syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
-
build-simple-lambda
-
build-global-definition
-
build-global-assignment
-
build-global-reference
- analyze-variable
-
build-lexical-assignment
-
build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
-
get-global-definition-hook
-
put-global-definition-hook
- gensym-hook
- local-eval-hook
-
top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
-
make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
- (define-structure
-
define-expansion-accessors
-
define-expansion-constructors)
- ((top) (top) (top))
- ("i46"
- "i45"
- "i44")))
- (hygiene guile))
- 0)
- 'syntax-object)
- #f)
- (vector-ref
- '#(syntax-object
- _
- ((top)
- #(ribcage
- #(pat exp)
- #((top) (top))
- #("i3911" "i3912"))
- #(ribcage () () ())
- #(ribcage
- #(x keys clauses r mod)
- #((top)
- (top)
- (top)
- (top)
- (top))
- #("i3900"
- "i3901"
- "i3902"
- "i3903"
- "i3904"))
- #(ribcage
- (gen-syntax-case
- gen-clause
- build-dispatch-call
- convert-pattern)
- ((top) (top) (top) (top))
- ("i3710"
- "i3708"
- "i3706"
- "i3704"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
-
set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
- (define-structure
- define-expansion-accessors
-
define-expansion-constructors)
- ((top) (top) (top))
- ("i46" "i45" "i44")))
- (hygiene guile))
- 1)
- '#(syntax-object
- _
- ((top)
- #(ribcage
- #(pat exp)
- #((top) (top))
- #("i3911" "i3912"))
- #(ribcage () () ())
- #(ribcage
- #(x keys clauses r mod)
- #((top)
- (top)
- (top)
- (top)
- (top))
- #("i3900"
- "i3901"
- "i3902"
- "i3903"
- "i3904"))
- #(ribcage
- (gen-syntax-case
- gen-clause
- build-dispatch-call
- convert-pattern)
- ((top) (top) (top) (top))
- ("i3710"
- "i3708"
- "i3706"
- "i3704"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
- (define-structure
- define-expansion-accessors
-
define-expansion-constructors)
- ((top) (top) (top))
- ("i46" "i45" "i44")))
- (hygiene guile))))
- (eq? (#{id-var-name 4332}#
- '#(syntax-object
- pad
- ((top)
- #(ribcage
- #(pat exp)
- #((top) (top))
- #("i3911" "i3912"))
- #(ribcage () () ())
- #(ribcage
- #(x keys clauses r mod)
- #((top) (top) (top) (top) (top))
- #("i3900"
- "i3901"
- "i3902"
- "i3903"
- "i3904"))
- #(ribcage
- (gen-syntax-case
- gen-clause
- build-dispatch-call
- convert-pattern)
- ((top) (top) (top) (top))
- ("i3710"
- "i3708"
- "i3706"
- "i3704"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
- (define-structure
- define-expansion-accessors
- define-expansion-constructors)
- ((top) (top) (top))
- ("i46" "i45" "i44")))
- (hygiene guile))
- '(()))
- (#{id-var-name 4332}#
- '#(syntax-object
- _
- ((top)
- #(ribcage
- #(pat exp)
- #((top) (top))
- #("i3911" "i3912"))
- #(ribcage () () ())
- #(ribcage
- #(x keys clauses r mod)
- #((top) (top) (top) (top) (top))
- #("i3900"
- "i3901"
- "i3902"
- "i3903"
- "i3904"))
- #(ribcage
- (gen-syntax-case
- gen-clause
- build-dispatch-call
- convert-pattern)
- ((top) (top) (top) (top))
- ("i3710"
- "i3708"
- "i3706"
- "i3704"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
- (define-structure
- define-expansion-accessors
- define-expansion-constructors)
- ((top) (top) (top))
- ("i46" "i45" "i44")))
- (hygiene guile))
- '(())))
- #f)
- (#{chi 4345}#
- #{exp 12604}#
- #{r 12560}#
- '(())
- #{mod 12561}#)
- (let ((#{labels 12806}#
- (list (symbol->string (gensym "i"))))
- (#{var 12807}#
- (let ((#{id 12845}#
- (if (if (vector? #{pat 12603}#)
- (if (= (vector-length
- #{pat 12603}#)
- 4)
- (eq? (vector-ref
- #{pat 12603}#
- 0)
- 'syntax-object)
- #f)
- #f)
- (vector-ref #{pat 12603}# 1)
- #{pat 12603}#)))
- (gensym
- (string-append
- (symbol->string #{id 12845}#)
- " ")))))
- (#{build-application 4280}#
- #f
- (#{build-simple-lambda 4289}#
- #f
- (list (syntax->datum #{pat 12603}#))
- #f
- (list #{var 12807}#)
- '()
- (#{chi 4345}#
- #{exp 12604}#
- (#{extend-env 4307}#
- #{labels 12806}#
- (list (cons 'syntax
- (cons #{var 12807}# 0)))
- #{r 12560}#)
- (#{make-binding-wrap 4327}#
- (list #{pat 12603}#)
- #{labels 12806}#
- '(()))
- #{mod 12561}#))
- (list #{x 12557}#))))
- (#{gen-clause 12150}#
- #{x 12557}#
- #{keys 12558}#
- (cdr #{clauses 12559}#)
- #{r 12560}#
- #{pat 12603}#
- #t
- #{exp 12604}#
- #{mod 12561}#)))
- #{tmp 12601}#)
- (let ((#{tmp 13115}#
- ($sc-dispatch #{tmp 12600}# '(any any any))))
- (if #{tmp 13115}#
- (@apply
- (lambda (#{pat 13117}#
- #{fender 13118}#
- #{exp 13119}#)
- (#{gen-clause 12150}#
- #{x 12557}#
- #{keys 12558}#
- (cdr #{clauses 12559}#)
- #{r 12560}#
- #{pat 13117}#
- #{fender 13118}#
- #{exp 13119}#
- #{mod 12561}#))
- #{tmp 13115}#)
- (syntax-violation
- 'syntax-case
- "invalid clause"
- (car #{clauses 12559}#)))))))))))
- (lambda (#{e 12152}#
- #{r 12153}#
- #{w 12154}#
- #{s 12155}#
- #{mod 12156}#)
- (let ((#{e 12157}#
- (#{wrap 4338}#
- (begin
- (if (if (pair? #{e 12152}#) #{s 12155}# #f)
- (set-source-properties! #{e 12152}# #{s 12155}#))
- #{e 12152}#)
- #{w 12154}#
- #{mod 12156}#)))
- (let ((#{tmp 12159}#
- ($sc-dispatch
- #{e 12157}#
- '(_ any each-any . each-any))))
- (if #{tmp 12159}#
- (@apply
- (lambda (#{val 12184}# #{key 12185}# #{m 12186}#)
- (if (and-map
- (lambda (#{x 12187}#)
- (if (if (symbol? #{x 12187}#)
- #t
- (if (if (vector? #{x 12187}#)
- (if (= (vector-length #{x 12187}#) 4)
- (eq? (vector-ref #{x 12187}# 0)
- 'syntax-object)
- #f)
- #f)
- (symbol? (vector-ref #{x 12187}# 1))
- #f))
- (not (if (if (if (vector? #{x 12187}#)
- (if (= (vector-length #{x 12187}#)
- 4)
- (eq? (vector-ref #{x 12187}# 0)
- 'syntax-object)
- #f)
- #f)
- (symbol? (vector-ref #{x 12187}# 1))
- #f)
- (if (eq? (if (if (vector? #{x 12187}#)
- (if (= (vector-length
- #{x 12187}#)
- 4)
- (eq? (vector-ref
- #{x 12187}#
- 0)
- 'syntax-object)
- #f)
- #f)
- (vector-ref #{x 12187}# 1)
- #{x 12187}#)
- (if (if (= (vector-length
- '#(syntax-object
- ...
- ((top)
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(x)
- #((top))
- #("i2230"))
- #(ribcage
-
(lambda-var-list
- gen-var
- strip
-
chi-lambda-case
-
lambda*-formals
-
chi-simple-lambda
-
lambda-formals
- ellipsis?
- chi-void
-
eval-local-transformer
-
chi-local-syntax
- chi-body
- chi-macro
-
chi-application
- chi-expr
- chi
- syntax-type
-
chi-when-list
-
chi-install-global
-
chi-top-sequence
- chi-sequence
- source-wrap
- wrap
-
bound-id-member?
-
distinct-bound-ids?
-
valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
-
make-binding-wrap
-
extend-ribcage!
-
make-empty-ribcage
- new-mark
- anti-mark
-
the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
-
set-ribcage-labels!
-
set-ribcage-marks!
-
set-ribcage-symnames!
-
ribcage-labels
-
ribcage-marks
-
ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
-
subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
-
id-sym-name&marks
- id-sym-name
- id?
-
nonsymbol-id?
-
global-extend
- lookup
-
macros-only-env
-
extend-var-env
- extend-env
- null-env
-
binding-value
- binding-type
- make-binding
- arg-check
-
source-annotation
- no-source
-
set-syntax-object-module!
-
set-syntax-object-wrap!
-
set-syntax-object-expression!
-
syntax-object-module
-
syntax-object-wrap
-
syntax-object-expression
-
syntax-object?
-
make-syntax-object
-
build-lexical-var
- build-letrec
-
build-named-let
- build-let
-
build-sequence
- build-data
-
build-primref
-
build-lambda-case
-
build-case-lambda
-
build-simple-lambda
-
build-global-definition
-
build-global-assignment
-
build-global-reference
-
analyze-variable
-
build-lexical-assignment
-
build-lexical-reference
- build-dynlet
-
build-conditional
-
build-application
- build-void
-
maybe-name-value!
-
decorate-source
-
get-global-definition-hook
-
put-global-definition-hook
- gensym-hook
-
local-eval-hook
-
top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
-
set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
-
make-lambda-case
- make-lambda
-
make-sequence
-
make-application
-
make-conditional
-
make-toplevel-define
-
make-toplevel-set
-
make-toplevel-ref
-
make-module-set
-
make-module-ref
-
make-lexical-set
-
make-lexical-ref
-
make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
-
(define-structure
-
define-expansion-accessors
-
define-expansion-constructors)
- ((top)
- (top)
- (top))
- ("i46"
- "i45"
- "i44")))
- (hygiene guile)))
- 4)
- (eq? (vector-ref
- '#(syntax-object
- ...
- ((top)
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(x)
- #((top))
- #("i2230"))
- #(ribcage
-
(lambda-var-list
- gen-var
- strip
-
chi-lambda-case
-
lambda*-formals
-
chi-simple-lambda
-
lambda-formals
- ellipsis?
- chi-void
-
eval-local-transformer
-
chi-local-syntax
- chi-body
- chi-macro
-
chi-application
- chi-expr
- chi
- syntax-type
-
chi-when-list
-
chi-install-global
-
chi-top-sequence
- chi-sequence
- source-wrap
- wrap
-
bound-id-member?
-
distinct-bound-ids?
-
valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
-
make-binding-wrap
-
extend-ribcage!
-
make-empty-ribcage
- new-mark
- anti-mark
-
the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
-
set-ribcage-labels!
-
set-ribcage-marks!
-
set-ribcage-symnames!
-
ribcage-labels
-
ribcage-marks
-
ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
-
subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
-
id-sym-name&marks
- id-sym-name
- id?
-
nonsymbol-id?
-
global-extend
- lookup
-
macros-only-env
-
extend-var-env
- extend-env
- null-env
-
binding-value
- binding-type
- make-binding
- arg-check
-
source-annotation
- no-source
-
set-syntax-object-module!
-
set-syntax-object-wrap!
-
set-syntax-object-expression!
-
syntax-object-module
-
syntax-object-wrap
-
syntax-object-expression
-
syntax-object?
-
make-syntax-object
-
build-lexical-var
- build-letrec
-
build-named-let
- build-let
-
build-sequence
- build-data
-
build-primref
-
build-lambda-case
-
build-case-lambda
-
build-simple-lambda
-
build-global-definition
-
build-global-assignment
-
build-global-reference
-
analyze-variable
-
build-lexical-assignment
-
build-lexical-reference
- build-dynlet
-
build-conditional
-
build-application
- build-void
-
maybe-name-value!
-
decorate-source
-
get-global-definition-hook
-
put-global-definition-hook
- gensym-hook
-
local-eval-hook
-
top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
-
set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
-
make-lambda-case
- make-lambda
-
make-sequence
-
make-application
-
make-conditional
-
make-toplevel-define
-
make-toplevel-set
-
make-toplevel-ref
-
make-module-set
-
make-module-ref
-
make-lexical-set
-
make-lexical-ref
-
make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i399"
- "i398"
- "i396"
- "i393"
- "i392"
- "i391"
- "i389"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i372"
- "i369"
- "i367"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i357"
- "i356"
- "i355"
- "i353"
- "i352"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i339"
- "i337"
- "i336"
- "i335"
- "i333"
- "i331"
- "i330"
- "i327"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i261"
- "i260"
- "i257"
- "i255"
- "i254"
- "i253"
- "i252"
- "i251"
- "i249"
- "i247"
- "i245"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
- #(ribcage
-
(define-structure
-
define-expansion-accessors
-
define-expansion-constructors)
+ #f))
+ #f)
+ #f)))))
+ (if #{t 21425}# #{t 21425}# '(global)))
+ '(displaced-lexical))))))
+ (let ((#{type 20846}# (car #{b 20845}#)))
+ (if (let ((#{t 20880}# #{type 20846}#))
+ (eqv? #{t 20880}# 'lexical))
+ (values
+ #{type 20846}#
+ (cdr #{b 20845}#)
+ #{e 20837}#
+ #{w 20839}#
+ #{s 20840}#
+ #{mod 20842}#)
+ (if (let ((#{t 21037}# #{type 20846}#))
+ (eqv? #{t 21037}# 'global))
+ (values
+ #{type 20846}#
+ #{n 20844}#
+ #{e 20837}#
+ #{w 20839}#
+ #{s 20840}#
+ #{mod 20842}#)
+ (if (let ((#{t 21163}# #{type 20846}#))
+ (eqv? #{t 21163}# 'macro))
+ (if #{for-car? 20843}#
+ (values
+ #{type 20846}#
+ (cdr #{b 20845}#)
+ #{e 20837}#
+ #{w 20839}#
+ #{s 20840}#
+ #{mod 20842}#)
+ (#{syntax-type 4332}#
+ (#{expand-macro 4336}#
+ (cdr #{b 20845}#)
+ #{e 20837}#
+ #{r 20838}#
+ #{w 20839}#
+ #{s 20840}#
+ #{rib 20841}#
+ #{mod 20842}#)
+ #{r 20838}#
+ '(())
+ #{s 20840}#
+ #{rib 20841}#
+ #{mod 20842}#
+ #f))
+ (values
+ #{type 20846}#
+ (cdr #{b 20845}#)
+ #{e 20837}#
+ #{w 20839}#
+ #{s 20840}#
+ #{mod 20842}#)))))))
+ (if (pair? #{e 20837}#)
+ (let ((#{first 21482}# (car #{e 20837}#)))
+ (call-with-values
+ (lambda ()
+ (#{syntax-type 4332}#
+ #{first 21482}#
+ #{r 20838}#
+ #{w 20839}#
+ #{s 20840}#
+ #{rib 20841}#
+ #{mod 20842}#
+ #t))
+ (lambda (#{ftype 21484}#
+ #{fval 21485}#
+ #{fe 21486}#
+ #{fw 21487}#
+ #{fs 21488}#
+ #{fmod 21489}#)
+ (if (eqv? #{ftype 21484}# 'lexical)
+ (values
+ 'lexical-call
+ #{fval 21485}#
+ #{e 20837}#
+ #{w 20839}#
+ #{s 20840}#
+ #{mod 20842}#)
+ (if (eqv? #{ftype 21484}# 'global)
+ (values
+ 'global-call
+ (vector
+ 'syntax-object
+ #{fval 21485}#
+ #{w 20839}#
+ #{fmod 21489}#)
+ #{e 20837}#
+ #{w 20839}#
+ #{s 20840}#
+ #{mod 20842}#)
+ (if (eqv? #{ftype 21484}# 'macro)
+ (#{syntax-type 4332}#
+ (#{expand-macro 4336}#
+ #{fval 21485}#
+ #{e 20837}#
+ #{r 20838}#
+ #{w 20839}#
+ #{s 20840}#
+ #{rib 20841}#
+ #{mod 20842}#)
+ #{r 20838}#
+ '(())
+ #{s 20840}#
+ #{rib 20841}#
+ #{mod 20842}#
+ #{for-car? 20843}#)
+ (if (eqv? #{ftype 21484}# 'module-ref)
+ (call-with-values
+ (lambda ()
+ (#{fval 21485}#
+ #{e 20837}#
+ #{r 20838}#
+ #{w 20839}#))
+ (lambda (#{e 21510}#
+ #{r 21511}#
+ #{w 21512}#
+ #{s 21513}#
+ #{mod 21514}#)
+ (#{syntax-type 4332}#
+ #{e 21510}#
+ #{r 21511}#
+ #{w 21512}#
+ #{s 21513}#
+ #{rib 20841}#
+ #{mod 21514}#
+ #{for-car? 20843}#)))
+ (if (eqv? #{ftype 21484}# 'core)
+ (values
+ 'core-form
+ #{fval 21485}#
+ #{e 20837}#
+ #{w 20839}#
+ #{s 20840}#
+ #{mod 20842}#)
+ (if (eqv? #{ftype 21484}# 'local-syntax)
+ (values
+ 'local-syntax-form
+ #{fval 21485}#
+ #{e 20837}#
+ #{w 20839}#
+ #{s 20840}#
+ #{mod 20842}#)
+ (if (eqv? #{ftype 21484}# 'begin)
+ (values
+ 'begin-form
+ #f
+ #{e 20837}#
+ #{w 20839}#
+ #{s 20840}#
+ #{mod 20842}#)
+ (if (eqv? #{ftype 21484}# 'eval-when)
+ (values
+ 'eval-when-form
+ #f
+ #{e 20837}#
+ #{w 20839}#
+ #{s 20840}#
+ #{mod 20842}#)
+ (if (eqv? #{ftype 21484}# 'define)
+ (let ((#{tmp 21531}#
+ ($sc-dispatch
+ #{e 20837}#
+ '(_ any any))))
+ (if (if #{tmp 21531}#
+ (@apply
+ (lambda (#{name 21535}#
+ #{val 21536}#)
+ (if (symbol? #{name 21535}#)
+ #t
+ (if (if (vector?
+ #{name 21535}#)
+ (if (= (vector-length
+ #{name 21535}#)
+ 4)
+ (eq? (vector-ref
+ #{name 21535}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol?
+ (vector-ref
+ #{name 21535}#
+ 1))
+ #f)))
+ #{tmp 21531}#)
+ #f)
+ (@apply
+ (lambda (#{name 21563}# #{val 21564}#)
+ (values
+ 'define-form
+ #{name 21563}#
+ #{val 21564}#
+ #{w 20839}#
+ #{s 20840}#
+ #{mod 20842}#))
+ #{tmp 21531}#)
+ (let ((#{tmp 21565}#
+ ($sc-dispatch
+ #{e 20837}#
+ '(_ (any . any)
+ any
+ .
+ each-any))))
+ (if (if #{tmp 21565}#
+ (@apply
+ (lambda (#{name 21569}#
+ #{args 21570}#
+ #{e1 21571}#
+ #{e2 21572}#)
+ (if (if (symbol?
+ #{name 21569}#)
+ #t
+ (if (if (vector?
+ #{name
21569}#)
+ (if (=
(vector-length
+ #{name
21569}#)
+ 4)
+ (eq?
(vector-ref
+ #{name
21569}#
+ 0)
+
'syntax-object)
+ #f)
+ #f)
+ (symbol?
+ (vector-ref
+ #{name 21569}#
+ 1))
+ #f))
+ (#{valid-bound-ids? 4323}#
+ (letrec*
+ ((#{lvl 21721}#
+ (lambda (#{vars
21723}#
+ #{ls
21724}#
+ #{w
21725}#)
+ (if (pair?
#{vars 21723}#)
+ (#{lvl 21721}#
+ (cdr #{vars
21723}#)
+ (cons
(#{wrap 4326}#
+ (car
#{vars 21723}#)
+ #{w
21725}#
+ #f)
+ #{ls
21724}#)
+ #{w 21725}#)
+ (if (if
(symbol?
+
#{vars 21723}#)
+ #t
+ (if (if
(vector?
+
#{vars 21723}#)
+
(if (= (vector-length
+
#{vars 21723}#)
+
4)
+
(eq? (vector-ref
+
#{vars 21723}#
+
0)
+
'syntax-object)
+
#f)
+ #f)
+
(symbol?
+
(vector-ref
+
#{vars 21723}#
+ 1))
+ #f))
+ (cons
(#{wrap 4326}#
+
#{vars 21723}#
+ #{w
21725}#
+ #f)
+ #{ls
21724}#)
+ (if (null?
#{vars 21723}#)
+ #{ls
21724}#
+ (if (if
(vector?
+
#{vars 21723}#)
+ (if
(= (vector-length
+
#{vars 21723}#)
+
4)
+
(eq? (vector-ref
+
#{vars 21723}#
+
0)
+
'syntax-object)
+ #f)
+ #f)
+ (#{lvl
21721}#
+
(vector-ref
+
#{vars 21723}#
+ 1)
+ #{ls
21724}#
+
(#{join-wraps 4317}#
+ #{w
21725}#
+
(vector-ref
+
#{vars 21723}#
+
2)))
+ (cons
#{vars 21723}#
+
#{ls 21724}#))))))))
+ (#{lvl 21721}#
+ #{args 21570}#
+ '()
+ '(()))))
+ #f))
+ #{tmp 21565}#)
+ #f)
+ (@apply
+ (lambda (#{name 21769}#
+ #{args 21770}#
+ #{e1 21771}#
+ #{e2 21772}#)
+ (values
+ 'define-form
+ (#{wrap 4326}#
+ #{name 21769}#
+ #{w 20839}#
+ #{mod 20842}#)
+ (let ((#{e 21778}#
+ (cons '#(syntax-object
+ lambda
+ ((top)
+ #(ribcage
+ #(name
+ args
+ e1
+ e2)
+ #((top)
+ (top)
+ (top)
+ (top))
+ #("i1843"
+ "i1844"
+ "i1845"
+
"i1846"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(ftype
+ fval
+ fe
+ fw
+ fs
+ fmod)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i1796"
+ "i1797"
+ "i1798"
+ "i1799"
+ "i1800"
+
"i1801"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(first)
+ #((top))
+
#("i1788"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(e
+ r
+ w
+ s
+ rib
+ mod
+
for-car?)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i1760"
+ "i1761"
+ "i1762"
+ "i1763"
+ "i1764"
+ "i1765"
+
"i1766"))
+ #(ribcage
+
(lambda-var-list
+ gen-var
+ strip
+
expand-lambda-case
+
lambda*-formals
+
expand-simple-lambda
+
lambda-formals
+
ellipsis?
+
expand-void
+
eval-local-transformer
+
expand-local-syntax
+
expand-body
+
expand-macro
+
expand-application
+
expand-expr
+ expand
+
syntax-type
+
parse-when-list
+
expand-install-global
+
expand-top-sequence
+
expand-sequence
+
source-wrap
+ wrap
+
bound-id-member?
+
distinct-bound-ids?
+
valid-bound-ids?
+
bound-id=?
+
free-id=?
+
id-var-name
+
same-marks?
+
join-marks
+
join-wraps
+
smart-append
+
make-binding-wrap
+
extend-ribcage!
+
make-empty-ribcage
+ new-mark
+
anti-mark
+
the-anti-mark
+
top-marked?
+ top-wrap
+
empty-wrap
+
set-ribcage-labels!
+
set-ribcage-marks!
+
set-ribcage-symnames!
+
ribcage-labels
+
ribcage-marks
+
ribcage-symnames
+ ribcage?
+
make-ribcage
+
gen-labels
+
gen-label
+
make-rename
+
rename-marks
+
rename-new
+
rename-old
+
subst-rename?
+
wrap-subst
+
wrap-marks
+
make-wrap
+
id-sym-name&marks
+
id-sym-name
+ id?
+
nonsymbol-id?
+
global-extend
+ lookup
+
macros-only-env
+
extend-var-env
+
extend-env
+ null-env
+
binding-value
+
binding-type
+
make-binding
+
arg-check
+
source-annotation
+
no-source
+
set-syntax-object-module!
+
set-syntax-object-wrap!
+
set-syntax-object-expression!
+
syntax-object-module
+
syntax-object-wrap
+
syntax-object-expression
+
syntax-object?
+
make-syntax-object
+
build-lexical-var
+
build-letrec
+
build-named-let
+
build-let
+
build-sequence
+
build-data
+
build-primref
+
build-lambda-case
+
build-case-lambda
+
build-simple-lambda
+
build-global-definition
+
build-global-assignment
+
build-global-reference
+
analyze-variable
+
build-lexical-assignment
+
build-lexical-reference
+
build-dynlet
+
build-conditional
+
build-application
+
build-void
+
maybe-name-value!
+
decorate-source
+
get-global-definition-hook
+
put-global-definition-hook
+
gensym-hook
+
local-eval-hook
+
top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+
set-lambda-meta!
+
lambda-meta
+ lambda?
+
make-dynlet
+
make-letrec
+ make-let
+
make-lambda-case
+
make-lambda
+
make-sequence
+
make-application
+
make-conditional
+
make-toplevel-define
+
make-toplevel-set
+
make-toplevel-ref
+
make-module-set
+
make-module-ref
+
make-lexical-set
+
make-lexical-ref
+
make-primitive-ref
+
make-const
+
make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i398"
+ "i396"
+ "i393"
+ "i392"
+ "i391"
+ "i389"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i357"
+ "i356"
+ "i355"
+ "i353"
+ "i352"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i336"
+ "i335"
+ "i333"
+ "i331"
+ "i330"
+ "i327"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i260"
+ "i257"
+ "i255"
+ "i254"
+ "i253"
+ "i252"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
+ #(ribcage
+
(define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+ ((top)
+ (top)
+ (top))
+ ("i46"
+ "i45"
+ "i44")))
+ (hygiene
+ guile))
+ (#{wrap 4326}#
+ (cons #{args
21770}#
+ (cons
#{e1 21771}#
+
#{e2 21772}#))
+ #{w 20839}#
+ #{mod
20842}#))))
+ (begin
+ (if (if (pair? #{e
21778}#)
+ #{s 20840}#
+ #f)
+ (set-source-properties!
+ #{e 21778}#
+ #{s 20840}#))
+ #{e 21778}#))
+ '(())
+ #{s 20840}#
+ #{mod 20842}#))
+ #{tmp 21565}#)
+ (let ((#{tmp 21785}#
+ ($sc-dispatch
+ #{e 20837}#
+ '(_ any))))
+ (if (if #{tmp 21785}#
+ (@apply
+ (lambda (#{name 21789}#)
+ (if (symbol?
+ #{name 21789}#)
+ #t
+ (if (if (vector?
+ #{name
21789}#)
+ (if (=
(vector-length
+ #{name
21789}#)
+ 4)
+ (eq?
(vector-ref
+ #{name
21789}#
+ 0)
+
'syntax-object)
+ #f)
+ #f)
+ (symbol?
+ (vector-ref
+ #{name 21789}#
+ 1))
+ #f)))
+ #{tmp 21785}#)
+ #f)
+ (@apply
+ (lambda (#{name 21816}#)
+ (values
+ 'define-form
+ (#{wrap 4326}#
+ #{name 21816}#
+ #{w 20839}#
+ #{mod 20842}#)
+ '(#(syntax-object
+ if
+ ((top)
+ #(ribcage
+ #(name)
+ #((top))
+ #("i1856"))
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(ftype
+ fval
+ fe
+ fw
+ fs
+ fmod)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i1796"
+ "i1797"
+ "i1798"
+ "i1799"
+ "i1800"
+ "i1801"))
+ #(ribcage () () ())
+ #(ribcage
+ #(first)
+ #((top))
+ #("i1788"))
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(e
+ r
+ w
+ s
+ rib
+ mod
+ for-car?)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i1760"
+ "i1761"
+ "i1762"
+ "i1763"
+ "i1764"
+ "i1765"
+ "i1766"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+
expand-lambda-case
+ lambda*-formals
+
expand-simple-lambda
+ lambda-formals
+ ellipsis?
+ expand-void
+
eval-local-transformer
+
expand-local-syntax
+ expand-body
+ expand-macro
+
expand-application
+ expand-expr
+ expand
+ syntax-type
+ parse-when-list
+
expand-install-global
+
expand-top-sequence
+ expand-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+
distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+
make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+
set-ribcage-labels!
+
set-ribcage-marks!
+
set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+
set-syntax-object-module!
+
set-syntax-object-wrap!
+
set-syntax-object-expression!
+
syntax-object-module
+
syntax-object-wrap
+
syntax-object-expression
+ syntax-object?
+
make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+
build-simple-lambda
+
build-global-definition
+
build-global-assignment
+
build-global-reference
+ analyze-variable
+
build-lexical-assignment
+
build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+
get-global-definition-hook
+
put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+
top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+
make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+
make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i398"
+ "i396"
+ "i393"
+ "i392"
+ "i391"
+ "i389"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i357"
+ "i356"
+ "i355"
+ "i353"
+ "i352"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i336"
+ "i335"
+ "i333"
+ "i331"
+ "i330"
+ "i327"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i260"
+ "i257"
+ "i255"
+ "i254"
+ "i253"
+ "i252"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
+ #(ribcage
+ (define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+ ((top) (top) (top))
+ ("i46"
+ "i45"
+ "i44")))
+ (hygiene guile))
+ #(syntax-object
+ #f
+ ((top)
+ #(ribcage
+ #(name)
+ #((top))
+ #("i1856"))
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(ftype
+ fval
+ fe
+ fw
+ fs
+ fmod)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i1796"
+ "i1797"
+ "i1798"
+ "i1799"
+ "i1800"
+ "i1801"))
+ #(ribcage () () ())
+ #(ribcage
+ #(first)
+ #((top))
+ #("i1788"))
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(e
+ r
+ w
+ s
+ rib
+ mod
+ for-car?)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i1760"
+ "i1761"
+ "i1762"
+ "i1763"
+ "i1764"
+ "i1765"
+ "i1766"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+
expand-lambda-case
+ lambda*-formals
+
expand-simple-lambda
+ lambda-formals
+ ellipsis?
+ expand-void
+
eval-local-transformer
+
expand-local-syntax
+ expand-body
+ expand-macro
+
expand-application
+ expand-expr
+ expand
+ syntax-type
+ parse-when-list
+
expand-install-global
+
expand-top-sequence
+ expand-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+
distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+
make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+
set-ribcage-labels!
+
set-ribcage-marks!
+
set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+
set-syntax-object-module!
+
set-syntax-object-wrap!
+
set-syntax-object-expression!
+
syntax-object-module
+
syntax-object-wrap
+
syntax-object-expression
+ syntax-object?
+
make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+
build-simple-lambda
+
build-global-definition
+
build-global-assignment
+
build-global-reference
+ analyze-variable
+
build-lexical-assignment
+
build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+
get-global-definition-hook
+
put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+
top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+
make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+
make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i398"
+ "i396"
+ "i393"
+ "i392"
+ "i391"
+ "i389"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i357"
+ "i356"
+ "i355"
+ "i353"
+ "i352"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i336"
+ "i335"
+ "i333"
+ "i331"
+ "i330"
+ "i327"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i260"
+ "i257"
+ "i255"
+ "i254"
+ "i253"
+ "i252"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
+ #(ribcage
+ (define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+ ((top) (top) (top))
+ ("i46"
+ "i45"
+ "i44")))
+ (hygiene guile))
+ #(syntax-object
+ #f
+ ((top)
+ #(ribcage
+ #(name)
+ #((top))
+ #("i1856"))
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(ftype
+ fval
+ fe
+ fw
+ fs
+ fmod)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i1796"
+ "i1797"
+ "i1798"
+ "i1799"
+ "i1800"
+ "i1801"))
+ #(ribcage () () ())
+ #(ribcage
+ #(first)
+ #((top))
+ #("i1788"))
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(e
+ r
+ w
+ s
+ rib
+ mod
+ for-car?)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i1760"
+ "i1761"
+ "i1762"
+ "i1763"
+ "i1764"
+ "i1765"
+ "i1766"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+
expand-lambda-case
+ lambda*-formals
+
expand-simple-lambda
+ lambda-formals
+ ellipsis?
+ expand-void
+
eval-local-transformer
+
expand-local-syntax
+ expand-body
+ expand-macro
+
expand-application
+ expand-expr
+ expand
+ syntax-type
+ parse-when-list
+
expand-install-global
+
expand-top-sequence
+ expand-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+
distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+
make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+
set-ribcage-labels!
+
set-ribcage-marks!
+
set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+
set-syntax-object-module!
+
set-syntax-object-wrap!
+
set-syntax-object-expression!
+
syntax-object-module
+
syntax-object-wrap
+
syntax-object-expression
+ syntax-object?
+
make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+
build-simple-lambda
+
build-global-definition
+
build-global-assignment
+
build-global-reference
+ analyze-variable
+
build-lexical-assignment
+
build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+
get-global-definition-hook
+
put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+
top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+
make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+
make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i398"
+ "i396"
+ "i393"
+ "i392"
+ "i391"
+ "i389"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i357"
+ "i356"
+ "i355"
+ "i353"
+ "i352"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i336"
+ "i335"
+ "i333"
+ "i331"
+ "i330"
+ "i327"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i260"
+ "i257"
+ "i255"
+ "i254"
+ "i253"
+ "i252"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
+ #(ribcage
+ (define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+ ((top) (top) (top))
+ ("i46"
+ "i45"
+ "i44")))
+ (hygiene guile)))
+ '(())
+ #{s 20840}#
+ #{mod 20842}#))
+ #{tmp 21785}#)
+ (syntax-violation
+ #f
+ "source expression failed to
match any pattern"
+ #{e 20837}#)))))))
+ (if (eqv? #{ftype 21484}# 'define-syntax)
+ (let ((#{tmp 21835}#
+ ($sc-dispatch
+ #{e 20837}#
+ '(_ any any))))
+ (if (if #{tmp 21835}#
+ (@apply
+ (lambda (#{name 21839}#
+ #{val 21840}#)
+ (if (symbol? #{name 21839}#)
+ #t
+ (if (if (vector?
+ #{name 21839}#)
+ (if (= (vector-length
+ #{name
21839}#)
+ 4)
+ (eq? (vector-ref
+ #{name
21839}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol?
+ (vector-ref
+ #{name 21839}#
+ 1))
+ #f)))
+ #{tmp 21835}#)
+ #f)
+ (@apply
+ (lambda (#{name 21867}#
+ #{val 21868}#)
+ (values
+ 'define-syntax-form
+ #{name 21867}#
+ #{val 21868}#
+ #{w 20839}#
+ #{s 20840}#
+ #{mod 20842}#))
+ #{tmp 21835}#)
+ (syntax-violation
+ #f
+ "source expression failed to match
any pattern"
+ #{e 20837}#)))
+ (values
+ 'call
+ #f
+ #{e 20837}#
+ #{w 20839}#
+ #{s 20840}#
+ #{mod 20842}#))))))))))))))
+ (if (if (vector? #{e 20837}#)
+ (if (= (vector-length #{e 20837}#) 4)
+ (eq? (vector-ref #{e 20837}# 0) 'syntax-object)
+ #f)
+ #f)
+ (#{syntax-type 4332}#
+ (vector-ref #{e 20837}# 1)
+ #{r 20838}#
+ (#{join-wraps 4317}#
+ #{w 20839}#
+ (vector-ref #{e 20837}# 2))
+ (let ((#{t 21895}#
+ (#{source-annotation 4294}# #{e 20837}#)))
+ (if #{t 21895}# #{t 21895}# #{s 20840}#))
+ #{rib 20841}#
+ (let ((#{t 22155}# (vector-ref #{e 20837}# 3)))
+ (if #{t 22155}# #{t 22155}# #{mod 20842}#))
+ #{for-car? 20843}#)
+ (if (self-evaluating? #{e 20837}#)
+ (values
+ 'constant
+ #f
+ #{e 20837}#
+ #{w 20839}#
+ #{s 20840}#
+ #{mod 20842}#)
+ (values
+ 'other
+ #f
+ #{e 20837}#
+ #{w 20839}#
+ #{s 20840}#
+ #{mod 20842}#)))))))
+ (#{expand 4333}#
+ (lambda (#{e 22164}#
+ #{r 22165}#
+ #{w 22166}#
+ #{mod 22167}#)
+ (call-with-values
+ (lambda ()
+ (#{syntax-type 4332}#
+ #{e 22164}#
+ #{r 22165}#
+ #{w 22166}#
+ (#{source-annotation 4294}# #{e 22164}#)
+ #f
+ #{mod 22167}#
+ #f))
+ (lambda (#{type 22341}#
+ #{value 22342}#
+ #{e 22343}#
+ #{w 22344}#
+ #{s 22345}#
+ #{mod 22346}#)
+ (#{expand-expr 4334}#
+ #{type 22341}#
+ #{value 22342}#
+ #{e 22343}#
+ #{r 22165}#
+ #{w 22344}#
+ #{s 22345}#
+ #{mod 22346}#)))))
+ (#{expand-expr 4334}#
+ (lambda (#{type 22349}#
+ #{value 22350}#
+ #{e 22351}#
+ #{r 22352}#
+ #{w 22353}#
+ #{s 22354}#
+ #{mod 22355}#)
+ (if (eqv? #{type 22349}# 'lexical)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 3)
+ #{s 22354}#
+ #{e 22351}#
+ #{value 22350}#)
+ (if (if (eqv? #{type 22349}# 'core)
+ #t
+ (eqv? #{type 22349}# 'core-form))
+ (#{value 22350}#
+ #{e 22351}#
+ #{r 22352}#
+ #{w 22353}#
+ #{s 22354}#
+ #{mod 22355}#)
+ (if (eqv? #{type 22349}# 'module-ref)
+ (call-with-values
+ (lambda ()
+ (#{value 22350}#
+ #{e 22351}#
+ #{r 22352}#
+ #{w 22353}#))
+ (lambda (#{e 22381}#
+ #{r 22382}#
+ #{w 22383}#
+ #{s 22384}#
+ #{mod 22385}#)
+ (#{expand 4333}#
+ #{e 22381}#
+ #{r 22382}#
+ #{w 22383}#
+ #{mod 22385}#)))
+ (if (eqv? #{type 22349}# 'lexical-call)
+ (#{expand-application 4335}#
+ (let ((#{id 22465}# (car #{e 22351}#)))
+ (#{build-lexical-reference 4271}#
+ 'fun
+ (#{source-annotation 4294}# #{id 22465}#)
+ (if (if (vector? #{id 22465}#)
+ (if (= (vector-length #{id 22465}#) 4)
+ (eq? (vector-ref #{id 22465}# 0) 'syntax-object)
+ #f)
+ #f)
+ (syntax->datum #{id 22465}#)
+ #{id 22465}#)
+ #{value 22350}#))
+ #{e 22351}#
+ #{r 22352}#
+ #{w 22353}#
+ #{s 22354}#
+ #{mod 22355}#)
+ (if (eqv? #{type 22349}# 'global-call)
+ (#{expand-application 4335}#
+ (#{build-global-reference 4274}#
+ (#{source-annotation 4294}# (car #{e 22351}#))
+ (if (if (vector? #{value 22350}#)
+ (if (= (vector-length #{value 22350}#) 4)
+ (eq? (vector-ref #{value 22350}# 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref #{value 22350}# 1)
+ #{value 22350}#)
+ (if (if (vector? #{value 22350}#)
+ (if (= (vector-length #{value 22350}#) 4)
+ (eq? (vector-ref #{value 22350}# 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref #{value 22350}# 3)
+ #{mod 22355}#))
+ #{e 22351}#
+ #{r 22352}#
+ #{w 22353}#
+ #{s 22354}#
+ #{mod 22355}#)
+ (if (eqv? #{type 22349}# 'constant)
+ (let ((#{exp 23001}#
+ (#{strip 4346}#
+ (#{wrap 4326}#
+ (begin
+ (if (if (pair? #{e 22351}#) #{s 22354}# #f)
+ (set-source-properties!
+ #{e 22351}#
+ #{s 22354}#))
+ #{e 22351}#)
+ #{w 22353}#
+ #{mod 22355}#)
+ '(()))))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 1)
+ #{s 22354}#
+ #{exp 23001}#))
+ (if (eqv? #{type 22349}# 'global)
+ (#{analyze-variable 4273}#
+ #{mod 22355}#
+ #{value 22350}#
+ (lambda (#{mod 23037}# #{var 23038}# #{public? 23039}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 5)
+ #{s 22354}#
+ #{mod 23037}#
+ #{var 23038}#
+ #{public? 23039}#))
+ (lambda (#{var 23048}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 7)
+ #{s 22354}#
+ #{var 23048}#)))
+ (if (eqv? #{type 22349}# 'call)
+ (#{expand-application 4335}#
+ (#{expand 4333}#
+ (car #{e 22351}#)
+ #{r 22352}#
+ #{w 22353}#
+ #{mod 22355}#)
+ #{e 22351}#
+ #{r 22352}#
+ #{w 22353}#
+ #{s 22354}#
+ #{mod 22355}#)
+ (if (eqv? #{type 22349}# 'begin-form)
+ (let ((#{tmp 23128}#
+ ($sc-dispatch
+ #{e 22351}#
+ '(_ any . each-any))))
+ (if #{tmp 23128}#
+ (@apply
+ (lambda (#{e1 23132}# #{e2 23133}#)
+ (#{expand-sequence 4328}#
+ (cons #{e1 23132}# #{e2 23133}#)
+ #{r 22352}#
+ #{w 22353}#
+ #{s 22354}#
+ #{mod 22355}#))
+ #{tmp 23128}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{e 22351}#)))
+ (if (eqv? #{type 22349}# 'local-syntax-form)
+ (#{expand-local-syntax 4338}#
+ #{value 22350}#
+ #{e 22351}#
+ #{r 22352}#
+ #{w 22353}#
+ #{s 22354}#
+ #{mod 22355}#
+ #{expand-sequence 4328}#)
+ (if (eqv? #{type 22349}# 'eval-when-form)
+ (let ((#{tmp 23299}#
+ ($sc-dispatch
+ #{e 22351}#
+ '(_ each-any any . each-any))))
+ (if #{tmp 23299}#
+ (@apply
+ (lambda (#{x 23303}#
+ #{e1 23304}#
+ #{e2 23305}#)
+ (let ((#{when-list 23306}#
+ (#{parse-when-list 4331}#
+ #{e 22351}#
+ #{x 23303}#)))
+ (if (memq 'eval #{when-list 23306}#)
+ (#{expand-sequence 4328}#
+ (cons #{e1 23304}# #{e2 23305}#)
+ #{r 22352}#
+ #{w 22353}#
+ #{s 22354}#
+ #{mod 22355}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 0)
+ #f))))
+ #{tmp 23299}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any
pattern"
+ #{e 22351}#)))
+ (if (if (eqv? #{type 22349}# 'define-form)
+ #t
+ (eqv? #{type 22349}# 'define-syntax-form))
+ (syntax-violation
+ #f
+ "definition in expression context"
+ #{e 22351}#
+ (#{wrap 4326}#
+ #{value 22350}#
+ #{w 22353}#
+ #{mod 22355}#))
+ (if (eqv? #{type 22349}# 'syntax)
+ (syntax-violation
+ #f
+ "reference to pattern variable outside
syntax form"
+ (#{wrap 4326}#
+ (begin
+ (if (if (pair? #{e 22351}#)
+ #{s 22354}#
+ #f)
+ (set-source-properties!
+ #{e 22351}#
+ #{s 22354}#))
+ #{e 22351}#)
+ #{w 22353}#
+ #{mod 22355}#))
+ (if (eqv? #{type 22349}# 'displaced-lexical)
+ (syntax-violation
+ #f
+ "reference to identifier outside its
scope"
+ (#{wrap 4326}#
+ (begin
+ (if (if (pair? #{e 22351}#)
+ #{s 22354}#
+ #f)
+ (set-source-properties!
+ #{e 22351}#
+ #{s 22354}#))
+ #{e 22351}#)
+ #{w 22353}#
+ #{mod 22355}#))
+ (syntax-violation
+ #f
+ "unexpected syntax"
+ (#{wrap 4326}#
+ (begin
+ (if (if (pair? #{e 22351}#)
+ #{s 22354}#
+ #f)
+ (set-source-properties!
+ #{e 22351}#
+ #{s 22354}#))
+ #{e 22351}#)
+ #{w 22353}#
+ #{mod 22355}#))))))))))))))))))
+ (#{expand-application 4335}#
+ (lambda (#{x 23547}#
+ #{e 23548}#
+ #{r 23549}#
+ #{w 23550}#
+ #{s 23551}#
+ #{mod 23552}#)
+ (let ((#{tmp 23554}#
+ ($sc-dispatch #{e 23548}# '(any . each-any))))
+ (if #{tmp 23554}#
+ (@apply
+ (lambda (#{e0 23558}# #{e1 23559}#)
+ (#{build-application 4268}#
+ #{s 23551}#
+ #{x 23547}#
+ (map (lambda (#{e 23644}#)
+ (#{expand 4333}#
+ #{e 23644}#
+ #{r 23549}#
+ #{w 23550}#
+ #{mod 23552}#))
+ #{e1 23559}#)))
+ #{tmp 23554}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{e 23548}#)))))
+ (#{expand-macro 4336}#
+ (lambda (#{p 23725}#
+ #{e 23726}#
+ #{r 23727}#
+ #{w 23728}#
+ #{s 23729}#
+ #{rib 23730}#
+ #{mod 23731}#)
+ (letrec*
+ ((#{rebuild-macro-output 23732}#
+ (lambda (#{x 23763}# #{m 23764}#)
+ (if (pair? #{x 23763}#)
+ (let ((#{e 23768}#
+ (cons (#{rebuild-macro-output 23732}#
+ (car #{x 23763}#)
+ #{m 23764}#)
+ (#{rebuild-macro-output 23732}#
+ (cdr #{x 23763}#)
+ #{m 23764}#))))
+ (begin
+ (if (if (pair? #{e 23768}#) #{s 23729}# #f)
+ (set-source-properties! #{e 23768}# #{s 23729}#))
+ #{e 23768}#))
+ (if (if (vector? #{x 23763}#)
+ (if (= (vector-length #{x 23763}#) 4)
+ (eq? (vector-ref #{x 23763}# 0) 'syntax-object)
+ #f)
+ #f)
+ (let ((#{w 23784}# (vector-ref #{x 23763}# 2)))
+ (let ((#{ms 23785}# (car #{w 23784}#))
+ (#{s 23786}# (cdr #{w 23784}#)))
+ (if (if (pair? #{ms 23785}#)
+ (eq? (car #{ms 23785}#) #f)
+ #f)
+ (let ((#{expression 23794}# (vector-ref #{x 23763}# 1))
+ (#{wrap 23795}#
+ (cons (cdr #{ms 23785}#)
+ (if #{rib 23730}#
+ (cons #{rib 23730}# (cdr #{s 23786}#))
+ (cdr #{s 23786}#))))
+ (#{module 23796}# (vector-ref #{x 23763}# 3)))
+ (vector
+ 'syntax-object
+ #{expression 23794}#
+ #{wrap 23795}#
+ #{module 23796}#))
+ (let ((#{expression 23806}#
+ (let ((#{e 23811}# (vector-ref #{x 23763}# 1)))
+ (begin
+ (if (if (pair? #{e 23811}#) #{s 23786}# #f)
+ (set-source-properties!
+ #{e 23811}#
+ #{s 23786}#))
+ #{e 23811}#)))
+ (#{wrap 23807}#
+ (cons (cons #{m 23764}# #{ms 23785}#)
+ (if #{rib 23730}#
+ (cons #{rib 23730}#
+ (cons 'shift #{s 23786}#))
+ (cons 'shift #{s 23786}#))))
+ (#{module 23808}# (vector-ref #{x 23763}# 3)))
+ (vector
+ 'syntax-object
+ #{expression 23806}#
+ #{wrap 23807}#
+ #{module 23808}#)))))
+ (if (vector? #{x 23763}#)
+ (let ((#{n 23823}# (vector-length #{x 23763}#)))
+ (let ((#{v 23824}#
+ (let ((#{e 23832}# (make-vector #{n 23823}#)))
+ (begin
+ (if (if (pair? #{e 23832}#) #{x 23763}# #f)
+ (set-source-properties!
+ #{e 23832}#
+ #{x 23763}#))
+ #{e 23832}#))))
+ (letrec*
+ ((#{loop 23825}#
+ (lambda (#{i 23877}#)
+ (if (= #{i 23877}# #{n 23823}#)
+ #{v 23824}#
+ (begin
+ (vector-set!
+ #{v 23824}#
+ #{i 23877}#
+ (#{rebuild-macro-output 23732}#
+ (vector-ref #{x 23763}# #{i 23877}#)
+ #{m 23764}#))
+ (#{loop 23825}# (#{1+}# #{i 23877}#)))))))
+ (#{loop 23825}# 0))))
+ (if (symbol? #{x 23763}#)
+ (syntax-violation
+ #f
+ "encountered raw symbol in macro output"
+ (let ((#{s 23883}# (cdr #{w 23728}#)))
+ (#{wrap 4326}#
+ (begin
+ (if (if (pair? #{e 23726}#) #{s 23883}# #f)
+ (set-source-properties!
+ #{e 23726}#
+ #{s 23883}#))
+ #{e 23726}#)
+ #{w 23728}#
+ #{mod 23731}#))
+ #{x 23763}#)
+ (begin
+ (if (if (pair? #{x 23763}#) #{s 23729}# #f)
+ (set-source-properties! #{x 23763}# #{s 23729}#))
+ #{x 23763}#))))))))
+ (#{rebuild-macro-output 23732}#
+ (#{p 23725}#
+ (let ((#{w 23739}#
+ (cons (cons #f (car #{w 23728}#))
+ (cons 'shift (cdr #{w 23728}#)))))
+ (#{wrap 4326}#
+ (begin
+ (if (if (pair? #{e 23726}#) #{s 23729}# #f)
+ (set-source-properties! #{e 23726}# #{s 23729}#))
+ #{e 23726}#)
+ #{w 23739}#
+ #{mod 23731}#)))
+ (gensym "m")))))
+ (#{expand-body 4337}#
+ (lambda (#{body 23915}#
+ #{outer-form 23916}#
+ #{r 23917}#
+ #{w 23918}#
+ #{mod 23919}#)
+ (let ((#{r 23920}#
+ (cons '("placeholder" placeholder) #{r 23917}#)))
+ (let ((#{ribcage 23921}# (vector 'ribcage '() '() '())))
+ (let ((#{w 23922}#
+ (cons (car #{w 23918}#)
+ (cons #{ribcage 23921}# (cdr #{w 23918}#)))))
+ (letrec*
+ ((#{parse 23923}#
+ (lambda (#{body 23936}#
+ #{ids 23937}#
+ #{labels 23938}#
+ #{var-ids 23939}#
+ #{vars 23940}#
+ #{vals 23941}#
+ #{bindings 23942}#)
+ (if (null? #{body 23936}#)
+ (syntax-violation
+ #f
+ "no expressions in body"
+ #{outer-form 23916}#)
+ (let ((#{e 23943}# (cdr (car #{body 23936}#)))
+ (#{er 23944}# (car (car #{body 23936}#))))
+ (call-with-values
+ (lambda ()
+ (#{syntax-type 4332}#
+ #{e 23943}#
+ #{er 23944}#
+ '(())
+ (#{source-annotation 4294}# #{er 23944}#)
+ #{ribcage 23921}#
+ #{mod 23919}#
+ #f))
+ (lambda (#{type 24120}#
+ #{value 24121}#
+ #{e 24122}#
+ #{w 24123}#
+ #{s 24124}#
+ #{mod 24125}#)
+ (if (eqv? #{type 24120}# 'define-form)
+ (let ((#{id 24129}#
+ (#{wrap 4326}#
+ #{value 24121}#
+ #{w 24123}#
+ #{mod 24125}#))
+ (#{label 24130}#
+ (symbol->string (gensym "i"))))
+ (let ((#{var 24131}#
+ (let ((#{id 24191}#
+ (if (if (vector? #{id 24129}#)
+ (if (= (vector-length
+ #{id 24129}#)
+ 4)
+ (eq? (vector-ref
+ #{id 24129}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref #{id 24129}# 1)
+ #{id 24129}#)))
+ (gensym
+ (string-append
+ (symbol->string #{id 24191}#)
+ " ")))))
+ (begin
+ (let ((#{update 24181}#
+ (cons (vector-ref #{id 24129}# 1)
+ (vector-ref
+ #{ribcage 23921}#
+ 1))))
+ (vector-set!
+ #{ribcage 23921}#
+ 1
+ #{update 24181}#))
+ (let ((#{update 24183}#
+ (cons (car (vector-ref
+ #{id 24129}#
+ 2))
+ (vector-ref
+ #{ribcage 23921}#
+ 2))))
+ (vector-set!
+ #{ribcage 23921}#
+ 2
+ #{update 24183}#))
+ (let ((#{update 24185}#
+ (cons #{label 24130}#
+ (vector-ref
+ #{ribcage 23921}#
+ 3))))
+ (vector-set!
+ #{ribcage 23921}#
+ 3
+ #{update 24185}#))
+ (#{parse 23923}#
+ (cdr #{body 23936}#)
+ (cons #{id 24129}# #{ids 23937}#)
+ (cons #{label 24130}# #{labels 23938}#)
+ (cons #{id 24129}# #{var-ids 23939}#)
+ (cons #{var 24131}# #{vars 23940}#)
+ (cons (cons #{er 23944}#
+ (#{wrap 4326}#
+ #{e 24122}#
+ #{w 24123}#
+ #{mod 24125}#))
+ #{vals 23941}#)
+ (cons (cons 'lexical #{var 24131}#)
+ #{bindings 23942}#)))))
+ (if (eqv? #{type 24120}# 'define-syntax-form)
+ (let ((#{id 24219}#
+ (#{wrap 4326}#
+ #{value 24121}#
+ #{w 24123}#
+ #{mod 24125}#))
+ (#{label 24220}#
+ (symbol->string (gensym "i"))))
+ (begin
+ (let ((#{update 24270}#
+ (cons (vector-ref #{id 24219}# 1)
+ (vector-ref
+ #{ribcage 23921}#
+ 1))))
+ (vector-set!
+ #{ribcage 23921}#
+ 1
+ #{update 24270}#))
+ (let ((#{update 24272}#
+ (cons (car (vector-ref
+ #{id 24219}#
+ 2))
+ (vector-ref
+ #{ribcage 23921}#
+ 2))))
+ (vector-set!
+ #{ribcage 23921}#
+ 2
+ #{update 24272}#))
+ (let ((#{update 24274}#
+ (cons #{label 24220}#
+ (vector-ref
+ #{ribcage 23921}#
+ 3))))
+ (vector-set!
+ #{ribcage 23921}#
+ 3
+ #{update 24274}#))
+ (#{parse 23923}#
+ (cdr #{body 23936}#)
+ (cons #{id 24219}# #{ids 23937}#)
+ (cons #{label 24220}# #{labels 23938}#)
+ #{var-ids 23939}#
+ #{vars 23940}#
+ #{vals 23941}#
+ (cons (cons 'macro
+ (cons #{er 23944}#
+ (#{wrap 4326}#
+ #{e 24122}#
+ #{w 24123}#
+ #{mod 24125}#)))
+ #{bindings 23942}#))))
+ (if (eqv? #{type 24120}# 'begin-form)
+ (let ((#{tmp 24282}#
+ ($sc-dispatch
+ #{e 24122}#
+ '(_ . each-any))))
+ (if #{tmp 24282}#
+ (@apply
+ (lambda (#{e1 24286}#)
+ (#{parse 23923}#
+ (letrec*
+ ((#{f 24287}#
+ (lambda (#{forms 24350}#)
+ (if (null? #{forms 24350}#)
+ (cdr #{body 23936}#)
+ (cons (cons #{er 23944}#
+ (#{wrap 4326}#
+ (car
#{forms 24350}#)
+ #{w 24123}#
+ #{mod
24125}#))
+ (#{f 24287}#
+ (cdr #{forms
24350}#)))))))
+ (#{f 24287}# #{e1 24286}#))
+ #{ids 23937}#
+ #{labels 23938}#
+ #{var-ids 23939}#
+ #{vars 23940}#
+ #{vals 23941}#
+ #{bindings 23942}#))
+ #{tmp 24282}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any
pattern"
+ #{e 24122}#)))
+ (if (eqv? #{type 24120}# 'local-syntax-form)
+ (#{expand-local-syntax 4338}#
+ #{value 24121}#
+ #{e 24122}#
+ #{er 23944}#
+ #{w 24123}#
+ #{s 24124}#
+ #{mod 24125}#
+ (lambda (#{forms 24364}#
+ #{er 24365}#
+ #{w 24366}#
+ #{s 24367}#
+ #{mod 24368}#)
+ (#{parse 23923}#
+ (letrec*
+ ((#{f 24369}#
+ (lambda (#{forms 24432}#)
+ (if (null? #{forms 24432}#)
+ (cdr #{body 23936}#)
+ (cons (cons #{er 24365}#
+ (#{wrap 4326}#
+ (car #{forms
24432}#)
+ #{w 24366}#
+ #{mod
24368}#))
+ (#{f 24369}#
+ (cdr #{forms
24432}#)))))))
+ (#{f 24369}# #{forms 24364}#))
+ #{ids 23937}#
+ #{labels 23938}#
+ #{var-ids 23939}#
+ #{vars 23940}#
+ #{vals 23941}#
+ #{bindings 23942}#)))
+ (if (null? #{ids 23937}#)
+ (#{build-sequence 4282}#
+ #f
+ (map (lambda (#{x 24502}#)
+ (#{expand 4333}#
+ (cdr #{x 24502}#)
+ (car #{x 24502}#)
+ '(())
+ #{mod 24125}#))
+ (cons (cons #{er 23944}#
+ (#{wrap 4326}#
+ (begin
+ (if (if (pair?
#{e 24122}#)
+ #{s 24124}#
+ #f)
+
(set-source-properties!
+ #{e 24122}#
+ #{s 24124}#))
+ #{e 24122}#)
+ #{w 24123}#
+ #{mod 24125}#))
+ (cdr #{body 23936}#))))
+ (begin
+ (if (not (#{valid-bound-ids? 4323}#
+ #{ids 23937}#))
+ (syntax-violation
+ #f
+ "invalid or duplicate identifier
in definition"
+ #{outer-form 23916}#))
+ (letrec*
+ ((#{loop 24664}#
+ (lambda (#{bs 24667}#
+ #{er-cache 24668}#
+ #{r-cache 24669}#)
+ (if (not (null? #{bs 24667}#))
+ (let ((#{b 24670}#
+ (car #{bs 24667}#)))
+ (if (eq? (car #{b 24670}#)
+ 'macro)
+ (let ((#{er 24672}#
+ (car (cdr #{b
24670}#))))
+ (let ((#{r-cache 24673}#
+ (if (eq? #{er
24672}#
+
#{er-cache 24668}#)
+ #{r-cache
24669}#
+
(#{macros-only-env 4297}#
+ #{er
24672}#))))
+ (begin
+ (set-cdr!
+ #{b 24670}#
+
(#{eval-local-transformer 4339}#
+ (#{expand 4333}#
+ (cdr (cdr #{b
24670}#))
+ #{r-cache
24673}#
+ '(())
+ #{mod 24125}#)
+ #{mod 24125}#))
+ (#{loop 24664}#
+ (cdr #{bs 24667}#)
+ #{er 24672}#
+ #{r-cache
24673}#))))
+ (#{loop 24664}#
+ (cdr #{bs 24667}#)
+ #{er-cache 24668}#
+ #{r-cache 24669}#)))))))
+ (#{loop 24664}#
+ #{bindings 23942}#
+ #f
+ #f))
+ (set-cdr!
+ #{r 23920}#
+ (#{extend-env 4295}#
+ #{labels 23938}#
+ #{bindings 23942}#
+ (cdr #{r 23920}#)))
+ (#{build-letrec 4285}#
+ #f
+ #t
+ (reverse
+ (map syntax->datum
+ #{var-ids 23939}#))
+ (reverse #{vars 23940}#)
+ (map (lambda (#{x 25026}#)
+ (#{expand 4333}#
+ (cdr #{x 25026}#)
+ (car #{x 25026}#)
+ '(())
+ #{mod 24125}#))
+ (reverse #{vals 23941}#))
+ (#{build-sequence 4282}#
+ #f
+ (map (lambda (#{x 25156}#)
+ (#{expand 4333}#
+ (cdr #{x 25156}#)
+ (car #{x 25156}#)
+ '(())
+ #{mod 24125}#))
+ (cons (cons #{er 23944}#
+ (#{wrap 4326}#
+ (begin
+ (if (if
(pair? #{e 24122}#)
+ #{s
24124}#
+ #f)
+
(set-source-properties!
+ #{e
24122}#
+ #{s
24124}#))
+ #{e 24122}#)
+ #{w 24123}#
+ #{mod 24125}#))
+ (cdr #{body
23936}#))))))))))))))))))
+ (#{parse 23923}#
+ (map (lambda (#{x 23926}#)
+ (cons #{r 23920}#
+ (#{wrap 4326}#
+ #{x 23926}#
+ #{w 23922}#
+ #{mod 23919}#)))
+ #{body 23915}#)
+ '()
+ '()
+ '()
+ '()
+ '()
+ '())))))))
+ (#{expand-local-syntax 4338}#
+ (lambda (#{rec? 25241}#
+ #{e 25242}#
+ #{r 25243}#
+ #{w 25244}#
+ #{s 25245}#
+ #{mod 25246}#
+ #{k 25247}#)
+ (let ((#{tmp 25249}#
+ ($sc-dispatch
+ #{e 25242}#
+ '(_ #(each (any any)) any . each-any))))
+ (if #{tmp 25249}#
+ (@apply
+ (lambda (#{id 25253}#
+ #{val 25254}#
+ #{e1 25255}#
+ #{e2 25256}#)
+ (if (not (#{valid-bound-ids? 4323}# #{id 25253}#))
+ (syntax-violation
+ #f
+ "duplicate bound keyword"
+ #{e 25242}#)
+ (let ((#{labels 25346}#
+ (#{gen-labels 4304}# #{id 25253}#)))
+ (let ((#{new-w 25347}#
+ (#{make-binding-wrap 4315}#
+ #{id 25253}#
+ #{labels 25346}#
+ #{w 25244}#)))
+ (#{k 25247}#
+ (cons #{e1 25255}# #{e2 25256}#)
+ (#{extend-env 4295}#
+ #{labels 25346}#
+ (let ((#{trans-r 25385}#
+ (#{macros-only-env 4297}# #{r 25243}#)))
+ (begin
+ (if #{rec? 25241}# (if #f #f))
+ (map (lambda (#{x 25386}#)
+ (cons 'macro
+ (#{eval-local-transformer 4339}#
+ (#{expand 4333}#
+ #{x 25386}#
+ #{trans-r 25385}#
+ (if #{rec? 25241}#
+ #{new-w 25347}#
+ #{w 25244}#)
+ #{mod 25246}#)
+ #{mod 25246}#)))
+ #{val 25254}#)))
+ #{r 25243}#)
+ #{new-w 25347}#
+ #{s 25245}#
+ #{mod 25246}#)))))
+ #{tmp 25249}#)
+ (syntax-violation
+ #f
+ "bad local syntax definition"
+ (#{wrap 4326}#
+ (begin
+ (if (if (pair? #{e 25242}#) #{s 25245}# #f)
+ (set-source-properties! #{e 25242}# #{s 25245}#))
+ #{e 25242}#)
+ #{w 25244}#
+ #{mod 25246}#))))))
+ (#{eval-local-transformer 4339}#
+ (lambda (#{expanded 25687}# #{mod 25688}#)
+ (let ((#{p 25689}# (primitive-eval #{expanded 25687}#)))
+ (if (procedure? #{p 25689}#)
+ #{p 25689}#
+ (syntax-violation
+ #f
+ "nonprocedure transformer"
+ #{p 25689}#)))))
+ (#{ellipsis? 4341}#
+ (lambda (#{x 5147}#)
+ (if (if (if (vector? #{x 5147}#)
+ (if (= (vector-length #{x 5147}#) 4)
+ (eq? (vector-ref #{x 5147}# 0) 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref #{x 5147}# 1))
+ #f)
+ (if (eq? (if (if (vector? #{x 5147}#)
+ (if (= (vector-length #{x 5147}#) 4)
+ (eq? (vector-ref #{x 5147}# 0) 'syntax-object)
+ #f)
+ #f)
+ (vector-ref #{x 5147}# 1)
+ #{x 5147}#)
+ (if (if (= (vector-length
+ '#(syntax-object
+ ...
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i2218"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ expand-lambda-case
+ lambda*-formals
+ expand-simple-lambda
+ lambda-formals
+ ellipsis?
+ expand-void
+ eval-local-transformer
+ expand-local-syntax
+ expand-body
+ expand-macro
+ expand-application
+ expand-expr
+ expand
+ syntax-type
+ parse-when-list
+ expand-install-global
+ expand-top-sequence
+ expand-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i398"
+ "i396"
+ "i393"
+ "i392"
+ "i391"
+ "i389"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i357"
+ "i356"
+ "i355"
+ "i353"
+ "i352"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i336"
+ "i335"
+ "i333"
+ "i331"
+ "i330"
+ "i327"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i260"
+ "i257"
+ "i255"
+ "i254"
+ "i253"
+ "i252"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("i46" "i45" "i44")))
+ (hygiene guile)))
+ 4)
+ #t
+ #f)
+ '...
+ '#(syntax-object
+ ...
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i2218"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ expand-lambda-case
+ lambda*-formals
+ expand-simple-lambda
+ lambda-formals
+ ellipsis?
+ expand-void
+ eval-local-transformer
+ expand-local-syntax
+ expand-body
+ expand-macro
+ expand-application
+ expand-expr
+ expand
+ syntax-type
+ parse-when-list
+ expand-install-global
+ expand-top-sequence
+ expand-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i398"
+ "i396"
+ "i393"
+ "i392"
+ "i391"
+ "i389"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i357"
+ "i356"
+ "i355"
+ "i353"
+ "i352"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i336"
+ "i335"
+ "i333"
+ "i331"
+ "i330"
+ "i327"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i260"
+ "i257"
+ "i255"
+ "i254"
+ "i253"
+ "i252"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("i46" "i45" "i44")))
+ (hygiene guile))))
+ (eq? (#{id-var-name 4320}# #{x 5147}# '(()))
+ (#{id-var-name 4320}#
+ '#(syntax-object
+ ...
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i2218"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ expand-lambda-case
+ lambda*-formals
+ expand-simple-lambda
+ lambda-formals
+ ellipsis?
+ expand-void
+ eval-local-transformer
+ expand-local-syntax
+ expand-body
+ expand-macro
+ expand-application
+ expand-expr
+ expand
+ syntax-type
+ parse-when-list
+ expand-install-global
+ expand-top-sequence
+ expand-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i398"
+ "i396"
+ "i393"
+ "i392"
+ "i391"
+ "i389"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i357"
+ "i356"
+ "i355"
+ "i353"
+ "i352"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i336"
+ "i335"
+ "i333"
+ "i331"
+ "i330"
+ "i327"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i260"
+ "i257"
+ "i255"
+ "i254"
+ "i253"
+ "i252"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("i46" "i45" "i44")))
+ (hygiene guile))
+ '(())))
+ #f)
+ #f)))
+ (#{lambda-formals 4342}#
+ (lambda (#{orig-args 25694}#)
+ (letrec*
+ ((#{req 25695}#
+ (lambda (#{args 25699}# #{rreq 25700}#)
+ (let ((#{tmp 25702}# ($sc-dispatch #{args 25699}# '())))
+ (if #{tmp 25702}#
+ (@apply
+ (lambda ()
+ (#{check 25696}# (reverse #{rreq 25700}#) #f))
+ #{tmp 25702}#)
+ (let ((#{tmp 25829}#
+ ($sc-dispatch #{args 25699}# '(any . any))))
+ (if (if #{tmp 25829}#
+ (@apply
+ (lambda (#{a 25833}# #{b 25834}#)
+ (if (symbol? #{a 25833}#)
+ #t
+ (if (if (vector? #{a 25833}#)
+ (if (= (vector-length #{a 25833}#) 4)
+ (eq? (vector-ref #{a 25833}# 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref #{a 25833}# 1))
+ #f)))
+ #{tmp 25829}#)
+ #f)
+ (@apply
+ (lambda (#{a 25861}# #{b 25862}#)
+ (#{req 25695}#
+ #{b 25862}#
+ (cons #{a 25861}# #{rreq 25700}#)))
+ #{tmp 25829}#)
+ (let ((#{tmp 25863}# (list #{args 25699}#)))
+ (if (@apply
+ (lambda (#{r 25865}#)
+ (if (symbol? #{r 25865}#)
+ #t
+ (if (if (vector? #{r 25865}#)
+ (if (= (vector-length #{r 25865}#) 4)
+ (eq? (vector-ref #{r 25865}# 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref #{r 25865}# 1))
+ #f)))
+ #{tmp 25863}#)
+ (@apply
+ (lambda (#{r 25895}#)
+ (#{check 25696}#
+ (reverse #{rreq 25700}#)
+ #{r 25895}#))
+ #{tmp 25863}#)
+ (syntax-violation
+ 'lambda
+ "invalid argument list"
+ #{orig-args 25694}#
+ #{args 25699}#)))))))))
+ (#{check 25696}#
+ (lambda (#{req 26030}# #{rest 26031}#)
+ (if (#{distinct-bound-ids? 4324}#
+ (if #{rest 26031}#
+ (cons #{rest 26031}# #{req 26030}#)
+ #{req 26030}#))
+ (values #{req 26030}# #f #{rest 26031}# #f)
+ (syntax-violation
+ 'lambda
+ "duplicate identifier in argument list"
+ #{orig-args 25694}#)))))
+ (#{req 25695}# #{orig-args 25694}# '()))))
+ (#{expand-simple-lambda 4343}#
+ (lambda (#{e 26151}#
+ #{r 26152}#
+ #{w 26153}#
+ #{s 26154}#
+ #{mod 26155}#
+ #{req 26156}#
+ #{rest 26157}#
+ #{meta 26158}#
+ #{body 26159}#)
+ (let ((#{ids 26160}#
+ (if #{rest 26157}#
+ (append #{req 26156}# (list #{rest 26157}#))
+ #{req 26156}#)))
+ (let ((#{vars 26161}#
+ (map #{gen-var 4347}# #{ids 26160}#)))
+ (let ((#{labels 26162}#
+ (#{gen-labels 4304}# #{ids 26160}#)))
+ (#{build-simple-lambda 4277}#
+ #{s 26154}#
+ (map syntax->datum #{req 26156}#)
+ (if #{rest 26157}#
+ (syntax->datum #{rest 26157}#)
+ #f)
+ #{vars 26161}#
+ #{meta 26158}#
+ (#{expand-body 4337}#
+ #{body 26159}#
+ (#{wrap 4326}#
+ (begin
+ (if (if (pair? #{e 26151}#) #{s 26154}# #f)
+ (set-source-properties! #{e 26151}# #{s 26154}#))
+ #{e 26151}#)
+ #{w 26153}#
+ #{mod 26155}#)
+ (#{extend-var-env 4296}#
+ #{labels 26162}#
+ #{vars 26161}#
+ #{r 26152}#)
+ (#{make-binding-wrap 4315}#
+ #{ids 26160}#
+ #{labels 26162}#
+ #{w 26153}#)
+ #{mod 26155}#)))))))
+ (#{lambda*-formals 4344}#
+ (lambda (#{orig-args 26462}#)
+ (letrec*
+ ((#{req 26463}#
+ (lambda (#{args 26470}# #{rreq 26471}#)
+ (let ((#{tmp 26473}# ($sc-dispatch #{args 26470}# '())))
+ (if #{tmp 26473}#
+ (@apply
+ (lambda ()
+ (#{check 26467}#
+ (reverse #{rreq 26471}#)
+ '()
+ #f
+ '()))
+ #{tmp 26473}#)
+ (let ((#{tmp 26479}#
+ ($sc-dispatch #{args 26470}# '(any . any))))
+ (if (if #{tmp 26479}#
+ (@apply
+ (lambda (#{a 26483}# #{b 26484}#)
+ (if (symbol? #{a 26483}#)
+ #t
+ (if (if (vector? #{a 26483}#)
+ (if (= (vector-length #{a 26483}#) 4)
+ (eq? (vector-ref #{a 26483}# 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref #{a 26483}# 1))
+ #f)))
+ #{tmp 26479}#)
+ #f)
+ (@apply
+ (lambda (#{a 26511}# #{b 26512}#)
+ (#{req 26463}#
+ #{b 26512}#
+ (cons #{a 26511}# #{rreq 26471}#)))
+ #{tmp 26479}#)
+ (let ((#{tmp 26513}#
+ ($sc-dispatch #{args 26470}# '(any . any))))
+ (if (if #{tmp 26513}#
+ (@apply
+ (lambda (#{a 26517}# #{b 26518}#)
+ (eq? (syntax->datum #{a 26517}#) #:optional))
+ #{tmp 26513}#)
+ #f)
+ (@apply
+ (lambda (#{a 26519}# #{b 26520}#)
+ (#{opt 26464}#
+ #{b 26520}#
+ (reverse #{rreq 26471}#)
+ '()))
+ #{tmp 26513}#)
+ (let ((#{tmp 26523}#
+ ($sc-dispatch #{args 26470}# '(any . any))))
+ (if (if #{tmp 26523}#
+ (@apply
+ (lambda (#{a 26527}# #{b 26528}#)
+ (eq? (syntax->datum #{a 26527}#) #:key))
+ #{tmp 26523}#)
+ #f)
+ (@apply
+ (lambda (#{a 26529}# #{b 26530}#)
+ (#{key 26465}#
+ #{b 26530}#
+ (reverse #{rreq 26471}#)
+ '()
+ '()))
+ #{tmp 26523}#)
+ (let ((#{tmp 26533}#
+ ($sc-dispatch
+ #{args 26470}#
+ '(any any))))
+ (if (if #{tmp 26533}#
+ (@apply
+ (lambda (#{a 26537}# #{b 26538}#)
+ (eq? (syntax->datum #{a 26537}#)
+ #:rest))
+ #{tmp 26533}#)
+ #f)
+ (@apply
+ (lambda (#{a 26539}# #{b 26540}#)
+ (#{rest 26466}#
+ #{b 26540}#
+ (reverse #{rreq 26471}#)
+ '()
+ '()))
+ #{tmp 26533}#)
+ (let ((#{tmp 26543}# (list #{args 26470}#)))
+ (if (@apply
+ (lambda (#{r 26545}#)
+ (if (symbol? #{r 26545}#)
+ #t
+ (if (if (vector? #{r 26545}#)
+ (if (= (vector-length
+ #{r 26545}#)
+ 4)
+ (eq? (vector-ref
+ #{r 26545}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol?
+ (vector-ref #{r 26545}# 1))
+ #f)))
+ #{tmp 26543}#)
+ (@apply
+ (lambda (#{r 26575}#)
+ (#{rest 26466}#
+ #{r 26575}#
+ (reverse #{rreq 26471}#)
+ '()
+ '()))
+ #{tmp 26543}#)
+ (syntax-violation
+ 'lambda*
+ "invalid argument list"
+ #{orig-args 26462}#
+ #{args 26470}#)))))))))))))))
+ (#{opt 26464}#
+ (lambda (#{args 26594}# #{req 26595}# #{ropt 26596}#)
+ (let ((#{tmp 26598}# ($sc-dispatch #{args 26594}# '())))
+ (if #{tmp 26598}#
+ (@apply
+ (lambda ()
+ (#{check 26467}#
+ #{req 26595}#
+ (reverse #{ropt 26596}#)
+ #f
+ '()))
+ #{tmp 26598}#)
+ (let ((#{tmp 26604}#
+ ($sc-dispatch #{args 26594}# '(any . any))))
+ (if (if #{tmp 26604}#
+ (@apply
+ (lambda (#{a 26608}# #{b 26609}#)
+ (if (symbol? #{a 26608}#)
+ #t
+ (if (if (vector? #{a 26608}#)
+ (if (= (vector-length #{a 26608}#) 4)
+ (eq? (vector-ref #{a 26608}# 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref #{a 26608}# 1))
+ #f)))
+ #{tmp 26604}#)
+ #f)
+ (@apply
+ (lambda (#{a 26636}# #{b 26637}#)
+ (#{opt 26464}#
+ #{b 26637}#
+ #{req 26595}#
+ (cons (cons #{a 26636}#
+ '(#(syntax-object
+ #f
+ ((top)
+ #(ribcage
+ #(a b)
+ #((top) (top))
+ #("i2357" "i2358"))
+ #(ribcage () () ())
+ #(ribcage
+ #(args req ropt)
+ #((top) (top) (top))
+ #("i2347" "i2348" "i2349"))
+ #(ribcage
+ (check rest key opt req)
+ ((top) (top) (top) (top) (top))
+ ("i2293"
+ "i2291"
+ "i2289"
+ "i2287"
+ "i2285"))
+ #(ribcage
+ #(orig-args)
+ #((top))
+ #("i2284"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ expand-lambda-case
+ lambda*-formals
+ expand-simple-lambda
+ lambda-formals
+ ellipsis?
+ expand-void
+ eval-local-transformer
+ expand-local-syntax
+ expand-body
+ expand-macro
+ expand-application
+ expand-expr
+ expand
+ syntax-type
+ parse-when-list
+ expand-install-global
+ expand-top-sequence
+ expand-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i398"
+ "i396"
+ "i393"
+ "i392"
+ "i391"
+ "i389"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i357"
+ "i356"
+ "i355"
+ "i353"
+ "i352"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i336"
+ "i335"
+ "i333"
+ "i331"
+ "i330"
+ "i327"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i260"
+ "i257"
+ "i255"
+ "i254"
+ "i253"
+ "i252"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("i46" "i45" "i44")))
+ (hygiene guile))))
+ #{ropt 26596}#)))
+ #{tmp 26604}#)
+ (let ((#{tmp 26638}#
+ ($sc-dispatch
+ #{args 26594}#
+ '((any any) . any))))
+ (if (if #{tmp 26638}#
+ (@apply
+ (lambda (#{a 26642}#
+ #{init 26643}#
+ #{b 26644}#)
+ (if (symbol? #{a 26642}#)
+ #t
+ (if (if (vector? #{a 26642}#)
+ (if (= (vector-length #{a 26642}#) 4)
+ (eq? (vector-ref #{a 26642}# 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref #{a 26642}# 1))
+ #f)))
+ #{tmp 26638}#)
+ #f)
+ (@apply
+ (lambda (#{a 26671}# #{init 26672}# #{b 26673}#)
+ (#{opt 26464}#
+ #{b 26673}#
+ #{req 26595}#
+ (cons (list #{a 26671}# #{init 26672}#)
+ #{ropt 26596}#)))
+ #{tmp 26638}#)
+ (let ((#{tmp 26674}#
+ ($sc-dispatch #{args 26594}# '(any . any))))
+ (if (if #{tmp 26674}#
+ (@apply
+ (lambda (#{a 26678}# #{b 26679}#)
+ (eq? (syntax->datum #{a 26678}#) #:key))
+ #{tmp 26674}#)
+ #f)
+ (@apply
+ (lambda (#{a 26680}# #{b 26681}#)
+ (#{key 26465}#
+ #{b 26681}#
+ #{req 26595}#
+ (reverse #{ropt 26596}#)
+ '()))
+ #{tmp 26674}#)
+ (let ((#{tmp 26684}#
+ ($sc-dispatch
+ #{args 26594}#
+ '(any any))))
+ (if (if #{tmp 26684}#
+ (@apply
+ (lambda (#{a 26688}# #{b 26689}#)
+ (eq? (syntax->datum #{a 26688}#)
+ #:rest))
+ #{tmp 26684}#)
+ #f)
+ (@apply
+ (lambda (#{a 26690}# #{b 26691}#)
+ (#{rest 26466}#
+ #{b 26691}#
+ #{req 26595}#
+ (reverse #{ropt 26596}#)
+ '()))
+ #{tmp 26684}#)
+ (let ((#{tmp 26694}# (list #{args 26594}#)))
+ (if (@apply
+ (lambda (#{r 26696}#)
+ (if (symbol? #{r 26696}#)
+ #t
+ (if (if (vector? #{r 26696}#)
+ (if (= (vector-length
+ #{r 26696}#)
+ 4)
+ (eq? (vector-ref
+ #{r 26696}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol?
+ (vector-ref #{r 26696}# 1))
+ #f)))
+ #{tmp 26694}#)
+ (@apply
+ (lambda (#{r 26726}#)
+ (#{rest 26466}#
+ #{r 26726}#
+ #{req 26595}#
+ (reverse #{ropt 26596}#)
+ '()))
+ #{tmp 26694}#)
+ (syntax-violation
+ 'lambda*
+ "invalid optional argument list"
+ #{orig-args 26462}#
+ #{args 26594}#)))))))))))))))
+ (#{key 26465}#
+ (lambda (#{args 26745}#
+ #{req 26746}#
+ #{opt 26747}#
+ #{rkey 26748}#)
+ (let ((#{tmp 26750}# ($sc-dispatch #{args 26745}# '())))
+ (if #{tmp 26750}#
+ (@apply
+ (lambda ()
+ (#{check 26467}#
+ #{req 26746}#
+ #{opt 26747}#
+ #f
+ (cons #f (reverse #{rkey 26748}#))))
+ #{tmp 26750}#)
+ (let ((#{tmp 26756}#
+ ($sc-dispatch #{args 26745}# '(any . any))))
+ (if (if #{tmp 26756}#
+ (@apply
+ (lambda (#{a 26760}# #{b 26761}#)
+ (if (symbol? #{a 26760}#)
+ #t
+ (if (if (vector? #{a 26760}#)
+ (if (= (vector-length #{a 26760}#) 4)
+ (eq? (vector-ref #{a 26760}# 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref #{a 26760}# 1))
+ #f)))
+ #{tmp 26756}#)
+ #f)
+ (@apply
+ (lambda (#{a 26788}# #{b 26789}#)
+ (let ((#{tmp 26790}#
+ (symbol->keyword
+ (syntax->datum #{a 26788}#))))
+ (#{key 26465}#
+ #{b 26789}#
+ #{req 26746}#
+ #{opt 26747}#
+ (cons (cons #{tmp 26790}#
+ (cons #{a 26788}#
+ '(#(syntax-object
+ #f
+ ((top)
+ #(ribcage () () ())
+ #(ribcage
+ #(k)
+ #((top))
+ #("i2420"))
+ #(ribcage
+ #(a b)
+ #((top) (top))
+ #("i2414" "i2415"))
+ #(ribcage () () ())
+ #(ribcage
+ #(args req opt rkey)
+ #((top)
+ (top)
+ (top)
+ (top))
+ #("i2403"
+ "i2404"
+ "i2405"
+ "i2406"))
+ #(ribcage
+ (check rest key opt req)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i2293"
+ "i2291"
+ "i2289"
+ "i2287"
+ "i2285"))
+ #(ribcage
+ #(orig-args)
+ #((top))
+ #("i2284"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ expand-lambda-case
+ lambda*-formals
+ expand-simple-lambda
+ lambda-formals
+ ellipsis?
+ expand-void
+ eval-local-transformer
+ expand-local-syntax
+ expand-body
+ expand-macro
+ expand-application
+ expand-expr
+ expand
+ syntax-type
+ parse-when-list
+ expand-install-global
+ expand-top-sequence
+ expand-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+
set-syntax-object-module!
+
set-syntax-object-wrap!
+
set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+
syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+
build-global-definition
+
build-global-assignment
+ build-global-reference
+ analyze-variable
+
build-lexical-assignment
+
build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+
get-global-definition-hook
+
put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i398"
+ "i396"
+ "i393"
+ "i392"
+ "i391"
+ "i389"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i357"
+ "i356"
+ "i355"
+ "i353"
+ "i352"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i336"
+ "i335"
+ "i333"
+ "i331"
+ "i330"
+ "i327"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i260"
+ "i257"
+ "i255"
+ "i254"
+ "i253"
+ "i252"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
+ #(ribcage
+ (define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+ ((top) (top) (top))
+ ("i46" "i45" "i44")))
+ (hygiene guile)))))
+ #{rkey 26748}#))))
+ #{tmp 26756}#)
+ (let ((#{tmp 26793}#
+ ($sc-dispatch
+ #{args 26745}#
+ '((any any) . any))))
+ (if (if #{tmp 26793}#
+ (@apply
+ (lambda (#{a 26797}#
+ #{init 26798}#
+ #{b 26799}#)
+ (if (symbol? #{a 26797}#)
+ #t
+ (if (if (vector? #{a 26797}#)
+ (if (= (vector-length #{a 26797}#) 4)
+ (eq? (vector-ref #{a 26797}# 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref #{a 26797}# 1))
+ #f)))
+ #{tmp 26793}#)
+ #f)
+ (@apply
+ (lambda (#{a 26826}# #{init 26827}# #{b 26828}#)
+ (let ((#{tmp 26829}#
+ (symbol->keyword
+ (syntax->datum #{a 26826}#))))
+ (#{key 26465}#
+ #{b 26828}#
+ #{req 26746}#
+ #{opt 26747}#
+ (cons (list #{tmp 26829}#
+ #{a 26826}#
+ #{init 26827}#)
+ #{rkey 26748}#))))
+ #{tmp 26793}#)
+ (let ((#{tmp 26832}#
+ ($sc-dispatch
+ #{args 26745}#
+ '((any any any) . any))))
+ (if (if #{tmp 26832}#
+ (@apply
+ (lambda (#{a 26836}#
+ #{init 26837}#
+ #{k 26838}#
+ #{b 26839}#)
+ (if (if (symbol? #{a 26836}#)
+ #t
+ (if (if (vector? #{a 26836}#)
+ (if (= (vector-length
+ #{a 26836}#)
+ 4)
+ (eq? (vector-ref
+ #{a 26836}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol?
+ (vector-ref #{a 26836}# 1))
+ #f))
+ (keyword? (syntax->datum #{k 26838}#))
+ #f))
+ #{tmp 26832}#)
+ #f)
+ (@apply
+ (lambda (#{a 26866}#
+ #{init 26867}#
+ #{k 26868}#
+ #{b 26869}#)
+ (#{key 26465}#
+ #{b 26869}#
+ #{req 26746}#
+ #{opt 26747}#
+ (cons (list #{k 26868}#
+ #{a 26866}#
+ #{init 26867}#)
+ #{rkey 26748}#)))
+ #{tmp 26832}#)
+ (let ((#{tmp 26870}#
+ ($sc-dispatch #{args 26745}# '(any))))
+ (if (if #{tmp 26870}#
+ (@apply
+ (lambda (#{aok 26874}#)
+ (eq? (syntax->datum #{aok 26874}#)
+ #:allow-other-keys))
+ #{tmp 26870}#)
+ #f)
+ (@apply
+ (lambda (#{aok 26875}#)
+ (#{check 26467}#
+ #{req 26746}#
+ #{opt 26747}#
+ #f
+ (cons #t (reverse #{rkey 26748}#))))
+ #{tmp 26870}#)
+ (let ((#{tmp 26878}#
+ ($sc-dispatch
+ #{args 26745}#
+ '(any any any))))
+ (if (if #{tmp 26878}#
+ (@apply
+ (lambda (#{aok 26882}#
+ #{a 26883}#
+ #{b 26884}#)
+ (if (eq? (syntax->datum
+ #{aok 26882}#)
+ #:allow-other-keys)
+ (eq? (syntax->datum
+ #{a 26883}#)
+ #:rest)
+ #f))
+ #{tmp 26878}#)
+ #f)
+ (@apply
+ (lambda (#{aok 26885}#
+ #{a 26886}#
+ #{b 26887}#)
+ (#{rest 26466}#
+ #{b 26887}#
+ #{req 26746}#
+ #{opt 26747}#
+ (cons #t
+ (reverse #{rkey 26748}#))))
+ #{tmp 26878}#)
+ (let ((#{tmp 26890}#
+ ($sc-dispatch
+ #{args 26745}#
+ '(any . any))))
+ (if (if #{tmp 26890}#
+ (@apply
+ (lambda (#{aok 26894}#
+ #{r 26895}#)
+ (if (eq? (syntax->datum
+ #{aok 26894}#)
+ #:allow-other-keys)
+ (if (symbol? #{r 26895}#)
+ #t
+ (if (if (vector?
+ #{r 26895}#)
+ (if (=
(vector-length
+ #{r
26895}#)
+ 4)
+ (eq? (vector-ref
+ #{r
26895}#
+ 0)
+
'syntax-object)
+ #f)
+ #f)
+ (symbol?
+ (vector-ref
+ #{r 26895}#
+ 1))
+ #f))
+ #f))
+ #{tmp 26890}#)
+ #f)
+ (@apply
+ (lambda (#{aok 26922}# #{r 26923}#)
+ (#{rest 26466}#
+ #{r 26923}#
+ #{req 26746}#
+ #{opt 26747}#
+ (cons #t
+ (reverse
+ #{rkey 26748}#))))
+ #{tmp 26890}#)
+ (let ((#{tmp 26926}#
+ ($sc-dispatch
+ #{args 26745}#
+ '(any any))))
+ (if (if #{tmp 26926}#
+ (@apply
+ (lambda (#{a 26930}#
+ #{b 26931}#)
+ (eq? (syntax->datum
+ #{a 26930}#)
+ #:rest))
+ #{tmp 26926}#)
+ #f)
+ (@apply
+ (lambda (#{a 26932}#
+ #{b 26933}#)
+ (#{rest 26466}#
+ #{b 26933}#
+ #{req 26746}#
+ #{opt 26747}#
+ (cons #f
+ (reverse
+ #{rkey 26748}#))))
+ #{tmp 26926}#)
+ (let ((#{tmp 26936}#
+ (list #{args 26745}#)))
+ (if (@apply
+ (lambda (#{r 26938}#)
+ (if (symbol?
+ #{r 26938}#)
+ #t
+ (if (if (vector?
+ #{r
26938}#)
+ (if (=
(vector-length
+ #{r
26938}#)
+ 4)
+ (eq?
(vector-ref
+ #{r
26938}#
+ 0)
+
'syntax-object)
+ #f)
+ #f)
+ (symbol?
+ (vector-ref
+ #{r 26938}#
+ 1))
+ #f)))
+ #{tmp 26936}#)
+ (@apply
+ (lambda (#{r 26968}#)
+ (#{rest 26466}#
+ #{r 26968}#
+ #{req 26746}#
+ #{opt 26747}#
+ (cons #f
+ (reverse
+ #{rkey
26748}#))))
+ #{tmp 26936}#)
+ (syntax-violation
+ 'lambda*
+ "invalid keyword argument
list"
+ #{orig-args 26462}#
+ #{args
26745}#)))))))))))))))))))))
+ (#{rest 26466}#
+ (lambda (#{args 26996}#
+ #{req 26997}#
+ #{opt 26998}#
+ #{kw 26999}#)
+ (let ((#{tmp 27001}# (list #{args 26996}#)))
+ (if (@apply
+ (lambda (#{r 27003}#)
+ (if (symbol? #{r 27003}#)
+ #t
+ (if (if (vector? #{r 27003}#)
+ (if (= (vector-length #{r 27003}#) 4)
+ (eq? (vector-ref #{r 27003}# 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref #{r 27003}# 1))
+ #f)))
+ #{tmp 27001}#)
+ (@apply
+ (lambda (#{r 27033}#)
+ (#{check 26467}#
+ #{req 26997}#
+ #{opt 26998}#
+ #{r 27033}#
+ #{kw 26999}#))
+ #{tmp 27001}#)
+ (syntax-violation
+ 'lambda*
+ "invalid rest argument"
+ #{orig-args 26462}#
+ #{args 26996}#)))))
+ (#{check 26467}#
+ (lambda (#{req 27037}#
+ #{opt 27038}#
+ #{rest 27039}#
+ #{kw 27040}#)
+ (if (#{distinct-bound-ids? 4324}#
+ (append
+ #{req 27037}#
+ (map car #{opt 27038}#)
+ (if #{rest 27039}# (list #{rest 27039}#) '())
+ (if (pair? #{kw 27040}#)
+ (map cadr (cdr #{kw 27040}#))
+ '())))
+ (values
+ #{req 27037}#
+ #{opt 27038}#
+ #{rest 27039}#
+ #{kw 27040}#)
+ (syntax-violation
+ 'lambda*
+ "duplicate identifier in argument list"
+ #{orig-args 26462}#)))))
+ (#{req 26463}# #{orig-args 26462}# '()))))
+ (#{expand-lambda-case 4345}#
+ (lambda (#{e 27160}#
+ #{r 27161}#
+ #{w 27162}#
+ #{s 27163}#
+ #{mod 27164}#
+ #{get-formals 27165}#
+ #{clauses 27166}#)
+ (letrec*
+ ((#{parse-req 27167}#
+ (lambda (#{req 27301}#
+ #{opt 27302}#
+ #{rest 27303}#
+ #{kw 27304}#
+ #{body 27305}#)
+ (let ((#{vars 27306}#
+ (map #{gen-var 4347}# #{req 27301}#))
+ (#{labels 27307}#
+ (#{gen-labels 4304}# #{req 27301}#)))
+ (let ((#{r* 27308}#
+ (#{extend-var-env 4296}#
+ #{labels 27307}#
+ #{vars 27306}#
+ #{r 27161}#))
+ (#{w* 27309}#
+ (#{make-binding-wrap 4315}#
+ #{req 27301}#
+ #{labels 27307}#
+ #{w 27162}#)))
+ (#{parse-opt 27168}#
+ (map syntax->datum #{req 27301}#)
+ #{opt 27302}#
+ #{rest 27303}#
+ #{kw 27304}#
+ #{body 27305}#
+ (reverse #{vars 27306}#)
+ #{r* 27308}#
+ #{w* 27309}#
+ '()
+ '())))))
+ (#{parse-opt 27168}#
+ (lambda (#{req 27525}#
+ #{opt 27526}#
+ #{rest 27527}#
+ #{kw 27528}#
+ #{body 27529}#
+ #{vars 27530}#
+ #{r* 27531}#
+ #{w* 27532}#
+ #{out 27533}#
+ #{inits 27534}#)
+ (if (pair? #{opt 27526}#)
+ (let ((#{tmp 27535}# (car #{opt 27526}#)))
+ (let ((#{tmp 27536}#
+ ($sc-dispatch #{tmp 27535}# '(any any))))
+ (if #{tmp 27536}#
+ (@apply
+ (lambda (#{id 27538}# #{i 27539}#)
+ (let ((#{v 27540}#
+ (let ((#{id 27548}#
+ (if (if (vector? #{id 27538}#)
+ (if (= (vector-length
+ #{id 27538}#)
+ 4)
+ (eq? (vector-ref
+ #{id 27538}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref #{id 27538}# 1)
+ #{id 27538}#)))
+ (gensym
+ (string-append
+ (symbol->string #{id 27548}#)
+ " ")))))
+ (let ((#{l 27541}#
+ (#{gen-labels 4304}# (list #{v 27540}#))))
+ (let ((#{r** 27542}#
+ (#{extend-var-env 4296}#
+ #{l 27541}#
+ (list #{v 27540}#)
+ #{r* 27531}#)))
+ (let ((#{w** 27543}#
+ (#{make-binding-wrap 4315}#
+ (list #{id 27538}#)
+ #{l 27541}#
+ #{w* 27532}#)))
+ (#{parse-opt 27168}#
+ #{req 27525}#
+ (cdr #{opt 27526}#)
+ #{rest 27527}#
+ #{kw 27528}#
+ #{body 27529}#
+ (cons #{v 27540}# #{vars 27530}#)
+ #{r** 27542}#
+ #{w** 27543}#
+ (cons (syntax->datum #{id 27538}#)
+ #{out 27533}#)
+ (cons (#{expand 4333}#
+ #{i 27539}#
+ #{r* 27531}#
+ #{w* 27532}#
+ #{mod 27164}#)
+ #{inits 27534}#)))))))
+ #{tmp 27536}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{tmp 27535}#))))
+ (if #{rest 27527}#
+ (let ((#{v 27820}#
+ (let ((#{id 27830}#
+ (if (if (vector? #{rest 27527}#)
+ (if (= (vector-length #{rest 27527}#)
+ 4)
+ (eq? (vector-ref #{rest 27527}# 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref #{rest 27527}# 1)
+ #{rest 27527}#)))
+ (gensym
+ (string-append
+ (symbol->string #{id 27830}#)
+ " ")))))
+ (let ((#{l 27821}#
+ (#{gen-labels 4304}# (list #{v 27820}#))))
+ (let ((#{r* 27822}#
+ (#{extend-var-env 4296}#
+ #{l 27821}#
+ (list #{v 27820}#)
+ #{r* 27531}#)))
+ (let ((#{w* 27823}#
+ (#{make-binding-wrap 4315}#
+ (list #{rest 27527}#)
+ #{l 27821}#
+ #{w* 27532}#)))
+ (#{parse-kw 27169}#
+ #{req 27525}#
+ (if (pair? #{out 27533}#)
+ (reverse #{out 27533}#)
+ #f)
+ (syntax->datum #{rest 27527}#)
+ (if (pair? #{kw 27528}#)
+ (cdr #{kw 27528}#)
+ #{kw 27528}#)
+ #{body 27529}#
+ (cons #{v 27820}# #{vars 27530}#)
+ #{r* 27822}#
+ #{w* 27823}#
+ (if (pair? #{kw 27528}#) (car #{kw 27528}#) #f)
+ '()
+ #{inits 27534}#)))))
+ (#{parse-kw 27169}#
+ #{req 27525}#
+ (if (pair? #{out 27533}#)
+ (reverse #{out 27533}#)
+ #f)
+ #f
+ (if (pair? #{kw 27528}#)
+ (cdr #{kw 27528}#)
+ #{kw 27528}#)
+ #{body 27529}#
+ #{vars 27530}#
+ #{r* 27531}#
+ #{w* 27532}#
+ (if (pair? #{kw 27528}#) (car #{kw 27528}#) #f)
+ '()
+ #{inits 27534}#)))))
+ (#{parse-kw 27169}#
+ (lambda (#{req 28030}#
+ #{opt 28031}#
+ #{rest 28032}#
+ #{kw 28033}#
+ #{body 28034}#
+ #{vars 28035}#
+ #{r* 28036}#
+ #{w* 28037}#
+ #{aok 28038}#
+ #{out 28039}#
+ #{inits 28040}#)
+ (if (pair? #{kw 28033}#)
+ (let ((#{tmp 28041}# (car #{kw 28033}#)))
+ (let ((#{tmp 28042}#
+ ($sc-dispatch #{tmp 28041}# '(any any any))))
+ (if #{tmp 28042}#
+ (@apply
+ (lambda (#{k 28044}# #{id 28045}# #{i 28046}#)
+ (let ((#{v 28047}#
+ (let ((#{id 28055}#
+ (if (if (vector? #{id 28045}#)
+ (if (= (vector-length
+ #{id 28045}#)
+ 4)
+ (eq? (vector-ref
+ #{id 28045}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref #{id 28045}# 1)
+ #{id 28045}#)))
+ (gensym
+ (string-append
+ (symbol->string #{id 28055}#)
+ " ")))))
+ (let ((#{l 28048}#
+ (#{gen-labels 4304}# (list #{v 28047}#))))
+ (let ((#{r** 28049}#
+ (#{extend-var-env 4296}#
+ #{l 28048}#
+ (list #{v 28047}#)
+ #{r* 28036}#)))
+ (let ((#{w** 28050}#
+ (#{make-binding-wrap 4315}#
+ (list #{id 28045}#)
+ #{l 28048}#
+ #{w* 28037}#)))
+ (#{parse-kw 27169}#
+ #{req 28030}#
+ #{opt 28031}#
+ #{rest 28032}#
+ (cdr #{kw 28033}#)
+ #{body 28034}#
+ (cons #{v 28047}# #{vars 28035}#)
+ #{r** 28049}#
+ #{w** 28050}#
+ #{aok 28038}#
+ (cons (list (syntax->datum #{k 28044}#)
+ (syntax->datum #{id 28045}#)
+ #{v 28047}#)
+ #{out 28039}#)
+ (cons (#{expand 4333}#
+ #{i 28046}#
+ #{r* 28036}#
+ #{w* 28037}#
+ #{mod 27164}#)
+ #{inits 28040}#)))))))
+ #{tmp 28042}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{tmp 28041}#))))
+ (#{parse-body 27170}#
+ #{req 28030}#
+ #{opt 28031}#
+ #{rest 28032}#
+ (if (if #{aok 28038}#
+ #{aok 28038}#
+ (pair? #{out 28039}#))
+ (cons #{aok 28038}# (reverse #{out 28039}#))
+ #f)
+ #{body 28034}#
+ (reverse #{vars 28035}#)
+ #{r* 28036}#
+ #{w* 28037}#
+ (reverse #{inits 28040}#)
+ '()))))
+ (#{parse-body 27170}#
+ (lambda (#{req 28336}#
+ #{opt 28337}#
+ #{rest 28338}#
+ #{kw 28339}#
+ #{body 28340}#
+ #{vars 28341}#
+ #{r* 28342}#
+ #{w* 28343}#
+ #{inits 28344}#
+ #{meta 28345}#)
+ (let ((#{tmp 28347}#
+ ($sc-dispatch
+ #{body 28340}#
+ '(any any . each-any))))
+ (if (if #{tmp 28347}#
+ (@apply
+ (lambda (#{docstring 28351}# #{e1 28352}# #{e2 28353}#)
+ (string? (syntax->datum #{docstring 28351}#)))
+ #{tmp 28347}#)
+ #f)
+ (@apply
+ (lambda (#{docstring 28354}# #{e1 28355}# #{e2 28356}#)
+ (#{parse-body 27170}#
+ #{req 28336}#
+ #{opt 28337}#
+ #{rest 28338}#
+ #{kw 28339}#
+ (cons #{e1 28355}# #{e2 28356}#)
+ #{vars 28341}#
+ #{r* 28342}#
+ #{w* 28343}#
+ #{inits 28344}#
+ (append
+ #{meta 28345}#
+ (list (cons 'documentation
+ (syntax->datum #{docstring 28354}#))))))
+ #{tmp 28347}#)
+ (let ((#{tmp 28357}#
+ ($sc-dispatch
+ #{body 28340}#
+ '(#(vector #(each (any . any))) any . each-any))))
+ (if #{tmp 28357}#
+ (@apply
+ (lambda (#{k 28361}#
+ #{v 28362}#
+ #{e1 28363}#
+ #{e2 28364}#)
+ (#{parse-body 27170}#
+ #{req 28336}#
+ #{opt 28337}#
+ #{rest 28338}#
+ #{kw 28339}#
+ (cons #{e1 28363}# #{e2 28364}#)
+ #{vars 28341}#
+ #{r* 28342}#
+ #{w* 28343}#
+ #{inits 28344}#
+ (append
+ #{meta 28345}#
+ (syntax->datum
+ (map cons #{k 28361}# #{v 28362}#)))))
+ #{tmp 28357}#)
+ (let ((#{tmp 28365}#
+ ($sc-dispatch #{body 28340}# '(any . each-any))))
+ (if #{tmp 28365}#
+ (@apply
+ (lambda (#{e1 28369}# #{e2 28370}#)
+ (values
+ #{meta 28345}#
+ #{req 28336}#
+ #{opt 28337}#
+ #{rest 28338}#
+ #{kw 28339}#
+ #{inits 28344}#
+ #{vars 28341}#
+ (#{expand-body 4337}#
+ (cons #{e1 28369}# #{e2 28370}#)
+ (#{wrap 4326}#
+ (begin
+ (if (if (pair? #{e 27160}#)
+ #{s 27163}#
+ #f)
+ (set-source-properties!
+ #{e 27160}#
+ #{s 27163}#))
+ #{e 27160}#)
+ #{w 27162}#
+ #{mod 27164}#)
+ #{r* 28342}#
+ #{w* 28343}#
+ #{mod 27164}#)))
+ #{tmp 28365}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{body 28340}#))))))))))
+ (let ((#{tmp 27172}#
+ ($sc-dispatch #{clauses 27166}# '())))
+ (if #{tmp 27172}#
+ (@apply
+ (lambda () (values '() #f))
+ #{tmp 27172}#)
+ (let ((#{tmp 27177}#
+ ($sc-dispatch
+ #{clauses 27166}#
+ '((any any . each-any)
+ .
+ #(each (any any . each-any))))))
+ (if #{tmp 27177}#
+ (@apply
+ (lambda (#{args 27181}#
+ #{e1 27182}#
+ #{e2 27183}#
+ #{args* 27184}#
+ #{e1* 27185}#
+ #{e2* 27186}#)
+ (call-with-values
+ (lambda ()
+ (#{get-formals 27165}# #{args 27181}#))
+ (lambda (#{req 27187}#
+ #{opt 27188}#
+ #{rest 27189}#
+ #{kw 27190}#)
+ (call-with-values
+ (lambda ()
+ (#{parse-req 27167}#
+ #{req 27187}#
+ #{opt 27188}#
+ #{rest 27189}#
+ #{kw 27190}#
+ (cons #{e1 27182}# #{e2 27183}#)))
+ (lambda (#{meta 27257}#
+ #{req 27258}#
+ #{opt 27259}#
+ #{rest 27260}#
+ #{kw 27261}#
+ #{inits 27262}#
+ #{vars 27263}#
+ #{body 27264}#)
+ (call-with-values
+ (lambda ()
+ (#{expand-lambda-case 4345}#
+ #{e 27160}#
+ #{r 27161}#
+ #{w 27162}#
+ #{s 27163}#
+ #{mod 27164}#
+ #{get-formals 27165}#
+ (map (lambda (#{tmp 2763 27265}#
+ #{tmp 2762 27266}#
+ #{tmp 2761 27267}#)
+ (cons #{tmp 2761 27267}#
+ (cons #{tmp 2762 27266}#
+ #{tmp 2763 27265}#)))
+ #{e2* 27186}#
+ #{e1* 27185}#
+ #{args* 27184}#)))
+ (lambda (#{meta* 27268}# #{else* 27269}#)
+ (values
+ (append #{meta 27257}# #{meta* 27268}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 14)
+ #{s 27163}#
+ #{req 27258}#
+ #{opt 27259}#
+ #{rest 27260}#
+ #{kw 27261}#
+ #{inits 27262}#
+ #{vars 27263}#
+ #{body 27264}#
+ #{else* 27269}#)))))))))
+ #{tmp 27177}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{clauses 27166}#))))))))
+ (#{strip 4346}#
+ (lambda (#{x 28407}# #{w 28408}#)
+ (if (memq 'top (car #{w 28408}#))
+ #{x 28407}#
+ (letrec*
+ ((#{f 28409}#
+ (lambda (#{x 28412}#)
+ (if (if (vector? #{x 28412}#)
+ (if (= (vector-length #{x 28412}#) 4)
+ (eq? (vector-ref #{x 28412}# 0) 'syntax-object)
+ #f)
+ #f)
+ (#{strip 4346}#
+ (vector-ref #{x 28412}# 1)
+ (vector-ref #{x 28412}# 2))
+ (if (pair? #{x 28412}#)
+ (let ((#{a 28431}# (#{f 28409}# (car #{x 28412}#)))
+ (#{d 28432}# (#{f 28409}# (cdr #{x 28412}#))))
+ (if (if (eq? #{a 28431}# (car #{x 28412}#))
+ (eq? #{d 28432}# (cdr #{x 28412}#))
+ #f)
+ #{x 28412}#
+ (cons #{a 28431}# #{d 28432}#)))
+ (if (vector? #{x 28412}#)
+ (let ((#{old 28435}# (vector->list #{x 28412}#)))
+ (let ((#{new 28436}# (map #{f 28409}# #{old 28435}#)))
+ (letrec*
+ ((#{lp 28437}#
+ (lambda (#{l1 28513}# #{l2 28514}#)
+ (if (null? #{l1 28513}#)
+ #{x 28412}#
+ (if (eq? (car #{l1 28513}#)
+ (car #{l2 28514}#))
+ (#{lp 28437}#
+ (cdr #{l1 28513}#)
+ (cdr #{l2 28514}#))
+ (list->vector #{new 28436}#))))))
+ (#{lp 28437}# #{old 28435}# #{new 28436}#))))
+ #{x 28412}#))))))
+ (#{f 28409}# #{x 28407}#)))))
+ (#{gen-var 4347}#
+ (lambda (#{id 27313}#)
+ (let ((#{id 27314}#
+ (if (if (vector? #{id 27313}#)
+ (if (= (vector-length #{id 27313}#) 4)
+ (eq? (vector-ref #{id 27313}# 0) 'syntax-object)
+ #f)
+ #f)
+ (vector-ref #{id 27313}# 1)
+ #{id 27313}#)))
+ (gensym
+ (string-append (symbol->string #{id 27314}#) " "))))))
+ (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 4299}#
+ 'core
+ 'fluid-let-syntax
+ (lambda (#{e 4468}#
+ #{r 4469}#
+ #{w 4470}#
+ #{s 4471}#
+ #{mod 4472}#)
+ (let ((#{tmp 4474}#
+ ($sc-dispatch
+ #{e 4468}#
+ '(_ #(each (any any)) any . each-any))))
+ (if (if #{tmp 4474}#
+ (@apply
+ (lambda (#{var 4478}#
+ #{val 4479}#
+ #{e1 4480}#
+ #{e2 4481}#)
+ (#{valid-bound-ids? 4323}# #{var 4478}#))
+ #{tmp 4474}#)
+ #f)
+ (@apply
+ (lambda (#{var 4559}#
+ #{val 4560}#
+ #{e1 4561}#
+ #{e2 4562}#)
+ (let ((#{names 4563}#
+ (map (lambda (#{x 4753}#)
+ (#{id-var-name 4320}# #{x 4753}# #{w 4470}#))
+ #{var 4559}#)))
+ (begin
+ (for-each
+ (lambda (#{id 4564}# #{n 4565}#)
+ (let ((#{atom-key 4566}#
+ (car (let ((#{t 4690}#
+ (assq #{n 4565}# #{r 4469}#)))
+ (if #{t 4690}#
+ (cdr #{t 4690}#)
+ (if (symbol? #{n 4565}#)
+ (let ((#{t 4695}#
+ (begin
+ (if (if (not #{mod 4472}#)
+ (current-module)
+ #f)
+ (warn "module system is
booted, we should have a module"
+ #{n 4565}#))
+ (let ((#{v 4732}#
+ (module-variable
+ (if #{mod 4472}#
+
(resolve-module
+ (cdr #{mod
4472}#))
+
(current-module))
+ #{n 4565}#)))
+ (if #{v 4732}#
+ (if (variable-bound?
+ #{v 4732}#)
+ (let ((#{val 4741}#
+
(variable-ref
+ #{v
4732}#)))
+ (if (macro?
+ #{val
4741}#)
+ (if (macro-type
+ #{val
4741}#)
+ (cons
(macro-type
+ #{val
4741}#)
+
(macro-binding
+ #{val
4741}#))
+ #f)
+ #f))
+ #f)
+ #f)))))
+ (if #{t 4695}#
+ #{t 4695}#
+ '(global)))
+ '(displaced-lexical)))))))
+ (if (let ((#{t 4599}# #{atom-key 4566}#))
+ (eqv? #{t 4599}# 'displaced-lexical))
+ (syntax-violation
+ 'fluid-let-syntax
+ "identifier out of context"
+ #{e 4468}#
+ (#{wrap 4326}#
+ (begin
+ (if (if (pair? #{id 4564}#) #{s 4471}# #f)
+ (set-source-properties!
+ #{id 4564}#
+ #{s 4471}#))
+ #{id 4564}#)
+ #{w 4470}#
+ #{mod 4472}#)))))
+ #{var 4559}#
+ #{names 4563}#)
+ (#{expand-body 4337}#
+ (cons #{e1 4561}# #{e2 4562}#)
+ (#{wrap 4326}#
+ (begin
+ (if (if (pair? #{e 4468}#) #{s 4471}# #f)
+ (set-source-properties! #{e 4468}# #{s 4471}#))
+ #{e 4468}#)
+ #{w 4470}#
+ #{mod 4472}#)
+ (#{extend-env 4295}#
+ #{names 4563}#
+ (let ((#{trans-r 4839}#
+ (#{macros-only-env 4297}# #{r 4469}#)))
+ (map (lambda (#{x 4840}#)
+ (cons 'macro
+ (#{eval-local-transformer 4339}#
+ (#{expand 4333}#
+ #{x 4840}#
+ #{trans-r 4839}#
+ #{w 4470}#
+ #{mod 4472}#)
+ #{mod 4472}#)))
+ #{val 4560}#))
+ #{r 4469}#)
+ #{w 4470}#
+ #{mod 4472}#))))
+ #{tmp 4474}#)
+ (syntax-violation
+ 'fluid-let-syntax
+ "bad syntax"
+ (#{wrap 4326}#
+ (begin
+ (if (if (pair? #{e 4468}#) #{s 4471}# #f)
+ (set-source-properties! #{e 4468}# #{s 4471}#))
+ #{e 4468}#)
+ #{w 4470}#
+ #{mod 4472}#))))))
+ (module-define!
+ (current-module)
+ 'quote
+ (make-syntax-transformer
+ 'quote
+ 'core
+ (lambda (#{e 5054}#
+ #{r 5055}#
+ #{w 5056}#
+ #{s 5057}#
+ #{mod 5058}#)
+ (let ((#{tmp 5060}# ($sc-dispatch #{e 5054}# '(_ any))))
+ (if #{tmp 5060}#
+ (@apply
+ (lambda (#{e 5063}#)
+ (let ((#{exp 5067}#
+ (#{strip 4346}# #{e 5063}# #{w 5056}#)))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 1)
+ #{s 5057}#
+ #{exp 5067}#)))
+ #{tmp 5060}#)
+ (syntax-violation
+ 'quote
+ "bad syntax"
+ (#{wrap 4326}#
+ (begin
+ (if (if (pair? #{e 5054}#) #{s 5057}# #f)
+ (set-source-properties! #{e 5054}# #{s 5057}#))
+ #{e 5054}#)
+ #{w 5056}#
+ #{mod 5058}#)))))))
+ (#{global-extend 4299}#
+ 'core
+ 'syntax
+ (letrec*
+ ((#{gen-syntax 5294}#
+ (lambda (#{src 5396}#
+ #{e 5397}#
+ #{r 5398}#
+ #{maps 5399}#
+ #{ellipsis? 5400}#
+ #{mod 5401}#)
+ (if (if (symbol? #{e 5397}#)
+ #t
+ (if (if (vector? #{e 5397}#)
+ (if (= (vector-length #{e 5397}#) 4)
+ (eq? (vector-ref #{e 5397}# 0) 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref #{e 5397}# 1))
+ #f))
+ (let ((#{label 5428}#
+ (#{id-var-name 4320}# #{e 5397}# '(()))))
+ (let ((#{b 5429}#
+ (let ((#{t 5566}# (assq #{label 5428}# #{r 5398}#)))
+ (if #{t 5566}#
+ (cdr #{t 5566}#)
+ (if (symbol? #{label 5428}#)
+ (let ((#{t 5571}#
+ (begin
+ (if (if (not #{mod 5401}#)
+ (current-module)
+ #f)
+ (warn "module system is booted, we
should have a module"
+ #{label 5428}#))
+ (let ((#{v 5608}#
+ (module-variable
+ (if #{mod 5401}#
+ (resolve-module
+ (cdr #{mod 5401}#))
+ (current-module))
+ #{label 5428}#)))
+ (if #{v 5608}#
+ (if (variable-bound? #{v 5608}#)
+ (let ((#{val 5617}#
+ (variable-ref
+ #{v 5608}#)))
+ (if (macro? #{val 5617}#)
+ (if (macro-type
+ #{val 5617}#)
+ (cons (macro-type
+ #{val 5617}#)
+ (macro-binding
+ #{val 5617}#))
+ #f)
+ #f))
+ #f)
+ #f)))))
+ (if #{t 5571}# #{t 5571}# '(global)))
+ '(displaced-lexical))))))
+ (if (eq? (car #{b 5429}#) 'syntax)
+ (call-with-values
+ (lambda ()
+ (let ((#{var.lev 5462}# (cdr #{b 5429}#)))
+ (#{gen-ref 5295}#
+ #{src 5396}#
+ (car #{var.lev 5462}#)
+ (cdr #{var.lev 5462}#)
+ #{maps 5399}#)))
+ (lambda (#{var 5558}# #{maps 5559}#)
+ (values (list 'ref #{var 5558}#) #{maps 5559}#)))
+ (if (#{ellipsis? 5400}# #{e 5397}#)
+ (syntax-violation
+ 'syntax
+ "misplaced ellipsis"
+ #{src 5396}#)
+ (values (list 'quote #{e 5397}#) #{maps 5399}#)))))
+ (let ((#{tmp 5629}#
+ ($sc-dispatch #{e 5397}# '(any any))))
+ (if (if #{tmp 5629}#
+ (@apply
+ (lambda (#{dots 5633}# #{e 5634}#)
+ (#{ellipsis? 5400}# #{dots 5633}#))
+ #{tmp 5629}#)
+ #f)
+ (@apply
+ (lambda (#{dots 5635}# #{e 5636}#)
+ (#{gen-syntax 5294}#
+ #{src 5396}#
+ #{e 5636}#
+ #{r 5398}#
+ #{maps 5399}#
+ (lambda (#{x 5637}#) #f)
+ #{mod 5401}#))
+ #{tmp 5629}#)
+ (let ((#{tmp 5638}#
+ ($sc-dispatch #{e 5397}# '(any any . any))))
+ (if (if #{tmp 5638}#
+ (@apply
+ (lambda (#{x 5642}# #{dots 5643}# #{y 5644}#)
+ (#{ellipsis? 5400}# #{dots 5643}#))
+ #{tmp 5638}#)
+ #f)
+ (@apply
+ (lambda (#{x 5645}# #{dots 5646}# #{y 5647}#)
+ (letrec*
+ ((#{f 5648}#
+ (lambda (#{y 5656}# #{k 5657}#)
+ (let ((#{tmp 5659}#
+ ($sc-dispatch
+ #{y 5656}#
+ '(any . any))))
+ (if (if #{tmp 5659}#
+ (@apply
+ (lambda (#{dots 5663}# #{y 5664}#)
+ (#{ellipsis? 5400}#
+ #{dots 5663}#))
+ #{tmp 5659}#)
+ #f)
+ (@apply
+ (lambda (#{dots 5665}# #{y 5666}#)
+ (#{f 5648}#
+ #{y 5666}#
+ (lambda (#{maps 5667}#)
+ (call-with-values
+ (lambda ()
+ (#{k 5657}#
+ (cons '() #{maps 5667}#)))
+ (lambda (#{x 5668}#
+ #{maps 5669}#)
+ (if (null? (car #{maps
5669}#))
+ (syntax-violation
+ 'syntax
+ "extra ellipsis"
+ #{src 5396}#)
+ (values
+ (let ((#{map-env 5673}#
+ (car #{maps
5669}#)))
+ (list 'apply
+ '(primitive
+ append)
+ (#{gen-map 5297}#
+ #{x 5668}#
+ #{map-env
5673}#)))
+ (cdr #{maps
5669}#))))))))
+ #{tmp 5659}#)
+ (call-with-values
+ (lambda ()
+ (#{gen-syntax 5294}#
+ #{src 5396}#
+ #{y 5656}#
+ #{r 5398}#
+ #{maps 5399}#
+ #{ellipsis? 5400}#
+ #{mod 5401}#))
+ (lambda (#{y 5676}# #{maps 5677}#)
+ (call-with-values
+ (lambda ()
+ (#{k 5657}# #{maps 5677}#))
+ (lambda (#{x 5678}# #{maps 5679}#)
+ (values
+ (if (equal? #{y 5676}# ''())
+ #{x 5678}#
+ (list 'append
+ #{x 5678}#
+ #{y 5676}#))
+ #{maps 5679}#))))))))))
+ (#{f 5648}#
+ #{y 5647}#
+ (lambda (#{maps 5651}#)
+ (call-with-values
+ (lambda ()
+ (#{gen-syntax 5294}#
+ #{src 5396}#
+ #{x 5645}#
+ #{r 5398}#
+ (cons '() #{maps 5651}#)
+ #{ellipsis? 5400}#
+ #{mod 5401}#))
+ (lambda (#{x 5652}# #{maps 5653}#)
+ (if (null? (car #{maps 5653}#))
+ (syntax-violation
+ 'syntax
+ "extra ellipsis"
+ #{src 5396}#)
+ (values
+ (#{gen-map 5297}#
+ #{x 5652}#
+ (car #{maps 5653}#))
+ (cdr #{maps 5653}#)))))))))
+ #{tmp 5638}#)
+ (let ((#{tmp 5695}#
+ ($sc-dispatch #{e 5397}# '(any . any))))
+ (if #{tmp 5695}#
+ (@apply
+ (lambda (#{x 5699}# #{y 5700}#)
+ (call-with-values
+ (lambda ()
+ (#{gen-syntax 5294}#
+ #{src 5396}#
+ #{x 5699}#
+ #{r 5398}#
+ #{maps 5399}#
+ #{ellipsis? 5400}#
+ #{mod 5401}#))
+ (lambda (#{x 5701}# #{maps 5702}#)
+ (call-with-values
+ (lambda ()
+ (#{gen-syntax 5294}#
+ #{src 5396}#
+ #{y 5700}#
+ #{r 5398}#
+ #{maps 5702}#
+ #{ellipsis? 5400}#
+ #{mod 5401}#))
+ (lambda (#{y 5703}# #{maps 5704}#)
+ (values
+ (let ((#{atom-key 5709}#
+ (car #{y 5703}#)))
+ (if (eqv? #{atom-key 5709}# 'quote)
+ (if (eq? (car #{x 5701}#) 'quote)
+ (list 'quote
+ (cons (car (cdr #{x
5701}#))
+ (car (cdr #{y
5703}#))))
+ (if (eq? (car (cdr #{y 5703}#))
+ '())
+ (list 'list #{x 5701}#)
+ (list 'cons
+ #{x 5701}#
+ #{y 5703}#)))
+ (if (eqv? #{atom-key 5709}# 'list)
+ (cons 'list
+ (cons #{x 5701}#
+ (cdr #{y 5703}#)))
+ (list 'cons
+ #{x 5701}#
+ #{y 5703}#))))
+ #{maps 5704}#))))))
+ #{tmp 5695}#)
+ (let ((#{tmp 5738}#
+ ($sc-dispatch
+ #{e 5397}#
+ '#(vector (any . each-any)))))
+ (if #{tmp 5738}#
+ (@apply
+ (lambda (#{e1 5742}# #{e2 5743}#)
+ (call-with-values
+ (lambda ()
+ (#{gen-syntax 5294}#
+ #{src 5396}#
+ (cons #{e1 5742}# #{e2 5743}#)
+ #{r 5398}#
+ #{maps 5399}#
+ #{ellipsis? 5400}#
+ #{mod 5401}#))
+ (lambda (#{e 5744}# #{maps 5745}#)
+ (values
+ (if (eq? (car #{e 5744}#) 'list)
+ (cons 'vector (cdr #{e 5744}#))
+ (if (eq? (car #{e 5744}#) 'quote)
+ (list 'quote
+ (list->vector
+ (car (cdr #{e 5744}#))))
+ (list 'list->vector #{e 5744}#)))
+ #{maps 5745}#))))
+ #{tmp 5738}#)
+ (values
+ (list 'quote #{e 5397}#)
+ #{maps 5399}#))))))))))))
+ (#{gen-ref 5295}#
+ (lambda (#{src 5772}#
+ #{var 5773}#
+ #{level 5774}#
+ #{maps 5775}#)
+ (if (= #{level 5774}# 0)
+ (values #{var 5773}# #{maps 5775}#)
+ (if (null? #{maps 5775}#)
+ (syntax-violation
+ 'syntax
+ "missing ellipsis"
+ #{src 5772}#)
+ (call-with-values
+ (lambda ()
+ (#{gen-ref 5295}#
+ #{src 5772}#
+ #{var 5773}#
+ (#{1-}# #{level 5774}#)
+ (cdr #{maps 5775}#)))
+ (lambda (#{outer-var 5776}# #{outer-maps 5777}#)
+ (let ((#{b 5778}#
+ (assq #{outer-var 5776}# (car #{maps 5775}#))))
+ (if #{b 5778}#
+ (values (cdr #{b 5778}#) #{maps 5775}#)
+ (let ((#{inner-var 5780}#
+ (gensym
+ (string-append (symbol->string 'tmp) " "))))
+ (values
+ #{inner-var 5780}#
+ (cons (cons (cons #{outer-var 5776}#
+ #{inner-var 5780}#)
+ (car #{maps 5775}#))
+ #{outer-maps 5777}#)))))))))))
+ (#{gen-map 5297}#
+ (lambda (#{e 5794}# #{map-env 5795}#)
+ (let ((#{formals 5796}# (map cdr #{map-env 5795}#))
+ (#{actuals 5797}#
+ (map (lambda (#{x 5799}#)
+ (list 'ref (car #{x 5799}#)))
+ #{map-env 5795}#)))
+ (if (eq? (car #{e 5794}#) 'ref)
+ (car #{actuals 5797}#)
+ (if (and-map
+ (lambda (#{x 5800}#)
+ (if (eq? (car #{x 5800}#) 'ref)
+ (memq (car (cdr #{x 5800}#)) #{formals 5796}#)
+ #f))
+ (cdr #{e 5794}#))
+ (cons 'map
+ (cons (list 'primitive (car #{e 5794}#))
+ (map (let ((#{r 5802}#
+ (map cons
+ #{formals 5796}#
+ #{actuals 5797}#)))
+ (lambda (#{x 5803}#)
+ (cdr (assq (car (cdr #{x 5803}#))
+ #{r 5802}#))))
+ (cdr #{e 5794}#))))
+ (cons 'map
+ (cons (list 'lambda #{formals 5796}# #{e 5794}#)
+ #{actuals 5797}#)))))))
+ (#{regen 5301}#
+ (lambda (#{x 5805}#)
+ (let ((#{atom-key 5806}# (car #{x 5805}#)))
+ (if (eqv? #{atom-key 5806}# 'ref)
+ (let ((#{name 5816}# (car (cdr #{x 5805}#)))
+ (#{var 5817}# (car (cdr #{x 5805}#))))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 3)
+ #f
+ #{name 5816}#
+ #{var 5817}#))
+ (if (eqv? #{atom-key 5806}# 'primitive)
+ (let ((#{name 5829}# (car (cdr #{x 5805}#))))
+ (if (equal? (module-name (current-module)) '(guile))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 7)
+ #f
+ #{name 5829}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 5)
+ #f
+ '(guile)
+ #{name 5829}#
+ #f)))
+ (if (eqv? #{atom-key 5806}# 'quote)
+ (let ((#{exp 5847}# (car (cdr #{x 5805}#))))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 1)
+ #f
+ #{exp 5847}#))
+ (if (eqv? #{atom-key 5806}# 'lambda)
+ (if (list? (car (cdr #{x 5805}#)))
+ (let ((#{req 5858}# (car (cdr #{x 5805}#)))
+ (#{vars 5860}# (car (cdr #{x 5805}#)))
+ (#{exp 5862}#
+ (#{regen 5301}#
+ (car (cdr (cdr #{x 5805}#))))))
+ (let ((#{body 5867}#
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 14)
+ #f
+ #{req 5858}#
+ #f
+ #f
+ #f
+ '()
+ #{vars 5860}#
+ #{exp 5862}#
+ #f)))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 13)
+ #f
+ '()
+ #{body 5867}#)))
+ (error "how did we get here" #{x 5805}#))
+ (let ((#{fun-exp 5883}#
+ (let ((#{name 5892}# (car #{x 5805}#)))
+ (if (equal?
+ (module-name (current-module))
+ '(guile))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 7)
+ #f
+ #{name 5892}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 5)
+ #f
+ '(guile)
+ #{name 5892}#
+ #f))))
+ (#{arg-exps 5884}#
+ (map #{regen 5301}# (cdr #{x 5805}#))))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 11)
+ #f
+ #{fun-exp 5883}#
+ #{arg-exps 5884}#))))))))))
+ (lambda (#{e 5302}#
+ #{r 5303}#
+ #{w 5304}#
+ #{s 5305}#
+ #{mod 5306}#)
+ (let ((#{e 5307}#
+ (#{wrap 4326}#
+ (begin
+ (if (if (pair? #{e 5302}#) #{s 5305}# #f)
+ (set-source-properties! #{e 5302}# #{s 5305}#))
+ #{e 5302}#)
+ #{w 5304}#
+ #{mod 5306}#)))
+ (let ((#{tmp 5309}# ($sc-dispatch #{e 5307}# '(_ any))))
+ (if #{tmp 5309}#
+ (@apply
+ (lambda (#{x 5334}#)
+ (call-with-values
+ (lambda ()
+ (#{gen-syntax 5294}#
+ #{e 5307}#
+ #{x 5334}#
+ #{r 5303}#
+ '()
+ #{ellipsis? 4341}#
+ #{mod 5306}#))
+ (lambda (#{e 5388}# #{maps 5389}#)
+ (#{regen 5301}# #{e 5388}#))))
+ #{tmp 5309}#)
+ (syntax-violation
+ 'syntax
+ "bad `syntax' form"
+ #{e 5307}#)))))))
+ (#{global-extend 4299}#
+ 'core
+ 'lambda
+ (lambda (#{e 6087}#
+ #{r 6088}#
+ #{w 6089}#
+ #{s 6090}#
+ #{mod 6091}#)
+ (let ((#{tmp 6093}#
+ ($sc-dispatch #{e 6087}# '(_ any any . each-any))))
+ (if #{tmp 6093}#
+ (@apply
+ (lambda (#{args 6097}# #{e1 6098}# #{e2 6099}#)
+ (call-with-values
+ (lambda ()
+ (#{lambda-formals 4342}# #{args 6097}#))
+ (lambda (#{req 6102}#
+ #{opt 6103}#
+ #{rest 6104}#
+ #{kw 6105}#)
+ (letrec*
+ ((#{lp 6106}#
+ (lambda (#{body 6109}# #{meta 6110}#)
+ (let ((#{tmp 6112}#
+ ($sc-dispatch
+ #{body 6109}#
+ '(any any . each-any))))
+ (if (if #{tmp 6112}#
+ (@apply
+ (lambda (#{docstring 6116}#
+ #{e1 6117}#
+ #{e2 6118}#)
+ (string?
+ (syntax->datum #{docstring 6116}#)))
+ #{tmp 6112}#)
+ #f)
+ (@apply
+ (lambda (#{docstring 6119}#
+ #{e1 6120}#
+ #{e2 6121}#)
+ (#{lp 6106}#
+ (cons #{e1 6120}# #{e2 6121}#)
+ (append
+ #{meta 6110}#
+ (list (cons 'documentation
+ (syntax->datum
+ #{docstring 6119}#))))))
+ #{tmp 6112}#)
+ (let ((#{tmp 6122}#
+ ($sc-dispatch
+ #{body 6109}#
+ '(#(vector #(each (any . any)))
+ any
+ .
+ each-any))))
+ (if #{tmp 6122}#
+ (@apply
+ (lambda (#{k 6126}#
+ #{v 6127}#
+ #{e1 6128}#
+ #{e2 6129}#)
+ (#{lp 6106}#
+ (cons #{e1 6128}# #{e2 6129}#)
+ (append
+ #{meta 6110}#
+ (syntax->datum
+ (map cons
+ #{k 6126}#
+ #{v 6127}#)))))
+ #{tmp 6122}#)
+ (#{expand-simple-lambda 4343}#
+ #{e 6087}#
+ #{r 6088}#
+ #{w 6089}#
+ #{s 6090}#
+ #{mod 6091}#
+ #{req 6102}#
+ #{rest 6104}#
+ #{meta 6110}#
+ #{body 6109}#))))))))
+ (#{lp 6106}# (cons #{e1 6098}# #{e2 6099}#) '())))))
+ #{tmp 6093}#)
+ (syntax-violation
+ 'lambda
+ "bad lambda"
+ #{e 6087}#)))))
+ (#{global-extend 4299}#
+ 'core
+ 'lambda*
+ (lambda (#{e 6421}#
+ #{r 6422}#
+ #{w 6423}#
+ #{s 6424}#
+ #{mod 6425}#)
+ (let ((#{tmp 6427}#
+ ($sc-dispatch #{e 6421}# '(_ any any . each-any))))
+ (if #{tmp 6427}#
+ (@apply
+ (lambda (#{args 6431}# #{e1 6432}# #{e2 6433}#)
+ (call-with-values
+ (lambda ()
+ (#{expand-lambda-case 4345}#
+ #{e 6421}#
+ #{r 6422}#
+ #{w 6423}#
+ #{s 6424}#
+ #{mod 6425}#
+ #{lambda*-formals 4344}#
+ (list (cons #{args 6431}#
+ (cons #{e1 6432}# #{e2 6433}#)))))
+ (lambda (#{meta 6436}# #{lcase 6437}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 13)
+ #{s 6424}#
+ #{meta 6436}#
+ #{lcase 6437}#))))
+ #{tmp 6427}#)
+ (syntax-violation
+ 'lambda
+ "bad lambda*"
+ #{e 6421}#)))))
+ (#{global-extend 4299}#
+ 'core
+ 'case-lambda
+ (lambda (#{e 6611}#
+ #{r 6612}#
+ #{w 6613}#
+ #{s 6614}#
+ #{mod 6615}#)
+ (let ((#{tmp 6617}#
+ ($sc-dispatch
+ #{e 6611}#
+ '(_ (any any . each-any)
+ .
+ #(each (any any . each-any))))))
+ (if #{tmp 6617}#
+ (@apply
+ (lambda (#{args 6621}#
+ #{e1 6622}#
+ #{e2 6623}#
+ #{args* 6624}#
+ #{e1* 6625}#
+ #{e2* 6626}#)
+ (call-with-values
+ (lambda ()
+ (#{expand-lambda-case 4345}#
+ #{e 6611}#
+ #{r 6612}#
+ #{w 6613}#
+ #{s 6614}#
+ #{mod 6615}#
+ #{lambda-formals 4342}#
+ (cons (cons #{args 6621}#
+ (cons #{e1 6622}# #{e2 6623}#))
+ (map (lambda (#{tmp 3262 6629}#
+ #{tmp 3261 6630}#
+ #{tmp 3260 6631}#)
+ (cons #{tmp 3260 6631}#
+ (cons #{tmp 3261 6630}#
+ #{tmp 3262 6629}#)))
+ #{e2* 6626}#
+ #{e1* 6625}#
+ #{args* 6624}#))))
+ (lambda (#{meta 6632}# #{lcase 6633}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 13)
+ #{s 6614}#
+ #{meta 6632}#
+ #{lcase 6633}#))))
+ #{tmp 6617}#)
+ (syntax-violation
+ 'case-lambda
+ "bad case-lambda"
+ #{e 6611}#)))))
+ (#{global-extend 4299}#
+ 'core
+ 'case-lambda*
+ (lambda (#{e 6796}#
+ #{r 6797}#
+ #{w 6798}#
+ #{s 6799}#
+ #{mod 6800}#)
+ (let ((#{tmp 6802}#
+ ($sc-dispatch
+ #{e 6796}#
+ '(_ (any any . each-any)
+ .
+ #(each (any any . each-any))))))
+ (if #{tmp 6802}#
+ (@apply
+ (lambda (#{args 6806}#
+ #{e1 6807}#
+ #{e2 6808}#
+ #{args* 6809}#
+ #{e1* 6810}#
+ #{e2* 6811}#)
+ (call-with-values
+ (lambda ()
+ (#{expand-lambda-case 4345}#
+ #{e 6796}#
+ #{r 6797}#
+ #{w 6798}#
+ #{s 6799}#
+ #{mod 6800}#
+ #{lambda*-formals 4344}#
+ (cons (cons #{args 6806}#
+ (cons #{e1 6807}# #{e2 6808}#))
+ (map (lambda (#{tmp 3297 6814}#
+ #{tmp 3296 6815}#
+ #{tmp 3295 6816}#)
+ (cons #{tmp 3295 6816}#
+ (cons #{tmp 3296 6815}#
+ #{tmp 3297 6814}#)))
+ #{e2* 6811}#
+ #{e1* 6810}#
+ #{args* 6809}#))))
+ (lambda (#{meta 6817}# #{lcase 6818}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 13)
+ #{s 6799}#
+ #{meta 6817}#
+ #{lcase 6818}#))))
+ #{tmp 6802}#)
+ (syntax-violation
+ 'case-lambda
+ "bad case-lambda*"
+ #{e 6796}#)))))
+ (#{global-extend 4299}#
+ 'core
+ 'let
+ (letrec*
+ ((#{expand-let 7010}#
+ (lambda (#{e 7159}#
+ #{r 7160}#
+ #{w 7161}#
+ #{s 7162}#
+ #{mod 7163}#
+ #{constructor 7164}#
+ #{ids 7165}#
+ #{vals 7166}#
+ #{exps 7167}#)
+ (if (not (#{valid-bound-ids? 4323}# #{ids 7165}#))
+ (syntax-violation
+ 'let
+ "duplicate bound variable"
+ #{e 7159}#)
+ (let ((#{labels 7245}#
+ (#{gen-labels 4304}# #{ids 7165}#))
+ (#{new-vars 7246}#
+ (map #{gen-var 4347}# #{ids 7165}#)))
+ (let ((#{nw 7247}#
+ (#{make-binding-wrap 4315}#
+ #{ids 7165}#
+ #{labels 7245}#
+ #{w 7161}#))
+ (#{nr 7248}#
+ (#{extend-var-env 4296}#
+ #{labels 7245}#
+ #{new-vars 7246}#
+ #{r 7160}#)))
+ (#{constructor 7164}#
+ #{s 7162}#
+ (map syntax->datum #{ids 7165}#)
+ #{new-vars 7246}#
+ (map (lambda (#{x 7265}#)
+ (#{expand 4333}#
+ #{x 7265}#
+ #{r 7160}#
+ #{w 7161}#
+ #{mod 7163}#))
+ #{vals 7166}#)
+ (#{expand-body 4337}#
+ #{exps 7167}#
+ (#{source-wrap 4327}#
+ #{e 7159}#
+ #{nw 7247}#
+ #{s 7162}#
+ #{mod 7163}#)
+ #{nr 7248}#
+ #{nw 7247}#
+ #{mod 7163}#))))))))
+ (lambda (#{e 7011}#
+ #{r 7012}#
+ #{w 7013}#
+ #{s 7014}#
+ #{mod 7015}#)
+ (let ((#{tmp 7017}#
+ ($sc-dispatch
+ #{e 7011}#
+ '(_ #(each (any any)) any . each-any))))
+ (if (if #{tmp 7017}#
+ (@apply
+ (lambda (#{id 7021}#
+ #{val 7022}#
+ #{e1 7023}#
+ #{e2 7024}#)
+ (and-map #{id? 4301}# #{id 7021}#))
+ #{tmp 7017}#)
+ #f)
+ (@apply
+ (lambda (#{id 7040}#
+ #{val 7041}#
+ #{e1 7042}#
+ #{e2 7043}#)
+ (#{expand-let 7010}#
+ #{e 7011}#
+ #{r 7012}#
+ #{w 7013}#
+ #{s 7014}#
+ #{mod 7015}#
+ #{build-let 4283}#
+ #{id 7040}#
+ #{val 7041}#
+ (cons #{e1 7042}# #{e2 7043}#)))
+ #{tmp 7017}#)
+ (let ((#{tmp 7073}#
+ ($sc-dispatch
+ #{e 7011}#
+ '(_ any #(each (any any)) any . each-any))))
+ (if (if #{tmp 7073}#
+ (@apply
+ (lambda (#{f 7077}#
+ #{id 7078}#
+ #{val 7079}#
+ #{e1 7080}#
+ #{e2 7081}#)
+ (if (if (symbol? #{f 7077}#)
+ #t
+ (if (if (vector? #{f 7077}#)
+ (if (= (vector-length #{f 7077}#) 4)
+ (eq? (vector-ref #{f 7077}# 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref #{f 7077}# 1))
+ #f))
+ (and-map #{id? 4301}# #{id 7078}#)
+ #f))
+ #{tmp 7073}#)
+ #f)
+ (@apply
+ (lambda (#{f 7123}#
+ #{id 7124}#
+ #{val 7125}#
+ #{e1 7126}#
+ #{e2 7127}#)
+ (#{expand-let 7010}#
+ #{e 7011}#
+ #{r 7012}#
+ #{w 7013}#
+ #{s 7014}#
+ #{mod 7015}#
+ #{build-named-let 4284}#
+ (cons #{f 7123}# #{id 7124}#)
+ #{val 7125}#
+ (cons #{e1 7126}# #{e2 7127}#)))
+ #{tmp 7073}#)
+ (syntax-violation
+ 'let
+ "bad let"
+ (#{wrap 4326}#
+ (begin
+ (if (if (pair? #{e 7011}#) #{s 7014}# #f)
+ (set-source-properties! #{e 7011}# #{s 7014}#))
+ #{e 7011}#)
+ #{w 7013}#
+ #{mod 7015}#)))))))))
+ (#{global-extend 4299}#
+ 'core
+ 'letrec
+ (lambda (#{e 7714}#
+ #{r 7715}#
+ #{w 7716}#
+ #{s 7717}#
+ #{mod 7718}#)
+ (let ((#{tmp 7720}#
+ ($sc-dispatch
+ #{e 7714}#
+ '(_ #(each (any any)) any . each-any))))
+ (if (if #{tmp 7720}#
+ (@apply
+ (lambda (#{id 7724}#
+ #{val 7725}#
+ #{e1 7726}#
+ #{e2 7727}#)
+ (and-map #{id? 4301}# #{id 7724}#))
+ #{tmp 7720}#)
+ #f)
+ (@apply
+ (lambda (#{id 7743}#
+ #{val 7744}#
+ #{e1 7745}#
+ #{e2 7746}#)
+ (if (not (#{valid-bound-ids? 4323}# #{id 7743}#))
+ (syntax-violation
+ 'letrec
+ "duplicate bound variable"
+ #{e 7714}#)
+ (let ((#{labels 7836}#
+ (#{gen-labels 4304}# #{id 7743}#))
+ (#{new-vars 7837}#
+ (map #{gen-var 4347}# #{id 7743}#)))
+ (let ((#{w 7838}#
+ (#{make-binding-wrap 4315}#
+ #{id 7743}#
+ #{labels 7836}#
+ #{w 7716}#))
+ (#{r 7839}#
+ (#{extend-var-env 4296}#
+ #{labels 7836}#
+ #{new-vars 7837}#
+ #{r 7715}#)))
+ (#{build-letrec 4285}#
+ #{s 7717}#
+ #f
+ (map syntax->datum #{id 7743}#)
+ #{new-vars 7837}#
+ (map (lambda (#{x 7926}#)
+ (#{expand 4333}#
+ #{x 7926}#
+ #{r 7839}#
+ #{w 7838}#
+ #{mod 7718}#))
+ #{val 7744}#)
+ (#{expand-body 4337}#
+ (cons #{e1 7745}# #{e2 7746}#)
+ (#{wrap 4326}#
+ (begin
+ (if (if (pair? #{e 7714}#) #{s 7717}# #f)
+ (set-source-properties! #{e 7714}# #{s 7717}#))
+ #{e 7714}#)
+ #{w 7838}#
+ #{mod 7718}#)
+ #{r 7839}#
+ #{w 7838}#
+ #{mod 7718}#))))))
+ #{tmp 7720}#)
+ (syntax-violation
+ 'letrec
+ "bad letrec"
+ (#{wrap 4326}#
+ (begin
+ (if (if (pair? #{e 7714}#) #{s 7717}# #f)
+ (set-source-properties! #{e 7714}# #{s 7717}#))
+ #{e 7714}#)
+ #{w 7716}#
+ #{mod 7718}#))))))
+ (#{global-extend 4299}#
+ 'core
+ 'letrec*
+ (lambda (#{e 8343}#
+ #{r 8344}#
+ #{w 8345}#
+ #{s 8346}#
+ #{mod 8347}#)
+ (let ((#{tmp 8349}#
+ ($sc-dispatch
+ #{e 8343}#
+ '(_ #(each (any any)) any . each-any))))
+ (if (if #{tmp 8349}#
+ (@apply
+ (lambda (#{id 8353}#
+ #{val 8354}#
+ #{e1 8355}#
+ #{e2 8356}#)
+ (and-map #{id? 4301}# #{id 8353}#))
+ #{tmp 8349}#)
+ #f)
+ (@apply
+ (lambda (#{id 8372}#
+ #{val 8373}#
+ #{e1 8374}#
+ #{e2 8375}#)
+ (if (not (#{valid-bound-ids? 4323}# #{id 8372}#))
+ (syntax-violation
+ 'letrec*
+ "duplicate bound variable"
+ #{e 8343}#)
+ (let ((#{labels 8465}#
+ (#{gen-labels 4304}# #{id 8372}#))
+ (#{new-vars 8466}#
+ (map #{gen-var 4347}# #{id 8372}#)))
+ (let ((#{w 8467}#
+ (#{make-binding-wrap 4315}#
+ #{id 8372}#
+ #{labels 8465}#
+ #{w 8345}#))
+ (#{r 8468}#
+ (#{extend-var-env 4296}#
+ #{labels 8465}#
+ #{new-vars 8466}#
+ #{r 8344}#)))
+ (#{build-letrec 4285}#
+ #{s 8346}#
+ #t
+ (map syntax->datum #{id 8372}#)
+ #{new-vars 8466}#
+ (map (lambda (#{x 8555}#)
+ (#{expand 4333}#
+ #{x 8555}#
+ #{r 8468}#
+ #{w 8467}#
+ #{mod 8347}#))
+ #{val 8373}#)
+ (#{expand-body 4337}#
+ (cons #{e1 8374}# #{e2 8375}#)
+ (#{wrap 4326}#
+ (begin
+ (if (if (pair? #{e 8343}#) #{s 8346}# #f)
+ (set-source-properties! #{e 8343}# #{s 8346}#))
+ #{e 8343}#)
+ #{w 8467}#
+ #{mod 8347}#)
+ #{r 8468}#
+ #{w 8467}#
+ #{mod 8347}#))))))
+ #{tmp 8349}#)
+ (syntax-violation
+ 'letrec*
+ "bad letrec*"
+ (#{wrap 4326}#
+ (begin
+ (if (if (pair? #{e 8343}#) #{s 8346}# #f)
+ (set-source-properties! #{e 8343}# #{s 8346}#))
+ #{e 8343}#)
+ #{w 8345}#
+ #{mod 8347}#))))))
+ (#{global-extend 4299}#
+ 'core
+ 'set!
+ (lambda (#{e 9026}#
+ #{r 9027}#
+ #{w 9028}#
+ #{s 9029}#
+ #{mod 9030}#)
+ (let ((#{tmp 9032}#
+ ($sc-dispatch #{e 9026}# '(_ any any))))
+ (if (if #{tmp 9032}#
+ (@apply
+ (lambda (#{id 9036}# #{val 9037}#)
+ (if (symbol? #{id 9036}#)
+ #t
+ (if (if (vector? #{id 9036}#)
+ (if (= (vector-length #{id 9036}#) 4)
+ (eq? (vector-ref #{id 9036}# 0) 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref #{id 9036}# 1))
+ #f)))
+ #{tmp 9032}#)
+ #f)
+ (@apply
+ (lambda (#{id 9064}# #{val 9065}#)
+ (let ((#{n 9066}#
+ (#{id-var-name 4320}# #{id 9064}# #{w 9028}#))
+ (#{id-mod 9067}#
+ (if (if (vector? #{id 9064}#)
+ (if (= (vector-length #{id 9064}#) 4)
+ (eq? (vector-ref #{id 9064}# 0) 'syntax-object)
+ #f)
+ #f)
+ (vector-ref #{id 9064}# 3)
+ #{mod 9030}#)))
+ (let ((#{b 9068}#
+ (let ((#{t 9755}# (assq #{n 9066}# #{r 9027}#)))
+ (if #{t 9755}#
+ (cdr #{t 9755}#)
+ (if (symbol? #{n 9066}#)
+ (let ((#{t 9760}#
+ (begin
+ (if (if (not #{id-mod 9067}#)
+ (current-module)
+ #f)
+ (warn "module system is booted, we
should have a module"
+ #{n 9066}#))
+ (let ((#{v 9797}#
+ (module-variable
+ (if #{id-mod 9067}#
+ (resolve-module
+ (cdr #{id-mod 9067}#))
+ (current-module))
+ #{n 9066}#)))
+ (if #{v 9797}#
+ (if (variable-bound? #{v 9797}#)
+ (let ((#{val 9806}#
+ (variable-ref
+ #{v 9797}#)))
+ (if (macro? #{val 9806}#)
+ (if (macro-type
+ #{val 9806}#)
+ (cons (macro-type
+ #{val 9806}#)
+ (macro-binding
+ #{val 9806}#))
+ #f)
+ #f))
+ #f)
+ #f)))))
+ (if #{t 9760}# #{t 9760}# '(global)))
+ '(displaced-lexical))))))
+ (let ((#{atom-key 9069}# (car #{b 9068}#)))
+ (if (let ((#{t 9106}# #{atom-key 9069}#))
+ (eqv? #{t 9106}# 'lexical))
+ (#{build-lexical-assignment 4272}#
+ #{s 9029}#
+ (syntax->datum #{id 9064}#)
+ (cdr #{b 9068}#)
+ (#{expand 4333}#
+ #{val 9065}#
+ #{r 9027}#
+ #{w 9028}#
+ #{mod 9030}#))
+ (if (let ((#{t 9391}# #{atom-key 9069}#))
+ (eqv? #{t 9391}# 'global))
+ (#{build-global-assignment 4275}#
+ #{s 9029}#
+ #{n 9066}#
+ (#{expand 4333}#
+ #{val 9065}#
+ #{r 9027}#
+ #{w 9028}#
+ #{mod 9030}#)
+ #{id-mod 9067}#)
+ (if (let ((#{t 9646}# #{atom-key 9069}#))
+ (eqv? #{t 9646}# 'macro))
+ (let ((#{p 9709}# (cdr #{b 9068}#)))
+ (if (procedure-property
+ #{p 9709}#
+ 'variable-transformer)
+ (#{expand 4333}#
+ (#{expand-macro 4336}#
+ #{p 9709}#
+ #{e 9026}#
+ #{r 9027}#
+ #{w 9028}#
+ #{s 9029}#
+ #f
+ #{mod 9030}#)
+ #{r 9027}#
+ '(())
+ #{mod 9030}#)
+ (syntax-violation
+ 'set!
+ "not a variable transformer"
+ (#{wrap 4326}#
+ #{e 9026}#
+ #{w 9028}#
+ #{mod 9030}#)
+ (#{wrap 4326}#
+ #{id 9064}#
+ #{w 9028}#
+ #{id-mod 9067}#))))
+ (if (eqv? #{atom-key 9069}# 'displaced-lexical)
+ (syntax-violation
+ 'set!
+ "identifier out of context"
+ (#{wrap 4326}#
+ #{id 9064}#
+ #{w 9028}#
+ #{mod 9030}#))
+ (syntax-violation
+ 'set!
+ "bad set!"
+ (#{wrap 4326}#
+ (begin
+ (if (if (pair? #{e 9026}#) #{s 9029}# #f)
+ (set-source-properties!
+ #{e 9026}#
+ #{s 9029}#))
+ #{e 9026}#)
+ #{w 9028}#
+ #{mod 9030}#))))))))))
+ #{tmp 9032}#)
+ (let ((#{tmp 9907}#
+ ($sc-dispatch
+ #{e 9026}#
+ '(_ (any . each-any) any))))
+ (if #{tmp 9907}#
+ (@apply
+ (lambda (#{head 9911}# #{tail 9912}# #{val 9913}#)
+ (call-with-values
+ (lambda ()
+ (#{syntax-type 4332}#
+ #{head 9911}#
+ #{r 9027}#
+ '(())
+ #f
+ #f
+ #{mod 9030}#
+ #t))
+ (lambda (#{type 9916}#
+ #{value 9917}#
+ #{ee 9918}#
+ #{ww 9919}#
+ #{ss 9920}#
+ #{modmod 9921}#)
+ (if (eqv? #{type 9916}# 'module-ref)
+ (let ((#{val 9925}#
+ (#{expand 4333}#
+ #{val 9913}#
+ #{r 9027}#
+ #{w 9028}#
+ #{mod 9030}#)))
+ (call-with-values
+ (lambda ()
+ (#{value 9917}#
+ (cons #{head 9911}# #{tail 9912}#)
+ #{r 9027}#
+ #{w 9028}#))
+ (lambda (#{e 9926}#
+ #{r 9927}#
+ #{w 9928}#
+ #{s* 9929}#
+ #{mod 9930}#)
+ (let ((#{tmp 9932}# (list #{e 9926}#)))
+ (if (@apply
+ (lambda (#{e 9934}#)
+ (if (symbol? #{e 9934}#)
+ #t
+ (if (if (vector? #{e 9934}#)
+ (if (= (vector-length
+ #{e 9934}#)
+ 4)
+ (eq? (vector-ref
+ #{e 9934}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol?
+ (vector-ref #{e 9934}# 1))
+ #f)))
+ #{tmp 9932}#)
+ (@apply
+ (lambda (#{e 9964}#)
+ (#{build-global-assignment 4275}#
+ #{s 9029}#
+ (syntax->datum #{e 9964}#)
+ #{val 9925}#
+ #{mod 9930}#))
+ #{tmp 9932}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any
pattern"
+ #{e 9926}#))))))
+ (#{build-application 4268}#
+ #{s 9029}#
+ (#{expand 4333}#
+ (list '#(syntax-object
+ setter
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(type value ee ww ss modmod)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i3543"
+ "i3544"
+ "i3545"
+ "i3546"
+ "i3547"
+ "i3548"))
+ #(ribcage
+ #(head tail val)
+ #((top) (top) (top))
+ #("i3529" "i3530" "i3531"))
+ #(ribcage () () ())
+ #(ribcage
+ #(e r w s mod)
+ #((top) (top) (top) (top) (top))
+ #("i3493"
+ "i3494"
+ "i3495"
+ "i3496"
+ "i3497"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ expand-lambda-case
+ lambda*-formals
+ expand-simple-lambda
+ lambda-formals
+ ellipsis?
+ expand-void
+ eval-local-transformer
+ expand-local-syntax
+ expand-body
+ expand-macro
+ expand-application
+ expand-expr
+ expand
+ syntax-type
+ parse-when-list
+ expand-install-global
+ expand-top-sequence
+ expand-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i398"
+ "i396"
+ "i393"
+ "i392"
+ "i391"
+ "i389"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i357"
+ "i356"
+ "i355"
+ "i353"
+ "i352"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i336"
+ "i335"
+ "i333"
+ "i331"
+ "i330"
+ "i327"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i260"
+ "i257"
+ "i255"
+ "i254"
+ "i253"
+ "i252"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("i46" "i45" "i44")))
+ (hygiene guile))
+ #{head 9911}#)
+ #{r 9027}#
+ #{w 9028}#
+ #{mod 9030}#)
+ (map (lambda (#{e 10265}#)
+ (#{expand 4333}#
+ #{e 10265}#
+ #{r 9027}#
+ #{w 9028}#
+ #{mod 9030}#))
+ (append
+ #{tail 9912}#
+ (list #{val 9913}#))))))))
+ #{tmp 9907}#)
+ (syntax-violation
+ 'set!
+ "bad set!"
+ (#{wrap 4326}#
+ (begin
+ (if (if (pair? #{e 9026}#) #{s 9029}# #f)
+ (set-source-properties! #{e 9026}# #{s 9029}#))
+ #{e 9026}#)
+ #{w 9028}#
+ #{mod 9030}#))))))))
+ (module-define!
+ (current-module)
+ '@
+ (make-syntax-transformer
+ '@
+ 'module-ref
+ (lambda (#{e 10379}# #{r 10380}# #{w 10381}#)
+ (let ((#{tmp 10383}#
+ ($sc-dispatch #{e 10379}# '(_ each-any any))))
+ (if (if #{tmp 10383}#
+ (@apply
+ (lambda (#{mod 10386}# #{id 10387}#)
+ (if (and-map #{id? 4301}# #{mod 10386}#)
+ (if (symbol? #{id 10387}#)
+ #t
+ (if (if (vector? #{id 10387}#)
+ (if (= (vector-length #{id 10387}#) 4)
+ (eq? (vector-ref #{id 10387}# 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref #{id 10387}# 1))
+ #f))
+ #f))
+ #{tmp 10383}#)
+ #f)
+ (@apply
+ (lambda (#{mod 10427}# #{id 10428}#)
+ (values
+ (syntax->datum #{id 10428}#)
+ #{r 10380}#
+ #{w 10381}#
+ #f
+ (syntax->datum
+ (cons '#(syntax-object
+ public
+ ((top)
+ #(ribcage
+ #(mod id)
+ #((top) (top))
+ #("i3590" "i3591"))
+ #(ribcage () () ())
+ #(ribcage
+ #(e r w)
+ #((top) (top) (top))
+ #("i3578" "i3579" "i3580"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ expand-lambda-case
+ lambda*-formals
+ expand-simple-lambda
+ lambda-formals
+ ellipsis?
+ expand-void
+ eval-local-transformer
+ expand-local-syntax
+ expand-body
+ expand-macro
+ expand-application
+ expand-expr
+ expand
+ syntax-type
+ parse-when-list
+ expand-install-global
+ expand-top-sequence
+ expand-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i398"
+ "i396"
+ "i393"
+ "i392"
+ "i391"
+ "i389"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i357"
+ "i356"
+ "i355"
+ "i353"
+ "i352"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i336"
+ "i335"
+ "i333"
+ "i331"
+ "i330"
+ "i327"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i260"
+ "i257"
+ "i255"
+ "i254"
+ "i253"
+ "i252"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("i46" "i45" "i44")))
+ (hygiene guile))
+ #{mod 10427}#))))
+ #{tmp 10383}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{e 10379}#))))))
+ (#{global-extend 4299}#
+ 'module-ref
+ '@@
+ (lambda (#{e 10525}# #{r 10526}# #{w 10527}#)
+ (letrec*
+ ((#{remodulate 10528}#
+ (lambda (#{x 10734}# #{mod 10735}#)
+ (if (pair? #{x 10734}#)
+ (cons (#{remodulate 10528}#
+ (car #{x 10734}#)
+ #{mod 10735}#)
+ (#{remodulate 10528}#
+ (cdr #{x 10734}#)
+ #{mod 10735}#))
+ (if (if (vector? #{x 10734}#)
+ (if (= (vector-length #{x 10734}#) 4)
+ (eq? (vector-ref #{x 10734}# 0) 'syntax-object)
+ #f)
+ #f)
+ (let ((#{expression 10749}#
+ (#{remodulate 10528}#
+ (vector-ref #{x 10734}# 1)
+ #{mod 10735}#))
+ (#{wrap 10750}# (vector-ref #{x 10734}# 2)))
+ (vector
+ 'syntax-object
+ #{expression 10749}#
+ #{wrap 10750}#
+ #{mod 10735}#))
+ (if (vector? #{x 10734}#)
+ (let ((#{n 10758}# (vector-length #{x 10734}#)))
+ (let ((#{v 10759}# (make-vector #{n 10758}#)))
+ (letrec*
+ ((#{loop 10760}#
+ (lambda (#{i 10807}#)
+ (if (= #{i 10807}# #{n 10758}#)
+ #{v 10759}#
+ (begin
+ (vector-set!
+ #{v 10759}#
+ #{i 10807}#
+ (#{remodulate 10528}#
+ (vector-ref #{x 10734}# #{i 10807}#)
+ #{mod 10735}#))
+ (#{loop 10760}# (#{1+}# #{i 10807}#)))))))
+ (#{loop 10760}# 0))))
+ #{x 10734}#))))))
+ (let ((#{tmp 10530}#
+ ($sc-dispatch #{e 10525}# '(_ each-any any))))
+ (if (if #{tmp 10530}#
+ (@apply
+ (lambda (#{mod 10534}# #{exp 10535}#)
+ (and-map #{id? 4301}# #{mod 10534}#))
+ #{tmp 10530}#)
+ #f)
+ (@apply
+ (lambda (#{mod 10551}# #{exp 10552}#)
+ (let ((#{mod 10553}#
+ (syntax->datum
+ (cons '#(syntax-object
+ private
+ ((top)
+ #(ribcage
+ #(mod exp)
+ #((top) (top))
+ #("i3634" "i3635"))
+ #(ribcage (remodulate) ((top)) ("i3601"))
+ #(ribcage
+ #(e r w)
+ #((top) (top) (top))
+ #("i3598" "i3599" "i3600"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ expand-lambda-case
+ lambda*-formals
+ expand-simple-lambda
+ lambda-formals
+ ellipsis?
+ expand-void
+ eval-local-transformer
+ expand-local-syntax
+ expand-body
+ expand-macro
+ expand-application
+ expand-expr
+ expand
+ syntax-type
+ parse-when-list
+ expand-install-global
+ expand-top-sequence
+ expand-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i398"
+ "i396"
+ "i393"
+ "i392"
+ "i391"
+ "i389"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i357"
+ "i356"
+ "i355"
+ "i353"
+ "i352"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i336"
+ "i335"
+ "i333"
+ "i331"
+ "i330"
+ "i327"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i260"
+ "i257"
+ "i255"
+ "i254"
+ "i253"
+ "i252"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("i46" "i45" "i44")))
+ (hygiene guile))
+ #{mod 10551}#))))
+ (values
+ (#{remodulate 10528}#
+ #{exp 10552}#
+ #{mod 10553}#)
+ #{r 10526}#
+ #{w 10527}#
+ (#{source-annotation 4294}# #{exp 10552}#)
+ #{mod 10553}#)))
+ #{tmp 10530}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{e 10525}#))))))
+ (#{global-extend 4299}#
+ 'core
+ 'if
+ (lambda (#{e 10913}#
+ #{r 10914}#
+ #{w 10915}#
+ #{s 10916}#
+ #{mod 10917}#)
+ (let ((#{tmp 10919}#
+ ($sc-dispatch #{e 10913}# '(_ any any))))
+ (if #{tmp 10919}#
+ (@apply
+ (lambda (#{test 10923}# #{then 10924}#)
+ (#{build-conditional 4269}#
+ #{s 10916}#
+ (#{expand 4333}#
+ #{test 10923}#
+ #{r 10914}#
+ #{w 10915}#
+ #{mod 10917}#)
+ (#{expand 4333}#
+ #{then 10924}#
+ #{r 10914}#
+ #{w 10915}#
+ #{mod 10917}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 0)
+ #f)))
+ #{tmp 10919}#)
+ (let ((#{tmp 11164}#
+ ($sc-dispatch #{e 10913}# '(_ any any any))))
+ (if #{tmp 11164}#
+ (@apply
+ (lambda (#{test 11168}# #{then 11169}# #{else 11170}#)
+ (#{build-conditional 4269}#
+ #{s 10916}#
+ (#{expand 4333}#
+ #{test 11168}#
+ #{r 10914}#
+ #{w 10915}#
+ #{mod 10917}#)
+ (#{expand 4333}#
+ #{then 11169}#
+ #{r 10914}#
+ #{w 10915}#
+ #{mod 10917}#)
+ (#{expand 4333}#
+ #{else 11170}#
+ #{r 10914}#
+ #{w 10915}#
+ #{mod 10917}#)))
+ #{tmp 11164}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{e 10913}#)))))))
+ (#{global-extend 4299}#
+ 'core
+ 'with-fluids
+ (lambda (#{e 11594}#
+ #{r 11595}#
+ #{w 11596}#
+ #{s 11597}#
+ #{mod 11598}#)
+ (let ((#{tmp 11600}#
+ ($sc-dispatch
+ #{e 11594}#
+ '(_ #(each (any any)) any . each-any))))
+ (if #{tmp 11600}#
+ (@apply
+ (lambda (#{fluid 11604}#
+ #{val 11605}#
+ #{b 11606}#
+ #{b* 11607}#)
+ (#{build-dynlet 4270}#
+ #{s 11597}#
+ (map (lambda (#{x 11693}#)
+ (#{expand 4333}#
+ #{x 11693}#
+ #{r 11595}#
+ #{w 11596}#
+ #{mod 11598}#))
+ #{fluid 11604}#)
+ (map (lambda (#{x 11768}#)
+ (#{expand 4333}#
+ #{x 11768}#
+ #{r 11595}#
+ #{w 11596}#
+ #{mod 11598}#))
+ #{val 11605}#)
+ (#{expand-body 4337}#
+ (cons #{b 11606}# #{b* 11607}#)
+ (#{wrap 4326}#
+ (begin
+ (if (if (pair? #{e 11594}#) #{s 11597}# #f)
+ (set-source-properties! #{e 11594}# #{s 11597}#))
+ #{e 11594}#)
+ #{w 11596}#
+ #{mod 11598}#)
+ #{r 11595}#
+ #{w 11596}#
+ #{mod 11598}#)))
+ #{tmp 11600}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{e 11594}#)))))
+ (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)
+ 'eval-when
+ (make-syntax-transformer
+ 'eval-when
+ 'eval-when
+ '()))
+ (#{global-extend 4299}#
+ 'core
+ 'syntax-case
+ (letrec*
+ ((#{convert-pattern 12142}#
+ (lambda (#{pattern 13765}# #{keys 13766}#)
+ (letrec*
+ ((#{cvt* 13767}#
+ (lambda (#{p* 14393}# #{n 14394}# #{ids 14395}#)
+ (if (not (pair? #{p* 14393}#))
+ (#{cvt 13769}#
+ #{p* 14393}#
+ #{n 14394}#
+ #{ids 14395}#)
+ (call-with-values
+ (lambda ()
+ (#{cvt* 13767}#
+ (cdr #{p* 14393}#)
+ #{n 14394}#
+ #{ids 14395}#))
+ (lambda (#{y 14398}# #{ids 14399}#)
+ (call-with-values
+ (lambda ()
+ (#{cvt 13769}#
+ (car #{p* 14393}#)
+ #{n 14394}#
+ #{ids 14399}#))
+ (lambda (#{x 14402}# #{ids 14403}#)
+ (values
+ (cons #{x 14402}# #{y 14398}#)
+ #{ids 14403}#))))))))
+ (#{v-reverse 13768}#
+ (lambda (#{x 14404}#)
+ (letrec*
+ ((#{loop 14405}#
+ (lambda (#{r 14482}# #{x 14483}#)
+ (if (not (pair? #{x 14483}#))
+ (values #{r 14482}# #{x 14483}#)
+ (#{loop 14405}#
+ (cons (car #{x 14483}#) #{r 14482}#)
+ (cdr #{x 14483}#))))))
+ (#{loop 14405}# '() #{x 14404}#))))
+ (#{cvt 13769}#
+ (lambda (#{p 13772}# #{n 13773}# #{ids 13774}#)
+ (if (if (symbol? #{p 13772}#)
+ #t
+ (if (if (vector? #{p 13772}#)
+ (if (= (vector-length #{p 13772}#) 4)
+ (eq? (vector-ref #{p 13772}# 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref #{p 13772}# 1))
+ #f))
+ (if (#{bound-id-member? 4325}#
+ #{p 13772}#
+ #{keys 13766}#)
+ (values
+ (vector 'free-id #{p 13772}#)
+ #{ids 13774}#)
+ (if (if (eq? (if (if (vector? #{p 13772}#)
+ (if (= (vector-length #{p 13772}#)
+ 4)
+ (eq? (vector-ref #{p 13772}# 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref #{p 13772}# 1)
+ #{p 13772}#)
+ (if (if (= (vector-length
+ '#(syntax-object
+ _
+ ((top)
+ #(ribcage () () ())
+ #(ribcage
+ #(p n ids)
+ #((top) (top) (top))
+ #("i3735"
+ "i3736"
+ "i3737"))
+ #(ribcage
+ (cvt v-reverse cvt*)
+ ((top) (top) (top))
+ ("i3708"
+ "i3706"
+ "i3704"))
+ #(ribcage
+ #(pattern keys)
+ #((top) (top))
+ #("i3702" "i3703"))
+ #(ribcage
+ (gen-syntax-case
+ gen-clause
+ build-dispatch-call
+ convert-pattern)
+ ((top)
+ (top)
+ (top)
+ (top))
+ ("i3698"
+ "i3696"
+ "i3694"
+ "i3692"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ expand-lambda-case
+ lambda*-formals
+ expand-simple-lambda
+ lambda-formals
+ ellipsis?
+ expand-void
+
eval-local-transformer
+ expand-local-syntax
+ expand-body
+ expand-macro
+ expand-application
+ expand-expr
+ expand
+ syntax-type
+ parse-when-list
+ expand-install-global
+ expand-top-sequence
+ expand-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+
set-syntax-object-module!
+
set-syntax-object-wrap!
+
set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+
syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+
build-global-definition
+
build-global-assignment
+
build-global-reference
+ analyze-variable
+
build-lexical-assignment
+
build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+
get-global-definition-hook
+
put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i398"
+ "i396"
+ "i393"
+ "i392"
+ "i391"
+ "i389"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i357"
+ "i356"
+ "i355"
+ "i353"
+ "i352"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i336"
+ "i335"
+ "i333"
+ "i331"
+ "i330"
+ "i327"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i260"
+ "i257"
+ "i255"
+ "i254"
+ "i253"
+ "i252"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
+ #(ribcage
+ (define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+ ((top) (top) (top))
+ ("i46" "i45" "i44")))
+ (hygiene guile)))
+ 4)
+ #t
+ #f)
+ '_
+ '#(syntax-object
+ _
+ ((top)
+ #(ribcage () () ())
+ #(ribcage
+ #(p n ids)
+ #((top) (top) (top))
+ #("i3735" "i3736" "i3737"))
+ #(ribcage
+ (cvt v-reverse cvt*)
+ ((top) (top) (top))
+ ("i3708" "i3706" "i3704"))
+ #(ribcage
+ #(pattern keys)
+ #((top) (top))
+ #("i3702" "i3703"))
+ #(ribcage
+ (gen-syntax-case
+ gen-clause
+ build-dispatch-call
+ convert-pattern)
+ ((top) (top) (top) (top))
+ ("i3698" "i3696" "i3694" "i3692"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ expand-lambda-case
+ lambda*-formals
+ expand-simple-lambda
+ lambda-formals
+ ellipsis?
+ expand-void
+ eval-local-transformer
+ expand-local-syntax
+ expand-body
+ expand-macro
+ expand-application
+ expand-expr
+ expand
+ syntax-type
+ parse-when-list
+ expand-install-global
+ expand-top-sequence
+ expand-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i398"
+ "i396"
+ "i393"
+ "i392"
+ "i391"
+ "i389"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i357"
+ "i356"
+ "i355"
+ "i353"
+ "i352"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i336"
+ "i335"
+ "i333"
+ "i331"
+ "i330"
+ "i327"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i260"
+ "i257"
+ "i255"
+ "i254"
+ "i253"
+ "i252"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("i46" "i45" "i44")))
+ (hygiene guile))))
+ (eq? (#{id-var-name 4320}# #{p 13772}# '(()))
+ (#{id-var-name 4320}#
+ '#(syntax-object
+ _
+ ((top)
+ #(ribcage () () ())
+ #(ribcage
+ #(p n ids)
+ #((top) (top) (top))
+ #("i3735" "i3736" "i3737"))
+ #(ribcage
+ (cvt v-reverse cvt*)
+ ((top) (top) (top))
+ ("i3708" "i3706" "i3704"))
+ #(ribcage
+ #(pattern keys)
+ #((top) (top))
+ #("i3702" "i3703"))
+ #(ribcage
+ (gen-syntax-case
+ gen-clause
+ build-dispatch-call
+ convert-pattern)
+ ((top) (top) (top) (top))
+ ("i3698" "i3696" "i3694" "i3692"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ expand-lambda-case
+ lambda*-formals
+ expand-simple-lambda
+ lambda-formals
+ ellipsis?
+ expand-void
+ eval-local-transformer
+ expand-local-syntax
+ expand-body
+ expand-macro
+ expand-application
+ expand-expr
+ expand
+ syntax-type
+ parse-when-list
+ expand-install-global
+ expand-top-sequence
+ expand-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i398"
+ "i396"
+ "i393"
+ "i392"
+ "i391"
+ "i389"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i357"
+ "i356"
+ "i355"
+ "i353"
+ "i352"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i336"
+ "i335"
+ "i333"
+ "i331"
+ "i330"
+ "i327"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i260"
+ "i257"
+ "i255"
+ "i254"
+ "i253"
+ "i252"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("i46" "i45" "i44")))
+ (hygiene guile))
+ '(())))
+ #f)
+ (values '_ #{ids 13774}#)
+ (values
+ 'any
+ (cons (cons #{p 13772}# #{n 13773}#)
+ #{ids 13774}#))))
+ (let ((#{tmp 14096}#
+ ($sc-dispatch #{p 13772}# '(any any))))
+ (if (if #{tmp 14096}#
+ (@apply
+ (lambda (#{x 14100}# #{dots 14101}#)
+ (if (if (if (vector? #{dots 14101}#)
+ (if (= (vector-length
+ #{dots 14101}#)
+ 4)
+ (eq? (vector-ref
+ #{dots 14101}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref #{dots 14101}# 1))
+ #f)
+ (if (eq? (if (if (vector? #{dots 14101}#)
+ (if (= (vector-length
+ #{dots 14101}#)
+ 4)
+ (eq? (vector-ref
+ #{dots 14101}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref #{dots 14101}# 1)
+ #{dots 14101}#)
+ (if (if (= (vector-length
+ '#(syntax-object
+ ...
+ ((top)
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i2218"))
+ #(ribcage
+
(lambda-var-list
+ gen-var
+ strip
+
expand-lambda-case
+
lambda*-formals
+
expand-simple-lambda
+
lambda-formals
+ ellipsis?
+ expand-void
+
eval-local-transformer
+
expand-local-syntax
+ expand-body
+ expand-macro
+
expand-application
+ expand-expr
+ expand
+ syntax-type
+
parse-when-list
+
expand-install-global
+
expand-top-sequence
+
expand-sequence
+ source-wrap
+ wrap
+
bound-id-member?
+
distinct-bound-ids?
+
valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+
make-binding-wrap
+
extend-ribcage!
+
make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+
set-ribcage-labels!
+
set-ribcage-marks!
+
set-ribcage-symnames!
+
ribcage-labels
+ ribcage-marks
+
ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+
id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+
macros-only-env
+
extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+
source-annotation
+ no-source
+
set-syntax-object-module!
+
set-syntax-object-wrap!
+
set-syntax-object-expression!
+
syntax-object-module
+
syntax-object-wrap
+
syntax-object-expression
+
syntax-object?
+
make-syntax-object
+
build-lexical-var
+ build-letrec
+
build-named-let
+ build-let
+
build-sequence
+ build-data
+ build-primref
+
build-lambda-case
+
build-case-lambda
+
build-simple-lambda
+
build-global-definition
+
build-global-assignment
+
build-global-reference
+
analyze-variable
+
build-lexical-assignment
+
build-lexical-reference
+ build-dynlet
+
build-conditional
+
build-application
+ build-void
+
maybe-name-value!
+
decorate-source
+
get-global-definition-hook
+
put-global-definition-hook
+ gensym-hook
+
local-eval-hook
+
top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+
set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+
make-lambda-case
+ make-lambda
+ make-sequence
+
make-application
+
make-conditional
+
make-toplevel-define
+
make-toplevel-set
+
make-toplevel-ref
+
make-module-set
+
make-module-ref
+
make-lexical-set
+
make-lexical-ref
+
make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i398"
+ "i396"
+ "i393"
+ "i392"
+ "i391"
+ "i389"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i357"
+ "i356"
+ "i355"
+ "i353"
+ "i352"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i336"
+ "i335"
+ "i333"
+ "i331"
+ "i330"
+ "i327"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i260"
+ "i257"
+ "i255"
+ "i254"
+ "i253"
+ "i252"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
+ #(ribcage
+
(define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+ ((top)
+ (top)
+ (top))
+ ("i46"
+ "i45"
+ "i44")))
+ (hygiene guile)))
+ 4)
+ #t
+ #f)
+ '...
+ '#(syntax-object
+ ...
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i2218"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ expand-lambda-case
+ lambda*-formals
+ expand-simple-lambda
+ lambda-formals
+ ellipsis?
+ expand-void
+ eval-local-transformer
+ expand-local-syntax
+ expand-body
+ expand-macro
+ expand-application
+ expand-expr
+ expand
+ syntax-type
+ parse-when-list
+ expand-install-global
+ expand-top-sequence
+ expand-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+
set-syntax-object-module!
+ set-syntax-object-wrap!
+
set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+
get-global-definition-hook
+
put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i398"
+ "i396"
+ "i393"
+ "i392"
+ "i391"
+ "i389"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i357"
+ "i356"
+ "i355"
+ "i353"
+ "i352"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i336"
+ "i335"
+ "i333"
+ "i331"
+ "i330"
+ "i327"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i260"
+ "i257"
+ "i255"
+ "i254"
+ "i253"
+ "i252"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
+ #(ribcage
+ (define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+ ((top) (top) (top))
+ ("i46" "i45" "i44")))
+ (hygiene guile))))
+ (eq? (#{id-var-name 4320}#
+ #{dots 14101}#
+ '(()))
+ (#{id-var-name 4320}#
+ '#(syntax-object
+ ...
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i2218"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ expand-lambda-case
+ lambda*-formals
+ expand-simple-lambda
+ lambda-formals
+ ellipsis?
+ expand-void
+ eval-local-transformer
+ expand-local-syntax
+ expand-body
+ expand-macro
+ expand-application
+ expand-expr
+ expand
+ syntax-type
+ parse-when-list
+ expand-install-global
+ expand-top-sequence
+ expand-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+
set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i398"
+ "i396"
+ "i393"
+ "i392"
+ "i391"
+ "i389"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i357"
+ "i356"
+ "i355"
+ "i353"
+ "i352"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i336"
+ "i335"
+ "i333"
+ "i331"
+ "i330"
+ "i327"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i260"
+ "i257"
+ "i255"
+ "i254"
+ "i253"
+ "i252"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+
define-expansion-constructors)
+ ((top) (top) (top))
+ ("i46" "i45" "i44")))
+ (hygiene guile))
+ '(())))
+ #f)
+ #f))
+ #{tmp 14096}#)
+ #f)
+ (@apply
+ (lambda (#{x 14201}# #{dots 14202}#)
+ (call-with-values
+ (lambda ()
+ (#{cvt 13769}#
+ #{x 14201}#
+ (#{1+}# #{n 13773}#)
+ #{ids 13774}#))
+ (lambda (#{p 14203}# #{ids 14204}#)
+ (values
+ (if (eq? #{p 14203}# 'any)
+ 'each-any
+ (vector 'each #{p 14203}#))
+ #{ids 14204}#))))
+ #{tmp 14096}#)
+ (let ((#{tmp 14205}#
+ ($sc-dispatch #{p 13772}# '(any any . any))))
+ (if (if #{tmp 14205}#
+ (@apply
+ (lambda (#{x 14209}#
+ #{dots 14210}#
+ #{ys 14211}#)
+ (if (if (if (vector? #{dots 14210}#)
+ (if (= (vector-length
+ #{dots 14210}#)
+ 4)
+ (eq? (vector-ref
+ #{dots 14210}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol?
+ (vector-ref #{dots 14210}# 1))
+ #f)
+ (if (eq? (if (if (vector?
+ #{dots 14210}#)
+ (if (= (vector-length
+ #{dots 14210}#)
+ 4)
+ (eq? (vector-ref
+ #{dots 14210}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref
+ #{dots 14210}#
+ 1)
+ #{dots 14210}#)
+ (if (if (= (vector-length
+ '#(syntax-object
+ ...
((top)
- (top)
- (top))
- ("i46"
- "i45"
- "i44")))
- (hygiene guile))
- 0)
- 'syntax-object)
- #f)
- (vector-ref
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i2218"))
+ #(ribcage
+
(lambda-var-list
+ gen-var
+ strip
+
expand-lambda-case
+
lambda*-formals
+
expand-simple-lambda
+
lambda-formals
+ ellipsis?
+
expand-void
+
eval-local-transformer
+
expand-local-syntax
+
expand-body
+
expand-macro
+
expand-application
+
expand-expr
+ expand
+
syntax-type
+
parse-when-list
+
expand-install-global
+
expand-top-sequence
+
expand-sequence
+
source-wrap
+ wrap
+
bound-id-member?
+
distinct-bound-ids?
+
valid-bound-ids?
+
bound-id=?
+ free-id=?
+
id-var-name
+
same-marks?
+
join-marks
+
join-wraps
+
smart-append
+
make-binding-wrap
+
extend-ribcage!
+
make-empty-ribcage
+ new-mark
+ anti-mark
+
the-anti-mark
+
top-marked?
+ top-wrap
+
empty-wrap
+
set-ribcage-labels!
+
set-ribcage-marks!
+
set-ribcage-symnames!
+
ribcage-labels
+
ribcage-marks
+
ribcage-symnames
+ ribcage?
+
make-ribcage
+
gen-labels
+ gen-label
+
make-rename
+
rename-marks
+
rename-new
+
rename-old
+
subst-rename?
+
wrap-subst
+
wrap-marks
+ make-wrap
+
id-sym-name&marks
+
id-sym-name
+ id?
+
nonsymbol-id?
+
global-extend
+ lookup
+
macros-only-env
+
extend-var-env
+
extend-env
+ null-env
+
binding-value
+
binding-type
+
make-binding
+ arg-check
+
source-annotation
+ no-source
+
set-syntax-object-module!
+
set-syntax-object-wrap!
+
set-syntax-object-expression!
+
syntax-object-module
+
syntax-object-wrap
+
syntax-object-expression
+
syntax-object?
+
make-syntax-object
+
build-lexical-var
+
build-letrec
+
build-named-let
+ build-let
+
build-sequence
+
build-data
+
build-primref
+
build-lambda-case
+
build-case-lambda
+
build-simple-lambda
+
build-global-definition
+
build-global-assignment
+
build-global-reference
+
analyze-variable
+
build-lexical-assignment
+
build-lexical-reference
+
build-dynlet
+
build-conditional
+
build-application
+
build-void
+
maybe-name-value!
+
decorate-source
+
get-global-definition-hook
+
put-global-definition-hook
+
gensym-hook
+
local-eval-hook
+
top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+
set-lambda-meta!
+
lambda-meta
+ lambda?
+
make-dynlet
+
make-letrec
+ make-let
+
make-lambda-case
+
make-lambda
+
make-sequence
+
make-application
+
make-conditional
+
make-toplevel-define
+
make-toplevel-set
+
make-toplevel-ref
+
make-module-set
+
make-module-ref
+
make-lexical-set
+
make-lexical-ref
+
make-primitive-ref
+
make-const
+
make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i398"
+ "i396"
+ "i393"
+ "i392"
+ "i391"
+ "i389"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i357"
+ "i356"
+ "i355"
+ "i353"
+ "i352"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i336"
+ "i335"
+ "i333"
+ "i331"
+ "i330"
+ "i327"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i260"
+ "i257"
+ "i255"
+ "i254"
+ "i253"
+ "i252"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
+ #(ribcage
+
(define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+ ((top)
+ (top)
+ (top))
+ ("i46"
+ "i45"
+ "i44")))
+ (hygiene
+ guile)))
+ 4)
+ #t
+ #f)
+ '...
+ '#(syntax-object
+ ...
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i2218"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ expand-lambda-case
+ lambda*-formals
+ expand-simple-lambda
+ lambda-formals
+ ellipsis?
+ expand-void
+
eval-local-transformer
+ expand-local-syntax
+ expand-body
+ expand-macro
+ expand-application
+ expand-expr
+ expand
+ syntax-type
+ parse-when-list
+
expand-install-global
+ expand-top-sequence
+ expand-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+
set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+
set-syntax-object-module!
+
set-syntax-object-wrap!
+
set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+
syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+
build-global-definition
+
build-global-assignment
+
build-global-reference
+ analyze-variable
+
build-lexical-assignment
+
build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+
get-global-definition-hook
+
put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i398"
+ "i396"
+ "i393"
+ "i392"
+ "i391"
+ "i389"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i357"
+ "i356"
+ "i355"
+ "i353"
+ "i352"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i336"
+ "i335"
+ "i333"
+ "i331"
+ "i330"
+ "i327"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i260"
+ "i257"
+ "i255"
+ "i254"
+ "i253"
+ "i252"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
+ #(ribcage
+ (define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+ ((top) (top) (top))
+ ("i46" "i45" "i44")))
+ (hygiene guile))))
+ (eq? (#{id-var-name 4320}#
+ #{dots 14210}#
+ '(()))
+ (#{id-var-name 4320}#
+ '#(syntax-object
+ ...
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i2218"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ expand-lambda-case
+ lambda*-formals
+ expand-simple-lambda
+ lambda-formals
+ ellipsis?
+ expand-void
+ eval-local-transformer
+ expand-local-syntax
+ expand-body
+ expand-macro
+ expand-application
+ expand-expr
+ expand
+ syntax-type
+ parse-when-list
+ expand-install-global
+ expand-top-sequence
+ expand-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+
set-syntax-object-module!
+
set-syntax-object-wrap!
+
set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+
syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+
build-global-definition
+
build-global-assignment
+ build-global-reference
+ analyze-variable
+
build-lexical-assignment
+
build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+
get-global-definition-hook
+
put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i398"
+ "i396"
+ "i393"
+ "i392"
+ "i391"
+ "i389"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i357"
+ "i356"
+ "i355"
+ "i353"
+ "i352"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i336"
+ "i335"
+ "i333"
+ "i331"
+ "i330"
+ "i327"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i260"
+ "i257"
+ "i255"
+ "i254"
+ "i253"
+ "i252"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
+ #(ribcage
+ (define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+ ((top) (top) (top))
+ ("i46" "i45" "i44")))
+ (hygiene guile))
+ '(())))
+ #f)
+ #f))
+ #{tmp 14205}#)
+ #f)
+ (@apply
+ (lambda (#{x 14311}#
+ #{dots 14312}#
+ #{ys 14313}#)
+ (call-with-values
+ (lambda ()
+ (#{cvt* 13767}#
+ #{ys 14313}#
+ #{n 13773}#
+ #{ids 13774}#))
+ (lambda (#{ys 14316}# #{ids 14317}#)
+ (call-with-values
+ (lambda ()
+ (#{cvt 13769}#
+ #{x 14311}#
+ (#{1+}# #{n 13773}#)
+ #{ids 14317}#))
+ (lambda (#{x 14318}# #{ids 14319}#)
+ (call-with-values
+ (lambda ()
+ (#{v-reverse 13768}#
+ #{ys 14316}#))
+ (lambda (#{ys 14352}# #{e 14353}#)
+ (values
+ (vector
+ 'each+
+ #{x 14318}#
+ #{ys 14352}#
+ #{e 14353}#)
+ #{ids 14319}#))))))))
+ #{tmp 14205}#)
+ (let ((#{tmp 14354}#
+ ($sc-dispatch #{p 13772}# '(any . any))))
+ (if #{tmp 14354}#
+ (@apply
+ (lambda (#{x 14358}# #{y 14359}#)
+ (call-with-values
+ (lambda ()
+ (#{cvt 13769}#
+ #{y 14359}#
+ #{n 13773}#
+ #{ids 13774}#))
+ (lambda (#{y 14360}# #{ids 14361}#)
+ (call-with-values
+ (lambda ()
+ (#{cvt 13769}#
+ #{x 14358}#
+ #{n 13773}#
+ #{ids 14361}#))
+ (lambda (#{x 14362}# #{ids 14363}#)
+ (values
+ (cons #{x 14362}# #{y 14360}#)
+ #{ids 14363}#))))))
+ #{tmp 14354}#)
+ (let ((#{tmp 14364}#
+ ($sc-dispatch #{p 13772}# '())))
+ (if #{tmp 14364}#
+ (@apply
+ (lambda () (values '() #{ids 13774}#))
+ #{tmp 14364}#)
+ (let ((#{tmp 14368}#
+ ($sc-dispatch
+ #{p 13772}#
+ '#(vector each-any))))
+ (if #{tmp 14368}#
+ (@apply
+ (lambda (#{x 14372}#)
+ (call-with-values
+ (lambda ()
+ (#{cvt 13769}#
+ #{x 14372}#
+ #{n 13773}#
+ #{ids 13774}#))
+ (lambda (#{p 14373}#
+ #{ids 14374}#)
+ (values
+ (vector
+ 'vector
+ #{p 14373}#)
+ #{ids 14374}#))))
+ #{tmp 14368}#)
+ (values
+ (vector
+ 'atom
+ (#{strip 4346}#
+ #{p 13772}#
+ '(())))
+ #{ids 13774}#)))))))))))))))
+ (#{cvt 13769}# #{pattern 13765}# 0 '()))))
+ (#{build-dispatch-call 12143}#
+ (lambda (#{pvars 14484}#
+ #{exp 14485}#
+ #{y 14486}#
+ #{r 14487}#
+ #{mod 14488}#)
+ (let ((#{ids 14489}# (map car #{pvars 14484}#)))
+ (begin
+ (map cdr #{pvars 14484}#)
+ (let ((#{labels 14491}#
+ (#{gen-labels 4304}# #{ids 14489}#))
+ (#{new-vars 14492}#
+ (map #{gen-var 4347}# #{ids 14489}#)))
+ (#{build-application 4268}#
+ #f
+ (if (equal? (module-name (current-module)) '(guile))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 7)
+ #f
+ 'apply)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 5)
+ #f
+ '(guile)
+ 'apply
+ #f))
+ (list (#{build-simple-lambda 4277}#
+ #f
+ (map syntax->datum #{ids 14489}#)
+ #f
+ #{new-vars 14492}#
+ '()
+ (#{expand 4333}#
+ #{exp 14485}#
+ (#{extend-env 4295}#
+ #{labels 14491}#
+ (map (lambda (#{var 14817}# #{level 14818}#)
+ (cons 'syntax
+ (cons #{var 14817}#
+ #{level 14818}#)))
+ #{new-vars 14492}#
+ (map cdr #{pvars 14484}#))
+ #{r 14487}#)
+ (#{make-binding-wrap 4315}#
+ #{ids 14489}#
+ #{labels 14491}#
+ '(()))
+ #{mod 14488}#))
+ #{y 14486}#)))))))
+ (#{gen-clause 12144}#
+ (lambda (#{x 13126}#
+ #{keys 13127}#
+ #{clauses 13128}#
+ #{r 13129}#
+ #{pat 13130}#
+ #{fender 13131}#
+ #{exp 13132}#
+ #{mod 13133}#)
+ (call-with-values
+ (lambda ()
+ (#{convert-pattern 12142}#
+ #{pat 13130}#
+ #{keys 13127}#))
+ (lambda (#{p 13288}# #{pvars 13289}#)
+ (if (not (#{distinct-bound-ids? 4324}#
+ (map car #{pvars 13289}#)))
+ (syntax-violation
+ 'syntax-case
+ "duplicate pattern variable"
+ #{pat 13130}#)
+ (if (not (and-map
+ (lambda (#{x 13409}#)
+ (not (let ((#{x 13413}# (car #{x 13409}#)))
+ (if (if (if (vector? #{x 13413}#)
+ (if (= (vector-length
+ #{x 13413}#)
+ 4)
+ (eq? (vector-ref
+ #{x 13413}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol?
+ (vector-ref #{x 13413}# 1))
+ #f)
+ (if (eq? (if (if (vector? #{x 13413}#)
+ (if (= (vector-length
+ #{x 13413}#)
+ 4)
+ (eq? (vector-ref
+ #{x 13413}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref #{x 13413}# 1)
+ #{x 13413}#)
+ (if (if (= (vector-length
+ '#(syntax-object
+ ...
+ ((top)
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(x)
+ #((top))
+
#("i2218"))
+ #(ribcage
+
(lambda-var-list
+ gen-var
+ strip
+
expand-lambda-case
+
lambda*-formals
+
expand-simple-lambda
+
lambda-formals
+
ellipsis?
+
expand-void
+
eval-local-transformer
+
expand-local-syntax
+
expand-body
+
expand-macro
+
expand-application
+
expand-expr
+ expand
+
syntax-type
+
parse-when-list
+
expand-install-global
+
expand-top-sequence
+
expand-sequence
+
source-wrap
+ wrap
+
bound-id-member?
+
distinct-bound-ids?
+
valid-bound-ids?
+
bound-id=?
+
free-id=?
+
id-var-name
+
same-marks?
+
join-marks
+
join-wraps
+
smart-append
+
make-binding-wrap
+
extend-ribcage!
+
make-empty-ribcage
+ new-mark
+
anti-mark
+
the-anti-mark
+
top-marked?
+ top-wrap
+
empty-wrap
+
set-ribcage-labels!
+
set-ribcage-marks!
+
set-ribcage-symnames!
+
ribcage-labels
+
ribcage-marks
+
ribcage-symnames
+ ribcage?
+
make-ribcage
+
gen-labels
+
gen-label
+
make-rename
+
rename-marks
+
rename-new
+
rename-old
+
subst-rename?
+
wrap-subst
+
wrap-marks
+
make-wrap
+
id-sym-name&marks
+
id-sym-name
+ id?
+
nonsymbol-id?
+
global-extend
+ lookup
+
macros-only-env
+
extend-var-env
+
extend-env
+ null-env
+
binding-value
+
binding-type
+
make-binding
+
arg-check
+
source-annotation
+
no-source
+
set-syntax-object-module!
+
set-syntax-object-wrap!
+
set-syntax-object-expression!
+
syntax-object-module
+
syntax-object-wrap
+
syntax-object-expression
+
syntax-object?
+
make-syntax-object
+
build-lexical-var
+
build-letrec
+
build-named-let
+
build-let
+
build-sequence
+
build-data
+
build-primref
+
build-lambda-case
+
build-case-lambda
+
build-simple-lambda
+
build-global-definition
+
build-global-assignment
+
build-global-reference
+
analyze-variable
+
build-lexical-assignment
+
build-lexical-reference
+
build-dynlet
+
build-conditional
+
build-application
+
build-void
+
maybe-name-value!
+
decorate-source
+
get-global-definition-hook
+
put-global-definition-hook
+
gensym-hook
+
local-eval-hook
+
top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+
set-lambda-meta!
+
lambda-meta
+ lambda?
+
make-dynlet
+
make-letrec
+ make-let
+
make-lambda-case
+
make-lambda
+
make-sequence
+
make-application
+
make-conditional
+
make-toplevel-define
+
make-toplevel-set
+
make-toplevel-ref
+
make-module-set
+
make-module-ref
+
make-lexical-set
+
make-lexical-ref
+
make-primitive-ref
+
make-const
+
make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i398"
+ "i396"
+ "i393"
+ "i392"
+ "i391"
+ "i389"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i357"
+ "i356"
+ "i355"
+ "i353"
+ "i352"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i336"
+ "i335"
+ "i333"
+ "i331"
+ "i330"
+ "i327"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i260"
+ "i257"
+ "i255"
+ "i254"
+ "i253"
+ "i252"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
+ #(ribcage
+
(define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+ ((top)
+ (top)
+ (top))
+ ("i46"
+ "i45"
+ "i44")))
+ (hygiene
+ guile)))
+ 4)
+ #t
+ #f)
+ '...
+ '#(syntax-object
+ ...
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i2218"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ expand-lambda-case
+ lambda*-formals
+
expand-simple-lambda
+ lambda-formals
+ ellipsis?
+ expand-void
+
eval-local-transformer
+ expand-local-syntax
+ expand-body
+ expand-macro
+ expand-application
+ expand-expr
+ expand
+ syntax-type
+ parse-when-list
+
expand-install-global
+ expand-top-sequence
+ expand-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+
set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+
set-syntax-object-module!
+
set-syntax-object-wrap!
+
set-syntax-object-expression!
+
syntax-object-module
+ syntax-object-wrap
+
syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+
build-global-definition
+
build-global-assignment
+
build-global-reference
+ analyze-variable
+
build-lexical-assignment
+
build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+
get-global-definition-hook
+
put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+
make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i398"
+ "i396"
+ "i393"
+ "i392"
+ "i391"
+ "i389"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i357"
+ "i356"
+ "i355"
+ "i353"
+ "i352"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i336"
+ "i335"
+ "i333"
+ "i331"
+ "i330"
+ "i327"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i260"
+ "i257"
+ "i255"
+ "i254"
+ "i253"
+ "i252"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
+ #(ribcage
+ (define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+ ((top) (top) (top))
+ ("i46" "i45" "i44")))
+ (hygiene guile))))
+ (eq? (#{id-var-name 4320}#
+ #{x 13413}#
+ '(()))
+ (#{id-var-name 4320}#
'#(syntax-object
...
((top)
@@ -35912,29 +16015,29 @@
#(ribcage
#(x)
#((top))
- #("i2230"))
+ #("i2218"))
#(ribcage
(lambda-var-list
gen-var
strip
- chi-lambda-case
+ expand-lambda-case
lambda*-formals
- chi-simple-lambda
+ expand-simple-lambda
lambda-formals
ellipsis?
- chi-void
+ expand-void
eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
+ expand-local-syntax
+ expand-body
+ expand-macro
+ expand-application
+ expand-expr
+ expand
syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
+ parse-when-list
+ expand-install-global
+ expand-top-sequence
+ expand-sequence
source-wrap
wrap
bound-id-member?
@@ -36329,7 +16432,3941 @@
((top) (top) (top))
("i46" "i45" "i44")))
(hygiene guile))
- 1)
+ '(())))
+ #f)
+ #f))))
+ #{pvars 13289}#))
+ (syntax-violation
+ 'syntax-case
+ "misplaced ellipsis"
+ #{pat 13130}#)
+ (let ((#{y 13489}#
+ (gensym
+ (string-append (symbol->string 'tmp) " "))))
+ (#{build-application 4268}#
+ #f
+ (let ((#{req 13639}# (list 'tmp))
+ (#{vars 13641}# (list #{y 13489}#))
+ (#{exp 13643}#
+ (let ((#{y 13660}#
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 3)
+ #f
+ 'tmp
+ #{y 13489}#)))
+ (let ((#{test-exp 13664}#
+ (let ((#{tmp 13673}#
+ ($sc-dispatch
+ #{fender 13131}#
+ '#(atom #t))))
+ (if #{tmp 13673}#
+ (@apply
+ (lambda () #{y 13660}#)
+ #{tmp 13673}#)
+ (let ((#{then-exp 13691}#
+ (#{build-dispatch-call
12143}#
+ #{pvars 13289}#
+ #{fender 13131}#
+ #{y 13660}#
+ #{r 13129}#
+ #{mod 13133}#))
+ (#{else-exp 13692}#
+ (make-struct/no-tail
+ (vector-ref
+ %expanded-vtables
+ 1)
+ #f
+ #f)))
+ (make-struct/no-tail
+ (vector-ref
+ %expanded-vtables
+ 10)
+ #f
+ #{y 13660}#
+ #{then-exp 13691}#
+ #{else-exp 13692}#)))))
+ (#{then-exp 13665}#
+ (#{build-dispatch-call 12143}#
+ #{pvars 13289}#
+ #{exp 13132}#
+ #{y 13660}#
+ #{r 13129}#
+ #{mod 13133}#))
+ (#{else-exp 13666}#
+ (#{gen-syntax-case 12145}#
+ #{x 13126}#
+ #{keys 13127}#
+ #{clauses 13128}#
+ #{r 13129}#
+ #{mod 13133}#)))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 10)
+ #f
+ #{test-exp 13664}#
+ #{then-exp 13665}#
+ #{else-exp 13666}#)))))
+ (let ((#{body 13648}#
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 14)
+ #f
+ #{req 13639}#
+ #f
+ #f
+ #f
+ '()
+ #{vars 13641}#
+ #{exp 13643}#
+ #f)))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 13)
+ #f
+ '()
+ #{body 13648}#)))
+ (list (if (eq? #{p 13288}# 'any)
+ (let ((#{fun-exp 13714}#
+ (if (equal?
+ (module-name (current-module))
+ '(guile))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 7)
+ #f
+ 'list)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 5)
+ #f
+ '(guile)
+ 'list
+ #f)))
+ (#{arg-exps 13715}# (list #{x 13126}#)))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 11)
+ #f
+ #{fun-exp 13714}#
+ #{arg-exps 13715}#))
+ (let ((#{fun-exp 13738}#
+ (if (equal?
+ (module-name (current-module))
+ '(guile))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 7)
+ #f
+ '$sc-dispatch)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 5)
+ #f
+ '(guile)
+ '$sc-dispatch
+ #f)))
+ (#{arg-exps 13739}#
+ (list #{x 13126}#
+ (make-struct/no-tail
+ (vector-ref
+ %expanded-vtables
+ 1)
+ #f
+ #{p 13288}#))))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 11)
+ #f
+ #{fun-exp 13738}#
+ #{arg-exps 13739}#))))))))))))
+ (#{gen-syntax-case 12145}#
+ (lambda (#{x 12554}#
+ #{keys 12555}#
+ #{clauses 12556}#
+ #{r 12557}#
+ #{mod 12558}#)
+ (if (null? #{clauses 12556}#)
+ (let ((#{fun-exp 12563}#
+ (if (equal? (module-name (current-module)) '(guile))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 7)
+ #f
+ 'syntax-violation)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 5)
+ #f
+ '(guile)
+ 'syntax-violation
+ #f)))
+ (#{arg-exps 12564}#
+ (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 12554}#)))
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 11)
+ #f
+ #{fun-exp 12563}#
+ #{arg-exps 12564}#))
+ (let ((#{tmp 12597}# (car #{clauses 12556}#)))
+ (let ((#{tmp 12598}#
+ ($sc-dispatch #{tmp 12597}# '(any any))))
+ (if #{tmp 12598}#
+ (@apply
+ (lambda (#{pat 12600}# #{exp 12601}#)
+ (if (if (if (symbol? #{pat 12600}#)
+ #t
+ (if (if (vector? #{pat 12600}#)
+ (if (= (vector-length #{pat 12600}#)
+ 4)
+ (eq? (vector-ref #{pat 12600}# 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref #{pat 12600}# 1))
+ #f))
+ (and-map
+ (lambda (#{x 12628}#)
+ (not (if (eq? (if (if (vector?
+ #{pat 12600}#)
+ (if (= (vector-length
+ #{pat 12600}#)
+ 4)
+ (eq? (vector-ref
+ #{pat 12600}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref #{pat 12600}# 1)
+ #{pat 12600}#)
+ (if (if (vector? #{x 12628}#)
+ (if (= (vector-length
+ #{x 12628}#)
+ 4)
+ (eq? (vector-ref
+ #{x 12628}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref #{x 12628}# 1)
+ #{x 12628}#))
+ (eq? (#{id-var-name 4320}#
+ #{pat 12600}#
+ '(()))
+ (#{id-var-name 4320}#
+ #{x 12628}#
+ '(())))
+ #f)))
+ (cons '#(syntax-object
+ ...
+ ((top)
+ #(ribcage
+ #(pat exp)
+ #((top) (top))
+ #("i3899" "i3900"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x keys clauses r mod)
+ #((top) (top) (top) (top) (top))
+ #("i3888"
+ "i3889"
+ "i3890"
+ "i3891"
+ "i3892"))
+ #(ribcage
+ (gen-syntax-case
+ gen-clause
+ build-dispatch-call
+ convert-pattern)
+ ((top) (top) (top) (top))
+ ("i3698" "i3696" "i3694" "i3692"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ expand-lambda-case
+ lambda*-formals
+ expand-simple-lambda
+ lambda-formals
+ ellipsis?
+ expand-void
+ eval-local-transformer
+ expand-local-syntax
+ expand-body
+ expand-macro
+ expand-application
+ expand-expr
+ expand
+ syntax-type
+ parse-when-list
+ expand-install-global
+ expand-top-sequence
+ expand-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i398"
+ "i396"
+ "i393"
+ "i392"
+ "i391"
+ "i389"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i357"
+ "i356"
+ "i355"
+ "i353"
+ "i352"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i336"
+ "i335"
+ "i333"
+ "i331"
+ "i330"
+ "i327"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i260"
+ "i257"
+ "i255"
+ "i254"
+ "i253"
+ "i252"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("i46" "i45" "i44")))
+ (hygiene guile))
+ #{keys 12555}#))
+ #f)
+ (if (if (eq? (if (if (= (vector-length
+ '#(syntax-object
+ pad
+ ((top)
+ #(ribcage
+ #(pat exp)
+ #((top) (top))
+ #("i3899" "i3900"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x
+ keys
+ clauses
+ r
+ mod)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i3888"
+ "i3889"
+ "i3890"
+ "i3891"
+ "i3892"))
+ #(ribcage
+ (gen-syntax-case
+ gen-clause
+
build-dispatch-call
+ convert-pattern)
+ ((top)
+ (top)
+ (top)
+ (top))
+ ("i3698"
+ "i3696"
+ "i3694"
+ "i3692"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ expand-lambda-case
+ lambda*-formals
+
expand-simple-lambda
+ lambda-formals
+ ellipsis?
+ expand-void
+
eval-local-transformer
+
expand-local-syntax
+ expand-body
+ expand-macro
+ expand-application
+ expand-expr
+ expand
+ syntax-type
+ parse-when-list
+
expand-install-global
+
expand-top-sequence
+ expand-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+
distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+
set-ribcage-labels!
+ set-ribcage-marks!
+
set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+
set-syntax-object-module!
+
set-syntax-object-wrap!
+
set-syntax-object-expression!
+
syntax-object-module
+ syntax-object-wrap
+
syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+
build-simple-lambda
+
build-global-definition
+
build-global-assignment
+
build-global-reference
+ analyze-variable
+
build-lexical-assignment
+
build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+
get-global-definition-hook
+
put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+
top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+
make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i398"
+ "i396"
+ "i393"
+ "i392"
+ "i391"
+ "i389"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i357"
+ "i356"
+ "i355"
+ "i353"
+ "i352"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i336"
+ "i335"
+ "i333"
+ "i331"
+ "i330"
+ "i327"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i260"
+ "i257"
+ "i255"
+ "i254"
+ "i253"
+ "i252"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
+ #(ribcage
+ (define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+ ((top) (top) (top))
+ ("i46"
+ "i45"
+ "i44")))
+ (hygiene guile)))
+ 4)
+ #t
+ #f)
+ 'pad
+ '#(syntax-object
+ pad
+ ((top)
+ #(ribcage
+ #(pat exp)
+ #((top) (top))
+ #("i3899" "i3900"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x keys clauses r mod)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i3888"
+ "i3889"
+ "i3890"
+ "i3891"
+ "i3892"))
+ #(ribcage
+ (gen-syntax-case
+ gen-clause
+ build-dispatch-call
+ convert-pattern)
+ ((top) (top) (top) (top))
+ ("i3698"
+ "i3696"
+ "i3694"
+ "i3692"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ expand-lambda-case
+ lambda*-formals
+ expand-simple-lambda
+ lambda-formals
+ ellipsis?
+ expand-void
+ eval-local-transformer
+ expand-local-syntax
+ expand-body
+ expand-macro
+ expand-application
+ expand-expr
+ expand
+ syntax-type
+ parse-when-list
+ expand-install-global
+ expand-top-sequence
+ expand-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i398"
+ "i396"
+ "i393"
+ "i392"
+ "i391"
+ "i389"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i357"
+ "i356"
+ "i355"
+ "i353"
+ "i352"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i336"
+ "i335"
+ "i333"
+ "i331"
+ "i330"
+ "i327"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i260"
+ "i257"
+ "i255"
+ "i254"
+ "i253"
+ "i252"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+
define-expansion-constructors)
+ ((top) (top) (top))
+ ("i46" "i45" "i44")))
+ (hygiene guile)))
+ (if (if (= (vector-length
+ '#(syntax-object
+ _
+ ((top)
+ #(ribcage
+ #(pat exp)
+ #((top) (top))
+ #("i3899" "i3900"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x
+ keys
+ clauses
+ r
+ mod)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i3888"
+ "i3889"
+ "i3890"
+ "i3891"
+ "i3892"))
+ #(ribcage
+ (gen-syntax-case
+ gen-clause
+
build-dispatch-call
+ convert-pattern)
+ ((top)
+ (top)
+ (top)
+ (top))
+ ("i3698"
+ "i3696"
+ "i3694"
+ "i3692"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ expand-lambda-case
+ lambda*-formals
+
expand-simple-lambda
+ lambda-formals
+ ellipsis?
+ expand-void
+
eval-local-transformer
+
expand-local-syntax
+ expand-body
+ expand-macro
+ expand-application
+ expand-expr
+ expand
+ syntax-type
+ parse-when-list
+
expand-install-global
+
expand-top-sequence
+ expand-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+
distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+
set-ribcage-labels!
+ set-ribcage-marks!
+
set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+
set-syntax-object-module!
+
set-syntax-object-wrap!
+
set-syntax-object-expression!
+
syntax-object-module
+ syntax-object-wrap
+
syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+
build-simple-lambda
+
build-global-definition
+
build-global-assignment
+
build-global-reference
+ analyze-variable
+
build-lexical-assignment
+
build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+
get-global-definition-hook
+
put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+
top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+
make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i398"
+ "i396"
+ "i393"
+ "i392"
+ "i391"
+ "i389"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i357"
+ "i356"
+ "i355"
+ "i353"
+ "i352"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i336"
+ "i335"
+ "i333"
+ "i331"
+ "i330"
+ "i327"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i260"
+ "i257"
+ "i255"
+ "i254"
+ "i253"
+ "i252"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
+ #(ribcage
+ (define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+ ((top) (top) (top))
+ ("i46"
+ "i45"
+ "i44")))
+ (hygiene guile)))
+ 4)
+ #t
+ #f)
+ '_
+ '#(syntax-object
+ _
+ ((top)
+ #(ribcage
+ #(pat exp)
+ #((top) (top))
+ #("i3899" "i3900"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x keys clauses r mod)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i3888"
+ "i3889"
+ "i3890"
+ "i3891"
+ "i3892"))
+ #(ribcage
+ (gen-syntax-case
+ gen-clause
+ build-dispatch-call
+ convert-pattern)
+ ((top) (top) (top) (top))
+ ("i3698"
+ "i3696"
+ "i3694"
+ "i3692"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ expand-lambda-case
+ lambda*-formals
+ expand-simple-lambda
+ lambda-formals
+ ellipsis?
+ expand-void
+ eval-local-transformer
+ expand-local-syntax
+ expand-body
+ expand-macro
+ expand-application
+ expand-expr
+ expand
+ syntax-type
+ parse-when-list
+ expand-install-global
+ expand-top-sequence
+ expand-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i398"
+ "i396"
+ "i393"
+ "i392"
+ "i391"
+ "i389"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i357"
+ "i356"
+ "i355"
+ "i353"
+ "i352"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i336"
+ "i335"
+ "i333"
+ "i331"
+ "i330"
+ "i327"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i260"
+ "i257"
+ "i255"
+ "i254"
+ "i253"
+ "i252"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+
define-expansion-constructors)
+ ((top) (top) (top))
+ ("i46" "i45" "i44")))
+ (hygiene guile))))
+ (eq? (#{id-var-name 4320}#
+ '#(syntax-object
+ pad
+ ((top)
+ #(ribcage
+ #(pat exp)
+ #((top) (top))
+ #("i3899" "i3900"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x keys clauses r mod)
+ #((top) (top) (top) (top) (top))
+ #("i3888"
+ "i3889"
+ "i3890"
+ "i3891"
+ "i3892"))
+ #(ribcage
+ (gen-syntax-case
+ gen-clause
+ build-dispatch-call
+ convert-pattern)
+ ((top) (top) (top) (top))
+ ("i3698"
+ "i3696"
+ "i3694"
+ "i3692"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ expand-lambda-case
+ lambda*-formals
+ expand-simple-lambda
+ lambda-formals
+ ellipsis?
+ expand-void
+ eval-local-transformer
+ expand-local-syntax
+ expand-body
+ expand-macro
+ expand-application
+ expand-expr
+ expand
+ syntax-type
+ parse-when-list
+ expand-install-global
+ expand-top-sequence
+ expand-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i398"
+ "i396"
+ "i393"
+ "i392"
+ "i391"
+ "i389"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i357"
+ "i356"
+ "i355"
+ "i353"
+ "i352"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i336"
+ "i335"
+ "i333"
+ "i331"
+ "i330"
+ "i327"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i260"
+ "i257"
+ "i255"
+ "i254"
+ "i253"
+ "i252"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("i46" "i45" "i44")))
+ (hygiene guile))
+ '(()))
+ (#{id-var-name 4320}#
+ '#(syntax-object
+ _
+ ((top)
+ #(ribcage
+ #(pat exp)
+ #((top) (top))
+ #("i3899" "i3900"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x keys clauses r mod)
+ #((top) (top) (top) (top) (top))
+ #("i3888"
+ "i3889"
+ "i3890"
+ "i3891"
+ "i3892"))
+ #(ribcage
+ (gen-syntax-case
+ gen-clause
+ build-dispatch-call
+ convert-pattern)
+ ((top) (top) (top) (top))
+ ("i3698"
+ "i3696"
+ "i3694"
+ "i3692"))
+ #(ribcage
+ (lambda-var-list
+ gen-var
+ strip
+ expand-lambda-case
+ lambda*-formals
+ expand-simple-lambda
+ lambda-formals
+ ellipsis?
+ expand-void
+ eval-local-transformer
+ expand-local-syntax
+ expand-body
+ expand-macro
+ expand-application
+ expand-expr
+ expand
+ syntax-type
+ parse-when-list
+ expand-install-global
+ expand-top-sequence
+ expand-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-application
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-sequence
+ make-application
+ make-conditional
+ make-toplevel-define
+ make-toplevel-set
+ make-toplevel-ref
+ make-module-set
+ make-module-ref
+ make-lexical-set
+ make-lexical-ref
+ make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i398"
+ "i396"
+ "i393"
+ "i392"
+ "i391"
+ "i389"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i357"
+ "i356"
+ "i355"
+ "i353"
+ "i352"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i336"
+ "i335"
+ "i333"
+ "i331"
+ "i330"
+ "i327"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i260"
+ "i257"
+ "i255"
+ "i254"
+ "i253"
+ "i252"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("i46" "i45" "i44")))
+ (hygiene guile))
+ '(())))
+ #f)
+ (#{expand 4333}#
+ #{exp 12601}#
+ #{r 12557}#
+ '(())
+ #{mod 12558}#)
+ (let ((#{labels 12809}#
+ (list (symbol->string (gensym "i"))))
+ (#{var 12810}#
+ (let ((#{id 12848}#
+ (if (if (vector? #{pat 12600}#)
+ (if (= (vector-length
+ #{pat 12600}#)
+ 4)
+ (eq? (vector-ref
+ #{pat 12600}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref #{pat 12600}# 1)
+ #{pat 12600}#)))
+ (gensym
+ (string-append
+ (symbol->string #{id 12848}#)
+ " ")))))
+ (#{build-application 4268}#
+ #f
+ (#{build-simple-lambda 4277}#
+ #f
+ (list (syntax->datum #{pat 12600}#))
+ #f
+ (list #{var 12810}#)
+ '()
+ (#{expand 4333}#
+ #{exp 12601}#
+ (#{extend-env 4295}#
+ #{labels 12809}#
+ (list (cons 'syntax
+ (cons #{var 12810}# 0)))
+ #{r 12557}#)
+ (#{make-binding-wrap 4315}#
+ (list #{pat 12600}#)
+ #{labels 12809}#
+ '(()))
+ #{mod 12558}#))
+ (list #{x 12554}#))))
+ (#{gen-clause 12144}#
+ #{x 12554}#
+ #{keys 12555}#
+ (cdr #{clauses 12556}#)
+ #{r 12557}#
+ #{pat 12600}#
+ #t
+ #{exp 12601}#
+ #{mod 12558}#)))
+ #{tmp 12598}#)
+ (let ((#{tmp 13118}#
+ ($sc-dispatch #{tmp 12597}# '(any any any))))
+ (if #{tmp 13118}#
+ (@apply
+ (lambda (#{pat 13120}#
+ #{fender 13121}#
+ #{exp 13122}#)
+ (#{gen-clause 12144}#
+ #{x 12554}#
+ #{keys 12555}#
+ (cdr #{clauses 12556}#)
+ #{r 12557}#
+ #{pat 13120}#
+ #{fender 13121}#
+ #{exp 13122}#
+ #{mod 12558}#))
+ #{tmp 13118}#)
+ (syntax-violation
+ 'syntax-case
+ "invalid clause"
+ (car #{clauses 12556}#)))))))))))
+ (lambda (#{e 12146}#
+ #{r 12147}#
+ #{w 12148}#
+ #{s 12149}#
+ #{mod 12150}#)
+ (let ((#{e 12151}#
+ (#{wrap 4326}#
+ (begin
+ (if (if (pair? #{e 12146}#) #{s 12149}# #f)
+ (set-source-properties! #{e 12146}# #{s 12149}#))
+ #{e 12146}#)
+ #{w 12148}#
+ #{mod 12150}#)))
+ (let ((#{tmp 12153}#
+ ($sc-dispatch
+ #{e 12151}#
+ '(_ any each-any . each-any))))
+ (if #{tmp 12153}#
+ (@apply
+ (lambda (#{val 12178}# #{key 12179}# #{m 12180}#)
+ (if (and-map
+ (lambda (#{x 12181}#)
+ (if (if (symbol? #{x 12181}#)
+ #t
+ (if (if (vector? #{x 12181}#)
+ (if (= (vector-length #{x 12181}#) 4)
+ (eq? (vector-ref #{x 12181}# 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref #{x 12181}# 1))
+ #f))
+ (not (if (if (if (vector? #{x 12181}#)
+ (if (= (vector-length #{x 12181}#)
+ 4)
+ (eq? (vector-ref #{x 12181}# 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol? (vector-ref #{x 12181}# 1))
+ #f)
+ (if (eq? (if (if (vector? #{x 12181}#)
+ (if (= (vector-length
+ #{x 12181}#)
+ 4)
+ (eq? (vector-ref
+ #{x 12181}#
+ 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (vector-ref #{x 12181}# 1)
+ #{x 12181}#)
+ (if (if (= (vector-length
+ '#(syntax-object
+ ...
+ ((top)
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(x)
+ #((top))
+ #("i2218"))
+ #(ribcage
+
(lambda-var-list
+ gen-var
+ strip
+
expand-lambda-case
+
lambda*-formals
+
expand-simple-lambda
+
lambda-formals
+ ellipsis?
+ expand-void
+
eval-local-transformer
+
expand-local-syntax
+ expand-body
+ expand-macro
+
expand-application
+ expand-expr
+ expand
+ syntax-type
+
parse-when-list
+
expand-install-global
+
expand-top-sequence
+
expand-sequence
+ source-wrap
+ wrap
+
bound-id-member?
+
distinct-bound-ids?
+
valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+
make-binding-wrap
+
extend-ribcage!
+
make-empty-ribcage
+ new-mark
+ anti-mark
+
the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+
set-ribcage-labels!
+
set-ribcage-marks!
+
set-ribcage-symnames!
+
ribcage-labels
+
ribcage-marks
+
ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+
subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+
id-sym-name&marks
+ id-sym-name
+ id?
+
nonsymbol-id?
+
global-extend
+ lookup
+
macros-only-env
+
extend-var-env
+ extend-env
+ null-env
+
binding-value
+ binding-type
+ make-binding
+ arg-check
+
source-annotation
+ no-source
+
set-syntax-object-module!
+
set-syntax-object-wrap!
+
set-syntax-object-expression!
+
syntax-object-module
+
syntax-object-wrap
+
syntax-object-expression
+
syntax-object?
+
make-syntax-object
+
build-lexical-var
+ build-letrec
+
build-named-let
+ build-let
+
build-sequence
+ build-data
+
build-primref
+
build-lambda-case
+
build-case-lambda
+
build-simple-lambda
+
build-global-definition
+
build-global-assignment
+
build-global-reference
+
analyze-variable
+
build-lexical-assignment
+
build-lexical-reference
+ build-dynlet
+
build-conditional
+
build-application
+ build-void
+
maybe-name-value!
+
decorate-source
+
get-global-definition-hook
+
put-global-definition-hook
+ gensym-hook
+
local-eval-hook
+
top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+
set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+
make-lambda-case
+ make-lambda
+
make-sequence
+
make-application
+
make-conditional
+
make-toplevel-define
+
make-toplevel-set
+
make-toplevel-ref
+
make-module-set
+
make-module-ref
+
make-lexical-set
+
make-lexical-ref
+
make-primitive-ref
+ make-const
+ make-void)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i467"
+ "i465"
+ "i463"
+ "i461"
+ "i459"
+ "i457"
+ "i455"
+ "i453"
+ "i451"
+ "i449"
+ "i447"
+ "i445"
+ "i443"
+ "i441"
+ "i439"
+ "i437"
+ "i435"
+ "i433"
+ "i431"
+ "i429"
+ "i427"
+ "i425"
+ "i423"
+ "i421"
+ "i419"
+ "i417"
+ "i415"
+ "i413"
+ "i411"
+ "i409"
+ "i407"
+ "i405"
+ "i403"
+ "i401"
+ "i399"
+ "i398"
+ "i396"
+ "i393"
+ "i392"
+ "i391"
+ "i389"
+ "i388"
+ "i386"
+ "i384"
+ "i382"
+ "i380"
+ "i378"
+ "i376"
+ "i374"
+ "i372"
+ "i369"
+ "i367"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i358"
+ "i357"
+ "i356"
+ "i355"
+ "i353"
+ "i352"
+ "i349"
+ "i347"
+ "i345"
+ "i343"
+ "i341"
+ "i339"
+ "i337"
+ "i336"
+ "i335"
+ "i333"
+ "i331"
+ "i330"
+ "i327"
+ "i326"
+ "i324"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i305"
+ "i303"
+ "i301"
+ "i299"
+ "i297"
+ "i295"
+ "i293"
+ "i291"
+ "i289"
+ "i287"
+ "i285"
+ "i283"
+ "i281"
+ "i279"
+ "i277"
+ "i275"
+ "i273"
+ "i271"
+ "i269"
+ "i267"
+ "i265"
+ "i263"
+ "i261"
+ "i260"
+ "i257"
+ "i255"
+ "i254"
+ "i253"
+ "i252"
+ "i251"
+ "i249"
+ "i247"
+ "i245"
+ "i242"
+ "i240"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"))
+ #(ribcage
+
(define-structure
+
define-expansion-accessors
+
define-expansion-constructors)
+ ((top)
+ (top)
+ (top))
+ ("i46"
+ "i45"
+ "i44")))
+ (hygiene guile)))
+ 4)
+ #t
+ #f)
+ '...
'#(syntax-object
...
((top)
@@ -36338,29 +20375,29 @@
#(ribcage
#(x)
#((top))
- #("i2230"))
+ #("i2218"))
#(ribcage
(lambda-var-list
gen-var
strip
- chi-lambda-case
+ expand-lambda-case
lambda*-formals
- chi-simple-lambda
+ expand-simple-lambda
lambda-formals
ellipsis?
- chi-void
+ expand-void
eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
+ expand-local-syntax
+ expand-body
+ expand-macro
+ expand-application
+ expand-expr
+ expand
syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
+ parse-when-list
+ expand-install-global
+ expand-top-sequence
+ expand-sequence
source-wrap
wrap
bound-id-member?
@@ -36755,10 +20792,10 @@
((top) (top) (top))
("i46" "i45" "i44")))
(hygiene guile))))
- (eq? (#{id-var-name 4332}#
- #{x 12187}#
+ (eq? (#{id-var-name 4320}#
+ #{x 12181}#
'(()))
- (#{id-var-name 4332}#
+ (#{id-var-name 4320}#
'#(syntax-object
...
((top)
@@ -36767,29 +20804,29 @@
#(ribcage
#(x)
#((top))
- #("i2230"))
+ #("i2218"))
#(ribcage
(lambda-var-list
gen-var
strip
- chi-lambda-case
+ expand-lambda-case
lambda*-formals
- chi-simple-lambda
+ expand-simple-lambda
lambda-formals
ellipsis?
- chi-void
+ expand-void
eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
+ expand-local-syntax
+ expand-body
+ expand-macro
+ expand-application
+ expand-expr
+ expand
syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
+ parse-when-list
+ expand-install-global
+ expand-top-sequence
+ expand-sequence
source-wrap
wrap
bound-id-member?
@@ -37188,591 +21225,591 @@
#f)
#f))
#f))
- #{key 12185}#)
- (let ((#{x 12310}#
+ #{key 12179}#)
+ (let ((#{x 12307}#
(gensym
(string-append (symbol->string 'tmp) " "))))
- (#{build-application 4280}#
- #{s 12155}#
- (let ((#{req 12445}# (list 'tmp))
- (#{vars 12447}# (list #{x 12310}#))
- (#{exp 12449}#
- (#{gen-syntax-case 12151}#
+ (#{build-application 4268}#
+ #{s 12149}#
+ (let ((#{req 12442}# (list 'tmp))
+ (#{vars 12444}# (list #{x 12307}#))
+ (#{exp 12446}#
+ (#{gen-syntax-case 12145}#
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
#f
'tmp
- #{x 12310}#)
- #{key 12185}#
- #{m 12186}#
- #{r 12153}#
- #{mod 12156}#)))
- (let ((#{body 12454}#
+ #{x 12307}#)
+ #{key 12179}#
+ #{m 12180}#
+ #{r 12147}#
+ #{mod 12150}#)))
+ (let ((#{body 12451}#
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
#f
- #{req 12445}#
+ #{req 12442}#
#f
#f
#f
'()
- #{vars 12447}#
- #{exp 12449}#
+ #{vars 12444}#
+ #{exp 12446}#
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
#f
'()
- #{body 12454}#)))
- (list (#{chi 4345}#
- #{val 12184}#
- #{r 12153}#
+ #{body 12451}#)))
+ (list (#{expand 4333}#
+ #{val 12178}#
+ #{r 12147}#
'(())
- #{mod 12156}#))))
+ #{mod 12150}#))))
(syntax-violation
'syntax-case
"invalid literals list"
- #{e 12157}#)))
- #{tmp 12159}#)
+ #{e 12151}#)))
+ #{tmp 12153}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 12157}#)))))))
+ #{e 12151}#)))))))
(set! macroexpand
(lambda*
- (#{x 14894}#
+ (#{x 14909}#
#:optional
- (#{m 14895}# 'e)
- (#{esew 14896}# '(eval)))
- (#{chi-top-sequence 4341}#
- (list #{x 14894}#)
+ (#{m 14910}# 'e)
+ (#{esew 14911}# '(eval)))
+ (#{expand-top-sequence 4329}#
+ (list #{x 14909}#)
'()
'((top))
#f
- #{m 14895}#
- #{esew 14896}#
+ #{m 14910}#
+ #{esew 14911}#
(cons 'hygiene (module-name (current-module))))))
(set! identifier?
- (lambda (#{x 14899}#)
- (if (if (vector? #{x 14899}#)
- (if (= (vector-length #{x 14899}#) 4)
- (eq? (vector-ref #{x 14899}# 0) 'syntax-object)
+ (lambda (#{x 14914}#)
+ (if (if (vector? #{x 14914}#)
+ (if (= (vector-length #{x 14914}#) 4)
+ (eq? (vector-ref #{x 14914}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 14899}# 1))
+ (symbol? (vector-ref #{x 14914}# 1))
#f)))
(set! datum->syntax
- (lambda (#{id 14924}# #{datum 14925}#)
- (let ((#{wrap 14930}# (vector-ref #{id 14924}# 2))
- (#{module 14931}# (vector-ref #{id 14924}# 3)))
+ (lambda (#{id 14939}# #{datum 14940}#)
+ (let ((#{wrap 14945}# (vector-ref #{id 14939}# 2))
+ (#{module 14946}# (vector-ref #{id 14939}# 3)))
(vector
'syntax-object
- #{datum 14925}#
- #{wrap 14930}#
- #{module 14931}#))))
+ #{datum 14940}#
+ #{wrap 14945}#
+ #{module 14946}#))))
(set! syntax->datum
- (lambda (#{x 14938}#)
- (#{strip 4358}# #{x 14938}# '(()))))
+ (lambda (#{x 14953}#)
+ (#{strip 4346}# #{x 14953}# '(()))))
(set! syntax-source
- (lambda (#{x 14941}#)
- (#{source-annotation 4306}# #{x 14941}#)))
+ (lambda (#{x 14956}#)
+ (#{source-annotation 4294}# #{x 14956}#)))
(set! generate-temporaries
- (lambda (#{ls 15113}#)
+ (lambda (#{ls 15128}#)
(begin
- (if (not (list? #{ls 15113}#))
+ (if (not (list? #{ls 15128}#))
(syntax-violation
'generate-temporaries
"invalid argument"
- #{ls 15113}#))
- (let ((#{mod 15121}#
+ #{ls 15128}#))
+ (let ((#{mod 15136}#
(cons 'hygiene (module-name (current-module)))))
- (map (lambda (#{x 15122}#)
- (#{wrap 4338}# (gensym) '((top)) #{mod 15121}#))
- #{ls 15113}#)))))
+ (map (lambda (#{x 15137}#)
+ (#{wrap 4326}# (gensym) '((top)) #{mod 15136}#))
+ #{ls 15128}#)))))
(set! free-identifier=?
- (lambda (#{x 15126}# #{y 15127}#)
+ (lambda (#{x 15141}# #{y 15142}#)
(begin
- (if (not (if (if (vector? #{x 15126}#)
- (if (= (vector-length #{x 15126}#) 4)
- (eq? (vector-ref #{x 15126}# 0) 'syntax-object)
+ (if (not (if (if (vector? #{x 15141}#)
+ (if (= (vector-length #{x 15141}#) 4)
+ (eq? (vector-ref #{x 15141}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 15126}# 1))
+ (symbol? (vector-ref #{x 15141}# 1))
#f))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{x 15126}#))
- (if (not (if (if (vector? #{y 15127}#)
- (if (= (vector-length #{y 15127}#) 4)
- (eq? (vector-ref #{y 15127}# 0) 'syntax-object)
+ #{x 15141}#))
+ (if (not (if (if (vector? #{y 15142}#)
+ (if (= (vector-length #{y 15142}#) 4)
+ (eq? (vector-ref #{y 15142}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{y 15127}# 1))
+ (symbol? (vector-ref #{y 15142}# 1))
#f))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{y 15127}#))
- (if (eq? (if (if (vector? #{x 15126}#)
- (if (= (vector-length #{x 15126}#) 4)
- (eq? (vector-ref #{x 15126}# 0) 'syntax-object)
+ #{y 15142}#))
+ (if (eq? (if (if (vector? #{x 15141}#)
+ (if (= (vector-length #{x 15141}#) 4)
+ (eq? (vector-ref #{x 15141}# 0) 'syntax-object)
#f)
#f)
- (vector-ref #{x 15126}# 1)
- #{x 15126}#)
- (if (if (vector? #{y 15127}#)
- (if (= (vector-length #{y 15127}#) 4)
- (eq? (vector-ref #{y 15127}# 0) 'syntax-object)
+ (vector-ref #{x 15141}# 1)
+ #{x 15141}#)
+ (if (if (vector? #{y 15142}#)
+ (if (= (vector-length #{y 15142}#) 4)
+ (eq? (vector-ref #{y 15142}# 0) 'syntax-object)
#f)
#f)
- (vector-ref #{y 15127}# 1)
- #{y 15127}#))
- (eq? (#{id-var-name 4332}# #{x 15126}# '(()))
- (#{id-var-name 4332}# #{y 15127}# '(())))
+ (vector-ref #{y 15142}# 1)
+ #{y 15142}#))
+ (eq? (#{id-var-name 4320}# #{x 15141}# '(()))
+ (#{id-var-name 4320}# #{y 15142}# '(())))
#f))))
(set! bound-identifier=?
- (lambda (#{x 15277}# #{y 15278}#)
+ (lambda (#{x 15292}# #{y 15293}#)
(begin
- (if (not (if (if (vector? #{x 15277}#)
- (if (= (vector-length #{x 15277}#) 4)
- (eq? (vector-ref #{x 15277}# 0) 'syntax-object)
+ (if (not (if (if (vector? #{x 15292}#)
+ (if (= (vector-length #{x 15292}#) 4)
+ (eq? (vector-ref #{x 15292}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 15277}# 1))
+ (symbol? (vector-ref #{x 15292}# 1))
#f))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{x 15277}#))
- (if (not (if (if (vector? #{y 15278}#)
- (if (= (vector-length #{y 15278}#) 4)
- (eq? (vector-ref #{y 15278}# 0) 'syntax-object)
+ #{x 15292}#))
+ (if (not (if (if (vector? #{y 15293}#)
+ (if (= (vector-length #{y 15293}#) 4)
+ (eq? (vector-ref #{y 15293}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{y 15278}# 1))
+ (symbol? (vector-ref #{y 15293}# 1))
#f))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{y 15278}#))
- (if (if (if (vector? #{x 15277}#)
- (if (= (vector-length #{x 15277}#) 4)
- (eq? (vector-ref #{x 15277}# 0) 'syntax-object)
+ #{y 15293}#))
+ (if (if (if (vector? #{x 15292}#)
+ (if (= (vector-length #{x 15292}#) 4)
+ (eq? (vector-ref #{x 15292}# 0) 'syntax-object)
#f)
#f)
- (if (vector? #{y 15278}#)
- (if (= (vector-length #{y 15278}#) 4)
- (eq? (vector-ref #{y 15278}# 0) 'syntax-object)
+ (if (vector? #{y 15293}#)
+ (if (= (vector-length #{y 15293}#) 4)
+ (eq? (vector-ref #{y 15293}# 0) 'syntax-object)
#f)
#f)
#f)
- (if (eq? (vector-ref #{x 15277}# 1)
- (vector-ref #{y 15278}# 1))
- (#{same-marks? 4331}#
- (car (vector-ref #{x 15277}# 2))
- (car (vector-ref #{y 15278}# 2)))
+ (if (eq? (vector-ref #{x 15292}# 1)
+ (vector-ref #{y 15293}# 1))
+ (#{same-marks? 4319}#
+ (car (vector-ref #{x 15292}# 2))
+ (car (vector-ref #{y 15293}# 2)))
#f)
- (eq? #{x 15277}# #{y 15278}#)))))
+ (eq? #{x 15292}# #{y 15293}#)))))
(set! syntax-violation
(lambda*
- (#{who 15411}#
- #{message 15412}#
- #{form 15413}#
+ (#{who 15426}#
+ #{message 15427}#
+ #{form 15428}#
#:optional
- (#{subform 15414}# #f))
+ (#{subform 15429}# #f))
(begin
- (if (not (if (not #{who 15411}#)
- (not #{who 15411}#)
- (let ((#{t 15432}# (string? #{who 15411}#)))
- (if #{t 15432}#
- #{t 15432}#
- (symbol? #{who 15411}#)))))
+ (if (not (if (not #{who 15426}#)
+ (not #{who 15426}#)
+ (let ((#{t 15447}# (string? #{who 15426}#)))
+ (if #{t 15447}#
+ #{t 15447}#
+ (symbol? #{who 15426}#)))))
(syntax-violation
'syntax-violation
"invalid argument"
- #{who 15411}#))
- (if (not (string? #{message 15412}#))
+ #{who 15426}#))
+ (if (not (string? #{message 15427}#))
(syntax-violation
'syntax-violation
"invalid argument"
- #{message 15412}#))
+ #{message 15427}#))
(throw 'syntax-error
- #{who 15411}#
- #{message 15412}#
- (#{source-annotation 4306}#
- (if #{form 15413}#
- #{form 15413}#
- #{subform 15414}#))
- (#{strip 4358}# #{form 15413}# '(()))
- (if #{subform 15414}#
- (#{strip 4358}# #{subform 15414}# '(()))
+ #{who 15426}#
+ #{message 15427}#
+ (#{source-annotation 4294}#
+ (if #{form 15428}#
+ #{form 15428}#
+ #{subform 15429}#))
+ (#{strip 4346}# #{form 15428}# '(()))
+ (if #{subform 15429}#
+ (#{strip 4346}# #{subform 15429}# '(()))
#f)))))
(letrec*
- ((#{match-each 15655}#
- (lambda (#{e 16278}#
- #{p 16279}#
- #{w 16280}#
- #{mod 16281}#)
- (if (pair? #{e 16278}#)
- (let ((#{first 16282}#
- (#{match 15661}#
- (car #{e 16278}#)
- #{p 16279}#
- #{w 16280}#
+ ((#{match-each 15670}#
+ (lambda (#{e 16293}#
+ #{p 16294}#
+ #{w 16295}#
+ #{mod 16296}#)
+ (if (pair? #{e 16293}#)
+ (let ((#{first 16297}#
+ (#{match 15676}#
+ (car #{e 16293}#)
+ #{p 16294}#
+ #{w 16295}#
'()
- #{mod 16281}#)))
- (if #{first 16282}#
- (let ((#{rest 16285}#
- (#{match-each 15655}#
- (cdr #{e 16278}#)
- #{p 16279}#
- #{w 16280}#
- #{mod 16281}#)))
- (if #{rest 16285}#
- (cons #{first 16282}# #{rest 16285}#)
+ #{mod 16296}#)))
+ (if #{first 16297}#
+ (let ((#{rest 16300}#
+ (#{match-each 15670}#
+ (cdr #{e 16293}#)
+ #{p 16294}#
+ #{w 16295}#
+ #{mod 16296}#)))
+ (if #{rest 16300}#
+ (cons #{first 16297}# #{rest 16300}#)
#f))
#f))
- (if (null? #{e 16278}#)
+ (if (null? #{e 16293}#)
'()
- (if (if (vector? #{e 16278}#)
- (if (= (vector-length #{e 16278}#) 4)
- (eq? (vector-ref #{e 16278}# 0) 'syntax-object)
+ (if (if (vector? #{e 16293}#)
+ (if (= (vector-length #{e 16293}#) 4)
+ (eq? (vector-ref #{e 16293}# 0) 'syntax-object)
#f)
#f)
- (#{match-each 15655}#
- (vector-ref #{e 16278}# 1)
- #{p 16279}#
- (#{join-wraps 4329}#
- #{w 16280}#
- (vector-ref #{e 16278}# 2))
- (vector-ref #{e 16278}# 3))
+ (#{match-each 15670}#
+ (vector-ref #{e 16293}# 1)
+ #{p 16294}#
+ (#{join-wraps 4317}#
+ #{w 16295}#
+ (vector-ref #{e 16293}# 2))
+ (vector-ref #{e 16293}# 3))
#f)))))
- (#{match-each-any 15657}#
- (lambda (#{e 16313}# #{w 16314}# #{mod 16315}#)
- (if (pair? #{e 16313}#)
- (let ((#{l 16316}#
- (#{match-each-any 15657}#
- (cdr #{e 16313}#)
- #{w 16314}#
- #{mod 16315}#)))
- (if #{l 16316}#
- (cons (#{wrap 4338}#
- (car #{e 16313}#)
- #{w 16314}#
- #{mod 16315}#)
- #{l 16316}#)
+ (#{match-each-any 15672}#
+ (lambda (#{e 16328}# #{w 16329}# #{mod 16330}#)
+ (if (pair? #{e 16328}#)
+ (let ((#{l 16331}#
+ (#{match-each-any 15672}#
+ (cdr #{e 16328}#)
+ #{w 16329}#
+ #{mod 16330}#)))
+ (if #{l 16331}#
+ (cons (#{wrap 4326}#
+ (car #{e 16328}#)
+ #{w 16329}#
+ #{mod 16330}#)
+ #{l 16331}#)
#f))
- (if (null? #{e 16313}#)
+ (if (null? #{e 16328}#)
'()
- (if (if (vector? #{e 16313}#)
- (if (= (vector-length #{e 16313}#) 4)
- (eq? (vector-ref #{e 16313}# 0) 'syntax-object)
+ (if (if (vector? #{e 16328}#)
+ (if (= (vector-length #{e 16328}#) 4)
+ (eq? (vector-ref #{e 16328}# 0) 'syntax-object)
#f)
#f)
- (#{match-each-any 15657}#
- (vector-ref #{e 16313}# 1)
- (#{join-wraps 4329}#
- #{w 16314}#
- (vector-ref #{e 16313}# 2))
- #{mod 16315}#)
+ (#{match-each-any 15672}#
+ (vector-ref #{e 16328}# 1)
+ (#{join-wraps 4317}#
+ #{w 16329}#
+ (vector-ref #{e 16328}# 2))
+ #{mod 16330}#)
#f)))))
- (#{match-empty 15658}#
- (lambda (#{p 16340}# #{r 16341}#)
- (if (null? #{p 16340}#)
- #{r 16341}#
- (if (eq? #{p 16340}# '_)
- #{r 16341}#
- (if (eq? #{p 16340}# 'any)
- (cons '() #{r 16341}#)
- (if (pair? #{p 16340}#)
- (#{match-empty 15658}#
- (car #{p 16340}#)
- (#{match-empty 15658}#
- (cdr #{p 16340}#)
- #{r 16341}#))
- (if (eq? #{p 16340}# 'each-any)
- (cons '() #{r 16341}#)
- (let ((#{atom-key 16342}# (vector-ref #{p 16340}# 0)))
- (if (eqv? #{atom-key 16342}# 'each)
- (#{match-empty 15658}#
- (vector-ref #{p 16340}# 1)
- #{r 16341}#)
- (if (eqv? #{atom-key 16342}# 'each+)
- (#{match-empty 15658}#
- (vector-ref #{p 16340}# 1)
- (#{match-empty 15658}#
- (reverse (vector-ref #{p 16340}# 2))
- (#{match-empty 15658}#
- (vector-ref #{p 16340}# 3)
- #{r 16341}#)))
- (if (if (eqv? #{atom-key 16342}# 'free-id)
+ (#{match-empty 15673}#
+ (lambda (#{p 16355}# #{r 16356}#)
+ (if (null? #{p 16355}#)
+ #{r 16356}#
+ (if (eq? #{p 16355}# '_)
+ #{r 16356}#
+ (if (eq? #{p 16355}# 'any)
+ (cons '() #{r 16356}#)
+ (if (pair? #{p 16355}#)
+ (#{match-empty 15673}#
+ (car #{p 16355}#)
+ (#{match-empty 15673}#
+ (cdr #{p 16355}#)
+ #{r 16356}#))
+ (if (eq? #{p 16355}# 'each-any)
+ (cons '() #{r 16356}#)
+ (let ((#{atom-key 16357}# (vector-ref #{p 16355}# 0)))
+ (if (eqv? #{atom-key 16357}# 'each)
+ (#{match-empty 15673}#
+ (vector-ref #{p 16355}# 1)
+ #{r 16356}#)
+ (if (eqv? #{atom-key 16357}# 'each+)
+ (#{match-empty 15673}#
+ (vector-ref #{p 16355}# 1)
+ (#{match-empty 15673}#
+ (reverse (vector-ref #{p 16355}# 2))
+ (#{match-empty 15673}#
+ (vector-ref #{p 16355}# 3)
+ #{r 16356}#)))
+ (if (if (eqv? #{atom-key 16357}# 'free-id)
#t
- (eqv? #{atom-key 16342}# 'atom))
- #{r 16341}#
- (if (eqv? #{atom-key 16342}# 'vector)
- (#{match-empty 15658}#
- (vector-ref #{p 16340}# 1)
- #{r 16341}#)))))))))))))
- (#{combine 15659}#
- (lambda (#{r* 16361}# #{r 16362}#)
- (if (null? (car #{r* 16361}#))
- #{r 16362}#
- (cons (map car #{r* 16361}#)
- (#{combine 15659}#
- (map cdr #{r* 16361}#)
- #{r 16362}#)))))
- (#{match* 15660}#
- (lambda (#{e 15690}#
- #{p 15691}#
- #{w 15692}#
- #{r 15693}#
- #{mod 15694}#)
- (if (null? #{p 15691}#)
- (if (null? #{e 15690}#) #{r 15693}# #f)
- (if (pair? #{p 15691}#)
- (if (pair? #{e 15690}#)
- (#{match 15661}#
- (car #{e 15690}#)
- (car #{p 15691}#)
- #{w 15692}#
- (#{match 15661}#
- (cdr #{e 15690}#)
- (cdr #{p 15691}#)
- #{w 15692}#
- #{r 15693}#
- #{mod 15694}#)
- #{mod 15694}#)
+ (eqv? #{atom-key 16357}# 'atom))
+ #{r 16356}#
+ (if (eqv? #{atom-key 16357}# 'vector)
+ (#{match-empty 15673}#
+ (vector-ref #{p 16355}# 1)
+ #{r 16356}#)))))))))))))
+ (#{combine 15674}#
+ (lambda (#{r* 16376}# #{r 16377}#)
+ (if (null? (car #{r* 16376}#))
+ #{r 16377}#
+ (cons (map car #{r* 16376}#)
+ (#{combine 15674}#
+ (map cdr #{r* 16376}#)
+ #{r 16377}#)))))
+ (#{match* 15675}#
+ (lambda (#{e 15705}#
+ #{p 15706}#
+ #{w 15707}#
+ #{r 15708}#
+ #{mod 15709}#)
+ (if (null? #{p 15706}#)
+ (if (null? #{e 15705}#) #{r 15708}# #f)
+ (if (pair? #{p 15706}#)
+ (if (pair? #{e 15705}#)
+ (#{match 15676}#
+ (car #{e 15705}#)
+ (car #{p 15706}#)
+ #{w 15707}#
+ (#{match 15676}#
+ (cdr #{e 15705}#)
+ (cdr #{p 15706}#)
+ #{w 15707}#
+ #{r 15708}#
+ #{mod 15709}#)
+ #{mod 15709}#)
#f)
- (if (eq? #{p 15691}# 'each-any)
- (let ((#{l 15699}#
- (#{match-each-any 15657}#
- #{e 15690}#
- #{w 15692}#
- #{mod 15694}#)))
- (if #{l 15699}#
- (cons #{l 15699}# #{r 15693}#)
+ (if (eq? #{p 15706}# 'each-any)
+ (let ((#{l 15714}#
+ (#{match-each-any 15672}#
+ #{e 15705}#
+ #{w 15707}#
+ #{mod 15709}#)))
+ (if #{l 15714}#
+ (cons #{l 15714}# #{r 15708}#)
#f))
- (let ((#{atom-key 15704}# (vector-ref #{p 15691}# 0)))
- (if (eqv? #{atom-key 15704}# 'each)
- (if (null? #{e 15690}#)
- (#{match-empty 15658}#
- (vector-ref #{p 15691}# 1)
- #{r 15693}#)
- (let ((#{l 15711}#
- (#{match-each 15655}#
- #{e 15690}#
- (vector-ref #{p 15691}# 1)
- #{w 15692}#
- #{mod 15694}#)))
- (if #{l 15711}#
+ (let ((#{atom-key 15719}# (vector-ref #{p 15706}# 0)))
+ (if (eqv? #{atom-key 15719}# 'each)
+ (if (null? #{e 15705}#)
+ (#{match-empty 15673}#
+ (vector-ref #{p 15706}# 1)
+ #{r 15708}#)
+ (let ((#{l 15726}#
+ (#{match-each 15670}#
+ #{e 15705}#
+ (vector-ref #{p 15706}# 1)
+ #{w 15707}#
+ #{mod 15709}#)))
+ (if #{l 15726}#
(letrec*
- ((#{collect 15714}#
- (lambda (#{l 15767}#)
- (if (null? (car #{l 15767}#))
- #{r 15693}#
- (cons (map car #{l 15767}#)
- (#{collect 15714}#
- (map cdr #{l 15767}#)))))))
- (#{collect 15714}# #{l 15711}#))
+ ((#{collect 15729}#
+ (lambda (#{l 15782}#)
+ (if (null? (car #{l 15782}#))
+ #{r 15708}#
+ (cons (map car #{l 15782}#)
+ (#{collect 15729}#
+ (map cdr #{l 15782}#)))))))
+ (#{collect 15729}# #{l 15726}#))
#f)))
- (if (eqv? #{atom-key 15704}# 'each+)
+ (if (eqv? #{atom-key 15719}# 'each+)
(call-with-values
(lambda ()
- (let ((#{x-pat 15776}# (vector-ref #{p 15691}# 1))
- (#{y-pat 15777}# (vector-ref #{p 15691}# 2))
- (#{z-pat 15778}# (vector-ref #{p 15691}# 3)))
+ (let ((#{x-pat 15791}# (vector-ref #{p 15706}# 1))
+ (#{y-pat 15792}# (vector-ref #{p 15706}# 2))
+ (#{z-pat 15793}# (vector-ref #{p 15706}# 3)))
(letrec*
- ((#{f 15782}#
- (lambda (#{e 15784}# #{w 15785}#)
- (if (pair? #{e 15784}#)
+ ((#{f 15797}#
+ (lambda (#{e 15799}# #{w 15800}#)
+ (if (pair? #{e 15799}#)
(call-with-values
(lambda ()
- (#{f 15782}#
- (cdr #{e 15784}#)
- #{w 15785}#))
- (lambda (#{xr* 15786}#
- #{y-pat 15787}#
- #{r 15788}#)
- (if #{r 15788}#
- (if (null? #{y-pat 15787}#)
- (let ((#{xr 15789}#
- (#{match 15661}#
- (car #{e 15784}#)
- #{x-pat 15776}#
- #{w 15785}#
+ (#{f 15797}#
+ (cdr #{e 15799}#)
+ #{w 15800}#))
+ (lambda (#{xr* 15801}#
+ #{y-pat 15802}#
+ #{r 15803}#)
+ (if #{r 15803}#
+ (if (null? #{y-pat 15802}#)
+ (let ((#{xr 15804}#
+ (#{match 15676}#
+ (car #{e 15799}#)
+ #{x-pat 15791}#
+ #{w 15800}#
'()
- #{mod 15694}#)))
- (if #{xr 15789}#
+ #{mod 15709}#)))
+ (if #{xr 15804}#
(values
- (cons #{xr 15789}#
- #{xr* 15786}#)
- #{y-pat 15787}#
- #{r 15788}#)
+ (cons #{xr 15804}#
+ #{xr* 15801}#)
+ #{y-pat 15802}#
+ #{r 15803}#)
(values #f #f #f)))
(values
'()
- (cdr #{y-pat 15787}#)
- (#{match 15661}#
- (car #{e 15784}#)
- (car #{y-pat 15787}#)
- #{w 15785}#
- #{r 15788}#
- #{mod 15694}#)))
+ (cdr #{y-pat 15802}#)
+ (#{match 15676}#
+ (car #{e 15799}#)
+ (car #{y-pat 15802}#)
+ #{w 15800}#
+ #{r 15803}#
+ #{mod 15709}#)))
(values #f #f #f))))
- (if (if (vector? #{e 15784}#)
- (if (= (vector-length #{e 15784}#)
+ (if (if (vector? #{e 15799}#)
+ (if (= (vector-length #{e 15799}#)
4)
- (eq? (vector-ref #{e 15784}# 0)
+ (eq? (vector-ref #{e 15799}# 0)
'syntax-object)
#f)
#f)
- (#{f 15782}#
- (vector-ref #{e 15784}# 1)
- (#{join-wraps 4329}#
- #{w 15785}#
- #{e 15784}#))
+ (#{f 15797}#
+ (vector-ref #{e 15799}# 1)
+ (#{join-wraps 4317}#
+ #{w 15800}#
+ #{e 15799}#))
(values
'()
- #{y-pat 15777}#
- (#{match 15661}#
- #{e 15784}#
- #{z-pat 15778}#
- #{w 15785}#
- #{r 15693}#
- #{mod 15694}#)))))))
- (#{f 15782}# #{e 15690}# #{w 15692}#))))
- (lambda (#{xr* 15817}# #{y-pat 15818}# #{r 15819}#)
- (if #{r 15819}#
- (if (null? #{y-pat 15818}#)
- (if (null? #{xr* 15817}#)
- (#{match-empty 15658}#
- (vector-ref #{p 15691}# 1)
- #{r 15819}#)
- (#{combine 15659}# #{xr* 15817}# #{r 15819}#))
+ #{y-pat 15792}#
+ (#{match 15676}#
+ #{e 15799}#
+ #{z-pat 15793}#
+ #{w 15800}#
+ #{r 15708}#
+ #{mod 15709}#)))))))
+ (#{f 15797}# #{e 15705}# #{w 15707}#))))
+ (lambda (#{xr* 15832}# #{y-pat 15833}# #{r 15834}#)
+ (if #{r 15834}#
+ (if (null? #{y-pat 15833}#)
+ (if (null? #{xr* 15832}#)
+ (#{match-empty 15673}#
+ (vector-ref #{p 15706}# 1)
+ #{r 15834}#)
+ (#{combine 15674}# #{xr* 15832}# #{r 15834}#))
#f)
#f)))
- (if (eqv? #{atom-key 15704}# 'free-id)
- (if (if (symbol? #{e 15690}#)
+ (if (eqv? #{atom-key 15719}# 'free-id)
+ (if (if (symbol? #{e 15705}#)
#t
- (if (if (vector? #{e 15690}#)
- (if (= (vector-length #{e 15690}#) 4)
- (eq? (vector-ref #{e 15690}# 0)
+ (if (if (vector? #{e 15705}#)
+ (if (= (vector-length #{e 15705}#) 4)
+ (eq? (vector-ref #{e 15705}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{e 15690}# 1))
+ (symbol? (vector-ref #{e 15705}# 1))
#f))
- (if (let ((#{i 16182}#
- (#{wrap 4338}#
- #{e 15690}#
- #{w 15692}#
- #{mod 15694}#))
- (#{j 16183}# (vector-ref #{p 15691}# 1)))
- (if (eq? (if (if (vector? #{i 16182}#)
+ (if (let ((#{i 16197}#
+ (#{wrap 4326}#
+ #{e 15705}#
+ #{w 15707}#
+ #{mod 15709}#))
+ (#{j 16198}# (vector-ref #{p 15706}# 1)))
+ (if (eq? (if (if (vector? #{i 16197}#)
(if (= (vector-length
- #{i 16182}#)
+ #{i 16197}#)
4)
(eq? (vector-ref
- #{i 16182}#
+ #{i 16197}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{i 16182}# 1)
- #{i 16182}#)
- (if (if (vector? #{j 16183}#)
+ (vector-ref #{i 16197}# 1)
+ #{i 16197}#)
+ (if (if (vector? #{j 16198}#)
(if (= (vector-length
- #{j 16183}#)
+ #{j 16198}#)
4)
(eq? (vector-ref
- #{j 16183}#
+ #{j 16198}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{j 16183}# 1)
- #{j 16183}#))
- (eq? (#{id-var-name 4332}#
- #{i 16182}#
+ (vector-ref #{j 16198}# 1)
+ #{j 16198}#))
+ (eq? (#{id-var-name 4320}#
+ #{i 16197}#
'(()))
- (#{id-var-name 4332}#
- #{j 16183}#
+ (#{id-var-name 4320}#
+ #{j 16198}#
'(())))
#f))
- #{r 15693}#
+ #{r 15708}#
#f)
#f)
- (if (eqv? #{atom-key 15704}# 'atom)
+ (if (eqv? #{atom-key 15719}# 'atom)
(if (equal?
- (vector-ref #{p 15691}# 1)
- (#{strip 4358}# #{e 15690}# #{w 15692}#))
- #{r 15693}#
+ (vector-ref #{p 15706}# 1)
+ (#{strip 4346}# #{e 15705}# #{w 15707}#))
+ #{r 15708}#
#f)
- (if (eqv? #{atom-key 15704}# 'vector)
- (if (vector? #{e 15690}#)
- (#{match 15661}#
- (vector->list #{e 15690}#)
- (vector-ref #{p 15691}# 1)
- #{w 15692}#
- #{r 15693}#
- #{mod 15694}#)
+ (if (eqv? #{atom-key 15719}# 'vector)
+ (if (vector? #{e 15705}#)
+ (#{match 15676}#
+ (vector->list #{e 15705}#)
+ (vector-ref #{p 15706}# 1)
+ #{w 15707}#
+ #{r 15708}#
+ #{mod 15709}#)
#f))))))))))))
- (#{match 15661}#
- (lambda (#{e 16243}#
- #{p 16244}#
- #{w 16245}#
- #{r 16246}#
- #{mod 16247}#)
- (if (not #{r 16246}#)
+ (#{match 15676}#
+ (lambda (#{e 16258}#
+ #{p 16259}#
+ #{w 16260}#
+ #{r 16261}#
+ #{mod 16262}#)
+ (if (not #{r 16261}#)
#f
- (if (eq? #{p 16244}# '_)
- #{r 16246}#
- (if (eq? #{p 16244}# 'any)
- (cons (#{wrap 4338}#
- #{e 16243}#
- #{w 16245}#
- #{mod 16247}#)
- #{r 16246}#)
- (if (if (vector? #{e 16243}#)
- (if (= (vector-length #{e 16243}#) 4)
- (eq? (vector-ref #{e 16243}# 0) 'syntax-object)
+ (if (eq? #{p 16259}# '_)
+ #{r 16261}#
+ (if (eq? #{p 16259}# 'any)
+ (cons (#{wrap 4326}#
+ #{e 16258}#
+ #{w 16260}#
+ #{mod 16262}#)
+ #{r 16261}#)
+ (if (if (vector? #{e 16258}#)
+ (if (= (vector-length #{e 16258}#) 4)
+ (eq? (vector-ref #{e 16258}# 0) 'syntax-object)
#f)
#f)
- (#{match* 15660}#
- (vector-ref #{e 16243}# 1)
- #{p 16244}#
- (#{join-wraps 4329}#
- #{w 16245}#
- (vector-ref #{e 16243}# 2))
- #{r 16246}#
- (vector-ref #{e 16243}# 3))
- (#{match* 15660}#
- #{e 16243}#
- #{p 16244}#
- #{w 16245}#
- #{r 16246}#
- #{mod 16247}#))))))))
+ (#{match* 15675}#
+ (vector-ref #{e 16258}# 1)
+ #{p 16259}#
+ (#{join-wraps 4317}#
+ #{w 16260}#
+ (vector-ref #{e 16258}# 2))
+ #{r 16261}#
+ (vector-ref #{e 16258}# 3))
+ (#{match* 15675}#
+ #{e 16258}#
+ #{p 16259}#
+ #{w 16260}#
+ #{r 16261}#
+ #{mod 16262}#))))))))
(set! $sc-dispatch
- (lambda (#{e 15662}# #{p 15663}#)
- (if (eq? #{p 15663}# 'any)
- (list #{e 15662}#)
- (if (eq? #{p 15663}# '_)
+ (lambda (#{e 15677}# #{p 15678}#)
+ (if (eq? #{p 15678}# 'any)
+ (list #{e 15677}#)
+ (if (eq? #{p 15678}# '_)
'()
- (if (if (vector? #{e 15662}#)
- (if (= (vector-length #{e 15662}#) 4)
- (eq? (vector-ref #{e 15662}# 0) 'syntax-object)
+ (if (if (vector? #{e 15677}#)
+ (if (= (vector-length #{e 15677}#) 4)
+ (eq? (vector-ref #{e 15677}# 0) 'syntax-object)
#f)
#f)
- (#{match* 15660}#
- (vector-ref #{e 15662}# 1)
- #{p 15663}#
- (vector-ref #{e 15662}# 2)
+ (#{match* 15675}#
+ (vector-ref #{e 15677}# 1)
+ #{p 15678}#
+ (vector-ref #{e 15677}# 2)
'()
- (vector-ref #{e 15662}# 3))
- (#{match* 15660}#
- #{e 15662}#
- #{p 15663}#
+ (vector-ref #{e 15677}# 3))
+ (#{match* 15675}#
+ #{e 15677}#
+ #{p 15678}#
'(())
'()
#f)))))))))
@@ -37781,82 +21818,82 @@
(make-syntax-transformer
'with-syntax
'macro
- (lambda (#{x 28547}#)
- (let ((#{tmp 28549}#
- ($sc-dispatch #{x 28547}# '(_ () any . each-any))))
- (if #{tmp 28549}#
+ (lambda (#{x 28920}#)
+ (let ((#{tmp 28922}#
+ ($sc-dispatch #{x 28920}# '(_ () any . each-any))))
+ (if #{tmp 28922}#
(@apply
- (lambda (#{e1 28553}# #{e2 28554}#)
+ (lambda (#{e1 28926}# #{e2 28927}#)
(cons '#(syntax-object
let
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i28520" "i28521"))
+ #("i28893" "i28894"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28517")))
+ #(ribcage #(x) #((top)) #("i28890")))
(hygiene guile))
- (cons '() (cons #{e1 28553}# #{e2 28554}#))))
- #{tmp 28549}#)
- (let ((#{tmp 28555}#
+ (cons '() (cons #{e1 28926}# #{e2 28927}#))))
+ #{tmp 28922}#)
+ (let ((#{tmp 28928}#
($sc-dispatch
- #{x 28547}#
+ #{x 28920}#
'(_ ((any any)) any . each-any))))
- (if #{tmp 28555}#
+ (if #{tmp 28928}#
(@apply
- (lambda (#{out 28559}#
- #{in 28560}#
- #{e1 28561}#
- #{e2 28562}#)
+ (lambda (#{out 28932}#
+ #{in 28933}#
+ #{e1 28934}#
+ #{e2 28935}#)
(list '#(syntax-object
syntax-case
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i28526" "i28527" "i28528" "i28529"))
+ #("i28899" "i28900" "i28901" "i28902"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28517")))
+ #(ribcage #(x) #((top)) #("i28890")))
(hygiene guile))
- #{in 28560}#
+ #{in 28933}#
'()
- (list #{out 28559}#
+ (list #{out 28932}#
(cons '#(syntax-object
let
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i28526"
- "i28527"
- "i28528"
- "i28529"))
+ #("i28899"
+ "i28900"
+ "i28901"
+ "i28902"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28517")))
+ #(ribcage #(x) #((top)) #("i28890")))
(hygiene guile))
(cons '()
- (cons #{e1 28561}# #{e2 28562}#))))))
- #{tmp 28555}#)
- (let ((#{tmp 28563}#
+ (cons #{e1 28934}# #{e2 28935}#))))))
+ #{tmp 28928}#)
+ (let ((#{tmp 28936}#
($sc-dispatch
- #{x 28547}#
+ #{x 28920}#
'(_ #(each (any any)) any . each-any))))
- (if #{tmp 28563}#
+ (if #{tmp 28936}#
(@apply
- (lambda (#{out 28567}#
- #{in 28568}#
- #{e1 28569}#
- #{e2 28570}#)
+ (lambda (#{out 28940}#
+ #{in 28941}#
+ #{e1 28942}#
+ #{e2 28943}#)
(list '#(syntax-object
syntax-case
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i28536" "i28537" "i28538" "i28539"))
+ #("i28909" "i28910" "i28911" "i28912"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28517")))
+ #(ribcage #(x) #((top)) #("i28890")))
(hygiene guile))
(cons '#(syntax-object
list
@@ -37864,62 +21901,62 @@
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i28536" "i28537" "i28538" "i28539"))
+ #("i28909" "i28910" "i28911" "i28912"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28517")))
+ #(ribcage #(x) #((top)) #("i28890")))
(hygiene guile))
- #{in 28568}#)
+ #{in 28941}#)
'()
- (list #{out 28567}#
+ (list #{out 28940}#
(cons '#(syntax-object
let
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i28536"
- "i28537"
- "i28538"
- "i28539"))
+ #("i28909"
+ "i28910"
+ "i28911"
+ "i28912"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i28517")))
+ #("i28890")))
(hygiene guile))
(cons '()
- (cons #{e1 28569}#
- #{e2 28570}#))))))
- #{tmp 28563}#)
+ (cons #{e1 28942}#
+ #{e2 28943}#))))))
+ #{tmp 28936}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 28547}#))))))))))
+ #{x 28920}#))))))))))
(define syntax-rules
(make-syntax-transformer
'syntax-rules
'macro
- (lambda (#{x 28624}#)
- (let ((#{tmp 28626}#
+ (lambda (#{x 28997}#)
+ (let ((#{tmp 28999}#
($sc-dispatch
- #{x 28624}#
+ #{x 28997}#
'(_ each-any . #(each ((any . any) any))))))
- (if #{tmp 28626}#
+ (if #{tmp 28999}#
(@apply
- (lambda (#{k 28630}#
- #{keyword 28631}#
- #{pattern 28632}#
- #{template 28633}#)
+ (lambda (#{k 29003}#
+ #{keyword 29004}#
+ #{pattern 29005}#
+ #{template 29006}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i28587" "i28588" "i28589" "i28590"))
+ #("i28960" "i28961" "i28962" "i28963"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28584")))
+ #(ribcage #(x) #((top)) #("i28957")))
(hygiene guile))
'(#(syntax-object
x
@@ -37927,9 +21964,9 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i28587" "i28588" "i28589" "i28590"))
+ #("i28960" "i28961" "i28962" "i28963"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28584")))
+ #(ribcage #(x) #((top)) #("i28957")))
(hygiene guile)))
(vector
'(#(syntax-object
@@ -37938,9 +21975,9 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i28587" "i28588" "i28589" "i28590"))
+ #("i28960" "i28961" "i28962" "i28963"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28584")))
+ #(ribcage #(x) #((top)) #("i28957")))
(hygiene guile))
.
#(syntax-object
@@ -37949,9 +21986,9 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i28587" "i28588" "i28589" "i28590"))
+ #("i28960" "i28961" "i28962" "i28963"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28584")))
+ #(ribcage #(x) #((top)) #("i28957")))
(hygiene guile)))
(cons '#(syntax-object
patterns
@@ -37959,20 +21996,20 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i28587" "i28588" "i28589" "i28590"))
+ #("i28960" "i28961" "i28962" "i28963"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28584")))
+ #(ribcage #(x) #((top)) #("i28957")))
(hygiene guile))
- #{pattern 28632}#))
+ #{pattern 29005}#))
(cons '#(syntax-object
syntax-case
((top)
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i28587" "i28588" "i28589" "i28590"))
+ #("i28960" "i28961" "i28962" "i28963"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28584")))
+ #(ribcage #(x) #((top)) #("i28957")))
(hygiene guile))
(cons '#(syntax-object
x
@@ -37980,13 +22017,13 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i28587" "i28588" "i28589" "i28590"))
+ #("i28960" "i28961" "i28962" "i28963"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28584")))
+ #(ribcage #(x) #((top)) #("i28957")))
(hygiene guile))
- (cons #{k 28630}#
- (map (lambda (#{tmp 28598 28634}#
- #{tmp 28597 28635}#)
+ (cons #{k 29003}#
+ (map (lambda (#{tmp 28971 29007}#
+ #{tmp 28970 29008}#)
(list (cons '#(syntax-object
dummy
((top)
@@ -37999,10 +22036,10 @@
(top)
(top)
(top))
- #("i28587"
- "i28588"
- "i28589"
- "i28590"))
+ #("i28960"
+ "i28961"
+ "i28962"
+ "i28963"))
#(ribcage
()
()
@@ -38010,9 +22047,9 @@
#(ribcage
#(x)
#((top))
- #("i28584")))
+ #("i28957")))
(hygiene guile))
- #{tmp 28597 28635}#)
+ #{tmp 28970 29008}#)
(list '#(syntax-object
syntax
((top)
@@ -38025,10 +22062,10 @@
(top)
(top)
(top))
- #("i28587"
- "i28588"
- "i28589"
- "i28590"))
+ #("i28960"
+ "i28961"
+ "i28962"
+ "i28963"))
#(ribcage
()
()
@@ -38036,41 +22073,41 @@
#(ribcage
#(x)
#((top))
- #("i28584")))
+ #("i28957")))
(hygiene guile))
- #{tmp 28598 28634}#)))
- #{template 28633}#
- #{pattern 28632}#))))))
- #{tmp 28626}#)
- (let ((#{tmp 28636}#
+ #{tmp 28971 29007}#)))
+ #{template 29006}#
+ #{pattern 29005}#))))))
+ #{tmp 28999}#)
+ (let ((#{tmp 29009}#
($sc-dispatch
- #{x 28624}#
+ #{x 28997}#
'(_ each-any any . #(each ((any . any) any))))))
- (if (if #{tmp 28636}#
+ (if (if #{tmp 29009}#
(@apply
- (lambda (#{k 28640}#
- #{docstring 28641}#
- #{keyword 28642}#
- #{pattern 28643}#
- #{template 28644}#)
- (string? (syntax->datum #{docstring 28641}#)))
- #{tmp 28636}#)
+ (lambda (#{k 29013}#
+ #{docstring 29014}#
+ #{keyword 29015}#
+ #{pattern 29016}#
+ #{template 29017}#)
+ (string? (syntax->datum #{docstring 29014}#)))
+ #{tmp 29009}#)
#f)
(@apply
- (lambda (#{k 28645}#
- #{docstring 28646}#
- #{keyword 28647}#
- #{pattern 28648}#
- #{template 28649}#)
+ (lambda (#{k 29018}#
+ #{docstring 29019}#
+ #{keyword 29020}#
+ #{pattern 29021}#
+ #{template 29022}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i28610" "i28611" "i28612" "i28613" "i28614"))
+ #("i28983" "i28984" "i28985" "i28986" "i28987"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28584")))
+ #(ribcage #(x) #((top)) #("i28957")))
(hygiene guile))
'(#(syntax-object
x
@@ -38078,11 +22115,11 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i28610" "i28611" "i28612" "i28613" "i28614"))
+ #("i28983" "i28984" "i28985" "i28986" "i28987"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28584")))
+ #(ribcage #(x) #((top)) #("i28957")))
(hygiene guile)))
- #{docstring 28646}#
+ #{docstring 29019}#
(vector
'(#(syntax-object
macro-type
@@ -38090,13 +22127,13 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i28610"
- "i28611"
- "i28612"
- "i28613"
- "i28614"))
+ #("i28983"
+ "i28984"
+ "i28985"
+ "i28986"
+ "i28987"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28584")))
+ #(ribcage #(x) #((top)) #("i28957")))
(hygiene guile))
.
#(syntax-object
@@ -38105,13 +22142,13 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i28610"
- "i28611"
- "i28612"
- "i28613"
- "i28614"))
+ #("i28983"
+ "i28984"
+ "i28985"
+ "i28986"
+ "i28987"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28584")))
+ #(ribcage #(x) #((top)) #("i28957")))
(hygiene guile)))
(cons '#(syntax-object
patterns
@@ -38119,28 +22156,28 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i28610"
- "i28611"
- "i28612"
- "i28613"
- "i28614"))
+ #("i28983"
+ "i28984"
+ "i28985"
+ "i28986"
+ "i28987"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28584")))
+ #(ribcage #(x) #((top)) #("i28957")))
(hygiene guile))
- #{pattern 28648}#))
+ #{pattern 29021}#))
(cons '#(syntax-object
syntax-case
((top)
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i28610"
- "i28611"
- "i28612"
- "i28613"
- "i28614"))
+ #("i28983"
+ "i28984"
+ "i28985"
+ "i28986"
+ "i28987"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28584")))
+ #(ribcage #(x) #((top)) #("i28957")))
(hygiene guile))
(cons '#(syntax-object
x
@@ -38152,17 +22189,17 @@
pattern
template)
#((top) (top) (top) (top) (top))
- #("i28610"
- "i28611"
- "i28612"
- "i28613"
- "i28614"))
+ #("i28983"
+ "i28984"
+ "i28985"
+ "i28986"
+ "i28987"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28584")))
+ #(ribcage #(x) #((top)) #("i28957")))
(hygiene guile))
- (cons #{k 28645}#
- (map (lambda (#{tmp 28623 28650}#
- #{tmp 28622 28651}#)
+ (cons #{k 29018}#
+ (map (lambda (#{tmp 28996 29023}#
+ #{tmp 28995 29024}#)
(list (cons '#(syntax-object
dummy
((top)
@@ -38177,11 +22214,11 @@
(top)
(top)
(top))
- #("i28610"
- "i28611"
- "i28612"
- "i28613"
- "i28614"))
+ #("i28983"
+ "i28984"
+ "i28985"
+ "i28986"
+ "i28987"))
#(ribcage
()
()
@@ -38189,10 +22226,10 @@
#(ribcage
#(x)
#((top))
-
#("i28584")))
+
#("i28957")))
(hygiene
guile))
- #{tmp 28622
28651}#)
+ #{tmp 28995
29024}#)
(list '#(syntax-object
syntax
((top)
@@ -38207,11 +22244,11 @@
(top)
(top)
(top))
- #("i28610"
- "i28611"
- "i28612"
- "i28613"
- "i28614"))
+ #("i28983"
+ "i28984"
+ "i28985"
+ "i28986"
+ "i28987"))
#(ribcage
()
()
@@ -38219,50 +22256,50 @@
#(ribcage
#(x)
#((top))
-
#("i28584")))
+
#("i28957")))
(hygiene
guile))
- #{tmp 28623
28650}#)))
- #{template 28649}#
- #{pattern 28648}#))))))
- #{tmp 28636}#)
+ #{tmp 28996
29023}#)))
+ #{template 29022}#
+ #{pattern 29021}#))))))
+ #{tmp 29009}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 28624}#))))))))
+ #{x 28997}#))))))))
(define define-syntax-rule
(make-syntax-transformer
'define-syntax-rule
'macro
- (lambda (#{x 28688}#)
- (let ((#{tmp 28690}#
- ($sc-dispatch #{x 28688}# '(_ (any . any) any))))
- (if #{tmp 28690}#
+ (lambda (#{x 29061}#)
+ (let ((#{tmp 29063}#
+ ($sc-dispatch #{x 29061}# '(_ (any . any) any))))
+ (if #{tmp 29063}#
(@apply
- (lambda (#{name 28694}#
- #{pattern 28695}#
- #{template 28696}#)
+ (lambda (#{name 29067}#
+ #{pattern 29068}#
+ #{template 29069}#)
(list '#(syntax-object
define-syntax
((top)
#(ribcage
#(name pattern template)
#((top) (top) (top))
- #("i28665" "i28666" "i28667"))
+ #("i29038" "i29039" "i29040"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28662")))
+ #(ribcage #(x) #((top)) #("i29035")))
(hygiene guile))
- #{name 28694}#
+ #{name 29067}#
(list '#(syntax-object
syntax-rules
((top)
#(ribcage
#(name pattern template)
#((top) (top) (top))
- #("i28665" "i28666" "i28667"))
+ #("i29038" "i29039" "i29040"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28662")))
+ #(ribcage #(x) #((top)) #("i29035")))
(hygiene guile))
'()
(list (cons '#(syntax-object
@@ -38271,54 +22308,54 @@
#(ribcage
#(name pattern template)
#((top) (top) (top))
- #("i28665" "i28666" "i28667"))
+ #("i29038" "i29039" "i29040"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28662")))
+ #(ribcage #(x) #((top)) #("i29035")))
(hygiene guile))
- #{pattern 28695}#)
- #{template 28696}#))))
- #{tmp 28690}#)
- (let ((#{tmp 28697}#
+ #{pattern 29068}#)
+ #{template 29069}#))))
+ #{tmp 29063}#)
+ (let ((#{tmp 29070}#
($sc-dispatch
- #{x 28688}#
+ #{x 29061}#
'(_ (any . any) any any))))
- (if (if #{tmp 28697}#
+ (if (if #{tmp 29070}#
(@apply
- (lambda (#{name 28701}#
- #{pattern 28702}#
- #{docstring 28703}#
- #{template 28704}#)
- (string? (syntax->datum #{docstring 28703}#)))
- #{tmp 28697}#)
+ (lambda (#{name 29074}#
+ #{pattern 29075}#
+ #{docstring 29076}#
+ #{template 29077}#)
+ (string? (syntax->datum #{docstring 29076}#)))
+ #{tmp 29070}#)
#f)
(@apply
- (lambda (#{name 28705}#
- #{pattern 28706}#
- #{docstring 28707}#
- #{template 28708}#)
+ (lambda (#{name 29078}#
+ #{pattern 29079}#
+ #{docstring 29080}#
+ #{template 29081}#)
(list '#(syntax-object
define-syntax
((top)
#(ribcage
#(name pattern docstring template)
#((top) (top) (top) (top))
- #("i28680" "i28681" "i28682" "i28683"))
+ #("i29053" "i29054" "i29055" "i29056"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28662")))
+ #(ribcage #(x) #((top)) #("i29035")))
(hygiene guile))
- #{name 28705}#
+ #{name 29078}#
(list '#(syntax-object
syntax-rules
((top)
#(ribcage
#(name pattern docstring template)
#((top) (top) (top) (top))
- #("i28680" "i28681" "i28682" "i28683"))
+ #("i29053" "i29054" "i29055" "i29056"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28662")))
+ #(ribcage #(x) #((top)) #("i29035")))
(hygiene guile))
'()
- #{docstring 28707}#
+ #{docstring 29080}#
(list (cons '#(syntax-object
_
((top)
@@ -38328,53 +22365,53 @@
docstring
template)
#((top) (top) (top) (top))
- #("i28680"
- "i28681"
- "i28682"
- "i28683"))
+ #("i29053"
+ "i29054"
+ "i29055"
+ "i29056"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i28662")))
+ #("i29035")))
(hygiene guile))
- #{pattern 28706}#)
- #{template 28708}#))))
- #{tmp 28697}#)
+ #{pattern 29079}#)
+ #{template 29081}#))))
+ #{tmp 29070}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 28688}#))))))))
+ #{x 29061}#))))))))
(define let*
(make-syntax-transformer
'let*
'macro
- (lambda (#{x 28757}#)
- (let ((#{tmp 28759}#
+ (lambda (#{x 29130}#)
+ (let ((#{tmp 29132}#
($sc-dispatch
- #{x 28757}#
+ #{x 29130}#
'(any #(each (any any)) any . each-any))))
- (if (if #{tmp 28759}#
+ (if (if #{tmp 29132}#
(@apply
- (lambda (#{let* 28763}#
- #{x 28764}#
- #{v 28765}#
- #{e1 28766}#
- #{e2 28767}#)
- (and-map identifier? #{x 28764}#))
- #{tmp 28759}#)
+ (lambda (#{let* 29136}#
+ #{x 29137}#
+ #{v 29138}#
+ #{e1 29139}#
+ #{e2 29140}#)
+ (and-map identifier? #{x 29137}#))
+ #{tmp 29132}#)
#f)
(@apply
- (lambda (#{let* 28768}#
- #{x 28769}#
- #{v 28770}#
- #{e1 28771}#
- #{e2 28772}#)
+ (lambda (#{let* 29141}#
+ #{x 29142}#
+ #{v 29143}#
+ #{e1 29144}#
+ #{e2 29145}#)
(letrec*
- ((#{f 28773}#
- (lambda (#{bindings 28776}#)
- (if (null? #{bindings 28776}#)
+ ((#{f 29146}#
+ (lambda (#{bindings 29149}#)
+ (if (null? #{bindings 29149}#)
(cons '#(syntax-object
let
((top)
@@ -38382,27 +22419,27 @@
#(ribcage
#(f bindings)
#((top) (top))
- #("i28743" "i28744"))
+ #("i29116" "i29117"))
#(ribcage
#(let* x v e1 e2)
#((top) (top) (top) (top) (top))
- #("i28733"
- "i28734"
- "i28735"
- "i28736"
- "i28737"))
+ #("i29106"
+ "i29107"
+ "i29108"
+ "i29109"
+ "i29110"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28719")))
+ #(ribcage #(x) #((top)) #("i29092")))
(hygiene guile))
- (cons '() (cons #{e1 28771}# #{e2 28772}#)))
- (let ((#{tmp 28777}#
- (list (#{f 28773}# (cdr #{bindings 28776}#))
- (car #{bindings 28776}#))))
- (let ((#{tmp 28778}#
- ($sc-dispatch #{tmp 28777}# '(any any))))
- (if #{tmp 28778}#
+ (cons '() (cons #{e1 29144}# #{e2 29145}#)))
+ (let ((#{tmp 29150}#
+ (list (#{f 29146}# (cdr #{bindings 29149}#))
+ (car #{bindings 29149}#))))
+ (let ((#{tmp 29151}#
+ ($sc-dispatch #{tmp 29150}# '(any any))))
+ (if #{tmp 29151}#
(@apply
- (lambda (#{body 28780}# #{binding 28781}#)
+ (lambda (#{body 29153}# #{binding 29154}#)
(list '#(syntax-object
let
((top)
@@ -38410,86 +22447,86 @@
#(ribcage
#(body binding)
#((top) (top))
- #("i28753" "i28754"))
+ #("i29126" "i29127"))
#(ribcage () () ())
#(ribcage
#(f bindings)
#((top) (top))
- #("i28743" "i28744"))
+ #("i29116" "i29117"))
#(ribcage
#(let* x v e1 e2)
#((top) (top) (top) (top) (top))
- #("i28733"
- "i28734"
- "i28735"
- "i28736"
- "i28737"))
+ #("i29106"
+ "i29107"
+ "i29108"
+ "i29109"
+ "i29110"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i28719")))
+ #("i29092")))
(hygiene guile))
- (list #{binding 28781}#)
- #{body 28780}#))
- #{tmp 28778}#)
+ (list #{binding 29154}#)
+ #{body 29153}#))
+ #{tmp 29151}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 28777}#))))))))
- (#{f 28773}# (map list #{x 28769}# #{v 28770}#))))
- #{tmp 28759}#)
+ #{tmp 29150}#))))))))
+ (#{f 29146}# (map list #{x 29142}# #{v 29143}#))))
+ #{tmp 29132}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 28757}#))))))
+ #{x 29130}#))))))
(define do
(make-syntax-transformer
'do
'macro
- (lambda (#{orig-x 28839}#)
- (let ((#{tmp 28841}#
+ (lambda (#{orig-x 29212}#)
+ (let ((#{tmp 29214}#
($sc-dispatch
- #{orig-x 28839}#
+ #{orig-x 29212}#
'(_ #(each (any any . any))
(any . each-any)
.
each-any))))
- (if #{tmp 28841}#
+ (if #{tmp 29214}#
(@apply
- (lambda (#{var 28845}#
- #{init 28846}#
- #{step 28847}#
- #{e0 28848}#
- #{e1 28849}#
- #{c 28850}#)
- (let ((#{tmp 28851}#
- (map (lambda (#{v 28854}# #{s 28855}#)
- (let ((#{tmp 28857}#
- ($sc-dispatch #{s 28855}# '())))
- (if #{tmp 28857}#
- (@apply (lambda () #{v 28854}#) #{tmp 28857}#)
- (let ((#{tmp 28860}#
- ($sc-dispatch #{s 28855}# '(any))))
- (if #{tmp 28860}#
+ (lambda (#{var 29218}#
+ #{init 29219}#
+ #{step 29220}#
+ #{e0 29221}#
+ #{e1 29222}#
+ #{c 29223}#)
+ (let ((#{tmp 29224}#
+ (map (lambda (#{v 29227}# #{s 29228}#)
+ (let ((#{tmp 29230}#
+ ($sc-dispatch #{s 29228}# '())))
+ (if #{tmp 29230}#
+ (@apply (lambda () #{v 29227}#) #{tmp 29230}#)
+ (let ((#{tmp 29233}#
+ ($sc-dispatch #{s 29228}# '(any))))
+ (if #{tmp 29233}#
(@apply
- (lambda (#{e 28863}#) #{e 28863}#)
- #{tmp 28860}#)
+ (lambda (#{e 29236}#) #{e 29236}#)
+ #{tmp 29233}#)
(syntax-violation
'do
"bad step expression"
- #{orig-x 28839}#
- #{s 28855}#))))))
- #{var 28845}#
- #{step 28847}#)))
- (let ((#{tmp 28852}#
- ($sc-dispatch #{tmp 28851}# 'each-any)))
- (if #{tmp 28852}#
+ #{orig-x 29212}#
+ #{s 29228}#))))))
+ #{var 29218}#
+ #{step 29220}#)))
+ (let ((#{tmp 29225}#
+ ($sc-dispatch #{tmp 29224}# 'each-any)))
+ (if #{tmp 29225}#
(@apply
- (lambda (#{step 28869}#)
- (let ((#{tmp 28871}# ($sc-dispatch #{e1 28849}# '())))
- (if #{tmp 28871}#
+ (lambda (#{step 29242}#)
+ (let ((#{tmp 29244}# ($sc-dispatch #{e1 29222}# '())))
+ (if #{tmp 29244}#
(@apply
(lambda ()
(list '#(syntax-object
@@ -38499,7 +22536,7 @@
#(ribcage
#(step)
#((top))
- #("i28807"))
+ #("i29180"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -38508,17 +22545,17 @@
(top)
(top)
(top))
- #("i28792"
- "i28793"
- "i28794"
- "i28795"
- "i28796"
- "i28797"))
+ #("i29165"
+ "i29166"
+ "i29167"
+ "i29168"
+ "i29169"
+ "i29170"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i28789")))
+ #("i29162")))
(hygiene guile))
'#(syntax-object
doloop
@@ -38527,7 +22564,7 @@
#(ribcage
#(step)
#((top))
- #("i28807"))
+ #("i29180"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -38536,19 +22573,19 @@
(top)
(top)
(top))
- #("i28792"
- "i28793"
- "i28794"
- "i28795"
- "i28796"
- "i28797"))
+ #("i29165"
+ "i29166"
+ "i29167"
+ "i29168"
+ "i29169"
+ "i29170"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i28789")))
+ #("i29162")))
(hygiene guile))
- (map list #{var 28845}# #{init 28846}#)
+ (map list #{var 29218}# #{init 29219}#)
(list '#(syntax-object
if
((top)
@@ -38556,7 +22593,7 @@
#(ribcage
#(step)
#((top))
- #("i28807"))
+ #("i29180"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -38565,17 +22602,17 @@
(top)
(top)
(top))
- #("i28792"
- "i28793"
- "i28794"
- "i28795"
- "i28796"
- "i28797"))
+ #("i29165"
+ "i29166"
+ "i29167"
+ "i29168"
+ "i29169"
+ "i29170"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i28789")))
+ #("i29162")))
(hygiene guile))
(list '#(syntax-object
not
@@ -38584,7 +22621,7 @@
#(ribcage
#(step)
#((top))
- #("i28807"))
+ #("i29180"))
#(ribcage
#(var
init
@@ -38598,19 +22635,19 @@
(top)
(top)
(top))
- #("i28792"
- "i28793"
- "i28794"
- "i28795"
- "i28796"
- "i28797"))
+ #("i29165"
+ "i29166"
+ "i29167"
+ "i29168"
+ "i29169"
+ "i29170"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i28789")))
+ #("i29162")))
(hygiene guile))
- #{e0 28848}#)
+ #{e0 29221}#)
(cons '#(syntax-object
begin
((top)
@@ -38618,7 +22655,7 @@
#(ribcage
#(step)
#((top))
- #("i28807"))
+ #("i29180"))
#(ribcage
#(var
init
@@ -38632,20 +22669,20 @@
(top)
(top)
(top))
- #("i28792"
- "i28793"
- "i28794"
- "i28795"
- "i28796"
- "i28797"))
+ #("i29165"
+ "i29166"
+ "i29167"
+ "i29168"
+ "i29169"
+ "i29170"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i28789")))
+ #("i29162")))
(hygiene guile))
(append
- #{c 28850}#
+ #{c 29223}#
(list (cons
'#(syntax-object
doloop
((top)
@@ -38656,7 +22693,7 @@
#(ribcage
#(step)
#((top))
-
#("i28807"))
+
#("i29180"))
#(ribcage
#(var
init
@@ -38670,12 +22707,12 @@
(top)
(top)
(top))
-
#("i28792"
-
"i28793"
-
"i28794"
-
"i28795"
-
"i28796"
-
"i28797"))
+
#("i29165"
+
"i29166"
+
"i29167"
+
"i29168"
+
"i29169"
+
"i29170"))
#(ribcage
()
()
@@ -38683,30 +22720,30 @@
#(ribcage
#(orig-x)
#((top))
-
#("i28789")))
+
#("i29162")))
(hygiene
guile))
- #{step
28869}#)))))))
- #{tmp 28871}#)
- (let ((#{tmp 28875}#
+ #{step
29242}#)))))))
+ #{tmp 29244}#)
+ (let ((#{tmp 29248}#
($sc-dispatch
- #{e1 28849}#
+ #{e1 29222}#
'(any . each-any))))
- (if #{tmp 28875}#
+ (if #{tmp 29248}#
(@apply
- (lambda (#{e1 28879}# #{e2 28880}#)
+ (lambda (#{e1 29252}# #{e2 29253}#)
(list '#(syntax-object
let
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i28816" "i28817"))
+ #("i29189" "i29190"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("i28807"))
+ #("i29180"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -38715,17 +22752,17 @@
(top)
(top)
(top))
- #("i28792"
- "i28793"
- "i28794"
- "i28795"
- "i28796"
- "i28797"))
+ #("i29165"
+ "i29166"
+ "i29167"
+ "i29168"
+ "i29169"
+ "i29170"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i28789")))
+ #("i29162")))
(hygiene guile))
'#(syntax-object
doloop
@@ -38733,12 +22770,12 @@
#(ribcage
#(e1 e2)
#((top) (top))
- #("i28816" "i28817"))
+ #("i29189" "i29190"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("i28807"))
+ #("i29180"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -38747,33 +22784,33 @@
(top)
(top)
(top))
- #("i28792"
- "i28793"
- "i28794"
- "i28795"
- "i28796"
- "i28797"))
+ #("i29165"
+ "i29166"
+ "i29167"
+ "i29168"
+ "i29169"
+ "i29170"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i28789")))
+ #("i29162")))
(hygiene guile))
(map list
- #{var 28845}#
- #{init 28846}#)
+ #{var 29218}#
+ #{init 29219}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i28816" "i28817"))
+ #("i29189" "i29190"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("i28807"))
+ #("i29180"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -38782,32 +22819,32 @@
(top)
(top)
(top))
- #("i28792"
- "i28793"
- "i28794"
- "i28795"
- "i28796"
- "i28797"))
+ #("i29165"
+ "i29166"
+ "i29167"
+ "i29168"
+ "i29169"
+ "i29170"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i28789")))
+ #("i29162")))
(hygiene guile))
- #{e0 28848}#
+ #{e0 29221}#
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i28816"
- "i28817"))
+ #("i29189"
+ "i29190"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("i28807"))
+ #("i29180"))
#(ribcage
#(var
init
@@ -38821,33 +22858,33 @@
(top)
(top)
(top))
- #("i28792"
- "i28793"
- "i28794"
- "i28795"
- "i28796"
- "i28797"))
+ #("i29165"
+ "i29166"
+ "i29167"
+ "i29168"
+ "i29169"
+ "i29170"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i28789")))
+ #("i29162")))
(hygiene guile))
- (cons #{e1 28879}#
- #{e2 28880}#))
+ (cons #{e1 29252}#
+ #{e2 29253}#))
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i28816"
- "i28817"))
+ #("i29189"
+ "i29190"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("i28807"))
+ #("i29180"))
#(ribcage
#(var
init
@@ -38861,20 +22898,20 @@
(top)
(top)
(top))
- #("i28792"
- "i28793"
- "i28794"
- "i28795"
- "i28796"
- "i28797"))
+ #("i29165"
+ "i29166"
+ "i29167"
+ "i29168"
+ "i29169"
+ "i29170"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i28789")))
+ #("i29162")))
(hygiene guile))
(append
- #{c 28850}#
+ #{c 29223}#
(list (cons
'#(syntax-object
doloop
((top)
@@ -38883,8 +22920,8 @@
e2)
#((top)
(top))
-
#("i28816"
-
"i28817"))
+
#("i29189"
+
"i29190"))
#(ribcage
()
()
@@ -38892,7 +22929,7 @@
#(ribcage
#(step)
#((top))
-
#("i28807"))
+
#("i29180"))
#(ribcage
#(var
init
@@ -38906,12 +22943,12 @@
(top)
(top)
(top))
-
#("i28792"
-
"i28793"
-
"i28794"
-
"i28795"
-
"i28796"
-
"i28797"))
+
#("i29165"
+
"i29166"
+
"i29167"
+
"i29168"
+
"i29169"
+
"i29170"))
#(ribcage
()
()
@@ -38919,36 +22956,36 @@
#(ribcage
#(orig-x)
#((top))
-
#("i28789")))
+
#("i29162")))
(hygiene
guile))
- #{step
28869}#)))))))
- #{tmp 28875}#)
+ #{step
29242}#)))))))
+ #{tmp 29248}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{e1 28849}#))))))
- #{tmp 28852}#)
+ #{e1 29222}#))))))
+ #{tmp 29225}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 28851}#)))))
- #{tmp 28841}#)
+ #{tmp 29224}#)))))
+ #{tmp 29214}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{orig-x 28839}#))))))
+ #{orig-x 29212}#))))))
(define quasiquote
(make-syntax-transformer
'quasiquote
'macro
(letrec*
- ((#{quasi 29166}#
- (lambda (#{p 29190}# #{lev 29191}#)
- (let ((#{tmp 29193}#
+ ((#{quasi 29539}#
+ (lambda (#{p 29563}# #{lev 29564}#)
+ (let ((#{tmp 29566}#
($sc-dispatch
- #{p 29190}#
+ #{p 29563}#
'(#(free-id
#(syntax-object
unquote
@@ -38957,7 +22994,7 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i28912" "i28913"))
+ #("i29285" "i29286"))
#(ribcage
(emit quasivector
quasilist*
@@ -38966,28 +23003,28 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i28908"
- "i28906"
- "i28904"
- "i28902"
- "i28900"
- "i28898"
- "i28896")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile)))
any))))
- (if #{tmp 29193}#
+ (if #{tmp 29566}#
(@apply
- (lambda (#{p 29197}#)
- (if (= #{lev 29191}# 0)
+ (lambda (#{p 29570}#)
+ (if (= #{lev 29564}# 0)
(list '#(syntax-object
"value"
((top)
- #(ribcage #(p) #((top)) #("i28916"))
+ #(ribcage #(p) #((top)) #("i29289"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28912" "i28913"))
+ #("i29285" "i29286"))
#(ribcage
(emit quasivector
quasilist*
@@ -38996,25 +23033,25 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i28908"
- "i28906"
- "i28904"
- "i28902"
- "i28900"
- "i28898"
- "i28896")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile))
- #{p 29197}#)
- (#{quasicons 29168}#
+ #{p 29570}#)
+ (#{quasicons 29541}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i28916"))
+ #(ribcage #(p) #((top)) #("i29289"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28912" "i28913"))
+ #("i29285" "i29286"))
#(ribcage
(emit quasivector
quasilist*
@@ -39023,23 +23060,23 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i28908"
- "i28906"
- "i28904"
- "i28902"
- "i28900"
- "i28898"
- "i28896")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile))
#(syntax-object
unquote
((top)
- #(ribcage #(p) #((top)) #("i28916"))
+ #(ribcage #(p) #((top)) #("i29289"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28912" "i28913"))
+ #("i29285" "i29286"))
#(ribcage
(emit quasivector
quasilist*
@@ -39048,21 +23085,21 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i28908"
- "i28906"
- "i28904"
- "i28902"
- "i28900"
- "i28898"
- "i28896")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile)))
- (#{quasi 29166}#
- (list #{p 29197}#)
- (#{1-}# #{lev 29191}#)))))
- #{tmp 29193}#)
- (let ((#{tmp 29200}#
+ (#{quasi 29539}#
+ (list #{p 29570}#)
+ (#{1-}# #{lev 29564}#)))))
+ #{tmp 29566}#)
+ (let ((#{tmp 29573}#
($sc-dispatch
- #{p 29190}#
+ #{p 29563}#
'(#(free-id
#(syntax-object
quasiquote
@@ -39071,7 +23108,7 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i28912" "i28913"))
+ #("i29285" "i29286"))
#(ribcage
(emit quasivector
quasilist*
@@ -39080,28 +23117,28 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i28908"
- "i28906"
- "i28904"
- "i28902"
- "i28900"
- "i28898"
- "i28896")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile)))
any))))
- (if #{tmp 29200}#
+ (if #{tmp 29573}#
(@apply
- (lambda (#{p 29204}#)
- (#{quasicons 29168}#
+ (lambda (#{p 29577}#)
+ (#{quasicons 29541}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i28919"))
+ #(ribcage #(p) #((top)) #("i29292"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28912" "i28913"))
+ #("i29285" "i29286"))
#(ribcage
(emit quasivector
quasilist*
@@ -39110,23 +23147,23 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i28908"
- "i28906"
- "i28904"
- "i28902"
- "i28900"
- "i28898"
- "i28896")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile))
#(syntax-object
quasiquote
((top)
- #(ribcage #(p) #((top)) #("i28919"))
+ #(ribcage #(p) #((top)) #("i29292"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28912" "i28913"))
+ #("i29285" "i29286"))
#(ribcage
(emit quasivector
quasilist*
@@ -39135,26 +23172,26 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i28908"
- "i28906"
- "i28904"
- "i28902"
- "i28900"
- "i28898"
- "i28896")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile)))
- (#{quasi 29166}#
- (list #{p 29204}#)
- (#{1+}# #{lev 29191}#))))
- #{tmp 29200}#)
- (let ((#{tmp 29207}#
- ($sc-dispatch #{p 29190}# '(any . any))))
- (if #{tmp 29207}#
+ (#{quasi 29539}#
+ (list #{p 29577}#)
+ (#{1+}# #{lev 29564}#))))
+ #{tmp 29573}#)
+ (let ((#{tmp 29580}#
+ ($sc-dispatch #{p 29563}# '(any . any))))
+ (if #{tmp 29580}#
(@apply
- (lambda (#{p 29211}# #{q 29212}#)
- (let ((#{tmp 29214}#
+ (lambda (#{p 29584}# #{q 29585}#)
+ (let ((#{tmp 29587}#
($sc-dispatch
- #{p 29211}#
+ #{p 29584}#
'(#(free-id
#(syntax-object
unquote
@@ -39162,12 +23199,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("i28922" "i28923"))
+ #("i29295" "i29296"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28912" "i28913"))
+ #("i29285" "i29286"))
#(ribcage
(emit quasivector
quasilist*
@@ -39182,38 +23219,38 @@
(top)
(top)
(top))
- ("i28908"
- "i28906"
- "i28904"
- "i28902"
- "i28900"
- "i28898"
- "i28896")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile)))
.
each-any))))
- (if #{tmp 29214}#
+ (if #{tmp 29587}#
(@apply
- (lambda (#{p 29218}#)
- (if (= #{lev 29191}# 0)
- (#{quasilist* 29170}#
- (map (lambda (#{tmp 28930 29254}#)
+ (lambda (#{p 29591}#)
+ (if (= #{lev 29564}# 0)
+ (#{quasilist* 29543}#
+ (map (lambda (#{tmp 29303 29627}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("i28928"))
+ #("i29301"))
#(ribcage
#(p q)
#((top) (top))
- #("i28922" "i28923"))
+ #("i29295" "i29296"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28912" "i28913"))
+ #("i29285" "i29286"))
#(ribcage
(emit quasivector
quasilist*
@@ -39228,37 +23265,37 @@
(top)
(top)
(top))
- ("i28908"
- "i28906"
- "i28904"
- "i28902"
- "i28900"
- "i28898"
- "i28896")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile))
- #{tmp 28930 29254}#))
- #{p 29218}#)
- (#{quasi 29166}#
- #{q 29212}#
- #{lev 29191}#))
- (#{quasicons 29168}#
- (#{quasicons 29168}#
+ #{tmp 29303 29627}#))
+ #{p 29591}#)
+ (#{quasi 29539}#
+ #{q 29585}#
+ #{lev 29564}#))
+ (#{quasicons 29541}#
+ (#{quasicons 29541}#
'(#(syntax-object
"quote"
((top)
#(ribcage
#(p)
#((top))
- #("i28928"))
+ #("i29301"))
#(ribcage
#(p q)
#((top) (top))
- #("i28922" "i28923"))
+ #("i29295" "i29296"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28912" "i28913"))
+ #("i29285" "i29286"))
#(ribcage
(emit quasivector
quasilist*
@@ -39273,13 +23310,13 @@
(top)
(top)
(top))
- ("i28908"
- "i28906"
- "i28904"
- "i28902"
- "i28900"
- "i28898"
- "i28896")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile))
#(syntax-object
unquote
@@ -39287,16 +23324,16 @@
#(ribcage
#(p)
#((top))
- #("i28928"))
+ #("i29301"))
#(ribcage
#(p q)
#((top) (top))
- #("i28922" "i28923"))
+ #("i29295" "i29296"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28912" "i28913"))
+ #("i29285" "i29286"))
#(ribcage
(emit quasivector
quasilist*
@@ -39311,24 +23348,24 @@
(top)
(top)
(top))
- ("i28908"
- "i28906"
- "i28904"
- "i28902"
- "i28900"
- "i28898"
- "i28896")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile)))
- (#{quasi 29166}#
- #{p 29218}#
- (#{1-}# #{lev 29191}#)))
- (#{quasi 29166}#
- #{q 29212}#
- #{lev 29191}#))))
- #{tmp 29214}#)
- (let ((#{tmp 29259}#
+ (#{quasi 29539}#
+ #{p 29591}#
+ (#{1-}# #{lev 29564}#)))
+ (#{quasi 29539}#
+ #{q 29585}#
+ #{lev 29564}#))))
+ #{tmp 29587}#)
+ (let ((#{tmp 29632}#
($sc-dispatch
- #{p 29211}#
+ #{p 29584}#
'(#(free-id
#(syntax-object
unquote-splicing
@@ -39336,12 +23373,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("i28922" "i28923"))
+ #("i29295" "i29296"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28912" "i28913"))
+ #("i29285" "i29286"))
#(ribcage
(emit quasivector
quasilist*
@@ -39356,40 +23393,40 @@
(top)
(top)
(top))
- ("i28908"
- "i28906"
- "i28904"
- "i28902"
- "i28900"
- "i28898"
- "i28896")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile)))
.
each-any))))
- (if #{tmp 29259}#
+ (if #{tmp 29632}#
(@apply
- (lambda (#{p 29263}#)
- (if (= #{lev 29191}# 0)
- (#{quasiappend 29169}#
- (map (lambda (#{tmp 28935 29266}#)
+ (lambda (#{p 29636}#)
+ (if (= #{lev 29564}# 0)
+ (#{quasiappend 29542}#
+ (map (lambda (#{tmp 29308 29639}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("i28933"))
+ #("i29306"))
#(ribcage
#(p q)
#((top) (top))
- #("i28922"
- "i28923"))
+ #("i29295"
+ "i29296"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28912"
- "i28913"))
+ #("i29285"
+ "i29286"))
#(ribcage
(emit quasivector
quasilist*
@@ -39404,37 +23441,37 @@
(top)
(top)
(top))
- ("i28908"
- "i28906"
- "i28904"
- "i28902"
- "i28900"
- "i28898"
- "i28896")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile))
- #{tmp 28935 29266}#))
- #{p 29263}#)
- (#{quasi 29166}#
- #{q 29212}#
- #{lev 29191}#))
- (#{quasicons 29168}#
- (#{quasicons 29168}#
+ #{tmp 29308 29639}#))
+ #{p 29636}#)
+ (#{quasi 29539}#
+ #{q 29585}#
+ #{lev 29564}#))
+ (#{quasicons 29541}#
+ (#{quasicons 29541}#
'(#(syntax-object
"quote"
((top)
#(ribcage
#(p)
#((top))
- #("i28933"))
+ #("i29306"))
#(ribcage
#(p q)
#((top) (top))
- #("i28922" "i28923"))
+ #("i29295" "i29296"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28912" "i28913"))
+ #("i29285" "i29286"))
#(ribcage
(emit quasivector
quasilist*
@@ -39449,13 +23486,13 @@
(top)
(top)
(top))
- ("i28908"
- "i28906"
- "i28904"
- "i28902"
- "i28900"
- "i28898"
- "i28896")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile))
#(syntax-object
unquote-splicing
@@ -39463,16 +23500,16 @@
#(ribcage
#(p)
#((top))
- #("i28933"))
+ #("i29306"))
#(ribcage
#(p q)
#((top) (top))
- #("i28922" "i28923"))
+ #("i29295" "i29296"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28912" "i28913"))
+ #("i29285" "i29286"))
#(ribcage
(emit quasivector
quasilist*
@@ -39487,57 +23524,57 @@
(top)
(top)
(top))
- ("i28908"
- "i28906"
- "i28904"
- "i28902"
- "i28900"
- "i28898"
- "i28896")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile)))
- (#{quasi 29166}#
- #{p 29263}#
- (#{1-}# #{lev 29191}#)))
- (#{quasi 29166}#
- #{q 29212}#
- #{lev 29191}#))))
- #{tmp 29259}#)
- (#{quasicons 29168}#
- (#{quasi 29166}#
- #{p 29211}#
- #{lev 29191}#)
- (#{quasi 29166}#
- #{q 29212}#
- #{lev 29191}#)))))))
- #{tmp 29207}#)
- (let ((#{tmp 29280}#
- ($sc-dispatch #{p 29190}# '#(vector each-any))))
- (if #{tmp 29280}#
+ (#{quasi 29539}#
+ #{p 29636}#
+ (#{1-}# #{lev 29564}#)))
+ (#{quasi 29539}#
+ #{q 29585}#
+ #{lev 29564}#))))
+ #{tmp 29632}#)
+ (#{quasicons 29541}#
+ (#{quasi 29539}#
+ #{p 29584}#
+ #{lev 29564}#)
+ (#{quasi 29539}#
+ #{q 29585}#
+ #{lev 29564}#)))))))
+ #{tmp 29580}#)
+ (let ((#{tmp 29653}#
+ ($sc-dispatch #{p 29563}# '#(vector each-any))))
+ (if #{tmp 29653}#
(@apply
- (lambda (#{x 29284}#)
- (let ((#{x 29287}#
- (#{vquasi 29167}#
- #{x 29284}#
- #{lev 29191}#)))
- (let ((#{tmp 29289}#
+ (lambda (#{x 29657}#)
+ (let ((#{x 29660}#
+ (#{vquasi 29540}#
+ #{x 29657}#
+ #{lev 29564}#)))
+ (let ((#{tmp 29662}#
($sc-dispatch
- #{x 29287}#
+ #{x 29660}#
'(#(atom "quote") each-any))))
- (if #{tmp 29289}#
+ (if #{tmp 29662}#
(@apply
- (lambda (#{x 29293}#)
+ (lambda (#{x 29666}#)
(list '#(syntax-object
"quote"
((top)
#(ribcage
#(x)
#((top))
- #("i29040"))
+ #("i29413"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i29037"))
+ #("i29410"))
#(ribcage
(emit quasivector
quasilist*
@@ -39552,36 +23589,36 @@
(top)
(top)
(top))
- ("i28908"
- "i28906"
- "i28904"
- "i28902"
- "i28900"
- "i28898"
- "i28896")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile))
- (list->vector #{x 29293}#)))
- #{tmp 29289}#)
+ (list->vector #{x 29666}#)))
+ #{tmp 29662}#)
(letrec*
- ((#{f 29295}#
- (lambda (#{y 29307}# #{k 29308}#)
- (let ((#{tmp 29310}#
+ ((#{f 29668}#
+ (lambda (#{y 29680}# #{k 29681}#)
+ (let ((#{tmp 29683}#
($sc-dispatch
- #{y 29307}#
+ #{y 29680}#
'(#(atom "quote")
each-any))))
- (if #{tmp 29310}#
+ (if #{tmp 29683}#
(@apply
- (lambda (#{y 29313}#)
- (#{k 29308}#
- (map (lambda (#{tmp
29065 29314}#)
+ (lambda (#{y 29686}#)
+ (#{k 29681}#
+ (map (lambda (#{tmp
29438 29687}#)
(list
'#(syntax-object
"quote"
((top)
#(ribcage
#(y)
#((top))
-
#("i29063"))
+
#("i29436"))
#(ribcage
()
()
@@ -39593,13 +23630,13 @@
#((top)
(top)
(top))
-
#("i29045"
-
"i29046"
-
"i29047"))
+
#("i29418"
+
"i29419"
+
"i29420"))
#(ribcage
#(_)
#((top))
-
#("i29043"))
+
#("i29416"))
#(ribcage
()
()
@@ -39607,7 +23644,7 @@
#(ribcage
#(x)
#((top))
-
#("i29037"))
+
#("i29410"))
#(ribcage
(emit
quasivector
quasilist*
@@ -39622,51 +23659,51 @@
(top)
(top)
(top))
-
("i28908"
-
"i28906"
-
"i28904"
-
"i28902"
-
"i28900"
-
"i28898"
-
"i28896")))
+
("i29281"
+
"i29279"
+
"i29277"
+
"i29275"
+
"i29273"
+
"i29271"
+
"i29269")))
(hygiene
guile))
- #{tmp 29065
29314}#))
- #{y 29313}#)))
- #{tmp 29310}#)
- (let ((#{tmp 29315}#
+ #{tmp 29438
29687}#))
+ #{y 29686}#)))
+ #{tmp 29683}#)
+ (let ((#{tmp 29688}#
($sc-dispatch
- #{y 29307}#
+ #{y 29680}#
'(#(atom "list")
.
each-any))))
- (if #{tmp 29315}#
+ (if #{tmp 29688}#
(@apply
- (lambda (#{y 29318}#)
- (#{k 29308}#
- #{y 29318}#))
- #{tmp 29315}#)
- (let ((#{tmp 29319}#
+ (lambda (#{y 29691}#)
+ (#{k 29681}#
+ #{y 29691}#))
+ #{tmp 29688}#)
+ (let ((#{tmp 29692}#
($sc-dispatch
- #{y 29307}#
+ #{y 29680}#
'(#(atom "list*")
.
#(each+
any
(any)
())))))
- (if #{tmp 29319}#
+ (if #{tmp 29692}#
(@apply
- (lambda (#{y 29322}#
- #{z 29323}#)
- (#{f 29295}#
- #{z 29323}#
- (lambda (#{ls
29324}#)
- (#{k 29308}#
+ (lambda (#{y 29695}#
+ #{z 29696}#)
+ (#{f 29668}#
+ #{z 29696}#
+ (lambda (#{ls
29697}#)
+ (#{k 29681}#
(append
- #{y 29322}#
- #{ls
29324}#)))))
- #{tmp 29319}#)
+ #{y 29695}#
+ #{ls
29697}#)))))
+ #{tmp 29692}#)
(list '#(syntax-object
"list->vector"
((top)
@@ -39675,14 +23712,14 @@
()
())
#(ribcage
- #(#{
g29080}#)
- #((m29081
+ #(#{
g29453}#)
+ #((m29454
top))
-
#("i29084"))
+
#("i29457"))
#(ribcage
#(else)
#((top))
-
#("i29078"))
+
#("i29451"))
#(ribcage
()
()
@@ -39692,13 +23729,13 @@
#((top)
(top)
(top))
- #("i29045"
- "i29046"
-
"i29047"))
+ #("i29418"
+ "i29419"
+
"i29420"))
#(ribcage
#(_)
#((top))
-
#("i29043"))
+
#("i29416"))
#(ribcage
()
()
@@ -39706,7 +23743,7 @@
#(ribcage
#(x)
#((top))
-
#("i29037"))
+
#("i29410"))
#(ribcage
(emit
quasivector
quasilist*
@@ -39721,26 +23758,26 @@
(top)
(top)
(top))
- ("i28908"
- "i28906"
- "i28904"
- "i28902"
- "i28900"
- "i28898"
-
"i28896")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+
"i29269")))
(hygiene
guile))
- #{x
29287}#))))))))))
- (#{f 29295}#
- #{x 29287}#
- (lambda (#{ls 29297}#)
- (let ((#{tmp 29299}#
+ #{x
29660}#))))))))))
+ (#{f 29668}#
+ #{x 29660}#
+ (lambda (#{ls 29670}#)
+ (let ((#{tmp 29672}#
($sc-dispatch
- #{ls 29297}#
+ #{ls 29670}#
'each-any)))
- (if #{tmp 29299}#
+ (if #{tmp 29672}#
(@apply
- (lambda (#{ g29053 29302}#)
+ (lambda (#{ g29426 29675}#)
(cons '#(syntax-object
"vector"
((top)
@@ -39749,9 +23786,9 @@
()
())
#(ribcage
- #(#{ g29053}#)
- #((m29054 top))
- #("i29058"))
+ #(#{ g29426}#)
+ #((m29427 top))
+ #("i29431"))
#(ribcage
()
()
@@ -39767,11 +23804,11 @@
#(ribcage
#(ls)
#((top))
- #("i29052"))
+ #("i29425"))
#(ribcage
#(_)
#((top))
- #("i29043"))
+ #("i29416"))
#(ribcage
()
()
@@ -39779,7 +23816,7 @@
#(ribcage
#(x)
#((top))
- #("i29037"))
+ #("i29410"))
#(ribcage
(emit
quasivector
quasilist*
@@ -39794,30 +23831,30 @@
(top)
(top)
(top))
- ("i28908"
- "i28906"
- "i28904"
- "i28902"
- "i28900"
- "i28898"
- "i28896")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile))
- #{ g29053 29302}#))
- #{tmp 29299}#)
+ #{ g29426 29675}#))
+ #{tmp 29672}#)
(syntax-violation
#f
"source expression failed to
match any pattern"
- #{ls 29297}#))))))))))
- #{tmp 29280}#)
+ #{ls 29670}#))))))))))
+ #{tmp 29653}#)
(list '#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i28943"))
+ #(ribcage #(p) #((top)) #("i29316"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28912" "i28913"))
+ #("i29285" "i29286"))
#(ribcage
(emit quasivector
quasilist*
@@ -39832,25 +23869,25 @@
(top)
(top)
(top))
- ("i28908"
- "i28906"
- "i28904"
- "i28902"
- "i28900"
- "i28898"
- "i28896")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile))
- #{p 29190}#)))))))))))
- (#{vquasi 29167}#
- (lambda (#{p 29352}# #{lev 29353}#)
- (let ((#{tmp 29355}#
- ($sc-dispatch #{p 29352}# '(any . any))))
- (if #{tmp 29355}#
+ #{p 29563}#)))))))))))
+ (#{vquasi 29540}#
+ (lambda (#{p 29725}# #{lev 29726}#)
+ (let ((#{tmp 29728}#
+ ($sc-dispatch #{p 29725}# '(any . any))))
+ (if #{tmp 29728}#
(@apply
- (lambda (#{p 29359}# #{q 29360}#)
- (let ((#{tmp 29362}#
+ (lambda (#{p 29732}# #{q 29733}#)
+ (let ((#{tmp 29735}#
($sc-dispatch
- #{p 29359}#
+ #{p 29732}#
'(#(free-id
#(syntax-object
unquote
@@ -39858,12 +23895,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("i28951" "i28952"))
+ #("i29324" "i29325"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28947" "i28948"))
+ #("i29320" "i29321"))
#(ribcage
(emit quasivector
quasilist*
@@ -39878,38 +23915,38 @@
(top)
(top)
(top))
- ("i28908"
- "i28906"
- "i28904"
- "i28902"
- "i28900"
- "i28898"
- "i28896")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile)))
.
each-any))))
- (if #{tmp 29362}#
+ (if #{tmp 29735}#
(@apply
- (lambda (#{p 29366}#)
- (if (= #{lev 29353}# 0)
- (#{quasilist* 29170}#
- (map (lambda (#{tmp 28959 29402}#)
+ (lambda (#{p 29739}#)
+ (if (= #{lev 29726}# 0)
+ (#{quasilist* 29543}#
+ (map (lambda (#{tmp 29332 29775}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("i28957"))
+ #("i29330"))
#(ribcage
#(p q)
#((top) (top))
- #("i28951" "i28952"))
+ #("i29324" "i29325"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28947" "i28948"))
+ #("i29320" "i29321"))
#(ribcage
(emit quasivector
quasilist*
@@ -39924,32 +23961,32 @@
(top)
(top)
(top))
- ("i28908"
- "i28906"
- "i28904"
- "i28902"
- "i28900"
- "i28898"
- "i28896")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile))
- #{tmp 28959 29402}#))
- #{p 29366}#)
- (#{vquasi 29167}# #{q 29360}# #{lev 29353}#))
- (#{quasicons 29168}#
- (#{quasicons 29168}#
+ #{tmp 29332 29775}#))
+ #{p 29739}#)
+ (#{vquasi 29540}# #{q 29733}# #{lev 29726}#))
+ (#{quasicons 29541}#
+ (#{quasicons 29541}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i28957"))
+ #(ribcage #(p) #((top)) #("i29330"))
#(ribcage
#(p q)
#((top) (top))
- #("i28951" "i28952"))
+ #("i29324" "i29325"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28947" "i28948"))
+ #("i29320" "i29321"))
#(ribcage
(emit quasivector
quasilist*
@@ -39964,27 +24001,27 @@
(top)
(top)
(top))
- ("i28908"
- "i28906"
- "i28904"
- "i28902"
- "i28900"
- "i28898"
- "i28896")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile))
#(syntax-object
unquote
((top)
- #(ribcage #(p) #((top)) #("i28957"))
+ #(ribcage #(p) #((top)) #("i29330"))
#(ribcage
#(p q)
#((top) (top))
- #("i28951" "i28952"))
+ #("i29324" "i29325"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28947" "i28948"))
+ #("i29320" "i29321"))
#(ribcage
(emit quasivector
quasilist*
@@ -39999,22 +24036,22 @@
(top)
(top)
(top))
- ("i28908"
- "i28906"
- "i28904"
- "i28902"
- "i28900"
- "i28898"
- "i28896")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile)))
- (#{quasi 29166}#
- #{p 29366}#
- (#{1-}# #{lev 29353}#)))
- (#{vquasi 29167}# #{q 29360}# #{lev 29353}#))))
- #{tmp 29362}#)
- (let ((#{tmp 29409}#
+ (#{quasi 29539}#
+ #{p 29739}#
+ (#{1-}# #{lev 29726}#)))
+ (#{vquasi 29540}# #{q 29733}# #{lev 29726}#))))
+ #{tmp 29735}#)
+ (let ((#{tmp 29782}#
($sc-dispatch
- #{p 29359}#
+ #{p 29732}#
'(#(free-id
#(syntax-object
unquote-splicing
@@ -40022,12 +24059,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("i28951" "i28952"))
+ #("i29324" "i29325"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28947" "i28948"))
+ #("i29320" "i29321"))
#(ribcage
(emit quasivector
quasilist*
@@ -40042,38 +24079,38 @@
(top)
(top)
(top))
- ("i28908"
- "i28906"
- "i28904"
- "i28902"
- "i28900"
- "i28898"
- "i28896")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile)))
.
each-any))))
- (if #{tmp 29409}#
+ (if #{tmp 29782}#
(@apply
- (lambda (#{p 29413}#)
- (if (= #{lev 29353}# 0)
- (#{quasiappend 29169}#
- (map (lambda (#{tmp 28964 29416}#)
+ (lambda (#{p 29786}#)
+ (if (= #{lev 29726}# 0)
+ (#{quasiappend 29542}#
+ (map (lambda (#{tmp 29337 29789}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("i28962"))
+ #("i29335"))
#(ribcage
#(p q)
#((top) (top))
- #("i28951" "i28952"))
+ #("i29324" "i29325"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28947" "i28948"))
+ #("i29320" "i29321"))
#(ribcage
(emit quasivector
quasilist*
@@ -40088,34 +24125,34 @@
(top)
(top)
(top))
- ("i28908"
- "i28906"
- "i28904"
- "i28902"
- "i28900"
- "i28898"
- "i28896")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile))
- #{tmp 28964 29416}#))
- #{p 29413}#)
- (#{vquasi 29167}#
- #{q 29360}#
- #{lev 29353}#))
- (#{quasicons 29168}#
- (#{quasicons 29168}#
+ #{tmp 29337 29789}#))
+ #{p 29786}#)
+ (#{vquasi 29540}#
+ #{q 29733}#
+ #{lev 29726}#))
+ (#{quasicons 29541}#
+ (#{quasicons 29541}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i28962"))
+ #(ribcage #(p) #((top)) #("i29335"))
#(ribcage
#(p q)
#((top) (top))
- #("i28951" "i28952"))
+ #("i29324" "i29325"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28947" "i28948"))
+ #("i29320" "i29321"))
#(ribcage
(emit quasivector
quasilist*
@@ -40130,27 +24167,27 @@
(top)
(top)
(top))
- ("i28908"
- "i28906"
- "i28904"
- "i28902"
- "i28900"
- "i28898"
- "i28896")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile))
#(syntax-object
unquote-splicing
((top)
- #(ribcage #(p) #((top)) #("i28962"))
+ #(ribcage #(p) #((top)) #("i29335"))
#(ribcage
#(p q)
#((top) (top))
- #("i28951" "i28952"))
+ #("i29324" "i29325"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28947" "i28948"))
+ #("i29320" "i29321"))
#(ribcage
(emit quasivector
quasilist*
@@ -40165,27 +24202,27 @@
(top)
(top)
(top))
- ("i28908"
- "i28906"
- "i28904"
- "i28902"
- "i28900"
- "i28898"
- "i28896")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile)))
- (#{quasi 29166}#
- #{p 29413}#
- (#{1-}# #{lev 29353}#)))
- (#{vquasi 29167}#
- #{q 29360}#
- #{lev 29353}#))))
- #{tmp 29409}#)
- (#{quasicons 29168}#
- (#{quasi 29166}# #{p 29359}# #{lev 29353}#)
- (#{vquasi 29167}# #{q 29360}# #{lev 29353}#)))))))
- #{tmp 29355}#)
- (let ((#{tmp 29434}# ($sc-dispatch #{p 29352}# '())))
- (if #{tmp 29434}#
+ (#{quasi 29539}#
+ #{p 29786}#
+ (#{1-}# #{lev 29726}#)))
+ (#{vquasi 29540}#
+ #{q 29733}#
+ #{lev 29726}#))))
+ #{tmp 29782}#)
+ (#{quasicons 29541}#
+ (#{quasi 29539}# #{p 29732}# #{lev 29726}#)
+ (#{vquasi 29540}# #{q 29733}# #{lev 29726}#)))))))
+ #{tmp 29728}#)
+ (let ((#{tmp 29807}# ($sc-dispatch #{p 29725}# '())))
+ (if #{tmp 29807}#
(@apply
(lambda ()
'(#(syntax-object
@@ -40195,7 +24232,7 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i28947" "i28948"))
+ #("i29320" "i29321"))
#(ribcage
(emit quasivector
quasilist*
@@ -40204,64 +24241,64 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i28908"
- "i28906"
- "i28904"
- "i28902"
- "i28900"
- "i28898"
- "i28896")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile))
()))
- #{tmp 29434}#)
+ #{tmp 29807}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{p 29352}#)))))))
- (#{quasicons 29168}#
- (lambda (#{x 29447}# #{y 29448}#)
- (let ((#{tmp 29449}# (list #{x 29447}# #{y 29448}#)))
- (let ((#{tmp 29450}#
- ($sc-dispatch #{tmp 29449}# '(any any))))
- (if #{tmp 29450}#
+ #{p 29725}#)))))))
+ (#{quasicons 29541}#
+ (lambda (#{x 29820}# #{y 29821}#)
+ (let ((#{tmp 29822}# (list #{x 29820}# #{y 29821}#)))
+ (let ((#{tmp 29823}#
+ ($sc-dispatch #{tmp 29822}# '(any any))))
+ (if #{tmp 29823}#
(@apply
- (lambda (#{x 29452}# #{y 29453}#)
- (let ((#{tmp 29455}#
+ (lambda (#{x 29825}# #{y 29826}#)
+ (let ((#{tmp 29828}#
($sc-dispatch
- #{y 29453}#
+ #{y 29826}#
'(#(atom "quote") any))))
- (if #{tmp 29455}#
+ (if #{tmp 29828}#
(@apply
- (lambda (#{dy 29459}#)
- (let ((#{tmp 29461}#
+ (lambda (#{dy 29832}#)
+ (let ((#{tmp 29834}#
($sc-dispatch
- #{x 29452}#
+ #{x 29825}#
'(#(atom "quote") any))))
- (if #{tmp 29461}#
+ (if #{tmp 29834}#
(@apply
- (lambda (#{dx 29465}#)
+ (lambda (#{dx 29838}#)
(list '#(syntax-object
"quote"
((top)
#(ribcage
#(dx)
#((top))
- #("i28986"))
+ #("i29359"))
#(ribcage
#(dy)
#((top))
- #("i28982"))
+ #("i29355"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i28976" "i28977"))
+ #("i29349" "i29350"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i28971" "i28972"))
+ #("i29344" "i29345"))
#(ribcage
(emit quasivector
quasilist*
@@ -40276,39 +24313,39 @@
(top)
(top)
(top))
- ("i28908"
- "i28906"
- "i28904"
- "i28902"
- "i28900"
- "i28898"
- "i28896")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile))
- (cons #{dx 29465}# #{dy 29459}#)))
- #{tmp 29461}#)
- (if (null? #{dy 29459}#)
+ (cons #{dx 29838}# #{dy 29832}#)))
+ #{tmp 29834}#)
+ (if (null? #{dy 29832}#)
(list '#(syntax-object
"list"
((top)
#(ribcage
#(_)
#((top))
- #("i28988"))
+ #("i29361"))
#(ribcage
#(dy)
#((top))
- #("i28982"))
+ #("i29355"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i28976" "i28977"))
+ #("i29349" "i29350"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i28971" "i28972"))
+ #("i29344" "i29345"))
#(ribcage
(emit quasivector
quasilist*
@@ -40323,37 +24360,37 @@
(top)
(top)
(top))
- ("i28908"
- "i28906"
- "i28904"
- "i28902"
- "i28900"
- "i28898"
- "i28896")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile))
- #{x 29452}#)
+ #{x 29825}#)
(list '#(syntax-object
"list*"
((top)
#(ribcage
#(_)
#((top))
- #("i28988"))
+ #("i29361"))
#(ribcage
#(dy)
#((top))
- #("i28982"))
+ #("i29355"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i28976" "i28977"))
+ #("i29349" "i29350"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i28971" "i28972"))
+ #("i29344" "i29345"))
#(ribcage
(emit quasivector
quasilist*
@@ -40368,42 +24405,42 @@
(top)
(top)
(top))
- ("i28908"
- "i28906"
- "i28904"
- "i28902"
- "i28900"
- "i28898"
- "i28896")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile))
- #{x 29452}#
- #{y 29453}#)))))
- #{tmp 29455}#)
- (let ((#{tmp 29470}#
+ #{x 29825}#
+ #{y 29826}#)))))
+ #{tmp 29828}#)
+ (let ((#{tmp 29843}#
($sc-dispatch
- #{y 29453}#
+ #{y 29826}#
'(#(atom "list") . any))))
- (if #{tmp 29470}#
+ (if #{tmp 29843}#
(@apply
- (lambda (#{stuff 29474}#)
+ (lambda (#{stuff 29847}#)
(cons '#(syntax-object
"list"
((top)
#(ribcage
#(stuff)
#((top))
- #("i28991"))
+ #("i29364"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i28976" "i28977"))
+ #("i29349" "i29350"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i28971" "i28972"))
+ #("i29344" "i29345"))
#(ribcage
(emit quasivector
quasilist*
@@ -40418,41 +24455,41 @@
(top)
(top)
(top))
- ("i28908"
- "i28906"
- "i28904"
- "i28902"
- "i28900"
- "i28898"
- "i28896")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile))
- (cons #{x 29452}# #{stuff 29474}#)))
- #{tmp 29470}#)
- (let ((#{tmp 29475}#
+ (cons #{x 29825}# #{stuff 29847}#)))
+ #{tmp 29843}#)
+ (let ((#{tmp 29848}#
($sc-dispatch
- #{y 29453}#
+ #{y 29826}#
'(#(atom "list*") . any))))
- (if #{tmp 29475}#
+ (if #{tmp 29848}#
(@apply
- (lambda (#{stuff 29479}#)
+ (lambda (#{stuff 29852}#)
(cons '#(syntax-object
"list*"
((top)
#(ribcage
#(stuff)
#((top))
- #("i28994"))
+ #("i29367"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i28976" "i28977"))
+ #("i29349" "i29350"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i28971" "i28972"))
+ #("i29344" "i29345"))
#(ribcage
(emit quasivector
quasilist*
@@ -40467,31 +24504,31 @@
(top)
(top)
(top))
- ("i28908"
- "i28906"
- "i28904"
- "i28902"
- "i28900"
- "i28898"
- "i28896")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile))
- (cons #{x 29452}# #{stuff 29479}#)))
- #{tmp 29475}#)
+ (cons #{x 29825}# #{stuff 29852}#)))
+ #{tmp 29848}#)
(list '#(syntax-object
"list*"
((top)
- #(ribcage #(_) #((top)) #("i28996"))
+ #(ribcage #(_) #((top)) #("i29369"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i28976" "i28977"))
+ #("i29349" "i29350"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i28971" "i28972"))
+ #("i29344" "i29345"))
#(ribcage
(emit quasivector
quasilist*
@@ -40506,29 +24543,29 @@
(top)
(top)
(top))
- ("i28908"
- "i28906"
- "i28904"
- "i28902"
- "i28900"
- "i28898"
- "i28896")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile))
- #{x 29452}#
- #{y 29453}#))))))))
- #{tmp 29450}#)
+ #{x 29825}#
+ #{y 29826}#))))))))
+ #{tmp 29823}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 29449}#))))))
- (#{quasiappend 29169}#
- (lambda (#{x 29490}# #{y 29491}#)
- (let ((#{tmp 29493}#
- ($sc-dispatch #{y 29491}# '(#(atom "quote") ()))))
- (if #{tmp 29493}#
+ #{tmp 29822}#))))))
+ (#{quasiappend 29542}#
+ (lambda (#{x 29863}# #{y 29864}#)
+ (let ((#{tmp 29866}#
+ ($sc-dispatch #{y 29864}# '(#(atom "quote") ()))))
+ (if #{tmp 29866}#
(@apply
(lambda ()
- (if (null? #{x 29490}#)
+ (if (null? #{x 29863}#)
'(#(syntax-object
"quote"
((top)
@@ -40536,7 +24573,7 @@
#(ribcage
#(x y)
#((top) (top))
- #("i29000" "i29001"))
+ #("i29373" "i29374"))
#(ribcage
(emit quasivector
quasilist*
@@ -40545,32 +24582,32 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i28908"
- "i28906"
- "i28904"
- "i28902"
- "i28900"
- "i28898"
- "i28896")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile))
())
- (if (null? (cdr #{x 29490}#))
- (car #{x 29490}#)
- (let ((#{tmp 29498}#
- ($sc-dispatch #{x 29490}# 'each-any)))
- (if #{tmp 29498}#
+ (if (null? (cdr #{x 29863}#))
+ (car #{x 29863}#)
+ (let ((#{tmp 29871}#
+ ($sc-dispatch #{x 29863}# 'each-any)))
+ (if #{tmp 29871}#
(@apply
- (lambda (#{p 29502}#)
+ (lambda (#{p 29875}#)
(cons '#(syntax-object
"append"
((top)
#(ribcage () () ())
- #(ribcage #(p) #((top)) #("i29012"))
+ #(ribcage #(p) #((top)) #("i29385"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i29000" "i29001"))
+ #("i29373" "i29374"))
#(ribcage
(emit quasivector
quasilist*
@@ -40585,29 +24622,29 @@
(top)
(top)
(top))
- ("i28908"
- "i28906"
- "i28904"
- "i28902"
- "i28900"
- "i28898"
- "i28896")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile))
- #{p 29502}#))
- #{tmp 29498}#)
+ #{p 29875}#))
+ #{tmp 29871}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 29490}#))))))
- #{tmp 29493}#)
- (if (null? #{x 29490}#)
- #{y 29491}#
- (let ((#{tmp 29510}# (list #{x 29490}# #{y 29491}#)))
- (let ((#{tmp 29511}#
- ($sc-dispatch #{tmp 29510}# '(each-any any))))
- (if #{tmp 29511}#
+ #{x 29863}#))))))
+ #{tmp 29866}#)
+ (if (null? #{x 29863}#)
+ #{y 29864}#
+ (let ((#{tmp 29883}# (list #{x 29863}# #{y 29864}#)))
+ (let ((#{tmp 29884}#
+ ($sc-dispatch #{tmp 29883}# '(each-any any))))
+ (if #{tmp 29884}#
(@apply
- (lambda (#{p 29513}# #{y 29514}#)
+ (lambda (#{p 29886}# #{y 29887}#)
(cons '#(syntax-object
"append"
((top)
@@ -40615,13 +24652,13 @@
#(ribcage
#(p y)
#((top) (top))
- #("i29023" "i29024"))
- #(ribcage #(_) #((top)) #("i29015"))
+ #("i29396" "i29397"))
+ #(ribcage #(_) #((top)) #("i29388"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i29000" "i29001"))
+ #("i29373" "i29374"))
#(ribcage
(emit quasivector
quasilist*
@@ -40636,44 +24673,44 @@
(top)
(top)
(top))
- ("i28908"
- "i28906"
- "i28904"
- "i28902"
- "i28900"
- "i28898"
- "i28896")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile))
- (append #{p 29513}# (list #{y 29514}#))))
- #{tmp 29511}#)
+ (append #{p 29886}# (list #{y 29887}#))))
+ #{tmp 29884}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 29510}#)))))))))
- (#{quasilist* 29170}#
- (lambda (#{x 29518}# #{y 29519}#)
+ #{tmp 29883}#)))))))))
+ (#{quasilist* 29543}#
+ (lambda (#{x 29891}# #{y 29892}#)
(letrec*
- ((#{f 29520}#
- (lambda (#{x 29609}#)
- (if (null? #{x 29609}#)
- #{y 29519}#
- (#{quasicons 29168}#
- (car #{x 29609}#)
- (#{f 29520}# (cdr #{x 29609}#)))))))
- (#{f 29520}# #{x 29518}#))))
- (#{emit 29172}#
- (lambda (#{x 29612}#)
- (let ((#{tmp 29614}#
- ($sc-dispatch #{x 29612}# '(#(atom "quote") any))))
- (if #{tmp 29614}#
+ ((#{f 29893}#
+ (lambda (#{x 29982}#)
+ (if (null? #{x 29982}#)
+ #{y 29892}#
+ (#{quasicons 29541}#
+ (car #{x 29982}#)
+ (#{f 29893}# (cdr #{x 29982}#)))))))
+ (#{f 29893}# #{x 29891}#))))
+ (#{emit 29545}#
+ (lambda (#{x 29985}#)
+ (let ((#{tmp 29987}#
+ ($sc-dispatch #{x 29985}# '(#(atom "quote") any))))
+ (if #{tmp 29987}#
(@apply
- (lambda (#{x 29618}#)
+ (lambda (#{x 29991}#)
(list '#(syntax-object
quote
((top)
- #(ribcage #(x) #((top)) #("i29090"))
+ #(ribcage #(x) #((top)) #("i29463"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i29087"))
+ #(ribcage #(x) #((top)) #("i29460"))
#(ribcage
(emit quasivector
quasilist*
@@ -40682,40 +24719,40 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i28908"
- "i28906"
- "i28904"
- "i28902"
- "i28900"
- "i28898"
- "i28896")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile))
- #{x 29618}#))
- #{tmp 29614}#)
- (let ((#{tmp 29619}#
+ #{x 29991}#))
+ #{tmp 29987}#)
+ (let ((#{tmp 29992}#
($sc-dispatch
- #{x 29612}#
+ #{x 29985}#
'(#(atom "list") . each-any))))
- (if #{tmp 29619}#
+ (if #{tmp 29992}#
(@apply
- (lambda (#{x 29623}#)
- (let ((#{tmp 29624}# (map #{emit 29172}# #{x 29623}#)))
- (let ((#{tmp 29625}#
- ($sc-dispatch #{tmp 29624}# 'each-any)))
- (if #{tmp 29625}#
+ (lambda (#{x 29996}#)
+ (let ((#{tmp 29997}# (map #{emit 29545}# #{x 29996}#)))
+ (let ((#{tmp 29998}#
+ ($sc-dispatch #{tmp 29997}# 'each-any)))
+ (if #{tmp 29998}#
(@apply
- (lambda (#{ g29095 29627}#)
+ (lambda (#{ g29468 30000}#)
(cons '#(syntax-object
list
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g29095}#)
- #((m29096 top))
- #("i29100"))
- #(ribcage #(x) #((top)) #("i29093"))
+ #(#{ g29468}#)
+ #((m29469 top))
+ #("i29473"))
+ #(ribcage #(x) #((top)) #("i29466"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i29087"))
+ #(ribcage #(x) #((top)) #("i29460"))
#(ribcage
(emit quasivector
quasilist*
@@ -40730,70 +24767,70 @@
(top)
(top)
(top))
- ("i28908"
- "i28906"
- "i28904"
- "i28902"
- "i28900"
- "i28898"
- "i28896")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile))
- #{ g29095 29627}#))
- #{tmp 29625}#)
+ #{ g29468 30000}#))
+ #{tmp 29998}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 29624}#)))))
- #{tmp 29619}#)
- (let ((#{tmp 29628}#
+ #{tmp 29997}#)))))
+ #{tmp 29992}#)
+ (let ((#{tmp 30001}#
($sc-dispatch
- #{x 29612}#
+ #{x 29985}#
'(#(atom "list*") . #(each+ any (any) ())))))
- (if #{tmp 29628}#
+ (if #{tmp 30001}#
(@apply
- (lambda (#{x 29632}# #{y 29633}#)
+ (lambda (#{x 30005}# #{y 30006}#)
(letrec*
- ((#{f 29634}#
- (lambda (#{x* 29637}#)
- (if (null? #{x* 29637}#)
- (#{emit 29172}# #{y 29633}#)
- (let ((#{tmp 29638}#
- (list (#{emit 29172}#
- (car #{x* 29637}#))
- (#{f 29634}#
- (cdr #{x* 29637}#)))))
- (let ((#{tmp 29639}#
+ ((#{f 30007}#
+ (lambda (#{x* 30010}#)
+ (if (null? #{x* 30010}#)
+ (#{emit 29545}# #{y 30006}#)
+ (let ((#{tmp 30011}#
+ (list (#{emit 29545}#
+ (car #{x* 30010}#))
+ (#{f 30007}#
+ (cdr #{x* 30010}#)))))
+ (let ((#{tmp 30012}#
($sc-dispatch
- #{tmp 29638}#
+ #{tmp 30011}#
'(any any))))
- (if #{tmp 29639}#
+ (if #{tmp 30012}#
(@apply
- (lambda (#{ g29115 29641}#
- #{ g29114 29642}#)
+ (lambda (#{ g29488 30014}#
+ #{ g29487 30015}#)
(list '#(syntax-object
cons
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g29115}#
- #{ g29114}#)
- #((m29116 top)
- (m29116 top))
- #("i29120" "i29121"))
+ #(#{ g29488}#
+ #{ g29487}#)
+ #((m29489 top)
+ (m29489 top))
+ #("i29493" "i29494"))
#(ribcage () () ())
#(ribcage
#(f x*)
#((top) (top))
- #("i29109" "i29110"))
+ #("i29482" "i29483"))
#(ribcage
#(x y)
#((top) (top))
- #("i29105" "i29106"))
+ #("i29478" "i29479"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i29087"))
+ #("i29460"))
#(ribcage
(emit quasivector
quasilist*
@@ -40808,56 +24845,56 @@
(top)
(top)
(top))
- ("i28908"
- "i28906"
- "i28904"
- "i28902"
- "i28900"
- "i28898"
- "i28896")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile))
- #{ g29115 29641}#
- #{ g29114 29642}#))
- #{tmp 29639}#)
+ #{ g29488 30014}#
+ #{ g29487 30015}#))
+ #{tmp 30012}#)
(syntax-violation
#f
"source expression failed to match
any pattern"
- #{tmp 29638}#))))))))
- (#{f 29634}# #{x 29632}#)))
- #{tmp 29628}#)
- (let ((#{tmp 29643}#
+ #{tmp 30011}#))))))))
+ (#{f 30007}# #{x 30005}#)))
+ #{tmp 30001}#)
+ (let ((#{tmp 30016}#
($sc-dispatch
- #{x 29612}#
+ #{x 29985}#
'(#(atom "append") . each-any))))
- (if #{tmp 29643}#
+ (if #{tmp 30016}#
(@apply
- (lambda (#{x 29647}#)
- (let ((#{tmp 29648}#
- (map #{emit 29172}# #{x 29647}#)))
- (let ((#{tmp 29649}#
+ (lambda (#{x 30020}#)
+ (let ((#{tmp 30021}#
+ (map #{emit 29545}# #{x 30020}#)))
+ (let ((#{tmp 30022}#
($sc-dispatch
- #{tmp 29648}#
+ #{tmp 30021}#
'each-any)))
- (if #{tmp 29649}#
+ (if #{tmp 30022}#
(@apply
- (lambda (#{ g29127 29651}#)
+ (lambda (#{ g29500 30024}#)
(cons '#(syntax-object
append
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g29127}#)
- #((m29128 top))
- #("i29132"))
+ #(#{ g29500}#)
+ #((m29501 top))
+ #("i29505"))
#(ribcage
#(x)
#((top))
- #("i29125"))
+ #("i29498"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i29087"))
+ #("i29460"))
#(ribcage
(emit quasivector
quasilist*
@@ -40872,54 +24909,54 @@
(top)
(top)
(top))
- ("i28908"
- "i28906"
- "i28904"
- "i28902"
- "i28900"
- "i28898"
- "i28896")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile))
- #{ g29127 29651}#))
- #{tmp 29649}#)
+ #{ g29500 30024}#))
+ #{tmp 30022}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp 29648}#)))))
- #{tmp 29643}#)
- (let ((#{tmp 29652}#
+ #{tmp 30021}#)))))
+ #{tmp 30016}#)
+ (let ((#{tmp 30025}#
($sc-dispatch
- #{x 29612}#
+ #{x 29985}#
'(#(atom "vector") . each-any))))
- (if #{tmp 29652}#
+ (if #{tmp 30025}#
(@apply
- (lambda (#{x 29656}#)
- (let ((#{tmp 29657}#
- (map #{emit 29172}# #{x 29656}#)))
- (let ((#{tmp 29658}#
+ (lambda (#{x 30029}#)
+ (let ((#{tmp 30030}#
+ (map #{emit 29545}# #{x 30029}#)))
+ (let ((#{tmp 30031}#
($sc-dispatch
- #{tmp 29657}#
+ #{tmp 30030}#
'each-any)))
- (if #{tmp 29658}#
+ (if #{tmp 30031}#
(@apply
- (lambda (#{ g29139 29660}#)
+ (lambda (#{ g29512 30033}#)
(cons '#(syntax-object
vector
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g29139}#)
- #((m29140 top))
- #("i29144"))
+ #(#{ g29512}#)
+ #((m29513 top))
+ #("i29517"))
#(ribcage
#(x)
#((top))
- #("i29137"))
+ #("i29510"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i29087"))
+ #("i29460"))
#(ribcage
(emit quasivector
quasilist*
@@ -40934,47 +24971,47 @@
(top)
(top)
(top))
- ("i28908"
- "i28906"
- "i28904"
- "i28902"
- "i28900"
- "i28898"
- "i28896")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile))
- #{ g29139 29660}#))
- #{tmp 29658}#)
+ #{ g29512 30033}#))
+ #{tmp 30031}#)
(syntax-violation
#f
"source expression failed to match
any pattern"
- #{tmp 29657}#)))))
- #{tmp 29652}#)
- (let ((#{tmp 29661}#
+ #{tmp 30030}#)))))
+ #{tmp 30025}#)
+ (let ((#{tmp 30034}#
($sc-dispatch
- #{x 29612}#
+ #{x 29985}#
'(#(atom "list->vector") any))))
- (if #{tmp 29661}#
+ (if #{tmp 30034}#
(@apply
- (lambda (#{x 29665}#)
- (let ((#{tmp 29666}#
- (#{emit 29172}# #{x 29665}#)))
+ (lambda (#{x 30038}#)
+ (let ((#{tmp 30039}#
+ (#{emit 29545}# #{x 30038}#)))
(list '#(syntax-object
list->vector
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g29151}#)
- #((m29152 top))
- #("i29155"))
+ #(#{ g29524}#)
+ #((m29525 top))
+ #("i29528"))
#(ribcage
#(x)
#((top))
- #("i29149"))
+ #("i29522"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i29087"))
+ #("i29460"))
#(ribcage
(emit quasivector
quasilist*
@@ -40989,188 +25026,188 @@
(top)
(top)
(top))
- ("i28908"
- "i28906"
- "i28904"
- "i28902"
- "i28900"
- "i28898"
- "i28896")))
+ ("i29281"
+ "i29279"
+ "i29277"
+ "i29275"
+ "i29273"
+ "i29271"
+ "i29269")))
(hygiene guile))
- #{tmp 29666}#)))
- #{tmp 29661}#)
- (let ((#{tmp 29669}#
+ #{tmp 30039}#)))
+ #{tmp 30034}#)
+ (let ((#{tmp 30042}#
($sc-dispatch
- #{x 29612}#
+ #{x 29985}#
'(#(atom "value") any))))
- (if #{tmp 29669}#
+ (if #{tmp 30042}#
(@apply
- (lambda (#{x 29673}#) #{x 29673}#)
- #{tmp 29669}#)
+ (lambda (#{x 30046}#) #{x 30046}#)
+ #{tmp 30042}#)
(syntax-violation
#f
"source expression failed to match
any pattern"
- #{x 29612}#))))))))))))))))))
- (lambda (#{x 29173}#)
- (let ((#{tmp 29175}#
- ($sc-dispatch #{x 29173}# '(_ any))))
- (if #{tmp 29175}#
+ #{x 29985}#))))))))))))))))))
+ (lambda (#{x 29546}#)
+ (let ((#{tmp 29548}#
+ ($sc-dispatch #{x 29546}# '(_ any))))
+ (if #{tmp 29548}#
(@apply
- (lambda (#{e 29179}#)
- (#{emit 29172}# (#{quasi 29166}# #{e 29179}# 0)))
- #{tmp 29175}#)
+ (lambda (#{e 29552}#)
+ (#{emit 29545}# (#{quasi 29539}# #{e 29552}# 0)))
+ #{tmp 29548}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 29173}#)))))))
+ #{x 29546}#)))))))
(define include
(make-syntax-transformer
'include
'macro
- (lambda (#{x 29728}#)
+ (lambda (#{x 30101}#)
(letrec*
- ((#{read-file 29729}#
- (lambda (#{fn 29840}# #{k 29841}#)
- (let ((#{p 29842}# (open-input-file #{fn 29840}#)))
+ ((#{read-file 30102}#
+ (lambda (#{fn 30213}# #{k 30214}#)
+ (let ((#{p 30215}# (open-input-file #{fn 30213}#)))
(letrec*
- ((#{f 29843}#
- (lambda (#{x 29897}# #{result 29898}#)
- (if (eof-object? #{x 29897}#)
+ ((#{f 30216}#
+ (lambda (#{x 30270}# #{result 30271}#)
+ (if (eof-object? #{x 30270}#)
(begin
- (close-input-port #{p 29842}#)
- (reverse #{result 29898}#))
- (#{f 29843}#
- (read #{p 29842}#)
- (cons (datum->syntax #{k 29841}# #{x 29897}#)
- #{result 29898}#))))))
- (#{f 29843}# (read #{p 29842}#) '()))))))
- (let ((#{tmp 29731}#
- ($sc-dispatch #{x 29728}# '(any any))))
- (if #{tmp 29731}#
+ (close-input-port #{p 30215}#)
+ (reverse #{result 30271}#))
+ (#{f 30216}#
+ (read #{p 30215}#)
+ (cons (datum->syntax #{k 30214}# #{x 30270}#)
+ #{result 30271}#))))))
+ (#{f 30216}# (read #{p 30215}#) '()))))))
+ (let ((#{tmp 30104}#
+ ($sc-dispatch #{x 30101}# '(any any))))
+ (if #{tmp 30104}#
(@apply
- (lambda (#{k 29735}# #{filename 29736}#)
- (let ((#{fn 29737}# (syntax->datum #{filename 29736}#)))
- (let ((#{tmp 29738}#
- (#{read-file 29729}#
- #{fn 29737}#
- #{filename 29736}#)))
- (let ((#{tmp 29739}#
- ($sc-dispatch #{tmp 29738}# 'each-any)))
- (if #{tmp 29739}#
+ (lambda (#{k 30108}# #{filename 30109}#)
+ (let ((#{fn 30110}# (syntax->datum #{filename 30109}#)))
+ (let ((#{tmp 30111}#
+ (#{read-file 30102}#
+ #{fn 30110}#
+ #{filename 30109}#)))
+ (let ((#{tmp 30112}#
+ ($sc-dispatch #{tmp 30111}# 'each-any)))
+ (if #{tmp 30112}#
(@apply
- (lambda (#{exp 29757}#)
+ (lambda (#{exp 30130}#)
(cons '#(syntax-object
begin
((top)
#(ribcage () () ())
- #(ribcage #(exp) #((top)) #("i29725"))
+ #(ribcage #(exp) #((top)) #("i30098"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("i29720"))
+ #(ribcage #(fn) #((top)) #("i30093"))
#(ribcage
#(k filename)
#((top) (top))
- #("i29716" "i29717"))
- #(ribcage (read-file) ((top)) ("i29700"))
- #(ribcage #(x) #((top)) #("i29699")))
+ #("i30089" "i30090"))
+ #(ribcage (read-file) ((top)) ("i30073"))
+ #(ribcage #(x) #((top)) #("i30072")))
(hygiene guile))
- #{exp 29757}#))
- #{tmp 29739}#)
+ #{exp 30130}#))
+ #{tmp 30112}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 29738}#))))))
- #{tmp 29731}#)
+ #{tmp 30111}#))))))
+ #{tmp 30104}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 29728}#)))))))
+ #{x 30101}#)))))))
(define include-from-path
(make-syntax-transformer
'include-from-path
'macro
- (lambda (#{x 29917}#)
- (let ((#{tmp 29919}#
- ($sc-dispatch #{x 29917}# '(any any))))
- (if #{tmp 29919}#
+ (lambda (#{x 30290}#)
+ (let ((#{tmp 30292}#
+ ($sc-dispatch #{x 30290}# '(any any))))
+ (if #{tmp 30292}#
(@apply
- (lambda (#{k 29923}# #{filename 29924}#)
- (let ((#{fn 29925}# (syntax->datum #{filename 29924}#)))
- (let ((#{tmp 29926}#
+ (lambda (#{k 30296}# #{filename 30297}#)
+ (let ((#{fn 30298}# (syntax->datum #{filename 30297}#)))
+ (let ((#{tmp 30299}#
(datum->syntax
- #{filename 29924}#
- (let ((#{t 29929}# (%search-load-path #{fn 29925}#)))
- (if #{t 29929}#
- #{t 29929}#
+ #{filename 30297}#
+ (let ((#{t 30302}# (%search-load-path #{fn 30298}#)))
+ (if #{t 30302}#
+ #{t 30302}#
(syntax-violation
'include-from-path
"file not found in path"
- #{x 29917}#
- #{filename 29924}#))))))
+ #{x 30290}#
+ #{filename 30297}#))))))
(list '#(syntax-object
include
((top)
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("i29911"))
+ #(ribcage #(fn) #((top)) #("i30284"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("i29907"))
+ #(ribcage #(fn) #((top)) #("i30280"))
#(ribcage
#(k filename)
#((top) (top))
- #("i29903" "i29904"))
+ #("i30276" "i30277"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i29900")))
+ #(ribcage #(x) #((top)) #("i30273")))
(hygiene guile))
- #{tmp 29926}#))))
- #{tmp 29919}#)
+ #{tmp 30299}#))))
+ #{tmp 30292}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 29917}#))))))
+ #{x 30290}#))))))
(define unquote
(make-syntax-transformer
'unquote
'macro
- (lambda (#{x 29938}#)
+ (lambda (#{x 30311}#)
(syntax-violation
'unquote
"expression not valid outside of quasiquote"
- #{x 29938}#))))
+ #{x 30311}#))))
(define unquote-splicing
(make-syntax-transformer
'unquote-splicing
'macro
- (lambda (#{x 29941}#)
+ (lambda (#{x 30314}#)
(syntax-violation
'unquote-splicing
"expression not valid outside of quasiquote"
- #{x 29941}#))))
+ #{x 30314}#))))
(define case
(make-syntax-transformer
'case
'macro
- (lambda (#{x 29997}#)
- (let ((#{tmp 29999}#
+ (lambda (#{x 30370}#)
+ (let ((#{tmp 30372}#
($sc-dispatch
- #{x 29997}#
+ #{x 30370}#
'(_ any any . each-any))))
- (if #{tmp 29999}#
+ (if #{tmp 30372}#
(@apply
- (lambda (#{e 30003}# #{m1 30004}# #{m2 30005}#)
- (let ((#{tmp 30006}#
+ (lambda (#{e 30376}# #{m1 30377}# #{m2 30378}#)
+ (let ((#{tmp 30379}#
(letrec*
- ((#{f 30052}#
- (lambda (#{clause 30055}# #{clauses 30056}#)
- (if (null? #{clauses 30056}#)
- (let ((#{tmp 30058}#
+ ((#{f 30425}#
+ (lambda (#{clause 30428}# #{clauses 30429}#)
+ (if (null? #{clauses 30429}#)
+ (let ((#{tmp 30431}#
($sc-dispatch
- #{clause 30055}#
+ #{clause 30428}#
'(#(free-id
#(syntax-object
else
@@ -41179,91 +25216,91 @@
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i29956"
- "i29957"
- "i29958"))
+ #("i30329"
+ "i30330"
+ "i30331"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i29946"
- "i29947"
- "i29948"))
+ #("i30319"
+ "i30320"
+ "i30321"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i29943")))
+ #("i30316")))
(hygiene guile)))
any
.
each-any))))
- (if #{tmp 30058}#
+ (if #{tmp 30431}#
(@apply
- (lambda (#{e1 30062}# #{e2 30063}#)
+ (lambda (#{e1 30435}# #{e2 30436}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i29965" "i29966"))
+ #("i30338" "i30339"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i29956"
- "i29957"
- "i29958"))
+ #("i30329"
+ "i30330"
+ "i30331"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i29946"
- "i29947"
- "i29948"))
+ #("i30319"
+ "i30320"
+ "i30321"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i29943")))
+ #("i30316")))
(hygiene guile))
- (cons #{e1 30062}# #{e2 30063}#)))
- #{tmp 30058}#)
- (let ((#{tmp 30064}#
+ (cons #{e1 30435}# #{e2 30436}#)))
+ #{tmp 30431}#)
+ (let ((#{tmp 30437}#
($sc-dispatch
- #{clause 30055}#
+ #{clause 30428}#
'(each-any any . each-any))))
- (if #{tmp 30064}#
+ (if #{tmp 30437}#
(@apply
- (lambda (#{k 30068}#
- #{e1 30069}#
- #{e2 30070}#)
+ (lambda (#{k 30441}#
+ #{e1 30442}#
+ #{e2 30443}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i29971"
- "i29972"
- "i29973"))
+ #("i30344"
+ "i30345"
+ "i30346"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i29956"
- "i29957"
- "i29958"))
+ #("i30329"
+ "i30330"
+ "i30331"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i29946"
- "i29947"
- "i29948"))
+ #("i30319"
+ "i30320"
+ "i30321"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i29943")))
+ #("i30316")))
(hygiene guile))
(list '#(syntax-object
memv
@@ -41273,9 +25310,9 @@
#((top)
(top)
(top))
- #("i29971"
- "i29972"
- "i29973"))
+ #("i30344"
+ "i30345"
+ "i30346"))
#(ribcage () () ())
#(ribcage
#(f
@@ -41284,22 +25321,22 @@
#((top)
(top)
(top))
- #("i29956"
- "i29957"
- "i29958"))
+ #("i30329"
+ "i30330"
+ "i30331"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i29946"
- "i29947"
- "i29948"))
+ #("i30319"
+ "i30320"
+ "i30321"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i29943")))
+ #("i30316")))
(hygiene guile))
'#(syntax-object
t
@@ -41309,9 +25346,9 @@
#((top)
(top)
(top))
- #("i29971"
- "i29972"
- "i29973"))
+ #("i30344"
+ "i30345"
+ "i30346"))
#(ribcage () () ())
#(ribcage
#(f
@@ -41320,22 +25357,22 @@
#((top)
(top)
(top))
- #("i29956"
- "i29957"
- "i29958"))
+ #("i30329"
+ "i30330"
+ "i30331"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i29946"
- "i29947"
- "i29948"))
+ #("i30319"
+ "i30320"
+ "i30321"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i29943")))
+ #("i30316")))
(hygiene guile))
(list '#(syntax-object
quote
@@ -41345,9 +25382,9 @@
#((top)
(top)
(top))
- #("i29971"
- "i29972"
- "i29973"))
+ #("i30344"
+ "i30345"
+ "i30346"))
#(ribcage
()
()
@@ -41359,17 +25396,17 @@
#((top)
(top)
(top))
- #("i29956"
- "i29957"
- "i29958"))
+ #("i30329"
+ "i30330"
+ "i30331"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i29946"
- "i29947"
- "i29948"))
+ #("i30319"
+ "i30320"
+ "i30321"))
#(ribcage
()
()
@@ -41377,10 +25414,10 @@
#(ribcage
#(x)
#((top))
-
#("i29943")))
+
#("i30316")))
(hygiene
guile))
- #{k 30068}#))
+ #{k 30441}#))
(cons '#(syntax-object
begin
((top)
@@ -41389,9 +25426,9 @@
#((top)
(top)
(top))
- #("i29971"
- "i29972"
- "i29973"))
+ #("i30344"
+ "i30345"
+ "i30346"))
#(ribcage () () ())
#(ribcage
#(f
@@ -41400,76 +25437,76 @@
#((top)
(top)
(top))
- #("i29956"
- "i29957"
- "i29958"))
+ #("i30329"
+ "i30330"
+ "i30331"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i29946"
- "i29947"
- "i29948"))
+ #("i30319"
+ "i30320"
+ "i30321"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i29943")))
+ #("i30316")))
(hygiene guile))
- (cons #{e1 30069}#
- #{e2 30070}#))))
- #{tmp 30064}#)
+ (cons #{e1 30442}#
+ #{e2 30443}#))))
+ #{tmp 30437}#)
(syntax-violation
'case
"bad clause"
- #{x 29997}#
- #{clause 30055}#)))))
- (let ((#{tmp 30078}#
- (#{f 30052}#
- (car #{clauses 30056}#)
- (cdr #{clauses 30056}#))))
- (let ((#{tmp 30081}#
+ #{x 30370}#
+ #{clause 30428}#)))))
+ (let ((#{tmp 30451}#
+ (#{f 30425}#
+ (car #{clauses 30429}#)
+ (cdr #{clauses 30429}#))))
+ (let ((#{tmp 30454}#
($sc-dispatch
- #{clause 30055}#
+ #{clause 30428}#
'(each-any any . each-any))))
- (if #{tmp 30081}#
+ (if #{tmp 30454}#
(@apply
- (lambda (#{k 30085}#
- #{e1 30086}#
- #{e2 30087}#)
+ (lambda (#{k 30458}#
+ #{e1 30459}#
+ #{e2 30460}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i29987"
- "i29988"
- "i29989"))
+ #("i30360"
+ "i30361"
+ "i30362"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("i29983"))
+ #("i30356"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i29956"
- "i29957"
- "i29958"))
+ #("i30329"
+ "i30330"
+ "i30331"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i29946"
- "i29947"
- "i29948"))
+ #("i30319"
+ "i30320"
+ "i30321"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i29943")))
+ #("i30316")))
(hygiene guile))
(list '#(syntax-object
memv
@@ -41477,32 +25514,32 @@
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i29987"
- "i29988"
- "i29989"))
+ #("i30360"
+ "i30361"
+ "i30362"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("i29983"))
+ #("i30356"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i29956"
- "i29957"
- "i29958"))
+ #("i30329"
+ "i30330"
+ "i30331"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i29946"
- "i29947"
- "i29948"))
+ #("i30319"
+ "i30320"
+ "i30321"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i29943")))
+ #("i30316")))
(hygiene guile))
'#(syntax-object
t
@@ -41510,32 +25547,32 @@
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i29987"
- "i29988"
- "i29989"))
+ #("i30360"
+ "i30361"
+ "i30362"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("i29983"))
+ #("i30356"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i29956"
- "i29957"
- "i29958"))
+ #("i30329"
+ "i30330"
+ "i30331"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i29946"
- "i29947"
- "i29948"))
+ #("i30319"
+ "i30320"
+ "i30321"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i29943")))
+ #("i30316")))
(hygiene guile))
(list '#(syntax-object
quote
@@ -41545,9 +25582,9 @@
#((top)
(top)
(top))
- #("i29987"
- "i29988"
- "i29989"))
+ #("i30360"
+ "i30361"
+ "i30362"))
#(ribcage
()
()
@@ -41555,7 +25592,7 @@
#(ribcage
#(rest)
#((top))
- #("i29983"))
+ #("i30356"))
#(ribcage
()
()
@@ -41567,17 +25604,17 @@
#((top)
(top)
(top))
- #("i29956"
- "i29957"
- "i29958"))
+ #("i30329"
+ "i30330"
+ "i30331"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i29946"
- "i29947"
- "i29948"))
+ #("i30319"
+ "i30320"
+ "i30321"))
#(ribcage
()
()
@@ -41585,232 +25622,232 @@
#(ribcage
#(x)
#((top))
- #("i29943")))
+ #("i30316")))
(hygiene guile))
- #{k 30085}#))
+ #{k 30458}#))
(cons '#(syntax-object
begin
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i29987"
- "i29988"
- "i29989"))
+ #("i30360"
+ "i30361"
+ "i30362"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("i29983"))
+ #("i30356"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i29956"
- "i29957"
- "i29958"))
+ #("i30329"
+ "i30330"
+ "i30331"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i29946"
- "i29947"
- "i29948"))
+ #("i30319"
+ "i30320"
+ "i30321"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i29943")))
+ #("i30316")))
(hygiene guile))
- (cons #{e1 30086}#
- #{e2 30087}#))
- #{tmp 30078}#))
- #{tmp 30081}#)
+ (cons #{e1 30459}#
+ #{e2 30460}#))
+ #{tmp 30451}#))
+ #{tmp 30454}#)
(syntax-violation
'case
"bad clause"
- #{x 29997}#
- #{clause 30055}#))))))))
- (#{f 30052}# #{m1 30004}# #{m2 30005}#))))
- (let ((#{body 30007}# #{tmp 30006}#))
+ #{x 30370}#
+ #{clause 30428}#))))))))
+ (#{f 30425}# #{m1 30377}# #{m2 30378}#))))
+ (let ((#{body 30380}# #{tmp 30379}#))
(list '#(syntax-object
let
((top)
#(ribcage () () ())
- #(ribcage #(body) #((top)) #("i29954"))
+ #(ribcage #(body) #((top)) #("i30327"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i29946" "i29947" "i29948"))
+ #("i30319" "i30320" "i30321"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i29943")))
+ #(ribcage #(x) #((top)) #("i30316")))
(hygiene guile))
(list (list '#(syntax-object
t
((top)
#(ribcage () () ())
- #(ribcage #(body) #((top)) #("i29954"))
+ #(ribcage #(body) #((top)) #("i30327"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i29946" "i29947" "i29948"))
+ #("i30319" "i30320" "i30321"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i29943")))
+ #(ribcage #(x) #((top)) #("i30316")))
(hygiene guile))
- #{e 30003}#))
- #{body 30007}#))))
- #{tmp 29999}#)
+ #{e 30376}#))
+ #{body 30380}#))))
+ #{tmp 30372}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 29997}#))))))
+ #{x 30370}#))))))
(define make-variable-transformer
- (lambda (#{proc 30105}#)
- (if (procedure? #{proc 30105}#)
+ (lambda (#{proc 30478}#)
+ (if (procedure? #{proc 30478}#)
(letrec*
- ((#{trans 30106}#
- (lambda (#{x 30112}#)
- (#{proc 30105}# #{x 30112}#))))
+ ((#{trans 30479}#
+ (lambda (#{x 30485}#)
+ (#{proc 30478}# #{x 30485}#))))
(begin
(set-procedure-property!
- #{trans 30106}#
+ #{trans 30479}#
'variable-transformer
#t)
- #{trans 30106}#))
+ #{trans 30479}#))
(error "variable transformer not a procedure"
- #{proc 30105}#))))
+ #{proc 30478}#))))
(define identifier-syntax
(make-syntax-transformer
'identifier-syntax
'macro
- (lambda (#{x 30144}#)
- (let ((#{tmp 30146}#
- ($sc-dispatch #{x 30144}# '(_ any))))
- (if #{tmp 30146}#
+ (lambda (#{x 30517}#)
+ (let ((#{tmp 30519}#
+ ($sc-dispatch #{x 30517}# '(_ any))))
+ (if #{tmp 30519}#
(@apply
- (lambda (#{e 30150}#)
+ (lambda (#{e 30523}#)
(list '#(syntax-object
lambda
((top)
- #(ribcage #(e) #((top)) #("i30119"))
+ #(ribcage #(e) #((top)) #("i30492"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30116")))
+ #(ribcage #(x) #((top)) #("i30489")))
(hygiene guile))
'(#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("i30119"))
+ #(ribcage #(e) #((top)) #("i30492"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30116")))
+ #(ribcage #(x) #((top)) #("i30489")))
(hygiene guile)))
'#((#(syntax-object
macro-type
((top)
- #(ribcage #(e) #((top)) #("i30119"))
+ #(ribcage #(e) #((top)) #("i30492"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30116")))
+ #(ribcage #(x) #((top)) #("i30489")))
(hygiene guile))
.
#(syntax-object
identifier-syntax
((top)
- #(ribcage #(e) #((top)) #("i30119"))
+ #(ribcage #(e) #((top)) #("i30492"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30116")))
+ #(ribcage #(x) #((top)) #("i30489")))
(hygiene guile))))
(list '#(syntax-object
syntax-case
((top)
- #(ribcage #(e) #((top)) #("i30119"))
+ #(ribcage #(e) #((top)) #("i30492"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30116")))
+ #(ribcage #(x) #((top)) #("i30489")))
(hygiene guile))
'#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("i30119"))
+ #(ribcage #(e) #((top)) #("i30492"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30116")))
+ #(ribcage #(x) #((top)) #("i30489")))
(hygiene guile))
'()
(list '#(syntax-object
id
((top)
- #(ribcage #(e) #((top)) #("i30119"))
+ #(ribcage #(e) #((top)) #("i30492"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30116")))
+ #(ribcage #(x) #((top)) #("i30489")))
(hygiene guile))
'(#(syntax-object
identifier?
((top)
- #(ribcage #(e) #((top)) #("i30119"))
+ #(ribcage #(e) #((top)) #("i30492"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30116")))
+ #(ribcage #(x) #((top)) #("i30489")))
(hygiene guile))
(#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("i30119"))
+ #(ribcage #(e) #((top)) #("i30492"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30116")))
+ #(ribcage #(x) #((top)) #("i30489")))
(hygiene guile))
#(syntax-object
id
((top)
- #(ribcage #(e) #((top)) #("i30119"))
+ #(ribcage #(e) #((top)) #("i30492"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30116")))
+ #(ribcage #(x) #((top)) #("i30489")))
(hygiene guile))))
(list '#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("i30119"))
+ #(ribcage #(e) #((top)) #("i30492"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30116")))
+ #(ribcage #(x) #((top)) #("i30489")))
(hygiene guile))
- #{e 30150}#))
+ #{e 30523}#))
(list '(#(syntax-object
_
((top)
- #(ribcage #(e) #((top)) #("i30119"))
+ #(ribcage #(e) #((top)) #("i30492"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30116")))
+ #(ribcage #(x) #((top)) #("i30489")))
(hygiene guile))
#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("i30119"))
+ #(ribcage #(e) #((top)) #("i30492"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30116")))
+ #(ribcage #(x) #((top)) #("i30489")))
(hygiene guile))
#(syntax-object
...
((top)
- #(ribcage #(e) #((top)) #("i30119"))
+ #(ribcage #(e) #((top)) #("i30492"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30116")))
+ #(ribcage #(x) #((top)) #("i30489")))
(hygiene guile)))
(list '#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("i30119"))
+ #(ribcage #(e) #((top)) #("i30492"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30116")))
+ #(ribcage #(x) #((top)) #("i30489")))
(hygiene guile))
- (cons #{e 30150}#
+ (cons #{e 30523}#
'(#(syntax-object
x
((top)
#(ribcage
#(e)
#((top))
- #("i30119"))
+ #("i30492"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i30116")))
+ #("i30489")))
(hygiene guile))
#(syntax-object
...
@@ -41818,55 +25855,55 @@
#(ribcage
#(e)
#((top))
- #("i30119"))
+ #("i30492"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i30116")))
+ #("i30489")))
(hygiene guile)))))))))
- #{tmp 30146}#)
- (let ((#{tmp 30151}#
+ #{tmp 30519}#)
+ (let ((#{tmp 30524}#
($sc-dispatch
- #{x 30144}#
+ #{x 30517}#
'(_ (any any)
((#(free-id
#(syntax-object
set!
((top)
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30116")))
+ #(ribcage #(x) #((top)) #("i30489")))
(hygiene guile)))
any
any)
any)))))
- (if (if #{tmp 30151}#
+ (if (if #{tmp 30524}#
(@apply
- (lambda (#{id 30155}#
- #{exp1 30156}#
- #{var 30157}#
- #{val 30158}#
- #{exp2 30159}#)
- (if (identifier? #{id 30155}#)
- (identifier? #{var 30157}#)
+ (lambda (#{id 30528}#
+ #{exp1 30529}#
+ #{var 30530}#
+ #{val 30531}#
+ #{exp2 30532}#)
+ (if (identifier? #{id 30528}#)
+ (identifier? #{var 30530}#)
#f))
- #{tmp 30151}#)
+ #{tmp 30524}#)
#f)
(@apply
- (lambda (#{id 30160}#
- #{exp1 30161}#
- #{var 30162}#
- #{val 30163}#
- #{exp2 30164}#)
+ (lambda (#{id 30533}#
+ #{exp1 30534}#
+ #{var 30535}#
+ #{val 30536}#
+ #{exp2 30537}#)
(list '#(syntax-object
make-variable-transformer
((top)
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i30134" "i30135" "i30136" "i30137" "i30138"))
+ #("i30507" "i30508" "i30509" "i30510" "i30511"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30116")))
+ #(ribcage #(x) #((top)) #("i30489")))
(hygiene guile))
(list '#(syntax-object
lambda
@@ -41874,13 +25911,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i30134"
- "i30135"
- "i30136"
- "i30137"
- "i30138"))
+ #("i30507"
+ "i30508"
+ "i30509"
+ "i30510"
+ "i30511"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30116")))
+ #(ribcage #(x) #((top)) #("i30489")))
(hygiene guile))
'(#(syntax-object
x
@@ -41888,13 +25925,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i30134"
- "i30135"
- "i30136"
- "i30137"
- "i30138"))
+ #("i30507"
+ "i30508"
+ "i30509"
+ "i30510"
+ "i30511"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30116")))
+ #(ribcage #(x) #((top)) #("i30489")))
(hygiene guile)))
'#((#(syntax-object
macro-type
@@ -41902,13 +25939,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i30134"
- "i30135"
- "i30136"
- "i30137"
- "i30138"))
+ #("i30507"
+ "i30508"
+ "i30509"
+ "i30510"
+ "i30511"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30116")))
+ #(ribcage #(x) #((top)) #("i30489")))
(hygiene guile))
.
#(syntax-object
@@ -41917,13 +25954,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i30134"
- "i30135"
- "i30136"
- "i30137"
- "i30138"))
+ #("i30507"
+ "i30508"
+ "i30509"
+ "i30510"
+ "i30511"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30116")))
+ #(ribcage #(x) #((top)) #("i30489")))
(hygiene guile))))
(list '#(syntax-object
syntax-case
@@ -41931,13 +25968,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i30134"
- "i30135"
- "i30136"
- "i30137"
- "i30138"))
+ #("i30507"
+ "i30508"
+ "i30509"
+ "i30510"
+ "i30511"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30116")))
+ #(ribcage #(x) #((top)) #("i30489")))
(hygiene guile))
'#(syntax-object
x
@@ -41945,13 +25982,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i30134"
- "i30135"
- "i30136"
- "i30137"
- "i30138"))
+ #("i30507"
+ "i30508"
+ "i30509"
+ "i30510"
+ "i30511"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30116")))
+ #(ribcage #(x) #((top)) #("i30489")))
(hygiene guile))
'(#(syntax-object
set!
@@ -41959,13 +25996,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i30134"
- "i30135"
- "i30136"
- "i30137"
- "i30138"))
+ #("i30507"
+ "i30508"
+ "i30509"
+ "i30510"
+ "i30511"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30116")))
+ #(ribcage #(x) #((top)) #("i30489")))
(hygiene guile)))
(list (list '#(syntax-object
set!
@@ -41977,19 +26014,19 @@
(top)
(top)
(top))
- #("i30134"
- "i30135"
- "i30136"
- "i30137"
- "i30138"))
+ #("i30507"
+ "i30508"
+ "i30509"
+ "i30510"
+ "i30511"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i30116")))
+ #("i30489")))
(hygiene guile))
- #{var 30162}#
- #{val 30163}#)
+ #{var 30535}#
+ #{val 30536}#)
(list '#(syntax-object
syntax
((top)
@@ -42000,19 +26037,19 @@
(top)
(top)
(top))
- #("i30134"
- "i30135"
- "i30136"
- "i30137"
- "i30138"))
+ #("i30507"
+ "i30508"
+ "i30509"
+ "i30510"
+ "i30511"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i30116")))
+ #("i30489")))
(hygiene guile))
- #{exp2 30164}#))
- (list (cons #{id 30160}#
+ #{exp2 30537}#))
+ (list (cons #{id 30533}#
'(#(syntax-object
x
((top)
@@ -42023,16 +26060,16 @@
(top)
(top)
(top))
- #("i30134"
- "i30135"
- "i30136"
- "i30137"
- "i30138"))
+ #("i30507"
+ "i30508"
+ "i30509"
+ "i30510"
+ "i30511"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i30116")))
+ #("i30489")))
(hygiene guile))
#(syntax-object
...
@@ -42044,16 +26081,16 @@
(top)
(top)
(top))
- #("i30134"
- "i30135"
- "i30136"
- "i30137"
- "i30138"))
+ #("i30507"
+ "i30508"
+ "i30509"
+ "i30510"
+ "i30511"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i30116")))
+ #("i30489")))
(hygiene guile))))
(list '#(syntax-object
syntax
@@ -42065,18 +26102,18 @@
(top)
(top)
(top))
- #("i30134"
- "i30135"
- "i30136"
- "i30137"
- "i30138"))
+ #("i30507"
+ "i30508"
+ "i30509"
+ "i30510"
+ "i30511"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i30116")))
+ #("i30489")))
(hygiene guile))
- (cons #{exp1 30161}#
+ (cons #{exp1 30534}#
'(#(syntax-object
x
((top)
@@ -42091,16 +26128,16 @@
(top)
(top)
(top))
- #("i30134"
- "i30135"
- "i30136"
- "i30137"
- "i30138"))
+ #("i30507"
+ "i30508"
+ "i30509"
+ "i30510"
+ "i30511"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i30116")))
+ #("i30489")))
(hygiene guile))
#(syntax-object
...
@@ -42116,18 +26153,18 @@
(top)
(top)
(top))
- #("i30134"
- "i30135"
- "i30136"
- "i30137"
- "i30138"))
+ #("i30507"
+ "i30508"
+ "i30509"
+ "i30510"
+ "i30511"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i30116")))
+ #("i30489")))
(hygiene guile))))))
- (list #{id 30160}#
+ (list #{id 30533}#
(list '#(syntax-object
identifier?
((top)
@@ -42138,16 +26175,16 @@
(top)
(top)
(top))
- #("i30134"
- "i30135"
- "i30136"
- "i30137"
- "i30138"))
+ #("i30507"
+ "i30508"
+ "i30509"
+ "i30510"
+ "i30511"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i30116")))
+ #("i30489")))
(hygiene guile))
(list '#(syntax-object
syntax
@@ -42163,18 +26200,18 @@
(top)
(top)
(top))
- #("i30134"
- "i30135"
- "i30136"
- "i30137"
- "i30138"))
+ #("i30507"
+ "i30508"
+ "i30509"
+ "i30510"
+ "i30511"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i30116")))
+ #("i30489")))
(hygiene guile))
- #{id 30160}#))
+ #{id 30533}#))
(list '#(syntax-object
syntax
((top)
@@ -42185,68 +26222,68 @@
(top)
(top)
(top))
- #("i30134"
- "i30135"
- "i30136"
- "i30137"
- "i30138"))
+ #("i30507"
+ "i30508"
+ "i30509"
+ "i30510"
+ "i30511"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i30116")))
+ #("i30489")))
(hygiene guile))
- #{exp1 30161}#))))))
- #{tmp 30151}#)
+ #{exp1 30534}#))))))
+ #{tmp 30524}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 30144}#))))))))
+ #{x 30517}#))))))))
(define define*
(make-syntax-transformer
'define*
'macro
- (lambda (#{x 30196}#)
- (let ((#{tmp 30198}#
+ (lambda (#{x 30569}#)
+ (let ((#{tmp 30571}#
($sc-dispatch
- #{x 30196}#
+ #{x 30569}#
'(_ (any . any) any . each-any))))
- (if #{tmp 30198}#
+ (if #{tmp 30571}#
(@apply
- (lambda (#{id 30202}#
- #{args 30203}#
- #{b0 30204}#
- #{b1 30205}#)
+ (lambda (#{id 30575}#
+ #{args 30576}#
+ #{b0 30577}#
+ #{b1 30578}#)
(list '#(syntax-object
define
((top)
#(ribcage
#(id args b0 b1)
#((top) (top) (top) (top))
- #("i30178" "i30179" "i30180" "i30181"))
+ #("i30551" "i30552" "i30553" "i30554"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30175")))
+ #(ribcage #(x) #((top)) #("i30548")))
(hygiene guile))
- #{id 30202}#
+ #{id 30575}#
(cons '#(syntax-object
lambda*
((top)
#(ribcage
#(id args b0 b1)
#((top) (top) (top) (top))
- #("i30178" "i30179" "i30180" "i30181"))
+ #("i30551" "i30552" "i30553" "i30554"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30175")))
+ #(ribcage #(x) #((top)) #("i30548")))
(hygiene guile))
- (cons #{args 30203}#
- (cons #{b0 30204}# #{b1 30205}#)))))
- #{tmp 30198}#)
- (let ((#{tmp 30206}#
- ($sc-dispatch #{x 30196}# '(_ any any))))
- (if (if #{tmp 30206}#
+ (cons #{args 30576}#
+ (cons #{b0 30577}# #{b1 30578}#)))))
+ #{tmp 30571}#)
+ (let ((#{tmp 30579}#
+ ($sc-dispatch #{x 30569}# '(_ any any))))
+ (if (if #{tmp 30579}#
(@apply
- (lambda (#{id 30210}# #{val 30211}#)
+ (lambda (#{id 30583}# #{val 30584}#)
(identifier?
'#(syntax-object
x
@@ -42254,29 +26291,29 @@
#(ribcage
#(id val)
#((top) (top))
- #("i30188" "i30189"))
+ #("i30561" "i30562"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30175")))
+ #(ribcage #(x) #((top)) #("i30548")))
(hygiene guile))))
- #{tmp 30206}#)
+ #{tmp 30579}#)
#f)
(@apply
- (lambda (#{id 30212}# #{val 30213}#)
+ (lambda (#{id 30585}# #{val 30586}#)
(list '#(syntax-object
define
((top)
#(ribcage
#(id val)
#((top) (top))
- #("i30192" "i30193"))
+ #("i30565" "i30566"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i30175")))
+ #(ribcage #(x) #((top)) #("i30548")))
(hygiene guile))
- #{id 30212}#
- #{val 30213}#))
- #{tmp 30206}#)
+ #{id 30585}#
+ #{val 30586}#))
+ #{tmp 30579}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 30196}#))))))))
+ #{x 30569}#))))))))
diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm
index 40b228c..e522f54 100644
--- a/module/ice-9/psyntax.scm
+++ b/module/ice-9/psyntax.scm
@@ -857,17 +857,17 @@
;; expanding
- (define chi-sequence
+ (define expand-sequence
(lambda (body r w s mod)
(build-sequence s
(let dobody ((body body) (r r) (w w) (mod mod))
(if (null? body)
'()
- (let ((first (chi (car body) r w mod)))
+ (let ((first (expand (car body) r w mod)))
(cons first (dobody (cdr body) r w mod))))))))
;; At top-level, we allow mixed definitions and expressions. Like
- ;; chi-body we expand in two passes.
+ ;; expand-body we expand in two passes.
;;
;; First, from left to right, we expand just enough to know what
;; expressions are definitions, syntax definitions, and splicing
@@ -880,7 +880,7 @@
;; expansions of all normal definitions and expressions in the
;; sequence.
;;
- (define chi-top-sequence
+ (define expand-top-sequence
(lambda (body r w s m esew mod)
(define (scan body r w s m esew mod exps)
(cond
@@ -902,13 +902,13 @@
((_ e1 e2 ...)
(scan #'(e1 e2 ...) r w s m esew mod exps))))
((local-syntax-form)
- (chi-local-syntax value e r w s mod
- (lambda (body r w s mod)
- (scan body r w s m esew mod
exps))))
+ (expand-local-syntax value e r w s mod
+ (lambda (body r w s mod)
+ (scan body r w s m esew mod
exps))))
((eval-when-form)
(syntax-case e ()
((_ (x ...) e1 e2 ...)
- (let ((when-list (chi-when-list e #'(x ...) w))
+ (let ((when-list (parse-when-list e #'(x ...)))
(body #'(e1 e2 ...)))
(cond
((eq? m 'e)
@@ -920,7 +920,7 @@
(begin
(if (memq 'expand when-list)
(top-level-eval-hook
- (chi-top-sequence body r w s 'e
'(eval) mod)
+ (expand-top-sequence body r w s 'e
'(eval) mod)
mod))
(values exps))))
((memq 'load when-list)
@@ -935,7 +935,7 @@
(memq 'expand when-list)
(and (eq? m 'c&e) (memq 'eval when-list)))
(top-level-eval-hook
- (chi-top-sequence body r w s 'e '(eval) mod)
+ (expand-top-sequence body r w s 'e '(eval)
mod)
mod)
(values exps))
(else
@@ -945,23 +945,23 @@
(case m
((c)
(if (memq 'compile esew)
- (let ((e (chi-install-global n (chi e r w
mod))))
+ (let ((e (expand-install-global n (expand e
r w mod))))
(top-level-eval-hook e mod)
(if (memq 'load esew)
(values (cons e exps))
(values exps)))
(if (memq 'load esew)
- (values (cons (chi-install-global n (chi
e r w mod))
+ (values (cons (expand-install-global n
(expand e r w mod))
exps))
(values exps))))
((c&e)
- (let ((e (chi-install-global n (chi e r w mod))))
+ (let ((e (expand-install-global n (expand e r w
mod))))
(top-level-eval-hook e mod)
(values (cons e exps))))
(else
(if (memq 'eval esew)
(top-level-eval-hook
- (chi-install-global n (chi e r w mod))
+ (expand-install-global n (expand e r w mod))
mod))
(values exps)))))
((define-form)
@@ -983,11 +983,11 @@
(values
(cons
(if (eq? m 'c&e)
- (let ((x (build-global-definition s n (chi
e r w mod))))
+ (let ((x (build-global-definition s n
(expand e r w mod))))
(top-level-eval-hook x mod)
x)
(lambda ()
- (build-global-definition s n (chi e r w
mod))))
+ (build-global-definition s n (expand e r
w mod))))
exps)))
((displaced-lexical)
(syntax-violation #f "identifier out of context"
@@ -998,11 +998,11 @@
(else
(values (cons
(if (eq? m 'c&e)
- (let ((x (chi-expr type value e r w s
mod)))
+ (let ((x (expand-expr type value e r w s
mod)))
(top-level-eval-hook x mod)
x)
(lambda ()
- (chi-expr type value e r w s mod)))
+ (expand-expr type value e r w s mod)))
exps)))))))
(lambda (exps)
(scan (cdr body) r w s m esew mod exps))))))
@@ -1020,7 +1020,7 @@
(lp (cdr in)
(cons (if (procedure? e) (e) e) out)))))))))))
- (define chi-install-global
+ (define expand-install-global
(lambda (name e)
(build-global-definition
no-source
@@ -1032,23 +1032,17 @@
(build-data no-source 'macro)
e)))))
- (define chi-when-list
- (lambda (e when-list w)
+ (define parse-when-list
+ (lambda (e when-list)
;; when-list is syntax'd version of list of situations
- (let f ((when-list when-list) (situations '()))
- (if (null? when-list)
- situations
- (f (cdr when-list)
- (cons (let ((x (car when-list)))
- (cond
- ((free-id=? x #'compile) 'compile)
- ((free-id=? x #'load) 'load)
- ((free-id=? x #'eval) 'eval)
- ((free-id=? x #'expand) 'expand)
- (else (syntax-violation 'eval-when
- "invalid situation"
- e (wrap x w #f)))))
- situations))))))
+ (let ((result (strip when-list empty-wrap)))
+ (let lp ((l result))
+ (if (null? l)
+ result
+ (if (memq (car l) '(compile load eval expand))
+ (lp (cdr l))
+ (syntax-violation 'eval-when "invalid situation" e
+ (car l))))))))
;; syntax-type returns six values: type, value, e, w, s, and mod. The
;; first two are described in the table below.
@@ -1099,7 +1093,7 @@
((macro)
(if for-car?
(values type (binding-value b) e w s mod)
- (syntax-type (chi-macro (binding-value b) e r w s rib mod)
+ (syntax-type (expand-macro (binding-value b) e r w s rib
mod)
r empty-wrap s rib mod #f)))
(else (values type (binding-value b) e w s mod)))))
((pair? e)
@@ -1117,7 +1111,7 @@
(values 'global-call (make-syntax-object fval w fmod)
e w s mod))
((macro)
- (syntax-type (chi-macro fval e r w s rib mod)
+ (syntax-type (expand-macro fval e r w s rib mod)
r empty-wrap s rib mod for-car?))
((module-ref)
(call-with-values (lambda () (fval e r w))
@@ -1167,14 +1161,14 @@
((self-evaluating? e) (values 'constant #f e w s mod))
(else (values 'other #f e w s mod)))))
- (define chi
+ (define expand
(lambda (e r w mod)
(call-with-values
(lambda () (syntax-type e r w (source-annotation e) #f mod #f))
(lambda (type value e w s mod)
- (chi-expr type value e r w s mod)))))
+ (expand-expr type value e r w s mod)))))
- (define chi-expr
+ (define expand-expr
(lambda (type value e r w s mod)
(case type
((lexical)
@@ -1185,9 +1179,9 @@
((module-ref)
(call-with-values (lambda () (value e r w))
(lambda (e r w s mod)
- (chi e r w mod))))
+ (expand e r w mod))))
((lexical-call)
- (chi-application
+ (expand-application
(let ((id (car e)))
(build-lexical-reference 'fun (source-annotation id)
(if (syntax-object? id)
@@ -1196,7 +1190,7 @@
value))
e r w s mod))
((global-call)
- (chi-application
+ (expand-application
(build-global-reference (source-annotation (car e))
(if (syntax-object? value)
(syntax-object-expression value)
@@ -1207,19 +1201,19 @@
e r w s mod))
((constant) (build-data s (strip (source-wrap e w s mod)
empty-wrap)))
((global) (build-global-reference s value mod))
- ((call) (chi-application (chi (car e) r w mod) e r w s mod))
+ ((call) (expand-application (expand (car e) r w mod) e r w s mod))
((begin-form)
(syntax-case e ()
- ((_ e1 e2 ...) (chi-sequence #'(e1 e2 ...) r w s mod))))
+ ((_ e1 e2 ...) (expand-sequence #'(e1 e2 ...) r w s mod))))
((local-syntax-form)
- (chi-local-syntax value e r w s mod chi-sequence))
+ (expand-local-syntax value e r w s mod expand-sequence))
((eval-when-form)
(syntax-case e ()
((_ (x ...) e1 e2 ...)
- (let ((when-list (chi-when-list e #'(x ...) w)))
+ (let ((when-list (parse-when-list e #'(x ...))))
(if (memq 'eval when-list)
- (chi-sequence #'(e1 e2 ...) r w s mod)
- (chi-void))))))
+ (expand-sequence #'(e1 e2 ...) r w s mod)
+ (expand-void))))))
((define-form define-syntax-form)
(syntax-violation #f "definition in expression context"
e (wrap value w mod)))
@@ -1232,12 +1226,12 @@
(else (syntax-violation #f "unexpected syntax"
(source-wrap e w s mod))))))
- (define chi-application
+ (define expand-application
(lambda (x e r w s mod)
(syntax-case e ()
((e0 e1 ...)
(build-application s x
- (map (lambda (e) (chi e r w mod)) #'(e1
...)))))))
+ (map (lambda (e) (expand e r w mod)) #'(e1
...)))))))
;; (What follows is my interpretation of what's going on here -- Andy)
;;
@@ -1272,7 +1266,7 @@
;; really nice if we could also annotate introduced expressions with the
;; locations corresponding to the macro definition, but that is not yet
;; possible.
- (define chi-macro
+ (define expand-macro
(lambda (p e r w s rib mod)
(define rebuild-macro-output
(lambda (x m)
@@ -1313,7 +1307,7 @@
(rebuild-macro-output (p (source-wrap e (anti-mark w) s mod))
(new-mark))))
- (define chi-body
+ (define expand-body
;; In processing the forms of the body, we create a new, empty wrap.
;; This wrap is augmented (destructively) each time we discover that
;; the next form is a definition. This is done:
@@ -1393,19 +1387,19 @@
(f (cdr forms)))))
ids labels var-ids vars vals bindings))))
((local-syntax-form)
- (chi-local-syntax value e er w s mod
- (lambda (forms er w s mod)
- (parse (let f ((forms forms))
- (if (null? forms)
- (cdr body)
- (cons (cons er (wrap
(car forms) w mod))
- (f (cdr
forms)))))
- ids labels var-ids vars
vals bindings))))
+ (expand-local-syntax value e er w s mod
+ (lambda (forms er w s mod)
+ (parse (let f ((forms forms))
+ (if (null? forms)
+ (cdr body)
+ (cons (cons er
(wrap (car forms) w mod))
+ (f (cdr
forms)))))
+ ids labels var-ids vars
vals bindings))))
(else ; found a non-definition
(if (null? ids)
(build-sequence no-source
(map (lambda (x)
- (chi (cdr x) (car x)
empty-wrap mod))
+ (expand (cdr x) (car x)
empty-wrap mod))
(cons (cons er (source-wrap
e w s mod))
(cdr body))))
(begin
@@ -1424,7 +1418,7 @@
(macros-only-env er))))
(set-cdr! b
(eval-local-transformer
- (chi (cddr b) r-cache
empty-wrap mod)
+ (expand (cddr b)
r-cache empty-wrap mod)
mod))
(loop (cdr bs) er r-cache))
(loop (cdr bs) er-cache r-cache)))))
@@ -1433,15 +1427,15 @@
(reverse (map syntax->datum
var-ids))
(reverse vars)
(map (lambda (x)
- (chi (cdr x) (car x)
empty-wrap mod))
+ (expand (cdr x) (car x)
empty-wrap mod))
(reverse vals))
(build-sequence no-source
(map (lambda (x)
- (chi (cdr
x) (car x) empty-wrap mod))
+ (expand
(cdr x) (car x) empty-wrap mod))
(cons (cons
er (source-wrap e w s mod))
(cdr
body)))))))))))))))))
- (define chi-local-syntax
+ (define expand-local-syntax
(lambda (rec? e r w s mod k)
(syntax-case e ()
((_ ((id val) ...) e1 e2 ...)
@@ -1458,7 +1452,7 @@
(map (lambda (x)
(make-binding 'macro
(eval-local-transformer
- (chi x trans-r w mod)
+ (expand x trans-r w mod)
mod)))
#'(val ...)))
r)
@@ -1475,7 +1469,7 @@
p
(syntax-violation #f "nonprocedure transformer" p)))))
- (define chi-void
+ (define expand-void
(lambda ()
(build-void no-source)))
@@ -1505,7 +1499,7 @@
orig-args))))
(req orig-args '())))
- (define chi-simple-lambda
+ (define expand-simple-lambda
(lambda (e r w s mod req rest meta body)
(let* ((ids (if rest (append req (list rest)) req))
(vars (map gen-var ids))
@@ -1514,10 +1508,10 @@
s
(map syntax->datum req) (and rest (syntax->datum rest)) vars
meta
- (chi-body body (source-wrap e w s mod)
- (extend-var-env labels vars r)
- (make-binding-wrap ids labels w)
- mod)))))
+ (expand-body body (source-wrap e w s mod)
+ (extend-var-env labels vars r)
+ (make-binding-wrap ids labels w)
+ mod)))))
(define lambda*-formals
(lambda (orig-args)
@@ -1600,16 +1594,16 @@
orig-args))))
(req orig-args '())))
- (define chi-lambda-case
+ (define expand-lambda-case
(lambda (e r w s mod get-formals clauses)
- (define (expand-req req opt rest kw body)
+ (define (parse-req req opt rest kw body)
(let ((vars (map gen-var req))
(labels (gen-labels req)))
(let ((r* (extend-var-env labels vars r))
(w* (make-binding-wrap req labels w)))
- (expand-opt (map syntax->datum req)
- opt rest kw body (reverse vars) r* w* '() '()))))
- (define (expand-opt req opt rest kw body vars r* w* out inits)
+ (parse-opt (map syntax->datum req)
+ opt rest kw body (reverse vars) r* w* '() '()))))
+ (define (parse-opt req opt rest kw body vars r* w* out inits)
(cond
((pair? opt)
(syntax-case (car opt) ()
@@ -1618,27 +1612,27 @@
(l (gen-labels (list v)))
(r** (extend-var-env l (list v) r*))
(w** (make-binding-wrap (list #'id) l w*)))
- (expand-opt req (cdr opt) rest kw body (cons v vars)
- r** w** (cons (syntax->datum #'id) out)
- (cons (chi #'i r* w* mod) inits))))))
+ (parse-opt req (cdr opt) rest kw body (cons v vars)
+ r** w** (cons (syntax->datum #'id) out)
+ (cons (expand #'i r* w* mod) inits))))))
(rest
(let* ((v (gen-var rest))
(l (gen-labels (list v)))
(r* (extend-var-env l (list v) r*))
(w* (make-binding-wrap (list rest) l w*)))
- (expand-kw req (if (pair? out) (reverse out) #f)
- (syntax->datum rest)
- (if (pair? kw) (cdr kw) kw)
- body (cons v vars) r* w*
- (if (pair? kw) (car kw) #f)
- '() inits)))
+ (parse-kw req (if (pair? out) (reverse out) #f)
+ (syntax->datum rest)
+ (if (pair? kw) (cdr kw) kw)
+ body (cons v vars) r* w*
+ (if (pair? kw) (car kw) #f)
+ '() inits)))
(else
- (expand-kw req (if (pair? out) (reverse out) #f) #f
- (if (pair? kw) (cdr kw) kw)
- body vars r* w*
- (if (pair? kw) (car kw) #f)
- '() inits))))
- (define (expand-kw req opt rest kw body vars r* w* aok out inits)
+ (parse-kw req (if (pair? out) (reverse out) #f) #f
+ (if (pair? kw) (cdr kw) kw)
+ body vars r* w*
+ (if (pair? kw) (car kw) #f)
+ '() inits))))
+ (define (parse-kw req opt rest kw body vars r* w* aok out inits)
(cond
((pair? kw)
(syntax-case (car kw) ()
@@ -1647,31 +1641,31 @@
(l (gen-labels (list v)))
(r** (extend-var-env l (list v) r*))
(w** (make-binding-wrap (list #'id) l w*)))
- (expand-kw req opt rest (cdr kw) body (cons v vars)
- r** w** aok
- (cons (list (syntax->datum #'k)
- (syntax->datum #'id)
- v)
- out)
- (cons (chi #'i r* w* mod) inits))))))
+ (parse-kw req opt rest (cdr kw) body (cons v vars)
+ r** w** aok
+ (cons (list (syntax->datum #'k)
+ (syntax->datum #'id)
+ v)
+ out)
+ (cons (expand #'i r* w* mod) inits))))))
(else
- (expand-body req opt rest
- (if (or aok (pair? out)) (cons aok (reverse out)) #f)
- body (reverse vars) r* w* (reverse inits) '()))))
- (define (expand-body req opt rest kw body vars r* w* inits meta)
+ (parse-body req opt rest
+ (if (or aok (pair? out)) (cons aok (reverse out)) #f)
+ body (reverse vars) r* w* (reverse inits) '()))))
+ (define (parse-body req opt rest kw body vars r* w* inits meta)
(syntax-case body ()
((docstring e1 e2 ...) (string? (syntax->datum #'docstring))
- (expand-body req opt rest kw #'(e1 e2 ...) vars r* w* inits
- (append meta
- `((documentation
- . ,(syntax->datum #'docstring))))))
+ (parse-body req opt rest kw #'(e1 e2 ...) vars r* w* inits
+ (append meta
+ `((documentation
+ . ,(syntax->datum #'docstring))))))
((#((k . v) ...) e1 e2 ...)
- (expand-body req opt rest kw #'(e1 e2 ...) vars r* w* inits
- (append meta (syntax->datum #'((k . v) ...)))))
+ (parse-body req opt rest kw #'(e1 e2 ...) vars r* w* inits
+ (append meta (syntax->datum #'((k . v) ...)))))
((e1 e2 ...)
(values meta req opt rest kw inits vars
- (chi-body #'(e1 e2 ...) (source-wrap e w s mod)
- r* w* mod)))))
+ (expand-body #'(e1 e2 ...) (source-wrap e w s mod)
+ r* w* mod)))))
(syntax-case clauses ()
(() (values '() #f))
@@ -1679,12 +1673,12 @@
(call-with-values (lambda () (get-formals #'args))
(lambda (req opt rest kw)
(call-with-values (lambda ()
- (expand-req req opt rest kw #'(e1 e2 ...)))
+ (parse-req req opt rest kw #'(e1 e2 ...)))
(lambda (meta req opt rest kw inits vars body)
(call-with-values
(lambda ()
- (chi-lambda-case e r w s mod get-formals
- #'((args* e1* e2* ...) ...)))
+ (expand-lambda-case e r w s mod get-formals
+ #'((args* e1* e2* ...) ...)))
(lambda (meta* else*)
(values
(append meta meta*)
@@ -1768,7 +1762,7 @@
(source-wrap id w s mod)))))
#'(var ...)
names)
- (chi-body
+ (expand-body
#'(e1 e2 ...)
(source-wrap e w s mod)
(extend-env
@@ -1776,7 +1770,7 @@
(let ((trans-r (macros-only-env r)))
(map (lambda (x)
(make-binding 'macro
- (eval-local-transformer
(chi x trans-r w mod)
+ (eval-local-transformer
(expand x trans-r w mod)
mod)))
#'(val ...)))
r)
@@ -1970,7 +1964,7 @@
((#((k . v) ...) e1 e2 ...)
(lp #'(e1 e2 ...)
(append meta (syntax->datum #'((k . v)
...)))))
- (_ (chi-simple-lambda e r w s mod req rest
meta body)))))))
+ (_ (expand-simple-lambda e r w s mod req rest
meta body)))))))
(_ (syntax-violation 'lambda "bad lambda" e)))))
(global-extend 'core 'lambda*
@@ -1979,8 +1973,8 @@
((_ args e1 e2 ...)
(call-with-values
(lambda ()
- (chi-lambda-case e r w s mod
- lambda*-formals #'((args e1 e2
...))))
+ (expand-lambda-case e r w s mod
+ lambda*-formals #'((args e1
e2 ...))))
(lambda (meta lcase)
(build-case-lambda s meta lcase))))
(_ (syntax-violation 'lambda "bad lambda*" e)))))
@@ -1991,9 +1985,9 @@
((_ (args e1 e2 ...) (args* e1* e2* ...) ...)
(call-with-values
(lambda ()
- (chi-lambda-case e r w s mod
- lambda-formals
- #'((args e1 e2 ...) (args* e1*
e2* ...) ...)))
+ (expand-lambda-case e r w s mod
+ lambda-formals
+ #'((args e1 e2 ...) (args*
e1* e2* ...) ...)))
(lambda (meta lcase)
(build-case-lambda s meta lcase))))
(_ (syntax-violation 'case-lambda "bad case-lambda"
e)))))
@@ -2004,16 +1998,16 @@
((_ (args e1 e2 ...) (args* e1* e2* ...) ...)
(call-with-values
(lambda ()
- (chi-lambda-case e r w s mod
- lambda*-formals
- #'((args e1 e2 ...) (args* e1*
e2* ...) ...)))
+ (expand-lambda-case e r w s mod
+ lambda*-formals
+ #'((args e1 e2 ...) (args*
e1* e2* ...) ...)))
(lambda (meta lcase)
(build-case-lambda s meta lcase))))
(_ (syntax-violation 'case-lambda "bad case-lambda*"
e)))))
(global-extend 'core 'let
(let ()
- (define (chi-let e r w s mod constructor ids vals exps)
+ (define (expand-let e r w s mod constructor ids vals exps)
(if (not (valid-bound-ids? ids))
(syntax-violation 'let "duplicate bound variable" e)
(let ((labels (gen-labels ids))
@@ -2023,25 +2017,25 @@
(constructor s
(map syntax->datum ids)
new-vars
- (map (lambda (x) (chi x r w mod))
vals)
- (chi-body exps (source-wrap e nw s
mod)
- nr nw mod))))))
+ (map (lambda (x) (expand x r w
mod)) vals)
+ (expand-body exps (source-wrap e
nw s mod)
+ nr nw mod))))))
(lambda (e r w s mod)
(syntax-case e ()
((_ ((id val) ...) e1 e2 ...)
(and-map id? #'(id ...))
- (chi-let e r w s mod
- build-let
- #'(id ...)
- #'(val ...)
- #'(e1 e2 ...)))
+ (expand-let e r w s mod
+ build-let
+ #'(id ...)
+ #'(val ...)
+ #'(e1 e2 ...)))
((_ f ((id val) ...) e1 e2 ...)
(and (id? #'f) (and-map id? #'(id ...)))
- (chi-let e r w s mod
- build-named-let
- #'(f id ...)
- #'(val ...)
- #'(e1 e2 ...)))
+ (expand-let e r w s mod
+ build-named-let
+ #'(f id ...)
+ #'(val ...)
+ #'(e1 e2 ...)))
(_ (syntax-violation 'let "bad let" (source-wrap e w
s mod)))))))
@@ -2060,9 +2054,9 @@
(build-letrec s #f
(map syntax->datum ids)
new-vars
- (map (lambda (x) (chi x r w
mod)) #'(val ...))
- (chi-body #'(e1 e2 ...)
- (source-wrap e w s
mod) r w mod)))))))
+ (map (lambda (x) (expand x r w
mod)) #'(val ...))
+ (expand-body #'(e1 e2 ...)
+ (source-wrap e w
s mod) r w mod)))))))
(_ (syntax-violation 'letrec "bad letrec" (source-wrap
e w s mod))))))
@@ -2081,9 +2075,9 @@
(build-letrec s #t
(map syntax->datum ids)
new-vars
- (map (lambda (x) (chi x r w
mod)) #'(val ...))
- (chi-body #'(e1 e2 ...)
- (source-wrap e w s
mod) r w mod)))))))
+ (map (lambda (x) (expand x r w
mod)) #'(val ...))
+ (expand-body #'(e1 e2 ...)
+ (source-wrap e w
s mod) r w mod)))))))
(_ (syntax-violation 'letrec* "bad letrec*"
(source-wrap e w s mod))))))
@@ -2103,15 +2097,15 @@
(build-lexical-assignment s
(syntax->datum #'id)
(binding-value b)
- (chi #'val r w mod)))
+ (expand #'val r w
mod)))
((global)
- (build-global-assignment s n (chi #'val r w
mod) id-mod))
+ (build-global-assignment s n (expand #'val r w
mod) id-mod))
((macro)
(let ((p (binding-value b)))
(if (procedure-property p
'variable-transformer)
- ;; As syntax-type does, call chi-macro
with
+ ;; As syntax-type does, call expand-macro
with
;; the mod of the expression. Hmm.
- (chi (chi-macro p e r w s #f mod) r
empty-wrap mod)
+ (expand (expand-macro p e r w s #f mod) r
empty-wrap mod)
(syntax-violation 'set! "not a variable
transformer"
(wrap e w mod)
(wrap #'id w id-mod)))))
@@ -2126,7 +2120,7 @@
(lambda (type value ee ww ss modmod)
(case type
((module-ref)
- (let ((val (chi #'val r w mod)))
+ (let ((val (expand #'val r w mod)))
(call-with-values (lambda () (value #'(head
tail ...) r w))
(lambda (e r w s* mod)
(syntax-case e ()
@@ -2135,8 +2129,8 @@
val
mod)))))))
(else
(build-application s
- (chi #'(setter head) r w mod)
- (map (lambda (e) (chi e r w
mod))
+ (expand #'(setter head) r w
mod)
+ (map (lambda (e) (expand e r
w mod))
#'(tail ... val))))))))
(_ (syntax-violation 'set! "bad set!" (source-wrap e w
s mod))))))
@@ -2182,15 +2176,15 @@
((_ test then)
(build-conditional
s
- (chi #'test r w mod)
- (chi #'then r w mod)
+ (expand #'test r w mod)
+ (expand #'then r w mod)
(build-void no-source)))
((_ test then else)
(build-conditional
s
- (chi #'test r w mod)
- (chi #'then r w mod)
- (chi #'else r w mod))))))
+ (expand #'test r w mod)
+ (expand #'then r w mod)
+ (expand #'else r w mod))))))
(global-extend 'core 'with-fluids
(lambda (e r w s mod)
@@ -2198,10 +2192,10 @@
((_ ((fluid val) ...) b b* ...)
(build-dynlet
s
- (map (lambda (x) (chi x r w mod)) #'(fluid ...))
- (map (lambda (x) (chi x r w mod)) #'(val ...))
- (chi-body #'(b b* ...)
- (source-wrap e w s mod) r w mod))))))
+ (map (lambda (x) (expand x r w mod)) #'(fluid ...))
+ (map (lambda (x) (expand x r w mod)) #'(val ...))
+ (expand-body #'(b b* ...)
+ (source-wrap e w s mod) r w mod))))))
(global-extend 'begin 'begin '())
@@ -2289,16 +2283,16 @@
(build-application no-source
(build-primref no-source
'apply)
(list (build-simple-lambda
no-source (map syntax->datum ids) #f new-vars '()
-
(chi exp
-
(extend-env
-
labels
-
(map (lambda (var level)
-
(make-binding 'syntax `(,var . ,level)))
-
new-vars
-
(map cdr pvars))
-
r)
-
(make-binding-wrap ids labels empty-wrap)
-
mod))
+
(expand exp
+
(extend-env
+
labels
+
(map (lambda (var level)
+
(make-binding 'syntax `(,var . ,level)))
+
new-vars
+
(map cdr pvars))
+
r)
+
(make-binding-wrap ids labels empty-wrap)
+
mod))
y))))))
(define gen-clause
@@ -2350,20 +2344,20 @@
(and-map (lambda (x) (not (free-id=?
#'pat x)))
(cons #'(... ...) keys)))
(if (free-id=? #'pad #'_)
- (chi #'exp r empty-wrap mod)
+ (expand #'exp r empty-wrap mod)
(let ((labels (list (gen-label)))
(var (gen-var #'pat)))
(build-application no-source
(build-simple-lambda
no-source (list
(syntax->datum #'pat)) #f (list var)
'()
- (chi #'exp
- (extend-env
labels
-
(list (make-binding 'syntax `(,var . 0)))
-
r)
-
(make-binding-wrap #'(pat)
-
labels empty-wrap)
- mod))
+ (expand #'exp
+
(extend-env labels
+
(list (make-binding 'syntax `(,var . 0)))
+
r)
+
(make-binding-wrap #'(pat)
+
labels empty-wrap)
+ mod))
(list x))))
(gen-clause x keys (cdr clauses) r
#'pat #t #'exp mod)))
@@ -2388,10 +2382,10 @@
#'(key ...) #'(m ...)
r
mod))
- (list (chi #'val r
empty-wrap mod))))
+ (list (expand #'val r
empty-wrap mod))))
(syntax-violation 'syntax-case "invalid
literals list" e))))))))
- ;; The portable macroexpand seeds chi-top's mode m with 'e (for
+ ;; The portable macroexpand seeds expand-top's mode m with 'e (for
;; evaluating) and esew (which stands for "eval syntax expanders
;; when") with '(eval). In Chez Scheme, m is set to 'c instead of e
;; if we are compiling a file, and esew is set to
@@ -2402,8 +2396,8 @@
;; the object file if we are compiling a file.
(set! macroexpand
(lambda* (x #:optional (m 'e) (esew '(eval)))
- (chi-top-sequence (list x) null-env top-wrap #f m esew
- (cons 'hygiene (module-name (current-module))))))
+ (expand-top-sequence (list x) null-env top-wrap #f m esew
+ (cons 'hygiene (module-name
(current-module))))))
(set! identifier?
(lambda (x)
hooks/post-receive
--
GNU Guile
| [Prev in Thread] | Current Thread | [Next in Thread] |