|
| 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-ext