|
| From: | Ludovic Courtès |
| Subject: | [Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.3-102-ga398935 |
| Date: | Thu, 05 Jan 2012 22:10:11 +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=a3989357b32ba51c0780732e06c88baec16d3229
The branch, stable-2.0 has been updated
via a3989357b32ba51c0780732e06c88baec16d3229 (commit)
from fe2400c993927cd7d7ff89ebbe3af4c35e30a0e1 (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 a3989357b32ba51c0780732e06c88baec16d3229
Author: Ludovic Courtès <address@hidden>
Date: Thu Jan 5 23:10:02 2012 +0100
Regenerate `psyntax-pp.scm'.
* module/ice-9/psyntax-pp.scm: Regenerate.
-----------------------------------------------------------------------
Summary of changes:
module/ice-9/psyntax-pp.scm |22882 ++++++++++++++++++++++---------------------
1 files changed, 11458 insertions(+), 11424 deletions(-)
diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm
index f7e315d..a810531 100644
--- a/module/ice-9/psyntax-pp.scm
+++ b/module/ice-9/psyntax-pp.scm
@@ -2,1231 +2,1231 @@
(if #f #f)
(letrec*
- ((#{top-level-eval-hook 4262}#
- (lambda (#{x 27369}# #{mod 27370}#)
- (primitive-eval #{x 27369}#)))
- (#{maybe-name-value! 4267}#
- (lambda (#{name 16133}# #{val 16134}#)
- (if (if (struct? #{val 16134}#)
- (eq? (struct-vtable #{val 16134}#)
+ ((#{top-level-eval-hook 6249}#
+ (lambda (#{x 29378}# #{mod 29379}#)
+ (primitive-eval #{x 29378}#)))
+ (#{maybe-name-value! 6254}#
+ (lambda (#{name 18120}# #{val 18121}#)
+ (if (if (struct? #{val 18121}#)
+ (eq? (struct-vtable #{val 18121}#)
(vector-ref %expanded-vtables 13))
#f)
- (let ((#{meta 16141}# (struct-ref #{val 16134}# 1)))
- (if (not (assq 'name #{meta 16141}#))
- (let ((#{v 16146}#
- (cons (cons 'name #{name 16133}#) #{meta 16141}#)))
- (struct-set! #{val 16134}# 1 #{v 16146}#)))))))
- (#{build-application 4269}#
- (lambda (#{source 15858}#
- #{fun-exp 15859}#
- #{arg-exps 15860}#)
+ (let ((#{meta 18128}# (struct-ref #{val 18121}# 1)))
+ (if (not (assq 'name #{meta 18128}#))
+ (let ((#{v 18133}#
+ (cons (cons 'name #{name 18120}#) #{meta 18128}#)))
+ (struct-set! #{val 18121}# 1 #{v 18133}#)))))))
+ (#{build-application 6256}#
+ (lambda (#{source 17845}#
+ #{fun-exp 17846}#
+ #{arg-exps 17847}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
- #{source 15858}#
- #{fun-exp 15859}#
- #{arg-exps 15860}#)))
- (#{build-conditional 4270}#
- (lambda (#{source 15866}#
- #{test-exp 15867}#
- #{then-exp 15868}#
- #{else-exp 15869}#)
+ #{source 17845}#
+ #{fun-exp 17846}#
+ #{arg-exps 17847}#)))
+ (#{build-conditional 6257}#
+ (lambda (#{source 17853}#
+ #{test-exp 17854}#
+ #{then-exp 17855}#
+ #{else-exp 17856}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 10)
- #{source 15866}#
- #{test-exp 15867}#
- #{then-exp 15868}#
- #{else-exp 15869}#)))
- (#{build-dynlet 4271}#
- (lambda (#{source 15876}#
- #{fluids 15877}#
- #{vals 15878}#
- #{body 15879}#)
+ #{source 17853}#
+ #{test-exp 17854}#
+ #{then-exp 17855}#
+ #{else-exp 17856}#)))
+ (#{build-dynlet 6258}#
+ (lambda (#{source 17863}#
+ #{fluids 17864}#
+ #{vals 17865}#
+ #{body 17866}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 17)
- #{source 15876}#
- #{fluids 15877}#
- #{vals 15878}#
- #{body 15879}#)))
- (#{build-lexical-reference 4272}#
- (lambda (#{type 27371}#
- #{source 27372}#
- #{name 27373}#
- #{var 27374}#)
+ #{source 17863}#
+ #{fluids 17864}#
+ #{vals 17865}#
+ #{body 17866}#)))
+ (#{build-lexical-reference 6259}#
+ (lambda (#{type 29380}#
+ #{source 29381}#
+ #{name 29382}#
+ #{var 29383}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
- #{source 27372}#
- #{name 27373}#
- #{var 27374}#)))
- (#{build-lexical-assignment 4273}#
- (lambda (#{source 15886}#
- #{name 15887}#
- #{var 15888}#
- #{exp 15889}#)
+ #{source 29381}#
+ #{name 29382}#
+ #{var 29383}#)))
+ (#{build-lexical-assignment 6260}#
+ (lambda (#{source 17873}#
+ #{name 17874}#
+ #{var 17875}#
+ #{exp 17876}#)
(begin
- (if (if (struct? #{exp 15889}#)
- (eq? (struct-vtable #{exp 15889}#)
+ (if (if (struct? #{exp 17876}#)
+ (eq? (struct-vtable #{exp 17876}#)
(vector-ref %expanded-vtables 13))
#f)
- (let ((#{meta 15905}# (struct-ref #{exp 15889}# 1)))
- (if (not (assq 'name #{meta 15905}#))
- (let ((#{v 15912}#
- (cons (cons 'name #{name 15887}#) #{meta 15905}#)))
- (struct-set! #{exp 15889}# 1 #{v 15912}#)))))
+ (let ((#{meta 17892}# (struct-ref #{exp 17876}# 1)))
+ (if (not (assq 'name #{meta 17892}#))
+ (let ((#{v 17899}#
+ (cons (cons 'name #{name 17874}#) #{meta 17892}#)))
+ (struct-set! #{exp 17876}# 1 #{v 17899}#)))))
(make-struct/no-tail
(vector-ref %expanded-vtables 4)
- #{source 15886}#
- #{name 15887}#
- #{var 15888}#
- #{exp 15889}#))))
- (#{analyze-variable 4274}#
- (lambda (#{mod 27380}#
- #{var 27381}#
- #{modref-cont 27382}#
- #{bare-cont 27383}#)
- (if (not #{mod 27380}#)
- (#{bare-cont 27383}# #{var 27381}#)
- (let ((#{kind 27384}# (car #{mod 27380}#))
- (#{mod 27385}# (cdr #{mod 27380}#)))
- (if (eqv? #{kind 27384}# 'public)
- (#{modref-cont 27382}#
- #{mod 27385}#
- #{var 27381}#
+ #{source 17873}#
+ #{name 17874}#
+ #{var 17875}#
+ #{exp 17876}#))))
+ (#{analyze-variable 6261}#
+ (lambda (#{mod 29389}#
+ #{var 29390}#
+ #{modref-cont 29391}#
+ #{bare-cont 29392}#)
+ (if (not #{mod 29389}#)
+ (#{bare-cont 29392}# #{var 29390}#)
+ (let ((#{kind 29393}# (car #{mod 29389}#))
+ (#{mod 29394}# (cdr #{mod 29389}#)))
+ (if (eqv? #{kind 29393}# 'public)
+ (#{modref-cont 29391}#
+ #{mod 29394}#
+ #{var 29390}#
#t)
- (if (eqv? #{kind 27384}# 'private)
+ (if (eqv? #{kind 29393}# 'private)
(if (not (equal?
- #{mod 27385}#
+ #{mod 29394}#
(module-name (current-module))))
- (#{modref-cont 27382}#
- #{mod 27385}#
- #{var 27381}#
+ (#{modref-cont 29391}#
+ #{mod 29394}#
+ #{var 29390}#
#f)
- (#{bare-cont 27383}# #{var 27381}#))
- (if (eqv? #{kind 27384}# 'bare)
- (#{bare-cont 27383}# #{var 27381}#)
- (if (eqv? #{kind 27384}# 'hygiene)
+ (#{bare-cont 29392}# #{var 29390}#))
+ (if (eqv? #{kind 29393}# 'bare)
+ (#{bare-cont 29392}# #{var 29390}#)
+ (if (eqv? #{kind 29393}# 'hygiene)
(if (if (not (equal?
- #{mod 27385}#
+ #{mod 29394}#
(module-name (current-module))))
(module-variable
- (resolve-module #{mod 27385}#)
- #{var 27381}#)
+ (resolve-module #{mod 29394}#)
+ #{var 29390}#)
#f)
- (#{modref-cont 27382}#
- #{mod 27385}#
- #{var 27381}#
+ (#{modref-cont 29391}#
+ #{mod 29394}#
+ #{var 29390}#
#f)
- (#{bare-cont 27383}# #{var 27381}#))
+ (#{bare-cont 29392}# #{var 29390}#))
(syntax-violation
#f
"bad module kind"
- #{var 27381}#
- #{mod 27385}#)))))))))
- (#{build-global-reference 4275}#
- (lambda (#{source 27400}# #{var 27401}# #{mod 27402}#)
- (#{analyze-variable 4274}#
- #{mod 27402}#
- #{var 27401}#
- (lambda (#{mod 27405}# #{var 27406}# #{public? 27407}#)
+ #{var 29390}#
+ #{mod 29394}#)))))))))
+ (#{build-global-reference 6262}#
+ (lambda (#{source 29409}# #{var 29410}# #{mod 29411}#)
+ (#{analyze-variable 6261}#
+ #{mod 29411}#
+ #{var 29410}#
+ (lambda (#{mod 29414}# #{var 29415}# #{public? 29416}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 5)
- #{source 27400}#
- #{mod 27405}#
- #{var 27406}#
- #{public? 27407}#))
- (lambda (#{var 27415}#)
+ #{source 29409}#
+ #{mod 29414}#
+ #{var 29415}#
+ #{public? 29416}#))
+ (lambda (#{var 29424}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
- #{source 27400}#
- #{var 27415}#)))))
- (#{build-global-assignment 4276}#
- (lambda (#{source 15921}#
- #{var 15922}#
- #{exp 15923}#
- #{mod 15924}#)
+ #{source 29409}#
+ #{var 29424}#)))))
+ (#{build-global-assignment 6263}#
+ (lambda (#{source 17908}#
+ #{var 17909}#
+ #{exp 17910}#
+ #{mod 17911}#)
(begin
- (if (if (struct? #{exp 15923}#)
- (eq? (struct-vtable #{exp 15923}#)
+ (if (if (struct? #{exp 17910}#)
+ (eq? (struct-vtable #{exp 17910}#)
(vector-ref %expanded-vtables 13))
#f)
- (let ((#{meta 15940}# (struct-ref #{exp 15923}# 1)))
- (if (not (assq 'name #{meta 15940}#))
- (let ((#{v 15947}#
- (cons (cons 'name #{var 15922}#) #{meta 15940}#)))
- (struct-set! #{exp 15923}# 1 #{v 15947}#)))))
- (#{analyze-variable 4274}#
- #{mod 15924}#
- #{var 15922}#
- (lambda (#{mod 15952}# #{var 15953}# #{public? 15954}#)
+ (let ((#{meta 17927}# (struct-ref #{exp 17910}# 1)))
+ (if (not (assq 'name #{meta 17927}#))
+ (let ((#{v 17934}#
+ (cons (cons 'name #{var 17909}#) #{meta 17927}#)))
+ (struct-set! #{exp 17910}# 1 #{v 17934}#)))))
+ (#{analyze-variable 6261}#
+ #{mod 17911}#
+ #{var 17909}#
+ (lambda (#{mod 17939}# #{var 17940}# #{public? 17941}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 6)
- #{source 15921}#
- #{mod 15952}#
- #{var 15953}#
- #{public? 15954}#
- #{exp 15923}#))
- (lambda (#{var 15962}#)
+ #{source 17908}#
+ #{mod 17939}#
+ #{var 17940}#
+ #{public? 17941}#
+ #{exp 17910}#))
+ (lambda (#{var 17949}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 8)
- #{source 15921}#
- #{var 15962}#
- #{exp 15923}#))))))
- (#{build-global-definition 4277}#
- (lambda (#{source 27421}# #{var 27422}# #{exp 27423}#)
+ #{source 17908}#
+ #{var 17949}#
+ #{exp 17910}#))))))
+ (#{build-global-definition 6264}#
+ (lambda (#{source 29430}# #{var 29431}# #{exp 29432}#)
(begin
- (if (if (struct? #{exp 27423}#)
- (eq? (struct-vtable #{exp 27423}#)
+ (if (if (struct? #{exp 29432}#)
+ (eq? (struct-vtable #{exp 29432}#)
(vector-ref %expanded-vtables 13))
#f)
- (let ((#{meta 27439}# (struct-ref #{exp 27423}# 1)))
- (if (not (assq 'name #{meta 27439}#))
- (let ((#{v 27446}#
- (cons (cons 'name #{var 27422}#) #{meta 27439}#)))
- (struct-set! #{exp 27423}# 1 #{v 27446}#)))))
+ (let ((#{meta 29448}# (struct-ref #{exp 29432}# 1)))
+ (if (not (assq 'name #{meta 29448}#))
+ (let ((#{v 29455}#
+ (cons (cons 'name #{var 29431}#) #{meta 29448}#)))
+ (struct-set! #{exp 29432}# 1 #{v 29455}#)))))
(make-struct/no-tail
(vector-ref %expanded-vtables 9)
- #{source 27421}#
- #{var 27422}#
- #{exp 27423}#))))
- (#{build-simple-lambda 4278}#
- (lambda (#{src 15968}#
- #{req 15969}#
- #{rest 15970}#
- #{vars 15971}#
- #{meta 15972}#
- #{exp 15973}#)
- (let ((#{body 15979}#
+ #{source 29430}#
+ #{var 29431}#
+ #{exp 29432}#))))
+ (#{build-simple-lambda 6265}#
+ (lambda (#{src 17955}#
+ #{req 17956}#
+ #{rest 17957}#
+ #{vars 17958}#
+ #{meta 17959}#
+ #{exp 17960}#)
+ (let ((#{body 17966}#
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
- #{src 15968}#
- #{req 15969}#
+ #{src 17955}#
+ #{req 17956}#
#f
- #{rest 15970}#
+ #{rest 17957}#
#f
'()
- #{vars 15971}#
- #{exp 15973}#
+ #{vars 17958}#
+ #{exp 17960}#
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
- #{src 15968}#
- #{meta 15972}#
- #{body 15979}#))))
- (#{build-sequence 4283}#
- (lambda (#{src 27454}# #{exps 27455}#)
- (if (null? (cdr #{exps 27455}#))
- (car #{exps 27455}#)
+ #{src 17955}#
+ #{meta 17959}#
+ #{body 17966}#))))
+ (#{build-sequence 6270}#
+ (lambda (#{src 29463}# #{exps 29464}#)
+ (if (null? (cdr #{exps 29464}#))
+ (car #{exps 29464}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 12)
- #{src 27454}#
- #{exps 27455}#))))
- (#{build-let 4284}#
- (lambda (#{src 15991}#
- #{ids 15992}#
- #{vars 15993}#
- #{val-exps 15994}#
- #{body-exp 15995}#)
+ #{src 29463}#
+ #{exps 29464}#))))
+ (#{build-let 6271}#
+ (lambda (#{src 17978}#
+ #{ids 17979}#
+ #{vars 17980}#
+ #{val-exps 17981}#
+ #{body-exp 17982}#)
(begin
(for-each
- #{maybe-name-value! 4267}#
- #{ids 15992}#
- #{val-exps 15994}#)
- (if (null? #{vars 15993}#)
- #{body-exp 15995}#
+ #{maybe-name-value! 6254}#
+ #{ids 17979}#
+ #{val-exps 17981}#)
+ (if (null? #{vars 17980}#)
+ #{body-exp 17982}#
(make-struct/no-tail
(vector-ref %expanded-vtables 15)
- #{src 15991}#
- #{ids 15992}#
- #{vars 15993}#
- #{val-exps 15994}#
- #{body-exp 15995}#)))))
- (#{build-named-let 4285}#
- (lambda (#{src 16019}#
- #{ids 16020}#
- #{vars 16021}#
- #{val-exps 16022}#
- #{body-exp 16023}#)
- (let ((#{f 16024}# (car #{vars 16021}#))
- (#{f-name 16025}# (car #{ids 16020}#))
- (#{vars 16026}# (cdr #{vars 16021}#))
- (#{ids 16027}# (cdr #{ids 16020}#)))
- (let ((#{proc 16028}#
- (let ((#{body 16048}#
+ #{src 17978}#
+ #{ids 17979}#
+ #{vars 17980}#
+ #{val-exps 17981}#
+ #{body-exp 17982}#)))))
+ (#{build-named-let 6272}#
+ (lambda (#{src 18006}#
+ #{ids 18007}#
+ #{vars 18008}#
+ #{val-exps 18009}#
+ #{body-exp 18010}#)
+ (let ((#{f 18011}# (car #{vars 18008}#))
+ (#{f-name 18012}# (car #{ids 18007}#))
+ (#{vars 18013}# (cdr #{vars 18008}#))
+ (#{ids 18014}# (cdr #{ids 18007}#)))
+ (let ((#{proc 18015}#
+ (let ((#{body 18035}#
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
- #{src 16019}#
- #{ids 16027}#
+ #{src 18006}#
+ #{ids 18014}#
#f
#f
#f
'()
- #{vars 16026}#
- #{body-exp 16023}#
+ #{vars 18013}#
+ #{body-exp 18010}#
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
- #{src 16019}#
+ #{src 18006}#
'()
- #{body 16048}#))))
+ #{body 18035}#))))
(begin
- (if (if (struct? #{proc 16028}#)
- (eq? (struct-vtable #{proc 16028}#)
+ (if (if (struct? #{proc 18015}#)
+ (eq? (struct-vtable #{proc 18015}#)
(vector-ref %expanded-vtables 13))
#f)
- (let ((#{meta 16072}# (struct-ref #{proc 16028}# 1)))
- (if (not (assq 'name #{meta 16072}#))
- (let ((#{v 16079}#
- (cons (cons 'name #{f-name 16025}#)
- #{meta 16072}#)))
- (struct-set! #{proc 16028}# 1 #{v 16079}#)))))
+ (let ((#{meta 18059}# (struct-ref #{proc 18015}# 1)))
+ (if (not (assq 'name #{meta 18059}#))
+ (let ((#{v 18066}#
+ (cons (cons 'name #{f-name 18012}#)
+ #{meta 18059}#)))
+ (struct-set! #{proc 18015}# 1 #{v 18066}#)))))
(for-each
- #{maybe-name-value! 4267}#
- #{ids 16027}#
- #{val-exps 16022}#)
- (let ((#{names 16103}# (list #{f-name 16025}#))
- (#{gensyms 16104}# (list #{f 16024}#))
- (#{vals 16105}# (list #{proc 16028}#))
- (#{body 16106}#
- (let ((#{fun-exp 16110}#
+ #{maybe-name-value! 6254}#
+ #{ids 18014}#
+ #{val-exps 18009}#)
+ (let ((#{names 18090}# (list #{f-name 18012}#))
+ (#{gensyms 18091}# (list #{f 18011}#))
+ (#{vals 18092}# (list #{proc 18015}#))
+ (#{body 18093}#
+ (let ((#{fun-exp 18097}#
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
- #{src 16019}#
- #{f-name 16025}#
- #{f 16024}#)))
+ #{src 18006}#
+ #{f-name 18012}#
+ #{f 18011}#)))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
- #{src 16019}#
- #{fun-exp 16110}#
- #{val-exps 16022}#))))
+ #{src 18006}#
+ #{fun-exp 18097}#
+ #{val-exps 18009}#))))
(make-struct/no-tail
(vector-ref %expanded-vtables 16)
- #{src 16019}#
+ #{src 18006}#
#f
- #{names 16103}#
- #{gensyms 16104}#
- #{vals 16105}#
- #{body 16106}#)))))))
- (#{build-letrec 4286}#
- (lambda (#{src 16126}#
- #{in-order? 16127}#
- #{ids 16128}#
- #{vars 16129}#
- #{val-exps 16130}#
- #{body-exp 16131}#)
- (if (null? #{vars 16129}#)
- #{body-exp 16131}#
+ #{names 18090}#
+ #{gensyms 18091}#
+ #{vals 18092}#
+ #{body 18093}#)))))))
+ (#{build-letrec 6273}#
+ (lambda (#{src 18113}#
+ #{in-order? 18114}#
+ #{ids 18115}#
+ #{vars 18116}#
+ #{val-exps 18117}#
+ #{body-exp 18118}#)
+ (if (null? #{vars 18116}#)
+ #{body-exp 18118}#
(begin
(for-each
- #{maybe-name-value! 4267}#
- #{ids 16128}#
- #{val-exps 16130}#)
+ #{maybe-name-value! 6254}#
+ #{ids 18115}#
+ #{val-exps 18117}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 16)
- #{src 16126}#
- #{in-order? 16127}#
- #{ids 16128}#
- #{vars 16129}#
- #{val-exps 16130}#
- #{body-exp 16131}#)))))
- (#{source-annotation 4295}#
- (lambda (#{x 16157}#)
- (if (if (vector? #{x 16157}#)
- (if (= (vector-length #{x 16157}#) 4)
- (eq? (vector-ref #{x 16157}# 0) 'syntax-object)
+ #{src 18113}#
+ #{in-order? 18114}#
+ #{ids 18115}#
+ #{vars 18116}#
+ #{val-exps 18117}#
+ #{body-exp 18118}#)))))
+ (#{source-annotation 6282}#
+ (lambda (#{x 18144}#)
+ (if (if (vector? #{x 18144}#)
+ (if (= (vector-length #{x 18144}#) 4)
+ (eq? (vector-ref #{x 18144}# 0) 'syntax-object)
#f)
#f)
- (#{source-annotation 4295}#
- (vector-ref #{x 16157}# 1))
- (if (pair? #{x 16157}#)
- (let ((#{props 16172}# (source-properties #{x 16157}#)))
- (if (pair? #{props 16172}#) #{props 16172}# #f))
+ (#{source-annotation 6282}#
+ (vector-ref #{x 18144}# 1))
+ (if (pair? #{x 18144}#)
+ (let ((#{props 18159}# (source-properties #{x 18144}#)))
+ (if (pair? #{props 18159}#) #{props 18159}# #f))
#f))))
- (#{extend-env 4296}#
- (lambda (#{labels 16174}# #{bindings 16175}# #{r 16176}#)
- (if (null? #{labels 16174}#)
- #{r 16176}#
- (#{extend-env 4296}#
- (cdr #{labels 16174}#)
- (cdr #{bindings 16175}#)
- (cons (cons (car #{labels 16174}#)
- (car #{bindings 16175}#))
- #{r 16176}#)))))
- (#{extend-var-env 4297}#
- (lambda (#{labels 16177}# #{vars 16178}# #{r 16179}#)
- (if (null? #{labels 16177}#)
- #{r 16179}#
- (#{extend-var-env 4297}#
- (cdr #{labels 16177}#)
- (cdr #{vars 16178}#)
- (cons (cons (car #{labels 16177}#)
- (cons 'lexical (car #{vars 16178}#)))
- #{r 16179}#)))))
- (#{macros-only-env 4298}#
- (lambda (#{r 16180}#)
- (if (null? #{r 16180}#)
+ (#{extend-env 6283}#
+ (lambda (#{labels 18161}# #{bindings 18162}# #{r 18163}#)
+ (if (null? #{labels 18161}#)
+ #{r 18163}#
+ (#{extend-env 6283}#
+ (cdr #{labels 18161}#)
+ (cdr #{bindings 18162}#)
+ (cons (cons (car #{labels 18161}#)
+ (car #{bindings 18162}#))
+ #{r 18163}#)))))
+ (#{extend-var-env 6284}#
+ (lambda (#{labels 18164}# #{vars 18165}# #{r 18166}#)
+ (if (null? #{labels 18164}#)
+ #{r 18166}#
+ (#{extend-var-env 6284}#
+ (cdr #{labels 18164}#)
+ (cdr #{vars 18165}#)
+ (cons (cons (car #{labels 18164}#)
+ (cons 'lexical (car #{vars 18165}#)))
+ #{r 18166}#)))))
+ (#{macros-only-env 6285}#
+ (lambda (#{r 18167}#)
+ (if (null? #{r 18167}#)
'()
- (let ((#{a 16181}# (car #{r 16180}#)))
- (if (eq? (car (cdr #{a 16181}#)) 'macro)
- (cons #{a 16181}#
- (#{macros-only-env 4298}# (cdr #{r 16180}#)))
- (#{macros-only-env 4298}# (cdr #{r 16180}#)))))))
- (#{global-extend 4300}#
- (lambda (#{type 16183}# #{sym 16184}# #{val 16185}#)
+ (let ((#{a 18168}# (car #{r 18167}#)))
+ (if (eq? (car (cdr #{a 18168}#)) 'macro)
+ (cons #{a 18168}#
+ (#{macros-only-env 6285}# (cdr #{r 18167}#)))
+ (#{macros-only-env 6285}# (cdr #{r 18167}#)))))))
+ (#{global-extend 6287}#
+ (lambda (#{type 18170}# #{sym 18171}# #{val 18172}#)
(module-define!
(current-module)
- #{sym 16184}#
+ #{sym 18171}#
(make-syntax-transformer
- #{sym 16184}#
- #{type 16183}#
- #{val 16185}#))))
- (#{id? 4302}#
- (lambda (#{x 10359}#)
- (if (symbol? #{x 10359}#)
+ #{sym 18171}#
+ #{type 18170}#
+ #{val 18172}#))))
+ (#{id? 6289}#
+ (lambda (#{x 12346}#)
+ (if (symbol? #{x 12346}#)
#t
- (if (if (vector? #{x 10359}#)
- (if (= (vector-length #{x 10359}#) 4)
- (eq? (vector-ref #{x 10359}# 0) 'syntax-object)
+ (if (if (vector? #{x 12346}#)
+ (if (= (vector-length #{x 12346}#) 4)
+ (eq? (vector-ref #{x 12346}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 10359}# 1))
+ (symbol? (vector-ref #{x 12346}# 1))
#f))))
- (#{gen-labels 4305}#
- (lambda (#{ls 16195}#)
- (if (null? #{ls 16195}#)
+ (#{gen-labels 6292}#
+ (lambda (#{ls 18182}#)
+ (if (null? #{ls 18182}#)
'()
(cons (symbol->string (gensym "i"))
- (#{gen-labels 4305}# (cdr #{ls 16195}#))))))
- (#{make-binding-wrap 4316}#
- (lambda (#{ids 16199}# #{labels 16200}# #{w 16201}#)
- (if (null? #{ids 16199}#)
- #{w 16201}#
- (cons (car #{w 16201}#)
- (cons (let ((#{labelvec 16202}#
- (list->vector #{labels 16200}#)))
- (let ((#{n 16203}# (vector-length #{labelvec 16202}#)))
- (let ((#{symnamevec 16204}# (make-vector #{n 16203}#))
- (#{marksvec 16205}# (make-vector #{n 16203}#)))
+ (#{gen-labels 6292}# (cdr #{ls 18182}#))))))
+ (#{make-binding-wrap 6303}#
+ (lambda (#{ids 18186}# #{labels 18187}# #{w 18188}#)
+ (if (null? #{ids 18186}#)
+ #{w 18188}#
+ (cons (car #{w 18188}#)
+ (cons (let ((#{labelvec 18189}#
+ (list->vector #{labels 18187}#)))
+ (let ((#{n 18190}# (vector-length #{labelvec 18189}#)))
+ (let ((#{symnamevec 18191}# (make-vector #{n 18190}#))
+ (#{marksvec 18192}# (make-vector #{n 18190}#)))
(begin
(letrec*
- ((#{f 16206}#
- (lambda (#{ids 16209}# #{i 16210}#)
- (if (not (null? #{ids 16209}#))
+ ((#{f 18193}#
+ (lambda (#{ids 18196}# #{i 18197}#)
+ (if (not (null? #{ids 18196}#))
(call-with-values
(lambda ()
- (let ((#{x 16213}#
- (car #{ids 16209}#)))
- (if (if (vector? #{x 16213}#)
+ (let ((#{x 18200}#
+ (car #{ids 18196}#)))
+ (if (if (vector? #{x 18200}#)
(if (= (vector-length
- #{x 16213}#)
+ #{x 18200}#)
4)
(eq? (vector-ref
- #{x 16213}#
+ #{x 18200}#
0)
'syntax-object)
#f)
#f)
(values
- (vector-ref #{x 16213}# 1)
- (let ((#{m1 16229}#
- (car #{w 16201}#))
- (#{m2 16230}#
+ (vector-ref #{x 18200}# 1)
+ (let ((#{m1 18216}#
+ (car #{w 18188}#))
+ (#{m2 18217}#
(car (vector-ref
- #{x 16213}#
+ #{x 18200}#
2))))
- (if (null? #{m2 16230}#)
- #{m1 16229}#
+ (if (null? #{m2 18217}#)
+ #{m1 18216}#
(append
- #{m1 16229}#
- #{m2 16230}#))))
+ #{m1 18216}#
+ #{m2 18217}#))))
(values
- #{x 16213}#
- (car #{w 16201}#)))))
- (lambda (#{symname 16250}#
- #{marks 16251}#)
+ #{x 18200}#
+ (car #{w 18188}#)))))
+ (lambda (#{symname 18237}#
+ #{marks 18238}#)
(begin
(vector-set!
- #{symnamevec 16204}#
- #{i 16210}#
- #{symname 16250}#)
+ #{symnamevec 18191}#
+ #{i 18197}#
+ #{symname 18237}#)
(vector-set!
- #{marksvec 16205}#
- #{i 16210}#
- #{marks 16251}#)
- (#{f 16206}#
- (cdr #{ids 16209}#)
- (#{1+}# #{i 16210}#)))))))))
- (#{f 16206}# #{ids 16199}# 0))
+ #{marksvec 18192}#
+ #{i 18197}#
+ #{marks 18238}#)
+ (#{f 18193}#
+ (cdr #{ids 18196}#)
+ (#{1+}# #{i 18197}#)))))))))
+ (#{f 18193}# #{ids 18186}# 0))
(vector
'ribcage
- #{symnamevec 16204}#
- #{marksvec 16205}#
- #{labelvec 16202}#)))))
- (cdr #{w 16201}#))))))
- (#{join-wraps 4318}#
- (lambda (#{w1 16260}# #{w2 16261}#)
- (let ((#{m1 16262}# (car #{w1 16260}#))
- (#{s1 16263}# (cdr #{w1 16260}#)))
- (if (null? #{m1 16262}#)
- (if (null? #{s1 16263}#)
- #{w2 16261}#
- (cons (car #{w2 16261}#)
- (let ((#{m2 16270}# (cdr #{w2 16261}#)))
- (if (null? #{m2 16270}#)
- #{s1 16263}#
- (append #{s1 16263}# #{m2 16270}#)))))
- (cons (let ((#{m2 16279}# (car #{w2 16261}#)))
- (if (null? #{m2 16279}#)
- #{m1 16262}#
- (append #{m1 16262}# #{m2 16279}#)))
- (let ((#{m2 16288}# (cdr #{w2 16261}#)))
- (if (null? #{m2 16288}#)
- #{s1 16263}#
- (append #{s1 16263}# #{m2 16288}#))))))))
- (#{same-marks? 4320}#
- (lambda (#{x 16293}# #{y 16294}#)
- (if (eq? #{x 16293}# #{y 16294}#)
- (eq? #{x 16293}# #{y 16294}#)
- (if (not (null? #{x 16293}#))
- (if (not (null? #{y 16294}#))
- (if (eq? (car #{x 16293}#) (car #{y 16294}#))
- (#{same-marks? 4320}#
- (cdr #{x 16293}#)
- (cdr #{y 16294}#))
+ #{symnamevec 18191}#
+ #{marksvec 18192}#
+ #{labelvec 18189}#)))))
+ (cdr #{w 18188}#))))))
+ (#{join-wraps 6305}#
+ (lambda (#{w1 18247}# #{w2 18248}#)
+ (let ((#{m1 18249}# (car #{w1 18247}#))
+ (#{s1 18250}# (cdr #{w1 18247}#)))
+ (if (null? #{m1 18249}#)
+ (if (null? #{s1 18250}#)
+ #{w2 18248}#
+ (cons (car #{w2 18248}#)
+ (let ((#{m2 18257}# (cdr #{w2 18248}#)))
+ (if (null? #{m2 18257}#)
+ #{s1 18250}#
+ (append #{s1 18250}# #{m2 18257}#)))))
+ (cons (let ((#{m2 18266}# (car #{w2 18248}#)))
+ (if (null? #{m2 18266}#)
+ #{m1 18249}#
+ (append #{m1 18249}# #{m2 18266}#)))
+ (let ((#{m2 18275}# (cdr #{w2 18248}#)))
+ (if (null? #{m2 18275}#)
+ #{s1 18250}#
+ (append #{s1 18250}# #{m2 18275}#))))))))
+ (#{same-marks? 6307}#
+ (lambda (#{x 18280}# #{y 18281}#)
+ (if (eq? #{x 18280}# #{y 18281}#)
+ (eq? #{x 18280}# #{y 18281}#)
+ (if (not (null? #{x 18280}#))
+ (if (not (null? #{y 18281}#))
+ (if (eq? (car #{x 18280}#) (car #{y 18281}#))
+ (#{same-marks? 6307}#
+ (cdr #{x 18280}#)
+ (cdr #{y 18281}#))
#f)
#f)
#f))))
- (#{id-var-name 4321}#
- (lambda (#{id 16302}# #{w 16303}#)
+ (#{id-var-name 6308}#
+ (lambda (#{id 18289}# #{w 18290}#)
(letrec*
- ((#{search 16304}#
- (lambda (#{sym 16365}# #{subst 16366}# #{marks 16367}#)
- (if (null? #{subst 16366}#)
- (values #f #{marks 16367}#)
- (let ((#{fst 16368}# (car #{subst 16366}#)))
- (if (eq? #{fst 16368}# 'shift)
- (#{search 16304}#
- #{sym 16365}#
- (cdr #{subst 16366}#)
- (cdr #{marks 16367}#))
- (let ((#{symnames 16370}# (vector-ref #{fst 16368}# 1)))
- (if (vector? #{symnames 16370}#)
- (let ((#{n 16382}# (vector-length #{symnames 16370}#)))
+ ((#{search 18291}#
+ (lambda (#{sym 18352}# #{subst 18353}# #{marks 18354}#)
+ (if (null? #{subst 18353}#)
+ (values #f #{marks 18354}#)
+ (let ((#{fst 18355}# (car #{subst 18353}#)))
+ (if (eq? #{fst 18355}# 'shift)
+ (#{search 18291}#
+ #{sym 18352}#
+ (cdr #{subst 18353}#)
+ (cdr #{marks 18354}#))
+ (let ((#{symnames 18357}# (vector-ref #{fst 18355}# 1)))
+ (if (vector? #{symnames 18357}#)
+ (let ((#{n 18369}# (vector-length #{symnames 18357}#)))
(letrec*
- ((#{f 16383}#
- (lambda (#{i 16385}#)
- (if (= #{i 16385}# #{n 16382}#)
- (#{search 16304}#
- #{sym 16365}#
- (cdr #{subst 16366}#)
- #{marks 16367}#)
+ ((#{f 18370}#
+ (lambda (#{i 18372}#)
+ (if (= #{i 18372}# #{n 18369}#)
+ (#{search 18291}#
+ #{sym 18352}#
+ (cdr #{subst 18353}#)
+ #{marks 18354}#)
(if (if (eq? (vector-ref
- #{symnames 16370}#
- #{i 16385}#)
- #{sym 16365}#)
- (#{same-marks? 4320}#
- #{marks 16367}#
+ #{symnames 18357}#
+ #{i 18372}#)
+ #{sym 18352}#)
+ (#{same-marks? 6307}#
+ #{marks 18354}#
(vector-ref
- (vector-ref #{fst 16368}# 2)
- #{i 16385}#))
+ (vector-ref #{fst 18355}# 2)
+ #{i 18372}#))
#f)
(values
(vector-ref
- (vector-ref #{fst 16368}# 3)
- #{i 16385}#)
- #{marks 16367}#)
- (#{f 16383}# (#{1+}# #{i 16385}#)))))))
- (#{f 16383}# 0)))
+ (vector-ref #{fst 18355}# 3)
+ #{i 18372}#)
+ #{marks 18354}#)
+ (#{f 18370}# (#{1+}# #{i 18372}#)))))))
+ (#{f 18370}# 0)))
(letrec*
- ((#{f 16418}#
- (lambda (#{symnames 16420}# #{i 16421}#)
- (if (null? #{symnames 16420}#)
- (#{search 16304}#
- #{sym 16365}#
- (cdr #{subst 16366}#)
- #{marks 16367}#)
- (if (if (eq? (car #{symnames 16420}#)
- #{sym 16365}#)
- (#{same-marks? 4320}#
- #{marks 16367}#
+ ((#{f 18405}#
+ (lambda (#{symnames 18407}# #{i 18408}#)
+ (if (null? #{symnames 18407}#)
+ (#{search 18291}#
+ #{sym 18352}#
+ (cdr #{subst 18353}#)
+ #{marks 18354}#)
+ (if (if (eq? (car #{symnames 18407}#)
+ #{sym 18352}#)
+ (#{same-marks? 6307}#
+ #{marks 18354}#
(list-ref
- (vector-ref #{fst 16368}# 2)
- #{i 16421}#))
+ (vector-ref #{fst 18355}# 2)
+ #{i 18408}#))
#f)
(values
(list-ref
- (vector-ref #{fst 16368}# 3)
- #{i 16421}#)
- #{marks 16367}#)
- (#{f 16418}#
- (cdr #{symnames 16420}#)
- (#{1+}# #{i 16421}#)))))))
- (#{f 16418}# #{symnames 16370}# 0))))))))))
- (if (symbol? #{id 16302}#)
- (let ((#{t 16307}#
- (#{search 16304}#
- #{id 16302}#
- (cdr #{w 16303}#)
- (car #{w 16303}#))))
- (if #{t 16307}# #{t 16307}# #{id 16302}#))
- (if (if (vector? #{id 16302}#)
- (if (= (vector-length #{id 16302}#) 4)
- (eq? (vector-ref #{id 16302}# 0) 'syntax-object)
+ (vector-ref #{fst 18355}# 3)
+ #{i 18408}#)
+ #{marks 18354}#)
+ (#{f 18405}#
+ (cdr #{symnames 18407}#)
+ (#{1+}# #{i 18408}#)))))))
+ (#{f 18405}# #{symnames 18357}# 0))))))))))
+ (if (symbol? #{id 18289}#)
+ (let ((#{t 18294}#
+ (#{search 18291}#
+ #{id 18289}#
+ (cdr #{w 18290}#)
+ (car #{w 18290}#))))
+ (if #{t 18294}# #{t 18294}# #{id 18289}#))
+ (if (if (vector? #{id 18289}#)
+ (if (= (vector-length #{id 18289}#) 4)
+ (eq? (vector-ref #{id 18289}# 0) 'syntax-object)
#f)
#f)
- (let ((#{id 16322}# (vector-ref #{id 16302}# 1))
- (#{w1 16323}# (vector-ref #{id 16302}# 2)))
- (let ((#{marks 16324}#
- (let ((#{m1 16334}# (car #{w 16303}#))
- (#{m2 16335}# (car #{w1 16323}#)))
- (if (null? #{m2 16335}#)
- #{m1 16334}#
- (append #{m1 16334}# #{m2 16335}#)))))
+ (let ((#{id 18309}# (vector-ref #{id 18289}# 1))
+ (#{w1 18310}# (vector-ref #{id 18289}# 2)))
+ (let ((#{marks 18311}#
+ (let ((#{m1 18321}# (car #{w 18290}#))
+ (#{m2 18322}# (car #{w1 18310}#)))
+ (if (null? #{m2 18322}#)
+ #{m1 18321}#
+ (append #{m1 18321}# #{m2 18322}#)))))
(call-with-values
(lambda ()
- (#{search 16304}#
- #{id 16322}#
- (cdr #{w 16303}#)
- #{marks 16324}#))
- (lambda (#{new-id 16351}# #{marks 16352}#)
- (if #{new-id 16351}#
- #{new-id 16351}#
- (let ((#{t 16360}#
- (#{search 16304}#
- #{id 16322}#
- (cdr #{w1 16323}#)
- #{marks 16352}#)))
- (if #{t 16360}# #{t 16360}# #{id 16322}#)))))))
+ (#{search 18291}#
+ #{id 18309}#
+ (cdr #{w 18290}#)
+ #{marks 18311}#))
+ (lambda (#{new-id 18338}# #{marks 18339}#)
+ (if #{new-id 18338}#
+ #{new-id 18338}#
+ (let ((#{t 18347}#
+ (#{search 18291}#
+ #{id 18309}#
+ (cdr #{w1 18310}#)
+ #{marks 18339}#)))
+ (if #{t 18347}# #{t 18347}# #{id 18309}#)))))))
(syntax-violation
'id-var-name
"invalid id"
- #{id 16302}#))))))
- (#{valid-bound-ids? 4324}#
- (lambda (#{ids 16443}#)
+ #{id 18289}#))))))
+ (#{valid-bound-ids? 6311}#
+ (lambda (#{ids 18430}#)
(if (letrec*
- ((#{all-ids? 16444}#
- (lambda (#{ids 16606}#)
- (if (null? #{ids 16606}#)
- (null? #{ids 16606}#)
- (if (let ((#{x 16617}# (car #{ids 16606}#)))
- (if (symbol? #{x 16617}#)
+ ((#{all-ids? 18431}#
+ (lambda (#{ids 18593}#)
+ (if (null? #{ids 18593}#)
+ (null? #{ids 18593}#)
+ (if (let ((#{x 18604}# (car #{ids 18593}#)))
+ (if (symbol? #{x 18604}#)
#t
- (if (if (vector? #{x 16617}#)
- (if (= (vector-length #{x 16617}#) 4)
- (eq? (vector-ref #{x 16617}# 0)
+ (if (if (vector? #{x 18604}#)
+ (if (= (vector-length #{x 18604}#) 4)
+ (eq? (vector-ref #{x 18604}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 16617}# 1))
+ (symbol? (vector-ref #{x 18604}# 1))
#f)))
- (#{all-ids? 16444}# (cdr #{ids 16606}#))
+ (#{all-ids? 18431}# (cdr #{ids 18593}#))
#f)))))
- (#{all-ids? 16444}# #{ids 16443}#))
- (#{distinct-bound-ids? 4325}# #{ids 16443}#)
+ (#{all-ids? 18431}# #{ids 18430}#))
+ (#{distinct-bound-ids? 6312}# #{ids 18430}#)
#f)))
- (#{distinct-bound-ids? 4325}#
- (lambda (#{ids 16745}#)
+ (#{distinct-bound-ids? 6312}#
+ (lambda (#{ids 18732}#)
(letrec*
- ((#{distinct? 16746}#
- (lambda (#{ids 16858}#)
- (if (null? #{ids 16858}#)
- (null? #{ids 16858}#)
- (if (not (#{bound-id-member? 4326}#
- (car #{ids 16858}#)
- (cdr #{ids 16858}#)))
- (#{distinct? 16746}# (cdr #{ids 16858}#))
+ ((#{distinct? 18733}#
+ (lambda (#{ids 18845}#)
+ (if (null? #{ids 18845}#)
+ (null? #{ids 18845}#)
+ (if (not (#{bound-id-member? 6313}#
+ (car #{ids 18845}#)
+ (cdr #{ids 18845}#)))
+ (#{distinct? 18733}# (cdr #{ids 18845}#))
#f)))))
- (#{distinct? 16746}# #{ids 16745}#))))
- (#{bound-id-member? 4326}#
- (lambda (#{x 17068}# #{list 17069}#)
- (if (not (null? #{list 17069}#))
- (let ((#{t 17070}#
- (let ((#{j 17151}# (car #{list 17069}#)))
- (if (if (if (vector? #{x 17068}#)
- (if (= (vector-length #{x 17068}#) 4)
- (eq? (vector-ref #{x 17068}# 0) 'syntax-object)
+ (#{distinct? 18733}# #{ids 18732}#))))
+ (#{bound-id-member? 6313}#
+ (lambda (#{x 19055}# #{list 19056}#)
+ (if (not (null? #{list 19056}#))
+ (let ((#{t 19057}#
+ (let ((#{j 19138}# (car #{list 19056}#)))
+ (if (if (if (vector? #{x 19055}#)
+ (if (= (vector-length #{x 19055}#) 4)
+ (eq? (vector-ref #{x 19055}# 0) 'syntax-object)
#f)
#f)
- (if (vector? #{j 17151}#)
- (if (= (vector-length #{j 17151}#) 4)
- (eq? (vector-ref #{j 17151}# 0) 'syntax-object)
+ (if (vector? #{j 19138}#)
+ (if (= (vector-length #{j 19138}#) 4)
+ (eq? (vector-ref #{j 19138}# 0) 'syntax-object)
#f)
#f)
#f)
- (if (eq? (vector-ref #{x 17068}# 1)
- (vector-ref #{j 17151}# 1))
- (#{same-marks? 4320}#
- (car (vector-ref #{x 17068}# 2))
- (car (vector-ref #{j 17151}# 2)))
+ (if (eq? (vector-ref #{x 19055}# 1)
+ (vector-ref #{j 19138}# 1))
+ (#{same-marks? 6307}#
+ (car (vector-ref #{x 19055}# 2))
+ (car (vector-ref #{j 19138}# 2)))
#f)
- (eq? #{x 17068}# #{j 17151}#)))))
- (if #{t 17070}#
- #{t 17070}#
- (#{bound-id-member? 4326}#
- #{x 17068}#
- (cdr #{list 17069}#))))
+ (eq? #{x 19055}# #{j 19138}#)))))
+ (if #{t 19057}#
+ #{t 19057}#
+ (#{bound-id-member? 6313}#
+ #{x 19055}#
+ (cdr #{list 19056}#))))
#f)))
- (#{wrap 4327}#
- (lambda (#{x 17195}# #{w 17196}# #{defmod 17197}#)
- (if (if (null? (car #{w 17196}#))
- (null? (cdr #{w 17196}#))
+ (#{wrap 6314}#
+ (lambda (#{x 19182}# #{w 19183}# #{defmod 19184}#)
+ (if (if (null? (car #{w 19183}#))
+ (null? (cdr #{w 19183}#))
#f)
- #{x 17195}#
- (if (if (vector? #{x 17195}#)
- (if (= (vector-length #{x 17195}#) 4)
- (eq? (vector-ref #{x 17195}# 0) 'syntax-object)
+ #{x 19182}#
+ (if (if (vector? #{x 19182}#)
+ (if (= (vector-length #{x 19182}#) 4)
+ (eq? (vector-ref #{x 19182}# 0) 'syntax-object)
#f)
#f)
- (let ((#{expression 17211}# (vector-ref #{x 17195}# 1))
- (#{wrap 17212}#
- (#{join-wraps 4318}#
- #{w 17196}#
- (vector-ref #{x 17195}# 2)))
- (#{module 17213}# (vector-ref #{x 17195}# 3)))
+ (let ((#{expression 19198}# (vector-ref #{x 19182}# 1))
+ (#{wrap 19199}#
+ (#{join-wraps 6305}#
+ #{w 19183}#
+ (vector-ref #{x 19182}# 2)))
+ (#{module 19200}# (vector-ref #{x 19182}# 3)))
(vector
'syntax-object
- #{expression 17211}#
- #{wrap 17212}#
- #{module 17213}#))
- (if (null? #{x 17195}#)
- #{x 17195}#
+ #{expression 19198}#
+ #{wrap 19199}#
+ #{module 19200}#))
+ (if (null? #{x 19182}#)
+ #{x 19182}#
(vector
'syntax-object
- #{x 17195}#
- #{w 17196}#
- #{defmod 17197}#))))))
- (#{source-wrap 4328}#
- (lambda (#{x 17230}#
- #{w 17231}#
- #{s 17232}#
- #{defmod 17233}#)
- (#{wrap 4327}#
+ #{x 19182}#
+ #{w 19183}#
+ #{defmod 19184}#))))))
+ (#{source-wrap 6315}#
+ (lambda (#{x 19217}#
+ #{w 19218}#
+ #{s 19219}#
+ #{defmod 19220}#)
+ (#{wrap 6314}#
(begin
- (if (if (pair? #{x 17230}#) #{s 17232}# #f)
- (set-source-properties! #{x 17230}# #{s 17232}#))
- #{x 17230}#)
- #{w 17231}#
- #{defmod 17233}#)))
- (#{expand-sequence 4329}#
- (lambda (#{body 27460}#
- #{r 27461}#
- #{w 27462}#
- #{s 27463}#
- #{mod 27464}#)
- (#{build-sequence 4283}#
- #{s 27463}#
+ (if (if (pair? #{x 19217}#) #{s 19219}# #f)
+ (set-source-properties! #{x 19217}# #{s 19219}#))
+ #{x 19217}#)
+ #{w 19218}#
+ #{defmod 19220}#)))
+ (#{expand-sequence 6316}#
+ (lambda (#{body 29469}#
+ #{r 29470}#
+ #{w 29471}#
+ #{s 29472}#
+ #{mod 29473}#)
+ (#{build-sequence 6270}#
+ #{s 29472}#
(letrec*
- ((#{dobody 27544}#
- (lambda (#{body 27894}#
- #{r 27895}#
- #{w 27896}#
- #{mod 27897}#)
- (if (null? #{body 27894}#)
+ ((#{dobody 29553}#
+ (lambda (#{body 29903}#
+ #{r 29904}#
+ #{w 29905}#
+ #{mod 29906}#)
+ (if (null? #{body 29903}#)
'()
- (let ((#{first 27898}#
- (let ((#{e 27902}# (car #{body 27894}#)))
+ (let ((#{first 29907}#
+ (let ((#{e 29911}# (car #{body 29903}#)))
(call-with-values
(lambda ()
- (#{syntax-type 4333}#
- #{e 27902}#
- #{r 27895}#
- #{w 27896}#
- (#{source-annotation 4295}# #{e 27902}#)
+ (#{syntax-type 6320}#
+ #{e 29911}#
+ #{r 29904}#
+ #{w 29905}#
+ (#{source-annotation 6282}# #{e 29911}#)
#f
- #{mod 27897}#
+ #{mod 29906}#
#f))
- (lambda (#{type 27909}#
- #{value 27910}#
- #{e 27911}#
- #{w 27912}#
- #{s 27913}#
- #{mod 27914}#)
- (#{expand-expr 4335}#
- #{type 27909}#
- #{value 27910}#
- #{e 27911}#
- #{r 27895}#
- #{w 27912}#
- #{s 27913}#
- #{mod 27914}#))))))
- (cons #{first 27898}#
- (#{dobody 27544}#
- (cdr #{body 27894}#)
- #{r 27895}#
- #{w 27896}#
- #{mod 27897}#)))))))
- (#{dobody 27544}#
- #{body 27460}#
- #{r 27461}#
- #{w 27462}#
- #{mod 27464}#)))))
- (#{expand-top-sequence 4330}#
- (lambda (#{body 17251}#
- #{r 17252}#
- #{w 17253}#
- #{s 17254}#
- #{m 17255}#
- #{esew 17256}#
- #{mod 17257}#)
+ (lambda (#{type 29918}#
+ #{value 29919}#
+ #{e 29920}#
+ #{w 29921}#
+ #{s 29922}#
+ #{mod 29923}#)
+ (#{expand-expr 6322}#
+ #{type 29918}#
+ #{value 29919}#
+ #{e 29920}#
+ #{r 29904}#
+ #{w 29921}#
+ #{s 29922}#
+ #{mod 29923}#))))))
+ (cons #{first 29907}#
+ (#{dobody 29553}#
+ (cdr #{body 29903}#)
+ #{r 29904}#
+ #{w 29905}#
+ #{mod 29906}#)))))))
+ (#{dobody 29553}#
+ #{body 29469}#
+ #{r 29470}#
+ #{w 29471}#
+ #{mod 29473}#)))))
+ (#{expand-top-sequence 6317}#
+ (lambda (#{body 19238}#
+ #{r 19239}#
+ #{w 19240}#
+ #{s 19241}#
+ #{m 19242}#
+ #{esew 19243}#
+ #{mod 19244}#)
(letrec*
- ((#{scan 17258}#
- (lambda (#{body 17389}#
- #{r 17390}#
- #{w 17391}#
- #{s 17392}#
- #{m 17393}#
- #{esew 17394}#
- #{mod 17395}#
- #{exps 17396}#)
- (if (null? #{body 17389}#)
- #{exps 17396}#
+ ((#{scan 19245}#
+ (lambda (#{body 19376}#
+ #{r 19377}#
+ #{w 19378}#
+ #{s 19379}#
+ #{m 19380}#
+ #{esew 19381}#
+ #{mod 19382}#
+ #{exps 19383}#)
+ (if (null? #{body 19376}#)
+ #{exps 19383}#
(call-with-values
(lambda ()
(call-with-values
(lambda ()
- (let ((#{e 17397}# (car #{body 17389}#)))
- (#{syntax-type 4333}#
- #{e 17397}#
- #{r 17390}#
- #{w 17391}#
- (let ((#{t 17401}#
- (#{source-annotation 4295}# #{e 17397}#)))
- (if #{t 17401}# #{t 17401}# #{s 17392}#))
+ (let ((#{e 19384}# (car #{body 19376}#)))
+ (#{syntax-type 6320}#
+ #{e 19384}#
+ #{r 19377}#
+ #{w 19378}#
+ (let ((#{t 19388}#
+ (#{source-annotation 6282}# #{e 19384}#)))
+ (if #{t 19388}# #{t 19388}# #{s 19379}#))
#f
- #{mod 17395}#
+ #{mod 19382}#
#f)))
- (lambda (#{type 17636}#
- #{value 17637}#
- #{e 17638}#
- #{w 17639}#
- #{s 17640}#
- #{mod 17641}#)
- (if (eqv? #{type 17636}# 'begin-form)
- (let ((#{tmp 17646}#
- ($sc-dispatch #{e 17638}# '(_))))
- (if #{tmp 17646}#
- (@apply (lambda () #{exps 17396}#) #{tmp 17646}#)
- (let ((#{tmp 17650}#
+ (lambda (#{type 19623}#
+ #{value 19624}#
+ #{e 19625}#
+ #{w 19626}#
+ #{s 19627}#
+ #{mod 19628}#)
+ (if (eqv? #{type 19623}# 'begin-form)
+ (let ((#{tmp 19633}#
+ ($sc-dispatch #{e 19625}# '(_))))
+ (if #{tmp 19633}#
+ (@apply (lambda () #{exps 19383}#) #{tmp 19633}#)
+ (let ((#{tmp 19637}#
($sc-dispatch
- #{e 17638}#
+ #{e 19625}#
'(_ any . each-any))))
- (if #{tmp 17650}#
+ (if #{tmp 19637}#
(@apply
- (lambda (#{e1 17654}# #{e2 17655}#)
- (#{scan 17258}#
- (cons #{e1 17654}# #{e2 17655}#)
- #{r 17390}#
- #{w 17639}#
- #{s 17640}#
- #{m 17393}#
- #{esew 17394}#
- #{mod 17641}#
- #{exps 17396}#))
- #{tmp 17650}#)
+ (lambda (#{e1 19641}# #{e2 19642}#)
+ (#{scan 19245}#
+ (cons #{e1 19641}# #{e2 19642}#)
+ #{r 19377}#
+ #{w 19626}#
+ #{s 19627}#
+ #{m 19380}#
+ #{esew 19381}#
+ #{mod 19628}#
+ #{exps 19383}#))
+ #{tmp 19637}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{e 17638}#)))))
- (if (eqv? #{type 17636}# 'local-syntax-form)
- (#{expand-local-syntax 4339}#
- #{value 17637}#
- #{e 17638}#
- #{r 17390}#
- #{w 17639}#
- #{s 17640}#
- #{mod 17641}#
- (lambda (#{body 17670}#
- #{r 17671}#
- #{w 17672}#
- #{s 17673}#
- #{mod 17674}#)
- (#{scan 17258}#
- #{body 17670}#
- #{r 17671}#
- #{w 17672}#
- #{s 17673}#
- #{m 17393}#
- #{esew 17394}#
- #{mod 17674}#
- #{exps 17396}#)))
- (if (eqv? #{type 17636}# 'eval-when-form)
- (let ((#{tmp 17679}#
+ #{e 19625}#)))))
+ (if (eqv? #{type 19623}# 'local-syntax-form)
+ (#{expand-local-syntax 6326}#
+ #{value 19624}#
+ #{e 19625}#
+ #{r 19377}#
+ #{w 19626}#
+ #{s 19627}#
+ #{mod 19628}#
+ (lambda (#{body 19657}#
+ #{r 19658}#
+ #{w 19659}#
+ #{s 19660}#
+ #{mod 19661}#)
+ (#{scan 19245}#
+ #{body 19657}#
+ #{r 19658}#
+ #{w 19659}#
+ #{s 19660}#
+ #{m 19380}#
+ #{esew 19381}#
+ #{mod 19661}#
+ #{exps 19383}#)))
+ (if (eqv? #{type 19623}# 'eval-when-form)
+ (let ((#{tmp 19666}#
($sc-dispatch
- #{e 17638}#
+ #{e 19625}#
'(_ each-any any . each-any))))
- (if #{tmp 17679}#
+ (if #{tmp 19666}#
(@apply
- (lambda (#{x 17683}#
- #{e1 17684}#
- #{e2 17685}#)
- (let ((#{when-list 17686}#
- (#{parse-when-list 4332}#
- #{e 17638}#
- #{x 17683}#))
- (#{body 17687}#
- (cons #{e1 17684}#
- #{e2 17685}#)))
- (if (eq? #{m 17393}# 'e)
- (if (memq 'eval #{when-list 17686}#)
- (#{scan 17258}#
- #{body 17687}#
- #{r 17390}#
- #{w 17639}#
- #{s 17640}#
+ (lambda (#{x 19670}#
+ #{e1 19671}#
+ #{e2 19672}#)
+ (let ((#{when-list 19673}#
+ (#{parse-when-list 6319}#
+ #{e 19625}#
+ #{x 19670}#))
+ (#{body 19674}#
+ (cons #{e1 19671}#
+ #{e2 19672}#)))
+ (if (eq? #{m 19380}# 'e)
+ (if (memq 'eval #{when-list 19673}#)
+ (#{scan 19245}#
+ #{body 19674}#
+ #{r 19377}#
+ #{w 19626}#
+ #{s 19627}#
(if (memq 'expand
- #{when-list 17686}#)
+ #{when-list 19673}#)
'c&e
'e)
'(eval)
- #{mod 17641}#
- #{exps 17396}#)
+ #{mod 19628}#
+ #{exps 19383}#)
(begin
(if (memq 'expand
- #{when-list 17686}#)
- (let ((#{x 17764}#
- (#{expand-top-sequence
4330}#
- #{body 17687}#
- #{r 17390}#
- #{w 17639}#
- #{s 17640}#
+ #{when-list 19673}#)
+ (let ((#{x 19751}#
+ (#{expand-top-sequence
6317}#
+ #{body 19674}#
+ #{r 19377}#
+ #{w 19626}#
+ #{s 19627}#
'e
'(eval)
- #{mod 17641}#)))
+ #{mod 19628}#)))
(primitive-eval
- #{x 17764}#)))
- (values #{exps 17396}#)))
- (if (memq 'load #{when-list 17686}#)
- (if (let ((#{t 17790}#
+ #{x 19751}#)))
+ (values #{exps 19383}#)))
+ (if (memq 'load #{when-list 19673}#)
+ (if (let ((#{t 19777}#
(memq 'compile
- #{when-list
17686}#)))
- (if #{t 17790}#
- #{t 17790}#
- (let ((#{t 17839}#
+ #{when-list
19673}#)))
+ (if #{t 19777}#
+ #{t 19777}#
+ (let ((#{t 19826}#
(memq 'expand
- #{when-list
17686}#)))
- (if #{t 17839}#
- #{t 17839}#
- (if (eq? #{m 17393}#
+ #{when-list
19673}#)))
+ (if #{t 19826}#
+ #{t 19826}#
+ (if (eq? #{m 19380}#
'c&e)
(memq 'eval
- #{when-list
17686}#)
+ #{when-list
19673}#)
#f)))))
- (#{scan 17258}#
- #{body 17687}#
- #{r 17390}#
- #{w 17639}#
- #{s 17640}#
+ (#{scan 19245}#
+ #{body 19674}#
+ #{r 19377}#
+ #{w 19626}#
+ #{s 19627}#
'c&e
'(compile load)
- #{mod 17641}#
- #{exps 17396}#)
- (if (if (eq? #{m 17393}# 'c)
+ #{mod 19628}#
+ #{exps 19383}#)
+ (if (if (eq? #{m 19380}# 'c)
#t
- (eq? #{m 17393}# 'c&e))
- (#{scan 17258}#
- #{body 17687}#
- #{r 17390}#
- #{w 17639}#
- #{s 17640}#
+ (eq? #{m 19380}# 'c&e))
+ (#{scan 19245}#
+ #{body 19674}#
+ #{r 19377}#
+ #{w 19626}#
+ #{s 19627}#
'c
'(load)
- #{mod 17641}#
- #{exps 17396}#)
- (values #{exps 17396}#)))
- (if (let ((#{t 17968}#
+ #{mod 19628}#
+ #{exps 19383}#)
+ (values #{exps 19383}#)))
+ (if (let ((#{t 19955}#
(memq 'compile
- #{when-list
17686}#)))
- (if #{t 17968}#
- #{t 17968}#
- (let ((#{t 18017}#
+ #{when-list
19673}#)))
+ (if #{t 19955}#
+ #{t 19955}#
+ (let ((#{t 20004}#
(memq 'expand
- #{when-list
17686}#)))
- (if #{t 18017}#
- #{t 18017}#
- (if (eq? #{m 17393}#
+ #{when-list
19673}#)))
+ (if #{t 20004}#
+ #{t 20004}#
+ (if (eq? #{m 19380}#
'c&e)
(memq 'eval
- #{when-list
17686}#)
+ #{when-list
19673}#)
#f)))))
(begin
- (let ((#{x 18141}#
- (#{expand-top-sequence
4330}#
- #{body 17687}#
- #{r 17390}#
- #{w 17639}#
- #{s 17640}#
+ (let ((#{x 20128}#
+ (#{expand-top-sequence
6317}#
+ #{body 19674}#
+ #{r 19377}#
+ #{w 19626}#
+ #{s 19627}#
'e
'(eval)
- #{mod 17641}#)))
- (primitive-eval #{x 18141}#))
- (values #{exps 17396}#))
- (values #{exps 17396}#))))))
- #{tmp 17679}#)
+ #{mod 19628}#)))
+ (primitive-eval #{x 20128}#))
+ (values #{exps 19383}#))
+ (values #{exps 19383}#))))))
+ #{tmp 19666}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{e 17638}#)))
- (if (eqv? #{type 17636}# 'define-syntax-form)
- (let ((#{n 18182}#
- (#{id-var-name 4321}#
- #{value 17637}#
- #{w 17639}#))
- (#{r 18183}#
- (#{macros-only-env 4298}#
- #{r 17390}#)))
- (if (eqv? #{m 17393}# 'c)
- (if (memq 'compile #{esew 17394}#)
- (let ((#{e 18187}#
- (#{expand-install-global 4331}#
- #{n 18182}#
- (#{expand 4334}#
- #{e 17638}#
- #{r 18183}#
- #{w 17639}#
- #{mod 17641}#))))
+ #{e 19625}#)))
+ (if (eqv? #{type 19623}# 'define-syntax-form)
+ (let ((#{n 20169}#
+ (#{id-var-name 6308}#
+ #{value 19624}#
+ #{w 19626}#))
+ (#{r 20170}#
+ (#{macros-only-env 6285}#
+ #{r 19377}#)))
+ (if (eqv? #{m 19380}# 'c)
+ (if (memq 'compile #{esew 19381}#)
+ (let ((#{e 20174}#
+ (#{expand-install-global 6318}#
+ #{n 20169}#
+ (#{expand 6321}#
+ #{e 19625}#
+ #{r 20170}#
+ #{w 19626}#
+ #{mod 19628}#))))
(begin
- (#{top-level-eval-hook 4262}#
- #{e 18187}#
- #{mod 17641}#)
- (if (memq 'load #{esew 17394}#)
+ (#{top-level-eval-hook 6249}#
+ #{e 20174}#
+ #{mod 19628}#)
+ (if (memq 'load #{esew 19381}#)
(values
- (cons #{e 18187}#
- #{exps 17396}#))
- (values #{exps 17396}#))))
- (if (memq 'load #{esew 17394}#)
+ (cons #{e 20174}#
+ #{exps 19383}#))
+ (values #{exps 19383}#))))
+ (if (memq 'load #{esew 19381}#)
(values
- (cons (#{expand-install-global 4331}#
- #{n 18182}#
- (#{expand 4334}#
- #{e 17638}#
- #{r 18183}#
- #{w 17639}#
- #{mod 17641}#))
- #{exps 17396}#))
- (values #{exps 17396}#)))
- (if (eqv? #{m 17393}# 'c&e)
- (let ((#{e 18634}#
- (#{expand-install-global 4331}#
- #{n 18182}#
- (#{expand 4334}#
- #{e 17638}#
- #{r 18183}#
- #{w 17639}#
- #{mod 17641}#))))
+ (cons (#{expand-install-global 6318}#
+ #{n 20169}#
+ (#{expand 6321}#
+ #{e 19625}#
+ #{r 20170}#
+ #{w 19626}#
+ #{mod 19628}#))
+ #{exps 19383}#))
+ (values #{exps 19383}#)))
+ (if (eqv? #{m 19380}# 'c&e)
+ (let ((#{e 20621}#
+ (#{expand-install-global 6318}#
+ #{n 20169}#
+ (#{expand 6321}#
+ #{e 19625}#
+ #{r 20170}#
+ #{w 19626}#
+ #{mod 19628}#))))
(begin
- (#{top-level-eval-hook 4262}#
- #{e 18634}#
- #{mod 17641}#)
+ (#{top-level-eval-hook 6249}#
+ #{e 20621}#
+ #{mod 19628}#)
(values
- (cons #{e 18634}#
- #{exps 17396}#))))
+ (cons #{e 20621}#
+ #{exps 19383}#))))
(begin
- (if (memq 'eval #{esew 17394}#)
- (#{top-level-eval-hook 4262}#
- (#{expand-install-global 4331}#
- #{n 18182}#
- (#{expand 4334}#
- #{e 17638}#
- #{r 18183}#
- #{w 17639}#
- #{mod 17641}#))
- #{mod 17641}#))
- (values #{exps 17396}#)))))
- (if (eqv? #{type 17636}# 'define-form)
- (let ((#{n 19269}#
- (#{id-var-name 4321}#
- #{value 17637}#
- #{w 17639}#)))
- (let ((#{type 19270}#
- (car (let ((#{t 20014}#
- (assq #{n 19269}#
- #{r 17390}#)))
- (if #{t 20014}#
- (cdr #{t 20014}#)
- (if (symbol? #{n 19269}#)
- (let ((#{t 20019}#
+ (if (memq 'eval #{esew 19381}#)
+ (#{top-level-eval-hook 6249}#
+ (#{expand-install-global 6318}#
+ #{n 20169}#
+ (#{expand 6321}#
+ #{e 19625}#
+ #{r 20170}#
+ #{w 19626}#
+ #{mod 19628}#))
+ #{mod 19628}#))
+ (values #{exps 19383}#)))))
+ (if (eqv? #{type 19623}# 'define-form)
+ (let ((#{n 21256}#
+ (#{id-var-name 6308}#
+ #{value 19624}#
+ #{w 19626}#)))
+ (let ((#{type 21257}#
+ (car (let ((#{t 22001}#
+ (assq #{n 21256}#
+ #{r 19377}#)))
+ (if #{t 22001}#
+ (cdr #{t 22001}#)
+ (if (symbol? #{n 21256}#)
+ (let ((#{t 22006}#
(begin
- (if (if (not
#{mod 17641}#)
+ (if (if (not
#{mod 19628}#)
(current-module)
#f)
(warn
"module system is booted, we should have a module"
- #{n
19269}#))
- (let ((#{v
20056}#
+ #{n
21256}#))
+ (let ((#{v
22043}#
(module-variable
- (if
#{mod 17641}#
+ (if
#{mod 19628}#
(resolve-module
-
(cdr #{mod 17641}#))
+
(cdr #{mod 19628}#))
(current-module))
- #{n
19269}#)))
- (if #{v
20056}#
+ #{n
21256}#)))
+ (if #{v
22043}#
(if
(variable-bound?
- #{v
20056}#)
- (let
((#{val 20065}#
+ #{v
22043}#)
+ (let
((#{val 22052}#
(variable-ref
-
#{v 20056}#)))
+
#{v 22043}#)))
(if
(macro?
-
#{val 20065}#)
+
#{val 22052}#)
(if
(macro-type
-
#{val 20065}#)
+
#{val 22052}#)
(cons (macro-type
-
#{val 20065}#)
+
#{val 22052}#)
(macro-binding
-
#{val 20065}#))
+
#{val 22052}#))
#f)
#f))
#f)
#f)))))
- (if #{t 20019}#
- #{t 20019}#
+ (if #{t 22006}#
+ #{t 22006}#
'(global)))
'(displaced-lexical)))))))
- (if (let ((#{t 19304}# #{type 19270}#))
- (if (eqv? #{t 19304}# 'global)
+ (if (let ((#{t 21291}# #{type 21257}#))
+ (if (eqv? #{t 21291}# 'global)
#t
- (if (eqv? #{t 19304}# 'core)
+ (if (eqv? #{t 21291}# 'core)
#t
- (if (eqv? #{t 19304}# 'macro)
+ (if (eqv? #{t 21291}# 'macro)
#t
- (eqv? #{t 19304}#
+ (eqv? #{t 21291}#
'module-ref)))))
(begin
- (if (if (if (eq? #{m 17393}# 'c)
+ (if (if (if (eq? #{m 19380}# 'c)
#t
- (eq? #{m 17393}# 'c&e))
+ (eq? #{m 19380}# 'c&e))
(if (not (module-local-variable
(current-module)
- #{n 19269}#))
+ #{n 21256}#))
(current-module)
#f)
#f)
- (let ((#{old 19468}#
+ (let ((#{old 21455}#
(module-variable
(current-module)
- #{n 19269}#)))
- (if (if (variable? #{old 19468}#)
+ #{n 21256}#)))
+ (if (if (variable? #{old 21455}#)
(variable-bound?
- #{old 19468}#)
+ #{old 21455}#)
#f)
(module-define!
(current-module)
- #{n 19269}#
- (variable-ref #{old 19468}#))
+ #{n 21256}#
+ (variable-ref #{old 21455}#))
(module-add!
(current-module)
- #{n 19269}#
+ #{n 21256}#
(make-undefined-variable)))))
(values
- (cons (if (eq? #{m 17393}# 'c&e)
- (let ((#{x 19470}#
-
(#{build-global-definition 4277}#
- #{s 17640}#
- #{n 19269}#
- (#{expand 4334}#
- #{e 17638}#
- #{r 17390}#
- #{w 17639}#
- #{mod
17641}#))))
+ (cons (if (eq? #{m 19380}# 'c&e)
+ (let ((#{x 21457}#
+
(#{build-global-definition 6264}#
+ #{s 19627}#
+ #{n 21256}#
+ (#{expand 6321}#
+ #{e 19625}#
+ #{r 19377}#
+ #{w 19626}#
+ #{mod
19628}#))))
(begin
- (#{top-level-eval-hook
4262}#
- #{x 19470}#
- #{mod 17641}#)
- #{x 19470}#))
+ (#{top-level-eval-hook
6249}#
+ #{x 21457}#
+ #{mod 19628}#)
+ #{x 21457}#))
(lambda ()
-
(#{build-global-definition 4277}#
- #{s 17640}#
- #{n 19269}#
- (#{expand 4334}#
- #{e 17638}#
- #{r 17390}#
- #{w 17639}#
- #{mod 17641}#))))
- #{exps 17396}#)))
- (if (let ((#{t 19941}# #{type 19270}#))
- (eqv? #{t 19941}#
+
(#{build-global-definition 6264}#
+ #{s 19627}#
+ #{n 21256}#
+ (#{expand 6321}#
+ #{e 19625}#
+ #{r 19377}#
+ #{w 19626}#
+ #{mod 19628}#))))
+ #{exps 19383}#)))
+ (if (let ((#{t 21928}# #{type 21257}#))
+ (eqv? #{t 21928}#
'displaced-lexical))
(syntax-violation
#f
"identifier out of context"
- #{e 17638}#
- (#{wrap 4327}#
- #{value 17637}#
- #{w 17639}#
- #{mod 17641}#))
+ #{e 19625}#
+ (#{wrap 6314}#
+ #{value 19624}#
+ #{w 19626}#
+ #{mod 19628}#))
(syntax-violation
#f
"cannot define keyword at top
level"
- #{e 17638}#
- (#{wrap 4327}#
- #{value 17637}#
- #{w 17639}#
- #{mod 17641}#))))))
+ #{e 19625}#
+ (#{wrap 6314}#
+ #{value 19624}#
+ #{w 19626}#
+ #{mod 19628}#))))))
(values
- (cons (if (eq? #{m 17393}# 'c&e)
- (let ((#{x 20076}#
- (#{expand-expr 4335}#
- #{type 17636}#
- #{value 17637}#
- #{e 17638}#
- #{r 17390}#
- #{w 17639}#
- #{s 17640}#
- #{mod 17641}#)))
+ (cons (if (eq? #{m 19380}# 'c&e)
+ (let ((#{x 22063}#
+ (#{expand-expr 6322}#
+ #{type 19623}#
+ #{value 19624}#
+ #{e 19625}#
+ #{r 19377}#
+ #{w 19626}#
+ #{s 19627}#
+ #{mod 19628}#)))
(begin
- (primitive-eval #{x 20076}#)
- #{x 20076}#))
+ (primitive-eval #{x 22063}#)
+ #{x 22063}#))
(lambda ()
- (#{expand-expr 4335}#
- #{type 17636}#
- #{value 17637}#
- #{e 17638}#
- #{r 17390}#
- #{w 17639}#
- #{s 17640}#
- #{mod 17641}#)))
- #{exps 17396}#))))))))))
- (lambda (#{exps 20085}#)
- (#{scan 17258}#
- (cdr #{body 17389}#)
- #{r 17390}#
- #{w 17391}#
- #{s 17392}#
- #{m 17393}#
- #{esew 17394}#
- #{mod 17395}#
- #{exps 20085}#)))))))
+ (#{expand-expr 6322}#
+ #{type 19623}#
+ #{value 19624}#
+ #{e 19625}#
+ #{r 19377}#
+ #{w 19626}#
+ #{s 19627}#
+ #{mod 19628}#)))
+ #{exps 19383}#))))))))))
+ (lambda (#{exps 22072}#)
+ (#{scan 19245}#
+ (cdr #{body 19376}#)
+ #{r 19377}#
+ #{w 19378}#
+ #{s 19379}#
+ #{m 19380}#
+ #{esew 19381}#
+ #{mod 19382}#
+ #{exps 22072}#)))))))
(call-with-values
(lambda ()
- (#{scan 17258}#
- #{body 17251}#
- #{r 17252}#
- #{w 17253}#
- #{s 17254}#
- #{m 17255}#
- #{esew 17256}#
- #{mod 17257}#
+ (#{scan 19245}#
+ #{body 19238}#
+ #{r 19239}#
+ #{w 19240}#
+ #{s 19241}#
+ #{m 19242}#
+ #{esew 19243}#
+ #{mod 19244}#
'()))
- (lambda (#{exps 17261}#)
- (if (null? #{exps 17261}#)
+ (lambda (#{exps 19248}#)
+ (if (null? #{exps 19248}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 0)
- #{s 17254}#)
- (#{build-sequence 4283}#
- #{s 17254}#
+ #{s 19241}#)
+ (#{build-sequence 6270}#
+ #{s 19241}#
(letrec*
- ((#{lp 17301}#
- (lambda (#{in 17385}# #{out 17386}#)
- (if (null? #{in 17385}#)
- #{out 17386}#
- (let ((#{e 17387}# (car #{in 17385}#)))
- (#{lp 17301}#
- (cdr #{in 17385}#)
- (cons (if (procedure? #{e 17387}#)
- (#{e 17387}#)
- #{e 17387}#)
- #{out 17386}#)))))))
- (#{lp 17301}# #{exps 17261}# '())))))))))
- (#{expand-install-global 4331}#
- (lambda (#{name 20086}# #{e 20087}#)
- (let ((#{exp 20093}#
- (let ((#{fun-exp 20103}#
+ ((#{lp 19288}#
+ (lambda (#{in 19372}# #{out 19373}#)
+ (if (null? #{in 19372}#)
+ #{out 19373}#
+ (let ((#{e 19374}# (car #{in 19372}#)))
+ (#{lp 19288}#
+ (cdr #{in 19372}#)
+ (cons (if (procedure? #{e 19374}#)
+ (#{e 19374}#)
+ #{e 19374}#)
+ #{out 19373}#)))))))
+ (#{lp 19288}# #{exps 19248}# '())))))))))
+ (#{expand-install-global 6318}#
+ (lambda (#{name 22073}# #{e 22074}#)
+ (let ((#{exp 22080}#
+ (let ((#{fun-exp 22090}#
(if (equal? (module-name (current-module)) '(guile))
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
@@ -1238,416 +1238,416 @@
'(guile)
'make-syntax-transformer
#f)))
- (#{arg-exps 20104}#
+ (#{arg-exps 22091}#
(list (make-struct/no-tail
(vector-ref %expanded-vtables 1)
#f
- #{name 20086}#)
+ #{name 22073}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 1)
#f
'macro)
- #{e 20087}#)))
+ #{e 22074}#)))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
#f
- #{fun-exp 20103}#
- #{arg-exps 20104}#))))
+ #{fun-exp 22090}#
+ #{arg-exps 22091}#))))
(begin
- (if (if (struct? #{exp 20093}#)
- (eq? (struct-vtable #{exp 20093}#)
+ (if (if (struct? #{exp 22080}#)
+ (eq? (struct-vtable #{exp 22080}#)
(vector-ref %expanded-vtables 13))
#f)
- (let ((#{meta 20145}# (struct-ref #{exp 20093}# 1)))
- (if (not (assq 'name #{meta 20145}#))
- (let ((#{v 20152}#
- (cons (cons 'name #{name 20086}#) #{meta 20145}#)))
- (struct-set! #{exp 20093}# 1 #{v 20152}#)))))
+ (let ((#{meta 22132}# (struct-ref #{exp 22080}# 1)))
+ (if (not (assq 'name #{meta 22132}#))
+ (let ((#{v 22139}#
+ (cons (cons 'name #{name 22073}#) #{meta 22132}#)))
+ (struct-set! #{exp 22080}# 1 #{v 22139}#)))))
(make-struct/no-tail
(vector-ref %expanded-vtables 9)
#f
- #{name 20086}#
- #{exp 20093}#)))))
- (#{parse-when-list 4332}#
- (lambda (#{e 20163}# #{when-list 20164}#)
- (let ((#{result 20165}#
- (#{strip 4347}# #{when-list 20164}# '(()))))
+ #{name 22073}#
+ #{exp 22080}#)))))
+ (#{parse-when-list 6319}#
+ (lambda (#{e 22150}# #{when-list 22151}#)
+ (let ((#{result 22152}#
+ (#{strip 6334}# #{when-list 22151}# '(()))))
(letrec*
- ((#{lp 20166}#
- (lambda (#{l 20220}#)
- (if (null? #{l 20220}#)
- #{result 20165}#
- (if (let ((#{t 20222}# (car #{l 20220}#)))
- (if (eq? #{t 20222}# 'compile)
+ ((#{lp 22153}#
+ (lambda (#{l 22207}#)
+ (if (null? #{l 22207}#)
+ #{result 22152}#
+ (if (let ((#{t 22209}# (car #{l 22207}#)))
+ (if (eq? #{t 22209}# 'compile)
#t
- (if (eq? #{t 20222}# 'load)
+ (if (eq? #{t 22209}# 'load)
#t
- (if (eq? #{t 20222}# 'eval)
+ (if (eq? #{t 22209}# 'eval)
#t
- (eq? #{t 20222}# 'expand)))))
- (#{lp 20166}# (cdr #{l 20220}#))
+ (eq? #{t 22209}# 'expand)))))
+ (#{lp 22153}# (cdr #{l 22207}#))
(syntax-violation
'eval-when
"invalid situation"
- #{e 20163}#
- (car #{l 20220}#)))))))
- (#{lp 20166}# #{result 20165}#)))))
- (#{syntax-type 4333}#
- (lambda (#{e 20224}#
- #{r 20225}#
- #{w 20226}#
- #{s 20227}#
- #{rib 20228}#
- #{mod 20229}#
- #{for-car? 20230}#)
- (if (symbol? #{e 20224}#)
- (let ((#{n 20231}#
- (#{id-var-name 4321}# #{e 20224}# #{w 20226}#)))
- (let ((#{b 20232}#
- (let ((#{t 20807}# (assq #{n 20231}# #{r 20225}#)))
- (if #{t 20807}#
- (cdr #{t 20807}#)
- (if (symbol? #{n 20231}#)
- (let ((#{t 20812}#
+ #{e 22150}#
+ (car #{l 22207}#)))))))
+ (#{lp 22153}# #{result 22152}#)))))
+ (#{syntax-type 6320}#
+ (lambda (#{e 22211}#
+ #{r 22212}#
+ #{w 22213}#
+ #{s 22214}#
+ #{rib 22215}#
+ #{mod 22216}#
+ #{for-car? 22217}#)
+ (if (symbol? #{e 22211}#)
+ (let ((#{n 22218}#
+ (#{id-var-name 6308}# #{e 22211}# #{w 22213}#)))
+ (let ((#{b 22219}#
+ (let ((#{t 22794}# (assq #{n 22218}# #{r 22212}#)))
+ (if #{t 22794}#
+ (cdr #{t 22794}#)
+ (if (symbol? #{n 22218}#)
+ (let ((#{t 22799}#
(begin
- (if (if (not #{mod 20229}#)
+ (if (if (not #{mod 22216}#)
(current-module)
#f)
(warn "module system is booted, we should
have a module"
- #{n 20231}#))
- (let ((#{v 20849}#
+ #{n 22218}#))
+ (let ((#{v 22836}#
(module-variable
- (if #{mod 20229}#
+ (if #{mod 22216}#
(resolve-module
- (cdr #{mod 20229}#))
+ (cdr #{mod 22216}#))
(current-module))
- #{n 20231}#)))
- (if #{v 20849}#
- (if (variable-bound? #{v 20849}#)
- (let ((#{val 20858}#
- (variable-ref #{v 20849}#)))
- (if (macro? #{val 20858}#)
- (if (macro-type #{val 20858}#)
- (cons (macro-type #{val 20858}#)
+ #{n 22218}#)))
+ (if #{v 22836}#
+ (if (variable-bound? #{v 22836}#)
+ (let ((#{val 22845}#
+ (variable-ref #{v 22836}#)))
+ (if (macro? #{val 22845}#)
+ (if (macro-type #{val 22845}#)
+ (cons (macro-type #{val 22845}#)
(macro-binding
- #{val 20858}#))
+ #{val 22845}#))
#f)
#f))
#f)
#f)))))
- (if #{t 20812}# #{t 20812}# '(global)))
+ (if #{t 22799}# #{t 22799}# '(global)))
'(displaced-lexical))))))
- (let ((#{type 20233}# (car #{b 20232}#)))
- (if (let ((#{t 20267}# #{type 20233}#))
- (eqv? #{t 20267}# 'lexical))
+ (let ((#{type 22220}# (car #{b 22219}#)))
+ (if (let ((#{t 22254}# #{type 22220}#))
+ (eqv? #{t 22254}# 'lexical))
(values
- #{type 20233}#
- (cdr #{b 20232}#)
- #{e 20224}#
- #{w 20226}#
- #{s 20227}#
- #{mod 20229}#)
- (if (let ((#{t 20424}# #{type 20233}#))
- (eqv? #{t 20424}# 'global))
+ #{type 22220}#
+ (cdr #{b 22219}#)
+ #{e 22211}#
+ #{w 22213}#
+ #{s 22214}#
+ #{mod 22216}#)
+ (if (let ((#{t 22411}# #{type 22220}#))
+ (eqv? #{t 22411}# 'global))
(values
- #{type 20233}#
- #{n 20231}#
- #{e 20224}#
- #{w 20226}#
- #{s 20227}#
- #{mod 20229}#)
- (if (let ((#{t 20550}# #{type 20233}#))
- (eqv? #{t 20550}# 'macro))
- (if #{for-car? 20230}#
+ #{type 22220}#
+ #{n 22218}#
+ #{e 22211}#
+ #{w 22213}#
+ #{s 22214}#
+ #{mod 22216}#)
+ (if (let ((#{t 22537}# #{type 22220}#))
+ (eqv? #{t 22537}# 'macro))
+ (if #{for-car? 22217}#
(values
- #{type 20233}#
- (cdr #{b 20232}#)
- #{e 20224}#
- #{w 20226}#
- #{s 20227}#
- #{mod 20229}#)
- (#{syntax-type 4333}#
- (#{expand-macro 4337}#
- (cdr #{b 20232}#)
- #{e 20224}#
- #{r 20225}#
- #{w 20226}#
- #{s 20227}#
- #{rib 20228}#
- #{mod 20229}#)
- #{r 20225}#
+ #{type 22220}#
+ (cdr #{b 22219}#)
+ #{e 22211}#
+ #{w 22213}#
+ #{s 22214}#
+ #{mod 22216}#)
+ (#{syntax-type 6320}#
+ (#{expand-macro 6324}#
+ (cdr #{b 22219}#)
+ #{e 22211}#
+ #{r 22212}#
+ #{w 22213}#
+ #{s 22214}#
+ #{rib 22215}#
+ #{mod 22216}#)
+ #{r 22212}#
'(())
- #{s 20227}#
- #{rib 20228}#
- #{mod 20229}#
+ #{s 22214}#
+ #{rib 22215}#
+ #{mod 22216}#
#f))
(values
- #{type 20233}#
- (cdr #{b 20232}#)
- #{e 20224}#
- #{w 20226}#
- #{s 20227}#
- #{mod 20229}#)))))))
- (if (pair? #{e 20224}#)
- (let ((#{first 20869}# (car #{e 20224}#)))
+ #{type 22220}#
+ (cdr #{b 22219}#)
+ #{e 22211}#
+ #{w 22213}#
+ #{s 22214}#
+ #{mod 22216}#)))))))
+ (if (pair? #{e 22211}#)
+ (let ((#{first 22856}# (car #{e 22211}#)))
(call-with-values
(lambda ()
- (#{syntax-type 4333}#
- #{first 20869}#
- #{r 20225}#
- #{w 20226}#
- #{s 20227}#
- #{rib 20228}#
- #{mod 20229}#
+ (#{syntax-type 6320}#
+ #{first 22856}#
+ #{r 22212}#
+ #{w 22213}#
+ #{s 22214}#
+ #{rib 22215}#
+ #{mod 22216}#
#t))
- (lambda (#{ftype 20871}#
- #{fval 20872}#
- #{fe 20873}#
- #{fw 20874}#
- #{fs 20875}#
- #{fmod 20876}#)
- (if (eqv? #{ftype 20871}# 'lexical)
+ (lambda (#{ftype 22858}#
+ #{fval 22859}#
+ #{fe 22860}#
+ #{fw 22861}#
+ #{fs 22862}#
+ #{fmod 22863}#)
+ (if (eqv? #{ftype 22858}# 'lexical)
(values
'lexical-call
- #{fval 20872}#
- #{e 20224}#
- #{w 20226}#
- #{s 20227}#
- #{mod 20229}#)
- (if (eqv? #{ftype 20871}# 'global)
+ #{fval 22859}#
+ #{e 22211}#
+ #{w 22213}#
+ #{s 22214}#
+ #{mod 22216}#)
+ (if (eqv? #{ftype 22858}# 'global)
(values
'global-call
(vector
'syntax-object
- #{fval 20872}#
- #{w 20226}#
- #{fmod 20876}#)
- #{e 20224}#
- #{w 20226}#
- #{s 20227}#
- #{mod 20229}#)
- (if (eqv? #{ftype 20871}# 'macro)
- (#{syntax-type 4333}#
- (#{expand-macro 4337}#
- #{fval 20872}#
- #{e 20224}#
- #{r 20225}#
- #{w 20226}#
- #{s 20227}#
- #{rib 20228}#
- #{mod 20229}#)
- #{r 20225}#
+ #{fval 22859}#
+ #{w 22213}#
+ #{fmod 22863}#)
+ #{e 22211}#
+ #{w 22213}#
+ #{s 22214}#
+ #{mod 22216}#)
+ (if (eqv? #{ftype 22858}# 'macro)
+ (#{syntax-type 6320}#
+ (#{expand-macro 6324}#
+ #{fval 22859}#
+ #{e 22211}#
+ #{r 22212}#
+ #{w 22213}#
+ #{s 22214}#
+ #{rib 22215}#
+ #{mod 22216}#)
+ #{r 22212}#
'(())
- #{s 20227}#
- #{rib 20228}#
- #{mod 20229}#
- #{for-car? 20230}#)
- (if (eqv? #{ftype 20871}# 'module-ref)
+ #{s 22214}#
+ #{rib 22215}#
+ #{mod 22216}#
+ #{for-car? 22217}#)
+ (if (eqv? #{ftype 22858}# 'module-ref)
(call-with-values
(lambda ()
- (#{fval 20872}#
- #{e 20224}#
- #{r 20225}#
- #{w 20226}#))
- (lambda (#{e 20897}#
- #{r 20898}#
- #{w 20899}#
- #{s 20900}#
- #{mod 20901}#)
- (#{syntax-type 4333}#
- #{e 20897}#
- #{r 20898}#
- #{w 20899}#
- #{s 20900}#
- #{rib 20228}#
- #{mod 20901}#
- #{for-car? 20230}#)))
- (if (eqv? #{ftype 20871}# 'core)
+ (#{fval 22859}#
+ #{e 22211}#
+ #{r 22212}#
+ #{w 22213}#))
+ (lambda (#{e 22884}#
+ #{r 22885}#
+ #{w 22886}#
+ #{s 22887}#
+ #{mod 22888}#)
+ (#{syntax-type 6320}#
+ #{e 22884}#
+ #{r 22885}#
+ #{w 22886}#
+ #{s 22887}#
+ #{rib 22215}#
+ #{mod 22888}#
+ #{for-car? 22217}#)))
+ (if (eqv? #{ftype 22858}# 'core)
(values
'core-form
- #{fval 20872}#
- #{e 20224}#
- #{w 20226}#
- #{s 20227}#
- #{mod 20229}#)
- (if (eqv? #{ftype 20871}# 'local-syntax)
+ #{fval 22859}#
+ #{e 22211}#
+ #{w 22213}#
+ #{s 22214}#
+ #{mod 22216}#)
+ (if (eqv? #{ftype 22858}# 'local-syntax)
(values
'local-syntax-form
- #{fval 20872}#
- #{e 20224}#
- #{w 20226}#
- #{s 20227}#
- #{mod 20229}#)
- (if (eqv? #{ftype 20871}# 'begin)
+ #{fval 22859}#
+ #{e 22211}#
+ #{w 22213}#
+ #{s 22214}#
+ #{mod 22216}#)
+ (if (eqv? #{ftype 22858}# 'begin)
(values
'begin-form
#f
- #{e 20224}#
- #{w 20226}#
- #{s 20227}#
- #{mod 20229}#)
- (if (eqv? #{ftype 20871}# 'eval-when)
+ #{e 22211}#
+ #{w 22213}#
+ #{s 22214}#
+ #{mod 22216}#)
+ (if (eqv? #{ftype 22858}# 'eval-when)
(values
'eval-when-form
#f
- #{e 20224}#
- #{w 20226}#
- #{s 20227}#
- #{mod 20229}#)
- (if (eqv? #{ftype 20871}# 'define)
- (let ((#{tmp 20918}#
+ #{e 22211}#
+ #{w 22213}#
+ #{s 22214}#
+ #{mod 22216}#)
+ (if (eqv? #{ftype 22858}# 'define)
+ (let ((#{tmp 22905}#
($sc-dispatch
- #{e 20224}#
+ #{e 22211}#
'(_ any any))))
- (if (if #{tmp 20918}#
+ (if (if #{tmp 22905}#
(@apply
- (lambda (#{name 20922}#
- #{val 20923}#)
- (if (symbol? #{name 20922}#)
+ (lambda (#{name 22909}#
+ #{val 22910}#)
+ (if (symbol? #{name 22909}#)
#t
(if (if (vector?
- #{name 20922}#)
+ #{name 22909}#)
(if (= (vector-length
- #{name 20922}#)
+ #{name 22909}#)
4)
(eq? (vector-ref
- #{name 20922}#
+ #{name 22909}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{name 20922}#
+ #{name 22909}#
1))
#f)))
- #{tmp 20918}#)
+ #{tmp 22905}#)
#f)
(@apply
- (lambda (#{name 20950}# #{val 20951}#)
+ (lambda (#{name 22937}# #{val 22938}#)
(values
'define-form
- #{name 20950}#
- #{val 20951}#
- #{w 20226}#
- #{s 20227}#
- #{mod 20229}#))
- #{tmp 20918}#)
- (let ((#{tmp 20952}#
+ #{name 22937}#
+ #{val 22938}#
+ #{w 22213}#
+ #{s 22214}#
+ #{mod 22216}#))
+ #{tmp 22905}#)
+ (let ((#{tmp 22939}#
($sc-dispatch
- #{e 20224}#
+ #{e 22211}#
'(_ (any . any)
any
.
each-any))))
- (if (if #{tmp 20952}#
+ (if (if #{tmp 22939}#
(@apply
- (lambda (#{name 20956}#
- #{args 20957}#
- #{e1 20958}#
- #{e2 20959}#)
+ (lambda (#{name 22943}#
+ #{args 22944}#
+ #{e1 22945}#
+ #{e2 22946}#)
(if (if (symbol?
- #{name 20956}#)
+ #{name 22943}#)
#t
(if (if (vector?
- #{name
20956}#)
+ #{name
22943}#)
(if (=
(vector-length
- #{name
20956}#)
+ #{name
22943}#)
4)
(eq?
(vector-ref
- #{name
20956}#
+ #{name
22943}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{name 20956}#
+ #{name 22943}#
1))
#f))
- (#{valid-bound-ids? 4324}#
+ (#{valid-bound-ids? 6311}#
(letrec*
- ((#{lvl 21108}#
- (lambda (#{vars
21110}#
- #{ls
21111}#
- #{w
21112}#)
- (if (pair?
#{vars 21110}#)
- (#{lvl 21108}#
- (cdr #{vars
21110}#)
- (cons
(#{wrap 4327}#
- (car
#{vars 21110}#)
- #{w
21112}#
+ ((#{lvl 23095}#
+ (lambda (#{vars
23097}#
+ #{ls
23098}#
+ #{w
23099}#)
+ (if (pair?
#{vars 23097}#)
+ (#{lvl 23095}#
+ (cdr #{vars
23097}#)
+ (cons
(#{wrap 6314}#
+ (car
#{vars 23097}#)
+ #{w
23099}#
#f)
- #{ls
21111}#)
- #{w 21112}#)
+ #{ls
23098}#)
+ #{w 23099}#)
(if (if
(symbol?
-
#{vars 21110}#)
+
#{vars 23097}#)
#t
(if (if
(vector?
-
#{vars 21110}#)
+
#{vars 23097}#)
(if (= (vector-length
-
#{vars 21110}#)
+
#{vars 23097}#)
4)
(eq? (vector-ref
-
#{vars 21110}#
+
#{vars 23097}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
-
#{vars 21110}#
+
#{vars 23097}#
1))
#f))
- (cons
(#{wrap 4327}#
-
#{vars 21110}#
- #{w
21112}#
+ (cons
(#{wrap 6314}#
+
#{vars 23097}#
+ #{w
23099}#
#f)
- #{ls
21111}#)
- (if (null?
#{vars 21110}#)
- #{ls
21111}#
+ #{ls
23098}#)
+ (if (null?
#{vars 23097}#)
+ #{ls
23098}#
(if (if
(vector?
-
#{vars 21110}#)
+
#{vars 23097}#)
(if
(= (vector-length
-
#{vars 21110}#)
+
#{vars 23097}#)
4)
(eq? (vector-ref
-
#{vars 21110}#
+
#{vars 23097}#
0)
'syntax-object)
#f)
#f)
- (#{lvl
21108}#
+ (#{lvl
23095}#
(vector-ref
-
#{vars 21110}#
+
#{vars 23097}#
1)
- #{ls
21111}#
-
(#{join-wraps 4318}#
- #{w
21112}#
+ #{ls
23098}#
+
(#{join-wraps 6305}#
+ #{w
23099}#
(vector-ref
-
#{vars 21110}#
+
#{vars 23097}#
2)))
- (cons
#{vars 21110}#
-
#{ls 21111}#))))))))
- (#{lvl 21108}#
- #{args 20957}#
+ (cons
#{vars 23097}#
+
#{ls 23098}#))))))))
+ (#{lvl 23095}#
+ #{args 22944}#
'()
'(()))))
#f))
- #{tmp 20952}#)
+ #{tmp 22939}#)
#f)
(@apply
- (lambda (#{name 21156}#
- #{args 21157}#
- #{e1 21158}#
- #{e2 21159}#)
+ (lambda (#{name 23143}#
+ #{args 23144}#
+ #{e1 23145}#
+ #{e2 23146}#)
(values
'define-form
- (#{wrap 4327}#
- #{name 21156}#
- #{w 20226}#
- #{mod 20229}#)
- (let ((#{e 21165}#
+ (#{wrap 6314}#
+ #{name 23143}#
+ #{w 22213}#
+ #{mod 22216}#)
+ (let ((#{e 23152}#
(cons '#(syntax-object
lambda
((top)
@@ -1660,10 +1660,10 @@
(top)
(top)
(top))
- #("i1843"
- "i1844"
- "i1845"
-
"i1846"))
+ #("i3830"
+ "i3831"
+ "i3832"
+
"i3833"))
#(ribcage
()
()
@@ -1685,12 +1685,12 @@
(top)
(top)
(top))
- #("i1796"
- "i1797"
- "i1798"
- "i1799"
- "i1800"
-
"i1801"))
+ #("i3783"
+ "i3784"
+ "i3785"
+ "i3786"
+ "i3787"
+
"i3788"))
#(ribcage
()
()
@@ -1698,7 +1698,7 @@
#(ribcage
#(first)
#((top))
-
#("i1788"))
+
#("i3775"))
#(ribcage
()
()
@@ -1726,13 +1726,13 @@
(top)
(top)
(top))
- #("i1760"
- "i1761"
- "i1762"
- "i1763"
- "i1764"
- "i1765"
-
"i1766"))
+ #("i3747"
+ "i3748"
+ "i3749"
+ "i3750"
+ "i3751"
+ "i3752"
+
"i3753"))
#(ribcage
(lambda-var-list
gen-var
@@ -2006,142 +2006,142 @@
(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"))
+ ("i2454"
+ "i2452"
+ "i2450"
+ "i2448"
+ "i2446"
+ "i2444"
+ "i2442"
+ "i2440"
+ "i2438"
+ "i2436"
+ "i2434"
+ "i2432"
+ "i2430"
+ "i2428"
+ "i2426"
+ "i2424"
+ "i2422"
+ "i2420"
+ "i2418"
+ "i2416"
+ "i2414"
+ "i2412"
+ "i2410"
+ "i2408"
+ "i2406"
+ "i2404"
+ "i2402"
+ "i2400"
+ "i2398"
+ "i2396"
+ "i2394"
+ "i2392"
+ "i2390"
+ "i2388"
+ "i2386"
+ "i2385"
+ "i2383"
+ "i2380"
+ "i2379"
+ "i2378"
+ "i2376"
+ "i2375"
+ "i2373"
+ "i2371"
+ "i2369"
+ "i2367"
+ "i2365"
+ "i2363"
+ "i2361"
+ "i2359"
+ "i2356"
+ "i2354"
+ "i2353"
+ "i2351"
+ "i2349"
+ "i2347"
+ "i2345"
+ "i2344"
+ "i2343"
+ "i2342"
+ "i2340"
+ "i2339"
+ "i2336"
+ "i2334"
+ "i2332"
+ "i2330"
+ "i2328"
+ "i2326"
+ "i2324"
+ "i2323"
+ "i2322"
+ "i2320"
+ "i2318"
+ "i2317"
+ "i2314"
+ "i2313"
+ "i2311"
+ "i2309"
+ "i2307"
+ "i2305"
+ "i2303"
+ "i2301"
+ "i2299"
+ "i2297"
+ "i2295"
+ "i2292"
+ "i2290"
+ "i2288"
+ "i2286"
+ "i2284"
+ "i2282"
+ "i2280"
+ "i2278"
+ "i2276"
+ "i2274"
+ "i2272"
+ "i2270"
+ "i2268"
+ "i2266"
+ "i2264"
+ "i2262"
+ "i2260"
+ "i2258"
+ "i2256"
+ "i2254"
+ "i2252"
+ "i2250"
+ "i2248"
+ "i2247"
+ "i2244"
+ "i2242"
+ "i2241"
+ "i2240"
+ "i2239"
+ "i2238"
+ "i2236"
+ "i2234"
+ "i2232"
+ "i2229"
+ "i2227"
+ "i2225"
+ "i2223"
+ "i2221"
+ "i2219"
+ "i2217"
+ "i2215"
+ "i2213"
+ "i2211"
+ "i2209"
+ "i2207"
+ "i2205"
+ "i2203"
+ "i2201"
+ "i2199"
+ "i2197"
+ "i2195"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -2149,72 +2149,72 @@
((top)
(top)
(top))
- ("i46"
- "i45"
- "i44")))
+ ("i2033"
+ "i2032"
+
"i2031")))
(hygiene
guile))
- (#{wrap 4327}#
- (cons #{args
21157}#
- (cons
#{e1 21158}#
-
#{e2 21159}#))
- #{w 20226}#
- #{mod
20229}#))))
+ (#{wrap 6314}#
+ (cons #{args
23144}#
+ (cons
#{e1 23145}#
+
#{e2 23146}#))
+ #{w 22213}#
+ #{mod
22216}#))))
(begin
- (if (if (pair? #{e
21165}#)
- #{s 20227}#
+ (if (if (pair? #{e
23152}#)
+ #{s 22214}#
#f)
(set-source-properties!
- #{e 21165}#
- #{s 20227}#))
- #{e 21165}#))
+ #{e 23152}#
+ #{s 22214}#))
+ #{e 23152}#))
'(())
- #{s 20227}#
- #{mod 20229}#))
- #{tmp 20952}#)
- (let ((#{tmp 21172}#
+ #{s 22214}#
+ #{mod 22216}#))
+ #{tmp 22939}#)
+ (let ((#{tmp 23159}#
($sc-dispatch
- #{e 20224}#
+ #{e 22211}#
'(_ any))))
- (if (if #{tmp 21172}#
+ (if (if #{tmp 23159}#
(@apply
- (lambda (#{name 21176}#)
+ (lambda (#{name 23163}#)
(if (symbol?
- #{name 21176}#)
+ #{name 23163}#)
#t
(if (if (vector?
- #{name
21176}#)
+ #{name
23163}#)
(if (=
(vector-length
- #{name
21176}#)
+ #{name
23163}#)
4)
(eq?
(vector-ref
- #{name
21176}#
+ #{name
23163}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{name 21176}#
+ #{name 23163}#
1))
#f)))
- #{tmp 21172}#)
+ #{tmp 23159}#)
#f)
(@apply
- (lambda (#{name 21203}#)
+ (lambda (#{name 23190}#)
(values
'define-form
- (#{wrap 4327}#
- #{name 21203}#
- #{w 20226}#
- #{mod 20229}#)
+ (#{wrap 6314}#
+ #{name 23190}#
+ #{w 22213}#
+ #{mod 22216}#)
'(#(syntax-object
if
((top)
#(ribcage
#(name)
#((top))
- #("i1856"))
+ #("i3843"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
@@ -2230,17 +2230,17 @@
(top)
(top)
(top))
- #("i1796"
- "i1797"
- "i1798"
- "i1799"
- "i1800"
- "i1801"))
+ #("i3783"
+ "i3784"
+ "i3785"
+ "i3786"
+ "i3787"
+ "i3788"))
#(ribcage () () ())
#(ribcage
#(first)
#((top))
- #("i1788"))
+ #("i3775"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage () () ())
@@ -2259,13 +2259,13 @@
(top)
(top)
(top))
- #("i1760"
- "i1761"
- "i1762"
- "i1763"
- "i1764"
- "i1765"
- "i1766"))
+ #("i3747"
+ "i3748"
+ "i3749"
+ "i3750"
+ "i3751"
+ "i3752"
+ "i3753"))
#(ribcage
(lambda-var-list
gen-var
@@ -2539,150 +2539,150 @@
(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"))
+ ("i2454"
+ "i2452"
+ "i2450"
+ "i2448"
+ "i2446"
+ "i2444"
+ "i2442"
+ "i2440"
+ "i2438"
+ "i2436"
+ "i2434"
+ "i2432"
+ "i2430"
+ "i2428"
+ "i2426"
+ "i2424"
+ "i2422"
+ "i2420"
+ "i2418"
+ "i2416"
+ "i2414"
+ "i2412"
+ "i2410"
+ "i2408"
+ "i2406"
+ "i2404"
+ "i2402"
+ "i2400"
+ "i2398"
+ "i2396"
+ "i2394"
+ "i2392"
+ "i2390"
+ "i2388"
+ "i2386"
+ "i2385"
+ "i2383"
+ "i2380"
+ "i2379"
+ "i2378"
+ "i2376"
+ "i2375"
+ "i2373"
+ "i2371"
+ "i2369"
+ "i2367"
+ "i2365"
+ "i2363"
+ "i2361"
+ "i2359"
+ "i2356"
+ "i2354"
+ "i2353"
+ "i2351"
+ "i2349"
+ "i2347"
+ "i2345"
+ "i2344"
+ "i2343"
+ "i2342"
+ "i2340"
+ "i2339"
+ "i2336"
+ "i2334"
+ "i2332"
+ "i2330"
+ "i2328"
+ "i2326"
+ "i2324"
+ "i2323"
+ "i2322"
+ "i2320"
+ "i2318"
+ "i2317"
+ "i2314"
+ "i2313"
+ "i2311"
+ "i2309"
+ "i2307"
+ "i2305"
+ "i2303"
+ "i2301"
+ "i2299"
+ "i2297"
+ "i2295"
+ "i2292"
+ "i2290"
+ "i2288"
+ "i2286"
+ "i2284"
+ "i2282"
+ "i2280"
+ "i2278"
+ "i2276"
+ "i2274"
+ "i2272"
+ "i2270"
+ "i2268"
+ "i2266"
+ "i2264"
+ "i2262"
+ "i2260"
+ "i2258"
+ "i2256"
+ "i2254"
+ "i2252"
+ "i2250"
+ "i2248"
+ "i2247"
+ "i2244"
+ "i2242"
+ "i2241"
+ "i2240"
+ "i2239"
+ "i2238"
+ "i2236"
+ "i2234"
+ "i2232"
+ "i2229"
+ "i2227"
+ "i2225"
+ "i2223"
+ "i2221"
+ "i2219"
+ "i2217"
+ "i2215"
+ "i2213"
+ "i2211"
+ "i2209"
+ "i2207"
+ "i2205"
+ "i2203"
+ "i2201"
+ "i2199"
+ "i2197"
+ "i2195"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i46"
- "i45"
- "i44")))
+ ("i2033"
+ "i2032"
+ "i2031")))
(hygiene guile))
#(syntax-object
#f
@@ -2690,7 +2690,7 @@
#(ribcage
#(name)
#((top))
- #("i1856"))
+ #("i3843"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
@@ -2706,17 +2706,17 @@
(top)
(top)
(top))
- #("i1796"
- "i1797"
- "i1798"
- "i1799"
- "i1800"
- "i1801"))
+ #("i3783"
+ "i3784"
+ "i3785"
+ "i3786"
+ "i3787"
+ "i3788"))
#(ribcage () () ())
#(ribcage
#(first)
#((top))
- #("i1788"))
+ #("i3775"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage () () ())
@@ -2735,13 +2735,13 @@
(top)
(top)
(top))
- #("i1760"
- "i1761"
- "i1762"
- "i1763"
- "i1764"
- "i1765"
- "i1766"))
+ #("i3747"
+ "i3748"
+ "i3749"
+ "i3750"
+ "i3751"
+ "i3752"
+ "i3753"))
#(ribcage
(lambda-var-list
gen-var
@@ -3015,150 +3015,150 @@
(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"))
+ ("i2454"
+ "i2452"
+ "i2450"
+ "i2448"
+ "i2446"
+ "i2444"
+ "i2442"
+ "i2440"
+ "i2438"
+ "i2436"
+ "i2434"
+ "i2432"
+ "i2430"
+ "i2428"
+ "i2426"
+ "i2424"
+ "i2422"
+ "i2420"
+ "i2418"
+ "i2416"
+ "i2414"
+ "i2412"
+ "i2410"
+ "i2408"
+ "i2406"
+ "i2404"
+ "i2402"
+ "i2400"
+ "i2398"
+ "i2396"
+ "i2394"
+ "i2392"
+ "i2390"
+ "i2388"
+ "i2386"
+ "i2385"
+ "i2383"
+ "i2380"
+ "i2379"
+ "i2378"
+ "i2376"
+ "i2375"
+ "i2373"
+ "i2371"
+ "i2369"
+ "i2367"
+ "i2365"
+ "i2363"
+ "i2361"
+ "i2359"
+ "i2356"
+ "i2354"
+ "i2353"
+ "i2351"
+ "i2349"
+ "i2347"
+ "i2345"
+ "i2344"
+ "i2343"
+ "i2342"
+ "i2340"
+ "i2339"
+ "i2336"
+ "i2334"
+ "i2332"
+ "i2330"
+ "i2328"
+ "i2326"
+ "i2324"
+ "i2323"
+ "i2322"
+ "i2320"
+ "i2318"
+ "i2317"
+ "i2314"
+ "i2313"
+ "i2311"
+ "i2309"
+ "i2307"
+ "i2305"
+ "i2303"
+ "i2301"
+ "i2299"
+ "i2297"
+ "i2295"
+ "i2292"
+ "i2290"
+ "i2288"
+ "i2286"
+ "i2284"
+ "i2282"
+ "i2280"
+ "i2278"
+ "i2276"
+ "i2274"
+ "i2272"
+ "i2270"
+ "i2268"
+ "i2266"
+ "i2264"
+ "i2262"
+ "i2260"
+ "i2258"
+ "i2256"
+ "i2254"
+ "i2252"
+ "i2250"
+ "i2248"
+ "i2247"
+ "i2244"
+ "i2242"
+ "i2241"
+ "i2240"
+ "i2239"
+ "i2238"
+ "i2236"
+ "i2234"
+ "i2232"
+ "i2229"
+ "i2227"
+ "i2225"
+ "i2223"
+ "i2221"
+ "i2219"
+ "i2217"
+ "i2215"
+ "i2213"
+ "i2211"
+ "i2209"
+ "i2207"
+ "i2205"
+ "i2203"
+ "i2201"
+ "i2199"
+ "i2197"
+ "i2195"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i46"
- "i45"
- "i44")))
+ ("i2033"
+ "i2032"
+ "i2031")))
(hygiene guile))
#(syntax-object
#f
@@ -3166,7 +3166,7 @@
#(ribcage
#(name)
#((top))
- #("i1856"))
+ #("i3843"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
@@ -3182,17 +3182,17 @@
(top)
(top)
(top))
- #("i1796"
- "i1797"
- "i1798"
- "i1799"
- "i1800"
- "i1801"))
+ #("i3783"
+ "i3784"
+ "i3785"
+ "i3786"
+ "i3787"
+ "i3788"))
#(ribcage () () ())
#(ribcage
#(first)
#((top))
- #("i1788"))
+ #("i3775"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage () () ())
@@ -3211,13 +3211,13 @@
(top)
(top)
(top))
- #("i1760"
- "i1761"
- "i1762"
- "i1763"
- "i1764"
- "i1765"
- "i1766"))
+ #("i3747"
+ "i3748"
+ "i3749"
+ "i3750"
+ "i3751"
+ "i3752"
+ "i3753"))
#(ribcage
(lambda-var-list
gen-var
@@ -3491,1207 +3491,1222 @@
(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"))
+ ("i2454"
+ "i2452"
+ "i2450"
+ "i2448"
+ "i2446"
+ "i2444"
+ "i2442"
+ "i2440"
+ "i2438"
+ "i2436"
+ "i2434"
+ "i2432"
+ "i2430"
+ "i2428"
+ "i2426"
+ "i2424"
+ "i2422"
+ "i2420"
+ "i2418"
+ "i2416"
+ "i2414"
+ "i2412"
+ "i2410"
+ "i2408"
+ "i2406"
+ "i2404"
+ "i2402"
+ "i2400"
+ "i2398"
+ "i2396"
+ "i2394"
+ "i2392"
+ "i2390"
+ "i2388"
+ "i2386"
+ "i2385"
+ "i2383"
+ "i2380"
+ "i2379"
+ "i2378"
+ "i2376"
+ "i2375"
+ "i2373"
+ "i2371"
+ "i2369"
+ "i2367"
+ "i2365"
+ "i2363"
+ "i2361"
+ "i2359"
+ "i2356"
+ "i2354"
+ "i2353"
+ "i2351"
+ "i2349"
+ "i2347"
+ "i2345"
+ "i2344"
+ "i2343"
+ "i2342"
+ "i2340"
+ "i2339"
+ "i2336"
+ "i2334"
+ "i2332"
+ "i2330"
+ "i2328"
+ "i2326"
+ "i2324"
+ "i2323"
+ "i2322"
+ "i2320"
+ "i2318"
+ "i2317"
+ "i2314"
+ "i2313"
+ "i2311"
+ "i2309"
+ "i2307"
+ "i2305"
+ "i2303"
+ "i2301"
+ "i2299"
+ "i2297"
+ "i2295"
+ "i2292"
+ "i2290"
+ "i2288"
+ "i2286"
+ "i2284"
+ "i2282"
+ "i2280"
+ "i2278"
+ "i2276"
+ "i2274"
+ "i2272"
+ "i2270"
+ "i2268"
+ "i2266"
+ "i2264"
+ "i2262"
+ "i2260"
+ "i2258"
+ "i2256"
+ "i2254"
+ "i2252"
+ "i2250"
+ "i2248"
+ "i2247"
+ "i2244"
+ "i2242"
+ "i2241"
+ "i2240"
+ "i2239"
+ "i2238"
+ "i2236"
+ "i2234"
+ "i2232"
+ "i2229"
+ "i2227"
+ "i2225"
+ "i2223"
+ "i2221"
+ "i2219"
+ "i2217"
+ "i2215"
+ "i2213"
+ "i2211"
+ "i2209"
+ "i2207"
+ "i2205"
+ "i2203"
+ "i2201"
+ "i2199"
+ "i2197"
+ "i2195"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i46"
- "i45"
- "i44")))
+ ("i2033"
+ "i2032"
+ "i2031")))
(hygiene guile)))
'(())
- #{s 20227}#
- #{mod 20229}#))
- #{tmp 21172}#)
+ #{s 22214}#
+ #{mod 22216}#))
+ #{tmp 23159}#)
(syntax-violation
#f
"source expression failed to
match any pattern"
- #{e 20224}#)))))))
- (if (eqv? #{ftype 20871}# 'define-syntax)
- (let ((#{tmp 21222}#
+ #{e 22211}#)))))))
+ (if (eqv? #{ftype 22858}# 'define-syntax)
+ (let ((#{tmp 23209}#
($sc-dispatch
- #{e 20224}#
+ #{e 22211}#
'(_ any any))))
- (if (if #{tmp 21222}#
+ (if (if #{tmp 23209}#
(@apply
- (lambda (#{name 21226}#
- #{val 21227}#)
- (if (symbol? #{name 21226}#)
+ (lambda (#{name 23213}#
+ #{val 23214}#)
+ (if (symbol? #{name 23213}#)
#t
(if (if (vector?
- #{name 21226}#)
+ #{name 23213}#)
(if (= (vector-length
- #{name
21226}#)
+ #{name
23213}#)
4)
(eq? (vector-ref
- #{name
21226}#
+ #{name
23213}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{name 21226}#
+ #{name 23213}#
1))
#f)))
- #{tmp 21222}#)
+ #{tmp 23209}#)
#f)
(@apply
- (lambda (#{name 21254}#
- #{val 21255}#)
+ (lambda (#{name 23241}#
+ #{val 23242}#)
(values
'define-syntax-form
- #{name 21254}#
- #{val 21255}#
- #{w 20226}#
- #{s 20227}#
- #{mod 20229}#))
- #{tmp 21222}#)
+ #{name 23241}#
+ #{val 23242}#
+ #{w 22213}#
+ #{s 22214}#
+ #{mod 22216}#))
+ #{tmp 23209}#)
(syntax-violation
#f
"source expression failed to match
any pattern"
- #{e 20224}#)))
+ #{e 22211}#)))
(values
'call
#f
- #{e 20224}#
- #{w 20226}#
- #{s 20227}#
- #{mod 20229}#))))))))))))))
- (if (if (vector? #{e 20224}#)
- (if (= (vector-length #{e 20224}#) 4)
- (eq? (vector-ref #{e 20224}# 0) 'syntax-object)
+ #{e 22211}#
+ #{w 22213}#
+ #{s 22214}#
+ #{mod 22216}#))))))))))))))
+ (if (if (vector? #{e 22211}#)
+ (if (= (vector-length #{e 22211}#) 4)
+ (eq? (vector-ref #{e 22211}# 0) 'syntax-object)
#f)
#f)
- (#{syntax-type 4333}#
- (vector-ref #{e 20224}# 1)
- #{r 20225}#
- (#{join-wraps 4318}#
- #{w 20226}#
- (vector-ref #{e 20224}# 2))
- (let ((#{t 21282}#
- (#{source-annotation 4295}# #{e 20224}#)))
- (if #{t 21282}# #{t 21282}# #{s 20227}#))
- #{rib 20228}#
- (let ((#{t 21517}# (vector-ref #{e 20224}# 3)))
- (if #{t 21517}# #{t 21517}# #{mod 20229}#))
- #{for-car? 20230}#)
- (if (self-evaluating? #{e 20224}#)
+ (#{syntax-type 6320}#
+ (vector-ref #{e 22211}# 1)
+ #{r 22212}#
+ (#{join-wraps 6305}#
+ #{w 22213}#
+ (vector-ref #{e 22211}# 2))
+ (let ((#{t 23269}#
+ (#{source-annotation 6282}# #{e 22211}#)))
+ (if #{t 23269}# #{t 23269}# #{s 22214}#))
+ #{rib 22215}#
+ (let ((#{t 23504}# (vector-ref #{e 22211}# 3)))
+ (if #{t 23504}# #{t 23504}# #{mod 22216}#))
+ #{for-car? 22217}#)
+ (if (self-evaluating? #{e 22211}#)
(values
'constant
#f
- #{e 20224}#
- #{w 20226}#
- #{s 20227}#
- #{mod 20229}#)
+ #{e 22211}#
+ #{w 22213}#
+ #{s 22214}#
+ #{mod 22216}#)
(values
'other
#f
- #{e 20224}#
- #{w 20226}#
- #{s 20227}#
- #{mod 20229}#)))))))
- (#{expand 4334}#
- (lambda (#{e 21526}#
- #{r 21527}#
- #{w 21528}#
- #{mod 21529}#)
+ #{e 22211}#
+ #{w 22213}#
+ #{s 22214}#
+ #{mod 22216}#)))))))
+ (#{expand 6321}#
+ (lambda (#{e 23513}#
+ #{r 23514}#
+ #{w 23515}#
+ #{mod 23516}#)
(call-with-values
(lambda ()
- (#{syntax-type 4333}#
- #{e 21526}#
- #{r 21527}#
- #{w 21528}#
- (#{source-annotation 4295}# #{e 21526}#)
+ (#{syntax-type 6320}#
+ #{e 23513}#
+ #{r 23514}#
+ #{w 23515}#
+ (#{source-annotation 6282}# #{e 23513}#)
#f
- #{mod 21529}#
+ #{mod 23516}#
#f))
- (lambda (#{type 21684}#
- #{value 21685}#
- #{e 21686}#
- #{w 21687}#
- #{s 21688}#
- #{mod 21689}#)
- (#{expand-expr 4335}#
- #{type 21684}#
- #{value 21685}#
- #{e 21686}#
- #{r 21527}#
- #{w 21687}#
- #{s 21688}#
- #{mod 21689}#)))))
- (#{expand-expr 4335}#
- (lambda (#{type 21692}#
- #{value 21693}#
- #{e 21694}#
- #{r 21695}#
- #{w 21696}#
- #{s 21697}#
- #{mod 21698}#)
- (if (eqv? #{type 21692}# 'lexical)
+ (lambda (#{type 23671}#
+ #{value 23672}#
+ #{e 23673}#
+ #{w 23674}#
+ #{s 23675}#
+ #{mod 23676}#)
+ (#{expand-expr 6322}#
+ #{type 23671}#
+ #{value 23672}#
+ #{e 23673}#
+ #{r 23514}#
+ #{w 23674}#
+ #{s 23675}#
+ #{mod 23676}#)))))
+ (#{expand-expr 6322}#
+ (lambda (#{type 23679}#
+ #{value 23680}#
+ #{e 23681}#
+ #{r 23682}#
+ #{w 23683}#
+ #{s 23684}#
+ #{mod 23685}#)
+ (if (eqv? #{type 23679}# 'lexical)
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
- #{s 21697}#
- #{e 21694}#
- #{value 21693}#)
- (if (if (eqv? #{type 21692}# 'core)
+ #{s 23684}#
+ #{e 23681}#
+ #{value 23680}#)
+ (if (if (eqv? #{type 23679}# 'core)
#t
- (eqv? #{type 21692}# 'core-form))
- (#{value 21693}#
- #{e 21694}#
- #{r 21695}#
- #{w 21696}#
- #{s 21697}#
- #{mod 21698}#)
- (if (eqv? #{type 21692}# 'module-ref)
+ (eqv? #{type 23679}# 'core-form))
+ (#{value 23680}#
+ #{e 23681}#
+ #{r 23682}#
+ #{w 23683}#
+ #{s 23684}#
+ #{mod 23685}#)
+ (if (eqv? #{type 23679}# 'module-ref)
(call-with-values
(lambda ()
- (#{value 21693}#
- #{e 21694}#
- #{r 21695}#
- #{w 21696}#))
- (lambda (#{e 21724}#
- #{r 21725}#
- #{w 21726}#
- #{s 21727}#
- #{mod 21728}#)
- (#{expand 4334}#
- #{e 21724}#
- #{r 21725}#
- #{w 21726}#
- #{mod 21728}#)))
- (if (eqv? #{type 21692}# 'lexical-call)
- (#{expand-application 4336}#
- (let ((#{id 21803}# (car #{e 21694}#)))
- (#{build-lexical-reference 4272}#
+ (#{value 23680}#
+ #{e 23681}#
+ #{r 23682}#
+ #{w 23683}#))
+ (lambda (#{e 23711}#
+ #{r 23712}#
+ #{w 23713}#
+ #{s 23714}#
+ #{mod 23715}#)
+ (#{expand 6321}#
+ #{e 23711}#
+ #{r 23712}#
+ #{w 23713}#
+ #{mod 23715}#)))
+ (if (eqv? #{type 23679}# 'lexical-call)
+ (#{expand-application 6323}#
+ (let ((#{id 23790}# (car #{e 23681}#)))
+ (#{build-lexical-reference 6259}#
'fun
- (#{source-annotation 4295}# #{id 21803}#)
- (if (if (vector? #{id 21803}#)
- (if (= (vector-length #{id 21803}#) 4)
- (eq? (vector-ref #{id 21803}# 0) 'syntax-object)
+ (#{source-annotation 6282}# #{id 23790}#)
+ (if (if (vector? #{id 23790}#)
+ (if (= (vector-length #{id 23790}#) 4)
+ (eq? (vector-ref #{id 23790}# 0) 'syntax-object)
#f)
#f)
- (syntax->datum #{id 21803}#)
- #{id 21803}#)
- #{value 21693}#))
- #{e 21694}#
- #{r 21695}#
- #{w 21696}#
- #{s 21697}#
- #{mod 21698}#)
- (if (eqv? #{type 21692}# 'global-call)
- (#{expand-application 4336}#
- (#{build-global-reference 4275}#
- (#{source-annotation 4295}# (car #{e 21694}#))
- (if (if (vector? #{value 21693}#)
- (if (= (vector-length #{value 21693}#) 4)
- (eq? (vector-ref #{value 21693}# 0)
+ (syntax->datum #{id 23790}#)
+ #{id 23790}#)
+ #{value 23680}#))
+ #{e 23681}#
+ #{r 23682}#
+ #{w 23683}#
+ #{s 23684}#
+ #{mod 23685}#)
+ (if (eqv? #{type 23679}# 'global-call)
+ (#{expand-application 6323}#
+ (#{build-global-reference 6262}#
+ (#{source-annotation 6282}# (car #{e 23681}#))
+ (if (if (vector? #{value 23680}#)
+ (if (= (vector-length #{value 23680}#) 4)
+ (eq? (vector-ref #{value 23680}# 0)
'syntax-object)
#f)
#f)
- (vector-ref #{value 21693}# 1)
- #{value 21693}#)
- (if (if (vector? #{value 21693}#)
- (if (= (vector-length #{value 21693}#) 4)
- (eq? (vector-ref #{value 21693}# 0)
+ (vector-ref #{value 23680}# 1)
+ #{value 23680}#)
+ (if (if (vector? #{value 23680}#)
+ (if (= (vector-length #{value 23680}#) 4)
+ (eq? (vector-ref #{value 23680}# 0)
'syntax-object)
#f)
#f)
- (vector-ref #{value 21693}# 3)
- #{mod 21698}#))
- #{e 21694}#
- #{r 21695}#
- #{w 21696}#
- #{s 21697}#
- #{mod 21698}#)
- (if (eqv? #{type 21692}# 'constant)
- (let ((#{exp 22140}#
- (#{strip 4347}#
- (#{wrap 4327}#
+ (vector-ref #{value 23680}# 3)
+ #{mod 23685}#))
+ #{e 23681}#
+ #{r 23682}#
+ #{w 23683}#
+ #{s 23684}#
+ #{mod 23685}#)
+ (if (eqv? #{type 23679}# 'constant)
+ (let ((#{exp 24127}#
+ (#{strip 6334}#
+ (#{wrap 6314}#
(begin
- (if (if (pair? #{e 21694}#) #{s 21697}# #f)
+ (if (if (pair? #{e 23681}#) #{s 23684}# #f)
(set-source-properties!
- #{e 21694}#
- #{s 21697}#))
- #{e 21694}#)
- #{w 21696}#
- #{mod 21698}#)
+ #{e 23681}#
+ #{s 23684}#))
+ #{e 23681}#)
+ #{w 23683}#
+ #{mod 23685}#)
'(()))))
(make-struct/no-tail
(vector-ref %expanded-vtables 1)
- #{s 21697}#
- #{exp 22140}#))
- (if (eqv? #{type 21692}# 'global)
- (#{analyze-variable 4274}#
- #{mod 21698}#
- #{value 21693}#
- (lambda (#{mod 22176}# #{var 22177}# #{public? 22178}#)
+ #{s 23684}#
+ #{exp 24127}#))
+ (if (eqv? #{type 23679}# 'global)
+ (#{analyze-variable 6261}#
+ #{mod 23685}#
+ #{value 23680}#
+ (lambda (#{mod 24163}# #{var 24164}# #{public? 24165}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 5)
- #{s 21697}#
- #{mod 22176}#
- #{var 22177}#
- #{public? 22178}#))
- (lambda (#{var 22187}#)
+ #{s 23684}#
+ #{mod 24163}#
+ #{var 24164}#
+ #{public? 24165}#))
+ (lambda (#{var 24174}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
- #{s 21697}#
- #{var 22187}#)))
- (if (eqv? #{type 21692}# 'call)
- (#{expand-application 4336}#
- (#{expand 4334}#
- (car #{e 21694}#)
- #{r 21695}#
- #{w 21696}#
- #{mod 21698}#)
- #{e 21694}#
- #{r 21695}#
- #{w 21696}#
- #{s 21697}#
- #{mod 21698}#)
- (if (eqv? #{type 21692}# 'begin-form)
- (let ((#{tmp 22262}#
+ #{s 23684}#
+ #{var 24174}#)))
+ (if (eqv? #{type 23679}# 'call)
+ (#{expand-application 6323}#
+ (#{expand 6321}#
+ (car #{e 23681}#)
+ #{r 23682}#
+ #{w 23683}#
+ #{mod 23685}#)
+ #{e 23681}#
+ #{r 23682}#
+ #{w 23683}#
+ #{s 23684}#
+ #{mod 23685}#)
+ (if (eqv? #{type 23679}# 'begin-form)
+ (let ((#{tmp 24249}#
($sc-dispatch
- #{e 21694}#
+ #{e 23681}#
'(_ any . each-any))))
- (if #{tmp 22262}#
+ (if #{tmp 24249}#
(@apply
- (lambda (#{e1 22266}# #{e2 22267}#)
- (#{expand-sequence 4329}#
- (cons #{e1 22266}# #{e2 22267}#)
- #{r 21695}#
- #{w 21696}#
- #{s 21697}#
- #{mod 21698}#))
- #{tmp 22262}#)
- (let ((#{tmp 22354}#
- ($sc-dispatch #{e 21694}# '(_))))
- (if #{tmp 22354}#
+ (lambda (#{e1 24253}# #{e2 24254}#)
+ (#{expand-sequence 6316}#
+ (cons #{e1 24253}# #{e2 24254}#)
+ #{r 23682}#
+ #{w 23683}#
+ #{s 23684}#
+ #{mod 23685}#))
+ #{tmp 24249}#)
+ (let ((#{tmp 24341}#
+ ($sc-dispatch #{e 23681}# '(_))))
+ (if #{tmp 24341}#
(@apply
(lambda ()
- (begin
- (issue-deprecation-warning
- "Sequences of zero expressions are
deprecated. Use *unspecified*.")
- (make-struct/no-tail
- (vector-ref %expanded-vtables 0)
- #f)))
- #{tmp 22354}#)
+ (if (include-deprecated-features)
+ (begin
+ (issue-deprecation-warning
+ "Sequences of zero expressions are
deprecated. Use *unspecified*.")
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 0)
+ #f))
+ (syntax-violation
+ #f
+ "sequence of zero expressions"
+ (#{wrap 6314}#
+ (begin
+ (if (if (pair? #{e 23681}#)
+ #{s 23684}#
+ #f)
+ (set-source-properties!
+ #{e 23681}#
+ #{s 23684}#))
+ #{e 23681}#)
+ #{w 23683}#
+ #{mod 23685}#))))
+ #{tmp 24341}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{e 21694}#)))))
- (if (eqv? #{type 21692}# 'local-syntax-form)
- (#{expand-local-syntax 4339}#
- #{value 21693}#
- #{e 21694}#
- #{r 21695}#
- #{w 21696}#
- #{s 21697}#
- #{mod 21698}#
- #{expand-sequence 4329}#)
- (if (eqv? #{type 21692}# 'eval-when-form)
- (let ((#{tmp 22443}#
+ #{e 23681}#)))))
+ (if (eqv? #{type 23679}# 'local-syntax-form)
+ (#{expand-local-syntax 6326}#
+ #{value 23680}#
+ #{e 23681}#
+ #{r 23682}#
+ #{w 23683}#
+ #{s 23684}#
+ #{mod 23685}#
+ #{expand-sequence 6316}#)
+ (if (eqv? #{type 23679}# 'eval-when-form)
+ (let ((#{tmp 24452}#
($sc-dispatch
- #{e 21694}#
+ #{e 23681}#
'(_ each-any any . each-any))))
- (if #{tmp 22443}#
+ (if #{tmp 24452}#
(@apply
- (lambda (#{x 22447}#
- #{e1 22448}#
- #{e2 22449}#)
- (let ((#{when-list 22450}#
- (#{parse-when-list 4332}#
- #{e 21694}#
- #{x 22447}#)))
- (if (memq 'eval #{when-list 22450}#)
- (#{expand-sequence 4329}#
- (cons #{e1 22448}# #{e2 22449}#)
- #{r 21695}#
- #{w 21696}#
- #{s 21697}#
- #{mod 21698}#)
+ (lambda (#{x 24456}#
+ #{e1 24457}#
+ #{e2 24458}#)
+ (let ((#{when-list 24459}#
+ (#{parse-when-list 6319}#
+ #{e 23681}#
+ #{x 24456}#)))
+ (if (memq 'eval #{when-list 24459}#)
+ (#{expand-sequence 6316}#
+ (cons #{e1 24457}# #{e2 24458}#)
+ #{r 23682}#
+ #{w 23683}#
+ #{s 23684}#
+ #{mod 23685}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 0)
#f))))
- #{tmp 22443}#)
+ #{tmp 24452}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{e 21694}#)))
- (if (if (eqv? #{type 21692}# 'define-form)
+ #{e 23681}#)))
+ (if (if (eqv? #{type 23679}# 'define-form)
#t
- (eqv? #{type 21692}# 'define-syntax-form))
+ (eqv? #{type 23679}# 'define-syntax-form))
(syntax-violation
#f
"definition in expression context"
- #{e 21694}#
- (#{wrap 4327}#
- #{value 21693}#
- #{w 21696}#
- #{mod 21698}#))
- (if (eqv? #{type 21692}# 'syntax)
+ #{e 23681}#
+ (#{wrap 6314}#
+ #{value 23680}#
+ #{w 23683}#
+ #{mod 23685}#))
+ (if (eqv? #{type 23679}# 'syntax)
(syntax-violation
#f
"reference to pattern variable outside
syntax form"
- (#{wrap 4327}#
+ (#{wrap 6314}#
(begin
- (if (if (pair? #{e 21694}#)
- #{s 21697}#
+ (if (if (pair? #{e 23681}#)
+ #{s 23684}#
#f)
(set-source-properties!
- #{e 21694}#
- #{s 21697}#))
- #{e 21694}#)
- #{w 21696}#
- #{mod 21698}#))
- (if (eqv? #{type 21692}# 'displaced-lexical)
+ #{e 23681}#
+ #{s 23684}#))
+ #{e 23681}#)
+ #{w 23683}#
+ #{mod 23685}#))
+ (if (eqv? #{type 23679}# 'displaced-lexical)
(syntax-violation
#f
"reference to identifier outside its
scope"
- (#{wrap 4327}#
+ (#{wrap 6314}#
(begin
- (if (if (pair? #{e 21694}#)
- #{s 21697}#
+ (if (if (pair? #{e 23681}#)
+ #{s 23684}#
#f)
(set-source-properties!
- #{e 21694}#
- #{s 21697}#))
- #{e 21694}#)
- #{w 21696}#
- #{mod 21698}#))
+ #{e 23681}#
+ #{s 23684}#))
+ #{e 23681}#)
+ #{w 23683}#
+ #{mod 23685}#))
(syntax-violation
#f
"unexpected syntax"
- (#{wrap 4327}#
+ (#{wrap 6314}#
(begin
- (if (if (pair? #{e 21694}#)
- #{s 21697}#
+ (if (if (pair? #{e 23681}#)
+ #{s 23684}#
#f)
(set-source-properties!
- #{e 21694}#
- #{s 21697}#))
- #{e 21694}#)
- #{w 21696}#
- #{mod 21698}#))))))))))))))))))
- (#{expand-application 4336}#
- (lambda (#{x 22687}#
- #{e 22688}#
- #{r 22689}#
- #{w 22690}#
- #{s 22691}#
- #{mod 22692}#)
- (let ((#{tmp 22694}#
- ($sc-dispatch #{e 22688}# '(any . each-any))))
- (if #{tmp 22694}#
+ #{e 23681}#
+ #{s 23684}#))
+ #{e 23681}#)
+ #{w 23683}#
+ #{mod 23685}#))))))))))))))))))
+ (#{expand-application 6323}#
+ (lambda (#{x 24696}#
+ #{e 24697}#
+ #{r 24698}#
+ #{w 24699}#
+ #{s 24700}#
+ #{mod 24701}#)
+ (let ((#{tmp 24703}#
+ ($sc-dispatch #{e 24697}# '(any . each-any))))
+ (if #{tmp 24703}#
(@apply
- (lambda (#{e0 22698}# #{e1 22699}#)
- (#{build-application 4269}#
- #{s 22691}#
- #{x 22687}#
- (map (lambda (#{e 22779}#)
- (#{expand 4334}#
- #{e 22779}#
- #{r 22689}#
- #{w 22690}#
- #{mod 22692}#))
- #{e1 22699}#)))
- #{tmp 22694}#)
+ (lambda (#{e0 24707}# #{e1 24708}#)
+ (#{build-application 6256}#
+ #{s 24700}#
+ #{x 24696}#
+ (map (lambda (#{e 24788}#)
+ (#{expand 6321}#
+ #{e 24788}#
+ #{r 24698}#
+ #{w 24699}#
+ #{mod 24701}#))
+ #{e1 24708}#)))
+ #{tmp 24703}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 22688}#)))))
- (#{expand-macro 4337}#
- (lambda (#{p 22855}#
- #{e 22856}#
- #{r 22857}#
- #{w 22858}#
- #{s 22859}#
- #{rib 22860}#
- #{mod 22861}#)
+ #{e 24697}#)))))
+ (#{expand-macro 6324}#
+ (lambda (#{p 24864}#
+ #{e 24865}#
+ #{r 24866}#
+ #{w 24867}#
+ #{s 24868}#
+ #{rib 24869}#
+ #{mod 24870}#)
(letrec*
- ((#{rebuild-macro-output 22862}#
- (lambda (#{x 22893}# #{m 22894}#)
- (if (pair? #{x 22893}#)
- (let ((#{e 22898}#
- (cons (#{rebuild-macro-output 22862}#
- (car #{x 22893}#)
- #{m 22894}#)
- (#{rebuild-macro-output 22862}#
- (cdr #{x 22893}#)
- #{m 22894}#))))
+ ((#{rebuild-macro-output 24871}#
+ (lambda (#{x 24902}# #{m 24903}#)
+ (if (pair? #{x 24902}#)
+ (let ((#{e 24907}#
+ (cons (#{rebuild-macro-output 24871}#
+ (car #{x 24902}#)
+ #{m 24903}#)
+ (#{rebuild-macro-output 24871}#
+ (cdr #{x 24902}#)
+ #{m 24903}#))))
(begin
- (if (if (pair? #{e 22898}#) #{s 22859}# #f)
- (set-source-properties! #{e 22898}# #{s 22859}#))
- #{e 22898}#))
- (if (if (vector? #{x 22893}#)
- (if (= (vector-length #{x 22893}#) 4)
- (eq? (vector-ref #{x 22893}# 0) 'syntax-object)
+ (if (if (pair? #{e 24907}#) #{s 24868}# #f)
+ (set-source-properties! #{e 24907}# #{s 24868}#))
+ #{e 24907}#))
+ (if (if (vector? #{x 24902}#)
+ (if (= (vector-length #{x 24902}#) 4)
+ (eq? (vector-ref #{x 24902}# 0) 'syntax-object)
#f)
#f)
- (let ((#{w 22914}# (vector-ref #{x 22893}# 2)))
- (let ((#{ms 22915}# (car #{w 22914}#))
- (#{s 22916}# (cdr #{w 22914}#)))
- (if (if (pair? #{ms 22915}#)
- (eq? (car #{ms 22915}#) #f)
+ (let ((#{w 24923}# (vector-ref #{x 24902}# 2)))
+ (let ((#{ms 24924}# (car #{w 24923}#))
+ (#{s 24925}# (cdr #{w 24923}#)))
+ (if (if (pair? #{ms 24924}#)
+ (eq? (car #{ms 24924}#) #f)
#f)
- (let ((#{expression 22924}# (vector-ref #{x 22893}# 1))
- (#{wrap 22925}#
- (cons (cdr #{ms 22915}#)
- (if #{rib 22860}#
- (cons #{rib 22860}# (cdr #{s 22916}#))
- (cdr #{s 22916}#))))
- (#{module 22926}# (vector-ref #{x 22893}# 3)))
+ (let ((#{expression 24933}# (vector-ref #{x 24902}# 1))
+ (#{wrap 24934}#
+ (cons (cdr #{ms 24924}#)
+ (if #{rib 24869}#
+ (cons #{rib 24869}# (cdr #{s 24925}#))
+ (cdr #{s 24925}#))))
+ (#{module 24935}# (vector-ref #{x 24902}# 3)))
(vector
'syntax-object
- #{expression 22924}#
- #{wrap 22925}#
- #{module 22926}#))
- (let ((#{expression 22936}#
- (let ((#{e 22941}# (vector-ref #{x 22893}# 1)))
+ #{expression 24933}#
+ #{wrap 24934}#
+ #{module 24935}#))
+ (let ((#{expression 24945}#
+ (let ((#{e 24950}# (vector-ref #{x 24902}# 1)))
(begin
- (if (if (pair? #{e 22941}#) #{s 22916}# #f)
+ (if (if (pair? #{e 24950}#) #{s 24925}# #f)
(set-source-properties!
- #{e 22941}#
- #{s 22916}#))
- #{e 22941}#)))
- (#{wrap 22937}#
- (cons (cons #{m 22894}# #{ms 22915}#)
- (if #{rib 22860}#
- (cons #{rib 22860}#
- (cons 'shift #{s 22916}#))
- (cons 'shift #{s 22916}#))))
- (#{module 22938}# (vector-ref #{x 22893}# 3)))
+ #{e 24950}#
+ #{s 24925}#))
+ #{e 24950}#)))
+ (#{wrap 24946}#
+ (cons (cons #{m 24903}# #{ms 24924}#)
+ (if #{rib 24869}#
+ (cons #{rib 24869}#
+ (cons 'shift #{s 24925}#))
+ (cons 'shift #{s 24925}#))))
+ (#{module 24947}# (vector-ref #{x 24902}# 3)))
(vector
'syntax-object
- #{expression 22936}#
- #{wrap 22937}#
- #{module 22938}#)))))
- (if (vector? #{x 22893}#)
- (let ((#{n 22953}# (vector-length #{x 22893}#)))
- (let ((#{v 22954}#
- (let ((#{e 22962}# (make-vector #{n 22953}#)))
+ #{expression 24945}#
+ #{wrap 24946}#
+ #{module 24947}#)))))
+ (if (vector? #{x 24902}#)
+ (let ((#{n 24962}# (vector-length #{x 24902}#)))
+ (let ((#{v 24963}#
+ (let ((#{e 24971}# (make-vector #{n 24962}#)))
(begin
- (if (if (pair? #{e 22962}#) #{x 22893}# #f)
+ (if (if (pair? #{e 24971}#) #{x 24902}# #f)
(set-source-properties!
- #{e 22962}#
- #{x 22893}#))
- #{e 22962}#))))
+ #{e 24971}#
+ #{x 24902}#))
+ #{e 24971}#))))
(letrec*
- ((#{loop 22955}#
- (lambda (#{i 23007}#)
- (if (= #{i 23007}# #{n 22953}#)
- #{v 22954}#
+ ((#{loop 24964}#
+ (lambda (#{i 25016}#)
+ (if (= #{i 25016}# #{n 24962}#)
+ #{v 24963}#
(begin
(vector-set!
- #{v 22954}#
- #{i 23007}#
- (#{rebuild-macro-output 22862}#
- (vector-ref #{x 22893}# #{i 23007}#)
- #{m 22894}#))
- (#{loop 22955}# (#{1+}# #{i 23007}#)))))))
- (#{loop 22955}# 0))))
- (if (symbol? #{x 22893}#)
+ #{v 24963}#
+ #{i 25016}#
+ (#{rebuild-macro-output 24871}#
+ (vector-ref #{x 24902}# #{i 25016}#)
+ #{m 24903}#))
+ (#{loop 24964}# (#{1+}# #{i 25016}#)))))))
+ (#{loop 24964}# 0))))
+ (if (symbol? #{x 24902}#)
(syntax-violation
#f
"encountered raw symbol in macro output"
- (let ((#{s 23013}# (cdr #{w 22858}#)))
- (#{wrap 4327}#
+ (let ((#{s 25022}# (cdr #{w 24867}#)))
+ (#{wrap 6314}#
(begin
- (if (if (pair? #{e 22856}#) #{s 23013}# #f)
+ (if (if (pair? #{e 24865}#) #{s 25022}# #f)
(set-source-properties!
- #{e 22856}#
- #{s 23013}#))
- #{e 22856}#)
- #{w 22858}#
- #{mod 22861}#))
- #{x 22893}#)
+ #{e 24865}#
+ #{s 25022}#))
+ #{e 24865}#)
+ #{w 24867}#
+ #{mod 24870}#))
+ #{x 24902}#)
(begin
- (if (if (pair? #{x 22893}#) #{s 22859}# #f)
- (set-source-properties! #{x 22893}# #{s 22859}#))
- #{x 22893}#))))))))
- (#{rebuild-macro-output 22862}#
- (#{p 22855}#
- (let ((#{w 22869}#
- (cons (cons #f (car #{w 22858}#))
- (cons 'shift (cdr #{w 22858}#)))))
- (#{wrap 4327}#
+ (if (if (pair? #{x 24902}#) #{s 24868}# #f)
+ (set-source-properties! #{x 24902}# #{s 24868}#))
+ #{x 24902}#))))))))
+ (#{rebuild-macro-output 24871}#
+ (#{p 24864}#
+ (let ((#{w 24878}#
+ (cons (cons #f (car #{w 24867}#))
+ (cons 'shift (cdr #{w 24867}#)))))
+ (#{wrap 6314}#
(begin
- (if (if (pair? #{e 22856}#) #{s 22859}# #f)
- (set-source-properties! #{e 22856}# #{s 22859}#))
- #{e 22856}#)
- #{w 22869}#
- #{mod 22861}#)))
+ (if (if (pair? #{e 24865}#) #{s 24868}# #f)
+ (set-source-properties! #{e 24865}# #{s 24868}#))
+ #{e 24865}#)
+ #{w 24878}#
+ #{mod 24870}#)))
(gensym "m")))))
- (#{expand-body 4338}#
- (lambda (#{body 23045}#
- #{outer-form 23046}#
- #{r 23047}#
- #{w 23048}#
- #{mod 23049}#)
- (let ((#{r 23050}#
- (cons '("placeholder" placeholder) #{r 23047}#)))
- (let ((#{ribcage 23051}# (vector 'ribcage '() '() '())))
- (let ((#{w 23052}#
- (cons (car #{w 23048}#)
- (cons #{ribcage 23051}# (cdr #{w 23048}#)))))
+ (#{expand-body 6325}#
+ (lambda (#{body 25054}#
+ #{outer-form 25055}#
+ #{r 25056}#
+ #{w 25057}#
+ #{mod 25058}#)
+ (let ((#{r 25059}#
+ (cons '("placeholder" placeholder) #{r 25056}#)))
+ (let ((#{ribcage 25060}# (vector 'ribcage '() '() '())))
+ (let ((#{w 25061}#
+ (cons (car #{w 25057}#)
+ (cons #{ribcage 25060}# (cdr #{w 25057}#)))))
(letrec*
- ((#{parse 23053}#
- (lambda (#{body 23066}#
- #{ids 23067}#
- #{labels 23068}#
- #{var-ids 23069}#
- #{vars 23070}#
- #{vals 23071}#
- #{bindings 23072}#)
- (if (null? #{body 23066}#)
+ ((#{parse 25062}#
+ (lambda (#{body 25075}#
+ #{ids 25076}#
+ #{labels 25077}#
+ #{var-ids 25078}#
+ #{vars 25079}#
+ #{vals 25080}#
+ #{bindings 25081}#)
+ (if (null? #{body 25075}#)
(syntax-violation
#f
"no expressions in body"
- #{outer-form 23046}#)
- (let ((#{e 23073}# (cdr (car #{body 23066}#)))
- (#{er 23074}# (car (car #{body 23066}#))))
+ #{outer-form 25055}#)
+ (let ((#{e 25082}# (cdr (car #{body 25075}#)))
+ (#{er 25083}# (car (car #{body 25075}#))))
(call-with-values
(lambda ()
- (#{syntax-type 4333}#
- #{e 23073}#
- #{er 23074}#
+ (#{syntax-type 6320}#
+ #{e 25082}#
+ #{er 25083}#
'(())
- (#{source-annotation 4295}# #{er 23074}#)
- #{ribcage 23051}#
- #{mod 23049}#
+ (#{source-annotation 6282}# #{er 25083}#)
+ #{ribcage 25060}#
+ #{mod 25058}#
#f))
- (lambda (#{type 23231}#
- #{value 23232}#
- #{e 23233}#
- #{w 23234}#
- #{s 23235}#
- #{mod 23236}#)
- (if (eqv? #{type 23231}# 'define-form)
- (let ((#{id 23240}#
- (#{wrap 4327}#
- #{value 23232}#
- #{w 23234}#
- #{mod 23236}#))
- (#{label 23241}#
+ (lambda (#{type 25240}#
+ #{value 25241}#
+ #{e 25242}#
+ #{w 25243}#
+ #{s 25244}#
+ #{mod 25245}#)
+ (if (eqv? #{type 25240}# 'define-form)
+ (let ((#{id 25249}#
+ (#{wrap 6314}#
+ #{value 25241}#
+ #{w 25243}#
+ #{mod 25245}#))
+ (#{label 25250}#
(symbol->string (gensym "i"))))
- (let ((#{var 23242}#
- (let ((#{id 23302}#
- (if (if (vector? #{id 23240}#)
+ (let ((#{var 25251}#
+ (let ((#{id 25311}#
+ (if (if (vector? #{id 25249}#)
(if (= (vector-length
- #{id 23240}#)
+ #{id 25249}#)
4)
(eq? (vector-ref
- #{id 23240}#
+ #{id 25249}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{id 23240}# 1)
- #{id 23240}#)))
+ (vector-ref #{id 25249}# 1)
+ #{id 25249}#)))
(gensym
(string-append
- (symbol->string #{id 23302}#)
+ (symbol->string #{id 25311}#)
" ")))))
(begin
- (let ((#{update 23292}#
- (cons (vector-ref #{id 23240}# 1)
+ (let ((#{update 25301}#
+ (cons (vector-ref #{id 25249}# 1)
(vector-ref
- #{ribcage 23051}#
+ #{ribcage 25060}#
1))))
(vector-set!
- #{ribcage 23051}#
+ #{ribcage 25060}#
1
- #{update 23292}#))
- (let ((#{update 23294}#
+ #{update 25301}#))
+ (let ((#{update 25303}#
(cons (car (vector-ref
- #{id 23240}#
+ #{id 25249}#
2))
(vector-ref
- #{ribcage 23051}#
+ #{ribcage 25060}#
2))))
(vector-set!
- #{ribcage 23051}#
+ #{ribcage 25060}#
2
- #{update 23294}#))
- (let ((#{update 23296}#
- (cons #{label 23241}#
+ #{update 25303}#))
+ (let ((#{update 25305}#
+ (cons #{label 25250}#
(vector-ref
- #{ribcage 23051}#
+ #{ribcage 25060}#
3))))
(vector-set!
- #{ribcage 23051}#
+ #{ribcage 25060}#
3
- #{update 23296}#))
- (#{parse 23053}#
- (cdr #{body 23066}#)
- (cons #{id 23240}# #{ids 23067}#)
- (cons #{label 23241}# #{labels 23068}#)
- (cons #{id 23240}# #{var-ids 23069}#)
- (cons #{var 23242}# #{vars 23070}#)
- (cons (cons #{er 23074}#
- (#{wrap 4327}#
- #{e 23233}#
- #{w 23234}#
- #{mod 23236}#))
- #{vals 23071}#)
- (cons (cons 'lexical #{var 23242}#)
- #{bindings 23072}#)))))
- (if (eqv? #{type 23231}# 'define-syntax-form)
- (let ((#{id 23330}#
- (#{wrap 4327}#
- #{value 23232}#
- #{w 23234}#
- #{mod 23236}#))
- (#{label 23331}#
+ #{update 25305}#))
+ (#{parse 25062}#
+ (cdr #{body 25075}#)
+ (cons #{id 25249}# #{ids 25076}#)
+ (cons #{label 25250}# #{labels 25077}#)
+ (cons #{id 25249}# #{var-ids 25078}#)
+ (cons #{var 25251}# #{vars 25079}#)
+ (cons (cons #{er 25083}#
+ (#{wrap 6314}#
+ #{e 25242}#
+ #{w 25243}#
+ #{mod 25245}#))
+ #{vals 25080}#)
+ (cons (cons 'lexical #{var 25251}#)
+ #{bindings 25081}#)))))
+ (if (eqv? #{type 25240}# 'define-syntax-form)
+ (let ((#{id 25339}#
+ (#{wrap 6314}#
+ #{value 25241}#
+ #{w 25243}#
+ #{mod 25245}#))
+ (#{label 25340}#
(symbol->string (gensym "i"))))
(begin
- (let ((#{update 23381}#
- (cons (vector-ref #{id 23330}# 1)
+ (let ((#{update 25390}#
+ (cons (vector-ref #{id 25339}# 1)
(vector-ref
- #{ribcage 23051}#
+ #{ribcage 25060}#
1))))
(vector-set!
- #{ribcage 23051}#
+ #{ribcage 25060}#
1
- #{update 23381}#))
- (let ((#{update 23383}#
+ #{update 25390}#))
+ (let ((#{update 25392}#
(cons (car (vector-ref
- #{id 23330}#
+ #{id 25339}#
2))
(vector-ref
- #{ribcage 23051}#
+ #{ribcage 25060}#
2))))
(vector-set!
- #{ribcage 23051}#
+ #{ribcage 25060}#
2
- #{update 23383}#))
- (let ((#{update 23385}#
- (cons #{label 23331}#
+ #{update 25392}#))
+ (let ((#{update 25394}#
+ (cons #{label 25340}#
(vector-ref
- #{ribcage 23051}#
+ #{ribcage 25060}#
3))))
(vector-set!
- #{ribcage 23051}#
+ #{ribcage 25060}#
3
- #{update 23385}#))
- (#{parse 23053}#
- (cdr #{body 23066}#)
- (cons #{id 23330}# #{ids 23067}#)
- (cons #{label 23331}# #{labels 23068}#)
- #{var-ids 23069}#
- #{vars 23070}#
- #{vals 23071}#
+ #{update 25394}#))
+ (#{parse 25062}#
+ (cdr #{body 25075}#)
+ (cons #{id 25339}# #{ids 25076}#)
+ (cons #{label 25340}# #{labels 25077}#)
+ #{var-ids 25078}#
+ #{vars 25079}#
+ #{vals 25080}#
(cons (cons 'macro
- (cons #{er 23074}#
- (#{wrap 4327}#
- #{e 23233}#
- #{w 23234}#
- #{mod 23236}#)))
- #{bindings 23072}#))))
- (if (eqv? #{type 23231}# 'begin-form)
- (let ((#{tmp 23393}#
+ (cons #{er 25083}#
+ (#{wrap 6314}#
+ #{e 25242}#
+ #{w 25243}#
+ #{mod 25245}#)))
+ #{bindings 25081}#))))
+ (if (eqv? #{type 25240}# 'begin-form)
+ (let ((#{tmp 25402}#
($sc-dispatch
- #{e 23233}#
+ #{e 25242}#
'(_ . each-any))))
- (if #{tmp 23393}#
+ (if #{tmp 25402}#
(@apply
- (lambda (#{e1 23397}#)
- (#{parse 23053}#
+ (lambda (#{e1 25406}#)
+ (#{parse 25062}#
(letrec*
- ((#{f 23398}#
- (lambda (#{forms 23461}#)
- (if (null? #{forms 23461}#)
- (cdr #{body 23066}#)
- (cons (cons #{er 23074}#
- (#{wrap 4327}#
- (car
#{forms 23461}#)
- #{w 23234}#
- #{mod
23236}#))
- (#{f 23398}#
- (cdr #{forms
23461}#)))))))
- (#{f 23398}# #{e1 23397}#))
- #{ids 23067}#
- #{labels 23068}#
- #{var-ids 23069}#
- #{vars 23070}#
- #{vals 23071}#
- #{bindings 23072}#))
- #{tmp 23393}#)
+ ((#{f 25407}#
+ (lambda (#{forms 25470}#)
+ (if (null? #{forms 25470}#)
+ (cdr #{body 25075}#)
+ (cons (cons #{er 25083}#
+ (#{wrap 6314}#
+ (car
#{forms 25470}#)
+ #{w 25243}#
+ #{mod
25245}#))
+ (#{f 25407}#
+ (cdr #{forms
25470}#)))))))
+ (#{f 25407}# #{e1 25406}#))
+ #{ids 25076}#
+ #{labels 25077}#
+ #{var-ids 25078}#
+ #{vars 25079}#
+ #{vals 25080}#
+ #{bindings 25081}#))
+ #{tmp 25402}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{e 23233}#)))
- (if (eqv? #{type 23231}# 'local-syntax-form)
- (#{expand-local-syntax 4339}#
- #{value 23232}#
- #{e 23233}#
- #{er 23074}#
- #{w 23234}#
- #{s 23235}#
- #{mod 23236}#
- (lambda (#{forms 23475}#
- #{er 23476}#
- #{w 23477}#
- #{s 23478}#
- #{mod 23479}#)
- (#{parse 23053}#
+ #{e 25242}#)))
+ (if (eqv? #{type 25240}# 'local-syntax-form)
+ (#{expand-local-syntax 6326}#
+ #{value 25241}#
+ #{e 25242}#
+ #{er 25083}#
+ #{w 25243}#
+ #{s 25244}#
+ #{mod 25245}#
+ (lambda (#{forms 25484}#
+ #{er 25485}#
+ #{w 25486}#
+ #{s 25487}#
+ #{mod 25488}#)
+ (#{parse 25062}#
(letrec*
- ((#{f 23480}#
- (lambda (#{forms 23543}#)
- (if (null? #{forms 23543}#)
- (cdr #{body 23066}#)
- (cons (cons #{er 23476}#
- (#{wrap 4327}#
- (car #{forms
23543}#)
- #{w 23477}#
- #{mod
23479}#))
- (#{f 23480}#
- (cdr #{forms
23543}#)))))))
- (#{f 23480}# #{forms 23475}#))
- #{ids 23067}#
- #{labels 23068}#
- #{var-ids 23069}#
- #{vars 23070}#
- #{vals 23071}#
- #{bindings 23072}#)))
- (if (null? #{ids 23067}#)
- (#{build-sequence 4283}#
+ ((#{f 25489}#
+ (lambda (#{forms 25552}#)
+ (if (null? #{forms 25552}#)
+ (cdr #{body 25075}#)
+ (cons (cons #{er 25485}#
+ (#{wrap 6314}#
+ (car #{forms
25552}#)
+ #{w 25486}#
+ #{mod
25488}#))
+ (#{f 25489}#
+ (cdr #{forms
25552}#)))))))
+ (#{f 25489}# #{forms 25484}#))
+ #{ids 25076}#
+ #{labels 25077}#
+ #{var-ids 25078}#
+ #{vars 25079}#
+ #{vals 25080}#
+ #{bindings 25081}#)))
+ (if (null? #{ids 25076}#)
+ (#{build-sequence 6270}#
#f
- (map (lambda (#{x 23608}#)
- (let ((#{e 23612}#
- (cdr #{x 23608}#))
- (#{r 23613}#
- (car #{x 23608}#)))
+ (map (lambda (#{x 25617}#)
+ (let ((#{e 25621}#
+ (cdr #{x 25617}#))
+ (#{r 25622}#
+ (car #{x 25617}#)))
(call-with-values
(lambda ()
- (#{syntax-type 4333}#
- #{e 23612}#
- #{r 23613}#
+ (#{syntax-type 6320}#
+ #{e 25621}#
+ #{r 25622}#
'(())
- (#{source-annotation
4295}#
- #{e 23612}#)
+ (#{source-annotation
6282}#
+ #{e 25621}#)
#f
- #{mod 23236}#
+ #{mod 25245}#
#f))
- (lambda (#{type 23617}#
- #{value 23618}#
- #{e 23619}#
- #{w 23620}#
- #{s 23621}#
- #{mod 23622}#)
- (#{expand-expr 4335}#
- #{type 23617}#
- #{value 23618}#
- #{e 23619}#
- #{r 23613}#
- #{w 23620}#
- #{s 23621}#
- #{mod 23622}#)))))
- (cons (cons #{er 23074}#
- (#{wrap 4327}#
+ (lambda (#{type 25626}#
+ #{value 25627}#
+ #{e 25628}#
+ #{w 25629}#
+ #{s 25630}#
+ #{mod 25631}#)
+ (#{expand-expr 6322}#
+ #{type 25626}#
+ #{value 25627}#
+ #{e 25628}#
+ #{r 25622}#
+ #{w 25629}#
+ #{s 25630}#
+ #{mod 25631}#)))))
+ (cons (cons #{er 25083}#
+ (#{wrap 6314}#
(begin
- (if (if (pair?
#{e 23233}#)
- #{s 23235}#
+ (if (if (pair?
#{e 25242}#)
+ #{s 25244}#
#f)
(set-source-properties!
- #{e 23233}#
- #{s 23235}#))
- #{e 23233}#)
- #{w 23234}#
- #{mod 23236}#))
- (cdr #{body 23066}#))))
+ #{e 25242}#
+ #{s 25244}#))
+ #{e 25242}#)
+ #{w 25243}#
+ #{mod 25245}#))
+ (cdr #{body 25075}#))))
(begin
- (if (not (#{valid-bound-ids? 4324}#
- #{ids 23067}#))
+ (if (not (#{valid-bound-ids? 6311}#
+ #{ids 25076}#))
(syntax-violation
#f
"invalid or duplicate identifier
in definition"
- #{outer-form 23046}#))
+ #{outer-form 25055}#))
(letrec*
- ((#{loop 23723}#
- (lambda (#{bs 23726}#
- #{er-cache 23727}#
- #{r-cache 23728}#)
- (if (not (null? #{bs 23726}#))
- (let ((#{b 23729}#
- (car #{bs 23726}#)))
- (if (eq? (car #{b 23729}#)
+ ((#{loop 25732}#
+ (lambda (#{bs 25735}#
+ #{er-cache 25736}#
+ #{r-cache 25737}#)
+ (if (not (null? #{bs 25735}#))
+ (let ((#{b 25738}#
+ (car #{bs 25735}#)))
+ (if (eq? (car #{b 25738}#)
'macro)
- (let ((#{er 23731}#
- (car (cdr #{b
23729}#))))
- (let ((#{r-cache 23732}#
- (if (eq? #{er
23731}#
-
#{er-cache 23727}#)
- #{r-cache
23728}#
-
(#{macros-only-env 4298}#
- #{er
23731}#))))
+ (let ((#{er 25740}#
+ (car (cdr #{b
25738}#))))
+ (let ((#{r-cache 25741}#
+ (if (eq? #{er
25740}#
+
#{er-cache 25736}#)
+ #{r-cache
25737}#
+
(#{macros-only-env 6285}#
+ #{er
25740}#))))
(begin
(set-cdr!
- #{b 23729}#
-
(#{eval-local-transformer 4340}#
- (#{expand 4334}#
- (cdr (cdr #{b
23729}#))
- #{r-cache
23732}#
+ #{b 25738}#
+
(#{eval-local-transformer 6327}#
+ (#{expand 6321}#
+ (cdr (cdr #{b
25738}#))
+ #{r-cache
25741}#
'(())
- #{mod 23236}#)
- #{mod 23236}#))
- (#{loop 23723}#
- (cdr #{bs 23726}#)
- #{er 23731}#
- #{r-cache
23732}#))))
- (#{loop 23723}#
- (cdr #{bs 23726}#)
- #{er-cache 23727}#
- #{r-cache 23728}#)))))))
- (#{loop 23723}#
- #{bindings 23072}#
+ #{mod 25245}#)
+ #{mod 25245}#))
+ (#{loop 25732}#
+ (cdr #{bs 25735}#)
+ #{er 25740}#
+ #{r-cache
25741}#))))
+ (#{loop 25732}#
+ (cdr #{bs 25735}#)
+ #{er-cache 25736}#
+ #{r-cache 25737}#)))))))
+ (#{loop 25732}#
+ #{bindings 25081}#
#f
#f))
(set-cdr!
- #{r 23050}#
- (#{extend-env 4296}#
- #{labels 23068}#
- #{bindings 23072}#
- (cdr #{r 23050}#)))
- (#{build-letrec 4286}#
+ #{r 25059}#
+ (#{extend-env 6283}#
+ #{labels 25077}#
+ #{bindings 25081}#
+ (cdr #{r 25059}#)))
+ (#{build-letrec 6273}#
#f
#t
(reverse
(map syntax->datum
- #{var-ids 23069}#))
- (reverse #{vars 23070}#)
- (map (lambda (#{x 24075}#)
- (let ((#{e 24079}#
- (cdr #{x 24075}#))
- (#{r 24080}#
- (car #{x 24075}#)))
+ #{var-ids 25078}#))
+ (reverse #{vars 25079}#)
+ (map (lambda (#{x 26084}#)
+ (let ((#{e 26088}#
+ (cdr #{x 26084}#))
+ (#{r 26089}#
+ (car #{x 26084}#)))
(call-with-values
(lambda ()
- (#{syntax-type 4333}#
- #{e 24079}#
- #{r 24080}#
+ (#{syntax-type 6320}#
+ #{e 26088}#
+ #{r 26089}#
'(())
- (#{source-annotation
4295}#
- #{e 24079}#)
+ (#{source-annotation
6282}#
+ #{e 26088}#)
#f
- #{mod 23236}#
+ #{mod 25245}#
#f))
- (lambda (#{type 24084}#
- #{value 24085}#
- #{e 24086}#
- #{w 24087}#
- #{s 24088}#
- #{mod 24089}#)
- (#{expand-expr 4335}#
- #{type 24084}#
- #{value 24085}#
- #{e 24086}#
- #{r 24080}#
- #{w 24087}#
- #{s 24088}#
- #{mod 24089}#)))))
- (reverse #{vals 23071}#))
- (let ((#{exps 24095}#
- (map (lambda (#{x 24096}#)
- (let ((#{e 24099}#
- (cdr #{x
24096}#))
- (#{r 24100}#
- (car #{x
24096}#)))
+ (lambda (#{type 26093}#
+ #{value 26094}#
+ #{e 26095}#
+ #{w 26096}#
+ #{s 26097}#
+ #{mod 26098}#)
+ (#{expand-expr 6322}#
+ #{type 26093}#
+ #{value 26094}#
+ #{e 26095}#
+ #{r 26089}#
+ #{w 26096}#
+ #{s 26097}#
+ #{mod 26098}#)))))
+ (reverse #{vals 25080}#))
+ (let ((#{exps 26104}#
+ (map (lambda (#{x 26105}#)
+ (let ((#{e 26108}#
+ (cdr #{x
26105}#))
+ (#{r 26109}#
+ (car #{x
26105}#)))
(call-with-values
(lambda ()
- (#{syntax-type
4333}#
- #{e 24099}#
- #{r 24100}#
+ (#{syntax-type
6320}#
+ #{e 26108}#
+ #{r 26109}#
'(())
-
(#{source-annotation 4295}#
- #{e 24099}#)
+
(#{source-annotation 6282}#
+ #{e 26108}#)
#f
- #{mod 23236}#
+ #{mod 25245}#
#f))
- (lambda (#{type
24104}#
- #{value
24105}#
- #{e
24106}#
- #{w
24107}#
- #{s
24108}#
- #{mod
24109}#)
- (#{expand-expr
4335}#
- #{type 24104}#
- #{value
24105}#
- #{e 24106}#
- #{r 24100}#
- #{w 24107}#
- #{s 24108}#
- #{mod
24109}#)))))
- (cons (cons #{er 23074}#
- (#{wrap
4327}#
+ (lambda (#{type
26113}#
+ #{value
26114}#
+ #{e
26115}#
+ #{w
26116}#
+ #{s
26117}#
+ #{mod
26118}#)
+ (#{expand-expr
6322}#
+ #{type 26113}#
+ #{value
26114}#
+ #{e 26115}#
+ #{r 26109}#
+ #{w 26116}#
+ #{s 26117}#
+ #{mod
26118}#)))))
+ (cons (cons #{er 25083}#
+ (#{wrap
6314}#
(begin
- (if (if
(pair? #{e 23233}#)
-
#{s 23235}#
+ (if (if
(pair? #{e 25242}#)
+
#{s 25244}#
#f)
(set-source-properties!
- #{e
23233}#
- #{s
23235}#))
- #{e
23233}#)
- #{w
23234}#
- #{mod
23236}#))
- (cdr #{body
23066}#)))))
- (if (null? (cdr #{exps 24095}#))
- (car #{exps 24095}#)
+ #{e
25242}#
+ #{s
25244}#))
+ #{e
25242}#)
+ #{w
25243}#
+ #{mod
25245}#))
+ (cdr #{body
25075}#)))))
+ (if (null? (cdr #{exps 26104}#))
+ (car #{exps 26104}#)
(make-struct/no-tail
(vector-ref
%expanded-vtables
12)
#f
- #{exps 24095}#)))))))))))))))))
- (#{parse 23053}#
- (map (lambda (#{x 23056}#)
- (cons #{r 23050}#
- (#{wrap 4327}#
- #{x 23056}#
- #{w 23052}#
- #{mod 23049}#)))
- #{body 23045}#)
+ #{exps 26104}#)))))))))))))))))
+ (#{parse 25062}#
+ (map (lambda (#{x 25065}#)
+ (cons #{r 25059}#
+ (#{wrap 6314}#
+ #{x 25065}#
+ #{w 25061}#
+ #{mod 25058}#)))
+ #{body 25054}#)
'()
'()
'()
'()
'()
'())))))))
- (#{expand-local-syntax 4339}#
- (lambda (#{rec? 24135}#
- #{e 24136}#
- #{r 24137}#
- #{w 24138}#
- #{s 24139}#
- #{mod 24140}#
- #{k 24141}#)
- (let ((#{tmp 24143}#
+ (#{expand-local-syntax 6326}#
+ (lambda (#{rec? 26144}#
+ #{e 26145}#
+ #{r 26146}#
+ #{w 26147}#
+ #{s 26148}#
+ #{mod 26149}#
+ #{k 26150}#)
+ (let ((#{tmp 26152}#
($sc-dispatch
- #{e 24136}#
+ #{e 26145}#
'(_ #(each (any any)) any . each-any))))
- (if #{tmp 24143}#
+ (if #{tmp 26152}#
(@apply
- (lambda (#{id 24147}#
- #{val 24148}#
- #{e1 24149}#
- #{e2 24150}#)
- (if (not (#{valid-bound-ids? 4324}# #{id 24147}#))
+ (lambda (#{id 26156}#
+ #{val 26157}#
+ #{e1 26158}#
+ #{e2 26159}#)
+ (if (not (#{valid-bound-ids? 6311}# #{id 26156}#))
(syntax-violation
#f
"duplicate bound keyword"
- #{e 24136}#)
- (let ((#{labels 24240}#
- (#{gen-labels 4305}# #{id 24147}#)))
- (let ((#{new-w 24241}#
- (#{make-binding-wrap 4316}#
- #{id 24147}#
- #{labels 24240}#
- #{w 24138}#)))
- (#{k 24141}#
- (cons #{e1 24149}# #{e2 24150}#)
- (#{extend-env 4296}#
- #{labels 24240}#
- (let ((#{trans-r 24279}#
- (#{macros-only-env 4298}# #{r 24137}#)))
+ #{e 26145}#)
+ (let ((#{labels 26249}#
+ (#{gen-labels 6292}# #{id 26156}#)))
+ (let ((#{new-w 26250}#
+ (#{make-binding-wrap 6303}#
+ #{id 26156}#
+ #{labels 26249}#
+ #{w 26147}#)))
+ (#{k 26150}#
+ (cons #{e1 26158}# #{e2 26159}#)
+ (#{extend-env 6283}#
+ #{labels 26249}#
+ (let ((#{trans-r 26288}#
+ (#{macros-only-env 6285}# #{r 26146}#)))
(begin
- (if #{rec? 24135}# #{new-w 24241}# #{w 24138}#)
- (map (lambda (#{x 24280}#)
+ (if #{rec? 26144}# #{new-w 26250}# #{w 26147}#)
+ (map (lambda (#{x 26289}#)
(cons 'macro
- (#{eval-local-transformer 4340}#
- (#{expand 4334}#
- #{x 24280}#
- #{trans-r 24279}#
+ (#{eval-local-transformer 6327}#
+ (#{expand 6321}#
+ #{x 26289}#
+ #{trans-r 26288}#
(values
- (if #{rec? 24135}#
- #{new-w 24241}#
- #{w 24138}#))
- #{mod 24140}#)
- #{mod 24140}#)))
- #{val 24148}#)))
- #{r 24137}#)
- #{new-w 24241}#
- #{s 24139}#
- #{mod 24140}#)))))
- #{tmp 24143}#)
+ (if #{rec? 26144}#
+ #{new-w 26250}#
+ #{w 26147}#))
+ #{mod 26149}#)
+ #{mod 26149}#)))
+ #{val 26157}#)))
+ #{r 26146}#)
+ #{new-w 26250}#
+ #{s 26148}#
+ #{mod 26149}#)))))
+ #{tmp 26152}#)
(syntax-violation
#f
"bad local syntax definition"
- (#{wrap 4327}#
+ (#{wrap 6314}#
(begin
- (if (if (pair? #{e 24136}#) #{s 24139}# #f)
- (set-source-properties! #{e 24136}# #{s 24139}#))
- #{e 24136}#)
- #{w 24138}#
- #{mod 24140}#))))))
- (#{eval-local-transformer 4340}#
- (lambda (#{expanded 24576}# #{mod 24577}#)
- (let ((#{p 24578}# (primitive-eval #{expanded 24576}#)))
- (if (procedure? #{p 24578}#)
- #{p 24578}#
+ (if (if (pair? #{e 26145}#) #{s 26148}# #f)
+ (set-source-properties! #{e 26145}# #{s 26148}#))
+ #{e 26145}#)
+ #{w 26147}#
+ #{mod 26149}#))))))
+ (#{eval-local-transformer 6327}#
+ (lambda (#{expanded 26585}# #{mod 26586}#)
+ (let ((#{p 26587}# (primitive-eval #{expanded 26585}#)))
+ (if (procedure? #{p 26587}#)
+ #{p 26587}#
(syntax-violation
#f
"nonprocedure transformer"
- #{p 24578}#)))))
- (#{ellipsis? 4342}#
- (lambda (#{x 5143}#)
- (if (if (if (vector? #{x 5143}#)
- (if (= (vector-length #{x 5143}#) 4)
- (eq? (vector-ref #{x 5143}# 0) 'syntax-object)
+ #{p 26587}#)))))
+ (#{ellipsis? 6329}#
+ (lambda (#{x 7130}#)
+ (if (if (if (vector? #{x 7130}#)
+ (if (= (vector-length #{x 7130}#) 4)
+ (eq? (vector-ref #{x 7130}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 5143}# 1))
+ (symbol? (vector-ref #{x 7130}# 1))
#f)
- (if (eq? (if (if (vector? #{x 5143}#)
- (if (= (vector-length #{x 5143}#) 4)
- (eq? (vector-ref #{x 5143}# 0) 'syntax-object)
+ (if (eq? (if (if (vector? #{x 7130}#)
+ (if (= (vector-length #{x 7130}#) 4)
+ (eq? (vector-ref #{x 7130}# 0) 'syntax-object)
#f)
#f)
- (vector-ref #{x 5143}# 1)
- #{x 5143}#)
+ (vector-ref #{x 7130}# 1)
+ #{x 7130}#)
(if (if (= (vector-length
'#(syntax-object
...
((top)
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i2219"))
+ #(ribcage #(x) #((top)) #("i4206"))
#(ribcage
(lambda-var-list
gen-var
@@ -4965,148 +4980,148 @@
(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"))
+ ("i2454"
+ "i2452"
+ "i2450"
+ "i2448"
+ "i2446"
+ "i2444"
+ "i2442"
+ "i2440"
+ "i2438"
+ "i2436"
+ "i2434"
+ "i2432"
+ "i2430"
+ "i2428"
+ "i2426"
+ "i2424"
+ "i2422"
+ "i2420"
+ "i2418"
+ "i2416"
+ "i2414"
+ "i2412"
+ "i2410"
+ "i2408"
+ "i2406"
+ "i2404"
+ "i2402"
+ "i2400"
+ "i2398"
+ "i2396"
+ "i2394"
+ "i2392"
+ "i2390"
+ "i2388"
+ "i2386"
+ "i2385"
+ "i2383"
+ "i2380"
+ "i2379"
+ "i2378"
+ "i2376"
+ "i2375"
+ "i2373"
+ "i2371"
+ "i2369"
+ "i2367"
+ "i2365"
+ "i2363"
+ "i2361"
+ "i2359"
+ "i2356"
+ "i2354"
+ "i2353"
+ "i2351"
+ "i2349"
+ "i2347"
+ "i2345"
+ "i2344"
+ "i2343"
+ "i2342"
+ "i2340"
+ "i2339"
+ "i2336"
+ "i2334"
+ "i2332"
+ "i2330"
+ "i2328"
+ "i2326"
+ "i2324"
+ "i2323"
+ "i2322"
+ "i2320"
+ "i2318"
+ "i2317"
+ "i2314"
+ "i2313"
+ "i2311"
+ "i2309"
+ "i2307"
+ "i2305"
+ "i2303"
+ "i2301"
+ "i2299"
+ "i2297"
+ "i2295"
+ "i2292"
+ "i2290"
+ "i2288"
+ "i2286"
+ "i2284"
+ "i2282"
+ "i2280"
+ "i2278"
+ "i2276"
+ "i2274"
+ "i2272"
+ "i2270"
+ "i2268"
+ "i2266"
+ "i2264"
+ "i2262"
+ "i2260"
+ "i2258"
+ "i2256"
+ "i2254"
+ "i2252"
+ "i2250"
+ "i2248"
+ "i2247"
+ "i2244"
+ "i2242"
+ "i2241"
+ "i2240"
+ "i2239"
+ "i2238"
+ "i2236"
+ "i2234"
+ "i2232"
+ "i2229"
+ "i2227"
+ "i2225"
+ "i2223"
+ "i2221"
+ "i2219"
+ "i2217"
+ "i2215"
+ "i2213"
+ "i2211"
+ "i2209"
+ "i2207"
+ "i2205"
+ "i2203"
+ "i2201"
+ "i2199"
+ "i2197"
+ "i2195"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i46" "i45" "i44")))
+ ("i2033" "i2032" "i2031")))
(hygiene guile)))
4)
#t
@@ -5117,7 +5132,7 @@
((top)
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i2219"))
+ #(ribcage #(x) #((top)) #("i4206"))
#(ribcage
(lambda-var-list
gen-var
@@ -5391,157 +5406,157 @@
(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"))
+ ("i2454"
+ "i2452"
+ "i2450"
+ "i2448"
+ "i2446"
+ "i2444"
+ "i2442"
+ "i2440"
+ "i2438"
+ "i2436"
+ "i2434"
+ "i2432"
+ "i2430"
+ "i2428"
+ "i2426"
+ "i2424"
+ "i2422"
+ "i2420"
+ "i2418"
+ "i2416"
+ "i2414"
+ "i2412"
+ "i2410"
+ "i2408"
+ "i2406"
+ "i2404"
+ "i2402"
+ "i2400"
+ "i2398"
+ "i2396"
+ "i2394"
+ "i2392"
+ "i2390"
+ "i2388"
+ "i2386"
+ "i2385"
+ "i2383"
+ "i2380"
+ "i2379"
+ "i2378"
+ "i2376"
+ "i2375"
+ "i2373"
+ "i2371"
+ "i2369"
+ "i2367"
+ "i2365"
+ "i2363"
+ "i2361"
+ "i2359"
+ "i2356"
+ "i2354"
+ "i2353"
+ "i2351"
+ "i2349"
+ "i2347"
+ "i2345"
+ "i2344"
+ "i2343"
+ "i2342"
+ "i2340"
+ "i2339"
+ "i2336"
+ "i2334"
+ "i2332"
+ "i2330"
+ "i2328"
+ "i2326"
+ "i2324"
+ "i2323"
+ "i2322"
+ "i2320"
+ "i2318"
+ "i2317"
+ "i2314"
+ "i2313"
+ "i2311"
+ "i2309"
+ "i2307"
+ "i2305"
+ "i2303"
+ "i2301"
+ "i2299"
+ "i2297"
+ "i2295"
+ "i2292"
+ "i2290"
+ "i2288"
+ "i2286"
+ "i2284"
+ "i2282"
+ "i2280"
+ "i2278"
+ "i2276"
+ "i2274"
+ "i2272"
+ "i2270"
+ "i2268"
+ "i2266"
+ "i2264"
+ "i2262"
+ "i2260"
+ "i2258"
+ "i2256"
+ "i2254"
+ "i2252"
+ "i2250"
+ "i2248"
+ "i2247"
+ "i2244"
+ "i2242"
+ "i2241"
+ "i2240"
+ "i2239"
+ "i2238"
+ "i2236"
+ "i2234"
+ "i2232"
+ "i2229"
+ "i2227"
+ "i2225"
+ "i2223"
+ "i2221"
+ "i2219"
+ "i2217"
+ "i2215"
+ "i2213"
+ "i2211"
+ "i2209"
+ "i2207"
+ "i2205"
+ "i2203"
+ "i2201"
+ "i2199"
+ "i2197"
+ "i2195"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i46" "i45" "i44")))
+ ("i2033" "i2032" "i2031")))
(hygiene guile))))
- (eq? (#{id-var-name 4321}# #{x 5143}# '(()))
- (#{id-var-name 4321}#
+ (eq? (#{id-var-name 6308}# #{x 7130}# '(()))
+ (#{id-var-name 6308}#
'#(syntax-object
...
((top)
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i2219"))
+ #(ribcage #(x) #((top)) #("i4206"))
#(ribcage
(lambda-var-list
gen-var
@@ -5815,446 +5830,446 @@
(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"))
+ ("i2454"
+ "i2452"
+ "i2450"
+ "i2448"
+ "i2446"
+ "i2444"
+ "i2442"
+ "i2440"
+ "i2438"
+ "i2436"
+ "i2434"
+ "i2432"
+ "i2430"
+ "i2428"
+ "i2426"
+ "i2424"
+ "i2422"
+ "i2420"
+ "i2418"
+ "i2416"
+ "i2414"
+ "i2412"
+ "i2410"
+ "i2408"
+ "i2406"
+ "i2404"
+ "i2402"
+ "i2400"
+ "i2398"
+ "i2396"
+ "i2394"
+ "i2392"
+ "i2390"
+ "i2388"
+ "i2386"
+ "i2385"
+ "i2383"
+ "i2380"
+ "i2379"
+ "i2378"
+ "i2376"
+ "i2375"
+ "i2373"
+ "i2371"
+ "i2369"
+ "i2367"
+ "i2365"
+ "i2363"
+ "i2361"
+ "i2359"
+ "i2356"
+ "i2354"
+ "i2353"
+ "i2351"
+ "i2349"
+ "i2347"
+ "i2345"
+ "i2344"
+ "i2343"
+ "i2342"
+ "i2340"
+ "i2339"
+ "i2336"
+ "i2334"
+ "i2332"
+ "i2330"
+ "i2328"
+ "i2326"
+ "i2324"
+ "i2323"
+ "i2322"
+ "i2320"
+ "i2318"
+ "i2317"
+ "i2314"
+ "i2313"
+ "i2311"
+ "i2309"
+ "i2307"
+ "i2305"
+ "i2303"
+ "i2301"
+ "i2299"
+ "i2297"
+ "i2295"
+ "i2292"
+ "i2290"
+ "i2288"
+ "i2286"
+ "i2284"
+ "i2282"
+ "i2280"
+ "i2278"
+ "i2276"
+ "i2274"
+ "i2272"
+ "i2270"
+ "i2268"
+ "i2266"
+ "i2264"
+ "i2262"
+ "i2260"
+ "i2258"
+ "i2256"
+ "i2254"
+ "i2252"
+ "i2250"
+ "i2248"
+ "i2247"
+ "i2244"
+ "i2242"
+ "i2241"
+ "i2240"
+ "i2239"
+ "i2238"
+ "i2236"
+ "i2234"
+ "i2232"
+ "i2229"
+ "i2227"
+ "i2225"
+ "i2223"
+ "i2221"
+ "i2219"
+ "i2217"
+ "i2215"
+ "i2213"
+ "i2211"
+ "i2209"
+ "i2207"
+ "i2205"
+ "i2203"
+ "i2201"
+ "i2199"
+ "i2197"
+ "i2195"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i46" "i45" "i44")))
+ ("i2033" "i2032" "i2031")))
(hygiene guile))
'(())))
#f)
#f)))
- (#{lambda-formals 4343}#
- (lambda (#{orig-args 24583}#)
+ (#{lambda-formals 6330}#
+ (lambda (#{orig-args 26592}#)
(letrec*
- ((#{req 24584}#
- (lambda (#{args 24588}# #{rreq 24589}#)
- (let ((#{tmp 24591}# ($sc-dispatch #{args 24588}# '())))
- (if #{tmp 24591}#
+ ((#{req 26593}#
+ (lambda (#{args 26597}# #{rreq 26598}#)
+ (let ((#{tmp 26600}# ($sc-dispatch #{args 26597}# '())))
+ (if #{tmp 26600}#
(@apply
(lambda ()
- (#{check 24585}# (reverse #{rreq 24589}#) #f))
- #{tmp 24591}#)
- (let ((#{tmp 24714}#
- ($sc-dispatch #{args 24588}# '(any . any))))
- (if (if #{tmp 24714}#
+ (#{check 26594}# (reverse #{rreq 26598}#) #f))
+ #{tmp 26600}#)
+ (let ((#{tmp 26723}#
+ ($sc-dispatch #{args 26597}# '(any . any))))
+ (if (if #{tmp 26723}#
(@apply
- (lambda (#{a 24718}# #{b 24719}#)
- (if (symbol? #{a 24718}#)
+ (lambda (#{a 26727}# #{b 26728}#)
+ (if (symbol? #{a 26727}#)
#t
- (if (if (vector? #{a 24718}#)
- (if (= (vector-length #{a 24718}#) 4)
- (eq? (vector-ref #{a 24718}# 0)
+ (if (if (vector? #{a 26727}#)
+ (if (= (vector-length #{a 26727}#) 4)
+ (eq? (vector-ref #{a 26727}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{a 24718}# 1))
+ (symbol? (vector-ref #{a 26727}# 1))
#f)))
- #{tmp 24714}#)
+ #{tmp 26723}#)
#f)
(@apply
- (lambda (#{a 24746}# #{b 24747}#)
- (#{req 24584}#
- #{b 24747}#
- (cons #{a 24746}# #{rreq 24589}#)))
- #{tmp 24714}#)
- (let ((#{tmp 24748}# (list #{args 24588}#)))
+ (lambda (#{a 26755}# #{b 26756}#)
+ (#{req 26593}#
+ #{b 26756}#
+ (cons #{a 26755}# #{rreq 26598}#)))
+ #{tmp 26723}#)
+ (let ((#{tmp 26757}# (list #{args 26597}#)))
(if (@apply
- (lambda (#{r 24750}#)
- (if (symbol? #{r 24750}#)
+ (lambda (#{r 26759}#)
+ (if (symbol? #{r 26759}#)
#t
- (if (if (vector? #{r 24750}#)
- (if (= (vector-length #{r 24750}#) 4)
- (eq? (vector-ref #{r 24750}# 0)
+ (if (if (vector? #{r 26759}#)
+ (if (= (vector-length #{r 26759}#) 4)
+ (eq? (vector-ref #{r 26759}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{r 24750}# 1))
+ (symbol? (vector-ref #{r 26759}# 1))
#f)))
- #{tmp 24748}#)
+ #{tmp 26757}#)
(@apply
- (lambda (#{r 24780}#)
- (#{check 24585}#
- (reverse #{rreq 24589}#)
- #{r 24780}#))
- #{tmp 24748}#)
+ (lambda (#{r 26789}#)
+ (#{check 26594}#
+ (reverse #{rreq 26598}#)
+ #{r 26789}#))
+ #{tmp 26757}#)
(syntax-violation
'lambda
"invalid argument list"
- #{orig-args 24583}#
- #{args 24588}#)))))))))
- (#{check 24585}#
- (lambda (#{req 24911}# #{rest 24912}#)
- (if (#{distinct-bound-ids? 4325}#
- (if #{rest 24912}#
- (cons #{rest 24912}# #{req 24911}#)
- #{req 24911}#))
- (values #{req 24911}# #f #{rest 24912}# #f)
+ #{orig-args 26592}#
+ #{args 26597}#)))))))))
+ (#{check 26594}#
+ (lambda (#{req 26920}# #{rest 26921}#)
+ (if (#{distinct-bound-ids? 6312}#
+ (if #{rest 26921}#
+ (cons #{rest 26921}# #{req 26920}#)
+ #{req 26920}#))
+ (values #{req 26920}# #f #{rest 26921}# #f)
(syntax-violation
'lambda
"duplicate identifier in argument list"
- #{orig-args 24583}#)))))
- (#{req 24584}# #{orig-args 24583}# '()))))
- (#{expand-simple-lambda 4344}#
- (lambda (#{e 25028}#
- #{r 25029}#
- #{w 25030}#
- #{s 25031}#
- #{mod 25032}#
- #{req 25033}#
- #{rest 25034}#
- #{meta 25035}#
- #{body 25036}#)
- (let ((#{ids 25037}#
- (if #{rest 25034}#
- (append #{req 25033}# (list #{rest 25034}#))
- #{req 25033}#)))
- (let ((#{vars 25038}#
- (map #{gen-var 4348}# #{ids 25037}#)))
- (let ((#{labels 25039}#
- (#{gen-labels 4305}# #{ids 25037}#)))
- (#{build-simple-lambda 4278}#
- #{s 25031}#
- (map syntax->datum #{req 25033}#)
- (if #{rest 25034}#
- (syntax->datum #{rest 25034}#)
+ #{orig-args 26592}#)))))
+ (#{req 26593}# #{orig-args 26592}# '()))))
+ (#{expand-simple-lambda 6331}#
+ (lambda (#{e 27037}#
+ #{r 27038}#
+ #{w 27039}#
+ #{s 27040}#
+ #{mod 27041}#
+ #{req 27042}#
+ #{rest 27043}#
+ #{meta 27044}#
+ #{body 27045}#)
+ (let ((#{ids 27046}#
+ (if #{rest 27043}#
+ (append #{req 27042}# (list #{rest 27043}#))
+ #{req 27042}#)))
+ (let ((#{vars 27047}#
+ (map #{gen-var 6335}# #{ids 27046}#)))
+ (let ((#{labels 27048}#
+ (#{gen-labels 6292}# #{ids 27046}#)))
+ (#{build-simple-lambda 6265}#
+ #{s 27040}#
+ (map syntax->datum #{req 27042}#)
+ (if #{rest 27043}#
+ (syntax->datum #{rest 27043}#)
#f)
- #{vars 25038}#
- #{meta 25035}#
- (#{expand-body 4338}#
- #{body 25036}#
- (#{wrap 4327}#
+ #{vars 27047}#
+ #{meta 27044}#
+ (#{expand-body 6325}#
+ #{body 27045}#
+ (#{wrap 6314}#
(begin
- (if (if (pair? #{e 25028}#) #{s 25031}# #f)
- (set-source-properties! #{e 25028}# #{s 25031}#))
- #{e 25028}#)
- #{w 25030}#
- #{mod 25032}#)
- (#{extend-var-env 4297}#
- #{labels 25039}#
- #{vars 25038}#
- #{r 25029}#)
- (#{make-binding-wrap 4316}#
- #{ids 25037}#
- #{labels 25039}#
- #{w 25030}#)
- #{mod 25032}#)))))))
- (#{lambda*-formals 4345}#
- (lambda (#{orig-args 25339}#)
+ (if (if (pair? #{e 27037}#) #{s 27040}# #f)
+ (set-source-properties! #{e 27037}# #{s 27040}#))
+ #{e 27037}#)
+ #{w 27039}#
+ #{mod 27041}#)
+ (#{extend-var-env 6284}#
+ #{labels 27048}#
+ #{vars 27047}#
+ #{r 27038}#)
+ (#{make-binding-wrap 6303}#
+ #{ids 27046}#
+ #{labels 27048}#
+ #{w 27039}#)
+ #{mod 27041}#)))))))
+ (#{lambda*-formals 6332}#
+ (lambda (#{orig-args 27348}#)
(letrec*
- ((#{req 25340}#
- (lambda (#{args 25347}# #{rreq 25348}#)
- (let ((#{tmp 25350}# ($sc-dispatch #{args 25347}# '())))
- (if #{tmp 25350}#
+ ((#{req 27349}#
+ (lambda (#{args 27356}# #{rreq 27357}#)
+ (let ((#{tmp 27359}# ($sc-dispatch #{args 27356}# '())))
+ (if #{tmp 27359}#
(@apply
(lambda ()
- (#{check 25344}#
- (reverse #{rreq 25348}#)
+ (#{check 27353}#
+ (reverse #{rreq 27357}#)
'()
#f
'()))
- #{tmp 25350}#)
- (let ((#{tmp 25356}#
- ($sc-dispatch #{args 25347}# '(any . any))))
- (if (if #{tmp 25356}#
+ #{tmp 27359}#)
+ (let ((#{tmp 27365}#
+ ($sc-dispatch #{args 27356}# '(any . any))))
+ (if (if #{tmp 27365}#
(@apply
- (lambda (#{a 25360}# #{b 25361}#)
- (if (symbol? #{a 25360}#)
+ (lambda (#{a 27369}# #{b 27370}#)
+ (if (symbol? #{a 27369}#)
#t
- (if (if (vector? #{a 25360}#)
- (if (= (vector-length #{a 25360}#) 4)
- (eq? (vector-ref #{a 25360}# 0)
+ (if (if (vector? #{a 27369}#)
+ (if (= (vector-length #{a 27369}#) 4)
+ (eq? (vector-ref #{a 27369}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{a 25360}# 1))
+ (symbol? (vector-ref #{a 27369}# 1))
#f)))
- #{tmp 25356}#)
+ #{tmp 27365}#)
#f)
(@apply
- (lambda (#{a 25388}# #{b 25389}#)
- (#{req 25340}#
- #{b 25389}#
- (cons #{a 25388}# #{rreq 25348}#)))
- #{tmp 25356}#)
- (let ((#{tmp 25390}#
- ($sc-dispatch #{args 25347}# '(any . any))))
- (if (if #{tmp 25390}#
+ (lambda (#{a 27397}# #{b 27398}#)
+ (#{req 27349}#
+ #{b 27398}#
+ (cons #{a 27397}# #{rreq 27357}#)))
+ #{tmp 27365}#)
+ (let ((#{tmp 27399}#
+ ($sc-dispatch #{args 27356}# '(any . any))))
+ (if (if #{tmp 27399}#
(@apply
- (lambda (#{a 25394}# #{b 25395}#)
- (eq? (syntax->datum #{a 25394}#) #:optional))
- #{tmp 25390}#)
+ (lambda (#{a 27403}# #{b 27404}#)
+ (eq? (syntax->datum #{a 27403}#) #:optional))
+ #{tmp 27399}#)
#f)
(@apply
- (lambda (#{a 25396}# #{b 25397}#)
- (#{opt 25341}#
- #{b 25397}#
- (reverse #{rreq 25348}#)
+ (lambda (#{a 27405}# #{b 27406}#)
+ (#{opt 27350}#
+ #{b 27406}#
+ (reverse #{rreq 27357}#)
'()))
- #{tmp 25390}#)
- (let ((#{tmp 25400}#
- ($sc-dispatch #{args 25347}# '(any . any))))
- (if (if #{tmp 25400}#
+ #{tmp 27399}#)
+ (let ((#{tmp 27409}#
+ ($sc-dispatch #{args 27356}# '(any . any))))
+ (if (if #{tmp 27409}#
(@apply
- (lambda (#{a 25404}# #{b 25405}#)
- (eq? (syntax->datum #{a 25404}#) #:key))
- #{tmp 25400}#)
+ (lambda (#{a 27413}# #{b 27414}#)
+ (eq? (syntax->datum #{a 27413}#) #:key))
+ #{tmp 27409}#)
#f)
(@apply
- (lambda (#{a 25406}# #{b 25407}#)
- (#{key 25342}#
- #{b 25407}#
- (reverse #{rreq 25348}#)
+ (lambda (#{a 27415}# #{b 27416}#)
+ (#{key 27351}#
+ #{b 27416}#
+ (reverse #{rreq 27357}#)
'()
'()))
- #{tmp 25400}#)
- (let ((#{tmp 25410}#
+ #{tmp 27409}#)
+ (let ((#{tmp 27419}#
($sc-dispatch
- #{args 25347}#
+ #{args 27356}#
'(any any))))
- (if (if #{tmp 25410}#
+ (if (if #{tmp 27419}#
(@apply
- (lambda (#{a 25414}# #{b 25415}#)
- (eq? (syntax->datum #{a 25414}#)
+ (lambda (#{a 27423}# #{b 27424}#)
+ (eq? (syntax->datum #{a 27423}#)
#:rest))
- #{tmp 25410}#)
+ #{tmp 27419}#)
#f)
(@apply
- (lambda (#{a 25416}# #{b 25417}#)
- (#{rest 25343}#
- #{b 25417}#
- (reverse #{rreq 25348}#)
+ (lambda (#{a 27425}# #{b 27426}#)
+ (#{rest 27352}#
+ #{b 27426}#
+ (reverse #{rreq 27357}#)
'()
'()))
- #{tmp 25410}#)
- (let ((#{tmp 25420}# (list #{args 25347}#)))
+ #{tmp 27419}#)
+ (let ((#{tmp 27429}# (list #{args 27356}#)))
(if (@apply
- (lambda (#{r 25422}#)
- (if (symbol? #{r 25422}#)
+ (lambda (#{r 27431}#)
+ (if (symbol? #{r 27431}#)
#t
- (if (if (vector? #{r 25422}#)
+ (if (if (vector? #{r 27431}#)
(if (= (vector-length
- #{r 25422}#)
+ #{r 27431}#)
4)
(eq? (vector-ref
- #{r 25422}#
+ #{r 27431}#
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{r 25422}# 1))
+ (vector-ref #{r 27431}# 1))
#f)))
- #{tmp 25420}#)
+ #{tmp 27429}#)
(@apply
- (lambda (#{r 25452}#)
- (#{rest 25343}#
- #{r 25452}#
- (reverse #{rreq 25348}#)
+ (lambda (#{r 27461}#)
+ (#{rest 27352}#
+ #{r 27461}#
+ (reverse #{rreq 27357}#)
'()
'()))
- #{tmp 25420}#)
+ #{tmp 27429}#)
(syntax-violation
'lambda*
"invalid argument list"
- #{orig-args 25339}#
- #{args 25347}#)))))))))))))))
- (#{opt 25341}#
- (lambda (#{args 25471}# #{req 25472}# #{ropt 25473}#)
- (let ((#{tmp 25475}# ($sc-dispatch #{args 25471}# '())))
- (if #{tmp 25475}#
+ #{orig-args 27348}#
+ #{args 27356}#)))))))))))))))
+ (#{opt 27350}#
+ (lambda (#{args 27480}# #{req 27481}# #{ropt 27482}#)
+ (let ((#{tmp 27484}# ($sc-dispatch #{args 27480}# '())))
+ (if #{tmp 27484}#
(@apply
(lambda ()
- (#{check 25344}#
- #{req 25472}#
- (reverse #{ropt 25473}#)
+ (#{check 27353}#
+ #{req 27481}#
+ (reverse #{ropt 27482}#)
#f
'()))
- #{tmp 25475}#)
- (let ((#{tmp 25481}#
- ($sc-dispatch #{args 25471}# '(any . any))))
- (if (if #{tmp 25481}#
+ #{tmp 27484}#)
+ (let ((#{tmp 27490}#
+ ($sc-dispatch #{args 27480}# '(any . any))))
+ (if (if #{tmp 27490}#
(@apply
- (lambda (#{a 25485}# #{b 25486}#)
- (if (symbol? #{a 25485}#)
+ (lambda (#{a 27494}# #{b 27495}#)
+ (if (symbol? #{a 27494}#)
#t
- (if (if (vector? #{a 25485}#)
- (if (= (vector-length #{a 25485}#) 4)
- (eq? (vector-ref #{a 25485}# 0)
+ (if (if (vector? #{a 27494}#)
+ (if (= (vector-length #{a 27494}#) 4)
+ (eq? (vector-ref #{a 27494}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{a 25485}# 1))
+ (symbol? (vector-ref #{a 27494}# 1))
#f)))
- #{tmp 25481}#)
+ #{tmp 27490}#)
#f)
(@apply
- (lambda (#{a 25513}# #{b 25514}#)
- (#{opt 25341}#
- #{b 25514}#
- #{req 25472}#
- (cons (cons #{a 25513}#
+ (lambda (#{a 27522}# #{b 27523}#)
+ (#{opt 27350}#
+ #{b 27523}#
+ #{req 27481}#
+ (cons (cons #{a 27522}#
'(#(syntax-object
#f
((top)
#(ribcage
#(a b)
#((top) (top))
- #("i2358" "i2359"))
+ #("i4345" "i4346"))
#(ribcage () () ())
#(ribcage
#(args req ropt)
#((top) (top) (top))
- #("i2348" "i2349" "i2350"))
+ #("i4335" "i4336" "i4337"))
#(ribcage
(check rest key opt req)
((top) (top) (top) (top) (top))
- ("i2294"
- "i2292"
- "i2290"
- "i2288"
- "i2286"))
+ ("i4281"
+ "i4279"
+ "i4277"
+ "i4275"
+ "i4273"))
#(ribcage
#(orig-args)
#((top))
- #("i2285"))
+ #("i4272"))
#(ribcage
(lambda-var-list
gen-var
@@ -6528,290 +6543,290 @@
(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"))
+ ("i2454"
+ "i2452"
+ "i2450"
+ "i2448"
+ "i2446"
+ "i2444"
+ "i2442"
+ "i2440"
+ "i2438"
+ "i2436"
+ "i2434"
+ "i2432"
+ "i2430"
+ "i2428"
+ "i2426"
+ "i2424"
+ "i2422"
+ "i2420"
+ "i2418"
+ "i2416"
+ "i2414"
+ "i2412"
+ "i2410"
+ "i2408"
+ "i2406"
+ "i2404"
+ "i2402"
+ "i2400"
+ "i2398"
+ "i2396"
+ "i2394"
+ "i2392"
+ "i2390"
+ "i2388"
+ "i2386"
+ "i2385"
+ "i2383"
+ "i2380"
+ "i2379"
+ "i2378"
+ "i2376"
+ "i2375"
+ "i2373"
+ "i2371"
+ "i2369"
+ "i2367"
+ "i2365"
+ "i2363"
+ "i2361"
+ "i2359"
+ "i2356"
+ "i2354"
+ "i2353"
+ "i2351"
+ "i2349"
+ "i2347"
+ "i2345"
+ "i2344"
+ "i2343"
+ "i2342"
+ "i2340"
+ "i2339"
+ "i2336"
+ "i2334"
+ "i2332"
+ "i2330"
+ "i2328"
+ "i2326"
+ "i2324"
+ "i2323"
+ "i2322"
+ "i2320"
+ "i2318"
+ "i2317"
+ "i2314"
+ "i2313"
+ "i2311"
+ "i2309"
+ "i2307"
+ "i2305"
+ "i2303"
+ "i2301"
+ "i2299"
+ "i2297"
+ "i2295"
+ "i2292"
+ "i2290"
+ "i2288"
+ "i2286"
+ "i2284"
+ "i2282"
+ "i2280"
+ "i2278"
+ "i2276"
+ "i2274"
+ "i2272"
+ "i2270"
+ "i2268"
+ "i2266"
+ "i2264"
+ "i2262"
+ "i2260"
+ "i2258"
+ "i2256"
+ "i2254"
+ "i2252"
+ "i2250"
+ "i2248"
+ "i2247"
+ "i2244"
+ "i2242"
+ "i2241"
+ "i2240"
+ "i2239"
+ "i2238"
+ "i2236"
+ "i2234"
+ "i2232"
+ "i2229"
+ "i2227"
+ "i2225"
+ "i2223"
+ "i2221"
+ "i2219"
+ "i2217"
+ "i2215"
+ "i2213"
+ "i2211"
+ "i2209"
+ "i2207"
+ "i2205"
+ "i2203"
+ "i2201"
+ "i2199"
+ "i2197"
+ "i2195"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i46" "i45" "i44")))
+ ("i2033" "i2032" "i2031")))
(hygiene guile))))
- #{ropt 25473}#)))
- #{tmp 25481}#)
- (let ((#{tmp 25515}#
+ #{ropt 27482}#)))
+ #{tmp 27490}#)
+ (let ((#{tmp 27524}#
($sc-dispatch
- #{args 25471}#
+ #{args 27480}#
'((any any) . any))))
- (if (if #{tmp 25515}#
+ (if (if #{tmp 27524}#
(@apply
- (lambda (#{a 25519}#
- #{init 25520}#
- #{b 25521}#)
- (if (symbol? #{a 25519}#)
+ (lambda (#{a 27528}#
+ #{init 27529}#
+ #{b 27530}#)
+ (if (symbol? #{a 27528}#)
#t
- (if (if (vector? #{a 25519}#)
- (if (= (vector-length #{a 25519}#) 4)
- (eq? (vector-ref #{a 25519}# 0)
+ (if (if (vector? #{a 27528}#)
+ (if (= (vector-length #{a 27528}#) 4)
+ (eq? (vector-ref #{a 27528}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{a 25519}# 1))
+ (symbol? (vector-ref #{a 27528}# 1))
#f)))
- #{tmp 25515}#)
+ #{tmp 27524}#)
#f)
(@apply
- (lambda (#{a 25548}# #{init 25549}# #{b 25550}#)
- (#{opt 25341}#
- #{b 25550}#
- #{req 25472}#
- (cons (list #{a 25548}# #{init 25549}#)
- #{ropt 25473}#)))
- #{tmp 25515}#)
- (let ((#{tmp 25551}#
- ($sc-dispatch #{args 25471}# '(any . any))))
- (if (if #{tmp 25551}#
+ (lambda (#{a 27557}# #{init 27558}# #{b 27559}#)
+ (#{opt 27350}#
+ #{b 27559}#
+ #{req 27481}#
+ (cons (list #{a 27557}# #{init 27558}#)
+ #{ropt 27482}#)))
+ #{tmp 27524}#)
+ (let ((#{tmp 27560}#
+ ($sc-dispatch #{args 27480}# '(any . any))))
+ (if (if #{tmp 27560}#
(@apply
- (lambda (#{a 25555}# #{b 25556}#)
- (eq? (syntax->datum #{a 25555}#) #:key))
- #{tmp 25551}#)
+ (lambda (#{a 27564}# #{b 27565}#)
+ (eq? (syntax->datum #{a 27564}#) #:key))
+ #{tmp 27560}#)
#f)
(@apply
- (lambda (#{a 25557}# #{b 25558}#)
- (#{key 25342}#
- #{b 25558}#
- #{req 25472}#
- (reverse #{ropt 25473}#)
+ (lambda (#{a 27566}# #{b 27567}#)
+ (#{key 27351}#
+ #{b 27567}#
+ #{req 27481}#
+ (reverse #{ropt 27482}#)
'()))
- #{tmp 25551}#)
- (let ((#{tmp 25561}#
+ #{tmp 27560}#)
+ (let ((#{tmp 27570}#
($sc-dispatch
- #{args 25471}#
+ #{args 27480}#
'(any any))))
- (if (if #{tmp 25561}#
+ (if (if #{tmp 27570}#
(@apply
- (lambda (#{a 25565}# #{b 25566}#)
- (eq? (syntax->datum #{a 25565}#)
+ (lambda (#{a 27574}# #{b 27575}#)
+ (eq? (syntax->datum #{a 27574}#)
#:rest))
- #{tmp 25561}#)
+ #{tmp 27570}#)
#f)
(@apply
- (lambda (#{a 25567}# #{b 25568}#)
- (#{rest 25343}#
- #{b 25568}#
- #{req 25472}#
- (reverse #{ropt 25473}#)
+ (lambda (#{a 27576}# #{b 27577}#)
+ (#{rest 27352}#
+ #{b 27577}#
+ #{req 27481}#
+ (reverse #{ropt 27482}#)
'()))
- #{tmp 25561}#)
- (let ((#{tmp 25571}# (list #{args 25471}#)))
+ #{tmp 27570}#)
+ (let ((#{tmp 27580}# (list #{args 27480}#)))
(if (@apply
- (lambda (#{r 25573}#)
- (if (symbol? #{r 25573}#)
+ (lambda (#{r 27582}#)
+ (if (symbol? #{r 27582}#)
#t
- (if (if (vector? #{r 25573}#)
+ (if (if (vector? #{r 27582}#)
(if (= (vector-length
- #{r 25573}#)
+ #{r 27582}#)
4)
(eq? (vector-ref
- #{r 25573}#
+ #{r 27582}#
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{r 25573}# 1))
+ (vector-ref #{r 27582}# 1))
#f)))
- #{tmp 25571}#)
+ #{tmp 27580}#)
(@apply
- (lambda (#{r 25603}#)
- (#{rest 25343}#
- #{r 25603}#
- #{req 25472}#
- (reverse #{ropt 25473}#)
+ (lambda (#{r 27612}#)
+ (#{rest 27352}#
+ #{r 27612}#
+ #{req 27481}#
+ (reverse #{ropt 27482}#)
'()))
- #{tmp 25571}#)
+ #{tmp 27580}#)
(syntax-violation
'lambda*
"invalid optional argument list"
- #{orig-args 25339}#
- #{args 25471}#)))))))))))))))
- (#{key 25342}#
- (lambda (#{args 25622}#
- #{req 25623}#
- #{opt 25624}#
- #{rkey 25625}#)
- (let ((#{tmp 25627}# ($sc-dispatch #{args 25622}# '())))
- (if #{tmp 25627}#
+ #{orig-args 27348}#
+ #{args 27480}#)))))))))))))))
+ (#{key 27351}#
+ (lambda (#{args 27631}#
+ #{req 27632}#
+ #{opt 27633}#
+ #{rkey 27634}#)
+ (let ((#{tmp 27636}# ($sc-dispatch #{args 27631}# '())))
+ (if #{tmp 27636}#
(@apply
(lambda ()
- (#{check 25344}#
- #{req 25623}#
- #{opt 25624}#
+ (#{check 27353}#
+ #{req 27632}#
+ #{opt 27633}#
#f
- (cons #f (reverse #{rkey 25625}#))))
- #{tmp 25627}#)
- (let ((#{tmp 25633}#
- ($sc-dispatch #{args 25622}# '(any . any))))
- (if (if #{tmp 25633}#
+ (cons #f (reverse #{rkey 27634}#))))
+ #{tmp 27636}#)
+ (let ((#{tmp 27642}#
+ ($sc-dispatch #{args 27631}# '(any . any))))
+ (if (if #{tmp 27642}#
(@apply
- (lambda (#{a 25637}# #{b 25638}#)
- (if (symbol? #{a 25637}#)
+ (lambda (#{a 27646}# #{b 27647}#)
+ (if (symbol? #{a 27646}#)
#t
- (if (if (vector? #{a 25637}#)
- (if (= (vector-length #{a 25637}#) 4)
- (eq? (vector-ref #{a 25637}# 0)
+ (if (if (vector? #{a 27646}#)
+ (if (= (vector-length #{a 27646}#) 4)
+ (eq? (vector-ref #{a 27646}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{a 25637}# 1))
+ (symbol? (vector-ref #{a 27646}# 1))
#f)))
- #{tmp 25633}#)
+ #{tmp 27642}#)
#f)
(@apply
- (lambda (#{a 25665}# #{b 25666}#)
- (let ((#{tmp 25667}#
+ (lambda (#{a 27674}# #{b 27675}#)
+ (let ((#{tmp 27676}#
(symbol->keyword
- (syntax->datum #{a 25665}#))))
- (#{key 25342}#
- #{b 25666}#
- #{req 25623}#
- #{opt 25624}#
- (cons (cons #{tmp 25667}#
- (cons #{a 25665}#
+ (syntax->datum #{a 27674}#))))
+ (#{key 27351}#
+ #{b 27675}#
+ #{req 27632}#
+ #{opt 27633}#
+ (cons (cons #{tmp 27676}#
+ (cons #{a 27674}#
'(#(syntax-object
#f
((top)
@@ -6819,11 +6834,11 @@
#(ribcage
#(k)
#((top))
- #("i2421"))
+ #("i4408"))
#(ribcage
#(a b)
#((top) (top))
- #("i2415" "i2416"))
+ #("i4402" "i4403"))
#(ribcage () () ())
#(ribcage
#(args req opt rkey)
@@ -6831,10 +6846,10 @@
(top)
(top)
(top))
- #("i2404"
- "i2405"
- "i2406"
- "i2407"))
+ #("i4391"
+ "i4392"
+ "i4393"
+ "i4394"))
#(ribcage
(check rest key opt req)
((top)
@@ -6842,15 +6857,15 @@
(top)
(top)
(top))
- ("i2294"
- "i2292"
- "i2290"
- "i2288"
- "i2286"))
+ ("i4281"
+ "i4279"
+ "i4277"
+ "i4275"
+ "i4273"))
#(ribcage
#(orig-args)
#((top))
- #("i2285"))
+ #("i4272"))
#(ribcage
(lambda-var-list
gen-var
@@ -7124,923 +7139,925 @@
(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"))
+ ("i2454"
+ "i2452"
+ "i2450"
+ "i2448"
+ "i2446"
+ "i2444"
+ "i2442"
+ "i2440"
+ "i2438"
+ "i2436"
+ "i2434"
+ "i2432"
+ "i2430"
+ "i2428"
+ "i2426"
+ "i2424"
+ "i2422"
+ "i2420"
+ "i2418"
+ "i2416"
+ "i2414"
+ "i2412"
+ "i2410"
+ "i2408"
+ "i2406"
+ "i2404"
+ "i2402"
+ "i2400"
+ "i2398"
+ "i2396"
+ "i2394"
+ "i2392"
+ "i2390"
+ "i2388"
+ "i2386"
+ "i2385"
+ "i2383"
+ "i2380"
+ "i2379"
+ "i2378"
+ "i2376"
+ "i2375"
+ "i2373"
+ "i2371"
+ "i2369"
+ "i2367"
+ "i2365"
+ "i2363"
+ "i2361"
+ "i2359"
+ "i2356"
+ "i2354"
+ "i2353"
+ "i2351"
+ "i2349"
+ "i2347"
+ "i2345"
+ "i2344"
+ "i2343"
+ "i2342"
+ "i2340"
+ "i2339"
+ "i2336"
+ "i2334"
+ "i2332"
+ "i2330"
+ "i2328"
+ "i2326"
+ "i2324"
+ "i2323"
+ "i2322"
+ "i2320"
+ "i2318"
+ "i2317"
+ "i2314"
+ "i2313"
+ "i2311"
+ "i2309"
+ "i2307"
+ "i2305"
+ "i2303"
+ "i2301"
+ "i2299"
+ "i2297"
+ "i2295"
+ "i2292"
+ "i2290"
+ "i2288"
+ "i2286"
+ "i2284"
+ "i2282"
+ "i2280"
+ "i2278"
+ "i2276"
+ "i2274"
+ "i2272"
+ "i2270"
+ "i2268"
+ "i2266"
+ "i2264"
+ "i2262"
+ "i2260"
+ "i2258"
+ "i2256"
+ "i2254"
+ "i2252"
+ "i2250"
+ "i2248"
+ "i2247"
+ "i2244"
+ "i2242"
+ "i2241"
+ "i2240"
+ "i2239"
+ "i2238"
+ "i2236"
+ "i2234"
+ "i2232"
+ "i2229"
+ "i2227"
+ "i2225"
+ "i2223"
+ "i2221"
+ "i2219"
+ "i2217"
+ "i2215"
+ "i2213"
+ "i2211"
+ "i2209"
+ "i2207"
+ "i2205"
+ "i2203"
+ "i2201"
+ "i2199"
+ "i2197"
+ "i2195"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i46" "i45" "i44")))
+ ("i2033"
+ "i2032"
+ "i2031")))
(hygiene guile)))))
- #{rkey 25625}#))))
- #{tmp 25633}#)
- (let ((#{tmp 25670}#
+ #{rkey 27634}#))))
+ #{tmp 27642}#)
+ (let ((#{tmp 27679}#
($sc-dispatch
- #{args 25622}#
+ #{args 27631}#
'((any any) . any))))
- (if (if #{tmp 25670}#
+ (if (if #{tmp 27679}#
(@apply
- (lambda (#{a 25674}#
- #{init 25675}#
- #{b 25676}#)
- (if (symbol? #{a 25674}#)
+ (lambda (#{a 27683}#
+ #{init 27684}#
+ #{b 27685}#)
+ (if (symbol? #{a 27683}#)
#t
- (if (if (vector? #{a 25674}#)
- (if (= (vector-length #{a 25674}#) 4)
- (eq? (vector-ref #{a 25674}# 0)
+ (if (if (vector? #{a 27683}#)
+ (if (= (vector-length #{a 27683}#) 4)
+ (eq? (vector-ref #{a 27683}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{a 25674}# 1))
+ (symbol? (vector-ref #{a 27683}# 1))
#f)))
- #{tmp 25670}#)
+ #{tmp 27679}#)
#f)
(@apply
- (lambda (#{a 25703}# #{init 25704}# #{b 25705}#)
- (let ((#{tmp 25706}#
+ (lambda (#{a 27712}# #{init 27713}# #{b 27714}#)
+ (let ((#{tmp 27715}#
(symbol->keyword
- (syntax->datum #{a 25703}#))))
- (#{key 25342}#
- #{b 25705}#
- #{req 25623}#
- #{opt 25624}#
- (cons (list #{tmp 25706}#
- #{a 25703}#
- #{init 25704}#)
- #{rkey 25625}#))))
- #{tmp 25670}#)
- (let ((#{tmp 25709}#
+ (syntax->datum #{a 27712}#))))
+ (#{key 27351}#
+ #{b 27714}#
+ #{req 27632}#
+ #{opt 27633}#
+ (cons (list #{tmp 27715}#
+ #{a 27712}#
+ #{init 27713}#)
+ #{rkey 27634}#))))
+ #{tmp 27679}#)
+ (let ((#{tmp 27718}#
($sc-dispatch
- #{args 25622}#
+ #{args 27631}#
'((any any any) . any))))
- (if (if #{tmp 25709}#
+ (if (if #{tmp 27718}#
(@apply
- (lambda (#{a 25713}#
- #{init 25714}#
- #{k 25715}#
- #{b 25716}#)
- (if (if (symbol? #{a 25713}#)
+ (lambda (#{a 27722}#
+ #{init 27723}#
+ #{k 27724}#
+ #{b 27725}#)
+ (if (if (symbol? #{a 27722}#)
#t
- (if (if (vector? #{a 25713}#)
+ (if (if (vector? #{a 27722}#)
(if (= (vector-length
- #{a 25713}#)
+ #{a 27722}#)
4)
(eq? (vector-ref
- #{a 25713}#
+ #{a 27722}#
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{a 25713}# 1))
+ (vector-ref #{a 27722}# 1))
#f))
- (keyword? (syntax->datum #{k 25715}#))
+ (keyword? (syntax->datum #{k 27724}#))
#f))
- #{tmp 25709}#)
+ #{tmp 27718}#)
#f)
(@apply
- (lambda (#{a 25743}#
- #{init 25744}#
- #{k 25745}#
- #{b 25746}#)
- (#{key 25342}#
- #{b 25746}#
- #{req 25623}#
- #{opt 25624}#
- (cons (list #{k 25745}#
- #{a 25743}#
- #{init 25744}#)
- #{rkey 25625}#)))
- #{tmp 25709}#)
- (let ((#{tmp 25747}#
- ($sc-dispatch #{args 25622}# '(any))))
- (if (if #{tmp 25747}#
+ (lambda (#{a 27752}#
+ #{init 27753}#
+ #{k 27754}#
+ #{b 27755}#)
+ (#{key 27351}#
+ #{b 27755}#
+ #{req 27632}#
+ #{opt 27633}#
+ (cons (list #{k 27754}#
+ #{a 27752}#
+ #{init 27753}#)
+ #{rkey 27634}#)))
+ #{tmp 27718}#)
+ (let ((#{tmp 27756}#
+ ($sc-dispatch #{args 27631}# '(any))))
+ (if (if #{tmp 27756}#
(@apply
- (lambda (#{aok 25751}#)
- (eq? (syntax->datum #{aok 25751}#)
+ (lambda (#{aok 27760}#)
+ (eq? (syntax->datum #{aok 27760}#)
#:allow-other-keys))
- #{tmp 25747}#)
+ #{tmp 27756}#)
#f)
(@apply
- (lambda (#{aok 25752}#)
- (#{check 25344}#
- #{req 25623}#
- #{opt 25624}#
+ (lambda (#{aok 27761}#)
+ (#{check 27353}#
+ #{req 27632}#
+ #{opt 27633}#
#f
- (cons #t (reverse #{rkey 25625}#))))
- #{tmp 25747}#)
- (let ((#{tmp 25755}#
+ (cons #t (reverse #{rkey 27634}#))))
+ #{tmp 27756}#)
+ (let ((#{tmp 27764}#
($sc-dispatch
- #{args 25622}#
+ #{args 27631}#
'(any any any))))
- (if (if #{tmp 25755}#
+ (if (if #{tmp 27764}#
(@apply
- (lambda (#{aok 25759}#
- #{a 25760}#
- #{b 25761}#)
+ (lambda (#{aok 27768}#
+ #{a 27769}#
+ #{b 27770}#)
(if (eq? (syntax->datum
- #{aok 25759}#)
+ #{aok 27768}#)
#:allow-other-keys)
(eq? (syntax->datum
- #{a 25760}#)
+ #{a 27769}#)
#:rest)
#f))
- #{tmp 25755}#)
+ #{tmp 27764}#)
#f)
(@apply
- (lambda (#{aok 25762}#
- #{a 25763}#
- #{b 25764}#)
- (#{rest 25343}#
- #{b 25764}#
- #{req 25623}#
- #{opt 25624}#
+ (lambda (#{aok 27771}#
+ #{a 27772}#
+ #{b 27773}#)
+ (#{rest 27352}#
+ #{b 27773}#
+ #{req 27632}#
+ #{opt 27633}#
(cons #t
- (reverse #{rkey 25625}#))))
- #{tmp 25755}#)
- (let ((#{tmp 25767}#
+ (reverse #{rkey 27634}#))))
+ #{tmp 27764}#)
+ (let ((#{tmp 27776}#
($sc-dispatch
- #{args 25622}#
+ #{args 27631}#
'(any . any))))
- (if (if #{tmp 25767}#
+ (if (if #{tmp 27776}#
(@apply
- (lambda (#{aok 25771}#
- #{r 25772}#)
+ (lambda (#{aok 27780}#
+ #{r 27781}#)
(if (eq? (syntax->datum
- #{aok 25771}#)
+ #{aok 27780}#)
#:allow-other-keys)
- (if (symbol? #{r 25772}#)
+ (if (symbol? #{r 27781}#)
#t
(if (if (vector?
- #{r 25772}#)
+ #{r 27781}#)
(if (=
(vector-length
- #{r
25772}#)
+ #{r
27781}#)
4)
(eq? (vector-ref
- #{r
25772}#
+ #{r
27781}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{r 25772}#
+ #{r 27781}#
1))
#f))
#f))
- #{tmp 25767}#)
+ #{tmp 27776}#)
#f)
(@apply
- (lambda (#{aok 25799}# #{r 25800}#)
- (#{rest 25343}#
- #{r 25800}#
- #{req 25623}#
- #{opt 25624}#
+ (lambda (#{aok 27808}# #{r 27809}#)
+ (#{rest 27352}#
+ #{r 27809}#
+ #{req 27632}#
+ #{opt 27633}#
(cons #t
(reverse
- #{rkey 25625}#))))
- #{tmp 25767}#)
- (let ((#{tmp 25803}#
+ #{rkey 27634}#))))
+ #{tmp 27776}#)
+ (let ((#{tmp 27812}#
($sc-dispatch
- #{args 25622}#
+ #{args 27631}#
'(any any))))
- (if (if #{tmp 25803}#
+ (if (if #{tmp 27812}#
(@apply
- (lambda (#{a 25807}#
- #{b 25808}#)
+ (lambda (#{a 27816}#
+ #{b 27817}#)
(eq? (syntax->datum
- #{a 25807}#)
+ #{a 27816}#)
#:rest))
- #{tmp 25803}#)
+ #{tmp 27812}#)
#f)
(@apply
- (lambda (#{a 25809}#
- #{b 25810}#)
- (#{rest 25343}#
- #{b 25810}#
- #{req 25623}#
- #{opt 25624}#
+ (lambda (#{a 27818}#
+ #{b 27819}#)
+ (#{rest 27352}#
+ #{b 27819}#
+ #{req 27632}#
+ #{opt 27633}#
(cons #f
(reverse
- #{rkey 25625}#))))
- #{tmp 25803}#)
- (let ((#{tmp 25813}#
- (list #{args 25622}#)))
+ #{rkey 27634}#))))
+ #{tmp 27812}#)
+ (let ((#{tmp 27822}#
+ (list #{args 27631}#)))
(if (@apply
- (lambda (#{r 25815}#)
+ (lambda (#{r 27824}#)
(if (symbol?
- #{r 25815}#)
+ #{r 27824}#)
#t
(if (if (vector?
- #{r
25815}#)
+ #{r
27824}#)
(if (=
(vector-length
- #{r
25815}#)
+ #{r
27824}#)
4)
(eq?
(vector-ref
- #{r
25815}#
+ #{r
27824}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{r 25815}#
+ #{r 27824}#
1))
#f)))
- #{tmp 25813}#)
+ #{tmp 27822}#)
(@apply
- (lambda (#{r 25845}#)
- (#{rest 25343}#
- #{r 25845}#
- #{req 25623}#
- #{opt 25624}#
+ (lambda (#{r 27854}#)
+ (#{rest 27352}#
+ #{r 27854}#
+ #{req 27632}#
+ #{opt 27633}#
(cons #f
(reverse
- #{rkey
25625}#))))
- #{tmp 25813}#)
+ #{rkey
27634}#))))
+ #{tmp 27822}#)
(syntax-violation
'lambda*
"invalid keyword argument
list"
- #{orig-args 25339}#
- #{args
25622}#)))))))))))))))))))))
- (#{rest 25343}#
- (lambda (#{args 25873}#
- #{req 25874}#
- #{opt 25875}#
- #{kw 25876}#)
- (let ((#{tmp 25878}# (list #{args 25873}#)))
+ #{orig-args 27348}#
+ #{args
27631}#)))))))))))))))))))))
+ (#{rest 27352}#
+ (lambda (#{args 27882}#
+ #{req 27883}#
+ #{opt 27884}#
+ #{kw 27885}#)
+ (let ((#{tmp 27887}# (list #{args 27882}#)))
(if (@apply
- (lambda (#{r 25880}#)
- (if (symbol? #{r 25880}#)
+ (lambda (#{r 27889}#)
+ (if (symbol? #{r 27889}#)
#t
- (if (if (vector? #{r 25880}#)
- (if (= (vector-length #{r 25880}#) 4)
- (eq? (vector-ref #{r 25880}# 0)
+ (if (if (vector? #{r 27889}#)
+ (if (= (vector-length #{r 27889}#) 4)
+ (eq? (vector-ref #{r 27889}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{r 25880}# 1))
+ (symbol? (vector-ref #{r 27889}# 1))
#f)))
- #{tmp 25878}#)
+ #{tmp 27887}#)
(@apply
- (lambda (#{r 25910}#)
- (#{check 25344}#
- #{req 25874}#
- #{opt 25875}#
- #{r 25910}#
- #{kw 25876}#))
- #{tmp 25878}#)
+ (lambda (#{r 27919}#)
+ (#{check 27353}#
+ #{req 27883}#
+ #{opt 27884}#
+ #{r 27919}#
+ #{kw 27885}#))
+ #{tmp 27887}#)
(syntax-violation
'lambda*
"invalid rest argument"
- #{orig-args 25339}#
- #{args 25873}#)))))
- (#{check 25344}#
- (lambda (#{req 25914}#
- #{opt 25915}#
- #{rest 25916}#
- #{kw 25917}#)
- (if (#{distinct-bound-ids? 4325}#
+ #{orig-args 27348}#
+ #{args 27882}#)))))
+ (#{check 27353}#
+ (lambda (#{req 27923}#
+ #{opt 27924}#
+ #{rest 27925}#
+ #{kw 27926}#)
+ (if (#{distinct-bound-ids? 6312}#
(append
- #{req 25914}#
- (map car #{opt 25915}#)
- (if #{rest 25916}# (list #{rest 25916}#) '())
- (if (pair? #{kw 25917}#)
- (map cadr (cdr #{kw 25917}#))
+ #{req 27923}#
+ (map car #{opt 27924}#)
+ (if #{rest 27925}# (list #{rest 27925}#) '())
+ (if (pair? #{kw 27926}#)
+ (map cadr (cdr #{kw 27926}#))
'())))
(values
- #{req 25914}#
- #{opt 25915}#
- #{rest 25916}#
- #{kw 25917}#)
+ #{req 27923}#
+ #{opt 27924}#
+ #{rest 27925}#
+ #{kw 27926}#)
(syntax-violation
'lambda*
"duplicate identifier in argument list"
- #{orig-args 25339}#)))))
- (#{req 25340}# #{orig-args 25339}# '()))))
- (#{expand-lambda-case 4346}#
- (lambda (#{e 26033}#
- #{r 26034}#
- #{w 26035}#
- #{s 26036}#
- #{mod 26037}#
- #{get-formals 26038}#
- #{clauses 26039}#)
+ #{orig-args 27348}#)))))
+ (#{req 27349}# #{orig-args 27348}# '()))))
+ (#{expand-lambda-case 6333}#
+ (lambda (#{e 28042}#
+ #{r 28043}#
+ #{w 28044}#
+ #{s 28045}#
+ #{mod 28046}#
+ #{get-formals 28047}#
+ #{clauses 28048}#)
(letrec*
- ((#{parse-req 26040}#
- (lambda (#{req 26173}#
- #{opt 26174}#
- #{rest 26175}#
- #{kw 26176}#
- #{body 26177}#)
- (let ((#{vars 26178}#
- (map #{gen-var 4348}# #{req 26173}#))
- (#{labels 26179}#
- (#{gen-labels 4305}# #{req 26173}#)))
- (let ((#{r* 26180}#
- (#{extend-var-env 4297}#
- #{labels 26179}#
- #{vars 26178}#
- #{r 26034}#))
- (#{w* 26181}#
- (#{make-binding-wrap 4316}#
- #{req 26173}#
- #{labels 26179}#
- #{w 26035}#)))
- (#{parse-opt 26041}#
- (map syntax->datum #{req 26173}#)
- #{opt 26174}#
- #{rest 26175}#
- #{kw 26176}#
- #{body 26177}#
- (reverse #{vars 26178}#)
- #{r* 26180}#
- #{w* 26181}#
+ ((#{parse-req 28049}#
+ (lambda (#{req 28182}#
+ #{opt 28183}#
+ #{rest 28184}#
+ #{kw 28185}#
+ #{body 28186}#)
+ (let ((#{vars 28187}#
+ (map #{gen-var 6335}# #{req 28182}#))
+ (#{labels 28188}#
+ (#{gen-labels 6292}# #{req 28182}#)))
+ (let ((#{r* 28189}#
+ (#{extend-var-env 6284}#
+ #{labels 28188}#
+ #{vars 28187}#
+ #{r 28043}#))
+ (#{w* 28190}#
+ (#{make-binding-wrap 6303}#
+ #{req 28182}#
+ #{labels 28188}#
+ #{w 28044}#)))
+ (#{parse-opt 28050}#
+ (map syntax->datum #{req 28182}#)
+ #{opt 28183}#
+ #{rest 28184}#
+ #{kw 28185}#
+ #{body 28186}#
+ (reverse #{vars 28187}#)
+ #{r* 28189}#
+ #{w* 28190}#
'()
'())))))
- (#{parse-opt 26041}#
- (lambda (#{req 26395}#
- #{opt 26396}#
- #{rest 26397}#
- #{kw 26398}#
- #{body 26399}#
- #{vars 26400}#
- #{r* 26401}#
- #{w* 26402}#
- #{out 26403}#
- #{inits 26404}#)
- (if (pair? #{opt 26396}#)
- (let ((#{tmp 26405}# (car #{opt 26396}#)))
- (let ((#{tmp 26406}#
- ($sc-dispatch #{tmp 26405}# '(any any))))
- (if #{tmp 26406}#
+ (#{parse-opt 28050}#
+ (lambda (#{req 28404}#
+ #{opt 28405}#
+ #{rest 28406}#
+ #{kw 28407}#
+ #{body 28408}#
+ #{vars 28409}#
+ #{r* 28410}#
+ #{w* 28411}#
+ #{out 28412}#
+ #{inits 28413}#)
+ (if (pair? #{opt 28405}#)
+ (let ((#{tmp 28414}# (car #{opt 28405}#)))
+ (let ((#{tmp 28415}#
+ ($sc-dispatch #{tmp 28414}# '(any any))))
+ (if #{tmp 28415}#
(@apply
- (lambda (#{id 26408}# #{i 26409}#)
- (let ((#{v 26410}#
- (let ((#{id 26418}#
- (if (if (vector? #{id 26408}#)
+ (lambda (#{id 28417}# #{i 28418}#)
+ (let ((#{v 28419}#
+ (let ((#{id 28427}#
+ (if (if (vector? #{id 28417}#)
(if (= (vector-length
- #{id 26408}#)
+ #{id 28417}#)
4)
(eq? (vector-ref
- #{id 26408}#
+ #{id 28417}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{id 26408}# 1)
- #{id 26408}#)))
+ (vector-ref #{id 28417}# 1)
+ #{id 28417}#)))
(gensym
(string-append
- (symbol->string #{id 26418}#)
+ (symbol->string #{id 28427}#)
" ")))))
- (let ((#{l 26411}#
- (#{gen-labels 4305}# (list #{v 26410}#))))
- (let ((#{r** 26412}#
- (#{extend-var-env 4297}#
- #{l 26411}#
- (list #{v 26410}#)
- #{r* 26401}#)))
- (let ((#{w** 26413}#
- (#{make-binding-wrap 4316}#
- (list #{id 26408}#)
- #{l 26411}#
- #{w* 26402}#)))
- (#{parse-opt 26041}#
- #{req 26395}#
- (cdr #{opt 26396}#)
- #{rest 26397}#
- #{kw 26398}#
- #{body 26399}#
- (cons #{v 26410}# #{vars 26400}#)
- #{r** 26412}#
- #{w** 26413}#
- (cons (syntax->datum #{id 26408}#)
- #{out 26403}#)
- (cons (#{expand 4334}#
- #{i 26409}#
- #{r* 26401}#
- #{w* 26402}#
- #{mod 26037}#)
- #{inits 26404}#)))))))
- #{tmp 26406}#)
+ (let ((#{l 28420}#
+ (#{gen-labels 6292}# (list #{v 28419}#))))
+ (let ((#{r** 28421}#
+ (#{extend-var-env 6284}#
+ #{l 28420}#
+ (list #{v 28419}#)
+ #{r* 28410}#)))
+ (let ((#{w** 28422}#
+ (#{make-binding-wrap 6303}#
+ (list #{id 28417}#)
+ #{l 28420}#
+ #{w* 28411}#)))
+ (#{parse-opt 28050}#
+ #{req 28404}#
+ (cdr #{opt 28405}#)
+ #{rest 28406}#
+ #{kw 28407}#
+ #{body 28408}#
+ (cons #{v 28419}# #{vars 28409}#)
+ #{r** 28421}#
+ #{w** 28422}#
+ (cons (syntax->datum #{id 28417}#)
+ #{out 28412}#)
+ (cons (#{expand 6321}#
+ #{i 28418}#
+ #{r* 28410}#
+ #{w* 28411}#
+ #{mod 28046}#)
+ #{inits 28413}#)))))))
+ #{tmp 28415}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 26405}#))))
- (if #{rest 26397}#
- (let ((#{v 26683}#
- (let ((#{id 26693}#
- (if (if (vector? #{rest 26397}#)
- (if (= (vector-length #{rest 26397}#)
+ #{tmp 28414}#))))
+ (if #{rest 28406}#
+ (let ((#{v 28692}#
+ (let ((#{id 28702}#
+ (if (if (vector? #{rest 28406}#)
+ (if (= (vector-length #{rest 28406}#)
4)
- (eq? (vector-ref #{rest 26397}# 0)
+ (eq? (vector-ref #{rest 28406}# 0)
'syntax-object)
#f)
#f)
- (vector-ref #{rest 26397}# 1)
- #{rest 26397}#)))
+ (vector-ref #{rest 28406}# 1)
+ #{rest 28406}#)))
(gensym
(string-append
- (symbol->string #{id 26693}#)
+ (symbol->string #{id 28702}#)
" ")))))
- (let ((#{l 26684}#
- (#{gen-labels 4305}# (list #{v 26683}#))))
- (let ((#{r* 26685}#
- (#{extend-var-env 4297}#
- #{l 26684}#
- (list #{v 26683}#)
- #{r* 26401}#)))
- (let ((#{w* 26686}#
- (#{make-binding-wrap 4316}#
- (list #{rest 26397}#)
- #{l 26684}#
- #{w* 26402}#)))
- (#{parse-kw 26042}#
- #{req 26395}#
- (if (pair? #{out 26403}#)
- (reverse #{out 26403}#)
+ (let ((#{l 28693}#
+ (#{gen-labels 6292}# (list #{v 28692}#))))
+ (let ((#{r* 28694}#
+ (#{extend-var-env 6284}#
+ #{l 28693}#
+ (list #{v 28692}#)
+ #{r* 28410}#)))
+ (let ((#{w* 28695}#
+ (#{make-binding-wrap 6303}#
+ (list #{rest 28406}#)
+ #{l 28693}#
+ #{w* 28411}#)))
+ (#{parse-kw 28051}#
+ #{req 28404}#
+ (if (pair? #{out 28412}#)
+ (reverse #{out 28412}#)
#f)
- (syntax->datum #{rest 26397}#)
- (if (pair? #{kw 26398}#)
- (cdr #{kw 26398}#)
- #{kw 26398}#)
- #{body 26399}#
- (cons #{v 26683}# #{vars 26400}#)
- #{r* 26685}#
- #{w* 26686}#
- (if (pair? #{kw 26398}#) (car #{kw 26398}#) #f)
+ (syntax->datum #{rest 28406}#)
+ (if (pair? #{kw 28407}#)
+ (cdr #{kw 28407}#)
+ #{kw 28407}#)
+ #{body 28408}#
+ (cons #{v 28692}# #{vars 28409}#)
+ #{r* 28694}#
+ #{w* 28695}#
+ (if (pair? #{kw 28407}#) (car #{kw 28407}#) #f)
'()
- #{inits 26404}#)))))
- (#{parse-kw 26042}#
- #{req 26395}#
- (if (pair? #{out 26403}#)
- (reverse #{out 26403}#)
+ #{inits 28413}#)))))
+ (#{parse-kw 28051}#
+ #{req 28404}#
+ (if (pair? #{out 28412}#)
+ (reverse #{out 28412}#)
#f)
#f
- (if (pair? #{kw 26398}#)
- (cdr #{kw 26398}#)
- #{kw 26398}#)
- #{body 26399}#
- #{vars 26400}#
- #{r* 26401}#
- #{w* 26402}#
- (if (pair? #{kw 26398}#) (car #{kw 26398}#) #f)
+ (if (pair? #{kw 28407}#)
+ (cdr #{kw 28407}#)
+ #{kw 28407}#)
+ #{body 28408}#
+ #{vars 28409}#
+ #{r* 28410}#
+ #{w* 28411}#
+ (if (pair? #{kw 28407}#) (car #{kw 28407}#) #f)
'()
- #{inits 26404}#)))))
- (#{parse-kw 26042}#
- (lambda (#{req 26891}#
- #{opt 26892}#
- #{rest 26893}#
- #{kw 26894}#
- #{body 26895}#
- #{vars 26896}#
- #{r* 26897}#
- #{w* 26898}#
- #{aok 26899}#
- #{out 26900}#
- #{inits 26901}#)
- (if (pair? #{kw 26894}#)
- (let ((#{tmp 26902}# (car #{kw 26894}#)))
- (let ((#{tmp 26903}#
- ($sc-dispatch #{tmp 26902}# '(any any any))))
- (if #{tmp 26903}#
+ #{inits 28413}#)))))
+ (#{parse-kw 28051}#
+ (lambda (#{req 28900}#
+ #{opt 28901}#
+ #{rest 28902}#
+ #{kw 28903}#
+ #{body 28904}#
+ #{vars 28905}#
+ #{r* 28906}#
+ #{w* 28907}#
+ #{aok 28908}#
+ #{out 28909}#
+ #{inits 28910}#)
+ (if (pair? #{kw 28903}#)
+ (let ((#{tmp 28911}# (car #{kw 28903}#)))
+ (let ((#{tmp 28912}#
+ ($sc-dispatch #{tmp 28911}# '(any any any))))
+ (if #{tmp 28912}#
(@apply
- (lambda (#{k 26905}# #{id 26906}# #{i 26907}#)
- (let ((#{v 26908}#
- (let ((#{id 26916}#
- (if (if (vector? #{id 26906}#)
+ (lambda (#{k 28914}# #{id 28915}# #{i 28916}#)
+ (let ((#{v 28917}#
+ (let ((#{id 28925}#
+ (if (if (vector? #{id 28915}#)
(if (= (vector-length
- #{id 26906}#)
+ #{id 28915}#)
4)
(eq? (vector-ref
- #{id 26906}#
+ #{id 28915}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{id 26906}# 1)
- #{id 26906}#)))
+ (vector-ref #{id 28915}# 1)
+ #{id 28915}#)))
(gensym
(string-append
- (symbol->string #{id 26916}#)
+ (symbol->string #{id 28925}#)
" ")))))
- (let ((#{l 26909}#
- (#{gen-labels 4305}# (list #{v 26908}#))))
- (let ((#{r** 26910}#
- (#{extend-var-env 4297}#
- #{l 26909}#
- (list #{v 26908}#)
- #{r* 26897}#)))
- (let ((#{w** 26911}#
- (#{make-binding-wrap 4316}#
- (list #{id 26906}#)
- #{l 26909}#
- #{w* 26898}#)))
- (#{parse-kw 26042}#
- #{req 26891}#
- #{opt 26892}#
- #{rest 26893}#
- (cdr #{kw 26894}#)
- #{body 26895}#
- (cons #{v 26908}# #{vars 26896}#)
- #{r** 26910}#
- #{w** 26911}#
- #{aok 26899}#
- (cons (list (syntax->datum #{k 26905}#)
- (syntax->datum #{id 26906}#)
- #{v 26908}#)
- #{out 26900}#)
- (cons (#{expand 4334}#
- #{i 26907}#
- #{r* 26897}#
- #{w* 26898}#
- #{mod 26037}#)
- #{inits 26901}#)))))))
- #{tmp 26903}#)
+ (let ((#{l 28918}#
+ (#{gen-labels 6292}# (list #{v 28917}#))))
+ (let ((#{r** 28919}#
+ (#{extend-var-env 6284}#
+ #{l 28918}#
+ (list #{v 28917}#)
+ #{r* 28906}#)))
+ (let ((#{w** 28920}#
+ (#{make-binding-wrap 6303}#
+ (list #{id 28915}#)
+ #{l 28918}#
+ #{w* 28907}#)))
+ (#{parse-kw 28051}#
+ #{req 28900}#
+ #{opt 28901}#
+ #{rest 28902}#
+ (cdr #{kw 28903}#)
+ #{body 28904}#
+ (cons #{v 28917}# #{vars 28905}#)
+ #{r** 28919}#
+ #{w** 28920}#
+ #{aok 28908}#
+ (cons (list (syntax->datum #{k 28914}#)
+ (syntax->datum #{id 28915}#)
+ #{v 28917}#)
+ #{out 28909}#)
+ (cons (#{expand 6321}#
+ #{i 28916}#
+ #{r* 28906}#
+ #{w* 28907}#
+ #{mod 28046}#)
+ #{inits 28910}#)))))))
+ #{tmp 28912}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 26902}#))))
- (#{parse-body 26043}#
- #{req 26891}#
- #{opt 26892}#
- #{rest 26893}#
- (if (if #{aok 26899}#
- #{aok 26899}#
- (pair? #{out 26900}#))
- (cons #{aok 26899}# (reverse #{out 26900}#))
+ #{tmp 28911}#))))
+ (#{parse-body 28052}#
+ #{req 28900}#
+ #{opt 28901}#
+ #{rest 28902}#
+ (if (if #{aok 28908}#
+ #{aok 28908}#
+ (pair? #{out 28909}#))
+ (cons #{aok 28908}# (reverse #{out 28909}#))
#f)
- #{body 26895}#
- (reverse #{vars 26896}#)
- #{r* 26897}#
- #{w* 26898}#
- (reverse #{inits 26901}#)
+ #{body 28904}#
+ (reverse #{vars 28905}#)
+ #{r* 28906}#
+ #{w* 28907}#
+ (reverse #{inits 28910}#)
'()))))
- (#{parse-body 26043}#
- (lambda (#{req 27190}#
- #{opt 27191}#
- #{rest 27192}#
- #{kw 27193}#
- #{body 27194}#
- #{vars 27195}#
- #{r* 27196}#
- #{w* 27197}#
- #{inits 27198}#
- #{meta 27199}#)
- (let ((#{tmp 27201}#
+ (#{parse-body 28052}#
+ (lambda (#{req 29199}#
+ #{opt 29200}#
+ #{rest 29201}#
+ #{kw 29202}#
+ #{body 29203}#
+ #{vars 29204}#
+ #{r* 29205}#
+ #{w* 29206}#
+ #{inits 29207}#
+ #{meta 29208}#)
+ (let ((#{tmp 29210}#
($sc-dispatch
- #{body 27194}#
+ #{body 29203}#
'(any any . each-any))))
- (if (if #{tmp 27201}#
+ (if (if #{tmp 29210}#
(@apply
- (lambda (#{docstring 27205}# #{e1 27206}# #{e2 27207}#)
- (string? (syntax->datum #{docstring 27205}#)))
- #{tmp 27201}#)
+ (lambda (#{docstring 29214}# #{e1 29215}# #{e2 29216}#)
+ (string? (syntax->datum #{docstring 29214}#)))
+ #{tmp 29210}#)
#f)
(@apply
- (lambda (#{docstring 27208}# #{e1 27209}# #{e2 27210}#)
- (#{parse-body 26043}#
- #{req 27190}#
- #{opt 27191}#
- #{rest 27192}#
- #{kw 27193}#
- (cons #{e1 27209}# #{e2 27210}#)
- #{vars 27195}#
- #{r* 27196}#
- #{w* 27197}#
- #{inits 27198}#
+ (lambda (#{docstring 29217}# #{e1 29218}# #{e2 29219}#)
+ (#{parse-body 28052}#
+ #{req 29199}#
+ #{opt 29200}#
+ #{rest 29201}#
+ #{kw 29202}#
+ (cons #{e1 29218}# #{e2 29219}#)
+ #{vars 29204}#
+ #{r* 29205}#
+ #{w* 29206}#
+ #{inits 29207}#
(append
- #{meta 27199}#
+ #{meta 29208}#
(list (cons 'documentation
- (syntax->datum #{docstring 27208}#))))))
- #{tmp 27201}#)
- (let ((#{tmp 27211}#
+ (syntax->datum #{docstring 29217}#))))))
+ #{tmp 29210}#)
+ (let ((#{tmp 29220}#
($sc-dispatch
- #{body 27194}#
+ #{body 29203}#
'(#(vector #(each (any . any))) any . each-any))))
- (if #{tmp 27211}#
+ (if #{tmp 29220}#
(@apply
- (lambda (#{k 27215}#
- #{v 27216}#
- #{e1 27217}#
- #{e2 27218}#)
- (#{parse-body 26043}#
- #{req 27190}#
- #{opt 27191}#
- #{rest 27192}#
- #{kw 27193}#
- (cons #{e1 27217}# #{e2 27218}#)
- #{vars 27195}#
- #{r* 27196}#
- #{w* 27197}#
- #{inits 27198}#
+ (lambda (#{k 29224}#
+ #{v 29225}#
+ #{e1 29226}#
+ #{e2 29227}#)
+ (#{parse-body 28052}#
+ #{req 29199}#
+ #{opt 29200}#
+ #{rest 29201}#
+ #{kw 29202}#
+ (cons #{e1 29226}# #{e2 29227}#)
+ #{vars 29204}#
+ #{r* 29205}#
+ #{w* 29206}#
+ #{inits 29207}#
(append
- #{meta 27199}#
+ #{meta 29208}#
(syntax->datum
- (map cons #{k 27215}# #{v 27216}#)))))
- #{tmp 27211}#)
- (let ((#{tmp 27219}#
- ($sc-dispatch #{body 27194}# '(any . each-any))))
- (if #{tmp 27219}#
+ (map cons #{k 29224}# #{v 29225}#)))))
+ #{tmp 29220}#)
+ (let ((#{tmp 29228}#
+ ($sc-dispatch #{body 29203}# '(any . each-any))))
+ (if #{tmp 29228}#
(@apply
- (lambda (#{e1 27223}# #{e2 27224}#)
+ (lambda (#{e1 29232}# #{e2 29233}#)
(values
- #{meta 27199}#
- #{req 27190}#
- #{opt 27191}#
- #{rest 27192}#
- #{kw 27193}#
- #{inits 27198}#
- #{vars 27195}#
- (#{expand-body 4338}#
- (cons #{e1 27223}# #{e2 27224}#)
- (#{wrap 4327}#
+ #{meta 29208}#
+ #{req 29199}#
+ #{opt 29200}#
+ #{rest 29201}#
+ #{kw 29202}#
+ #{inits 29207}#
+ #{vars 29204}#
+ (#{expand-body 6325}#
+ (cons #{e1 29232}# #{e2 29233}#)
+ (#{wrap 6314}#
(begin
- (if (if (pair? #{e 26033}#)
- #{s 26036}#
+ (if (if (pair? #{e 28042}#)
+ #{s 28045}#
#f)
(set-source-properties!
- #{e 26033}#
- #{s 26036}#))
- #{e 26033}#)
- #{w 26035}#
- #{mod 26037}#)
- #{r* 27196}#
- #{w* 27197}#
- #{mod 26037}#)))
- #{tmp 27219}#)
+ #{e 28042}#
+ #{s 28045}#))
+ #{e 28042}#)
+ #{w 28044}#
+ #{mod 28046}#)
+ #{r* 29205}#
+ #{w* 29206}#
+ #{mod 28046}#)))
+ #{tmp 29228}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{body 27194}#))))))))))
- (let ((#{tmp 26045}#
- ($sc-dispatch #{clauses 26039}# '())))
- (if #{tmp 26045}#
+ #{body 29203}#))))))))))
+ (let ((#{tmp 28054}#
+ ($sc-dispatch #{clauses 28048}# '())))
+ (if #{tmp 28054}#
(@apply
(lambda () (values '() #f))
- #{tmp 26045}#)
- (let ((#{tmp 26049}#
+ #{tmp 28054}#)
+ (let ((#{tmp 28058}#
($sc-dispatch
- #{clauses 26039}#
+ #{clauses 28048}#
'((any any . each-any)
.
#(each (any any . each-any))))))
- (if #{tmp 26049}#
+ (if #{tmp 28058}#
(@apply
- (lambda (#{args 26053}#
- #{e1 26054}#
- #{e2 26055}#
- #{args* 26056}#
- #{e1* 26057}#
- #{e2* 26058}#)
+ (lambda (#{args 28062}#
+ #{e1 28063}#
+ #{e2 28064}#
+ #{args* 28065}#
+ #{e1* 28066}#
+ #{e2* 28067}#)
(call-with-values
(lambda ()
- (#{get-formals 26038}# #{args 26053}#))
- (lambda (#{req 26059}#
- #{opt 26060}#
- #{rest 26061}#
- #{kw 26062}#)
+ (#{get-formals 28047}# #{args 28062}#))
+ (lambda (#{req 28068}#
+ #{opt 28069}#
+ #{rest 28070}#
+ #{kw 28071}#)
(call-with-values
(lambda ()
- (#{parse-req 26040}#
- #{req 26059}#
- #{opt 26060}#
- #{rest 26061}#
- #{kw 26062}#
- (cons #{e1 26054}# #{e2 26055}#)))
- (lambda (#{meta 26129}#
- #{req 26130}#
- #{opt 26131}#
- #{rest 26132}#
- #{kw 26133}#
- #{inits 26134}#
- #{vars 26135}#
- #{body 26136}#)
+ (#{parse-req 28049}#
+ #{req 28068}#
+ #{opt 28069}#
+ #{rest 28070}#
+ #{kw 28071}#
+ (cons #{e1 28063}# #{e2 28064}#)))
+ (lambda (#{meta 28138}#
+ #{req 28139}#
+ #{opt 28140}#
+ #{rest 28141}#
+ #{kw 28142}#
+ #{inits 28143}#
+ #{vars 28144}#
+ #{body 28145}#)
(call-with-values
(lambda ()
- (#{expand-lambda-case 4346}#
- #{e 26033}#
- #{r 26034}#
- #{w 26035}#
- #{s 26036}#
- #{mod 26037}#
- #{get-formals 26038}#
- (map (lambda (#{tmp 2764 26137}#
- #{tmp 2763 26138}#
- #{tmp 2762 26139}#)
- (cons #{tmp 2762 26139}#
- (cons #{tmp 2763 26138}#
- #{tmp 2764 26137}#)))
- #{e2* 26058}#
- #{e1* 26057}#
- #{args* 26056}#)))
- (lambda (#{meta* 26140}# #{else* 26141}#)
+ (#{expand-lambda-case 6333}#
+ #{e 28042}#
+ #{r 28043}#
+ #{w 28044}#
+ #{s 28045}#
+ #{mod 28046}#
+ #{get-formals 28047}#
+ (map (lambda (#{tmp 4751 28146}#
+ #{tmp 4750 28147}#
+ #{tmp 4749 28148}#)
+ (cons #{tmp 4749 28148}#
+ (cons #{tmp 4750 28147}#
+ #{tmp 4751 28146}#)))
+ #{e2* 28067}#
+ #{e1* 28066}#
+ #{args* 28065}#)))
+ (lambda (#{meta* 28149}# #{else* 28150}#)
(values
- (append #{meta 26129}# #{meta* 26140}#)
+ (append #{meta 28138}# #{meta* 28149}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
- #{s 26036}#
- #{req 26130}#
- #{opt 26131}#
- #{rest 26132}#
- #{kw 26133}#
- #{inits 26134}#
- #{vars 26135}#
- #{body 26136}#
- #{else* 26141}#)))))))))
- #{tmp 26049}#)
+ #{s 28045}#
+ #{req 28139}#
+ #{opt 28140}#
+ #{rest 28141}#
+ #{kw 28142}#
+ #{inits 28143}#
+ #{vars 28144}#
+ #{body 28145}#
+ #{else* 28150}#)))))))))
+ #{tmp 28058}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{clauses 26039}#))))))))
- (#{strip 4347}#
- (lambda (#{x 27261}# #{w 27262}#)
- (if (memq 'top (car #{w 27262}#))
- #{x 27261}#
+ #{clauses 28048}#))))))))
+ (#{strip 6334}#
+ (lambda (#{x 29270}# #{w 29271}#)
+ (if (memq 'top (car #{w 29271}#))
+ #{x 29270}#
(letrec*
- ((#{f 27263}#
- (lambda (#{x 27266}#)
- (if (if (vector? #{x 27266}#)
- (if (= (vector-length #{x 27266}#) 4)
- (eq? (vector-ref #{x 27266}# 0) 'syntax-object)
+ ((#{f 29272}#
+ (lambda (#{x 29275}#)
+ (if (if (vector? #{x 29275}#)
+ (if (= (vector-length #{x 29275}#) 4)
+ (eq? (vector-ref #{x 29275}# 0) 'syntax-object)
#f)
#f)
- (#{strip 4347}#
- (vector-ref #{x 27266}# 1)
- (vector-ref #{x 27266}# 2))
- (if (pair? #{x 27266}#)
- (let ((#{a 27285}# (#{f 27263}# (car #{x 27266}#)))
- (#{d 27286}# (#{f 27263}# (cdr #{x 27266}#))))
- (if (if (eq? #{a 27285}# (car #{x 27266}#))
- (eq? #{d 27286}# (cdr #{x 27266}#))
+ (#{strip 6334}#
+ (vector-ref #{x 29275}# 1)
+ (vector-ref #{x 29275}# 2))
+ (if (pair? #{x 29275}#)
+ (let ((#{a 29294}# (#{f 29272}# (car #{x 29275}#)))
+ (#{d 29295}# (#{f 29272}# (cdr #{x 29275}#))))
+ (if (if (eq? #{a 29294}# (car #{x 29275}#))
+ (eq? #{d 29295}# (cdr #{x 29275}#))
#f)
- #{x 27266}#
- (cons #{a 27285}# #{d 27286}#)))
- (if (vector? #{x 27266}#)
- (let ((#{old 27289}# (vector->list #{x 27266}#)))
- (let ((#{new 27290}# (map #{f 27263}# #{old 27289}#)))
+ #{x 29275}#
+ (cons #{a 29294}# #{d 29295}#)))
+ (if (vector? #{x 29275}#)
+ (let ((#{old 29298}# (vector->list #{x 29275}#)))
+ (let ((#{new 29299}# (map #{f 29272}# #{old 29298}#)))
(letrec*
- ((#{lp 27291}#
- (lambda (#{l1 27367}# #{l2 27368}#)
- (if (null? #{l1 27367}#)
- #{x 27266}#
- (if (eq? (car #{l1 27367}#)
- (car #{l2 27368}#))
- (#{lp 27291}#
- (cdr #{l1 27367}#)
- (cdr #{l2 27368}#))
- (list->vector #{new 27290}#))))))
- (#{lp 27291}# #{old 27289}# #{new 27290}#))))
- #{x 27266}#))))))
- (#{f 27263}# #{x 27261}#)))))
- (#{gen-var 4348}#
- (lambda (#{id 26185}#)
- (let ((#{id 26186}#
- (if (if (vector? #{id 26185}#)
- (if (= (vector-length #{id 26185}#) 4)
- (eq? (vector-ref #{id 26185}# 0) 'syntax-object)
+ ((#{lp 29300}#
+ (lambda (#{l1 29376}# #{l2 29377}#)
+ (if (null? #{l1 29376}#)
+ #{x 29275}#
+ (if (eq? (car #{l1 29376}#)
+ (car #{l2 29377}#))
+ (#{lp 29300}#
+ (cdr #{l1 29376}#)
+ (cdr #{l2 29377}#))
+ (list->vector #{new 29299}#))))))
+ (#{lp 29300}# #{old 29298}# #{new 29299}#))))
+ #{x 29275}#))))))
+ (#{f 29272}# #{x 29270}#)))))
+ (#{gen-var 6335}#
+ (lambda (#{id 28194}#)
+ (let ((#{id 28195}#
+ (if (if (vector? #{id 28194}#)
+ (if (= (vector-length #{id 28194}#) 4)
+ (eq? (vector-ref #{id 28194}# 0) 'syntax-object)
#f)
#f)
- (vector-ref #{id 26185}# 1)
- #{id 26185}#)))
+ (vector-ref #{id 28194}# 1)
+ #{id 28194}#)))
(gensym
- (string-append (symbol->string #{id 26186}#) " "))))))
+ (string-append (symbol->string #{id 28195}#) " "))))))
(begin
(module-define!
(current-module)
@@ -8056,1354 +8073,1357 @@
'let-syntax
'local-syntax
#f))
- (#{global-extend 4300}#
+ (#{global-extend 6287}#
'core
'fluid-let-syntax
- (lambda (#{e 4469}#
- #{r 4470}#
- #{w 4471}#
- #{s 4472}#
- #{mod 4473}#)
- (let ((#{tmp 4475}#
+ (lambda (#{e 6456}#
+ #{r 6457}#
+ #{w 6458}#
+ #{s 6459}#
+ #{mod 6460}#)
+ (let ((#{tmp 6462}#
($sc-dispatch
- #{e 4469}#
+ #{e 6456}#
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp 4475}#
+ (if (if #{tmp 6462}#
(@apply
- (lambda (#{var 4479}#
- #{val 4480}#
- #{e1 4481}#
- #{e2 4482}#)
- (#{valid-bound-ids? 4324}# #{var 4479}#))
- #{tmp 4475}#)
+ (lambda (#{var 6466}#
+ #{val 6467}#
+ #{e1 6468}#
+ #{e2 6469}#)
+ (#{valid-bound-ids? 6311}# #{var 6466}#))
+ #{tmp 6462}#)
#f)
(@apply
- (lambda (#{var 4560}#
- #{val 4561}#
- #{e1 4562}#
- #{e2 4563}#)
- (let ((#{names 4564}#
- (map (lambda (#{x 4754}#)
- (#{id-var-name 4321}# #{x 4754}# #{w 4471}#))
- #{var 4560}#)))
+ (lambda (#{var 6547}#
+ #{val 6548}#
+ #{e1 6549}#
+ #{e2 6550}#)
+ (let ((#{names 6551}#
+ (map (lambda (#{x 6741}#)
+ (#{id-var-name 6308}# #{x 6741}# #{w 6458}#))
+ #{var 6547}#)))
(begin
(for-each
- (lambda (#{id 4565}# #{n 4566}#)
- (let ((#{atom-key 4567}#
- (car (let ((#{t 4691}#
- (assq #{n 4566}# #{r 4470}#)))
- (if #{t 4691}#
- (cdr #{t 4691}#)
- (if (symbol? #{n 4566}#)
- (let ((#{t 4696}#
+ (lambda (#{id 6552}# #{n 6553}#)
+ (let ((#{atom-key 6554}#
+ (car (let ((#{t 6678}#
+ (assq #{n 6553}# #{r 6457}#)))
+ (if #{t 6678}#
+ (cdr #{t 6678}#)
+ (if (symbol? #{n 6553}#)
+ (let ((#{t 6683}#
(begin
- (if (if (not #{mod 4473}#)
+ (if (if (not #{mod 6460}#)
(current-module)
#f)
(warn "module system is
booted, we should have a module"
- #{n 4566}#))
- (let ((#{v 4733}#
+ #{n 6553}#))
+ (let ((#{v 6720}#
(module-variable
- (if #{mod 4473}#
+ (if #{mod 6460}#
(resolve-module
- (cdr #{mod
4473}#))
+ (cdr #{mod
6460}#))
(current-module))
- #{n 4566}#)))
- (if #{v 4733}#
+ #{n 6553}#)))
+ (if #{v 6720}#
(if (variable-bound?
- #{v 4733}#)
- (let ((#{val 4742}#
+ #{v 6720}#)
+ (let ((#{val 6729}#
(variable-ref
- #{v
4733}#)))
+ #{v
6720}#)))
(if (macro?
- #{val
4742}#)
+ #{val
6729}#)
(if (macro-type
- #{val
4742}#)
+ #{val
6729}#)
(cons
(macro-type
- #{val
4742}#)
+ #{val
6729}#)
(macro-binding
- #{val
4742}#))
+ #{val
6729}#))
#f)
#f))
#f)
#f)))))
- (if #{t 4696}#
- #{t 4696}#
+ (if #{t 6683}#
+ #{t 6683}#
'(global)))
'(displaced-lexical)))))))
- (if (let ((#{t 4600}# #{atom-key 4567}#))
- (eqv? #{t 4600}# 'displaced-lexical))
+ (if (let ((#{t 6587}# #{atom-key 6554}#))
+ (eqv? #{t 6587}# 'displaced-lexical))
(syntax-violation
'fluid-let-syntax
"identifier out of context"
- #{e 4469}#
- (#{wrap 4327}#
+ #{e 6456}#
+ (#{wrap 6314}#
(begin
- (if (if (pair? #{id 4565}#) #{s 4472}# #f)
+ (if (if (pair? #{id 6552}#) #{s 6459}# #f)
(set-source-properties!
- #{id 4565}#
- #{s 4472}#))
- #{id 4565}#)
- #{w 4471}#
- #{mod 4473}#)))))
- #{var 4560}#
- #{names 4564}#)
- (#{expand-body 4338}#
- (cons #{e1 4562}# #{e2 4563}#)
- (#{wrap 4327}#
+ #{id 6552}#
+ #{s 6459}#))
+ #{id 6552}#)
+ #{w 6458}#
+ #{mod 6460}#)))))
+ #{var 6547}#
+ #{names 6551}#)
+ (#{expand-body 6325}#
+ (cons #{e1 6549}# #{e2 6550}#)
+ (#{wrap 6314}#
(begin
- (if (if (pair? #{e 4469}#) #{s 4472}# #f)
- (set-source-properties! #{e 4469}# #{s 4472}#))
- #{e 4469}#)
- #{w 4471}#
- #{mod 4473}#)
- (#{extend-env 4296}#
- #{names 4564}#
- (let ((#{trans-r 4840}#
- (#{macros-only-env 4298}# #{r 4470}#)))
- (map (lambda (#{x 4841}#)
+ (if (if (pair? #{e 6456}#) #{s 6459}# #f)
+ (set-source-properties! #{e 6456}# #{s 6459}#))
+ #{e 6456}#)
+ #{w 6458}#
+ #{mod 6460}#)
+ (#{extend-env 6283}#
+ #{names 6551}#
+ (let ((#{trans-r 6827}#
+ (#{macros-only-env 6285}# #{r 6457}#)))
+ (map (lambda (#{x 6828}#)
(cons 'macro
- (#{eval-local-transformer 4340}#
- (#{expand 4334}#
- #{x 4841}#
- #{trans-r 4840}#
- #{w 4471}#
- #{mod 4473}#)
- #{mod 4473}#)))
- #{val 4561}#))
- #{r 4470}#)
- #{w 4471}#
- #{mod 4473}#))))
- #{tmp 4475}#)
+ (#{eval-local-transformer 6327}#
+ (#{expand 6321}#
+ #{x 6828}#
+ #{trans-r 6827}#
+ #{w 6458}#
+ #{mod 6460}#)
+ #{mod 6460}#)))
+ #{val 6548}#))
+ #{r 6457}#)
+ #{w 6458}#
+ #{mod 6460}#))))
+ #{tmp 6462}#)
(syntax-violation
'fluid-let-syntax
"bad syntax"
- (#{wrap 4327}#
+ (#{wrap 6314}#
(begin
- (if (if (pair? #{e 4469}#) #{s 4472}# #f)
- (set-source-properties! #{e 4469}# #{s 4472}#))
- #{e 4469}#)
- #{w 4471}#
- #{mod 4473}#))))))
+ (if (if (pair? #{e 6456}#) #{s 6459}# #f)
+ (set-source-properties! #{e 6456}# #{s 6459}#))
+ #{e 6456}#)
+ #{w 6458}#
+ #{mod 6460}#))))))
(module-define!
(current-module)
'quote
(make-syntax-transformer
'quote
'core
- (lambda (#{e 5050}#
- #{r 5051}#
- #{w 5052}#
- #{s 5053}#
- #{mod 5054}#)
- (let ((#{tmp 5056}# ($sc-dispatch #{e 5050}# '(_ any))))
- (if #{tmp 5056}#
+ (lambda (#{e 7037}#
+ #{r 7038}#
+ #{w 7039}#
+ #{s 7040}#
+ #{mod 7041}#)
+ (let ((#{tmp 7043}# ($sc-dispatch #{e 7037}# '(_ any))))
+ (if #{tmp 7043}#
(@apply
- (lambda (#{e 5059}#)
- (let ((#{exp 5063}#
- (#{strip 4347}# #{e 5059}# #{w 5052}#)))
+ (lambda (#{e 7046}#)
+ (let ((#{exp 7050}#
+ (#{strip 6334}# #{e 7046}# #{w 7039}#)))
(make-struct/no-tail
(vector-ref %expanded-vtables 1)
- #{s 5053}#
- #{exp 5063}#)))
- #{tmp 5056}#)
+ #{s 7040}#
+ #{exp 7050}#)))
+ #{tmp 7043}#)
(syntax-violation
'quote
"bad syntax"
- (#{wrap 4327}#
+ (#{wrap 6314}#
(begin
- (if (if (pair? #{e 5050}#) #{s 5053}# #f)
- (set-source-properties! #{e 5050}# #{s 5053}#))
- #{e 5050}#)
- #{w 5052}#
- #{mod 5054}#)))))))
- (#{global-extend 4300}#
+ (if (if (pair? #{e 7037}#) #{s 7040}# #f)
+ (set-source-properties! #{e 7037}# #{s 7040}#))
+ #{e 7037}#)
+ #{w 7039}#
+ #{mod 7041}#)))))))
+ (#{global-extend 6287}#
'core
'syntax
(letrec*
- ((#{gen-syntax 5290}#
- (lambda (#{src 5392}#
- #{e 5393}#
- #{r 5394}#
- #{maps 5395}#
- #{ellipsis? 5396}#
- #{mod 5397}#)
- (if (if (symbol? #{e 5393}#)
+ ((#{gen-syntax 7277}#
+ (lambda (#{src 7379}#
+ #{e 7380}#
+ #{r 7381}#
+ #{maps 7382}#
+ #{ellipsis? 7383}#
+ #{mod 7384}#)
+ (if (if (symbol? #{e 7380}#)
#t
- (if (if (vector? #{e 5393}#)
- (if (= (vector-length #{e 5393}#) 4)
- (eq? (vector-ref #{e 5393}# 0) 'syntax-object)
+ (if (if (vector? #{e 7380}#)
+ (if (= (vector-length #{e 7380}#) 4)
+ (eq? (vector-ref #{e 7380}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{e 5393}# 1))
+ (symbol? (vector-ref #{e 7380}# 1))
#f))
- (let ((#{label 5424}#
- (#{id-var-name 4321}# #{e 5393}# '(()))))
- (let ((#{b 5425}#
- (let ((#{t 5562}# (assq #{label 5424}# #{r 5394}#)))
- (if #{t 5562}#
- (cdr #{t 5562}#)
- (if (symbol? #{label 5424}#)
- (let ((#{t 5567}#
+ (let ((#{label 7411}#
+ (#{id-var-name 6308}# #{e 7380}# '(()))))
+ (let ((#{b 7412}#
+ (let ((#{t 7549}# (assq #{label 7411}# #{r 7381}#)))
+ (if #{t 7549}#
+ (cdr #{t 7549}#)
+ (if (symbol? #{label 7411}#)
+ (let ((#{t 7554}#
(begin
- (if (if (not #{mod 5397}#)
+ (if (if (not #{mod 7384}#)
(current-module)
#f)
(warn "module system is booted, we
should have a module"
- #{label 5424}#))
- (let ((#{v 5604}#
+ #{label 7411}#))
+ (let ((#{v 7591}#
(module-variable
- (if #{mod 5397}#
+ (if #{mod 7384}#
(resolve-module
- (cdr #{mod 5397}#))
+ (cdr #{mod 7384}#))
(current-module))
- #{label 5424}#)))
- (if #{v 5604}#
- (if (variable-bound? #{v 5604}#)
- (let ((#{val 5613}#
+ #{label 7411}#)))
+ (if #{v 7591}#
+ (if (variable-bound? #{v 7591}#)
+ (let ((#{val 7600}#
(variable-ref
- #{v 5604}#)))
- (if (macro? #{val 5613}#)
+ #{v 7591}#)))
+ (if (macro? #{val 7600}#)
(if (macro-type
- #{val 5613}#)
+ #{val 7600}#)
(cons (macro-type
- #{val 5613}#)
+ #{val 7600}#)
(macro-binding
- #{val 5613}#))
+ #{val 7600}#))
#f)
#f))
#f)
#f)))))
- (if #{t 5567}# #{t 5567}# '(global)))
+ (if #{t 7554}# #{t 7554}# '(global)))
'(displaced-lexical))))))
- (if (eq? (car #{b 5425}#) 'syntax)
+ (if (eq? (car #{b 7412}#) 'syntax)
(call-with-values
(lambda ()
- (let ((#{var.lev 5458}# (cdr #{b 5425}#)))
- (#{gen-ref 5291}#
- #{src 5392}#
- (car #{var.lev 5458}#)
- (cdr #{var.lev 5458}#)
- #{maps 5395}#)))
- (lambda (#{var 5554}# #{maps 5555}#)
- (values (list 'ref #{var 5554}#) #{maps 5555}#)))
- (if (#{ellipsis? 5396}# #{e 5393}#)
+ (let ((#{var.lev 7445}# (cdr #{b 7412}#)))
+ (#{gen-ref 7278}#
+ #{src 7379}#
+ (car #{var.lev 7445}#)
+ (cdr #{var.lev 7445}#)
+ #{maps 7382}#)))
+ (lambda (#{var 7541}# #{maps 7542}#)
+ (values (list 'ref #{var 7541}#) #{maps 7542}#)))
+ (if (#{ellipsis? 7383}# #{e 7380}#)
(syntax-violation
'syntax
"misplaced ellipsis"
- #{src 5392}#)
- (values (list 'quote #{e 5393}#) #{maps 5395}#)))))
- (let ((#{tmp 5625}#
- ($sc-dispatch #{e 5393}# '(any any))))
- (if (if #{tmp 5625}#
+ #{src 7379}#)
+ (values (list 'quote #{e 7380}#) #{maps 7382}#)))))
+ (let ((#{tmp 7612}#
+ ($sc-dispatch #{e 7380}# '(any any))))
+ (if (if #{tmp 7612}#
(@apply
- (lambda (#{dots 5629}# #{e 5630}#)
- (#{ellipsis? 5396}# #{dots 5629}#))
- #{tmp 5625}#)
+ (lambda (#{dots 7616}# #{e 7617}#)
+ (#{ellipsis? 7383}# #{dots 7616}#))
+ #{tmp 7612}#)
#f)
(@apply
- (lambda (#{dots 5631}# #{e 5632}#)
- (#{gen-syntax 5290}#
- #{src 5392}#
- #{e 5632}#
- #{r 5394}#
- #{maps 5395}#
- (lambda (#{x 5633}#) #f)
- #{mod 5397}#))
- #{tmp 5625}#)
- (let ((#{tmp 5634}#
- ($sc-dispatch #{e 5393}# '(any any . any))))
- (if (if #{tmp 5634}#
+ (lambda (#{dots 7618}# #{e 7619}#)
+ (#{gen-syntax 7277}#
+ #{src 7379}#
+ #{e 7619}#
+ #{r 7381}#
+ #{maps 7382}#
+ (lambda (#{x 7620}#) #f)
+ #{mod 7384}#))
+ #{tmp 7612}#)
+ (let ((#{tmp 7621}#
+ ($sc-dispatch #{e 7380}# '(any any . any))))
+ (if (if #{tmp 7621}#
(@apply
- (lambda (#{x 5638}# #{dots 5639}# #{y 5640}#)
- (#{ellipsis? 5396}# #{dots 5639}#))
- #{tmp 5634}#)
+ (lambda (#{x 7625}# #{dots 7626}# #{y 7627}#)
+ (#{ellipsis? 7383}# #{dots 7626}#))
+ #{tmp 7621}#)
#f)
(@apply
- (lambda (#{x 5641}# #{dots 5642}# #{y 5643}#)
+ (lambda (#{x 7628}# #{dots 7629}# #{y 7630}#)
(letrec*
- ((#{f 5644}#
- (lambda (#{y 5652}# #{k 5653}#)
- (let ((#{tmp 5655}#
+ ((#{f 7631}#
+ (lambda (#{y 7639}# #{k 7640}#)
+ (let ((#{tmp 7642}#
($sc-dispatch
- #{y 5652}#
+ #{y 7639}#
'(any . any))))
- (if (if #{tmp 5655}#
+ (if (if #{tmp 7642}#
(@apply
- (lambda (#{dots 5659}# #{y 5660}#)
- (#{ellipsis? 5396}#
- #{dots 5659}#))
- #{tmp 5655}#)
+ (lambda (#{dots 7646}# #{y 7647}#)
+ (#{ellipsis? 7383}#
+ #{dots 7646}#))
+ #{tmp 7642}#)
#f)
(@apply
- (lambda (#{dots 5661}# #{y 5662}#)
- (#{f 5644}#
- #{y 5662}#
- (lambda (#{maps 5663}#)
+ (lambda (#{dots 7648}# #{y 7649}#)
+ (#{f 7631}#
+ #{y 7649}#
+ (lambda (#{maps 7650}#)
(call-with-values
(lambda ()
- (#{k 5653}#
- (cons '() #{maps 5663}#)))
- (lambda (#{x 5664}#
- #{maps 5665}#)
- (if (null? (car #{maps
5665}#))
+ (#{k 7640}#
+ (cons '() #{maps 7650}#)))
+ (lambda (#{x 7651}#
+ #{maps 7652}#)
+ (if (null? (car #{maps
7652}#))
(syntax-violation
'syntax
"extra ellipsis"
- #{src 5392}#)
+ #{src 7379}#)
(values
- (let ((#{map-env 5669}#
- (car #{maps
5665}#)))
+ (let ((#{map-env 7656}#
+ (car #{maps
7652}#)))
(list 'apply
'(primitive
append)
- (#{gen-map 5293}#
- #{x 5664}#
- #{map-env
5669}#)))
- (cdr #{maps
5665}#))))))))
- #{tmp 5655}#)
+ (#{gen-map 7280}#
+ #{x 7651}#
+ #{map-env
7656}#)))
+ (cdr #{maps
7652}#))))))))
+ #{tmp 7642}#)
(call-with-values
(lambda ()
- (#{gen-syntax 5290}#
- #{src 5392}#
- #{y 5652}#
- #{r 5394}#
- #{maps 5395}#
- #{ellipsis? 5396}#
- #{mod 5397}#))
- (lambda (#{y 5672}# #{maps 5673}#)
+ (#{gen-syntax 7277}#
+ #{src 7379}#
+ #{y 7639}#
+ #{r 7381}#
+ #{maps 7382}#
+ #{ellipsis? 7383}#
+ #{mod 7384}#))
+ (lambda (#{y 7659}# #{maps 7660}#)
(call-with-values
(lambda ()
- (#{k 5653}# #{maps 5673}#))
- (lambda (#{x 5674}# #{maps 5675}#)
+ (#{k 7640}# #{maps 7660}#))
+ (lambda (#{x 7661}# #{maps 7662}#)
(values
- (if (equal? #{y 5672}# ''())
- #{x 5674}#
+ (if (equal? #{y 7659}# ''())
+ #{x 7661}#
(list 'append
- #{x 5674}#
- #{y 5672}#))
- #{maps 5675}#))))))))))
- (#{f 5644}#
- #{y 5643}#
- (lambda (#{maps 5647}#)
+ #{x 7661}#
+ #{y 7659}#))
+ #{maps 7662}#))))))))))
+ (#{f 7631}#
+ #{y 7630}#
+ (lambda (#{maps 7634}#)
(call-with-values
(lambda ()
- (#{gen-syntax 5290}#
- #{src 5392}#
- #{x 5641}#
- #{r 5394}#
- (cons '() #{maps 5647}#)
- #{ellipsis? 5396}#
- #{mod 5397}#))
- (lambda (#{x 5648}# #{maps 5649}#)
- (if (null? (car #{maps 5649}#))
+ (#{gen-syntax 7277}#
+ #{src 7379}#
+ #{x 7628}#
+ #{r 7381}#
+ (cons '() #{maps 7634}#)
+ #{ellipsis? 7383}#
+ #{mod 7384}#))
+ (lambda (#{x 7635}# #{maps 7636}#)
+ (if (null? (car #{maps 7636}#))
(syntax-violation
'syntax
"extra ellipsis"
- #{src 5392}#)
+ #{src 7379}#)
(values
- (#{gen-map 5293}#
- #{x 5648}#
- (car #{maps 5649}#))
- (cdr #{maps 5649}#)))))))))
- #{tmp 5634}#)
- (let ((#{tmp 5691}#
- ($sc-dispatch #{e 5393}# '(any . any))))
- (if #{tmp 5691}#
+ (#{gen-map 7280}#
+ #{x 7635}#
+ (car #{maps 7636}#))
+ (cdr #{maps 7636}#)))))))))
+ #{tmp 7621}#)
+ (let ((#{tmp 7678}#
+ ($sc-dispatch #{e 7380}# '(any . any))))
+ (if #{tmp 7678}#
(@apply
- (lambda (#{x 5695}# #{y 5696}#)
+ (lambda (#{x 7682}# #{y 7683}#)
(call-with-values
(lambda ()
- (#{gen-syntax 5290}#
- #{src 5392}#
- #{x 5695}#
- #{r 5394}#
- #{maps 5395}#
- #{ellipsis? 5396}#
- #{mod 5397}#))
- (lambda (#{x 5697}# #{maps 5698}#)
+ (#{gen-syntax 7277}#
+ #{src 7379}#
+ #{x 7682}#
+ #{r 7381}#
+ #{maps 7382}#
+ #{ellipsis? 7383}#
+ #{mod 7384}#))
+ (lambda (#{x 7684}# #{maps 7685}#)
(call-with-values
(lambda ()
- (#{gen-syntax 5290}#
- #{src 5392}#
- #{y 5696}#
- #{r 5394}#
- #{maps 5698}#
- #{ellipsis? 5396}#
- #{mod 5397}#))
- (lambda (#{y 5699}# #{maps 5700}#)
+ (#{gen-syntax 7277}#
+ #{src 7379}#
+ #{y 7683}#
+ #{r 7381}#
+ #{maps 7685}#
+ #{ellipsis? 7383}#
+ #{mod 7384}#))
+ (lambda (#{y 7686}# #{maps 7687}#)
(values
- (let ((#{atom-key 5705}#
- (car #{y 5699}#)))
- (if (eqv? #{atom-key 5705}# 'quote)
- (if (eq? (car #{x 5697}#) 'quote)
+ (let ((#{atom-key 7692}#
+ (car #{y 7686}#)))
+ (if (eqv? #{atom-key 7692}# 'quote)
+ (if (eq? (car #{x 7684}#) 'quote)
(list 'quote
- (cons (car (cdr #{x
5697}#))
- (car (cdr #{y
5699}#))))
- (if (eq? (car (cdr #{y 5699}#))
+ (cons (car (cdr #{x
7684}#))
+ (car (cdr #{y
7686}#))))
+ (if (eq? (car (cdr #{y 7686}#))
'())
- (list 'list #{x 5697}#)
+ (list 'list #{x 7684}#)
(list 'cons
- #{x 5697}#
- #{y 5699}#)))
- (if (eqv? #{atom-key 5705}# 'list)
+ #{x 7684}#
+ #{y 7686}#)))
+ (if (eqv? #{atom-key 7692}# 'list)
(cons 'list
- (cons #{x 5697}#
- (cdr #{y 5699}#)))
+ (cons #{x 7684}#
+ (cdr #{y 7686}#)))
(list 'cons
- #{x 5697}#
- #{y 5699}#))))
- #{maps 5700}#))))))
- #{tmp 5691}#)
- (let ((#{tmp 5734}#
+ #{x 7684}#
+ #{y 7686}#))))
+ #{maps 7687}#))))))
+ #{tmp 7678}#)
+ (let ((#{tmp 7721}#
($sc-dispatch
- #{e 5393}#
+ #{e 7380}#
'#(vector (any . each-any)))))
- (if #{tmp 5734}#
+ (if #{tmp 7721}#
(@apply
- (lambda (#{e1 5738}# #{e2 5739}#)
+ (lambda (#{e1 7725}# #{e2 7726}#)
(call-with-values
(lambda ()
- (#{gen-syntax 5290}#
- #{src 5392}#
- (cons #{e1 5738}# #{e2 5739}#)
- #{r 5394}#
- #{maps 5395}#
- #{ellipsis? 5396}#
- #{mod 5397}#))
- (lambda (#{e 5740}# #{maps 5741}#)
+ (#{gen-syntax 7277}#
+ #{src 7379}#
+ (cons #{e1 7725}# #{e2 7726}#)
+ #{r 7381}#
+ #{maps 7382}#
+ #{ellipsis? 7383}#
+ #{mod 7384}#))
+ (lambda (#{e 7727}# #{maps 7728}#)
(values
- (if (eq? (car #{e 5740}#) 'list)
- (cons 'vector (cdr #{e 5740}#))
- (if (eq? (car #{e 5740}#) 'quote)
+ (if (eq? (car #{e 7727}#) 'list)
+ (cons 'vector (cdr #{e 7727}#))
+ (if (eq? (car #{e 7727}#) 'quote)
(list 'quote
(list->vector
- (car (cdr #{e 5740}#))))
- (list 'list->vector #{e 5740}#)))
- #{maps 5741}#))))
- #{tmp 5734}#)
+ (car (cdr #{e 7727}#))))
+ (list 'list->vector #{e 7727}#)))
+ #{maps 7728}#))))
+ #{tmp 7721}#)
(values
- (list 'quote #{e 5393}#)
- #{maps 5395}#))))))))))))
- (#{gen-ref 5291}#
- (lambda (#{src 5768}#
- #{var 5769}#
- #{level 5770}#
- #{maps 5771}#)
- (if (= #{level 5770}# 0)
- (values #{var 5769}# #{maps 5771}#)
- (if (null? #{maps 5771}#)
+ (list 'quote #{e 7380}#)
+ #{maps 7382}#))))))))))))
+ (#{gen-ref 7278}#
+ (lambda (#{src 7755}#
+ #{var 7756}#
+ #{level 7757}#
+ #{maps 7758}#)
+ (if (= #{level 7757}# 0)
+ (values #{var 7756}# #{maps 7758}#)
+ (if (null? #{maps 7758}#)
(syntax-violation
'syntax
"missing ellipsis"
- #{src 5768}#)
+ #{src 7755}#)
(call-with-values
(lambda ()
- (#{gen-ref 5291}#
- #{src 5768}#
- #{var 5769}#
- (#{1-}# #{level 5770}#)
- (cdr #{maps 5771}#)))
- (lambda (#{outer-var 5772}# #{outer-maps 5773}#)
- (let ((#{b 5774}#
- (assq #{outer-var 5772}# (car #{maps 5771}#))))
- (if #{b 5774}#
- (values (cdr #{b 5774}#) #{maps 5771}#)
- (let ((#{inner-var 5776}#
+ (#{gen-ref 7278}#
+ #{src 7755}#
+ #{var 7756}#
+ (#{1-}# #{level 7757}#)
+ (cdr #{maps 7758}#)))
+ (lambda (#{outer-var 7759}# #{outer-maps 7760}#)
+ (let ((#{b 7761}#
+ (assq #{outer-var 7759}# (car #{maps 7758}#))))
+ (if #{b 7761}#
+ (values (cdr #{b 7761}#) #{maps 7758}#)
+ (let ((#{inner-var 7763}#
(gensym
(string-append (symbol->string 'tmp) " "))))
(values
- #{inner-var 5776}#
- (cons (cons (cons #{outer-var 5772}#
- #{inner-var 5776}#)
- (car #{maps 5771}#))
- #{outer-maps 5773}#)))))))))))
- (#{gen-map 5293}#
- (lambda (#{e 5790}# #{map-env 5791}#)
- (let ((#{formals 5792}# (map cdr #{map-env 5791}#))
- (#{actuals 5793}#
- (map (lambda (#{x 5795}#)
- (list 'ref (car #{x 5795}#)))
- #{map-env 5791}#)))
- (if (eq? (car #{e 5790}#) 'ref)
- (car #{actuals 5793}#)
+ #{inner-var 7763}#
+ (cons (cons (cons #{outer-var 7759}#
+ #{inner-var 7763}#)
+ (car #{maps 7758}#))
+ #{outer-maps 7760}#)))))))))))
+ (#{gen-map 7280}#
+ (lambda (#{e 7777}# #{map-env 7778}#)
+ (let ((#{formals 7779}# (map cdr #{map-env 7778}#))
+ (#{actuals 7780}#
+ (map (lambda (#{x 7782}#)
+ (list 'ref (car #{x 7782}#)))
+ #{map-env 7778}#)))
+ (if (eq? (car #{e 7777}#) 'ref)
+ (car #{actuals 7780}#)
(if (and-map
- (lambda (#{x 5796}#)
- (if (eq? (car #{x 5796}#) 'ref)
- (memq (car (cdr #{x 5796}#)) #{formals 5792}#)
+ (lambda (#{x 7783}#)
+ (if (eq? (car #{x 7783}#) 'ref)
+ (memq (car (cdr #{x 7783}#)) #{formals 7779}#)
#f))
- (cdr #{e 5790}#))
+ (cdr #{e 7777}#))
(cons 'map
- (cons (list 'primitive (car #{e 5790}#))
- (map (let ((#{r 5798}#
+ (cons (list 'primitive (car #{e 7777}#))
+ (map (let ((#{r 7785}#
(map cons
- #{formals 5792}#
- #{actuals 5793}#)))
- (lambda (#{x 5799}#)
- (cdr (assq (car (cdr #{x 5799}#))
- #{r 5798}#))))
- (cdr #{e 5790}#))))
+ #{formals 7779}#
+ #{actuals 7780}#)))
+ (lambda (#{x 7786}#)
+ (cdr (assq (car (cdr #{x 7786}#))
+ #{r 7785}#))))
+ (cdr #{e 7777}#))))
(cons 'map
- (cons (list 'lambda #{formals 5792}# #{e 5790}#)
- #{actuals 5793}#)))))))
- (#{regen 5297}#
- (lambda (#{x 5801}#)
- (let ((#{atom-key 5802}# (car #{x 5801}#)))
- (if (eqv? #{atom-key 5802}# 'ref)
- (let ((#{name 5812}# (car (cdr #{x 5801}#)))
- (#{var 5813}# (car (cdr #{x 5801}#))))
+ (cons (list 'lambda #{formals 7779}# #{e 7777}#)
+ #{actuals 7780}#)))))))
+ (#{regen 7284}#
+ (lambda (#{x 7788}#)
+ (let ((#{atom-key 7789}# (car #{x 7788}#)))
+ (if (eqv? #{atom-key 7789}# 'ref)
+ (let ((#{name 7799}# (car (cdr #{x 7788}#)))
+ (#{var 7800}# (car (cdr #{x 7788}#))))
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
#f
- #{name 5812}#
- #{var 5813}#))
- (if (eqv? #{atom-key 5802}# 'primitive)
- (let ((#{name 5825}# (car (cdr #{x 5801}#))))
+ #{name 7799}#
+ #{var 7800}#))
+ (if (eqv? #{atom-key 7789}# 'primitive)
+ (let ((#{name 7812}# (car (cdr #{x 7788}#))))
(if (equal? (module-name (current-module)) '(guile))
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
#f
- #{name 5825}#)
+ #{name 7812}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 5)
#f
'(guile)
- #{name 5825}#
+ #{name 7812}#
#f)))
- (if (eqv? #{atom-key 5802}# 'quote)
- (let ((#{exp 5843}# (car (cdr #{x 5801}#))))
+ (if (eqv? #{atom-key 7789}# 'quote)
+ (let ((#{exp 7830}# (car (cdr #{x 7788}#))))
(make-struct/no-tail
(vector-ref %expanded-vtables 1)
#f
- #{exp 5843}#))
- (if (eqv? #{atom-key 5802}# 'lambda)
- (if (list? (car (cdr #{x 5801}#)))
- (let ((#{req 5854}# (car (cdr #{x 5801}#)))
- (#{vars 5856}# (car (cdr #{x 5801}#)))
- (#{exp 5858}#
- (#{regen 5297}#
- (car (cdr (cdr #{x 5801}#))))))
- (let ((#{body 5863}#
+ #{exp 7830}#))
+ (if (eqv? #{atom-key 7789}# 'lambda)
+ (if (list? (car (cdr #{x 7788}#)))
+ (let ((#{req 7841}# (car (cdr #{x 7788}#)))
+ (#{vars 7843}# (car (cdr #{x 7788}#)))
+ (#{exp 7845}#
+ (#{regen 7284}#
+ (car (cdr (cdr #{x 7788}#))))))
+ (let ((#{body 7850}#
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
#f
- #{req 5854}#
+ #{req 7841}#
#f
#f
#f
'()
- #{vars 5856}#
- #{exp 5858}#
+ #{vars 7843}#
+ #{exp 7845}#
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
#f
'()
- #{body 5863}#)))
- (error "how did we get here" #{x 5801}#))
- (let ((#{fun-exp 5879}#
- (let ((#{name 5888}# (car #{x 5801}#)))
+ #{body 7850}#)))
+ (error "how did we get here" #{x 7788}#))
+ (let ((#{fun-exp 7866}#
+ (let ((#{name 7875}# (car #{x 7788}#)))
(if (equal?
(module-name (current-module))
'(guile))
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
#f
- #{name 5888}#)
+ #{name 7875}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 5)
#f
'(guile)
- #{name 5888}#
+ #{name 7875}#
#f))))
- (#{arg-exps 5880}#
- (map #{regen 5297}# (cdr #{x 5801}#))))
+ (#{arg-exps 7867}#
+ (map #{regen 7284}# (cdr #{x 7788}#))))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
#f
- #{fun-exp 5879}#
- #{arg-exps 5880}#))))))))))
- (lambda (#{e 5298}#
- #{r 5299}#
- #{w 5300}#
- #{s 5301}#
- #{mod 5302}#)
- (let ((#{e 5303}#
- (#{wrap 4327}#
+ #{fun-exp 7866}#
+ #{arg-exps 7867}#))))))))))
+ (lambda (#{e 7285}#
+ #{r 7286}#
+ #{w 7287}#
+ #{s 7288}#
+ #{mod 7289}#)
+ (let ((#{e 7290}#
+ (#{wrap 6314}#
(begin
- (if (if (pair? #{e 5298}#) #{s 5301}# #f)
- (set-source-properties! #{e 5298}# #{s 5301}#))
- #{e 5298}#)
- #{w 5300}#
- #{mod 5302}#)))
- (let ((#{tmp 5305}# ($sc-dispatch #{e 5303}# '(_ any))))
- (if #{tmp 5305}#
+ (if (if (pair? #{e 7285}#) #{s 7288}# #f)
+ (set-source-properties! #{e 7285}# #{s 7288}#))
+ #{e 7285}#)
+ #{w 7287}#
+ #{mod 7289}#)))
+ (let ((#{tmp 7292}# ($sc-dispatch #{e 7290}# '(_ any))))
+ (if #{tmp 7292}#
(@apply
- (lambda (#{x 5330}#)
+ (lambda (#{x 7317}#)
(call-with-values
(lambda ()
- (#{gen-syntax 5290}#
- #{e 5303}#
- #{x 5330}#
- #{r 5299}#
+ (#{gen-syntax 7277}#
+ #{e 7290}#
+ #{x 7317}#
+ #{r 7286}#
'()
- #{ellipsis? 4342}#
- #{mod 5302}#))
- (lambda (#{e 5384}# #{maps 5385}#)
- (#{regen 5297}# #{e 5384}#))))
- #{tmp 5305}#)
+ #{ellipsis? 6329}#
+ #{mod 7289}#))
+ (lambda (#{e 7371}# #{maps 7372}#)
+ (#{regen 7284}# #{e 7371}#))))
+ #{tmp 7292}#)
(syntax-violation
'syntax
"bad `syntax' form"
- #{e 5303}#)))))))
- (#{global-extend 4300}#
+ #{e 7290}#)))))))
+ (#{global-extend 6287}#
'core
'lambda
- (lambda (#{e 6081}#
- #{r 6082}#
- #{w 6083}#
- #{s 6084}#
- #{mod 6085}#)
- (let ((#{tmp 6087}#
- ($sc-dispatch #{e 6081}# '(_ any any . each-any))))
- (if #{tmp 6087}#
+ (lambda (#{e 8068}#
+ #{r 8069}#
+ #{w 8070}#
+ #{s 8071}#
+ #{mod 8072}#)
+ (let ((#{tmp 8074}#
+ ($sc-dispatch #{e 8068}# '(_ any any . each-any))))
+ (if #{tmp 8074}#
(@apply
- (lambda (#{args 6091}# #{e1 6092}# #{e2 6093}#)
+ (lambda (#{args 8078}# #{e1 8079}# #{e2 8080}#)
(call-with-values
(lambda ()
- (#{lambda-formals 4343}# #{args 6091}#))
- (lambda (#{req 6096}#
- #{opt 6097}#
- #{rest 6098}#
- #{kw 6099}#)
+ (#{lambda-formals 6330}# #{args 8078}#))
+ (lambda (#{req 8083}#
+ #{opt 8084}#
+ #{rest 8085}#
+ #{kw 8086}#)
(letrec*
- ((#{lp 6100}#
- (lambda (#{body 6103}# #{meta 6104}#)
- (let ((#{tmp 6106}#
+ ((#{lp 8087}#
+ (lambda (#{body 8090}# #{meta 8091}#)
+ (let ((#{tmp 8093}#
($sc-dispatch
- #{body 6103}#
+ #{body 8090}#
'(any any . each-any))))
- (if (if #{tmp 6106}#
+ (if (if #{tmp 8093}#
(@apply
- (lambda (#{docstring 6110}#
- #{e1 6111}#
- #{e2 6112}#)
+ (lambda (#{docstring 8097}#
+ #{e1 8098}#
+ #{e2 8099}#)
(string?
- (syntax->datum #{docstring 6110}#)))
- #{tmp 6106}#)
+ (syntax->datum #{docstring 8097}#)))
+ #{tmp 8093}#)
#f)
(@apply
- (lambda (#{docstring 6113}#
- #{e1 6114}#
- #{e2 6115}#)
- (#{lp 6100}#
- (cons #{e1 6114}# #{e2 6115}#)
+ (lambda (#{docstring 8100}#
+ #{e1 8101}#
+ #{e2 8102}#)
+ (#{lp 8087}#
+ (cons #{e1 8101}# #{e2 8102}#)
(append
- #{meta 6104}#
+ #{meta 8091}#
(list (cons 'documentation
(syntax->datum
- #{docstring 6113}#))))))
- #{tmp 6106}#)
- (let ((#{tmp 6116}#
+ #{docstring 8100}#))))))
+ #{tmp 8093}#)
+ (let ((#{tmp 8103}#
($sc-dispatch
- #{body 6103}#
+ #{body 8090}#
'(#(vector #(each (any . any)))
any
.
each-any))))
- (if #{tmp 6116}#
+ (if #{tmp 8103}#
(@apply
- (lambda (#{k 6120}#
- #{v 6121}#
- #{e1 6122}#
- #{e2 6123}#)
- (#{lp 6100}#
- (cons #{e1 6122}# #{e2 6123}#)
+ (lambda (#{k 8107}#
+ #{v 8108}#
+ #{e1 8109}#
+ #{e2 8110}#)
+ (#{lp 8087}#
+ (cons #{e1 8109}# #{e2 8110}#)
(append
- #{meta 6104}#
+ #{meta 8091}#
(syntax->datum
(map cons
- #{k 6120}#
- #{v 6121}#)))))
- #{tmp 6116}#)
- (#{expand-simple-lambda 4344}#
- #{e 6081}#
- #{r 6082}#
- #{w 6083}#
- #{s 6084}#
- #{mod 6085}#
- #{req 6096}#
- #{rest 6098}#
- #{meta 6104}#
- #{body 6103}#))))))))
- (#{lp 6100}# (cons #{e1 6092}# #{e2 6093}#) '())))))
- #{tmp 6087}#)
+ #{k 8107}#
+ #{v 8108}#)))))
+ #{tmp 8103}#)
+ (#{expand-simple-lambda 6331}#
+ #{e 8068}#
+ #{r 8069}#
+ #{w 8070}#
+ #{s 8071}#
+ #{mod 8072}#
+ #{req 8083}#
+ #{rest 8085}#
+ #{meta 8091}#
+ #{body 8090}#))))))))
+ (#{lp 8087}# (cons #{e1 8079}# #{e2 8080}#) '())))))
+ #{tmp 8074}#)
(syntax-violation
'lambda
"bad lambda"
- #{e 6081}#)))))
- (#{global-extend 4300}#
+ #{e 8068}#)))))
+ (#{global-extend 6287}#
'core
'lambda*
- (lambda (#{e 6414}#
- #{r 6415}#
- #{w 6416}#
- #{s 6417}#
- #{mod 6418}#)
- (let ((#{tmp 6420}#
- ($sc-dispatch #{e 6414}# '(_ any any . each-any))))
- (if #{tmp 6420}#
+ (lambda (#{e 8401}#
+ #{r 8402}#
+ #{w 8403}#
+ #{s 8404}#
+ #{mod 8405}#)
+ (let ((#{tmp 8407}#
+ ($sc-dispatch #{e 8401}# '(_ any any . each-any))))
+ (if #{tmp 8407}#
(@apply
- (lambda (#{args 6424}# #{e1 6425}# #{e2 6426}#)
+ (lambda (#{args 8411}# #{e1 8412}# #{e2 8413}#)
(call-with-values
(lambda ()
- (#{expand-lambda-case 4346}#
- #{e 6414}#
- #{r 6415}#
- #{w 6416}#
- #{s 6417}#
- #{mod 6418}#
- #{lambda*-formals 4345}#
- (list (cons #{args 6424}#
- (cons #{e1 6425}# #{e2 6426}#)))))
- (lambda (#{meta 6429}# #{lcase 6430}#)
+ (#{expand-lambda-case 6333}#
+ #{e 8401}#
+ #{r 8402}#
+ #{w 8403}#
+ #{s 8404}#
+ #{mod 8405}#
+ #{lambda*-formals 6332}#
+ (list (cons #{args 8411}#
+ (cons #{e1 8412}# #{e2 8413}#)))))
+ (lambda (#{meta 8416}# #{lcase 8417}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
- #{s 6417}#
- #{meta 6429}#
- #{lcase 6430}#))))
- #{tmp 6420}#)
+ #{s 8404}#
+ #{meta 8416}#
+ #{lcase 8417}#))))
+ #{tmp 8407}#)
(syntax-violation
'lambda
"bad lambda*"
- #{e 6414}#)))))
- (#{global-extend 4300}#
+ #{e 8401}#)))))
+ (#{global-extend 6287}#
'core
'case-lambda
- (lambda (#{e 6600}#
- #{r 6601}#
- #{w 6602}#
- #{s 6603}#
- #{mod 6604}#)
- (let ((#{tmp 6606}#
+ (lambda (#{e 8587}#
+ #{r 8588}#
+ #{w 8589}#
+ #{s 8590}#
+ #{mod 8591}#)
+ (let ((#{tmp 8593}#
($sc-dispatch
- #{e 6600}#
+ #{e 8587}#
'(_ (any any . each-any)
.
#(each (any any . each-any))))))
- (if #{tmp 6606}#
+ (if #{tmp 8593}#
(@apply
- (lambda (#{args 6610}#
- #{e1 6611}#
- #{e2 6612}#
- #{args* 6613}#
- #{e1* 6614}#
- #{e2* 6615}#)
+ (lambda (#{args 8597}#
+ #{e1 8598}#
+ #{e2 8599}#
+ #{args* 8600}#
+ #{e1* 8601}#
+ #{e2* 8602}#)
(call-with-values
(lambda ()
- (#{expand-lambda-case 4346}#
- #{e 6600}#
- #{r 6601}#
- #{w 6602}#
- #{s 6603}#
- #{mod 6604}#
- #{lambda-formals 4343}#
- (cons (cons #{args 6610}#
- (cons #{e1 6611}# #{e2 6612}#))
- (map (lambda (#{tmp 3263 6618}#
- #{tmp 3262 6619}#
- #{tmp 3261 6620}#)
- (cons #{tmp 3261 6620}#
- (cons #{tmp 3262 6619}#
- #{tmp 3263 6618}#)))
- #{e2* 6615}#
- #{e1* 6614}#
- #{args* 6613}#))))
- (lambda (#{meta 6621}# #{lcase 6622}#)
+ (#{expand-lambda-case 6333}#
+ #{e 8587}#
+ #{r 8588}#
+ #{w 8589}#
+ #{s 8590}#
+ #{mod 8591}#
+ #{lambda-formals 6330}#
+ (cons (cons #{args 8597}#
+ (cons #{e1 8598}# #{e2 8599}#))
+ (map (lambda (#{tmp 5250 8605}#
+ #{tmp 5249 8606}#
+ #{tmp 5248 8607}#)
+ (cons #{tmp 5248 8607}#
+ (cons #{tmp 5249 8606}#
+ #{tmp 5250 8605}#)))
+ #{e2* 8602}#
+ #{e1* 8601}#
+ #{args* 8600}#))))
+ (lambda (#{meta 8608}# #{lcase 8609}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
- #{s 6603}#
- #{meta 6621}#
- #{lcase 6622}#))))
- #{tmp 6606}#)
+ #{s 8590}#
+ #{meta 8608}#
+ #{lcase 8609}#))))
+ #{tmp 8593}#)
(syntax-violation
'case-lambda
"bad case-lambda"
- #{e 6600}#)))))
- (#{global-extend 4300}#
+ #{e 8587}#)))))
+ (#{global-extend 6287}#
'core
'case-lambda*
- (lambda (#{e 6784}#
- #{r 6785}#
- #{w 6786}#
- #{s 6787}#
- #{mod 6788}#)
- (let ((#{tmp 6790}#
+ (lambda (#{e 8771}#
+ #{r 8772}#
+ #{w 8773}#
+ #{s 8774}#
+ #{mod 8775}#)
+ (let ((#{tmp 8777}#
($sc-dispatch
- #{e 6784}#
+ #{e 8771}#
'(_ (any any . each-any)
.
#(each (any any . each-any))))))
- (if #{tmp 6790}#
+ (if #{tmp 8777}#
(@apply
- (lambda (#{args 6794}#
- #{e1 6795}#
- #{e2 6796}#
- #{args* 6797}#
- #{e1* 6798}#
- #{e2* 6799}#)
+ (lambda (#{args 8781}#
+ #{e1 8782}#
+ #{e2 8783}#
+ #{args* 8784}#
+ #{e1* 8785}#
+ #{e2* 8786}#)
(call-with-values
(lambda ()
- (#{expand-lambda-case 4346}#
- #{e 6784}#
- #{r 6785}#
- #{w 6786}#
- #{s 6787}#
- #{mod 6788}#
- #{lambda*-formals 4345}#
- (cons (cons #{args 6794}#
- (cons #{e1 6795}# #{e2 6796}#))
- (map (lambda (#{tmp 3298 6802}#
- #{tmp 3297 6803}#
- #{tmp 3296 6804}#)
- (cons #{tmp 3296 6804}#
- (cons #{tmp 3297 6803}#
- #{tmp 3298 6802}#)))
- #{e2* 6799}#
- #{e1* 6798}#
- #{args* 6797}#))))
- (lambda (#{meta 6805}# #{lcase 6806}#)
+ (#{expand-lambda-case 6333}#
+ #{e 8771}#
+ #{r 8772}#
+ #{w 8773}#
+ #{s 8774}#
+ #{mod 8775}#
+ #{lambda*-formals 6332}#
+ (cons (cons #{args 8781}#
+ (cons #{e1 8782}# #{e2 8783}#))
+ (map (lambda (#{tmp 5285 8789}#
+ #{tmp 5284 8790}#
+ #{tmp 5283 8791}#)
+ (cons #{tmp 5283 8791}#
+ (cons #{tmp 5284 8790}#
+ #{tmp 5285 8789}#)))
+ #{e2* 8786}#
+ #{e1* 8785}#
+ #{args* 8784}#))))
+ (lambda (#{meta 8792}# #{lcase 8793}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
- #{s 6787}#
- #{meta 6805}#
- #{lcase 6806}#))))
- #{tmp 6790}#)
+ #{s 8774}#
+ #{meta 8792}#
+ #{lcase 8793}#))))
+ #{tmp 8777}#)
(syntax-violation
'case-lambda
"bad case-lambda*"
- #{e 6784}#)))))
- (#{global-extend 4300}#
+ #{e 8771}#)))))
+ (#{global-extend 6287}#
'core
'let
(letrec*
- ((#{expand-let 6997}#
- (lambda (#{e 7146}#
- #{r 7147}#
- #{w 7148}#
- #{s 7149}#
- #{mod 7150}#
- #{constructor 7151}#
- #{ids 7152}#
- #{vals 7153}#
- #{exps 7154}#)
- (if (not (#{valid-bound-ids? 4324}# #{ids 7152}#))
+ ((#{expand-let 8984}#
+ (lambda (#{e 9133}#
+ #{r 9134}#
+ #{w 9135}#
+ #{s 9136}#
+ #{mod 9137}#
+ #{constructor 9138}#
+ #{ids 9139}#
+ #{vals 9140}#
+ #{exps 9141}#)
+ (if (not (#{valid-bound-ids? 6311}# #{ids 9139}#))
(syntax-violation
'let
"duplicate bound variable"
- #{e 7146}#)
- (let ((#{labels 7232}#
- (#{gen-labels 4305}# #{ids 7152}#))
- (#{new-vars 7233}#
- (map #{gen-var 4348}# #{ids 7152}#)))
- (let ((#{nw 7234}#
- (#{make-binding-wrap 4316}#
- #{ids 7152}#
- #{labels 7232}#
- #{w 7148}#))
- (#{nr 7235}#
- (#{extend-var-env 4297}#
- #{labels 7232}#
- #{new-vars 7233}#
- #{r 7147}#)))
- (#{constructor 7151}#
- #{s 7149}#
- (map syntax->datum #{ids 7152}#)
- #{new-vars 7233}#
- (map (lambda (#{x 7252}#)
- (#{expand 4334}#
- #{x 7252}#
- #{r 7147}#
- #{w 7148}#
- #{mod 7150}#))
- #{vals 7153}#)
- (#{expand-body 4338}#
- #{exps 7154}#
- (#{source-wrap 4328}#
- #{e 7146}#
- #{nw 7234}#
- #{s 7149}#
- #{mod 7150}#)
- #{nr 7235}#
- #{nw 7234}#
- #{mod 7150}#))))))))
- (lambda (#{e 6998}#
- #{r 6999}#
- #{w 7000}#
- #{s 7001}#
- #{mod 7002}#)
- (let ((#{tmp 7004}#
+ #{e 9133}#)
+ (let ((#{labels 9219}#
+ (#{gen-labels 6292}# #{ids 9139}#))
+ (#{new-vars 9220}#
+ (map #{gen-var 6335}# #{ids 9139}#)))
+ (let ((#{nw 9221}#
+ (#{make-binding-wrap 6303}#
+ #{ids 9139}#
+ #{labels 9219}#
+ #{w 9135}#))
+ (#{nr 9222}#
+ (#{extend-var-env 6284}#
+ #{labels 9219}#
+ #{new-vars 9220}#
+ #{r 9134}#)))
+ (#{constructor 9138}#
+ #{s 9136}#
+ (map syntax->datum #{ids 9139}#)
+ #{new-vars 9220}#
+ (map (lambda (#{x 9239}#)
+ (#{expand 6321}#
+ #{x 9239}#
+ #{r 9134}#
+ #{w 9135}#
+ #{mod 9137}#))
+ #{vals 9140}#)
+ (#{expand-body 6325}#
+ #{exps 9141}#
+ (#{source-wrap 6315}#
+ #{e 9133}#
+ #{nw 9221}#
+ #{s 9136}#
+ #{mod 9137}#)
+ #{nr 9222}#
+ #{nw 9221}#
+ #{mod 9137}#))))))))
+ (lambda (#{e 8985}#
+ #{r 8986}#
+ #{w 8987}#
+ #{s 8988}#
+ #{mod 8989}#)
+ (let ((#{tmp 8991}#
($sc-dispatch
- #{e 6998}#
+ #{e 8985}#
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp 7004}#
+ (if (if #{tmp 8991}#
(@apply
- (lambda (#{id 7008}#
- #{val 7009}#
- #{e1 7010}#
- #{e2 7011}#)
- (and-map #{id? 4302}# #{id 7008}#))
- #{tmp 7004}#)
+ (lambda (#{id 8995}#
+ #{val 8996}#
+ #{e1 8997}#
+ #{e2 8998}#)
+ (and-map #{id? 6289}# #{id 8995}#))
+ #{tmp 8991}#)
#f)
(@apply
- (lambda (#{id 7027}#
- #{val 7028}#
- #{e1 7029}#
- #{e2 7030}#)
- (#{expand-let 6997}#
- #{e 6998}#
- #{r 6999}#
- #{w 7000}#
- #{s 7001}#
- #{mod 7002}#
- #{build-let 4284}#
- #{id 7027}#
- #{val 7028}#
- (cons #{e1 7029}# #{e2 7030}#)))
- #{tmp 7004}#)
- (let ((#{tmp 7060}#
+ (lambda (#{id 9014}#
+ #{val 9015}#
+ #{e1 9016}#
+ #{e2 9017}#)
+ (#{expand-let 8984}#
+ #{e 8985}#
+ #{r 8986}#
+ #{w 8987}#
+ #{s 8988}#
+ #{mod 8989}#
+ #{build-let 6271}#
+ #{id 9014}#
+ #{val 9015}#
+ (cons #{e1 9016}# #{e2 9017}#)))
+ #{tmp 8991}#)
+ (let ((#{tmp 9047}#
($sc-dispatch
- #{e 6998}#
+ #{e 8985}#
'(_ any #(each (any any)) any . each-any))))
- (if (if #{tmp 7060}#
+ (if (if #{tmp 9047}#
(@apply
- (lambda (#{f 7064}#
- #{id 7065}#
- #{val 7066}#
- #{e1 7067}#
- #{e2 7068}#)
- (if (if (symbol? #{f 7064}#)
+ (lambda (#{f 9051}#
+ #{id 9052}#
+ #{val 9053}#
+ #{e1 9054}#
+ #{e2 9055}#)
+ (if (if (symbol? #{f 9051}#)
#t
- (if (if (vector? #{f 7064}#)
- (if (= (vector-length #{f 7064}#) 4)
- (eq? (vector-ref #{f 7064}# 0)
+ (if (if (vector? #{f 9051}#)
+ (if (= (vector-length #{f 9051}#) 4)
+ (eq? (vector-ref #{f 9051}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{f 7064}# 1))
+ (symbol? (vector-ref #{f 9051}# 1))
#f))
- (and-map #{id? 4302}# #{id 7065}#)
+ (and-map #{id? 6289}# #{id 9052}#)
#f))
- #{tmp 7060}#)
+ #{tmp 9047}#)
#f)
(@apply
- (lambda (#{f 7110}#
- #{id 7111}#
- #{val 7112}#
- #{e1 7113}#
- #{e2 7114}#)
- (#{expand-let 6997}#
- #{e 6998}#
- #{r 6999}#
- #{w 7000}#
- #{s 7001}#
- #{mod 7002}#
- #{build-named-let 4285}#
- (cons #{f 7110}# #{id 7111}#)
- #{val 7112}#
- (cons #{e1 7113}# #{e2 7114}#)))
- #{tmp 7060}#)
+ (lambda (#{f 9097}#
+ #{id 9098}#
+ #{val 9099}#
+ #{e1 9100}#
+ #{e2 9101}#)
+ (#{expand-let 8984}#
+ #{e 8985}#
+ #{r 8986}#
+ #{w 8987}#
+ #{s 8988}#
+ #{mod 8989}#
+ #{build-named-let 6272}#
+ (cons #{f 9097}# #{id 9098}#)
+ #{val 9099}#
+ (cons #{e1 9100}# #{e2 9101}#)))
+ #{tmp 9047}#)
(syntax-violation
'let
"bad let"
- (#{wrap 4327}#
+ (#{wrap 6314}#
(begin
- (if (if (pair? #{e 6998}#) #{s 7001}# #f)
- (set-source-properties! #{e 6998}# #{s 7001}#))
- #{e 6998}#)
- #{w 7000}#
- #{mod 7002}#)))))))))
- (#{global-extend 4300}#
+ (if (if (pair? #{e 8985}#) #{s 8988}# #f)
+ (set-source-properties! #{e 8985}# #{s 8988}#))
+ #{e 8985}#)
+ #{w 8987}#
+ #{mod 8989}#)))))))))
+ (#{global-extend 6287}#
'core
'letrec
- (lambda (#{e 7694}#
- #{r 7695}#
- #{w 7696}#
- #{s 7697}#
- #{mod 7698}#)
- (let ((#{tmp 7700}#
+ (lambda (#{e 9681}#
+ #{r 9682}#
+ #{w 9683}#
+ #{s 9684}#
+ #{mod 9685}#)
+ (let ((#{tmp 9687}#
($sc-dispatch
- #{e 7694}#
+ #{e 9681}#
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp 7700}#
+ (if (if #{tmp 9687}#
(@apply
- (lambda (#{id 7704}#
- #{val 7705}#
- #{e1 7706}#
- #{e2 7707}#)
- (and-map #{id? 4302}# #{id 7704}#))
- #{tmp 7700}#)
+ (lambda (#{id 9691}#
+ #{val 9692}#
+ #{e1 9693}#
+ #{e2 9694}#)
+ (and-map #{id? 6289}# #{id 9691}#))
+ #{tmp 9687}#)
#f)
(@apply
- (lambda (#{id 7723}#
- #{val 7724}#
- #{e1 7725}#
- #{e2 7726}#)
- (if (not (#{valid-bound-ids? 4324}# #{id 7723}#))
+ (lambda (#{id 9710}#
+ #{val 9711}#
+ #{e1 9712}#
+ #{e2 9713}#)
+ (if (not (#{valid-bound-ids? 6311}# #{id 9710}#))
(syntax-violation
'letrec
"duplicate bound variable"
- #{e 7694}#)
- (let ((#{labels 7816}#
- (#{gen-labels 4305}# #{id 7723}#))
- (#{new-vars 7817}#
- (map #{gen-var 4348}# #{id 7723}#)))
- (let ((#{w 7818}#
- (#{make-binding-wrap 4316}#
- #{id 7723}#
- #{labels 7816}#
- #{w 7696}#))
- (#{r 7819}#
- (#{extend-var-env 4297}#
- #{labels 7816}#
- #{new-vars 7817}#
- #{r 7695}#)))
- (#{build-letrec 4286}#
- #{s 7697}#
+ #{e 9681}#)
+ (let ((#{labels 9803}#
+ (#{gen-labels 6292}# #{id 9710}#))
+ (#{new-vars 9804}#
+ (map #{gen-var 6335}# #{id 9710}#)))
+ (let ((#{w 9805}#
+ (#{make-binding-wrap 6303}#
+ #{id 9710}#
+ #{labels 9803}#
+ #{w 9683}#))
+ (#{r 9806}#
+ (#{extend-var-env 6284}#
+ #{labels 9803}#
+ #{new-vars 9804}#
+ #{r 9682}#)))
+ (#{build-letrec 6273}#
+ #{s 9684}#
#f
- (map syntax->datum #{id 7723}#)
- #{new-vars 7817}#
- (map (lambda (#{x 7906}#)
- (#{expand 4334}#
- #{x 7906}#
- #{r 7819}#
- #{w 7818}#
- #{mod 7698}#))
- #{val 7724}#)
- (#{expand-body 4338}#
- (cons #{e1 7725}# #{e2 7726}#)
- (#{wrap 4327}#
+ (map syntax->datum #{id 9710}#)
+ #{new-vars 9804}#
+ (map (lambda (#{x 9893}#)
+ (#{expand 6321}#
+ #{x 9893}#
+ #{r 9806}#
+ #{w 9805}#
+ #{mod 9685}#))
+ #{val 9711}#)
+ (#{expand-body 6325}#
+ (cons #{e1 9712}# #{e2 9713}#)
+ (#{wrap 6314}#
(begin
- (if (if (pair? #{e 7694}#) #{s 7697}# #f)
- (set-source-properties! #{e 7694}# #{s 7697}#))
- #{e 7694}#)
- #{w 7818}#
- #{mod 7698}#)
- #{r 7819}#
- #{w 7818}#
- #{mod 7698}#))))))
- #{tmp 7700}#)
+ (if (if (pair? #{e 9681}#) #{s 9684}# #f)
+ (set-source-properties! #{e 9681}# #{s 9684}#))
+ #{e 9681}#)
+ #{w 9805}#
+ #{mod 9685}#)
+ #{r 9806}#
+ #{w 9805}#
+ #{mod 9685}#))))))
+ #{tmp 9687}#)
(syntax-violation
'letrec
"bad letrec"
- (#{wrap 4327}#
+ (#{wrap 6314}#
(begin
- (if (if (pair? #{e 7694}#) #{s 7697}# #f)
- (set-source-properties! #{e 7694}# #{s 7697}#))
- #{e 7694}#)
- #{w 7696}#
- #{mod 7698}#))))))
- (#{global-extend 4300}#
+ (if (if (pair? #{e 9681}#) #{s 9684}# #f)
+ (set-source-properties! #{e 9681}# #{s 9684}#))
+ #{e 9681}#)
+ #{w 9683}#
+ #{mod 9685}#))))))
+ (#{global-extend 6287}#
'core
'letrec*
- (lambda (#{e 8323}#
- #{r 8324}#
- #{w 8325}#
- #{s 8326}#
- #{mod 8327}#)
- (let ((#{tmp 8329}#
+ (lambda (#{e 10310}#
+ #{r 10311}#
+ #{w 10312}#
+ #{s 10313}#
+ #{mod 10314}#)
+ (let ((#{tmp 10316}#
($sc-dispatch
- #{e 8323}#
+ #{e 10310}#
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp 8329}#
+ (if (if #{tmp 10316}#
(@apply
- (lambda (#{id 8333}#
- #{val 8334}#
- #{e1 8335}#
- #{e2 8336}#)
- (and-map #{id? 4302}# #{id 8333}#))
- #{tmp 8329}#)
+ (lambda (#{id 10320}#
+ #{val 10321}#
+ #{e1 10322}#
+ #{e2 10323}#)
+ (and-map #{id? 6289}# #{id 10320}#))
+ #{tmp 10316}#)
#f)
(@apply
- (lambda (#{id 8352}#
- #{val 8353}#
- #{e1 8354}#
- #{e2 8355}#)
- (if (not (#{valid-bound-ids? 4324}# #{id 8352}#))
+ (lambda (#{id 10339}#
+ #{val 10340}#
+ #{e1 10341}#
+ #{e2 10342}#)
+ (if (not (#{valid-bound-ids? 6311}# #{id 10339}#))
(syntax-violation
'letrec*
"duplicate bound variable"
- #{e 8323}#)
- (let ((#{labels 8445}#
- (#{gen-labels 4305}# #{id 8352}#))
- (#{new-vars 8446}#
- (map #{gen-var 4348}# #{id 8352}#)))
- (let ((#{w 8447}#
- (#{make-binding-wrap 4316}#
- #{id 8352}#
- #{labels 8445}#
- #{w 8325}#))
- (#{r 8448}#
- (#{extend-var-env 4297}#
- #{labels 8445}#
- #{new-vars 8446}#
- #{r 8324}#)))
- (#{build-letrec 4286}#
- #{s 8326}#
+ #{e 10310}#)
+ (let ((#{labels 10432}#
+ (#{gen-labels 6292}# #{id 10339}#))
+ (#{new-vars 10433}#
+ (map #{gen-var 6335}# #{id 10339}#)))
+ (let ((#{w 10434}#
+ (#{make-binding-wrap 6303}#
+ #{id 10339}#
+ #{labels 10432}#
+ #{w 10312}#))
+ (#{r 10435}#
+ (#{extend-var-env 6284}#
+ #{labels 10432}#
+ #{new-vars 10433}#
+ #{r 10311}#)))
+ (#{build-letrec 6273}#
+ #{s 10313}#
#t
- (map syntax->datum #{id 8352}#)
- #{new-vars 8446}#
- (map (lambda (#{x 8535}#)
- (#{expand 4334}#
- #{x 8535}#
- #{r 8448}#
- #{w 8447}#
- #{mod 8327}#))
- #{val 8353}#)
- (#{expand-body 4338}#
- (cons #{e1 8354}# #{e2 8355}#)
- (#{wrap 4327}#
+ (map syntax->datum #{id 10339}#)
+ #{new-vars 10433}#
+ (map (lambda (#{x 10522}#)
+ (#{expand 6321}#
+ #{x 10522}#
+ #{r 10435}#
+ #{w 10434}#
+ #{mod 10314}#))
+ #{val 10340}#)
+ (#{expand-body 6325}#
+ (cons #{e1 10341}# #{e2 10342}#)
+ (#{wrap 6314}#
(begin
- (if (if (pair? #{e 8323}#) #{s 8326}# #f)
- (set-source-properties! #{e 8323}# #{s 8326}#))
- #{e 8323}#)
- #{w 8447}#
- #{mod 8327}#)
- #{r 8448}#
- #{w 8447}#
- #{mod 8327}#))))))
- #{tmp 8329}#)
+ (if (if (pair? #{e 10310}#) #{s 10313}# #f)
+ (set-source-properties!
+ #{e 10310}#
+ #{s 10313}#))
+ #{e 10310}#)
+ #{w 10434}#
+ #{mod 10314}#)
+ #{r 10435}#
+ #{w 10434}#
+ #{mod 10314}#))))))
+ #{tmp 10316}#)
(syntax-violation
'letrec*
"bad letrec*"
- (#{wrap 4327}#
+ (#{wrap 6314}#
(begin
- (if (if (pair? #{e 8323}#) #{s 8326}# #f)
- (set-source-properties! #{e 8323}# #{s 8326}#))
- #{e 8323}#)
- #{w 8325}#
- #{mod 8327}#))))))
- (#{global-extend 4300}#
+ (if (if (pair? #{e 10310}#) #{s 10313}# #f)
+ (set-source-properties! #{e 10310}# #{s 10313}#))
+ #{e 10310}#)
+ #{w 10312}#
+ #{mod 10314}#))))))
+ (#{global-extend 6287}#
'core
'set!
- (lambda (#{e 8994}#
- #{r 8995}#
- #{w 8996}#
- #{s 8997}#
- #{mod 8998}#)
- (let ((#{tmp 9000}#
- ($sc-dispatch #{e 8994}# '(_ any any))))
- (if (if #{tmp 9000}#
+ (lambda (#{e 10981}#
+ #{r 10982}#
+ #{w 10983}#
+ #{s 10984}#
+ #{mod 10985}#)
+ (let ((#{tmp 10987}#
+ ($sc-dispatch #{e 10981}# '(_ any any))))
+ (if (if #{tmp 10987}#
(@apply
- (lambda (#{id 9004}# #{val 9005}#)
- (if (symbol? #{id 9004}#)
+ (lambda (#{id 10991}# #{val 10992}#)
+ (if (symbol? #{id 10991}#)
#t
- (if (if (vector? #{id 9004}#)
- (if (= (vector-length #{id 9004}#) 4)
- (eq? (vector-ref #{id 9004}# 0) 'syntax-object)
+ (if (if (vector? #{id 10991}#)
+ (if (= (vector-length #{id 10991}#) 4)
+ (eq? (vector-ref #{id 10991}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{id 9004}# 1))
+ (symbol? (vector-ref #{id 10991}# 1))
#f)))
- #{tmp 9000}#)
+ #{tmp 10987}#)
#f)
(@apply
- (lambda (#{id 9032}# #{val 9033}#)
- (let ((#{n 9034}#
- (#{id-var-name 4321}# #{id 9032}# #{w 8996}#))
- (#{id-mod 9035}#
- (if (if (vector? #{id 9032}#)
- (if (= (vector-length #{id 9032}#) 4)
- (eq? (vector-ref #{id 9032}# 0) 'syntax-object)
+ (lambda (#{id 11019}# #{val 11020}#)
+ (let ((#{n 11021}#
+ (#{id-var-name 6308}# #{id 11019}# #{w 10983}#))
+ (#{id-mod 11022}#
+ (if (if (vector? #{id 11019}#)
+ (if (= (vector-length #{id 11019}#) 4)
+ (eq? (vector-ref #{id 11019}# 0)
+ 'syntax-object)
#f)
#f)
- (vector-ref #{id 9032}# 3)
- #{mod 8998}#)))
- (let ((#{b 9036}#
- (let ((#{t 9698}# (assq #{n 9034}# #{r 8995}#)))
- (if #{t 9698}#
- (cdr #{t 9698}#)
- (if (symbol? #{n 9034}#)
- (let ((#{t 9703}#
+ (vector-ref #{id 11019}# 3)
+ #{mod 10985}#)))
+ (let ((#{b 11023}#
+ (let ((#{t 11685}# (assq #{n 11021}# #{r 10982}#)))
+ (if #{t 11685}#
+ (cdr #{t 11685}#)
+ (if (symbol? #{n 11021}#)
+ (let ((#{t 11690}#
(begin
- (if (if (not #{id-mod 9035}#)
+ (if (if (not #{id-mod 11022}#)
(current-module)
#f)
(warn "module system is booted, we
should have a module"
- #{n 9034}#))
- (let ((#{v 9740}#
+ #{n 11021}#))
+ (let ((#{v 11727}#
(module-variable
- (if #{id-mod 9035}#
+ (if #{id-mod 11022}#
(resolve-module
- (cdr #{id-mod 9035}#))
+ (cdr #{id-mod 11022}#))
(current-module))
- #{n 9034}#)))
- (if #{v 9740}#
- (if (variable-bound? #{v 9740}#)
- (let ((#{val 9749}#
+ #{n 11021}#)))
+ (if #{v 11727}#
+ (if (variable-bound? #{v 11727}#)
+ (let ((#{val 11736}#
(variable-ref
- #{v 9740}#)))
- (if (macro? #{val 9749}#)
+ #{v 11727}#)))
+ (if (macro? #{val 11736}#)
(if (macro-type
- #{val 9749}#)
+ #{val 11736}#)
(cons (macro-type
- #{val 9749}#)
+ #{val 11736}#)
(macro-binding
- #{val 9749}#))
+ #{val 11736}#))
#f)
#f))
#f)
#f)))))
- (if #{t 9703}# #{t 9703}# '(global)))
+ (if #{t 11690}# #{t 11690}# '(global)))
'(displaced-lexical))))))
- (let ((#{atom-key 9037}# (car #{b 9036}#)))
- (if (let ((#{t 9069}# #{atom-key 9037}#))
- (eqv? #{t 9069}# 'lexical))
- (#{build-lexical-assignment 4273}#
- #{s 8997}#
- (syntax->datum #{id 9032}#)
- (cdr #{b 9036}#)
- (#{expand 4334}#
- #{val 9033}#
- #{r 8995}#
- #{w 8996}#
- #{mod 8998}#))
- (if (let ((#{t 9344}# #{atom-key 9037}#))
- (eqv? #{t 9344}# 'global))
- (#{build-global-assignment 4276}#
- #{s 8997}#
- #{n 9034}#
- (#{expand 4334}#
- #{val 9033}#
- #{r 8995}#
- #{w 8996}#
- #{mod 8998}#)
- #{id-mod 9035}#)
- (if (let ((#{t 9589}# #{atom-key 9037}#))
- (eqv? #{t 9589}# 'macro))
- (let ((#{p 9652}# (cdr #{b 9036}#)))
+ (let ((#{atom-key 11024}# (car #{b 11023}#)))
+ (if (let ((#{t 11056}# #{atom-key 11024}#))
+ (eqv? #{t 11056}# 'lexical))
+ (#{build-lexical-assignment 6260}#
+ #{s 10984}#
+ (syntax->datum #{id 11019}#)
+ (cdr #{b 11023}#)
+ (#{expand 6321}#
+ #{val 11020}#
+ #{r 10982}#
+ #{w 10983}#
+ #{mod 10985}#))
+ (if (let ((#{t 11331}# #{atom-key 11024}#))
+ (eqv? #{t 11331}# 'global))
+ (#{build-global-assignment 6263}#
+ #{s 10984}#
+ #{n 11021}#
+ (#{expand 6321}#
+ #{val 11020}#
+ #{r 10982}#
+ #{w 10983}#
+ #{mod 10985}#)
+ #{id-mod 11022}#)
+ (if (let ((#{t 11576}# #{atom-key 11024}#))
+ (eqv? #{t 11576}# 'macro))
+ (let ((#{p 11639}# (cdr #{b 11023}#)))
(if (procedure-property
- #{p 9652}#
+ #{p 11639}#
'variable-transformer)
- (#{expand 4334}#
- (#{expand-macro 4337}#
- #{p 9652}#
- #{e 8994}#
- #{r 8995}#
- #{w 8996}#
- #{s 8997}#
+ (#{expand 6321}#
+ (#{expand-macro 6324}#
+ #{p 11639}#
+ #{e 10981}#
+ #{r 10982}#
+ #{w 10983}#
+ #{s 10984}#
#f
- #{mod 8998}#)
- #{r 8995}#
+ #{mod 10985}#)
+ #{r 10982}#
'(())
- #{mod 8998}#)
+ #{mod 10985}#)
(syntax-violation
'set!
"not a variable transformer"
- (#{wrap 4327}#
- #{e 8994}#
- #{w 8996}#
- #{mod 8998}#)
- (#{wrap 4327}#
- #{id 9032}#
- #{w 8996}#
- #{id-mod 9035}#))))
- (if (eqv? #{atom-key 9037}# 'displaced-lexical)
+ (#{wrap 6314}#
+ #{e 10981}#
+ #{w 10983}#
+ #{mod 10985}#)
+ (#{wrap 6314}#
+ #{id 11019}#
+ #{w 10983}#
+ #{id-mod 11022}#))))
+ (if (eqv? #{atom-key 11024}# 'displaced-lexical)
(syntax-violation
'set!
"identifier out of context"
- (#{wrap 4327}#
- #{id 9032}#
- #{w 8996}#
- #{mod 8998}#))
+ (#{wrap 6314}#
+ #{id 11019}#
+ #{w 10983}#
+ #{mod 10985}#))
(syntax-violation
'set!
"bad set!"
- (#{wrap 4327}#
+ (#{wrap 6314}#
(begin
- (if (if (pair? #{e 8994}#) #{s 8997}# #f)
+ (if (if (pair? #{e 10981}#) #{s 10984}# #f)
(set-source-properties!
- #{e 8994}#
- #{s 8997}#))
- #{e 8994}#)
- #{w 8996}#
- #{mod 8998}#))))))))))
- #{tmp 9000}#)
- (let ((#{tmp 9845}#
+ #{e 10981}#
+ #{s 10984}#))
+ #{e 10981}#)
+ #{w 10983}#
+ #{mod 10985}#))))))))))
+ #{tmp 10987}#)
+ (let ((#{tmp 11832}#
($sc-dispatch
- #{e 8994}#
+ #{e 10981}#
'(_ (any . each-any) any))))
- (if #{tmp 9845}#
+ (if #{tmp 11832}#
(@apply
- (lambda (#{head 9849}# #{tail 9850}# #{val 9851}#)
+ (lambda (#{head 11836}# #{tail 11837}# #{val 11838}#)
(call-with-values
(lambda ()
- (#{syntax-type 4333}#
- #{head 9849}#
- #{r 8995}#
+ (#{syntax-type 6320}#
+ #{head 11836}#
+ #{r 10982}#
'(())
#f
#f
- #{mod 8998}#
+ #{mod 10985}#
#t))
- (lambda (#{type 9854}#
- #{value 9855}#
- #{ee 9856}#
- #{ww 9857}#
- #{ss 9858}#
- #{modmod 9859}#)
- (if (eqv? #{type 9854}# 'module-ref)
- (let ((#{val 9863}#
- (#{expand 4334}#
- #{val 9851}#
- #{r 8995}#
- #{w 8996}#
- #{mod 8998}#)))
+ (lambda (#{type 11841}#
+ #{value 11842}#
+ #{ee 11843}#
+ #{ww 11844}#
+ #{ss 11845}#
+ #{modmod 11846}#)
+ (if (eqv? #{type 11841}# 'module-ref)
+ (let ((#{val 11850}#
+ (#{expand 6321}#
+ #{val 11838}#
+ #{r 10982}#
+ #{w 10983}#
+ #{mod 10985}#)))
(call-with-values
(lambda ()
- (#{value 9855}#
- (cons #{head 9849}# #{tail 9850}#)
- #{r 8995}#
- #{w 8996}#))
- (lambda (#{e 9864}#
- #{r 9865}#
- #{w 9866}#
- #{s* 9867}#
- #{mod 9868}#)
- (let ((#{tmp 9870}# (list #{e 9864}#)))
+ (#{value 11842}#
+ (cons #{head 11836}# #{tail 11837}#)
+ #{r 10982}#
+ #{w 10983}#))
+ (lambda (#{e 11851}#
+ #{r 11852}#
+ #{w 11853}#
+ #{s* 11854}#
+ #{mod 11855}#)
+ (let ((#{tmp 11857}# (list #{e 11851}#)))
(if (@apply
- (lambda (#{e 9872}#)
- (if (symbol? #{e 9872}#)
+ (lambda (#{e 11859}#)
+ (if (symbol? #{e 11859}#)
#t
- (if (if (vector? #{e 9872}#)
+ (if (if (vector? #{e 11859}#)
(if (= (vector-length
- #{e 9872}#)
+ #{e 11859}#)
4)
(eq? (vector-ref
- #{e 9872}#
+ #{e 11859}#
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{e 9872}# 1))
+ (vector-ref #{e 11859}# 1))
#f)))
- #{tmp 9870}#)
+ #{tmp 11857}#)
(@apply
- (lambda (#{e 9902}#)
- (#{build-global-assignment 4276}#
- #{s 8997}#
- (syntax->datum #{e 9902}#)
- #{val 9863}#
- #{mod 9868}#))
- #{tmp 9870}#)
+ (lambda (#{e 11889}#)
+ (#{build-global-assignment 6263}#
+ #{s 10984}#
+ (syntax->datum #{e 11889}#)
+ #{val 11850}#
+ #{mod 11855}#))
+ #{tmp 11857}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{e 9864}#))))))
- (#{build-application 4269}#
- #{s 8997}#
- (let ((#{e 10127}#
+ #{e 11851}#))))))
+ (#{build-application 6256}#
+ #{s 10984}#
+ (let ((#{e 12114}#
(list '#(syntax-object
setter
((top)
@@ -9417,16 +9437,16 @@
(top)
(top)
(top))
- #("i3544"
- "i3545"
- "i3546"
- "i3547"
- "i3548"
- "i3549"))
+ #("i5531"
+ "i5532"
+ "i5533"
+ "i5534"
+ "i5535"
+ "i5536"))
#(ribcage
#(head tail val)
#((top) (top) (top))
- #("i3530" "i3531" "i3532"))
+ #("i5517" "i5518" "i5519"))
#(ribcage () () ())
#(ribcage
#(e r w s mod)
@@ -9435,11 +9455,11 @@
(top)
(top)
(top))
- #("i3494"
- "i3495"
- "i3496"
- "i3497"
- "i3498"))
+ #("i5481"
+ "i5482"
+ "i5483"
+ "i5484"
+ "i5485"))
#(ribcage
(lambda-var-list
gen-var
@@ -9713,246 +9733,246 @@
(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"))
+ ("i2454"
+ "i2452"
+ "i2450"
+ "i2448"
+ "i2446"
+ "i2444"
+ "i2442"
+ "i2440"
+ "i2438"
+ "i2436"
+ "i2434"
+ "i2432"
+ "i2430"
+ "i2428"
+ "i2426"
+ "i2424"
+ "i2422"
+ "i2420"
+ "i2418"
+ "i2416"
+ "i2414"
+ "i2412"
+ "i2410"
+ "i2408"
+ "i2406"
+ "i2404"
+ "i2402"
+ "i2400"
+ "i2398"
+ "i2396"
+ "i2394"
+ "i2392"
+ "i2390"
+ "i2388"
+ "i2386"
+ "i2385"
+ "i2383"
+ "i2380"
+ "i2379"
+ "i2378"
+ "i2376"
+ "i2375"
+ "i2373"
+ "i2371"
+ "i2369"
+ "i2367"
+ "i2365"
+ "i2363"
+ "i2361"
+ "i2359"
+ "i2356"
+ "i2354"
+ "i2353"
+ "i2351"
+ "i2349"
+ "i2347"
+ "i2345"
+ "i2344"
+ "i2343"
+ "i2342"
+ "i2340"
+ "i2339"
+ "i2336"
+ "i2334"
+ "i2332"
+ "i2330"
+ "i2328"
+ "i2326"
+ "i2324"
+ "i2323"
+ "i2322"
+ "i2320"
+ "i2318"
+ "i2317"
+ "i2314"
+ "i2313"
+ "i2311"
+ "i2309"
+ "i2307"
+ "i2305"
+ "i2303"
+ "i2301"
+ "i2299"
+ "i2297"
+ "i2295"
+ "i2292"
+ "i2290"
+ "i2288"
+ "i2286"
+ "i2284"
+ "i2282"
+ "i2280"
+ "i2278"
+ "i2276"
+ "i2274"
+ "i2272"
+ "i2270"
+ "i2268"
+ "i2266"
+ "i2264"
+ "i2262"
+ "i2260"
+ "i2258"
+ "i2256"
+ "i2254"
+ "i2252"
+ "i2250"
+ "i2248"
+ "i2247"
+ "i2244"
+ "i2242"
+ "i2241"
+ "i2240"
+ "i2239"
+ "i2238"
+ "i2236"
+ "i2234"
+ "i2232"
+ "i2229"
+ "i2227"
+ "i2225"
+ "i2223"
+ "i2221"
+ "i2219"
+ "i2217"
+ "i2215"
+ "i2213"
+ "i2211"
+ "i2209"
+ "i2207"
+ "i2205"
+ "i2203"
+ "i2201"
+ "i2199"
+ "i2197"
+ "i2195"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i46" "i45" "i44")))
+ ("i2033" "i2032" "i2031")))
(hygiene guile))
- #{head 9849}#)))
+ #{head 11836}#)))
(call-with-values
(lambda ()
- (#{syntax-type 4333}#
- #{e 10127}#
- #{r 8995}#
- #{w 8996}#
- (#{source-annotation 4295}# #{e 10127}#)
+ (#{syntax-type 6320}#
+ #{e 12114}#
+ #{r 10982}#
+ #{w 10983}#
+ (#{source-annotation 6282}# #{e 12114}#)
#f
- #{mod 8998}#
+ #{mod 10985}#
#f))
- (lambda (#{type 10134}#
- #{value 10135}#
- #{e 10136}#
- #{w 10137}#
- #{s 10138}#
- #{mod 10139}#)
- (#{expand-expr 4335}#
- #{type 10134}#
- #{value 10135}#
- #{e 10136}#
- #{r 8995}#
- #{w 10137}#
- #{s 10138}#
- #{mod 10139}#))))
- (map (lambda (#{e 10143}#)
+ (lambda (#{type 12121}#
+ #{value 12122}#
+ #{e 12123}#
+ #{w 12124}#
+ #{s 12125}#
+ #{mod 12126}#)
+ (#{expand-expr 6322}#
+ #{type 12121}#
+ #{value 12122}#
+ #{e 12123}#
+ #{r 10982}#
+ #{w 12124}#
+ #{s 12125}#
+ #{mod 12126}#))))
+ (map (lambda (#{e 12130}#)
(call-with-values
(lambda ()
- (#{syntax-type 4333}#
- #{e 10143}#
- #{r 8995}#
- #{w 8996}#
- (#{source-annotation 4295}#
- #{e 10143}#)
+ (#{syntax-type 6320}#
+ #{e 12130}#
+ #{r 10982}#
+ #{w 10983}#
+ (#{source-annotation 6282}#
+ #{e 12130}#)
#f
- #{mod 8998}#
+ #{mod 10985}#
#f))
- (lambda (#{type 10158}#
- #{value 10159}#
- #{e 10160}#
- #{w 10161}#
- #{s 10162}#
- #{mod 10163}#)
- (#{expand-expr 4335}#
- #{type 10158}#
- #{value 10159}#
- #{e 10160}#
- #{r 8995}#
- #{w 10161}#
- #{s 10162}#
- #{mod 10163}#))))
+ (lambda (#{type 12145}#
+ #{value 12146}#
+ #{e 12147}#
+ #{w 12148}#
+ #{s 12149}#
+ #{mod 12150}#)
+ (#{expand-expr 6322}#
+ #{type 12145}#
+ #{value 12146}#
+ #{e 12147}#
+ #{r 10982}#
+ #{w 12148}#
+ #{s 12149}#
+ #{mod 12150}#))))
(append
- #{tail 9850}#
- (list #{val 9851}#))))))))
- #{tmp 9845}#)
+ #{tail 11837}#
+ (list #{val 11838}#))))))))
+ #{tmp 11832}#)
(syntax-violation
'set!
"bad set!"
- (#{wrap 4327}#
+ (#{wrap 6314}#
(begin
- (if (if (pair? #{e 8994}#) #{s 8997}# #f)
- (set-source-properties! #{e 8994}# #{s 8997}#))
- #{e 8994}#)
- #{w 8996}#
- #{mod 8998}#))))))))
+ (if (if (pair? #{e 10981}#) #{s 10984}# #f)
+ (set-source-properties! #{e 10981}# #{s 10984}#))
+ #{e 10981}#)
+ #{w 10983}#
+ #{mod 10985}#))))))))
(module-define!
(current-module)
'@
(make-syntax-transformer
'@
'module-ref
- (lambda (#{e 10206}# #{r 10207}# #{w 10208}#)
- (let ((#{tmp 10210}#
- ($sc-dispatch #{e 10206}# '(_ each-any any))))
- (if (if #{tmp 10210}#
+ (lambda (#{e 12193}# #{r 12194}# #{w 12195}#)
+ (let ((#{tmp 12197}#
+ ($sc-dispatch #{e 12193}# '(_ each-any any))))
+ (if (if #{tmp 12197}#
(@apply
- (lambda (#{mod 10213}# #{id 10214}#)
- (if (and-map #{id? 4302}# #{mod 10213}#)
- (if (symbol? #{id 10214}#)
+ (lambda (#{mod 12200}# #{id 12201}#)
+ (if (and-map #{id? 6289}# #{mod 12200}#)
+ (if (symbol? #{id 12201}#)
#t
- (if (if (vector? #{id 10214}#)
- (if (= (vector-length #{id 10214}#) 4)
- (eq? (vector-ref #{id 10214}# 0)
+ (if (if (vector? #{id 12201}#)
+ (if (= (vector-length #{id 12201}#) 4)
+ (eq? (vector-ref #{id 12201}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{id 10214}# 1))
+ (symbol? (vector-ref #{id 12201}# 1))
#f))
#f))
- #{tmp 10210}#)
+ #{tmp 12197}#)
#f)
(@apply
- (lambda (#{mod 10254}# #{id 10255}#)
+ (lambda (#{mod 12241}# #{id 12242}#)
(values
- (syntax->datum #{id 10255}#)
- #{r 10207}#
- #{w 10208}#
+ (syntax->datum #{id 12242}#)
+ #{r 12194}#
+ #{w 12195}#
#f
(syntax->datum
(cons '#(syntax-object
@@ -9961,12 +9981,12 @@
#(ribcage
#(mod id)
#((top) (top))
- #("i3591" "i3592"))
+ #("i5578" "i5579"))
#(ribcage () () ())
#(ribcage
#(e r w)
#((top) (top) (top))
- #("i3579" "i3580" "i3581"))
+ #("i5566" "i5567" "i5568"))
#(ribcage
(lambda-var-list
gen-var
@@ -10240,213 +10260,213 @@
(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"))
+ ("i2454"
+ "i2452"
+ "i2450"
+ "i2448"
+ "i2446"
+ "i2444"
+ "i2442"
+ "i2440"
+ "i2438"
+ "i2436"
+ "i2434"
+ "i2432"
+ "i2430"
+ "i2428"
+ "i2426"
+ "i2424"
+ "i2422"
+ "i2420"
+ "i2418"
+ "i2416"
+ "i2414"
+ "i2412"
+ "i2410"
+ "i2408"
+ "i2406"
+ "i2404"
+ "i2402"
+ "i2400"
+ "i2398"
+ "i2396"
+ "i2394"
+ "i2392"
+ "i2390"
+ "i2388"
+ "i2386"
+ "i2385"
+ "i2383"
+ "i2380"
+ "i2379"
+ "i2378"
+ "i2376"
+ "i2375"
+ "i2373"
+ "i2371"
+ "i2369"
+ "i2367"
+ "i2365"
+ "i2363"
+ "i2361"
+ "i2359"
+ "i2356"
+ "i2354"
+ "i2353"
+ "i2351"
+ "i2349"
+ "i2347"
+ "i2345"
+ "i2344"
+ "i2343"
+ "i2342"
+ "i2340"
+ "i2339"
+ "i2336"
+ "i2334"
+ "i2332"
+ "i2330"
+ "i2328"
+ "i2326"
+ "i2324"
+ "i2323"
+ "i2322"
+ "i2320"
+ "i2318"
+ "i2317"
+ "i2314"
+ "i2313"
+ "i2311"
+ "i2309"
+ "i2307"
+ "i2305"
+ "i2303"
+ "i2301"
+ "i2299"
+ "i2297"
+ "i2295"
+ "i2292"
+ "i2290"
+ "i2288"
+ "i2286"
+ "i2284"
+ "i2282"
+ "i2280"
+ "i2278"
+ "i2276"
+ "i2274"
+ "i2272"
+ "i2270"
+ "i2268"
+ "i2266"
+ "i2264"
+ "i2262"
+ "i2260"
+ "i2258"
+ "i2256"
+ "i2254"
+ "i2252"
+ "i2250"
+ "i2248"
+ "i2247"
+ "i2244"
+ "i2242"
+ "i2241"
+ "i2240"
+ "i2239"
+ "i2238"
+ "i2236"
+ "i2234"
+ "i2232"
+ "i2229"
+ "i2227"
+ "i2225"
+ "i2223"
+ "i2221"
+ "i2219"
+ "i2217"
+ "i2215"
+ "i2213"
+ "i2211"
+ "i2209"
+ "i2207"
+ "i2205"
+ "i2203"
+ "i2201"
+ "i2199"
+ "i2197"
+ "i2195"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i46" "i45" "i44")))
+ ("i2033" "i2032" "i2031")))
(hygiene guile))
- #{mod 10254}#))))
- #{tmp 10210}#)
+ #{mod 12241}#))))
+ #{tmp 12197}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 10206}#))))))
- (#{global-extend 4300}#
+ #{e 12193}#))))))
+ (#{global-extend 6287}#
'module-ref
'@@
- (lambda (#{e 10347}# #{r 10348}# #{w 10349}#)
+ (lambda (#{e 12334}# #{r 12335}# #{w 12336}#)
(letrec*
- ((#{remodulate 10350}#
- (lambda (#{x 10385}# #{mod 10386}#)
- (if (pair? #{x 10385}#)
- (cons (#{remodulate 10350}#
- (car #{x 10385}#)
- #{mod 10386}#)
- (#{remodulate 10350}#
- (cdr #{x 10385}#)
- #{mod 10386}#))
- (if (if (vector? #{x 10385}#)
- (if (= (vector-length #{x 10385}#) 4)
- (eq? (vector-ref #{x 10385}# 0) 'syntax-object)
+ ((#{remodulate 12337}#
+ (lambda (#{x 12372}# #{mod 12373}#)
+ (if (pair? #{x 12372}#)
+ (cons (#{remodulate 12337}#
+ (car #{x 12372}#)
+ #{mod 12373}#)
+ (#{remodulate 12337}#
+ (cdr #{x 12372}#)
+ #{mod 12373}#))
+ (if (if (vector? #{x 12372}#)
+ (if (= (vector-length #{x 12372}#) 4)
+ (eq? (vector-ref #{x 12372}# 0) 'syntax-object)
#f)
#f)
- (let ((#{expression 10400}#
- (#{remodulate 10350}#
- (vector-ref #{x 10385}# 1)
- #{mod 10386}#))
- (#{wrap 10401}# (vector-ref #{x 10385}# 2)))
+ (let ((#{expression 12387}#
+ (#{remodulate 12337}#
+ (vector-ref #{x 12372}# 1)
+ #{mod 12373}#))
+ (#{wrap 12388}# (vector-ref #{x 12372}# 2)))
(vector
'syntax-object
- #{expression 10400}#
- #{wrap 10401}#
- #{mod 10386}#))
- (if (vector? #{x 10385}#)
- (let ((#{n 10409}# (vector-length #{x 10385}#)))
- (let ((#{v 10410}# (make-vector #{n 10409}#)))
+ #{expression 12387}#
+ #{wrap 12388}#
+ #{mod 12373}#))
+ (if (vector? #{x 12372}#)
+ (let ((#{n 12396}# (vector-length #{x 12372}#)))
+ (let ((#{v 12397}# (make-vector #{n 12396}#)))
(letrec*
- ((#{loop 10411}#
- (lambda (#{i 10458}#)
- (if (= #{i 10458}# #{n 10409}#)
- #{v 10410}#
+ ((#{loop 12398}#
+ (lambda (#{i 12445}#)
+ (if (= #{i 12445}# #{n 12396}#)
+ #{v 12397}#
(begin
(vector-set!
- #{v 10410}#
- #{i 10458}#
- (#{remodulate 10350}#
- (vector-ref #{x 10385}# #{i 10458}#)
- #{mod 10386}#))
- (#{loop 10411}# (#{1+}# #{i 10458}#)))))))
- (#{loop 10411}# 0))))
- #{x 10385}#))))))
- (let ((#{tmp 10352}#
- ($sc-dispatch #{e 10347}# '(_ each-any any))))
- (if (if #{tmp 10352}#
+ #{v 12397}#
+ #{i 12445}#
+ (#{remodulate 12337}#
+ (vector-ref #{x 12372}# #{i 12445}#)
+ #{mod 12373}#))
+ (#{loop 12398}# (#{1+}# #{i 12445}#)))))))
+ (#{loop 12398}# 0))))
+ #{x 12372}#))))))
+ (let ((#{tmp 12339}#
+ ($sc-dispatch #{e 12334}# '(_ each-any any))))
+ (if (if #{tmp 12339}#
(@apply
- (lambda (#{mod 10356}# #{exp 10357}#)
- (and-map #{id? 4302}# #{mod 10356}#))
- #{tmp 10352}#)
+ (lambda (#{mod 12343}# #{exp 12344}#)
+ (and-map #{id? 6289}# #{mod 12343}#))
+ #{tmp 12339}#)
#f)
(@apply
- (lambda (#{mod 10373}# #{exp 10374}#)
- (let ((#{mod 10375}#
+ (lambda (#{mod 12360}# #{exp 12361}#)
+ (let ((#{mod 12362}#
(syntax->datum
(cons '#(syntax-object
private
@@ -10454,12 +10474,12 @@
#(ribcage
#(mod exp)
#((top) (top))
- #("i3635" "i3636"))
- #(ribcage (remodulate) ((top)) ("i3602"))
+ #("i5622" "i5623"))
+ #(ribcage (remodulate) ((top)) ("i5589"))
#(ribcage
#(e r w)
#((top) (top) (top))
- #("i3599" "i3600" "i3601"))
+ #("i5586" "i5587" "i5588"))
#(ribcage
(lambda-var-list
gen-var
@@ -10733,270 +10753,270 @@
(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"))
+ ("i2454"
+ "i2452"
+ "i2450"
+ "i2448"
+ "i2446"
+ "i2444"
+ "i2442"
+ "i2440"
+ "i2438"
+ "i2436"
+ "i2434"
+ "i2432"
+ "i2430"
+ "i2428"
+ "i2426"
+ "i2424"
+ "i2422"
+ "i2420"
+ "i2418"
+ "i2416"
+ "i2414"
+ "i2412"
+ "i2410"
+ "i2408"
+ "i2406"
+ "i2404"
+ "i2402"
+ "i2400"
+ "i2398"
+ "i2396"
+ "i2394"
+ "i2392"
+ "i2390"
+ "i2388"
+ "i2386"
+ "i2385"
+ "i2383"
+ "i2380"
+ "i2379"
+ "i2378"
+ "i2376"
+ "i2375"
+ "i2373"
+ "i2371"
+ "i2369"
+ "i2367"
+ "i2365"
+ "i2363"
+ "i2361"
+ "i2359"
+ "i2356"
+ "i2354"
+ "i2353"
+ "i2351"
+ "i2349"
+ "i2347"
+ "i2345"
+ "i2344"
+ "i2343"
+ "i2342"
+ "i2340"
+ "i2339"
+ "i2336"
+ "i2334"
+ "i2332"
+ "i2330"
+ "i2328"
+ "i2326"
+ "i2324"
+ "i2323"
+ "i2322"
+ "i2320"
+ "i2318"
+ "i2317"
+ "i2314"
+ "i2313"
+ "i2311"
+ "i2309"
+ "i2307"
+ "i2305"
+ "i2303"
+ "i2301"
+ "i2299"
+ "i2297"
+ "i2295"
+ "i2292"
+ "i2290"
+ "i2288"
+ "i2286"
+ "i2284"
+ "i2282"
+ "i2280"
+ "i2278"
+ "i2276"
+ "i2274"
+ "i2272"
+ "i2270"
+ "i2268"
+ "i2266"
+ "i2264"
+ "i2262"
+ "i2260"
+ "i2258"
+ "i2256"
+ "i2254"
+ "i2252"
+ "i2250"
+ "i2248"
+ "i2247"
+ "i2244"
+ "i2242"
+ "i2241"
+ "i2240"
+ "i2239"
+ "i2238"
+ "i2236"
+ "i2234"
+ "i2232"
+ "i2229"
+ "i2227"
+ "i2225"
+ "i2223"
+ "i2221"
+ "i2219"
+ "i2217"
+ "i2215"
+ "i2213"
+ "i2211"
+ "i2209"
+ "i2207"
+ "i2205"
+ "i2203"
+ "i2201"
+ "i2199"
+ "i2197"
+ "i2195"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i46" "i45" "i44")))
+ ("i2033" "i2032" "i2031")))
(hygiene guile))
- #{mod 10373}#))))
+ #{mod 12360}#))))
(values
- (#{remodulate 10350}#
- #{exp 10374}#
- #{mod 10375}#)
- #{r 10348}#
- #{w 10349}#
- (#{source-annotation 4295}# #{exp 10374}#)
- #{mod 10375}#)))
- #{tmp 10352}#)
+ (#{remodulate 12337}#
+ #{exp 12361}#
+ #{mod 12362}#)
+ #{r 12335}#
+ #{w 12336}#
+ (#{source-annotation 6282}# #{exp 12361}#)
+ #{mod 12362}#)))
+ #{tmp 12339}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 10347}#))))))
- (#{global-extend 4300}#
+ #{e 12334}#))))))
+ (#{global-extend 6287}#
'core
'if
- (lambda (#{e 10559}#
- #{r 10560}#
- #{w 10561}#
- #{s 10562}#
- #{mod 10563}#)
- (let ((#{tmp 10565}#
- ($sc-dispatch #{e 10559}# '(_ any any))))
- (if #{tmp 10565}#
+ (lambda (#{e 12546}#
+ #{r 12547}#
+ #{w 12548}#
+ #{s 12549}#
+ #{mod 12550}#)
+ (let ((#{tmp 12552}#
+ ($sc-dispatch #{e 12546}# '(_ any any))))
+ (if #{tmp 12552}#
(@apply
- (lambda (#{test 10569}# #{then 10570}#)
- (#{build-conditional 4270}#
- #{s 10562}#
- (#{expand 4334}#
- #{test 10569}#
- #{r 10560}#
- #{w 10561}#
- #{mod 10563}#)
- (#{expand 4334}#
- #{then 10570}#
- #{r 10560}#
- #{w 10561}#
- #{mod 10563}#)
+ (lambda (#{test 12556}# #{then 12557}#)
+ (#{build-conditional 6257}#
+ #{s 12549}#
+ (#{expand 6321}#
+ #{test 12556}#
+ #{r 12547}#
+ #{w 12548}#
+ #{mod 12550}#)
+ (#{expand 6321}#
+ #{then 12557}#
+ #{r 12547}#
+ #{w 12548}#
+ #{mod 12550}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 0)
#f)))
- #{tmp 10565}#)
- (let ((#{tmp 10795}#
- ($sc-dispatch #{e 10559}# '(_ any any any))))
- (if #{tmp 10795}#
+ #{tmp 12552}#)
+ (let ((#{tmp 12782}#
+ ($sc-dispatch #{e 12546}# '(_ any any any))))
+ (if #{tmp 12782}#
(@apply
- (lambda (#{test 10799}# #{then 10800}# #{else 10801}#)
- (#{build-conditional 4270}#
- #{s 10562}#
- (#{expand 4334}#
- #{test 10799}#
- #{r 10560}#
- #{w 10561}#
- #{mod 10563}#)
- (#{expand 4334}#
- #{then 10800}#
- #{r 10560}#
- #{w 10561}#
- #{mod 10563}#)
- (#{expand 4334}#
- #{else 10801}#
- #{r 10560}#
- #{w 10561}#
- #{mod 10563}#)))
- #{tmp 10795}#)
+ (lambda (#{test 12786}# #{then 12787}# #{else 12788}#)
+ (#{build-conditional 6257}#
+ #{s 12549}#
+ (#{expand 6321}#
+ #{test 12786}#
+ #{r 12547}#
+ #{w 12548}#
+ #{mod 12550}#)
+ (#{expand 6321}#
+ #{then 12787}#
+ #{r 12547}#
+ #{w 12548}#
+ #{mod 12550}#)
+ (#{expand 6321}#
+ #{else 12788}#
+ #{r 12547}#
+ #{w 12548}#
+ #{mod 12550}#)))
+ #{tmp 12782}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 10559}#)))))))
- (#{global-extend 4300}#
+ #{e 12546}#)))))))
+ (#{global-extend 6287}#
'core
'with-fluids
- (lambda (#{e 11200}#
- #{r 11201}#
- #{w 11202}#
- #{s 11203}#
- #{mod 11204}#)
- (let ((#{tmp 11206}#
+ (lambda (#{e 13187}#
+ #{r 13188}#
+ #{w 13189}#
+ #{s 13190}#
+ #{mod 13191}#)
+ (let ((#{tmp 13193}#
($sc-dispatch
- #{e 11200}#
+ #{e 13187}#
'(_ #(each (any any)) any . each-any))))
- (if #{tmp 11206}#
+ (if #{tmp 13193}#
(@apply
- (lambda (#{fluid 11210}#
- #{val 11211}#
- #{b 11212}#
- #{b* 11213}#)
- (#{build-dynlet 4271}#
- #{s 11203}#
- (map (lambda (#{x 11294}#)
- (#{expand 4334}#
- #{x 11294}#
- #{r 11201}#
- #{w 11202}#
- #{mod 11204}#))
- #{fluid 11210}#)
- (map (lambda (#{x 11364}#)
- (#{expand 4334}#
- #{x 11364}#
- #{r 11201}#
- #{w 11202}#
- #{mod 11204}#))
- #{val 11211}#)
- (#{expand-body 4338}#
- (cons #{b 11212}# #{b* 11213}#)
- (#{wrap 4327}#
+ (lambda (#{fluid 13197}#
+ #{val 13198}#
+ #{b 13199}#
+ #{b* 13200}#)
+ (#{build-dynlet 6258}#
+ #{s 13190}#
+ (map (lambda (#{x 13281}#)
+ (#{expand 6321}#
+ #{x 13281}#
+ #{r 13188}#
+ #{w 13189}#
+ #{mod 13191}#))
+ #{fluid 13197}#)
+ (map (lambda (#{x 13351}#)
+ (#{expand 6321}#
+ #{x 13351}#
+ #{r 13188}#
+ #{w 13189}#
+ #{mod 13191}#))
+ #{val 13198}#)
+ (#{expand-body 6325}#
+ (cons #{b 13199}# #{b* 13200}#)
+ (#{wrap 6314}#
(begin
- (if (if (pair? #{e 11200}#) #{s 11203}# #f)
- (set-source-properties! #{e 11200}# #{s 11203}#))
- #{e 11200}#)
- #{w 11202}#
- #{mod 11204}#)
- #{r 11201}#
- #{w 11202}#
- #{mod 11204}#)))
- #{tmp 11206}#)
+ (if (if (pair? #{e 13187}#) #{s 13190}# #f)
+ (set-source-properties! #{e 13187}# #{s 13190}#))
+ #{e 13187}#)
+ #{w 13189}#
+ #{mod 13191}#)
+ #{r 13188}#
+ #{w 13189}#
+ #{mod 13191}#)))
+ #{tmp 13193}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 11200}#)))))
+ #{e 13187}#)))))
(module-define!
(current-module)
'begin
@@ -11019,75 +11039,75 @@
'eval-when
'eval-when
'()))
- (#{global-extend 4300}#
+ (#{global-extend 6287}#
'core
'syntax-case
(letrec*
- ((#{convert-pattern 11722}#
- (lambda (#{pattern 13319}# #{keys 13320}#)
+ ((#{convert-pattern 13709}#
+ (lambda (#{pattern 15306}# #{keys 15307}#)
(letrec*
- ((#{cvt* 13321}#
- (lambda (#{p* 13945}# #{n 13946}# #{ids 13947}#)
- (if (not (pair? #{p* 13945}#))
- (#{cvt 13323}#
- #{p* 13945}#
- #{n 13946}#
- #{ids 13947}#)
+ ((#{cvt* 15308}#
+ (lambda (#{p* 15932}# #{n 15933}# #{ids 15934}#)
+ (if (not (pair? #{p* 15932}#))
+ (#{cvt 15310}#
+ #{p* 15932}#
+ #{n 15933}#
+ #{ids 15934}#)
(call-with-values
(lambda ()
- (#{cvt* 13321}#
- (cdr #{p* 13945}#)
- #{n 13946}#
- #{ids 13947}#))
- (lambda (#{y 13950}# #{ids 13951}#)
+ (#{cvt* 15308}#
+ (cdr #{p* 15932}#)
+ #{n 15933}#
+ #{ids 15934}#))
+ (lambda (#{y 15937}# #{ids 15938}#)
(call-with-values
(lambda ()
- (#{cvt 13323}#
- (car #{p* 13945}#)
- #{n 13946}#
- #{ids 13951}#))
- (lambda (#{x 13954}# #{ids 13955}#)
+ (#{cvt 15310}#
+ (car #{p* 15932}#)
+ #{n 15933}#
+ #{ids 15938}#))
+ (lambda (#{x 15941}# #{ids 15942}#)
(values
- (cons #{x 13954}# #{y 13950}#)
- #{ids 13955}#))))))))
- (#{v-reverse 13322}#
- (lambda (#{x 13956}#)
+ (cons #{x 15941}# #{y 15937}#)
+ #{ids 15942}#))))))))
+ (#{v-reverse 15309}#
+ (lambda (#{x 15943}#)
(letrec*
- ((#{loop 13957}#
- (lambda (#{r 14037}# #{x 14038}#)
- (if (not (pair? #{x 14038}#))
- (values #{r 14037}# #{x 14038}#)
- (#{loop 13957}#
- (cons (car #{x 14038}#) #{r 14037}#)
- (cdr #{x 14038}#))))))
- (#{loop 13957}# '() #{x 13956}#))))
- (#{cvt 13323}#
- (lambda (#{p 13326}# #{n 13327}# #{ids 13328}#)
- (if (if (symbol? #{p 13326}#)
+ ((#{loop 15944}#
+ (lambda (#{r 16024}# #{x 16025}#)
+ (if (not (pair? #{x 16025}#))
+ (values #{r 16024}# #{x 16025}#)
+ (#{loop 15944}#
+ (cons (car #{x 16025}#) #{r 16024}#)
+ (cdr #{x 16025}#))))))
+ (#{loop 15944}# '() #{x 15943}#))))
+ (#{cvt 15310}#
+ (lambda (#{p 15313}# #{n 15314}# #{ids 15315}#)
+ (if (if (symbol? #{p 15313}#)
#t
- (if (if (vector? #{p 13326}#)
- (if (= (vector-length #{p 13326}#) 4)
- (eq? (vector-ref #{p 13326}# 0)
+ (if (if (vector? #{p 15313}#)
+ (if (= (vector-length #{p 15313}#) 4)
+ (eq? (vector-ref #{p 15313}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{p 13326}# 1))
+ (symbol? (vector-ref #{p 15313}# 1))
#f))
- (if (#{bound-id-member? 4326}#
- #{p 13326}#
- #{keys 13320}#)
+ (if (#{bound-id-member? 6313}#
+ #{p 15313}#
+ #{keys 15307}#)
(values
- (vector 'free-id #{p 13326}#)
- #{ids 13328}#)
- (if (if (eq? (if (if (vector? #{p 13326}#)
- (if (= (vector-length #{p 13326}#)
+ (vector 'free-id #{p 15313}#)
+ #{ids 15315}#)
+ (if (if (eq? (if (if (vector? #{p 15313}#)
+ (if (= (vector-length #{p 15313}#)
4)
- (eq? (vector-ref #{p 13326}# 0)
+ (eq? (vector-ref #{p 15313}# 0)
'syntax-object)
#f)
#f)
- (vector-ref #{p 13326}# 1)
- #{p 13326}#)
+ (vector-ref #{p 15313}# 1)
+ #{p 15313}#)
(if (if (= (vector-length
'#(syntax-object
_
@@ -11096,19 +11116,19 @@
#(ribcage
#(p n ids)
#((top) (top) (top))
- #("i3736"
- "i3737"
- "i3738"))
+ #("i5723"
+ "i5724"
+ "i5725"))
#(ribcage
(cvt v-reverse cvt*)
((top) (top) (top))
- ("i3709"
- "i3707"
- "i3705"))
+ ("i5696"
+ "i5694"
+ "i5692"))
#(ribcage
#(pattern keys)
#((top) (top))
- #("i3703" "i3704"))
+ #("i5690" "i5691"))
#(ribcage
(gen-syntax-case
gen-clause
@@ -11118,10 +11138,10 @@
(top)
(top)
(top))
- ("i3699"
- "i3697"
- "i3695"
- "i3693"))
+ ("i5686"
+ "i5684"
+ "i5682"
+ "i5680"))
#(ribcage
(lambda-var-list
gen-var
@@ -11395,148 +11415,150 @@
(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"))
+ ("i2454"
+ "i2452"
+ "i2450"
+ "i2448"
+ "i2446"
+ "i2444"
+ "i2442"
+ "i2440"
+ "i2438"
+ "i2436"
+ "i2434"
+ "i2432"
+ "i2430"
+ "i2428"
+ "i2426"
+ "i2424"
+ "i2422"
+ "i2420"
+ "i2418"
+ "i2416"
+ "i2414"
+ "i2412"
+ "i2410"
+ "i2408"
+ "i2406"
+ "i2404"
+ "i2402"
+ "i2400"
+ "i2398"
+ "i2396"
+ "i2394"
+ "i2392"
+ "i2390"
+ "i2388"
+ "i2386"
+ "i2385"
+ "i2383"
+ "i2380"
+ "i2379"
+ "i2378"
+ "i2376"
+ "i2375"
+ "i2373"
+ "i2371"
+ "i2369"
+ "i2367"
+ "i2365"
+ "i2363"
+ "i2361"
+ "i2359"
+ "i2356"
+ "i2354"
+ "i2353"
+ "i2351"
+ "i2349"
+ "i2347"
+ "i2345"
+ "i2344"
+ "i2343"
+ "i2342"
+ "i2340"
+ "i2339"
+ "i2336"
+ "i2334"
+ "i2332"
+ "i2330"
+ "i2328"
+ "i2326"
+ "i2324"
+ "i2323"
+ "i2322"
+ "i2320"
+ "i2318"
+ "i2317"
+ "i2314"
+ "i2313"
+ "i2311"
+ "i2309"
+ "i2307"
+ "i2305"
+ "i2303"
+ "i2301"
+ "i2299"
+ "i2297"
+ "i2295"
+ "i2292"
+ "i2290"
+ "i2288"
+ "i2286"
+ "i2284"
+ "i2282"
+ "i2280"
+ "i2278"
+ "i2276"
+ "i2274"
+ "i2272"
+ "i2270"
+ "i2268"
+ "i2266"
+ "i2264"
+ "i2262"
+ "i2260"
+ "i2258"
+ "i2256"
+ "i2254"
+ "i2252"
+ "i2250"
+ "i2248"
+ "i2247"
+ "i2244"
+ "i2242"
+ "i2241"
+ "i2240"
+ "i2239"
+ "i2238"
+ "i2236"
+ "i2234"
+ "i2232"
+ "i2229"
+ "i2227"
+ "i2225"
+ "i2223"
+ "i2221"
+ "i2219"
+ "i2217"
+ "i2215"
+ "i2213"
+ "i2211"
+ "i2209"
+ "i2207"
+ "i2205"
+ "i2203"
+ "i2201"
+ "i2199"
+ "i2197"
+ "i2195"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i46" "i45" "i44")))
+ ("i2033"
+ "i2032"
+ "i2031")))
(hygiene guile)))
4)
#t
@@ -11549,22 +11571,22 @@
#(ribcage
#(p n ids)
#((top) (top) (top))
- #("i3736" "i3737" "i3738"))
+ #("i5723" "i5724" "i5725"))
#(ribcage
(cvt v-reverse cvt*)
((top) (top) (top))
- ("i3709" "i3707" "i3705"))
+ ("i5696" "i5694" "i5692"))
#(ribcage
#(pattern keys)
#((top) (top))
- #("i3703" "i3704"))
+ #("i5690" "i5691"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3699" "i3697" "i3695" "i3693"))
+ ("i5686" "i5684" "i5682" "i5680"))
#(ribcage
(lambda-var-list
gen-var
@@ -11838,151 +11860,151 @@
(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"))
+ ("i2454"
+ "i2452"
+ "i2450"
+ "i2448"
+ "i2446"
+ "i2444"
+ "i2442"
+ "i2440"
+ "i2438"
+ "i2436"
+ "i2434"
+ "i2432"
+ "i2430"
+ "i2428"
+ "i2426"
+ "i2424"
+ "i2422"
+ "i2420"
+ "i2418"
+ "i2416"
+ "i2414"
+ "i2412"
+ "i2410"
+ "i2408"
+ "i2406"
+ "i2404"
+ "i2402"
+ "i2400"
+ "i2398"
+ "i2396"
+ "i2394"
+ "i2392"
+ "i2390"
+ "i2388"
+ "i2386"
+ "i2385"
+ "i2383"
+ "i2380"
+ "i2379"
+ "i2378"
+ "i2376"
+ "i2375"
+ "i2373"
+ "i2371"
+ "i2369"
+ "i2367"
+ "i2365"
+ "i2363"
+ "i2361"
+ "i2359"
+ "i2356"
+ "i2354"
+ "i2353"
+ "i2351"
+ "i2349"
+ "i2347"
+ "i2345"
+ "i2344"
+ "i2343"
+ "i2342"
+ "i2340"
+ "i2339"
+ "i2336"
+ "i2334"
+ "i2332"
+ "i2330"
+ "i2328"
+ "i2326"
+ "i2324"
+ "i2323"
+ "i2322"
+ "i2320"
+ "i2318"
+ "i2317"
+ "i2314"
+ "i2313"
+ "i2311"
+ "i2309"
+ "i2307"
+ "i2305"
+ "i2303"
+ "i2301"
+ "i2299"
+ "i2297"
+ "i2295"
+ "i2292"
+ "i2290"
+ "i2288"
+ "i2286"
+ "i2284"
+ "i2282"
+ "i2280"
+ "i2278"
+ "i2276"
+ "i2274"
+ "i2272"
+ "i2270"
+ "i2268"
+ "i2266"
+ "i2264"
+ "i2262"
+ "i2260"
+ "i2258"
+ "i2256"
+ "i2254"
+ "i2252"
+ "i2250"
+ "i2248"
+ "i2247"
+ "i2244"
+ "i2242"
+ "i2241"
+ "i2240"
+ "i2239"
+ "i2238"
+ "i2236"
+ "i2234"
+ "i2232"
+ "i2229"
+ "i2227"
+ "i2225"
+ "i2223"
+ "i2221"
+ "i2219"
+ "i2217"
+ "i2215"
+ "i2213"
+ "i2211"
+ "i2209"
+ "i2207"
+ "i2205"
+ "i2203"
+ "i2201"
+ "i2199"
+ "i2197"
+ "i2195"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i46" "i45" "i44")))
+ ("i2033" "i2032" "i2031")))
(hygiene guile))))
- (eq? (#{id-var-name 4321}# #{p 13326}# '(()))
- (#{id-var-name 4321}#
+ (eq? (#{id-var-name 6308}# #{p 15313}# '(()))
+ (#{id-var-name 6308}#
'#(syntax-object
_
((top)
@@ -11990,22 +12012,22 @@
#(ribcage
#(p n ids)
#((top) (top) (top))
- #("i3736" "i3737" "i3738"))
+ #("i5723" "i5724" "i5725"))
#(ribcage
(cvt v-reverse cvt*)
((top) (top) (top))
- ("i3709" "i3707" "i3705"))
+ ("i5696" "i5694" "i5692"))
#(ribcage
#(pattern keys)
#((top) (top))
- #("i3703" "i3704"))
+ #("i5690" "i5691"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3699" "i3697" "i3695" "i3693"))
+ ("i5686" "i5684" "i5682" "i5680"))
#(ribcage
(lambda-var-list
gen-var
@@ -12279,185 +12301,185 @@
(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"))
+ ("i2454"
+ "i2452"
+ "i2450"
+ "i2448"
+ "i2446"
+ "i2444"
+ "i2442"
+ "i2440"
+ "i2438"
+ "i2436"
+ "i2434"
+ "i2432"
+ "i2430"
+ "i2428"
+ "i2426"
+ "i2424"
+ "i2422"
+ "i2420"
+ "i2418"
+ "i2416"
+ "i2414"
+ "i2412"
+ "i2410"
+ "i2408"
+ "i2406"
+ "i2404"
+ "i2402"
+ "i2400"
+ "i2398"
+ "i2396"
+ "i2394"
+ "i2392"
+ "i2390"
+ "i2388"
+ "i2386"
+ "i2385"
+ "i2383"
+ "i2380"
+ "i2379"
+ "i2378"
+ "i2376"
+ "i2375"
+ "i2373"
+ "i2371"
+ "i2369"
+ "i2367"
+ "i2365"
+ "i2363"
+ "i2361"
+ "i2359"
+ "i2356"
+ "i2354"
+ "i2353"
+ "i2351"
+ "i2349"
+ "i2347"
+ "i2345"
+ "i2344"
+ "i2343"
+ "i2342"
+ "i2340"
+ "i2339"
+ "i2336"
+ "i2334"
+ "i2332"
+ "i2330"
+ "i2328"
+ "i2326"
+ "i2324"
+ "i2323"
+ "i2322"
+ "i2320"
+ "i2318"
+ "i2317"
+ "i2314"
+ "i2313"
+ "i2311"
+ "i2309"
+ "i2307"
+ "i2305"
+ "i2303"
+ "i2301"
+ "i2299"
+ "i2297"
+ "i2295"
+ "i2292"
+ "i2290"
+ "i2288"
+ "i2286"
+ "i2284"
+ "i2282"
+ "i2280"
+ "i2278"
+ "i2276"
+ "i2274"
+ "i2272"
+ "i2270"
+ "i2268"
+ "i2266"
+ "i2264"
+ "i2262"
+ "i2260"
+ "i2258"
+ "i2256"
+ "i2254"
+ "i2252"
+ "i2250"
+ "i2248"
+ "i2247"
+ "i2244"
+ "i2242"
+ "i2241"
+ "i2240"
+ "i2239"
+ "i2238"
+ "i2236"
+ "i2234"
+ "i2232"
+ "i2229"
+ "i2227"
+ "i2225"
+ "i2223"
+ "i2221"
+ "i2219"
+ "i2217"
+ "i2215"
+ "i2213"
+ "i2211"
+ "i2209"
+ "i2207"
+ "i2205"
+ "i2203"
+ "i2201"
+ "i2199"
+ "i2197"
+ "i2195"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i46" "i45" "i44")))
+ ("i2033" "i2032" "i2031")))
(hygiene guile))
'(())))
#f)
- (values '_ #{ids 13328}#)
+ (values '_ #{ids 15315}#)
(values
'any
- (cons (cons #{p 13326}# #{n 13327}#)
- #{ids 13328}#))))
- (let ((#{tmp 13648}#
- ($sc-dispatch #{p 13326}# '(any any))))
- (if (if #{tmp 13648}#
+ (cons (cons #{p 15313}# #{n 15314}#)
+ #{ids 15315}#))))
+ (let ((#{tmp 15635}#
+ ($sc-dispatch #{p 15313}# '(any any))))
+ (if (if #{tmp 15635}#
(@apply
- (lambda (#{x 13652}# #{dots 13653}#)
- (if (if (if (vector? #{dots 13653}#)
+ (lambda (#{x 15639}# #{dots 15640}#)
+ (if (if (if (vector? #{dots 15640}#)
(if (= (vector-length
- #{dots 13653}#)
+ #{dots 15640}#)
4)
(eq? (vector-ref
- #{dots 13653}#
+ #{dots 15640}#
0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{dots 13653}# 1))
+ (symbol? (vector-ref #{dots 15640}# 1))
#f)
- (if (eq? (if (if (vector? #{dots 13653}#)
+ (if (eq? (if (if (vector? #{dots 15640}#)
(if (= (vector-length
- #{dots 13653}#)
+ #{dots 15640}#)
4)
(eq? (vector-ref
- #{dots 13653}#
+ #{dots 15640}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{dots 13653}# 1)
- #{dots 13653}#)
+ (vector-ref #{dots 15640}# 1)
+ #{dots 15640}#)
(if (if (= (vector-length
'#(syntax-object
...
@@ -12473,7 +12495,7 @@
#(ribcage
#(x)
#((top))
- #("i2219"))
+ #("i4206"))
#(ribcage
(lambda-var-list
gen-var
@@ -12747,142 +12769,142 @@
(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"))
+ ("i2454"
+ "i2452"
+ "i2450"
+ "i2448"
+ "i2446"
+ "i2444"
+ "i2442"
+ "i2440"
+ "i2438"
+ "i2436"
+ "i2434"
+ "i2432"
+ "i2430"
+ "i2428"
+ "i2426"
+ "i2424"
+ "i2422"
+ "i2420"
+ "i2418"
+ "i2416"
+ "i2414"
+ "i2412"
+ "i2410"
+ "i2408"
+ "i2406"
+ "i2404"
+ "i2402"
+ "i2400"
+ "i2398"
+ "i2396"
+ "i2394"
+ "i2392"
+ "i2390"
+ "i2388"
+ "i2386"
+ "i2385"
+ "i2383"
+ "i2380"
+ "i2379"
+ "i2378"
+ "i2376"
+ "i2375"
+ "i2373"
+ "i2371"
+ "i2369"
+ "i2367"
+ "i2365"
+ "i2363"
+ "i2361"
+ "i2359"
+ "i2356"
+ "i2354"
+ "i2353"
+ "i2351"
+ "i2349"
+ "i2347"
+ "i2345"
+ "i2344"
+ "i2343"
+ "i2342"
+ "i2340"
+ "i2339"
+ "i2336"
+ "i2334"
+ "i2332"
+ "i2330"
+ "i2328"
+ "i2326"
+ "i2324"
+ "i2323"
+ "i2322"
+ "i2320"
+ "i2318"
+ "i2317"
+ "i2314"
+ "i2313"
+ "i2311"
+ "i2309"
+ "i2307"
+ "i2305"
+ "i2303"
+ "i2301"
+ "i2299"
+ "i2297"
+ "i2295"
+ "i2292"
+ "i2290"
+ "i2288"
+ "i2286"
+ "i2284"
+ "i2282"
+ "i2280"
+ "i2278"
+ "i2276"
+ "i2274"
+ "i2272"
+ "i2270"
+ "i2268"
+ "i2266"
+ "i2264"
+ "i2262"
+ "i2260"
+ "i2258"
+ "i2256"
+ "i2254"
+ "i2252"
+ "i2250"
+ "i2248"
+ "i2247"
+ "i2244"
+ "i2242"
+ "i2241"
+ "i2240"
+ "i2239"
+ "i2238"
+ "i2236"
+ "i2234"
+ "i2232"
+ "i2229"
+ "i2227"
+ "i2225"
+ "i2223"
+ "i2221"
+ "i2219"
+ "i2217"
+ "i2215"
+ "i2213"
+ "i2211"
+ "i2209"
+ "i2207"
+ "i2205"
+ "i2203"
+ "i2201"
+ "i2199"
+ "i2197"
+ "i2195"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -12890,9 +12912,9 @@
((top)
(top)
(top))
- ("i46"
- "i45"
- "i44")))
+ ("i2033"
+ "i2032"
+ "i2031")))
(hygiene guile)))
4)
#t
@@ -12906,7 +12928,7 @@
#(ribcage
#(x)
#((top))
- #("i2219"))
+ #("i4206"))
#(ribcage
(lambda-var-list
gen-var
@@ -13180,153 +13202,155 @@
(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"))
+ ("i2454"
+ "i2452"
+ "i2450"
+ "i2448"
+ "i2446"
+ "i2444"
+ "i2442"
+ "i2440"
+ "i2438"
+ "i2436"
+ "i2434"
+ "i2432"
+ "i2430"
+ "i2428"
+ "i2426"
+ "i2424"
+ "i2422"
+ "i2420"
+ "i2418"
+ "i2416"
+ "i2414"
+ "i2412"
+ "i2410"
+ "i2408"
+ "i2406"
+ "i2404"
+ "i2402"
+ "i2400"
+ "i2398"
+ "i2396"
+ "i2394"
+ "i2392"
+ "i2390"
+ "i2388"
+ "i2386"
+ "i2385"
+ "i2383"
+ "i2380"
+ "i2379"
+ "i2378"
+ "i2376"
+ "i2375"
+ "i2373"
+ "i2371"
+ "i2369"
+ "i2367"
+ "i2365"
+ "i2363"
+ "i2361"
+ "i2359"
+ "i2356"
+ "i2354"
+ "i2353"
+ "i2351"
+ "i2349"
+ "i2347"
+ "i2345"
+ "i2344"
+ "i2343"
+ "i2342"
+ "i2340"
+ "i2339"
+ "i2336"
+ "i2334"
+ "i2332"
+ "i2330"
+ "i2328"
+ "i2326"
+ "i2324"
+ "i2323"
+ "i2322"
+ "i2320"
+ "i2318"
+ "i2317"
+ "i2314"
+ "i2313"
+ "i2311"
+ "i2309"
+ "i2307"
+ "i2305"
+ "i2303"
+ "i2301"
+ "i2299"
+ "i2297"
+ "i2295"
+ "i2292"
+ "i2290"
+ "i2288"
+ "i2286"
+ "i2284"
+ "i2282"
+ "i2280"
+ "i2278"
+ "i2276"
+ "i2274"
+ "i2272"
+ "i2270"
+ "i2268"
+ "i2266"
+ "i2264"
+ "i2262"
+ "i2260"
+ "i2258"
+ "i2256"
+ "i2254"
+ "i2252"
+ "i2250"
+ "i2248"
+ "i2247"
+ "i2244"
+ "i2242"
+ "i2241"
+ "i2240"
+ "i2239"
+ "i2238"
+ "i2236"
+ "i2234"
+ "i2232"
+ "i2229"
+ "i2227"
+ "i2225"
+ "i2223"
+ "i2221"
+ "i2219"
+ "i2217"
+ "i2215"
+ "i2213"
+ "i2211"
+ "i2209"
+ "i2207"
+ "i2205"
+ "i2203"
+ "i2201"
+ "i2199"
+ "i2197"
+ "i2195"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i46" "i45" "i44")))
+ ("i2033"
+ "i2032"
+ "i2031")))
(hygiene guile))))
- (eq? (#{id-var-name 4321}#
- #{dots 13653}#
+ (eq? (#{id-var-name 6308}#
+ #{dots 15640}#
'(()))
- (#{id-var-name 4321}#
+ (#{id-var-name 6308}#
'#(syntax-object
...
((top)
@@ -13335,7 +13359,7 @@
#(ribcage
#(x)
#((top))
- #("i2219"))
+ #("i4206"))
#(ribcage
(lambda-var-list
gen-var
@@ -13609,204 +13633,204 @@
(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"))
+ ("i2454"
+ "i2452"
+ "i2450"
+ "i2448"
+ "i2446"
+ "i2444"
+ "i2442"
+ "i2440"
+ "i2438"
+ "i2436"
+ "i2434"
+ "i2432"
+ "i2430"
+ "i2428"
+ "i2426"
+ "i2424"
+ "i2422"
+ "i2420"
+ "i2418"
+ "i2416"
+ "i2414"
+ "i2412"
+ "i2410"
+ "i2408"
+ "i2406"
+ "i2404"
+ "i2402"
+ "i2400"
+ "i2398"
+ "i2396"
+ "i2394"
+ "i2392"
+ "i2390"
+ "i2388"
+ "i2386"
+ "i2385"
+ "i2383"
+ "i2380"
+ "i2379"
+ "i2378"
+ "i2376"
+ "i2375"
+ "i2373"
+ "i2371"
+ "i2369"
+ "i2367"
+ "i2365"
+ "i2363"
+ "i2361"
+ "i2359"
+ "i2356"
+ "i2354"
+ "i2353"
+ "i2351"
+ "i2349"
+ "i2347"
+ "i2345"
+ "i2344"
+ "i2343"
+ "i2342"
+ "i2340"
+ "i2339"
+ "i2336"
+ "i2334"
+ "i2332"
+ "i2330"
+ "i2328"
+ "i2326"
+ "i2324"
+ "i2323"
+ "i2322"
+ "i2320"
+ "i2318"
+ "i2317"
+ "i2314"
+ "i2313"
+ "i2311"
+ "i2309"
+ "i2307"
+ "i2305"
+ "i2303"
+ "i2301"
+ "i2299"
+ "i2297"
+ "i2295"
+ "i2292"
+ "i2290"
+ "i2288"
+ "i2286"
+ "i2284"
+ "i2282"
+ "i2280"
+ "i2278"
+ "i2276"
+ "i2274"
+ "i2272"
+ "i2270"
+ "i2268"
+ "i2266"
+ "i2264"
+ "i2262"
+ "i2260"
+ "i2258"
+ "i2256"
+ "i2254"
+ "i2252"
+ "i2250"
+ "i2248"
+ "i2247"
+ "i2244"
+ "i2242"
+ "i2241"
+ "i2240"
+ "i2239"
+ "i2238"
+ "i2236"
+ "i2234"
+ "i2232"
+ "i2229"
+ "i2227"
+ "i2225"
+ "i2223"
+ "i2221"
+ "i2219"
+ "i2217"
+ "i2215"
+ "i2213"
+ "i2211"
+ "i2209"
+ "i2207"
+ "i2205"
+ "i2203"
+ "i2201"
+ "i2199"
+ "i2197"
+ "i2195"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i46" "i45" "i44")))
+ ("i2033" "i2032" "i2031")))
(hygiene guile))
'(())))
#f)
#f))
- #{tmp 13648}#)
+ #{tmp 15635}#)
#f)
(@apply
- (lambda (#{x 13753}# #{dots 13754}#)
+ (lambda (#{x 15740}# #{dots 15741}#)
(call-with-values
(lambda ()
- (#{cvt 13323}#
- #{x 13753}#
- (#{1+}# #{n 13327}#)
- #{ids 13328}#))
- (lambda (#{p 13755}# #{ids 13756}#)
+ (#{cvt 15310}#
+ #{x 15740}#
+ (#{1+}# #{n 15314}#)
+ #{ids 15315}#))
+ (lambda (#{p 15742}# #{ids 15743}#)
(values
- (if (eq? #{p 13755}# 'any)
+ (if (eq? #{p 15742}# 'any)
'each-any
- (vector 'each #{p 13755}#))
- #{ids 13756}#))))
- #{tmp 13648}#)
- (let ((#{tmp 13757}#
- ($sc-dispatch #{p 13326}# '(any any . any))))
- (if (if #{tmp 13757}#
+ (vector 'each #{p 15742}#))
+ #{ids 15743}#))))
+ #{tmp 15635}#)
+ (let ((#{tmp 15744}#
+ ($sc-dispatch #{p 15313}# '(any any . any))))
+ (if (if #{tmp 15744}#
(@apply
- (lambda (#{x 13761}#
- #{dots 13762}#
- #{ys 13763}#)
- (if (if (if (vector? #{dots 13762}#)
+ (lambda (#{x 15748}#
+ #{dots 15749}#
+ #{ys 15750}#)
+ (if (if (if (vector? #{dots 15749}#)
(if (= (vector-length
- #{dots 13762}#)
+ #{dots 15749}#)
4)
(eq? (vector-ref
- #{dots 13762}#
+ #{dots 15749}#
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{dots 13762}# 1))
+ (vector-ref #{dots 15749}# 1))
#f)
(if (eq? (if (if (vector?
- #{dots 13762}#)
+ #{dots 15749}#)
(if (= (vector-length
- #{dots 13762}#)
+ #{dots 15749}#)
4)
(eq? (vector-ref
- #{dots 13762}#
+ #{dots 15749}#
0)
'syntax-object)
#f)
#f)
(vector-ref
- #{dots 13762}#
+ #{dots 15749}#
1)
- #{dots 13762}#)
+ #{dots 15749}#)
(if (if (= (vector-length
'#(syntax-object
...
@@ -13822,7 +13846,7 @@
#(ribcage
#(x)
#((top))
- #("i2219"))
+ #("i4206"))
#(ribcage
(lambda-var-list
gen-var
@@ -14096,142 +14120,142 @@
(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"))
+ ("i2454"
+ "i2452"
+ "i2450"
+ "i2448"
+ "i2446"
+ "i2444"
+ "i2442"
+ "i2440"
+ "i2438"
+ "i2436"
+ "i2434"
+ "i2432"
+ "i2430"
+ "i2428"
+ "i2426"
+ "i2424"
+ "i2422"
+ "i2420"
+ "i2418"
+ "i2416"
+ "i2414"
+ "i2412"
+ "i2410"
+ "i2408"
+ "i2406"
+ "i2404"
+ "i2402"
+ "i2400"
+ "i2398"
+ "i2396"
+ "i2394"
+ "i2392"
+ "i2390"
+ "i2388"
+ "i2386"
+ "i2385"
+ "i2383"
+ "i2380"
+ "i2379"
+ "i2378"
+ "i2376"
+ "i2375"
+ "i2373"
+ "i2371"
+ "i2369"
+ "i2367"
+ "i2365"
+ "i2363"
+ "i2361"
+ "i2359"
+ "i2356"
+ "i2354"
+ "i2353"
+ "i2351"
+ "i2349"
+ "i2347"
+ "i2345"
+ "i2344"
+ "i2343"
+ "i2342"
+ "i2340"
+ "i2339"
+ "i2336"
+ "i2334"
+ "i2332"
+ "i2330"
+ "i2328"
+ "i2326"
+ "i2324"
+ "i2323"
+ "i2322"
+ "i2320"
+ "i2318"
+ "i2317"
+ "i2314"
+ "i2313"
+ "i2311"
+ "i2309"
+ "i2307"
+ "i2305"
+ "i2303"
+ "i2301"
+ "i2299"
+ "i2297"
+ "i2295"
+ "i2292"
+ "i2290"
+ "i2288"
+ "i2286"
+ "i2284"
+ "i2282"
+ "i2280"
+ "i2278"
+ "i2276"
+ "i2274"
+ "i2272"
+ "i2270"
+ "i2268"
+ "i2266"
+ "i2264"
+ "i2262"
+ "i2260"
+ "i2258"
+ "i2256"
+ "i2254"
+ "i2252"
+ "i2250"
+ "i2248"
+ "i2247"
+ "i2244"
+ "i2242"
+ "i2241"
+ "i2240"
+ "i2239"
+ "i2238"
+ "i2236"
+ "i2234"
+ "i2232"
+ "i2229"
+ "i2227"
+ "i2225"
+ "i2223"
+ "i2221"
+ "i2219"
+ "i2217"
+ "i2215"
+ "i2213"
+ "i2211"
+ "i2209"
+ "i2207"
+ "i2205"
+ "i2203"
+ "i2201"
+ "i2199"
+ "i2197"
+ "i2195"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -14239,9 +14263,9 @@
((top)
(top)
(top))
- ("i46"
- "i45"
- "i44")))
+ ("i2033"
+ "i2032"
+ "i2031")))
(hygiene
guile)))
4)
@@ -14256,7 +14280,7 @@
#(ribcage
#(x)
#((top))
- #("i2219"))
+ #("i4206"))
#(ribcage
(lambda-var-list
gen-var
@@ -14530,153 +14554,155 @@
(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"))
+ ("i2454"
+ "i2452"
+ "i2450"
+ "i2448"
+ "i2446"
+ "i2444"
+ "i2442"
+ "i2440"
+ "i2438"
+ "i2436"
+ "i2434"
+ "i2432"
+ "i2430"
+ "i2428"
+ "i2426"
+ "i2424"
+ "i2422"
+ "i2420"
+ "i2418"
+ "i2416"
+ "i2414"
+ "i2412"
+ "i2410"
+ "i2408"
+ "i2406"
+ "i2404"
+ "i2402"
+ "i2400"
+ "i2398"
+ "i2396"
+ "i2394"
+ "i2392"
+ "i2390"
+ "i2388"
+ "i2386"
+ "i2385"
+ "i2383"
+ "i2380"
+ "i2379"
+ "i2378"
+ "i2376"
+ "i2375"
+ "i2373"
+ "i2371"
+ "i2369"
+ "i2367"
+ "i2365"
+ "i2363"
+ "i2361"
+ "i2359"
+ "i2356"
+ "i2354"
+ "i2353"
+ "i2351"
+ "i2349"
+ "i2347"
+ "i2345"
+ "i2344"
+ "i2343"
+ "i2342"
+ "i2340"
+ "i2339"
+ "i2336"
+ "i2334"
+ "i2332"
+ "i2330"
+ "i2328"
+ "i2326"
+ "i2324"
+ "i2323"
+ "i2322"
+ "i2320"
+ "i2318"
+ "i2317"
+ "i2314"
+ "i2313"
+ "i2311"
+ "i2309"
+ "i2307"
+ "i2305"
+ "i2303"
+ "i2301"
+ "i2299"
+ "i2297"
+ "i2295"
+ "i2292"
+ "i2290"
+ "i2288"
+ "i2286"
+ "i2284"
+ "i2282"
+ "i2280"
+ "i2278"
+ "i2276"
+ "i2274"
+ "i2272"
+ "i2270"
+ "i2268"
+ "i2266"
+ "i2264"
+ "i2262"
+ "i2260"
+ "i2258"
+ "i2256"
+ "i2254"
+ "i2252"
+ "i2250"
+ "i2248"
+ "i2247"
+ "i2244"
+ "i2242"
+ "i2241"
+ "i2240"
+ "i2239"
+ "i2238"
+ "i2236"
+ "i2234"
+ "i2232"
+ "i2229"
+ "i2227"
+ "i2225"
+ "i2223"
+ "i2221"
+ "i2219"
+ "i2217"
+ "i2215"
+ "i2213"
+ "i2211"
+ "i2209"
+ "i2207"
+ "i2205"
+ "i2203"
+ "i2201"
+ "i2199"
+ "i2197"
+ "i2195"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i46" "i45" "i44")))
+ ("i2033"
+ "i2032"
+ "i2031")))
(hygiene guile))))
- (eq? (#{id-var-name 4321}#
- #{dots 13762}#
+ (eq? (#{id-var-name 6308}#
+ #{dots 15749}#
'(()))
- (#{id-var-name 4321}#
+ (#{id-var-name 6308}#
'#(syntax-object
...
((top)
@@ -14685,7 +14711,7 @@
#(ribcage
#(x)
#((top))
- #("i2219"))
+ #("i4206"))
#(ribcage
(lambda-var-list
gen-var
@@ -14959,257 +14985,259 @@
(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"))
+ ("i2454"
+ "i2452"
+ "i2450"
+ "i2448"
+ "i2446"
+ "i2444"
+ "i2442"
+ "i2440"
+ "i2438"
+ "i2436"
+ "i2434"
+ "i2432"
+ "i2430"
+ "i2428"
+ "i2426"
+ "i2424"
+ "i2422"
+ "i2420"
+ "i2418"
+ "i2416"
+ "i2414"
+ "i2412"
+ "i2410"
+ "i2408"
+ "i2406"
+ "i2404"
+ "i2402"
+ "i2400"
+ "i2398"
+ "i2396"
+ "i2394"
+ "i2392"
+ "i2390"
+ "i2388"
+ "i2386"
+ "i2385"
+ "i2383"
+ "i2380"
+ "i2379"
+ "i2378"
+ "i2376"
+ "i2375"
+ "i2373"
+ "i2371"
+ "i2369"
+ "i2367"
+ "i2365"
+ "i2363"
+ "i2361"
+ "i2359"
+ "i2356"
+ "i2354"
+ "i2353"
+ "i2351"
+ "i2349"
+ "i2347"
+ "i2345"
+ "i2344"
+ "i2343"
+ "i2342"
+ "i2340"
+ "i2339"
+ "i2336"
+ "i2334"
+ "i2332"
+ "i2330"
+ "i2328"
+ "i2326"
+ "i2324"
+ "i2323"
+ "i2322"
+ "i2320"
+ "i2318"
+ "i2317"
+ "i2314"
+ "i2313"
+ "i2311"
+ "i2309"
+ "i2307"
+ "i2305"
+ "i2303"
+ "i2301"
+ "i2299"
+ "i2297"
+ "i2295"
+ "i2292"
+ "i2290"
+ "i2288"
+ "i2286"
+ "i2284"
+ "i2282"
+ "i2280"
+ "i2278"
+ "i2276"
+ "i2274"
+ "i2272"
+ "i2270"
+ "i2268"
+ "i2266"
+ "i2264"
+ "i2262"
+ "i2260"
+ "i2258"
+ "i2256"
+ "i2254"
+ "i2252"
+ "i2250"
+ "i2248"
+ "i2247"
+ "i2244"
+ "i2242"
+ "i2241"
+ "i2240"
+ "i2239"
+ "i2238"
+ "i2236"
+ "i2234"
+ "i2232"
+ "i2229"
+ "i2227"
+ "i2225"
+ "i2223"
+ "i2221"
+ "i2219"
+ "i2217"
+ "i2215"
+ "i2213"
+ "i2211"
+ "i2209"
+ "i2207"
+ "i2205"
+ "i2203"
+ "i2201"
+ "i2199"
+ "i2197"
+ "i2195"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i46" "i45" "i44")))
+ ("i2033"
+ "i2032"
+ "i2031")))
(hygiene guile))
'(())))
#f)
#f))
- #{tmp 13757}#)
+ #{tmp 15744}#)
#f)
(@apply
- (lambda (#{x 13863}#
- #{dots 13864}#
- #{ys 13865}#)
+ (lambda (#{x 15850}#
+ #{dots 15851}#
+ #{ys 15852}#)
(call-with-values
(lambda ()
- (#{cvt* 13321}#
- #{ys 13865}#
- #{n 13327}#
- #{ids 13328}#))
- (lambda (#{ys 13868}# #{ids 13869}#)
+ (#{cvt* 15308}#
+ #{ys 15852}#
+ #{n 15314}#
+ #{ids 15315}#))
+ (lambda (#{ys 15855}# #{ids 15856}#)
(call-with-values
(lambda ()
- (#{cvt 13323}#
- #{x 13863}#
- (#{1+}# #{n 13327}#)
- #{ids 13869}#))
- (lambda (#{x 13870}# #{ids 13871}#)
+ (#{cvt 15310}#
+ #{x 15850}#
+ (#{1+}# #{n 15314}#)
+ #{ids 15856}#))
+ (lambda (#{x 15857}# #{ids 15858}#)
(call-with-values
(lambda ()
- (#{v-reverse 13322}#
- #{ys 13868}#))
- (lambda (#{ys 13904}# #{e 13905}#)
+ (#{v-reverse 15309}#
+ #{ys 15855}#))
+ (lambda (#{ys 15891}# #{e 15892}#)
(values
(vector
'each+
- #{x 13870}#
- #{ys 13904}#
- #{e 13905}#)
- #{ids 13871}#))))))))
- #{tmp 13757}#)
- (let ((#{tmp 13906}#
- ($sc-dispatch #{p 13326}# '(any . any))))
- (if #{tmp 13906}#
+ #{x 15857}#
+ #{ys 15891}#
+ #{e 15892}#)
+ #{ids 15858}#))))))))
+ #{tmp 15744}#)
+ (let ((#{tmp 15893}#
+ ($sc-dispatch #{p 15313}# '(any . any))))
+ (if #{tmp 15893}#
(@apply
- (lambda (#{x 13910}# #{y 13911}#)
+ (lambda (#{x 15897}# #{y 15898}#)
(call-with-values
(lambda ()
- (#{cvt 13323}#
- #{y 13911}#
- #{n 13327}#
- #{ids 13328}#))
- (lambda (#{y 13912}# #{ids 13913}#)
+ (#{cvt 15310}#
+ #{y 15898}#
+ #{n 15314}#
+ #{ids 15315}#))
+ (lambda (#{y 15899}# #{ids 15900}#)
(call-with-values
(lambda ()
- (#{cvt 13323}#
- #{x 13910}#
- #{n 13327}#
- #{ids 13913}#))
- (lambda (#{x 13914}# #{ids 13915}#)
+ (#{cvt 15310}#
+ #{x 15897}#
+ #{n 15314}#
+ #{ids 15900}#))
+ (lambda (#{x 15901}# #{ids 15902}#)
(values
- (cons #{x 13914}# #{y 13912}#)
- #{ids 13915}#))))))
- #{tmp 13906}#)
- (let ((#{tmp 13916}#
- ($sc-dispatch #{p 13326}# '())))
- (if #{tmp 13916}#
+ (cons #{x 15901}# #{y 15899}#)
+ #{ids 15902}#))))))
+ #{tmp 15893}#)
+ (let ((#{tmp 15903}#
+ ($sc-dispatch #{p 15313}# '())))
+ (if #{tmp 15903}#
(@apply
- (lambda () (values '() #{ids 13328}#))
- #{tmp 13916}#)
- (let ((#{tmp 13920}#
+ (lambda () (values '() #{ids 15315}#))
+ #{tmp 15903}#)
+ (let ((#{tmp 15907}#
($sc-dispatch
- #{p 13326}#
+ #{p 15313}#
'#(vector each-any))))
- (if #{tmp 13920}#
+ (if #{tmp 15907}#
(@apply
- (lambda (#{x 13924}#)
+ (lambda (#{x 15911}#)
(call-with-values
(lambda ()
- (#{cvt 13323}#
- #{x 13924}#
- #{n 13327}#
- #{ids 13328}#))
- (lambda (#{p 13925}#
- #{ids 13926}#)
+ (#{cvt 15310}#
+ #{x 15911}#
+ #{n 15314}#
+ #{ids 15315}#))
+ (lambda (#{p 15912}#
+ #{ids 15913}#)
(values
(vector
'vector
- #{p 13925}#)
- #{ids 13926}#))))
- #{tmp 13920}#)
+ #{p 15912}#)
+ #{ids 15913}#))))
+ #{tmp 15907}#)
(values
(vector
'atom
- (#{strip 4347}#
- #{p 13326}#
+ (#{strip 6334}#
+ #{p 15313}#
'(())))
- #{ids 13328}#)))))))))))))))
- (#{cvt 13323}# #{pattern 13319}# 0 '()))))
- (#{build-dispatch-call 11723}#
- (lambda (#{pvars 14039}#
- #{exp 14040}#
- #{y 14041}#
- #{r 14042}#
- #{mod 14043}#)
- (let ((#{ids 14044}# (map car #{pvars 14039}#)))
+ #{ids 15315}#)))))))))))))))
+ (#{cvt 15310}# #{pattern 15306}# 0 '()))))
+ (#{build-dispatch-call 13710}#
+ (lambda (#{pvars 16026}#
+ #{exp 16027}#
+ #{y 16028}#
+ #{r 16029}#
+ #{mod 16030}#)
+ (let ((#{ids 16031}# (map car #{pvars 16026}#)))
(begin
- (map cdr #{pvars 14039}#)
- (let ((#{labels 14046}#
- (#{gen-labels 4305}# #{ids 14044}#))
- (#{new-vars 14047}#
- (map #{gen-var 4348}# #{ids 14044}#)))
- (#{build-application 4269}#
+ (map cdr #{pvars 16026}#)
+ (let ((#{labels 16033}#
+ (#{gen-labels 6292}# #{ids 16031}#))
+ (#{new-vars 16034}#
+ (map #{gen-var 6335}# #{ids 16031}#)))
+ (#{build-application 6256}#
#f
(if (equal? (module-name (current-module)) '(guile))
(make-struct/no-tail
@@ -15222,78 +15250,78 @@
'(guile)
'apply
#f))
- (list (#{build-simple-lambda 4278}#
+ (list (#{build-simple-lambda 6265}#
#f
- (map syntax->datum #{ids 14044}#)
+ (map syntax->datum #{ids 16031}#)
#f
- #{new-vars 14047}#
+ #{new-vars 16034}#
'()
- (#{expand 4334}#
- #{exp 14040}#
- (#{extend-env 4296}#
- #{labels 14046}#
- (map (lambda (#{var 14372}# #{level 14373}#)
+ (#{expand 6321}#
+ #{exp 16027}#
+ (#{extend-env 6283}#
+ #{labels 16033}#
+ (map (lambda (#{var 16359}# #{level 16360}#)
(cons 'syntax
- (cons #{var 14372}#
- #{level 14373}#)))
- #{new-vars 14047}#
- (map cdr #{pvars 14039}#))
- #{r 14042}#)
- (#{make-binding-wrap 4316}#
- #{ids 14044}#
- #{labels 14046}#
+ (cons #{var 16359}#
+ #{level 16360}#)))
+ #{new-vars 16034}#
+ (map cdr #{pvars 16026}#))
+ #{r 16029}#)
+ (#{make-binding-wrap 6303}#
+ #{ids 16031}#
+ #{labels 16033}#
'(()))
- #{mod 14043}#))
- #{y 14041}#)))))))
- (#{gen-clause 11724}#
- (lambda (#{x 12691}#
- #{keys 12692}#
- #{clauses 12693}#
- #{r 12694}#
- #{pat 12695}#
- #{fender 12696}#
- #{exp 12697}#
- #{mod 12698}#)
+ #{mod 16030}#))
+ #{y 16028}#)))))))
+ (#{gen-clause 13711}#
+ (lambda (#{x 14678}#
+ #{keys 14679}#
+ #{clauses 14680}#
+ #{r 14681}#
+ #{pat 14682}#
+ #{fender 14683}#
+ #{exp 14684}#
+ #{mod 14685}#)
(call-with-values
(lambda ()
- (#{convert-pattern 11722}#
- #{pat 12695}#
- #{keys 12692}#))
- (lambda (#{p 12853}# #{pvars 12854}#)
- (if (not (#{distinct-bound-ids? 4325}#
- (map car #{pvars 12854}#)))
+ (#{convert-pattern 13709}#
+ #{pat 14682}#
+ #{keys 14679}#))
+ (lambda (#{p 14840}# #{pvars 14841}#)
+ (if (not (#{distinct-bound-ids? 6312}#
+ (map car #{pvars 14841}#)))
(syntax-violation
'syntax-case
"duplicate pattern variable"
- #{pat 12695}#)
+ #{pat 14682}#)
(if (not (and-map
- (lambda (#{x 12970}#)
- (not (let ((#{x 12974}# (car #{x 12970}#)))
- (if (if (if (vector? #{x 12974}#)
+ (lambda (#{x 14957}#)
+ (not (let ((#{x 14961}# (car #{x 14957}#)))
+ (if (if (if (vector? #{x 14961}#)
(if (= (vector-length
- #{x 12974}#)
+ #{x 14961}#)
4)
(eq? (vector-ref
- #{x 12974}#
+ #{x 14961}#
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{x 12974}# 1))
+ (vector-ref #{x 14961}# 1))
#f)
- (if (eq? (if (if (vector? #{x 12974}#)
+ (if (eq? (if (if (vector? #{x 14961}#)
(if (= (vector-length
- #{x 12974}#)
+ #{x 14961}#)
4)
(eq? (vector-ref
- #{x 12974}#
+ #{x 14961}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{x 12974}# 1)
- #{x 12974}#)
+ (vector-ref #{x 14961}# 1)
+ #{x 14961}#)
(if (if (= (vector-length
'#(syntax-object
...
@@ -15309,7 +15337,7 @@
#(ribcage
#(x)
#((top))
-
#("i2219"))
+
#("i4206"))
#(ribcage
(lambda-var-list
gen-var
@@ -15583,142 +15611,142 @@
(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"))
+ ("i2454"
+ "i2452"
+ "i2450"
+ "i2448"
+ "i2446"
+ "i2444"
+ "i2442"
+ "i2440"
+ "i2438"
+ "i2436"
+ "i2434"
+ "i2432"
+ "i2430"
+ "i2428"
+ "i2426"
+ "i2424"
+ "i2422"
+ "i2420"
+ "i2418"
+ "i2416"
+ "i2414"
+ "i2412"
+ "i2410"
+ "i2408"
+ "i2406"
+ "i2404"
+ "i2402"
+ "i2400"
+ "i2398"
+ "i2396"
+ "i2394"
+ "i2392"
+ "i2390"
+ "i2388"
+ "i2386"
+ "i2385"
+ "i2383"
+ "i2380"
+ "i2379"
+ "i2378"
+ "i2376"
+ "i2375"
+ "i2373"
+ "i2371"
+ "i2369"
+ "i2367"
+ "i2365"
+ "i2363"
+ "i2361"
+ "i2359"
+ "i2356"
+ "i2354"
+ "i2353"
+ "i2351"
+ "i2349"
+ "i2347"
+ "i2345"
+ "i2344"
+ "i2343"
+ "i2342"
+ "i2340"
+ "i2339"
+ "i2336"
+ "i2334"
+ "i2332"
+ "i2330"
+ "i2328"
+ "i2326"
+ "i2324"
+ "i2323"
+ "i2322"
+ "i2320"
+ "i2318"
+ "i2317"
+ "i2314"
+ "i2313"
+ "i2311"
+ "i2309"
+ "i2307"
+ "i2305"
+ "i2303"
+ "i2301"
+ "i2299"
+ "i2297"
+ "i2295"
+ "i2292"
+ "i2290"
+ "i2288"
+ "i2286"
+ "i2284"
+ "i2282"
+ "i2280"
+ "i2278"
+ "i2276"
+ "i2274"
+ "i2272"
+ "i2270"
+ "i2268"
+ "i2266"
+ "i2264"
+ "i2262"
+ "i2260"
+ "i2258"
+ "i2256"
+ "i2254"
+ "i2252"
+ "i2250"
+ "i2248"
+ "i2247"
+ "i2244"
+ "i2242"
+ "i2241"
+ "i2240"
+ "i2239"
+ "i2238"
+ "i2236"
+ "i2234"
+ "i2232"
+ "i2229"
+ "i2227"
+ "i2225"
+ "i2223"
+ "i2221"
+ "i2219"
+ "i2217"
+ "i2215"
+ "i2213"
+ "i2211"
+ "i2209"
+ "i2207"
+ "i2205"
+ "i2203"
+ "i2201"
+ "i2199"
+ "i2197"
+ "i2195"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -15726,9 +15754,9 @@
((top)
(top)
(top))
- ("i46"
- "i45"
- "i44")))
+ ("i2033"
+ "i2032"
+
"i2031")))
(hygiene
guile)))
4)
@@ -15743,7 +15771,7 @@
#(ribcage
#(x)
#((top))
- #("i2219"))
+ #("i4206"))
#(ribcage
(lambda-var-list
gen-var
@@ -16017,153 +16045,155 @@
(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"))
+ ("i2454"
+ "i2452"
+ "i2450"
+ "i2448"
+ "i2446"
+ "i2444"
+ "i2442"
+ "i2440"
+ "i2438"
+ "i2436"
+ "i2434"
+ "i2432"
+ "i2430"
+ "i2428"
+ "i2426"
+ "i2424"
+ "i2422"
+ "i2420"
+ "i2418"
+ "i2416"
+ "i2414"
+ "i2412"
+ "i2410"
+ "i2408"
+ "i2406"
+ "i2404"
+ "i2402"
+ "i2400"
+ "i2398"
+ "i2396"
+ "i2394"
+ "i2392"
+ "i2390"
+ "i2388"
+ "i2386"
+ "i2385"
+ "i2383"
+ "i2380"
+ "i2379"
+ "i2378"
+ "i2376"
+ "i2375"
+ "i2373"
+ "i2371"
+ "i2369"
+ "i2367"
+ "i2365"
+ "i2363"
+ "i2361"
+ "i2359"
+ "i2356"
+ "i2354"
+ "i2353"
+ "i2351"
+ "i2349"
+ "i2347"
+ "i2345"
+ "i2344"
+ "i2343"
+ "i2342"
+ "i2340"
+ "i2339"
+ "i2336"
+ "i2334"
+ "i2332"
+ "i2330"
+ "i2328"
+ "i2326"
+ "i2324"
+ "i2323"
+ "i2322"
+ "i2320"
+ "i2318"
+ "i2317"
+ "i2314"
+ "i2313"
+ "i2311"
+ "i2309"
+ "i2307"
+ "i2305"
+ "i2303"
+ "i2301"
+ "i2299"
+ "i2297"
+ "i2295"
+ "i2292"
+ "i2290"
+ "i2288"
+ "i2286"
+ "i2284"
+ "i2282"
+ "i2280"
+ "i2278"
+ "i2276"
+ "i2274"
+ "i2272"
+ "i2270"
+ "i2268"
+ "i2266"
+ "i2264"
+ "i2262"
+ "i2260"
+ "i2258"
+ "i2256"
+ "i2254"
+ "i2252"
+ "i2250"
+ "i2248"
+ "i2247"
+ "i2244"
+ "i2242"
+ "i2241"
+ "i2240"
+ "i2239"
+ "i2238"
+ "i2236"
+ "i2234"
+ "i2232"
+ "i2229"
+ "i2227"
+ "i2225"
+ "i2223"
+ "i2221"
+ "i2219"
+ "i2217"
+ "i2215"
+ "i2213"
+ "i2211"
+ "i2209"
+ "i2207"
+ "i2205"
+ "i2203"
+ "i2201"
+ "i2199"
+ "i2197"
+ "i2195"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i46" "i45" "i44")))
+ ("i2033"
+ "i2032"
+ "i2031")))
(hygiene guile))))
- (eq? (#{id-var-name 4321}#
- #{x 12974}#
+ (eq? (#{id-var-name 6308}#
+ #{x 14961}#
'(()))
- (#{id-var-name 4321}#
+ (#{id-var-name 6308}#
'#(syntax-object
...
((top)
@@ -16172,7 +16202,7 @@
#(ribcage
#(x)
#((top))
- #("i2219"))
+ #("i4206"))
#(ribcage
(lambda-var-list
gen-var
@@ -16446,188 +16476,190 @@
(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"))
+ ("i2454"
+ "i2452"
+ "i2450"
+ "i2448"
+ "i2446"
+ "i2444"
+ "i2442"
+ "i2440"
+ "i2438"
+ "i2436"
+ "i2434"
+ "i2432"
+ "i2430"
+ "i2428"
+ "i2426"
+ "i2424"
+ "i2422"
+ "i2420"
+ "i2418"
+ "i2416"
+ "i2414"
+ "i2412"
+ "i2410"
+ "i2408"
+ "i2406"
+ "i2404"
+ "i2402"
+ "i2400"
+ "i2398"
+ "i2396"
+ "i2394"
+ "i2392"
+ "i2390"
+ "i2388"
+ "i2386"
+ "i2385"
+ "i2383"
+ "i2380"
+ "i2379"
+ "i2378"
+ "i2376"
+ "i2375"
+ "i2373"
+ "i2371"
+ "i2369"
+ "i2367"
+ "i2365"
+ "i2363"
+ "i2361"
+ "i2359"
+ "i2356"
+ "i2354"
+ "i2353"
+ "i2351"
+ "i2349"
+ "i2347"
+ "i2345"
+ "i2344"
+ "i2343"
+ "i2342"
+ "i2340"
+ "i2339"
+ "i2336"
+ "i2334"
+ "i2332"
+ "i2330"
+ "i2328"
+ "i2326"
+ "i2324"
+ "i2323"
+ "i2322"
+ "i2320"
+ "i2318"
+ "i2317"
+ "i2314"
+ "i2313"
+ "i2311"
+ "i2309"
+ "i2307"
+ "i2305"
+ "i2303"
+ "i2301"
+ "i2299"
+ "i2297"
+ "i2295"
+ "i2292"
+ "i2290"
+ "i2288"
+ "i2286"
+ "i2284"
+ "i2282"
+ "i2280"
+ "i2278"
+ "i2276"
+ "i2274"
+ "i2272"
+ "i2270"
+ "i2268"
+ "i2266"
+ "i2264"
+ "i2262"
+ "i2260"
+ "i2258"
+ "i2256"
+ "i2254"
+ "i2252"
+ "i2250"
+ "i2248"
+ "i2247"
+ "i2244"
+ "i2242"
+ "i2241"
+ "i2240"
+ "i2239"
+ "i2238"
+ "i2236"
+ "i2234"
+ "i2232"
+ "i2229"
+ "i2227"
+ "i2225"
+ "i2223"
+ "i2221"
+ "i2219"
+ "i2217"
+ "i2215"
+ "i2213"
+ "i2211"
+ "i2209"
+ "i2207"
+ "i2205"
+ "i2203"
+ "i2201"
+ "i2199"
+ "i2197"
+ "i2195"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i46" "i45" "i44")))
+ ("i2033"
+ "i2032"
+ "i2031")))
(hygiene guile))
'(())))
#f)
#f))))
- #{pvars 12854}#))
+ #{pvars 14841}#))
(syntax-violation
'syntax-case
"misplaced ellipsis"
- #{pat 12695}#)
- (let ((#{y 13050}#
+ #{pat 14682}#)
+ (let ((#{y 15037}#
(gensym
(string-append (symbol->string 'tmp) " "))))
- (#{build-application 4269}#
+ (#{build-application 6256}#
#f
- (let ((#{req 13193}# (list 'tmp))
- (#{vars 13195}# (list #{y 13050}#))
- (#{exp 13197}#
- (let ((#{y 13214}#
+ (let ((#{req 15180}# (list 'tmp))
+ (#{vars 15182}# (list #{y 15037}#))
+ (#{exp 15184}#
+ (let ((#{y 15201}#
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
#f
'tmp
- #{y 13050}#)))
- (let ((#{test-exp 13218}#
- (let ((#{tmp 13227}#
+ #{y 15037}#)))
+ (let ((#{test-exp 15205}#
+ (let ((#{tmp 15214}#
($sc-dispatch
- #{fender 12696}#
+ #{fender 14683}#
'#(atom #t))))
- (if #{tmp 13227}#
+ (if #{tmp 15214}#
(@apply
- (lambda () #{y 13214}#)
- #{tmp 13227}#)
- (let ((#{then-exp 13245}#
- (#{build-dispatch-call
11723}#
- #{pvars 12854}#
- #{fender 12696}#
- #{y 13214}#
- #{r 12694}#
- #{mod 12698}#))
- (#{else-exp 13246}#
+ (lambda () #{y 15201}#)
+ #{tmp 15214}#)
+ (let ((#{then-exp 15232}#
+ (#{build-dispatch-call
13710}#
+ #{pvars 14841}#
+ #{fender 14683}#
+ #{y 15201}#
+ #{r 14681}#
+ #{mod 14685}#))
+ (#{else-exp 15233}#
(make-struct/no-tail
(vector-ref
%expanded-vtables
@@ -16639,48 +16671,48 @@
%expanded-vtables
10)
#f
- #{y 13214}#
- #{then-exp 13245}#
- #{else-exp 13246}#)))))
- (#{then-exp 13219}#
- (#{build-dispatch-call 11723}#
- #{pvars 12854}#
- #{exp 12697}#
- #{y 13214}#
- #{r 12694}#
- #{mod 12698}#))
- (#{else-exp 13220}#
- (#{gen-syntax-case 11725}#
- #{x 12691}#
- #{keys 12692}#
- #{clauses 12693}#
- #{r 12694}#
- #{mod 12698}#)))
+ #{y 15201}#
+ #{then-exp 15232}#
+ #{else-exp 15233}#)))))
+ (#{then-exp 15206}#
+ (#{build-dispatch-call 13710}#
+ #{pvars 14841}#
+ #{exp 14684}#
+ #{y 15201}#
+ #{r 14681}#
+ #{mod 14685}#))
+ (#{else-exp 15207}#
+ (#{gen-syntax-case 13712}#
+ #{x 14678}#
+ #{keys 14679}#
+ #{clauses 14680}#
+ #{r 14681}#
+ #{mod 14685}#)))
(make-struct/no-tail
(vector-ref %expanded-vtables 10)
#f
- #{test-exp 13218}#
- #{then-exp 13219}#
- #{else-exp 13220}#)))))
- (let ((#{body 13202}#
+ #{test-exp 15205}#
+ #{then-exp 15206}#
+ #{else-exp 15207}#)))))
+ (let ((#{body 15189}#
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
#f
- #{req 13193}#
+ #{req 15180}#
#f
#f
#f
'()
- #{vars 13195}#
- #{exp 13197}#
+ #{vars 15182}#
+ #{exp 15184}#
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
#f
'()
- #{body 13202}#)))
- (list (if (eq? #{p 12853}# 'any)
- (let ((#{fun-exp 13268}#
+ #{body 15189}#)))
+ (list (if (eq? #{p 14840}# 'any)
+ (let ((#{fun-exp 15255}#
(if (equal?
(module-name (current-module))
'(guile))
@@ -16694,13 +16726,13 @@
'(guile)
'list
#f)))
- (#{arg-exps 13269}# (list #{x 12691}#)))
+ (#{arg-exps 15256}# (list #{x 14678}#)))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
#f
- #{fun-exp 13268}#
- #{arg-exps 13269}#))
- (let ((#{fun-exp 13292}#
+ #{fun-exp 15255}#
+ #{arg-exps 15256}#))
+ (let ((#{fun-exp 15279}#
(if (equal?
(module-name (current-module))
'(guile))
@@ -16714,27 +16746,27 @@
'(guile)
'$sc-dispatch
#f)))
- (#{arg-exps 13293}#
- (list #{x 12691}#
+ (#{arg-exps 15280}#
+ (list #{x 14678}#
(make-struct/no-tail
(vector-ref
%expanded-vtables
1)
#f
- #{p 12853}#))))
+ #{p 14840}#))))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
#f
- #{fun-exp 13292}#
- #{arg-exps 13293}#))))))))))))
- (#{gen-syntax-case 11725}#
- (lambda (#{x 12124}#
- #{keys 12125}#
- #{clauses 12126}#
- #{r 12127}#
- #{mod 12128}#)
- (if (null? #{clauses 12126}#)
- (let ((#{fun-exp 12133}#
+ #{fun-exp 15279}#
+ #{arg-exps 15280}#))))))))))))
+ (#{gen-syntax-case 13712}#
+ (lambda (#{x 14111}#
+ #{keys 14112}#
+ #{clauses 14113}#
+ #{r 14114}#
+ #{mod 14115}#)
+ (if (null? #{clauses 14113}#)
+ (let ((#{fun-exp 14120}#
(if (equal? (module-name (current-module)) '(guile))
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
@@ -16746,7 +16778,7 @@
'(guile)
'syntax-violation
#f)))
- (#{arg-exps 12134}#
+ (#{arg-exps 14121}#
(list (make-struct/no-tail
(vector-ref %expanded-vtables 1)
#f
@@ -16755,61 +16787,61 @@
(vector-ref %expanded-vtables 1)
#f
"source expression failed to match any pattern")
- #{x 12124}#)))
+ #{x 14111}#)))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
#f
- #{fun-exp 12133}#
- #{arg-exps 12134}#))
- (let ((#{tmp 12167}# (car #{clauses 12126}#)))
- (let ((#{tmp 12168}#
- ($sc-dispatch #{tmp 12167}# '(any any))))
- (if #{tmp 12168}#
+ #{fun-exp 14120}#
+ #{arg-exps 14121}#))
+ (let ((#{tmp 14154}# (car #{clauses 14113}#)))
+ (let ((#{tmp 14155}#
+ ($sc-dispatch #{tmp 14154}# '(any any))))
+ (if #{tmp 14155}#
(@apply
- (lambda (#{pat 12170}# #{exp 12171}#)
- (if (if (if (symbol? #{pat 12170}#)
+ (lambda (#{pat 14157}# #{exp 14158}#)
+ (if (if (if (symbol? #{pat 14157}#)
#t
- (if (if (vector? #{pat 12170}#)
- (if (= (vector-length #{pat 12170}#)
+ (if (if (vector? #{pat 14157}#)
+ (if (= (vector-length #{pat 14157}#)
4)
- (eq? (vector-ref #{pat 12170}# 0)
+ (eq? (vector-ref #{pat 14157}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{pat 12170}# 1))
+ (symbol? (vector-ref #{pat 14157}# 1))
#f))
(and-map
- (lambda (#{x 12198}#)
+ (lambda (#{x 14185}#)
(not (if (eq? (if (if (vector?
- #{pat 12170}#)
+ #{pat 14157}#)
(if (= (vector-length
- #{pat 12170}#)
+ #{pat 14157}#)
4)
(eq? (vector-ref
- #{pat 12170}#
+ #{pat 14157}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{pat 12170}# 1)
- #{pat 12170}#)
- (if (if (vector? #{x 12198}#)
+ (vector-ref #{pat 14157}# 1)
+ #{pat 14157}#)
+ (if (if (vector? #{x 14185}#)
(if (= (vector-length
- #{x 12198}#)
+ #{x 14185}#)
4)
(eq? (vector-ref
- #{x 12198}#
+ #{x 14185}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{x 12198}# 1)
- #{x 12198}#))
- (eq? (#{id-var-name 4321}#
- #{pat 12170}#
+ (vector-ref #{x 14185}# 1)
+ #{x 14185}#))
+ (eq? (#{id-var-name 6308}#
+ #{pat 14157}#
'(()))
- (#{id-var-name 4321}#
- #{x 12198}#
+ (#{id-var-name 6308}#
+ #{x 14185}#
'(())))
#f)))
(cons '#(syntax-object
@@ -16818,23 +16850,23 @@
#(ribcage
#(pat exp)
#((top) (top))
- #("i3900" "i3901"))
+ #("i5887" "i5888"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
#((top) (top) (top) (top) (top))
- #("i3889"
- "i3890"
- "i3891"
- "i3892"
- "i3893"))
+ #("i5876"
+ "i5877"
+ "i5878"
+ "i5879"
+ "i5880"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3699" "i3697" "i3695" "i3693"))
+ ("i5686" "i5684" "i5682" "i5680"))
#(ribcage
(lambda-var-list
gen-var
@@ -17108,150 +17140,150 @@
(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"))
+ ("i2454"
+ "i2452"
+ "i2450"
+ "i2448"
+ "i2446"
+ "i2444"
+ "i2442"
+ "i2440"
+ "i2438"
+ "i2436"
+ "i2434"
+ "i2432"
+ "i2430"
+ "i2428"
+ "i2426"
+ "i2424"
+ "i2422"
+ "i2420"
+ "i2418"
+ "i2416"
+ "i2414"
+ "i2412"
+ "i2410"
+ "i2408"
+ "i2406"
+ "i2404"
+ "i2402"
+ "i2400"
+ "i2398"
+ "i2396"
+ "i2394"
+ "i2392"
+ "i2390"
+ "i2388"
+ "i2386"
+ "i2385"
+ "i2383"
+ "i2380"
+ "i2379"
+ "i2378"
+ "i2376"
+ "i2375"
+ "i2373"
+ "i2371"
+ "i2369"
+ "i2367"
+ "i2365"
+ "i2363"
+ "i2361"
+ "i2359"
+ "i2356"
+ "i2354"
+ "i2353"
+ "i2351"
+ "i2349"
+ "i2347"
+ "i2345"
+ "i2344"
+ "i2343"
+ "i2342"
+ "i2340"
+ "i2339"
+ "i2336"
+ "i2334"
+ "i2332"
+ "i2330"
+ "i2328"
+ "i2326"
+ "i2324"
+ "i2323"
+ "i2322"
+ "i2320"
+ "i2318"
+ "i2317"
+ "i2314"
+ "i2313"
+ "i2311"
+ "i2309"
+ "i2307"
+ "i2305"
+ "i2303"
+ "i2301"
+ "i2299"
+ "i2297"
+ "i2295"
+ "i2292"
+ "i2290"
+ "i2288"
+ "i2286"
+ "i2284"
+ "i2282"
+ "i2280"
+ "i2278"
+ "i2276"
+ "i2274"
+ "i2272"
+ "i2270"
+ "i2268"
+ "i2266"
+ "i2264"
+ "i2262"
+ "i2260"
+ "i2258"
+ "i2256"
+ "i2254"
+ "i2252"
+ "i2250"
+ "i2248"
+ "i2247"
+ "i2244"
+ "i2242"
+ "i2241"
+ "i2240"
+ "i2239"
+ "i2238"
+ "i2236"
+ "i2234"
+ "i2232"
+ "i2229"
+ "i2227"
+ "i2225"
+ "i2223"
+ "i2221"
+ "i2219"
+ "i2217"
+ "i2215"
+ "i2213"
+ "i2211"
+ "i2209"
+ "i2207"
+ "i2205"
+ "i2203"
+ "i2201"
+ "i2199"
+ "i2197"
+ "i2195"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i46" "i45" "i44")))
+ ("i2033" "i2032" "i2031")))
(hygiene guile))
- #{keys 12125}#))
+ #{keys 14112}#))
#f)
(if (if (eq? (if (if (= (vector-length
'#(syntax-object
@@ -17260,7 +17292,7 @@
#(ribcage
#(pat exp)
#((top) (top))
- #("i3900" "i3901"))
+ #("i5887" "i5888"))
#(ribcage () () ())
#(ribcage
#(x
@@ -17273,11 +17305,11 @@
(top)
(top)
(top))
- #("i3889"
- "i3890"
- "i3891"
- "i3892"
- "i3893"))
+ #("i5876"
+ "i5877"
+ "i5878"
+ "i5879"
+ "i5880"))
#(ribcage
(gen-syntax-case
gen-clause
@@ -17287,10 +17319,10 @@
(top)
(top)
(top))
- ("i3699"
- "i3697"
- "i3695"
- "i3693"))
+ ("i5686"
+ "i5684"
+ "i5682"
+ "i5680"))
#(ribcage
(lambda-var-list
gen-var
@@ -17564,150 +17596,150 @@
(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"))
+ ("i2454"
+ "i2452"
+ "i2450"
+ "i2448"
+ "i2446"
+ "i2444"
+ "i2442"
+ "i2440"
+ "i2438"
+ "i2436"
+ "i2434"
+ "i2432"
+ "i2430"
+ "i2428"
+ "i2426"
+ "i2424"
+ "i2422"
+ "i2420"
+ "i2418"
+ "i2416"
+ "i2414"
+ "i2412"
+ "i2410"
+ "i2408"
+ "i2406"
+ "i2404"
+ "i2402"
+ "i2400"
+ "i2398"
+ "i2396"
+ "i2394"
+ "i2392"
+ "i2390"
+ "i2388"
+ "i2386"
+ "i2385"
+ "i2383"
+ "i2380"
+ "i2379"
+ "i2378"
+ "i2376"
+ "i2375"
+ "i2373"
+ "i2371"
+ "i2369"
+ "i2367"
+ "i2365"
+ "i2363"
+ "i2361"
+ "i2359"
+ "i2356"
+ "i2354"
+ "i2353"
+ "i2351"
+ "i2349"
+ "i2347"
+ "i2345"
+ "i2344"
+ "i2343"
+ "i2342"
+ "i2340"
+ "i2339"
+ "i2336"
+ "i2334"
+ "i2332"
+ "i2330"
+ "i2328"
+ "i2326"
+ "i2324"
+ "i2323"
+ "i2322"
+ "i2320"
+ "i2318"
+ "i2317"
+ "i2314"
+ "i2313"
+ "i2311"
+ "i2309"
+ "i2307"
+ "i2305"
+ "i2303"
+ "i2301"
+ "i2299"
+ "i2297"
+ "i2295"
+ "i2292"
+ "i2290"
+ "i2288"
+ "i2286"
+ "i2284"
+ "i2282"
+ "i2280"
+ "i2278"
+ "i2276"
+ "i2274"
+ "i2272"
+ "i2270"
+ "i2268"
+ "i2266"
+ "i2264"
+ "i2262"
+ "i2260"
+ "i2258"
+ "i2256"
+ "i2254"
+ "i2252"
+ "i2250"
+ "i2248"
+ "i2247"
+ "i2244"
+ "i2242"
+ "i2241"
+ "i2240"
+ "i2239"
+ "i2238"
+ "i2236"
+ "i2234"
+ "i2232"
+ "i2229"
+ "i2227"
+ "i2225"
+ "i2223"
+ "i2221"
+ "i2219"
+ "i2217"
+ "i2215"
+ "i2213"
+ "i2211"
+ "i2209"
+ "i2207"
+ "i2205"
+ "i2203"
+ "i2201"
+ "i2199"
+ "i2197"
+ "i2195"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i46"
- "i45"
- "i44")))
+ ("i2033"
+ "i2032"
+ "i2031")))
(hygiene guile)))
4)
#t
@@ -17719,7 +17751,7 @@
#(ribcage
#(pat exp)
#((top) (top))
- #("i3900" "i3901"))
+ #("i5887" "i5888"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
@@ -17728,21 +17760,21 @@
(top)
(top)
(top))
- #("i3889"
- "i3890"
- "i3891"
- "i3892"
- "i3893"))
+ #("i5876"
+ "i5877"
+ "i5878"
+ "i5879"
+ "i5880"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3699"
- "i3697"
- "i3695"
- "i3693"))
+ ("i5686"
+ "i5684"
+ "i5682"
+ "i5680"))
#(ribcage
(lambda-var-list
gen-var
@@ -18016,148 +18048,148 @@
(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"))
+ ("i2454"
+ "i2452"
+ "i2450"
+ "i2448"
+ "i2446"
+ "i2444"
+ "i2442"
+ "i2440"
+ "i2438"
+ "i2436"
+ "i2434"
+ "i2432"
+ "i2430"
+ "i2428"
+ "i2426"
+ "i2424"
+ "i2422"
+ "i2420"
+ "i2418"
+ "i2416"
+ "i2414"
+ "i2412"
+ "i2410"
+ "i2408"
+ "i2406"
+ "i2404"
+ "i2402"
+ "i2400"
+ "i2398"
+ "i2396"
+ "i2394"
+ "i2392"
+ "i2390"
+ "i2388"
+ "i2386"
+ "i2385"
+ "i2383"
+ "i2380"
+ "i2379"
+ "i2378"
+ "i2376"
+ "i2375"
+ "i2373"
+ "i2371"
+ "i2369"
+ "i2367"
+ "i2365"
+ "i2363"
+ "i2361"
+ "i2359"
+ "i2356"
+ "i2354"
+ "i2353"
+ "i2351"
+ "i2349"
+ "i2347"
+ "i2345"
+ "i2344"
+ "i2343"
+ "i2342"
+ "i2340"
+ "i2339"
+ "i2336"
+ "i2334"
+ "i2332"
+ "i2330"
+ "i2328"
+ "i2326"
+ "i2324"
+ "i2323"
+ "i2322"
+ "i2320"
+ "i2318"
+ "i2317"
+ "i2314"
+ "i2313"
+ "i2311"
+ "i2309"
+ "i2307"
+ "i2305"
+ "i2303"
+ "i2301"
+ "i2299"
+ "i2297"
+ "i2295"
+ "i2292"
+ "i2290"
+ "i2288"
+ "i2286"
+ "i2284"
+ "i2282"
+ "i2280"
+ "i2278"
+ "i2276"
+ "i2274"
+ "i2272"
+ "i2270"
+ "i2268"
+ "i2266"
+ "i2264"
+ "i2262"
+ "i2260"
+ "i2258"
+ "i2256"
+ "i2254"
+ "i2252"
+ "i2250"
+ "i2248"
+ "i2247"
+ "i2244"
+ "i2242"
+ "i2241"
+ "i2240"
+ "i2239"
+ "i2238"
+ "i2236"
+ "i2234"
+ "i2232"
+ "i2229"
+ "i2227"
+ "i2225"
+ "i2223"
+ "i2221"
+ "i2219"
+ "i2217"
+ "i2215"
+ "i2213"
+ "i2211"
+ "i2209"
+ "i2207"
+ "i2205"
+ "i2203"
+ "i2201"
+ "i2199"
+ "i2197"
+ "i2195"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i46" "i45" "i44")))
+ ("i2033" "i2032" "i2031")))
(hygiene guile)))
(if (if (= (vector-length
'#(syntax-object
@@ -18166,7 +18198,7 @@
#(ribcage
#(pat exp)
#((top) (top))
- #("i3900" "i3901"))
+ #("i5887" "i5888"))
#(ribcage () () ())
#(ribcage
#(x
@@ -18179,11 +18211,11 @@
(top)
(top)
(top))
- #("i3889"
- "i3890"
- "i3891"
- "i3892"
- "i3893"))
+ #("i5876"
+ "i5877"
+ "i5878"
+ "i5879"
+ "i5880"))
#(ribcage
(gen-syntax-case
gen-clause
@@ -18193,10 +18225,10 @@
(top)
(top)
(top))
- ("i3699"
- "i3697"
- "i3695"
- "i3693"))
+ ("i5686"
+ "i5684"
+ "i5682"
+ "i5680"))
#(ribcage
(lambda-var-list
gen-var
@@ -18470,150 +18502,150 @@
(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"))
+ ("i2454"
+ "i2452"
+ "i2450"
+ "i2448"
+ "i2446"
+ "i2444"
+ "i2442"
+ "i2440"
+ "i2438"
+ "i2436"
+ "i2434"
+ "i2432"
+ "i2430"
+ "i2428"
+ "i2426"
+ "i2424"
+ "i2422"
+ "i2420"
+ "i2418"
+ "i2416"
+ "i2414"
+ "i2412"
+ "i2410"
+ "i2408"
+ "i2406"
+ "i2404"
+ "i2402"
+ "i2400"
+ "i2398"
+ "i2396"
+ "i2394"
+ "i2392"
+ "i2390"
+ "i2388"
+ "i2386"
+ "i2385"
+ "i2383"
+ "i2380"
+ "i2379"
+ "i2378"
+ "i2376"
+ "i2375"
+ "i2373"
+ "i2371"
+ "i2369"
+ "i2367"
+ "i2365"
+ "i2363"
+ "i2361"
+ "i2359"
+ "i2356"
+ "i2354"
+ "i2353"
+ "i2351"
+ "i2349"
+ "i2347"
+ "i2345"
+ "i2344"
+ "i2343"
+ "i2342"
+ "i2340"
+ "i2339"
+ "i2336"
+ "i2334"
+ "i2332"
+ "i2330"
+ "i2328"
+ "i2326"
+ "i2324"
+ "i2323"
+ "i2322"
+ "i2320"
+ "i2318"
+ "i2317"
+ "i2314"
+ "i2313"
+ "i2311"
+ "i2309"
+ "i2307"
+ "i2305"
+ "i2303"
+ "i2301"
+ "i2299"
+ "i2297"
+ "i2295"
+ "i2292"
+ "i2290"
+ "i2288"
+ "i2286"
+ "i2284"
+ "i2282"
+ "i2280"
+ "i2278"
+ "i2276"
+ "i2274"
+ "i2272"
+ "i2270"
+ "i2268"
+ "i2266"
+ "i2264"
+ "i2262"
+ "i2260"
+ "i2258"
+ "i2256"
+ "i2254"
+ "i2252"
+ "i2250"
+ "i2248"
+ "i2247"
+ "i2244"
+ "i2242"
+ "i2241"
+ "i2240"
+ "i2239"
+ "i2238"
+ "i2236"
+ "i2234"
+ "i2232"
+ "i2229"
+ "i2227"
+ "i2225"
+ "i2223"
+ "i2221"
+ "i2219"
+ "i2217"
+ "i2215"
+ "i2213"
+ "i2211"
+ "i2209"
+ "i2207"
+ "i2205"
+ "i2203"
+ "i2201"
+ "i2199"
+ "i2197"
+ "i2195"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i46"
- "i45"
- "i44")))
+ ("i2033"
+ "i2032"
+ "i2031")))
(hygiene guile)))
4)
#t
@@ -18625,7 +18657,7 @@
#(ribcage
#(pat exp)
#((top) (top))
- #("i3900" "i3901"))
+ #("i5887" "i5888"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
@@ -18634,21 +18666,21 @@
(top)
(top)
(top))
- #("i3889"
- "i3890"
- "i3891"
- "i3892"
- "i3893"))
+ #("i5876"
+ "i5877"
+ "i5878"
+ "i5879"
+ "i5880"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3699"
- "i3697"
- "i3695"
- "i3693"))
+ ("i5686"
+ "i5684"
+ "i5682"
+ "i5680"))
#(ribcage
(lambda-var-list
gen-var
@@ -18922,176 +18954,176 @@
(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"))
+ ("i2454"
+ "i2452"
+ "i2450"
+ "i2448"
+ "i2446"
+ "i2444"
+ "i2442"
+ "i2440"
+ "i2438"
+ "i2436"
+ "i2434"
+ "i2432"
+ "i2430"
+ "i2428"
+ "i2426"
+ "i2424"
+ "i2422"
+ "i2420"
+ "i2418"
+ "i2416"
+ "i2414"
+ "i2412"
+ "i2410"
+ "i2408"
+ "i2406"
+ "i2404"
+ "i2402"
+ "i2400"
+ "i2398"
+ "i2396"
+ "i2394"
+ "i2392"
+ "i2390"
+ "i2388"
+ "i2386"
+ "i2385"
+ "i2383"
+ "i2380"
+ "i2379"
+ "i2378"
+ "i2376"
+ "i2375"
+ "i2373"
+ "i2371"
+ "i2369"
+ "i2367"
+ "i2365"
+ "i2363"
+ "i2361"
+ "i2359"
+ "i2356"
+ "i2354"
+ "i2353"
+ "i2351"
+ "i2349"
+ "i2347"
+ "i2345"
+ "i2344"
+ "i2343"
+ "i2342"
+ "i2340"
+ "i2339"
+ "i2336"
+ "i2334"
+ "i2332"
+ "i2330"
+ "i2328"
+ "i2326"
+ "i2324"
+ "i2323"
+ "i2322"
+ "i2320"
+ "i2318"
+ "i2317"
+ "i2314"
+ "i2313"
+ "i2311"
+ "i2309"
+ "i2307"
+ "i2305"
+ "i2303"
+ "i2301"
+ "i2299"
+ "i2297"
+ "i2295"
+ "i2292"
+ "i2290"
+ "i2288"
+ "i2286"
+ "i2284"
+ "i2282"
+ "i2280"
+ "i2278"
+ "i2276"
+ "i2274"
+ "i2272"
+ "i2270"
+ "i2268"
+ "i2266"
+ "i2264"
+ "i2262"
+ "i2260"
+ "i2258"
+ "i2256"
+ "i2254"
+ "i2252"
+ "i2250"
+ "i2248"
+ "i2247"
+ "i2244"
+ "i2242"
+ "i2241"
+ "i2240"
+ "i2239"
+ "i2238"
+ "i2236"
+ "i2234"
+ "i2232"
+ "i2229"
+ "i2227"
+ "i2225"
+ "i2223"
+ "i2221"
+ "i2219"
+ "i2217"
+ "i2215"
+ "i2213"
+ "i2211"
+ "i2209"
+ "i2207"
+ "i2205"
+ "i2203"
+ "i2201"
+ "i2199"
+ "i2197"
+ "i2195"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i46" "i45" "i44")))
+ ("i2033" "i2032" "i2031")))
(hygiene guile))))
- (eq? (#{id-var-name 4321}#
+ (eq? (#{id-var-name 6308}#
'#(syntax-object
pad
((top)
#(ribcage
#(pat exp)
#((top) (top))
- #("i3900" "i3901"))
+ #("i5887" "i5888"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
#((top) (top) (top) (top) (top))
- #("i3889"
- "i3890"
- "i3891"
- "i3892"
- "i3893"))
+ #("i5876"
+ "i5877"
+ "i5878"
+ "i5879"
+ "i5880"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3699"
- "i3697"
- "i3695"
- "i3693"))
+ ("i5686"
+ "i5684"
+ "i5682"
+ "i5680"))
#(ribcage
(lambda-var-list
gen-var
@@ -19365,177 +19397,177 @@
(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"))
+ ("i2454"
+ "i2452"
+ "i2450"
+ "i2448"
+ "i2446"
+ "i2444"
+ "i2442"
+ "i2440"
+ "i2438"
+ "i2436"
+ "i2434"
+ "i2432"
+ "i2430"
+ "i2428"
+ "i2426"
+ "i2424"
+ "i2422"
+ "i2420"
+ "i2418"
+ "i2416"
+ "i2414"
+ "i2412"
+ "i2410"
+ "i2408"
+ "i2406"
+ "i2404"
+ "i2402"
+ "i2400"
+ "i2398"
+ "i2396"
+ "i2394"
+ "i2392"
+ "i2390"
+ "i2388"
+ "i2386"
+ "i2385"
+ "i2383"
+ "i2380"
+ "i2379"
+ "i2378"
+ "i2376"
+ "i2375"
+ "i2373"
+ "i2371"
+ "i2369"
+ "i2367"
+ "i2365"
+ "i2363"
+ "i2361"
+ "i2359"
+ "i2356"
+ "i2354"
+ "i2353"
+ "i2351"
+ "i2349"
+ "i2347"
+ "i2345"
+ "i2344"
+ "i2343"
+ "i2342"
+ "i2340"
+ "i2339"
+ "i2336"
+ "i2334"
+ "i2332"
+ "i2330"
+ "i2328"
+ "i2326"
+ "i2324"
+ "i2323"
+ "i2322"
+ "i2320"
+ "i2318"
+ "i2317"
+ "i2314"
+ "i2313"
+ "i2311"
+ "i2309"
+ "i2307"
+ "i2305"
+ "i2303"
+ "i2301"
+ "i2299"
+ "i2297"
+ "i2295"
+ "i2292"
+ "i2290"
+ "i2288"
+ "i2286"
+ "i2284"
+ "i2282"
+ "i2280"
+ "i2278"
+ "i2276"
+ "i2274"
+ "i2272"
+ "i2270"
+ "i2268"
+ "i2266"
+ "i2264"
+ "i2262"
+ "i2260"
+ "i2258"
+ "i2256"
+ "i2254"
+ "i2252"
+ "i2250"
+ "i2248"
+ "i2247"
+ "i2244"
+ "i2242"
+ "i2241"
+ "i2240"
+ "i2239"
+ "i2238"
+ "i2236"
+ "i2234"
+ "i2232"
+ "i2229"
+ "i2227"
+ "i2225"
+ "i2223"
+ "i2221"
+ "i2219"
+ "i2217"
+ "i2215"
+ "i2213"
+ "i2211"
+ "i2209"
+ "i2207"
+ "i2205"
+ "i2203"
+ "i2201"
+ "i2199"
+ "i2197"
+ "i2195"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i46" "i45" "i44")))
+ ("i2033" "i2032" "i2031")))
(hygiene guile))
'(()))
- (#{id-var-name 4321}#
+ (#{id-var-name 6308}#
'#(syntax-object
_
((top)
#(ribcage
#(pat exp)
#((top) (top))
- #("i3900" "i3901"))
+ #("i5887" "i5888"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
#((top) (top) (top) (top) (top))
- #("i3889"
- "i3890"
- "i3891"
- "i3892"
- "i3893"))
+ #("i5876"
+ "i5877"
+ "i5878"
+ "i5879"
+ "i5880"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3699"
- "i3697"
- "i3695"
- "i3693"))
+ ("i5686"
+ "i5684"
+ "i5682"
+ "i5680"))
#(ribcage
(lambda-var-list
gen-var
@@ -19809,281 +19841,281 @@
(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"))
+ ("i2454"
+ "i2452"
+ "i2450"
+ "i2448"
+ "i2446"
+ "i2444"
+ "i2442"
+ "i2440"
+ "i2438"
+ "i2436"
+ "i2434"
+ "i2432"
+ "i2430"
+ "i2428"
+ "i2426"
+ "i2424"
+ "i2422"
+ "i2420"
+ "i2418"
+ "i2416"
+ "i2414"
+ "i2412"
+ "i2410"
+ "i2408"
+ "i2406"
+ "i2404"
+ "i2402"
+ "i2400"
+ "i2398"
+ "i2396"
+ "i2394"
+ "i2392"
+ "i2390"
+ "i2388"
+ "i2386"
+ "i2385"
+ "i2383"
+ "i2380"
+ "i2379"
+ "i2378"
+ "i2376"
+ "i2375"
+ "i2373"
+ "i2371"
+ "i2369"
+ "i2367"
+ "i2365"
+ "i2363"
+ "i2361"
+ "i2359"
+ "i2356"
+ "i2354"
+ "i2353"
+ "i2351"
+ "i2349"
+ "i2347"
+ "i2345"
+ "i2344"
+ "i2343"
+ "i2342"
+ "i2340"
+ "i2339"
+ "i2336"
+ "i2334"
+ "i2332"
+ "i2330"
+ "i2328"
+ "i2326"
+ "i2324"
+ "i2323"
+ "i2322"
+ "i2320"
+ "i2318"
+ "i2317"
+ "i2314"
+ "i2313"
+ "i2311"
+ "i2309"
+ "i2307"
+ "i2305"
+ "i2303"
+ "i2301"
+ "i2299"
+ "i2297"
+ "i2295"
+ "i2292"
+ "i2290"
+ "i2288"
+ "i2286"
+ "i2284"
+ "i2282"
+ "i2280"
+ "i2278"
+ "i2276"
+ "i2274"
+ "i2272"
+ "i2270"
+ "i2268"
+ "i2266"
+ "i2264"
+ "i2262"
+ "i2260"
+ "i2258"
+ "i2256"
+ "i2254"
+ "i2252"
+ "i2250"
+ "i2248"
+ "i2247"
+ "i2244"
+ "i2242"
+ "i2241"
+ "i2240"
+ "i2239"
+ "i2238"
+ "i2236"
+ "i2234"
+ "i2232"
+ "i2229"
+ "i2227"
+ "i2225"
+ "i2223"
+ "i2221"
+ "i2219"
+ "i2217"
+ "i2215"
+ "i2213"
+ "i2211"
+ "i2209"
+ "i2207"
+ "i2205"
+ "i2203"
+ "i2201"
+ "i2199"
+ "i2197"
+ "i2195"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i46" "i45" "i44")))
+ ("i2033" "i2032" "i2031")))
(hygiene guile))
'(())))
#f)
- (#{expand 4334}#
- #{exp 12171}#
- #{r 12127}#
+ (#{expand 6321}#
+ #{exp 14158}#
+ #{r 14114}#
'(())
- #{mod 12128}#)
- (let ((#{labels 12374}#
+ #{mod 14115}#)
+ (let ((#{labels 14361}#
(list (symbol->string (gensym "i"))))
- (#{var 12375}#
- (let ((#{id 12413}#
- (if (if (vector? #{pat 12170}#)
+ (#{var 14362}#
+ (let ((#{id 14400}#
+ (if (if (vector? #{pat 14157}#)
(if (= (vector-length
- #{pat 12170}#)
+ #{pat 14157}#)
4)
(eq? (vector-ref
- #{pat 12170}#
+ #{pat 14157}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{pat 12170}# 1)
- #{pat 12170}#)))
+ (vector-ref #{pat 14157}# 1)
+ #{pat 14157}#)))
(gensym
(string-append
- (symbol->string #{id 12413}#)
+ (symbol->string #{id 14400}#)
" ")))))
- (#{build-application 4269}#
+ (#{build-application 6256}#
#f
- (#{build-simple-lambda 4278}#
+ (#{build-simple-lambda 6265}#
#f
- (list (syntax->datum #{pat 12170}#))
+ (list (syntax->datum #{pat 14157}#))
#f
- (list #{var 12375}#)
+ (list #{var 14362}#)
'()
- (#{expand 4334}#
- #{exp 12171}#
- (#{extend-env 4296}#
- #{labels 12374}#
+ (#{expand 6321}#
+ #{exp 14158}#
+ (#{extend-env 6283}#
+ #{labels 14361}#
(list (cons 'syntax
- (cons #{var 12375}# 0)))
- #{r 12127}#)
- (#{make-binding-wrap 4316}#
- (list #{pat 12170}#)
- #{labels 12374}#
+ (cons #{var 14362}# 0)))
+ #{r 14114}#)
+ (#{make-binding-wrap 6303}#
+ (list #{pat 14157}#)
+ #{labels 14361}#
'(()))
- #{mod 12128}#))
- (list #{x 12124}#))))
- (#{gen-clause 11724}#
- #{x 12124}#
- #{keys 12125}#
- (cdr #{clauses 12126}#)
- #{r 12127}#
- #{pat 12170}#
+ #{mod 14115}#))
+ (list #{x 14111}#))))
+ (#{gen-clause 13711}#
+ #{x 14111}#
+ #{keys 14112}#
+ (cdr #{clauses 14113}#)
+ #{r 14114}#
+ #{pat 14157}#
#t
- #{exp 12171}#
- #{mod 12128}#)))
- #{tmp 12168}#)
- (let ((#{tmp 12683}#
- ($sc-dispatch #{tmp 12167}# '(any any any))))
- (if #{tmp 12683}#
+ #{exp 14158}#
+ #{mod 14115}#)))
+ #{tmp 14155}#)
+ (let ((#{tmp 14670}#
+ ($sc-dispatch #{tmp 14154}# '(any any any))))
+ (if #{tmp 14670}#
(@apply
- (lambda (#{pat 12685}#
- #{fender 12686}#
- #{exp 12687}#)
- (#{gen-clause 11724}#
- #{x 12124}#
- #{keys 12125}#
- (cdr #{clauses 12126}#)
- #{r 12127}#
- #{pat 12685}#
- #{fender 12686}#
- #{exp 12687}#
- #{mod 12128}#))
- #{tmp 12683}#)
+ (lambda (#{pat 14672}#
+ #{fender 14673}#
+ #{exp 14674}#)
+ (#{gen-clause 13711}#
+ #{x 14111}#
+ #{keys 14112}#
+ (cdr #{clauses 14113}#)
+ #{r 14114}#
+ #{pat 14672}#
+ #{fender 14673}#
+ #{exp 14674}#
+ #{mod 14115}#))
+ #{tmp 14670}#)
(syntax-violation
'syntax-case
"invalid clause"
- (car #{clauses 12126}#)))))))))))
- (lambda (#{e 11726}#
- #{r 11727}#
- #{w 11728}#
- #{s 11729}#
- #{mod 11730}#)
- (let ((#{e 11731}#
- (#{wrap 4327}#
+ (car #{clauses 14113}#)))))))))))
+ (lambda (#{e 13713}#
+ #{r 13714}#
+ #{w 13715}#
+ #{s 13716}#
+ #{mod 13717}#)
+ (let ((#{e 13718}#
+ (#{wrap 6314}#
(begin
- (if (if (pair? #{e 11726}#) #{s 11729}# #f)
- (set-source-properties! #{e 11726}# #{s 11729}#))
- #{e 11726}#)
- #{w 11728}#
- #{mod 11730}#)))
- (let ((#{tmp 11733}#
+ (if (if (pair? #{e 13713}#) #{s 13716}# #f)
+ (set-source-properties! #{e 13713}# #{s 13716}#))
+ #{e 13713}#)
+ #{w 13715}#
+ #{mod 13717}#)))
+ (let ((#{tmp 13720}#
($sc-dispatch
- #{e 11731}#
+ #{e 13718}#
'(_ any each-any . each-any))))
- (if #{tmp 11733}#
+ (if #{tmp 13720}#
(@apply
- (lambda (#{val 11758}# #{key 11759}# #{m 11760}#)
+ (lambda (#{val 13745}# #{key 13746}# #{m 13747}#)
(if (and-map
- (lambda (#{x 11761}#)
- (if (if (symbol? #{x 11761}#)
+ (lambda (#{x 13748}#)
+ (if (if (symbol? #{x 13748}#)
#t
- (if (if (vector? #{x 11761}#)
- (if (= (vector-length #{x 11761}#) 4)
- (eq? (vector-ref #{x 11761}# 0)
+ (if (if (vector? #{x 13748}#)
+ (if (= (vector-length #{x 13748}#) 4)
+ (eq? (vector-ref #{x 13748}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 11761}# 1))
+ (symbol? (vector-ref #{x 13748}# 1))
#f))
- (not (if (if (if (vector? #{x 11761}#)
- (if (= (vector-length #{x 11761}#)
+ (not (if (if (if (vector? #{x 13748}#)
+ (if (= (vector-length #{x 13748}#)
4)
- (eq? (vector-ref #{x 11761}# 0)
+ (eq? (vector-ref #{x 13748}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 11761}# 1))
+ (symbol? (vector-ref #{x 13748}# 1))
#f)
- (if (eq? (if (if (vector? #{x 11761}#)
+ (if (eq? (if (if (vector? #{x 13748}#)
(if (= (vector-length
- #{x 11761}#)
+ #{x 13748}#)
4)
(eq? (vector-ref
- #{x 11761}#
+ #{x 13748}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{x 11761}# 1)
- #{x 11761}#)
+ (vector-ref #{x 13748}# 1)
+ #{x 13748}#)
(if (if (= (vector-length
'#(syntax-object
...
@@ -20099,7 +20131,7 @@
#(ribcage
#(x)
#((top))
- #("i2219"))
+ #("i4206"))
#(ribcage
(lambda-var-list
gen-var
@@ -20373,142 +20405,142 @@
(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"))
+ ("i2454"
+ "i2452"
+ "i2450"
+ "i2448"
+ "i2446"
+ "i2444"
+ "i2442"
+ "i2440"
+ "i2438"
+ "i2436"
+ "i2434"
+ "i2432"
+ "i2430"
+ "i2428"
+ "i2426"
+ "i2424"
+ "i2422"
+ "i2420"
+ "i2418"
+ "i2416"
+ "i2414"
+ "i2412"
+ "i2410"
+ "i2408"
+ "i2406"
+ "i2404"
+ "i2402"
+ "i2400"
+ "i2398"
+ "i2396"
+ "i2394"
+ "i2392"
+ "i2390"
+ "i2388"
+ "i2386"
+ "i2385"
+ "i2383"
+ "i2380"
+ "i2379"
+ "i2378"
+ "i2376"
+ "i2375"
+ "i2373"
+ "i2371"
+ "i2369"
+ "i2367"
+ "i2365"
+ "i2363"
+ "i2361"
+ "i2359"
+ "i2356"
+ "i2354"
+ "i2353"
+ "i2351"
+ "i2349"
+ "i2347"
+ "i2345"
+ "i2344"
+ "i2343"
+ "i2342"
+ "i2340"
+ "i2339"
+ "i2336"
+ "i2334"
+ "i2332"
+ "i2330"
+ "i2328"
+ "i2326"
+ "i2324"
+ "i2323"
+ "i2322"
+ "i2320"
+ "i2318"
+ "i2317"
+ "i2314"
+ "i2313"
+ "i2311"
+ "i2309"
+ "i2307"
+ "i2305"
+ "i2303"
+ "i2301"
+ "i2299"
+ "i2297"
+ "i2295"
+ "i2292"
+ "i2290"
+ "i2288"
+ "i2286"
+ "i2284"
+ "i2282"
+ "i2280"
+ "i2278"
+ "i2276"
+ "i2274"
+ "i2272"
+ "i2270"
+ "i2268"
+ "i2266"
+ "i2264"
+ "i2262"
+ "i2260"
+ "i2258"
+ "i2256"
+ "i2254"
+ "i2252"
+ "i2250"
+ "i2248"
+ "i2247"
+ "i2244"
+ "i2242"
+ "i2241"
+ "i2240"
+ "i2239"
+ "i2238"
+ "i2236"
+ "i2234"
+ "i2232"
+ "i2229"
+ "i2227"
+ "i2225"
+ "i2223"
+ "i2221"
+ "i2219"
+ "i2217"
+ "i2215"
+ "i2213"
+ "i2211"
+ "i2209"
+ "i2207"
+ "i2205"
+ "i2203"
+ "i2201"
+ "i2199"
+ "i2197"
+ "i2195"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -20516,9 +20548,9 @@
((top)
(top)
(top))
- ("i46"
- "i45"
- "i44")))
+ ("i2033"
+ "i2032"
+ "i2031")))
(hygiene guile)))
4)
#t
@@ -20532,7 +20564,7 @@
#(ribcage
#(x)
#((top))
- #("i2219"))
+ #("i4206"))
#(ribcage
(lambda-var-list
gen-var
@@ -20806,153 +20838,155 @@
(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"))
+ ("i2454"
+ "i2452"
+ "i2450"
+ "i2448"
+ "i2446"
+ "i2444"
+ "i2442"
+ "i2440"
+ "i2438"
+ "i2436"
+ "i2434"
+ "i2432"
+ "i2430"
+ "i2428"
+ "i2426"
+ "i2424"
+ "i2422"
+ "i2420"
+ "i2418"
+ "i2416"
+ "i2414"
+ "i2412"
+ "i2410"
+ "i2408"
+ "i2406"
+ "i2404"
+ "i2402"
+ "i2400"
+ "i2398"
+ "i2396"
+ "i2394"
+ "i2392"
+ "i2390"
+ "i2388"
+ "i2386"
+ "i2385"
+ "i2383"
+ "i2380"
+ "i2379"
+ "i2378"
+ "i2376"
+ "i2375"
+ "i2373"
+ "i2371"
+ "i2369"
+ "i2367"
+ "i2365"
+ "i2363"
+ "i2361"
+ "i2359"
+ "i2356"
+ "i2354"
+ "i2353"
+ "i2351"
+ "i2349"
+ "i2347"
+ "i2345"
+ "i2344"
+ "i2343"
+ "i2342"
+ "i2340"
+ "i2339"
+ "i2336"
+ "i2334"
+ "i2332"
+ "i2330"
+ "i2328"
+ "i2326"
+ "i2324"
+ "i2323"
+ "i2322"
+ "i2320"
+ "i2318"
+ "i2317"
+ "i2314"
+ "i2313"
+ "i2311"
+ "i2309"
+ "i2307"
+ "i2305"
+ "i2303"
+ "i2301"
+ "i2299"
+ "i2297"
+ "i2295"
+ "i2292"
+ "i2290"
+ "i2288"
+ "i2286"
+ "i2284"
+ "i2282"
+ "i2280"
+ "i2278"
+ "i2276"
+ "i2274"
+ "i2272"
+ "i2270"
+ "i2268"
+ "i2266"
+ "i2264"
+ "i2262"
+ "i2260"
+ "i2258"
+ "i2256"
+ "i2254"
+ "i2252"
+ "i2250"
+ "i2248"
+ "i2247"
+ "i2244"
+ "i2242"
+ "i2241"
+ "i2240"
+ "i2239"
+ "i2238"
+ "i2236"
+ "i2234"
+ "i2232"
+ "i2229"
+ "i2227"
+ "i2225"
+ "i2223"
+ "i2221"
+ "i2219"
+ "i2217"
+ "i2215"
+ "i2213"
+ "i2211"
+ "i2209"
+ "i2207"
+ "i2205"
+ "i2203"
+ "i2201"
+ "i2199"
+ "i2197"
+ "i2195"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i46" "i45" "i44")))
+ ("i2033"
+ "i2032"
+ "i2031")))
(hygiene guile))))
- (eq? (#{id-var-name 4321}#
- #{x 11761}#
+ (eq? (#{id-var-name 6308}#
+ #{x 13748}#
'(()))
- (#{id-var-name 4321}#
+ (#{id-var-name 6308}#
'#(syntax-object
...
((top)
@@ -20961,7 +20995,7 @@
#(ribcage
#(x)
#((top))
- #("i2219"))
+ #("i4206"))
#(ribcage
(lambda-var-list
gen-var
@@ -21235,738 +21269,738 @@
(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"))
+ ("i2454"
+ "i2452"
+ "i2450"
+ "i2448"
+ "i2446"
+ "i2444"
+ "i2442"
+ "i2440"
+ "i2438"
+ "i2436"
+ "i2434"
+ "i2432"
+ "i2430"
+ "i2428"
+ "i2426"
+ "i2424"
+ "i2422"
+ "i2420"
+ "i2418"
+ "i2416"
+ "i2414"
+ "i2412"
+ "i2410"
+ "i2408"
+ "i2406"
+ "i2404"
+ "i2402"
+ "i2400"
+ "i2398"
+ "i2396"
+ "i2394"
+ "i2392"
+ "i2390"
+ "i2388"
+ "i2386"
+ "i2385"
+ "i2383"
+ "i2380"
+ "i2379"
+ "i2378"
+ "i2376"
+ "i2375"
+ "i2373"
+ "i2371"
+ "i2369"
+ "i2367"
+ "i2365"
+ "i2363"
+ "i2361"
+ "i2359"
+ "i2356"
+ "i2354"
+ "i2353"
+ "i2351"
+ "i2349"
+ "i2347"
+ "i2345"
+ "i2344"
+ "i2343"
+ "i2342"
+ "i2340"
+ "i2339"
+ "i2336"
+ "i2334"
+ "i2332"
+ "i2330"
+ "i2328"
+ "i2326"
+ "i2324"
+ "i2323"
+ "i2322"
+ "i2320"
+ "i2318"
+ "i2317"
+ "i2314"
+ "i2313"
+ "i2311"
+ "i2309"
+ "i2307"
+ "i2305"
+ "i2303"
+ "i2301"
+ "i2299"
+ "i2297"
+ "i2295"
+ "i2292"
+ "i2290"
+ "i2288"
+ "i2286"
+ "i2284"
+ "i2282"
+ "i2280"
+ "i2278"
+ "i2276"
+ "i2274"
+ "i2272"
+ "i2270"
+ "i2268"
+ "i2266"
+ "i2264"
+ "i2262"
+ "i2260"
+ "i2258"
+ "i2256"
+ "i2254"
+ "i2252"
+ "i2250"
+ "i2248"
+ "i2247"
+ "i2244"
+ "i2242"
+ "i2241"
+ "i2240"
+ "i2239"
+ "i2238"
+ "i2236"
+ "i2234"
+ "i2232"
+ "i2229"
+ "i2227"
+ "i2225"
+ "i2223"
+ "i2221"
+ "i2219"
+ "i2217"
+ "i2215"
+ "i2213"
+ "i2211"
+ "i2209"
+ "i2207"
+ "i2205"
+ "i2203"
+ "i2201"
+ "i2199"
+ "i2197"
+ "i2195"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i46" "i45" "i44")))
+ ("i2033" "i2032" "i2031")))
(hygiene guile))
'(())))
#f)
#f))
#f))
- #{key 11759}#)
- (let ((#{x 11887}#
+ #{key 13746}#)
+ (let ((#{x 13874}#
(gensym
(string-append (symbol->string 'tmp) " "))))
- (#{build-application 4269}#
- #{s 11729}#
- (let ((#{req 12017}# (list 'tmp))
- (#{vars 12019}# (list #{x 11887}#))
- (#{exp 12021}#
- (#{gen-syntax-case 11725}#
+ (#{build-application 6256}#
+ #{s 13716}#
+ (let ((#{req 14004}# (list 'tmp))
+ (#{vars 14006}# (list #{x 13874}#))
+ (#{exp 14008}#
+ (#{gen-syntax-case 13712}#
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
#f
'tmp
- #{x 11887}#)
- #{key 11759}#
- #{m 11760}#
- #{r 11727}#
- #{mod 11730}#)))
- (let ((#{body 12026}#
+ #{x 13874}#)
+ #{key 13746}#
+ #{m 13747}#
+ #{r 13714}#
+ #{mod 13717}#)))
+ (let ((#{body 14013}#
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
#f
- #{req 12017}#
+ #{req 14004}#
#f
#f
#f
'()
- #{vars 12019}#
- #{exp 12021}#
+ #{vars 14006}#
+ #{exp 14008}#
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
#f
'()
- #{body 12026}#)))
- (list (#{expand 4334}#
- #{val 11758}#
- #{r 11727}#
+ #{body 14013}#)))
+ (list (#{expand 6321}#
+ #{val 13745}#
+ #{r 13714}#
'(())
- #{mod 11730}#))))
+ #{mod 13717}#))))
(syntax-violation
'syntax-case
"invalid literals list"
- #{e 11731}#)))
- #{tmp 11733}#)
+ #{e 13718}#)))
+ #{tmp 13720}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 11731}#)))))))
+ #{e 13718}#)))))))
(set! macroexpand
(lambda*
- (#{x 14464}#
+ (#{x 16451}#
#:optional
- (#{m 14465}# 'e)
- (#{esew 14466}# '(eval)))
- (#{expand-top-sequence 4330}#
- (list #{x 14464}#)
+ (#{m 16452}# 'e)
+ (#{esew 16453}# '(eval)))
+ (#{expand-top-sequence 6317}#
+ (list #{x 16451}#)
'()
'((top))
#f
- #{m 14465}#
- #{esew 14466}#
+ #{m 16452}#
+ #{esew 16453}#
(cons 'hygiene (module-name (current-module))))))
(set! identifier?
- (lambda (#{x 14469}#)
- (if (if (vector? #{x 14469}#)
- (if (= (vector-length #{x 14469}#) 4)
- (eq? (vector-ref #{x 14469}# 0) 'syntax-object)
+ (lambda (#{x 16456}#)
+ (if (if (vector? #{x 16456}#)
+ (if (= (vector-length #{x 16456}#) 4)
+ (eq? (vector-ref #{x 16456}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 14469}# 1))
+ (symbol? (vector-ref #{x 16456}# 1))
#f)))
(set! datum->syntax
- (lambda (#{id 14494}# #{datum 14495}#)
- (let ((#{wrap 14500}# (vector-ref #{id 14494}# 2))
- (#{module 14501}# (vector-ref #{id 14494}# 3)))
+ (lambda (#{id 16481}# #{datum 16482}#)
+ (let ((#{wrap 16487}# (vector-ref #{id 16481}# 2))
+ (#{module 16488}# (vector-ref #{id 16481}# 3)))
(vector
'syntax-object
- #{datum 14495}#
- #{wrap 14500}#
- #{module 14501}#))))
+ #{datum 16482}#
+ #{wrap 16487}#
+ #{module 16488}#))))
(set! syntax->datum
- (lambda (#{x 14508}#)
- (#{strip 4347}# #{x 14508}# '(()))))
+ (lambda (#{x 16495}#)
+ (#{strip 6334}# #{x 16495}# '(()))))
(set! syntax-source
- (lambda (#{x 14511}#)
- (#{source-annotation 4295}# #{x 14511}#)))
+ (lambda (#{x 16498}#)
+ (#{source-annotation 6282}# #{x 16498}#)))
(set! generate-temporaries
- (lambda (#{ls 14664}#)
+ (lambda (#{ls 16651}#)
(begin
- (if (not (list? #{ls 14664}#))
+ (if (not (list? #{ls 16651}#))
(syntax-violation
'generate-temporaries
"invalid argument"
- #{ls 14664}#))
- (let ((#{mod 14672}#
+ #{ls 16651}#))
+ (let ((#{mod 16659}#
(cons 'hygiene (module-name (current-module)))))
- (map (lambda (#{x 14673}#)
- (#{wrap 4327}# (gensym) '((top)) #{mod 14672}#))
- #{ls 14664}#)))))
+ (map (lambda (#{x 16660}#)
+ (#{wrap 6314}# (gensym) '((top)) #{mod 16659}#))
+ #{ls 16651}#)))))
(set! free-identifier=?
- (lambda (#{x 14677}# #{y 14678}#)
+ (lambda (#{x 16664}# #{y 16665}#)
(begin
- (if (not (if (if (vector? #{x 14677}#)
- (if (= (vector-length #{x 14677}#) 4)
- (eq? (vector-ref #{x 14677}# 0) 'syntax-object)
+ (if (not (if (if (vector? #{x 16664}#)
+ (if (= (vector-length #{x 16664}#) 4)
+ (eq? (vector-ref #{x 16664}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 14677}# 1))
+ (symbol? (vector-ref #{x 16664}# 1))
#f))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{x 14677}#))
- (if (not (if (if (vector? #{y 14678}#)
- (if (= (vector-length #{y 14678}#) 4)
- (eq? (vector-ref #{y 14678}# 0) 'syntax-object)
+ #{x 16664}#))
+ (if (not (if (if (vector? #{y 16665}#)
+ (if (= (vector-length #{y 16665}#) 4)
+ (eq? (vector-ref #{y 16665}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{y 14678}# 1))
+ (symbol? (vector-ref #{y 16665}# 1))
#f))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{y 14678}#))
- (if (eq? (if (if (vector? #{x 14677}#)
- (if (= (vector-length #{x 14677}#) 4)
- (eq? (vector-ref #{x 14677}# 0) 'syntax-object)
+ #{y 16665}#))
+ (if (eq? (if (if (vector? #{x 16664}#)
+ (if (= (vector-length #{x 16664}#) 4)
+ (eq? (vector-ref #{x 16664}# 0) 'syntax-object)
#f)
#f)
- (vector-ref #{x 14677}# 1)
- #{x 14677}#)
- (if (if (vector? #{y 14678}#)
- (if (= (vector-length #{y 14678}#) 4)
- (eq? (vector-ref #{y 14678}# 0) 'syntax-object)
+ (vector-ref #{x 16664}# 1)
+ #{x 16664}#)
+ (if (if (vector? #{y 16665}#)
+ (if (= (vector-length #{y 16665}#) 4)
+ (eq? (vector-ref #{y 16665}# 0) 'syntax-object)
#f)
#f)
- (vector-ref #{y 14678}# 1)
- #{y 14678}#))
- (eq? (#{id-var-name 4321}# #{x 14677}# '(()))
- (#{id-var-name 4321}# #{y 14678}# '(())))
+ (vector-ref #{y 16665}# 1)
+ #{y 16665}#))
+ (eq? (#{id-var-name 6308}# #{x 16664}# '(()))
+ (#{id-var-name 6308}# #{y 16665}# '(())))
#f))))
(set! bound-identifier=?
- (lambda (#{x 14828}# #{y 14829}#)
+ (lambda (#{x 16815}# #{y 16816}#)
(begin
- (if (not (if (if (vector? #{x 14828}#)
- (if (= (vector-length #{x 14828}#) 4)
- (eq? (vector-ref #{x 14828}# 0) 'syntax-object)
+ (if (not (if (if (vector? #{x 16815}#)
+ (if (= (vector-length #{x 16815}#) 4)
+ (eq? (vector-ref #{x 16815}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 14828}# 1))
+ (symbol? (vector-ref #{x 16815}# 1))
#f))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{x 14828}#))
- (if (not (if (if (vector? #{y 14829}#)
- (if (= (vector-length #{y 14829}#) 4)
- (eq? (vector-ref #{y 14829}# 0) 'syntax-object)
+ #{x 16815}#))
+ (if (not (if (if (vector? #{y 16816}#)
+ (if (= (vector-length #{y 16816}#) 4)
+ (eq? (vector-ref #{y 16816}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{y 14829}# 1))
+ (symbol? (vector-ref #{y 16816}# 1))
#f))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{y 14829}#))
- (if (if (if (vector? #{x 14828}#)
- (if (= (vector-length #{x 14828}#) 4)
- (eq? (vector-ref #{x 14828}# 0) 'syntax-object)
+ #{y 16816}#))
+ (if (if (if (vector? #{x 16815}#)
+ (if (= (vector-length #{x 16815}#) 4)
+ (eq? (vector-ref #{x 16815}# 0) 'syntax-object)
#f)
#f)
- (if (vector? #{y 14829}#)
- (if (= (vector-length #{y 14829}#) 4)
- (eq? (vector-ref #{y 14829}# 0) 'syntax-object)
+ (if (vector? #{y 16816}#)
+ (if (= (vector-length #{y 16816}#) 4)
+ (eq? (vector-ref #{y 16816}# 0) 'syntax-object)
#f)
#f)
#f)
- (if (eq? (vector-ref #{x 14828}# 1)
- (vector-ref #{y 14829}# 1))
- (#{same-marks? 4320}#
- (car (vector-ref #{x 14828}# 2))
- (car (vector-ref #{y 14829}# 2)))
+ (if (eq? (vector-ref #{x 16815}# 1)
+ (vector-ref #{y 16816}# 1))
+ (#{same-marks? 6307}#
+ (car (vector-ref #{x 16815}# 2))
+ (car (vector-ref #{y 16816}# 2)))
#f)
- (eq? #{x 14828}# #{y 14829}#)))))
+ (eq? #{x 16815}# #{y 16816}#)))))
(set! syntax-violation
(lambda*
- (#{who 14962}#
- #{message 14963}#
- #{form 14964}#
+ (#{who 16949}#
+ #{message 16950}#
+ #{form 16951}#
#:optional
- (#{subform 14965}# #f))
+ (#{subform 16952}# #f))
(begin
- (if (not (if (not #{who 14962}#)
- (not #{who 14962}#)
- (let ((#{t 14983}# (string? #{who 14962}#)))
- (if #{t 14983}#
- #{t 14983}#
- (symbol? #{who 14962}#)))))
+ (if (not (if (not #{who 16949}#)
+ (not #{who 16949}#)
+ (let ((#{t 16970}# (string? #{who 16949}#)))
+ (if #{t 16970}#
+ #{t 16970}#
+ (symbol? #{who 16949}#)))))
(syntax-violation
'syntax-violation
"invalid argument"
- #{who 14962}#))
- (if (not (string? #{message 14963}#))
+ #{who 16949}#))
+ (if (not (string? #{message 16950}#))
(syntax-violation
'syntax-violation
"invalid argument"
- #{message 14963}#))
+ #{message 16950}#))
(throw 'syntax-error
- #{who 14962}#
- #{message 14963}#
- (#{source-annotation 4295}#
- (if #{form 14964}#
- #{form 14964}#
- #{subform 14965}#))
- (#{strip 4347}# #{form 14964}# '(()))
- (if #{subform 14965}#
- (#{strip 4347}# #{subform 14965}# '(()))
+ #{who 16949}#
+ #{message 16950}#
+ (#{source-annotation 6282}#
+ (if #{form 16951}#
+ #{form 16951}#
+ #{subform 16952}#))
+ (#{strip 6334}# #{form 16951}# '(()))
+ (if #{subform 16952}#
+ (#{strip 6334}# #{subform 16952}# '(()))
#f)))))
(letrec*
- ((#{match-each 15186}#
- (lambda (#{e 15773}#
- #{p 15774}#
- #{w 15775}#
- #{mod 15776}#)
- (if (pair? #{e 15773}#)
- (let ((#{first 15777}#
- (#{match 15192}#
- (car #{e 15773}#)
- #{p 15774}#
- #{w 15775}#
+ ((#{match-each 17173}#
+ (lambda (#{e 17760}#
+ #{p 17761}#
+ #{w 17762}#
+ #{mod 17763}#)
+ (if (pair? #{e 17760}#)
+ (let ((#{first 17764}#
+ (#{match 17179}#
+ (car #{e 17760}#)
+ #{p 17761}#
+ #{w 17762}#
'()
- #{mod 15776}#)))
- (if #{first 15777}#
- (let ((#{rest 15780}#
- (#{match-each 15186}#
- (cdr #{e 15773}#)
- #{p 15774}#
- #{w 15775}#
- #{mod 15776}#)))
- (if #{rest 15780}#
- (cons #{first 15777}# #{rest 15780}#)
+ #{mod 17763}#)))
+ (if #{first 17764}#
+ (let ((#{rest 17767}#
+ (#{match-each 17173}#
+ (cdr #{e 17760}#)
+ #{p 17761}#
+ #{w 17762}#
+ #{mod 17763}#)))
+ (if #{rest 17767}#
+ (cons #{first 17764}# #{rest 17767}#)
#f))
#f))
- (if (null? #{e 15773}#)
+ (if (null? #{e 17760}#)
'()
- (if (if (vector? #{e 15773}#)
- (if (= (vector-length #{e 15773}#) 4)
- (eq? (vector-ref #{e 15773}# 0) 'syntax-object)
+ (if (if (vector? #{e 17760}#)
+ (if (= (vector-length #{e 17760}#) 4)
+ (eq? (vector-ref #{e 17760}# 0) 'syntax-object)
#f)
#f)
- (#{match-each 15186}#
- (vector-ref #{e 15773}# 1)
- #{p 15774}#
- (#{join-wraps 4318}#
- #{w 15775}#
- (vector-ref #{e 15773}# 2))
- (vector-ref #{e 15773}# 3))
+ (#{match-each 17173}#
+ (vector-ref #{e 17760}# 1)
+ #{p 17761}#
+ (#{join-wraps 6305}#
+ #{w 17762}#
+ (vector-ref #{e 17760}# 2))
+ (vector-ref #{e 17760}# 3))
#f)))))
- (#{match-each-any 15188}#
- (lambda (#{e 15808}# #{w 15809}# #{mod 15810}#)
- (if (pair? #{e 15808}#)
- (let ((#{l 15811}#
- (#{match-each-any 15188}#
- (cdr #{e 15808}#)
- #{w 15809}#
- #{mod 15810}#)))
- (if #{l 15811}#
- (cons (#{wrap 4327}#
- (car #{e 15808}#)
- #{w 15809}#
- #{mod 15810}#)
- #{l 15811}#)
+ (#{match-each-any 17175}#
+ (lambda (#{e 17795}# #{w 17796}# #{mod 17797}#)
+ (if (pair? #{e 17795}#)
+ (let ((#{l 17798}#
+ (#{match-each-any 17175}#
+ (cdr #{e 17795}#)
+ #{w 17796}#
+ #{mod 17797}#)))
+ (if #{l 17798}#
+ (cons (#{wrap 6314}#
+ (car #{e 17795}#)
+ #{w 17796}#
+ #{mod 17797}#)
+ #{l 17798}#)
#f))
- (if (null? #{e 15808}#)
+ (if (null? #{e 17795}#)
'()
- (if (if (vector? #{e 15808}#)
- (if (= (vector-length #{e 15808}#) 4)
- (eq? (vector-ref #{e 15808}# 0) 'syntax-object)
+ (if (if (vector? #{e 17795}#)
+ (if (= (vector-length #{e 17795}#) 4)
+ (eq? (vector-ref #{e 17795}# 0) 'syntax-object)
#f)
#f)
- (#{match-each-any 15188}#
- (vector-ref #{e 15808}# 1)
- (#{join-wraps 4318}#
- #{w 15809}#
- (vector-ref #{e 15808}# 2))
- #{mod 15810}#)
+ (#{match-each-any 17175}#
+ (vector-ref #{e 17795}# 1)
+ (#{join-wraps 6305}#
+ #{w 17796}#
+ (vector-ref #{e 17795}# 2))
+ #{mod 17797}#)
#f)))))
- (#{match-empty 15189}#
- (lambda (#{p 15835}# #{r 15836}#)
- (if (null? #{p 15835}#)
- #{r 15836}#
- (if (eq? #{p 15835}# '_)
- #{r 15836}#
- (if (eq? #{p 15835}# 'any)
- (cons '() #{r 15836}#)
- (if (pair? #{p 15835}#)
- (#{match-empty 15189}#
- (car #{p 15835}#)
- (#{match-empty 15189}#
- (cdr #{p 15835}#)
- #{r 15836}#))
- (if (eq? #{p 15835}# 'each-any)
- (cons '() #{r 15836}#)
- (let ((#{atom-key 15837}# (vector-ref #{p 15835}# 0)))
- (if (eqv? #{atom-key 15837}# 'each)
- (#{match-empty 15189}#
- (vector-ref #{p 15835}# 1)
- #{r 15836}#)
- (if (eqv? #{atom-key 15837}# 'each+)
- (#{match-empty 15189}#
- (vector-ref #{p 15835}# 1)
- (#{match-empty 15189}#
- (reverse (vector-ref #{p 15835}# 2))
- (#{match-empty 15189}#
- (vector-ref #{p 15835}# 3)
- #{r 15836}#)))
- (if (if (eqv? #{atom-key 15837}# 'free-id)
+ (#{match-empty 17176}#
+ (lambda (#{p 17822}# #{r 17823}#)
+ (if (null? #{p 17822}#)
+ #{r 17823}#
+ (if (eq? #{p 17822}# '_)
+ #{r 17823}#
+ (if (eq? #{p 17822}# 'any)
+ (cons '() #{r 17823}#)
+ (if (pair? #{p 17822}#)
+ (#{match-empty 17176}#
+ (car #{p 17822}#)
+ (#{match-empty 17176}#
+ (cdr #{p 17822}#)
+ #{r 17823}#))
+ (if (eq? #{p 17822}# 'each-any)
+ (cons '() #{r 17823}#)
+ (let ((#{atom-key 17824}# (vector-ref #{p 17822}# 0)))
+ (if (eqv? #{atom-key 17824}# 'each)
+ (#{match-empty 17176}#
+ (vector-ref #{p 17822}# 1)
+ #{r 17823}#)
+ (if (eqv? #{atom-key 17824}# 'each+)
+ (#{match-empty 17176}#
+ (vector-ref #{p 17822}# 1)
+ (#{match-empty 17176}#
+ (reverse (vector-ref #{p 17822}# 2))
+ (#{match-empty 17176}#
+ (vector-ref #{p 17822}# 3)
+ #{r 17823}#)))
+ (if (if (eqv? #{atom-key 17824}# 'free-id)
#t
- (eqv? #{atom-key 15837}# 'atom))
- #{r 15836}#
- (if (eqv? #{atom-key 15837}# 'vector)
- (#{match-empty 15189}#
- (vector-ref #{p 15835}# 1)
- #{r 15836}#)))))))))))))
- (#{combine 15190}#
- (lambda (#{r* 15856}# #{r 15857}#)
- (if (null? (car #{r* 15856}#))
- #{r 15857}#
- (cons (map car #{r* 15856}#)
- (#{combine 15190}#
- (map cdr #{r* 15856}#)
- #{r 15857}#)))))
- (#{match* 15191}#
- (lambda (#{e 15221}#
- #{p 15222}#
- #{w 15223}#
- #{r 15224}#
- #{mod 15225}#)
- (if (null? #{p 15222}#)
- (if (null? #{e 15221}#) #{r 15224}# #f)
- (if (pair? #{p 15222}#)
- (if (pair? #{e 15221}#)
- (#{match 15192}#
- (car #{e 15221}#)
- (car #{p 15222}#)
- #{w 15223}#
- (#{match 15192}#
- (cdr #{e 15221}#)
- (cdr #{p 15222}#)
- #{w 15223}#
- #{r 15224}#
- #{mod 15225}#)
- #{mod 15225}#)
+ (eqv? #{atom-key 17824}# 'atom))
+ #{r 17823}#
+ (if (eqv? #{atom-key 17824}# 'vector)
+ (#{match-empty 17176}#
+ (vector-ref #{p 17822}# 1)
+ #{r 17823}#)))))))))))))
+ (#{combine 17177}#
+ (lambda (#{r* 17843}# #{r 17844}#)
+ (if (null? (car #{r* 17843}#))
+ #{r 17844}#
+ (cons (map car #{r* 17843}#)
+ (#{combine 17177}#
+ (map cdr #{r* 17843}#)
+ #{r 17844}#)))))
+ (#{match* 17178}#
+ (lambda (#{e 17208}#
+ #{p 17209}#
+ #{w 17210}#
+ #{r 17211}#
+ #{mod 17212}#)
+ (if (null? #{p 17209}#)
+ (if (null? #{e 17208}#) #{r 17211}# #f)
+ (if (pair? #{p 17209}#)
+ (if (pair? #{e 17208}#)
+ (#{match 17179}#
+ (car #{e 17208}#)
+ (car #{p 17209}#)
+ #{w 17210}#
+ (#{match 17179}#
+ (cdr #{e 17208}#)
+ (cdr #{p 17209}#)
+ #{w 17210}#
+ #{r 17211}#
+ #{mod 17212}#)
+ #{mod 17212}#)
#f)
- (if (eq? #{p 15222}# 'each-any)
- (let ((#{l 15230}#
- (#{match-each-any 15188}#
- #{e 15221}#
- #{w 15223}#
- #{mod 15225}#)))
- (if #{l 15230}#
- (cons #{l 15230}# #{r 15224}#)
+ (if (eq? #{p 17209}# 'each-any)
+ (let ((#{l 17217}#
+ (#{match-each-any 17175}#
+ #{e 17208}#
+ #{w 17210}#
+ #{mod 17212}#)))
+ (if #{l 17217}#
+ (cons #{l 17217}# #{r 17211}#)
#f))
- (let ((#{atom-key 15235}# (vector-ref #{p 15222}# 0)))
- (if (eqv? #{atom-key 15235}# 'each)
- (if (null? #{e 15221}#)
- (#{match-empty 15189}#
- (vector-ref #{p 15222}# 1)
- #{r 15224}#)
- (let ((#{l 15242}#
- (#{match-each 15186}#
- #{e 15221}#
- (vector-ref #{p 15222}# 1)
- #{w 15223}#
- #{mod 15225}#)))
- (if #{l 15242}#
+ (let ((#{atom-key 17222}# (vector-ref #{p 17209}# 0)))
+ (if (eqv? #{atom-key 17222}# 'each)
+ (if (null? #{e 17208}#)
+ (#{match-empty 17176}#
+ (vector-ref #{p 17209}# 1)
+ #{r 17211}#)
+ (let ((#{l 17229}#
+ (#{match-each 17173}#
+ #{e 17208}#
+ (vector-ref #{p 17209}# 1)
+ #{w 17210}#
+ #{mod 17212}#)))
+ (if #{l 17229}#
(letrec*
- ((#{collect 15245}#
- (lambda (#{l 15296}#)
- (if (null? (car #{l 15296}#))
- #{r 15224}#
- (cons (map car #{l 15296}#)
- (#{collect 15245}#
- (map cdr #{l 15296}#)))))))
- (#{collect 15245}# #{l 15242}#))
+ ((#{collect 17232}#
+ (lambda (#{l 17283}#)
+ (if (null? (car #{l 17283}#))
+ #{r 17211}#
+ (cons (map car #{l 17283}#)
+ (#{collect 17232}#
+ (map cdr #{l 17283}#)))))))
+ (#{collect 17232}# #{l 17229}#))
#f)))
- (if (eqv? #{atom-key 15235}# 'each+)
+ (if (eqv? #{atom-key 17222}# 'each+)
(call-with-values
(lambda ()
- (let ((#{x-pat 15305}# (vector-ref #{p 15222}# 1))
- (#{y-pat 15306}# (vector-ref #{p 15222}# 2))
- (#{z-pat 15307}# (vector-ref #{p 15222}# 3)))
+ (let ((#{x-pat 17292}# (vector-ref #{p 17209}# 1))
+ (#{y-pat 17293}# (vector-ref #{p 17209}# 2))
+ (#{z-pat 17294}# (vector-ref #{p 17209}# 3)))
(letrec*
- ((#{f 15311}#
- (lambda (#{e 15313}# #{w 15314}#)
- (if (pair? #{e 15313}#)
+ ((#{f 17298}#
+ (lambda (#{e 17300}# #{w 17301}#)
+ (if (pair? #{e 17300}#)
(call-with-values
(lambda ()
- (#{f 15311}#
- (cdr #{e 15313}#)
- #{w 15314}#))
- (lambda (#{xr* 15315}#
- #{y-pat 15316}#
- #{r 15317}#)
- (if #{r 15317}#
- (if (null? #{y-pat 15316}#)
- (let ((#{xr 15318}#
- (#{match 15192}#
- (car #{e 15313}#)
- #{x-pat 15305}#
- #{w 15314}#
+ (#{f 17298}#
+ (cdr #{e 17300}#)
+ #{w 17301}#))
+ (lambda (#{xr* 17302}#
+ #{y-pat 17303}#
+ #{r 17304}#)
+ (if #{r 17304}#
+ (if (null? #{y-pat 17303}#)
+ (let ((#{xr 17305}#
+ (#{match 17179}#
+ (car #{e 17300}#)
+ #{x-pat 17292}#
+ #{w 17301}#
'()
- #{mod 15225}#)))
- (if #{xr 15318}#
+ #{mod 17212}#)))
+ (if #{xr 17305}#
(values
- (cons #{xr 15318}#
- #{xr* 15315}#)
- #{y-pat 15316}#
- #{r 15317}#)
+ (cons #{xr 17305}#
+ #{xr* 17302}#)
+ #{y-pat 17303}#
+ #{r 17304}#)
(values #f #f #f)))
(values
'()
- (cdr #{y-pat 15316}#)
- (#{match 15192}#
- (car #{e 15313}#)
- (car #{y-pat 15316}#)
- #{w 15314}#
- #{r 15317}#
- #{mod 15225}#)))
+ (cdr #{y-pat 17303}#)
+ (#{match 17179}#
+ (car #{e 17300}#)
+ (car #{y-pat 17303}#)
+ #{w 17301}#
+ #{r 17304}#
+ #{mod 17212}#)))
(values #f #f #f))))
- (if (if (vector? #{e 15313}#)
- (if (= (vector-length #{e 15313}#)
+ (if (if (vector? #{e 17300}#)
+ (if (= (vector-length #{e 17300}#)
4)
- (eq? (vector-ref #{e 15313}# 0)
+ (eq? (vector-ref #{e 17300}# 0)
'syntax-object)
#f)
#f)
- (#{f 15311}#
- (vector-ref #{e 15313}# 1)
- (#{join-wraps 4318}#
- #{w 15314}#
- #{e 15313}#))
+ (#{f 17298}#
+ (vector-ref #{e 17300}# 1)
+ (#{join-wraps 6305}#
+ #{w 17301}#
+ #{e 17300}#))
(values
'()
- #{y-pat 15306}#
- (#{match 15192}#
- #{e 15313}#
- #{z-pat 15307}#
- #{w 15314}#
- #{r 15224}#
- #{mod 15225}#)))))))
- (#{f 15311}# #{e 15221}# #{w 15223}#))))
- (lambda (#{xr* 15344}# #{y-pat 15345}# #{r 15346}#)
- (if #{r 15346}#
- (if (null? #{y-pat 15345}#)
- (if (null? #{xr* 15344}#)
- (#{match-empty 15189}#
- (vector-ref #{p 15222}# 1)
- #{r 15346}#)
- (#{combine 15190}# #{xr* 15344}# #{r 15346}#))
+ #{y-pat 17293}#
+ (#{match 17179}#
+ #{e 17300}#
+ #{z-pat 17294}#
+ #{w 17301}#
+ #{r 17211}#
+ #{mod 17212}#)))))))
+ (#{f 17298}# #{e 17208}# #{w 17210}#))))
+ (lambda (#{xr* 17331}# #{y-pat 17332}# #{r 17333}#)
+ (if #{r 17333}#
+ (if (null? #{y-pat 17332}#)
+ (if (null? #{xr* 17331}#)
+ (#{match-empty 17176}#
+ (vector-ref #{p 17209}# 1)
+ #{r 17333}#)
+ (#{combine 17177}# #{xr* 17331}# #{r 17333}#))
#f)
#f)))
- (if (eqv? #{atom-key 15235}# 'free-id)
- (if (if (symbol? #{e 15221}#)
+ (if (eqv? #{atom-key 17222}# 'free-id)
+ (if (if (symbol? #{e 17208}#)
#t
- (if (if (vector? #{e 15221}#)
- (if (= (vector-length #{e 15221}#) 4)
- (eq? (vector-ref #{e 15221}# 0)
+ (if (if (vector? #{e 17208}#)
+ (if (= (vector-length #{e 17208}#) 4)
+ (eq? (vector-ref #{e 17208}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{e 15221}# 1))
+ (symbol? (vector-ref #{e 17208}# 1))
#f))
- (if (let ((#{i 15677}#
- (#{wrap 4327}#
- #{e 15221}#
- #{w 15223}#
- #{mod 15225}#))
- (#{j 15678}# (vector-ref #{p 15222}# 1)))
- (if (eq? (if (if (vector? #{i 15677}#)
+ (if (let ((#{i 17664}#
+ (#{wrap 6314}#
+ #{e 17208}#
+ #{w 17210}#
+ #{mod 17212}#))
+ (#{j 17665}# (vector-ref #{p 17209}# 1)))
+ (if (eq? (if (if (vector? #{i 17664}#)
(if (= (vector-length
- #{i 15677}#)
+ #{i 17664}#)
4)
(eq? (vector-ref
- #{i 15677}#
+ #{i 17664}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{i 15677}# 1)
- #{i 15677}#)
- (if (if (vector? #{j 15678}#)
+ (vector-ref #{i 17664}# 1)
+ #{i 17664}#)
+ (if (if (vector? #{j 17665}#)
(if (= (vector-length
- #{j 15678}#)
+ #{j 17665}#)
4)
(eq? (vector-ref
- #{j 15678}#
+ #{j 17665}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{j 15678}# 1)
- #{j 15678}#))
- (eq? (#{id-var-name 4321}#
- #{i 15677}#
+ (vector-ref #{j 17665}# 1)
+ #{j 17665}#))
+ (eq? (#{id-var-name 6308}#
+ #{i 17664}#
'(()))
- (#{id-var-name 4321}#
- #{j 15678}#
+ (#{id-var-name 6308}#
+ #{j 17665}#
'(())))
#f))
- #{r 15224}#
+ #{r 17211}#
#f)
#f)
- (if (eqv? #{atom-key 15235}# 'atom)
+ (if (eqv? #{atom-key 17222}# 'atom)
(if (equal?
- (vector-ref #{p 15222}# 1)
- (#{strip 4347}# #{e 15221}# #{w 15223}#))
- #{r 15224}#
+ (vector-ref #{p 17209}# 1)
+ (#{strip 6334}# #{e 17208}# #{w 17210}#))
+ #{r 17211}#
#f)
- (if (eqv? #{atom-key 15235}# 'vector)
- (if (vector? #{e 15221}#)
- (#{match 15192}#
- (vector->list #{e 15221}#)
- (vector-ref #{p 15222}# 1)
- #{w 15223}#
- #{r 15224}#
- #{mod 15225}#)
+ (if (eqv? #{atom-key 17222}# 'vector)
+ (if (vector? #{e 17208}#)
+ (#{match 17179}#
+ (vector->list #{e 17208}#)
+ (vector-ref #{p 17209}# 1)
+ #{w 17210}#
+ #{r 17211}#
+ #{mod 17212}#)
#f))))))))))))
- (#{match 15192}#
- (lambda (#{e 15738}#
- #{p 15739}#
- #{w 15740}#
- #{r 15741}#
- #{mod 15742}#)
- (if (not #{r 15741}#)
+ (#{match 17179}#
+ (lambda (#{e 17725}#
+ #{p 17726}#
+ #{w 17727}#
+ #{r 17728}#
+ #{mod 17729}#)
+ (if (not #{r 17728}#)
#f
- (if (eq? #{p 15739}# '_)
- #{r 15741}#
- (if (eq? #{p 15739}# 'any)
- (cons (#{wrap 4327}#
- #{e 15738}#
- #{w 15740}#
- #{mod 15742}#)
- #{r 15741}#)
- (if (if (vector? #{e 15738}#)
- (if (= (vector-length #{e 15738}#) 4)
- (eq? (vector-ref #{e 15738}# 0) 'syntax-object)
+ (if (eq? #{p 17726}# '_)
+ #{r 17728}#
+ (if (eq? #{p 17726}# 'any)
+ (cons (#{wrap 6314}#
+ #{e 17725}#
+ #{w 17727}#
+ #{mod 17729}#)
+ #{r 17728}#)
+ (if (if (vector? #{e 17725}#)
+ (if (= (vector-length #{e 17725}#) 4)
+ (eq? (vector-ref #{e 17725}# 0) 'syntax-object)
#f)
#f)
- (#{match* 15191}#
- (vector-ref #{e 15738}# 1)
- #{p 15739}#
- (#{join-wraps 4318}#
- #{w 15740}#
- (vector-ref #{e 15738}# 2))
- #{r 15741}#
- (vector-ref #{e 15738}# 3))
- (#{match* 15191}#
- #{e 15738}#
- #{p 15739}#
- #{w 15740}#
- #{r 15741}#
- #{mod 15742}#))))))))
+ (#{match* 17178}#
+ (vector-ref #{e 17725}# 1)
+ #{p 17726}#
+ (#{join-wraps 6305}#
+ #{w 17727}#
+ (vector-ref #{e 17725}# 2))
+ #{r 17728}#
+ (vector-ref #{e 17725}# 3))
+ (#{match* 17178}#
+ #{e 17725}#
+ #{p 17726}#
+ #{w 17727}#
+ #{r 17728}#
+ #{mod 17729}#))))))))
(set! $sc-dispatch
- (lambda (#{e 15193}# #{p 15194}#)
- (if (eq? #{p 15194}# 'any)
- (list #{e 15193}#)
- (if (eq? #{p 15194}# '_)
+ (lambda (#{e 17180}# #{p 17181}#)
+ (if (eq? #{p 17181}# 'any)
+ (list #{e 17180}#)
+ (if (eq? #{p 17181}# '_)
'()
- (if (if (vector? #{e 15193}#)
- (if (= (vector-length #{e 15193}#) 4)
- (eq? (vector-ref #{e 15193}# 0) 'syntax-object)
+ (if (if (vector? #{e 17180}#)
+ (if (= (vector-length #{e 17180}#) 4)
+ (eq? (vector-ref #{e 17180}# 0) 'syntax-object)
#f)
#f)
- (#{match* 15191}#
- (vector-ref #{e 15193}# 1)
- #{p 15194}#
- (vector-ref #{e 15193}# 2)
+ (#{match* 17178}#
+ (vector-ref #{e 17180}# 1)
+ #{p 17181}#
+ (vector-ref #{e 17180}# 2)
'()
- (vector-ref #{e 15193}# 3))
- (#{match* 15191}#
- #{e 15193}#
- #{p 15194}#
+ (vector-ref #{e 17180}# 3))
+ (#{match* 17178}#
+ #{e 17180}#
+ #{p 17181}#
'(())
'()
#f)))))))))
@@ -21975,82 +22009,82 @@
(make-syntax-transformer
'with-syntax
'macro
- (lambda (#{x 27949}#)
- (let ((#{tmp 27951}#
- ($sc-dispatch #{x 27949}# '(_ () any . each-any))))
- (if #{tmp 27951}#
+ (lambda (#{x 29958}#)
+ (let ((#{tmp 29960}#
+ ($sc-dispatch #{x 29958}# '(_ () any . each-any))))
+ (if #{tmp 29960}#
(@apply
- (lambda (#{e1 27955}# #{e2 27956}#)
+ (lambda (#{e1 29964}# #{e2 29965}#)
(cons '#(syntax-object
let
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i27922" "i27923"))
+ #("i29931" "i29932"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i27919")))
+ #(ribcage #(x) #((top)) #("i29928")))
(hygiene guile))
- (cons '() (cons #{e1 27955}# #{e2 27956}#))))
- #{tmp 27951}#)
- (let ((#{tmp 27957}#
+ (cons '() (cons #{e1 29964}# #{e2 29965}#))))
+ #{tmp 29960}#)
+ (let ((#{tmp 29966}#
($sc-dispatch
- #{x 27949}#
+ #{x 29958}#
'(_ ((any any)) any . each-any))))
- (if #{tmp 27957}#
+ (if #{tmp 29966}#
(@apply
- (lambda (#{out 27961}#
- #{in 27962}#
- #{e1 27963}#
- #{e2 27964}#)
+ (lambda (#{out 29970}#
+ #{in 29971}#
+ #{e1 29972}#
+ #{e2 29973}#)
(list '#(syntax-object
syntax-case
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i27928" "i27929" "i27930" "i27931"))
+ #("i29937" "i29938" "i29939" "i29940"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i27919")))
+ #(ribcage #(x) #((top)) #("i29928")))
(hygiene guile))
- #{in 27962}#
+ #{in 29971}#
'()
- (list #{out 27961}#
+ (list #{out 29970}#
(cons '#(syntax-object
let
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i27928"
- "i27929"
- "i27930"
- "i27931"))
+ #("i29937"
+ "i29938"
+ "i29939"
+ "i29940"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i27919")))
+ #(ribcage #(x) #((top)) #("i29928")))
(hygiene guile))
(cons '()
- (cons #{e1 27963}# #{e2 27964}#))))))
- #{tmp 27957}#)
- (let ((#{tmp 27965}#
+ (cons #{e1 29972}# #{e2 29973}#))))))
+ #{tmp 29966}#)
+ (let ((#{tmp 29974}#
($sc-dispatch
- #{x 27949}#
+ #{x 29958}#
'(_ #(each (any any)) any . each-any))))
- (if #{tmp 27965}#
+ (if #{tmp 29974}#
(@apply
- (lambda (#{out 27969}#
- #{in 27970}#
- #{e1 27971}#
- #{e2 27972}#)
+ (lambda (#{out 29978}#
+ #{in 29979}#
+ #{e1 29980}#
+ #{e2 29981}#)
(list '#(syntax-object
syntax-case
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i27938" "i27939" "i27940" "i27941"))
+ #("i29947" "i29948" "i29949" "i29950"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i27919")))
+ #(ribcage #(x) #((top)) #("i29928")))
(hygiene guile))
(cons '#(syntax-object
list
@@ -22058,62 +22092,62 @@
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i27938" "i27939" "i27940" "i27941"))
+ #("i29947" "i29948" "i29949" "i29950"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i27919")))
+ #(ribcage #(x) #((top)) #("i29928")))
(hygiene guile))
- #{in 27970}#)
+ #{in 29979}#)
'()
- (list #{out 27969}#
+ (list #{out 29978}#
(cons '#(syntax-object
let
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i27938"
- "i27939"
- "i27940"
- "i27941"))
+ #("i29947"
+ "i29948"
+ "i29949"
+ "i29950"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i27919")))
+ #("i29928")))
(hygiene guile))
(cons '()
- (cons #{e1 27971}#
- #{e2 27972}#))))))
- #{tmp 27965}#)
+ (cons #{e1 29980}#
+ #{e2 29981}#))))))
+ #{tmp 29974}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 27949}#))))))))))
+ #{x 29958}#))))))))))
(define syntax-rules
(make-syntax-transformer
'syntax-rules
'macro
- (lambda (#{x 28026}#)
- (let ((#{tmp 28028}#
+ (lambda (#{x 30035}#)
+ (let ((#{tmp 30037}#
($sc-dispatch
- #{x 28026}#
+ #{x 30035}#
'(_ each-any . #(each ((any . any) any))))))
- (if #{tmp 28028}#
+ (if #{tmp 30037}#
(@apply
- (lambda (#{k 28032}#
- #{keyword 28033}#
- #{pattern 28034}#
- #{template 28035}#)
+ (lambda (#{k 30041}#
+ #{keyword 30042}#
+ #{pattern 30043}#
+ #{template 30044}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i27989" "i27990" "i27991" "i27992"))
+ #("i29998" "i29999" "i30000" "i30001"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i27986")))
+ #(ribcage #(x) #((top)) #("i29995")))
(hygiene guile))
'(#(syntax-object
x
@@ -22121,9 +22155,9 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i27989" "i27990" "i27991" "i27992"))
+ #("i29998" "i29999" "i30000" "i30001"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i27986")))
+ #(ribcage #(x) #((top)) #("i29995")))
(hygiene guile)))
(vector
'(#(syntax-object
@@ -22132,9 +22166,9 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i27989" "i27990" "i27991" "i27992"))
+ #("i29998" "i29999" "i30000" "i30001"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i27986")))
+ #(ribcage #(x) #((top)) #("i29995")))
(hygiene guile))
.
#(syntax-object
@@ -22143,9 +22177,9 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i27989" "i27990" "i27991" "i27992"))
+ #("i29998" "i29999" "i30000" "i30001"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i27986")))
+ #(ribcage #(x) #((top)) #("i29995")))
(hygiene guile)))
(cons '#(syntax-object
patterns
@@ -22153,20 +22187,20 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i27989" "i27990" "i27991" "i27992"))
+ #("i29998" "i29999" "i30000" "i30001"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i27986")))
+ #(ribcage #(x) #((top)) #("i29995")))
(hygiene guile))
- #{pattern 28034}#))
+ #{pattern 30043}#))
(cons '#(syntax-object
syntax-case
((top)
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i27989" "i27990" "i27991" "i27992"))
+ #("i29998" "i29999" "i30000" "i30001"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i27986")))
+ #(ribcage #(x) #((top)) #("i29995")))
(hygiene guile))
(cons '#(syntax-object
x
@@ -22174,13 +22208,13 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i27989" "i27990" "i27991" "i27992"))
+ #("i29998" "i29999" "i30000" "i30001"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i27986")))
+ #(ribcage #(x) #((top)) #("i29995")))
(hygiene guile))
- (cons #{k 28032}#
- (map (lambda (#{tmp 28000 28036}#
- #{tmp 27999 28037}#)
+ (cons #{k 30041}#
+ (map (lambda (#{tmp 30009 30045}#
+ #{tmp 30008 30046}#)
(list (cons '#(syntax-object
dummy
((top)
@@ -22193,10 +22227,10 @@
(top)
(top)
(top))
- #("i27989"
- "i27990"
- "i27991"
- "i27992"))
+ #("i29998"
+ "i29999"
+ "i30000"
+ "i30001"))
#(ribcage
()
()
@@ -22204,9 +22238,9 @@
#(ribcage
#(x)
#((top))
- #("i27986")))
+ #("i29995")))
(hygiene guile))
- #{tmp 27999 28037}#)
+ #{tmp 30008 30046}#)
(list '#(syntax-object
syntax
((top)
@@ -22219,10 +22253,10 @@
(top)
(top)
(top))
- #("i27989"
- "i27990"
- "i27991"
- "i27992"))
+ #("i29998"
+ "i29999"
+ "i30000"
+ "i30001"))
#(ribcage
()
()
@@ -22230,41 +22264,41 @@
#(ribcage
#(x)
#((top))
- #("i27986")))
+ #("i29995")))
(hygiene guile))
- #{tmp 28000 28036}#)))
- #{template 28035}#
- #{pattern 28034}#))))))
- #{tmp 28028}#)
- (let ((#{tmp 28038}#
+ #{tmp 30009 30045}#)))
+ #{template 30044}#
+ #{pattern 30043}#))))))
+ #{tmp 30037}#)
+ (let ((#{tmp 30047}#
($sc-dispatch
- #{x 28026}#
+ #{x 30035}#
'(_ each-any any . #(each ((any . any) any))))))
- (if (if #{tmp 28038}#
+ (if (if #{tmp 30047}#
(@apply
- (lambda (#{k 28042}#
- #{docstring 28043}#
- #{keyword 28044}#
- #{pattern 28045}#
- #{template 28046}#)
- (string? (syntax->datum #{docstring 28043}#)))
- #{tmp 28038}#)
+ (lambda (#{k 30051}#
+ #{docstring 30052}#
+ #{keyword 30053}#
+ #{pattern 30054}#
+ #{template 30055}#)
+ (string? (syntax->datum #{docstring 30052}#)))
+ #{tmp 30047}#)
#f)
(@apply
- (lambda (#{k 28047}#
- #{docstring 28048}#
- #{keyword 28049}#
- #{pattern 28050}#
- #{template 28051}#)
+ (lambda (#{k 30056}#
+ #{docstring 30057}#
+ #{keyword 30058}#
+ #{pattern 30059}#
+ #{template 30060}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i28012" "i28013" "i28014" "i28015" "i28016"))
+ #("i30021" "i30022" "i30023" "i30024" "i30025"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i27986")))
+ #(ribcage #(x) #((top)) #("i29995")))
(hygiene guile))
'(#(syntax-object
x
@@ -22272,11 +22306,11 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i28012" "i28013" "i28014" "i28015" "i28016"))
+ #("i30021" "i30022" "i30023" "i30024" "i30025"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i27986")))
+ #(ribcage #(x) #((top)) #("i29995")))
(hygiene guile)))
- #{docstring 28048}#
+ #{docstring 30057}#
(vector
'(#(syntax-object
macro-type
@@ -22284,13 +22318,13 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i28012"
- "i28013"
- "i28014"
- "i28015"
- "i28016"))
+ #("i30021"
+ "i30022"
+ "i30023"
+ "i30024"
+ "i30025"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i27986")))
+ #(ribcage #(x) #((top)) #("i29995")))
(hygiene guile))
.
#(syntax-object
@@ -22299,13 +22333,13 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i28012"
- "i28013"
- "i28014"
- "i28015"
- "i28016"))
+ #("i30021"
+ "i30022"
+ "i30023"
+ "i30024"
+ "i30025"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i27986")))
+ #(ribcage #(x) #((top)) #("i29995")))
(hygiene guile)))
(cons '#(syntax-object
patterns
@@ -22313,28 +22347,28 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i28012"
- "i28013"
- "i28014"
- "i28015"
- "i28016"))
+ #("i30021"
+ "i30022"
+ "i30023"
+ "i30024"
+ "i30025"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i27986")))
+ #(ribcage #(x) #((top)) #("i29995")))
(hygiene guile))
- #{pattern 28050}#))
+ #{pattern 30059}#))
(cons '#(syntax-object
syntax-case
((top)
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i28012"
- "i28013"
- "i28014"
- "i28015"
- "i28016"))
+ #("i30021"
+ "i30022"
+ "i30023"
+ "i30024"
+ "i30025"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i27986")))
+ #(ribcage #(x) #((top)) #("i29995")))
(hygiene guile))
(cons '#(syntax-object
x
@@ -22346,17 +22380,17 @@
pattern
template)
#((top) (top) (top) (top) (top))
- #("i28012"
- "i28013"
- "i28014"
- "i28015"
- "i28016"))
+ #("i30021"
+ "i30022"
+ "i30023"
+ "i30024"
+ "i30025"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i27986")))
+ #(ribcage #(x) #((top)) #("i29995")))
(hygiene guile))
- (cons #{k 28047}#
- (map (lambda (#{tmp 28025 28052}#
- #{tmp 28024 28053}#)
+ (cons #{k 30056}#
+ (map (lambda (#{tmp 30034 30061}#
+ #{tmp 30033 30062}#)
(list (cons '#(syntax-object
dummy
((top)
@@ -22371,11 +22405,11 @@
(top)
(top)
(top))
- #("i28012"
- "i28013"
- "i28014"
- "i28015"
- "i28016"))
+ #("i30021"
+ "i30022"
+ "i30023"
+ "i30024"
+ "i30025"))
#(ribcage
()
()
@@ -22383,10 +22417,10 @@
#(ribcage
#(x)
#((top))
-
#("i27986")))
+
#("i29995")))
(hygiene
guile))
- #{tmp 28024
28053}#)
+ #{tmp 30033
30062}#)
(list '#(syntax-object
syntax
((top)
@@ -22401,11 +22435,11 @@
(top)
(top)
(top))
- #("i28012"
- "i28013"
- "i28014"
- "i28015"
- "i28016"))
+ #("i30021"
+ "i30022"
+ "i30023"
+ "i30024"
+ "i30025"))
#(ribcage
()
()
@@ -22413,50 +22447,50 @@
#(ribcage
#(x)
#((top))
-
#("i27986")))
+
#("i29995")))
(hygiene
guile))
- #{tmp 28025
28052}#)))
- #{template 28051}#
- #{pattern 28050}#))))))
- #{tmp 28038}#)
+ #{tmp 30034
30061}#)))
+ #{template 30060}#
+ #{pattern 30059}#))))))
+ #{tmp 30047}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 28026}#))))))))
+ #{x 30035}#))))))))
(define define-syntax-rule
(make-syntax-transformer
'define-syntax-rule
'macro
- (lambda (#{x 28090}#)
- (let ((#{tmp 28092}#
- ($sc-dispatch #{x 28090}# '(_ (any . any) any))))
- (if #{tmp 28092}#
+ (lambda (#{x 30099}#)
+ (let ((#{tmp 30101}#
+ ($sc-dispatch #{x 30099}# '(_ (any . any) any))))
+ (if #{tmp 30101}#
(@apply
- (lambda (#{name 28096}#
- #{pattern 28097}#
- #{template 28098}#)
+ (lambda (#{name 30105}#
+ #{pattern 30106}#
+ #{template 30107}#)
(list '#(syntax-object
define-syntax
((top)
#(ribcage
#(name pattern template)
#((top) (top) (top))
- #("i28067" "i28068" "i28069"))
+ #("i30076" "i30077" "i30078"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28064")))
+ #(ribcage #(x) #((top)) #("i30073")))
(hygiene guile))
- #{name 28096}#
+ #{name 30105}#
(list '#(syntax-object
syntax-rules
((top)
#(ribcage
#(name pattern template)
#((top) (top) (top))
- #("i28067" "i28068" "i28069"))
+ #("i30076" "i30077" "i30078"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28064")))
+ #(ribcage #(x) #((top)) #("i30073")))
(hygiene guile))
'()
(list (cons '#(syntax-object
@@ -22465,54 +22499,54 @@
#(ribcage
#(name pattern template)
#((top) (top) (top))
- #("i28067" "i28068" "i28069"))
+ #("i30076" "i30077" "i30078"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28064")))
+ #(ribcage #(x) #((top)) #("i30073")))
(hygiene guile))
- #{pattern 28097}#)
- #{template 28098}#))))
- #{tmp 28092}#)
- (let ((#{tmp 28099}#
+ #{pattern 30106}#)
+ #{template 30107}#))))
+ #{tmp 30101}#)
+ (let ((#{tmp 30108}#
($sc-dispatch
- #{x 28090}#
+ #{x 30099}#
'(_ (any . any) any any))))
- (if (if #{tmp 28099}#
+ (if (if #{tmp 30108}#
(@apply
- (lambda (#{name 28103}#
- #{pattern 28104}#
- #{docstring 28105}#
- #{template 28106}#)
- (string? (syntax->datum #{docstring 28105}#)))
- #{tmp 28099}#)
+ (lambda (#{name 30112}#
+ #{pattern 30113}#
+ #{docstring 30114}#
+ #{template 30115}#)
+ (string? (syntax->datum #{docstring 30114}#)))
+ #{tmp 30108}#)
#f)
(@apply
- (lambda (#{name 28107}#
- #{pattern 28108}#
- #{docstring 28109}#
- #{template 28110}#)
+ (lambda (#{name 30116}#
+ #{pattern 30117}#
+ #{docstring 30118}#
+ #{template 30119}#)
(list '#(syntax-object
define-syntax
((top)
#(ribcage
#(name pattern docstring template)
#((top) (top) (top) (top))
- #("i28082" "i28083" "i28084" "i28085"))
+ #("i30091" "i30092" "i30093" "i30094"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28064")))
+ #(ribcage #(x) #((top)) #("i30073")))
(hygiene guile))
- #{name 28107}#
+ #{name 30116}#
(list '#(syntax-object
syntax-rules
((top)
#(ribcage
#(name pattern docstring template)
#((top) (top) (top) (top))
- #("i28082" "i28083" "i28084" "i28085"))
+ #("i30091" "i30092" "i30093" "i30094"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28064")))
+ #(ribcage #(x) #((top)) #("i30073")))
(hygiene guile))
'()
- #{docstring 28109}#
+ #{docstring 30118}#
(list (cons '#(syntax-object
_
((top)
@@ -22522,53 +22556,53 @@
docstring
template)
#((top) (top) (top) (top))
- #("i28082"
- "i28083"
- "i28084"
- "i28085"))
+ #("i30091"
+ "i30092"
+ "i30093"
+ "i30094"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i28064")))
+ #("i30073")))
(hygiene guile))
- #{pattern 28108}#)
- #{template 28110}#))))
- #{tmp 28099}#)
+ #{pattern 30117}#)
+ #{template 30119}#))))
+ #{tmp 30108}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 28090}#))))))))
+ #{x 30099}#))))))))
(define let*
(make-syntax-transformer
'let*
'macro
- (lambda (#{x 28159}#)
- (let ((#{tmp 28161}#
+ (lambda (#{x 30168}#)
+ (let ((#{tmp 30170}#
($sc-dispatch
- #{x 28159}#
+ #{x 30168}#
'(any #(each (any any)) any . each-any))))
- (if (if #{tmp 28161}#
+ (if (if #{tmp 30170}#
(@apply
- (lambda (#{let* 28165}#
- #{x 28166}#
- #{v 28167}#
- #{e1 28168}#
- #{e2 28169}#)
- (and-map identifier? #{x 28166}#))
- #{tmp 28161}#)
+ (lambda (#{let* 30174}#
+ #{x 30175}#
+ #{v 30176}#
+ #{e1 30177}#
+ #{e2 30178}#)
+ (and-map identifier? #{x 30175}#))
+ #{tmp 30170}#)
#f)
(@apply
- (lambda (#{let* 28170}#
- #{x 28171}#
- #{v 28172}#
- #{e1 28173}#
- #{e2 28174}#)
+ (lambda (#{let* 30179}#
+ #{x 30180}#
+ #{v 30181}#
+ #{e1 30182}#
+ #{e2 30183}#)
(letrec*
- ((#{f 28175}#
- (lambda (#{bindings 28178}#)
- (if (null? #{bindings 28178}#)
+ ((#{f 30184}#
+ (lambda (#{bindings 30187}#)
+ (if (null? #{bindings 30187}#)
(cons '#(syntax-object
let
((top)
@@ -22576,27 +22610,27 @@
#(ribcage
#(f bindings)
#((top) (top))
- #("i28145" "i28146"))
+ #("i30154" "i30155"))
#(ribcage
#(let* x v e1 e2)
#((top) (top) (top) (top) (top))
- #("i28135"
- "i28136"
- "i28137"
- "i28138"
- "i28139"))
+ #("i30144"
+ "i30145"
+ "i30146"
+ "i30147"
+ "i30148"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28121")))
+ #(ribcage #(x) #((top)) #("i30130")))
(hygiene guile))
- (cons '() (cons #{e1 28173}# #{e2 28174}#)))
- (let ((#{tmp 28179}#
- (list (#{f 28175}# (cdr #{bindings 28178}#))
- (car #{bindings 28178}#))))
- (let ((#{tmp 28180}#
- ($sc-dispatch #{tmp 28179}# '(any any))))
- (if #{tmp 28180}#
+ (cons '() (cons #{e1 30182}# #{e2 30183}#)))
+ (let ((#{tmp 30188}#
+ (list (#{f 30184}# (cdr #{bindings 30187}#))
+ (car #{bindings 30187}#))))
+ (let ((#{tmp 30189}#
+ ($sc-dispatch #{tmp 30188}# '(any any))))
+ (if #{tmp 30189}#
(@apply
- (lambda (#{body 28182}# #{binding 28183}#)
+ (lambda (#{body 30191}# #{binding 30192}#)
(list '#(syntax-object
let
((top)
@@ -22604,86 +22638,86 @@
#(ribcage
#(body binding)
#((top) (top))
- #("i28155" "i28156"))
+ #("i30164" "i30165"))
#(ribcage () () ())
#(ribcage
#(f bindings)
#((top) (top))
- #("i28145" "i28146"))
+ #("i30154" "i30155"))
#(ribcage
#(let* x v e1 e2)
#((top) (top) (top) (top) (top))
- #("i28135"
- "i28136"
- "i28137"
- "i28138"
- "i28139"))
+ #("i30144"
+ "i30145"
+ "i30146"
+ "i30147"
+ "i30148"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i28121")))
+ #("i30130")))
(hygiene guile))
- (list #{binding 28183}#)
- #{body 28182}#))
- #{tmp 28180}#)
+ (list #{binding 30192}#)
+ #{body 30191}#))
+ #{tmp 30189}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 28179}#))))))))
- (#{f 28175}# (map list #{x 28171}# #{v 28172}#))))
- #{tmp 28161}#)
+ #{tmp 30188}#))))))))
+ (#{f 30184}# (map list #{x 30180}# #{v 30181}#))))
+ #{tmp 30170}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 28159}#))))))
+ #{x 30168}#))))))
(define do
(make-syntax-transformer
'do
'macro
- (lambda (#{orig-x 28241}#)
- (let ((#{tmp 28243}#
+ (lambda (#{orig-x 30250}#)
+ (let ((#{tmp 30252}#
($sc-dispatch
- #{orig-x 28241}#
+ #{orig-x 30250}#
'(_ #(each (any any . any))
(any . each-any)
.
each-any))))
- (if #{tmp 28243}#
+ (if #{tmp 30252}#
(@apply
- (lambda (#{var 28247}#
- #{init 28248}#
- #{step 28249}#
- #{e0 28250}#
- #{e1 28251}#
- #{c 28252}#)
- (let ((#{tmp 28253}#
- (map (lambda (#{v 28256}# #{s 28257}#)
- (let ((#{tmp 28259}#
- ($sc-dispatch #{s 28257}# '())))
- (if #{tmp 28259}#
- (@apply (lambda () #{v 28256}#) #{tmp 28259}#)
- (let ((#{tmp 28262}#
- ($sc-dispatch #{s 28257}# '(any))))
- (if #{tmp 28262}#
+ (lambda (#{var 30256}#
+ #{init 30257}#
+ #{step 30258}#
+ #{e0 30259}#
+ #{e1 30260}#
+ #{c 30261}#)
+ (let ((#{tmp 30262}#
+ (map (lambda (#{v 30265}# #{s 30266}#)
+ (let ((#{tmp 30268}#
+ ($sc-dispatch #{s 30266}# '())))
+ (if #{tmp 30268}#
+ (@apply (lambda () #{v 30265}#) #{tmp 30268}#)
+ (let ((#{tmp 30271}#
+ ($sc-dispatch #{s 30266}# '(any))))
+ (if #{tmp 30271}#
(@apply
- (lambda (#{e 28265}#) #{e 28265}#)
- #{tmp 28262}#)
+ (lambda (#{e 30274}#) #{e 30274}#)
+ #{tmp 30271}#)
(syntax-violation
'do
"bad step expression"
- #{orig-x 28241}#
- #{s 28257}#))))))
- #{var 28247}#
- #{step 28249}#)))
- (let ((#{tmp 28254}#
- ($sc-dispatch #{tmp 28253}# 'each-any)))
- (if #{tmp 28254}#
+ #{orig-x 30250}#
+ #{s 30266}#))))))
+ #{var 30256}#
+ #{step 30258}#)))
+ (let ((#{tmp 30263}#
+ ($sc-dispatch #{tmp 30262}# 'each-any)))
+ (if #{tmp 30263}#
(@apply
- (lambda (#{step 28271}#)
- (let ((#{tmp 28273}# ($sc-dispatch #{e1 28251}# '())))
- (if #{tmp 28273}#
+ (lambda (#{step 30280}#)
+ (let ((#{tmp 30282}# ($sc-dispatch #{e1 30260}# '())))
+ (if #{tmp 30282}#
(@apply
(lambda ()
(list '#(syntax-object
@@ -22693,7 +22727,7 @@
#(ribcage
#(step)
#((top))
- #("i28209"))
+ #("i30218"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -22702,17 +22736,17 @@
(top)
(top)
(top))
- #("i28194"
- "i28195"
- "i28196"
- "i28197"
- "i28198"
- "i28199"))
+ #("i30203"
+ "i30204"
+ "i30205"
+ "i30206"
+ "i30207"
+ "i30208"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i28191")))
+ #("i30200")))
(hygiene guile))
'#(syntax-object
doloop
@@ -22721,7 +22755,7 @@
#(ribcage
#(step)
#((top))
- #("i28209"))
+ #("i30218"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -22730,19 +22764,19 @@
(top)
(top)
(top))
- #("i28194"
- "i28195"
- "i28196"
- "i28197"
- "i28198"
- "i28199"))
+ #("i30203"
+ "i30204"
+ "i30205"
+ "i30206"
+ "i30207"
+ "i30208"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i28191")))
+ #("i30200")))
(hygiene guile))
- (map list #{var 28247}# #{init 28248}#)
+ (map list #{var 30256}# #{init 30257}#)
(list '#(syntax-object
if
((top)
@@ -22750,7 +22784,7 @@
#(ribcage
#(step)
#((top))
- #("i28209"))
+ #("i30218"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -22759,17 +22793,17 @@
(top)
(top)
(top))
- #("i28194"
- "i28195"
- "i28196"
- "i28197"
- "i28198"
- "i28199"))
+ #("i30203"
+ "i30204"
+ "i30205"
+ "i30206"
+ "i30207"
+ "i30208"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i28191")))
+ #("i30200")))
(hygiene guile))
(list '#(syntax-object
not
@@ -22778,7 +22812,7 @@
#(ribcage
#(step)
#((top))
- #("i28209"))
+ #("i30218"))
#(ribcage
#(var
init
@@ -22792,19 +22826,19 @@
(top)
(top)
(top))
- #("i28194"
- "i28195"
- "i28196"
- "i28197"
- "i28198"
- "i28199"))
+ #("i30203"
+ "i30204"
+ "i30205"
+ "i30206"
+ "i30207"
+ "i30208"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i28191")))
+ #("i30200")))
(hygiene guile))
- #{e0 28250}#)
+ #{e0 30259}#)
(cons '#(syntax-object
begin
((top)
@@ -22812,7 +22846,7 @@
#(ribcage
#(step)
#((top))
- #("i28209"))
+ #("i30218"))
#(ribcage
#(var
init
@@ -22826,20 +22860,20 @@
(top)
(top)
(top))
- #("i28194"
- "i28195"
- "i28196"
- "i28197"
- "i28198"
- "i28199"))
+ #("i30203"
+ "i30204"
+ "i30205"
+ "i30206"
+ "i30207"
+ "i30208"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i28191")))
+ #("i30200")))
(hygiene guile))
(append
- #{c 28252}#
+ #{c 30261}#
(list (cons
'#(syntax-object
doloop
((top)
@@ -22850,7 +22884,7 @@
#(ribcage
#(step)
#((top))
-
#("i28209"))
+
#("i30218"))
#(ribcage
#(var
init
@@ -22864,12 +22898,12 @@
(top)
(top)
(top))
-
#("i28194"
-
"i28195"
-
"i28196"
-
"i28197"
-
"i28198"
-
"i28199"))
+
#("i30203"
+
"i30204"
+
"i30205"
+
"i30206"
+
"i30207"
+
"i30208"))
#(ribcage
()
()
@@ -22877,30 +22911,30 @@
#(ribcage
#(orig-x)
#((top))
-
#("i28191")))
+
#("i30200")))
(hygiene
guile))
- #{step
28271}#)))))))
- #{tmp 28273}#)
- (let ((#{tmp 28277}#
+ #{step
30280}#)))))))
+ #{tmp 30282}#)
+ (let ((#{tmp 30286}#
($sc-dispatch
- #{e1 28251}#
+ #{e1 30260}#
'(any . each-any))))
- (if #{tmp 28277}#
+ (if #{tmp 30286}#
(@apply
- (lambda (#{e1 28281}# #{e2 28282}#)
+ (lambda (#{e1 30290}# #{e2 30291}#)
(list '#(syntax-object
let
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i28218" "i28219"))
+ #("i30227" "i30228"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("i28209"))
+ #("i30218"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -22909,17 +22943,17 @@
(top)
(top)
(top))
- #("i28194"
- "i28195"
- "i28196"
- "i28197"
- "i28198"
- "i28199"))
+ #("i30203"
+ "i30204"
+ "i30205"
+ "i30206"
+ "i30207"
+ "i30208"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i28191")))
+ #("i30200")))
(hygiene guile))
'#(syntax-object
doloop
@@ -22927,12 +22961,12 @@
#(ribcage
#(e1 e2)
#((top) (top))
- #("i28218" "i28219"))
+ #("i30227" "i30228"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("i28209"))
+ #("i30218"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -22941,33 +22975,33 @@
(top)
(top)
(top))
- #("i28194"
- "i28195"
- "i28196"
- "i28197"
- "i28198"
- "i28199"))
+ #("i30203"
+ "i30204"
+ "i30205"
+ "i30206"
+ "i30207"
+ "i30208"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i28191")))
+ #("i30200")))
(hygiene guile))
(map list
- #{var 28247}#
- #{init 28248}#)
+ #{var 30256}#
+ #{init 30257}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i28218" "i28219"))
+ #("i30227" "i30228"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("i28209"))
+ #("i30218"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -22976,32 +23010,32 @@
(top)
(top)
(top))
- #("i28194"
- "i28195"
- "i28196"
- "i28197"
- "i28198"
- "i28199"))
+ #("i30203"
+ "i30204"
+ "i30205"
+ "i30206"
+ "i30207"
+ "i30208"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i28191")))
+ #("i30200")))
(hygiene guile))
- #{e0 28250}#
+ #{e0 30259}#
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i28218"
- "i28219"))
+ #("i30227"
+ "i30228"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("i28209"))
+ #("i30218"))
#(ribcage
#(var
init
@@ -23015,33 +23049,33 @@
(top)
(top)
(top))
- #("i28194"
- "i28195"
- "i28196"
- "i28197"
- "i28198"
- "i28199"))
+ #("i30203"
+ "i30204"
+ "i30205"
+ "i30206"
+ "i30207"
+ "i30208"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i28191")))
+ #("i30200")))
(hygiene guile))
- (cons #{e1 28281}#
- #{e2 28282}#))
+ (cons #{e1 30290}#
+ #{e2 30291}#))
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i28218"
- "i28219"))
+ #("i30227"
+ "i30228"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("i28209"))
+ #("i30218"))
#(ribcage
#(var
init
@@ -23055,20 +23089,20 @@
(top)
(top)
(top))
- #("i28194"
- "i28195"
- "i28196"
- "i28197"
- "i28198"
- "i28199"))
+ #("i30203"
+ "i30204"
+ "i30205"
+ "i30206"
+ "i30207"
+ "i30208"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i28191")))
+ #("i30200")))
(hygiene guile))
(append
- #{c 28252}#
+ #{c 30261}#
(list (cons
'#(syntax-object
doloop
((top)
@@ -23077,8 +23111,8 @@
e2)
#((top)
(top))
-
#("i28218"
-
"i28219"))
+
#("i30227"
+
"i30228"))
#(ribcage
()
()
@@ -23086,7 +23120,7 @@
#(ribcage
#(step)
#((top))
-
#("i28209"))
+
#("i30218"))
#(ribcage
#(var
init
@@ -23100,12 +23134,12 @@
(top)
(top)
(top))
-
#("i28194"
-
"i28195"
-
"i28196"
-
"i28197"
-
"i28198"
-
"i28199"))
+
#("i30203"
+
"i30204"
+
"i30205"
+
"i30206"
+
"i30207"
+
"i30208"))
#(ribcage
()
()
@@ -23113,36 +23147,36 @@
#(ribcage
#(orig-x)
#((top))
-
#("i28191")))
+
#("i30200")))
(hygiene
guile))
- #{step
28271}#)))))))
- #{tmp 28277}#)
+ #{step
30280}#)))))))
+ #{tmp 30286}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{e1 28251}#))))))
- #{tmp 28254}#)
+ #{e1 30260}#))))))
+ #{tmp 30263}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 28253}#)))))
- #{tmp 28243}#)
+ #{tmp 30262}#)))))
+ #{tmp 30252}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{orig-x 28241}#))))))
+ #{orig-x 30250}#))))))
(define quasiquote
(make-syntax-transformer
'quasiquote
'macro
(letrec*
- ((#{quasi 28568}#
- (lambda (#{p 28592}# #{lev 28593}#)
- (let ((#{tmp 28595}#
+ ((#{quasi 30577}#
+ (lambda (#{p 30601}# #{lev 30602}#)
+ (let ((#{tmp 30604}#
($sc-dispatch
- #{p 28592}#
+ #{p 30601}#
'(#(free-id
#(syntax-object
unquote
@@ -23151,7 +23185,7 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i28314" "i28315"))
+ #("i30323" "i30324"))
#(ribcage
(emit quasivector
quasilist*
@@ -23160,28 +23194,28 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i28310"
- "i28308"
- "i28306"
- "i28304"
- "i28302"
- "i28300"
- "i28298")))
+ ("i30319"
+ "i30317"
+ "i30315"
+ "i30313"
+ "i30311"
+ "i30309"
+ "i30307")))
(hygiene guile)))
any))))
- (if #{tmp 28595}#
+ (if #{tmp 30604}#
(@apply
- (lambda (#{p 28599}#)
- (if (= #{lev 28593}# 0)
+ (lambda (#{p 30608}#)
+ (if (= #{lev 30602}# 0)
(list '#(syntax-object
"value"
((top)
- #(ribcage #(p) #((top)) #("i28318"))
+ #(ribcage #(p) #((top)) #("i30327"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28314" "i28315"))
+ #("i30323" "i30324"))
#(ribcage
(emit quasivector
quasilist*
@@ -23190,25 +23224,25 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i28310"
- "i28308"
- "i28306"
- "i28304"
- "i28302"
- "i28300"
- "i28298")))
+ ("i30319"
+ "i30317"
+ "i30315"
+ "i30313"
+ "i30311"
+ "i30309"
+ "i30307")))
(hygiene guile))
- #{p 28599}#)
- (#{quasicons 28570}#
+ #{p 30608}#)
+ (#{quasicons 30579}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i28318"))
+ #(ribcage #(p) #((top)) #("i30327"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28314" "i28315"))
+ #("i30323" "i30324"))
#(ribcage
(emit quasivector
quasilist*
@@ -23217,23 +23251,23 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i28310"
- "i28308"
- "i28306"
- "i28304"
- "i28302"
- "i28300"
- "i28298")))
+ ("i30319"
+ "i30317"
+ "i30315"
+ "i30313"
+ "i30311"
+ "i30309"
+ "i30307")))
(hygiene guile))
#(syntax-object
unquote
((top)
- #(ribcage #(p) #((top)) #("i28318"))
+ #(ribcage #(p) #((top)) #("i30327"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28314" "i28315"))
+ #("i30323" "i30324"))
#(ribcage
(emit quasivector
quasilist*
@@ -23242,21 +23276,21 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i28310"
- "i28308"
- "i28306"
- "i28304"
- "i28302"
- "i28300"
- "i28298")))
+ ("i30319"
+ "i30317"
+ "i30315"
+ "i30313"
+ "i30311"
+ "i30309"
+ "i30307")))
(hygiene guile)))
- (#{quasi 28568}#
- (list #{p 28599}#)
- (#{1-}# #{lev 28593}#)))))
- #{tmp 28595}#)
- (let ((#{tmp 28602}#
+ (#{quasi 30577}#
+ (list #{p 30608}#)
+ (#{1-}# #{lev 30602}#)))))
+ #{tmp 30604}#)
+ (let ((#{tmp 30611}#
($sc-dispatch
- #{p 28592}#
+ #{p 30601}#
'(#(free-id
#(syntax-object
quasiquote
@@ -23265,7 +23299,7 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i28314" "i28315"))
+ #("i30323" "i30324"))
#(ribcage
(emit quasivector
quasilist*
@@ -23274,28 +23308,28 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i28310"
- "i28308"
- "i28306"
- "i28304"
- "i28302"
- "i28300"
- "i28298")))
+ ("i30319"
+ "i30317"
+ "i30315"
+ "i30313"
+ "i30311"
+ "i30309"
+ "i30307")))
(hygiene guile)))
any))))
- (if #{tmp 28602}#
+ (if #{tmp 30611}#
(@apply
- (lambda (#{p 28606}#)
- (#{quasicons 28570}#
+ (lambda (#{p 30615}#)
+ (#{quasicons 30579}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i28321"))
+ #(ribcage #(p) #((top)) #("i30330"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28314" "i28315"))
+ #("i30323" "i30324"))
#(ribcage
(emit quasivector
quasilist*
@@ -23304,23 +23338,23 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i28310"
- "i28308"
- "i28306"
- "i28304"
- "i28302"
- "i28300"
- "i28298")))
+ ("i30319"
+ "i30317"
+ "i30315"
+ "i30313"
+ "i30311"
+ "i30309"
+ "i30307")))
(hygiene guile))
#(syntax-object
quasiquote
((top)
- #(ribcage #(p) #((top)) #("i28321"))
+ #(ribcage #(p) #((top)) #("i30330"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28314" "i28315"))
+ #("i30323" "i30324"))
#(ribcage
(emit quasivector
quasilist*
@@ -23329,26 +23363,26 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i28310"
- "i28308"
- "i28306"
- "i28304"
- "i28302"
- "i28300"
- "i28298")))
+ ("i30319"
+ "i30317"
+ "i30315"
+ "i30313"
+ "i30311"
+ "i30309"
+ "i30307")))
(hygiene guile)))
- (#{quasi 28568}#
- (list #{p 28606}#)
- (#{1+}# #{lev 28593}#))))
- #{tmp 28602}#)
- (let ((#{tmp 28609}#
- ($sc-dispatch #{p 28592}# '(any . any))))
- (if #{tmp 28609}#
+ (#{quasi 30577}#
+ (list #{p 30615}#)
+ (#{1+}# #{lev 30602}#))))
+ #{tmp 30611}#)
+ (let ((#{tmp 30618}#
+ ($sc-dispatch #{p 30601}# '(any . any))))
+ (if #{tmp 30618}#
(@apply
- (lambda (#{p 28613}# #{q 28614}#)
- (let ((#{tmp 28616}#
+ (lambda (#{p 30622}# #{q 30623}#)
+ (let ((#{tmp 30625}#
($sc-dispatch
- #{p 28613}#
+ #{p 30622}#
'(#(free-id
#(syntax-object
unquote
@@ -23356,12 +23390,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("i28324" "i28325"))
+ #("i30333" "i30334"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28314" "i28315"))
+ #("i30323" "i30324"))
#(ribcage
(emit quasivector
quasilist*
@@ -23376,38 +23410,38 @@
(top)
(top)
(top))
- ("i28310"
- "i28308"
- "i28306"
- "i28304"
- "i28302"
- "i28300"
- "i28298")))
+ ("i30319"
+ "i30317"
+ "i30315"
+ "i30313"
+ "i30311"
+ "i30309"
+ "i30307")))
(hygiene guile)))
.
each-any))))
- (if #{tmp 28616}#
+ (if #{tmp 30625}#
(@apply
- (lambda (#{p 28620}#)
- (if (= #{lev 28593}# 0)
- (#{quasilist* 28572}#
- (map (lambda (#{tmp 28332 28656}#)
+ (lambda (#{p 30629}#)
+ (if (= #{lev 30602}# 0)
+ (#{quasilist* 30581}#
+ (map (lambda (#{tmp 30341 30665}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("i28330"))
+ #("i30339"))
#(ribcage
#(p q)
#((top) (top))
- #("i28324" "i28325"))
+ #("i30333" "i30334"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28314" "i28315"))
+ #("i30323" "i30324"))
#(ribcage
(emit quasivector
quasilist*
@@ -23422,37 +23456,37 @@
(top)
(top)
(top))
- ("i28310"
- "i28308"
- "i28306"
- "i28304"
- "i28302"
- "i28300"
- "i28298")))
+ ("i30319"
+ "i30317"
+ "i30315"
+ "i30313"
+ "i30311"
+ "i30309"
+ "i30307")))
(hygiene guile))
- #{tmp 28332 28656}#))
- #{p 28620}#)
- (#{quasi 28568}#
- #{q 28614}#
- #{lev 28593}#))
- (#{quasicons 28570}#
- (#{quasicons 28570}#
+ #{tmp 30341 30665}#))
+ #{p 30629}#)
+ (#{quasi 30577}#
+ #{q 30623}#
+ #{lev 30602}#))
+ (#{quasicons 30579}#
+ (#{quasicons 30579}#
'(#(syntax-object
"quote"
((top)
#(ribcage
#(p)
#((top))
- #("i28330"))
+ #("i30339"))
#(ribcage
#(p q)
#((top) (top))
- #("i28324" "i28325"))
+ #("i30333" "i30334"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28314" "i28315"))
+ #("i30323" "i30324"))
#(ribcage
(emit quasivector
quasilist*
@@ -23467,13 +23501,13 @@
(top)
(top)
(top))
- ("i28310"
- "i28308"
- "i28306"
- "i28304"
- "i28302"
- "i28300"
- "i28298")))
+ ("i30319"
+ "i30317"
+ "i30315"
+ "i30313"
+ "i30311"
+ "i30309"
+ "i30307")))
(hygiene guile))
#(syntax-object
unquote
@@ -23481,16 +23515,16 @@
#(ribcage
#(p)
#((top))
- #("i28330"))
+ #("i30339"))
#(ribcage
#(p q)
#((top) (top))
- #("i28324" "i28325"))
+ #("i30333" "i30334"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28314" "i28315"))
+ #("i30323" "i30324"))
#(ribcage
(emit quasivector
quasilist*
@@ -23505,24 +23539,24 @@
(top)
(top)
(top))
- ("i28310"
- "i28308"
- "i28306"
- "i28304"
- "i28302"
- "i28300"
- "i28298")))
+ ("i30319"
+ "i30317"
+ "i30315"
+ "i30313"
+ "i30311"
+ "i30309"
+ "i30307")))
(hygiene guile)))
- (#{quasi 28568}#
- #{p 28620}#
- (#{1-}# #{lev 28593}#)))
- (#{quasi 28568}#
- #{q 28614}#
- #{lev 28593}#))))
- #{tmp 28616}#)
- (let ((#{tmp 28661}#
+ (#{quasi 30577}#
+ #{p 30629}#
+ (#{1-}# #{lev 30602}#)))
+ (#{quasi 30577}#
+ #{q 30623}#
+ #{lev 30602}#))))
+ #{tmp 30625}#)
+ (let ((#{tmp 30670}#
($sc-dispatch
- #{p 28613}#
+ #{p 30622}#
'(#(free-id
#(syntax-object
unquote-splicing
@@ -23530,12 +23564,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("i28324" "i28325"))
+ #("i30333" "i30334"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28314" "i28315"))
+ #("i30323" "i30324"))
#(ribcage
(emit quasivector
quasilist*
@@ -23550,40 +23584,40 @@
(top)
(top)
(top))
- ("i28310"
- "i28308"
- "i28306"
- "i28304"
- "i28302"
- "i28300"
- "i28298")))
+ ("i30319"
+ "i30317"
+ "i30315"
+ "i30313"
+ "i30311"
+ "i30309"
+ "i30307")))
(hygiene guile)))
.
each-any))))
- (if #{tmp 28661}#
+ (if #{tmp 30670}#
(@apply
- (lambda (#{p 28665}#)
- (if (= #{lev 28593}# 0)
- (#{quasiappend 28571}#
- (map (lambda (#{tmp 28337 28668}#)
+ (lambda (#{p 30674}#)
+ (if (= #{lev 30602}# 0)
+ (#{quasiappend 30580}#
+ (map (lambda (#{tmp 30346 30677}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("i28335"))
+ #("i30344"))
#(ribcage
#(p q)
#((top) (top))
- #("i28324"
- "i28325"))
+ #("i30333"
+ "i30334"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28314"
- "i28315"))
+ #("i30323"
+ "i30324"))
#(ribcage
(emit quasivector
quasilist*
@@ -23598,37 +23632,37 @@
(top)
(top)
(top))
- ("i28310"
- "i28308"
- "i28306"
- "i28304"
- "i28302"
- "i28300"
- "i28298")))
+ ("i30319"
+ "i30317"
+ "i30315"
+ "i30313"
+ "i30311"
+ "i30309"
+ "i30307")))
(hygiene guile))
- #{tmp 28337 28668}#))
- #{p 28665}#)
- (#{quasi 28568}#
- #{q 28614}#
- #{lev 28593}#))
- (#{quasicons 28570}#
- (#{quasicons 28570}#
+ #{tmp 30346 30677}#))
+ #{p 30674}#)
+ (#{quasi 30577}#
+ #{q 30623}#
+ #{lev 30602}#))
+ (#{quasicons 30579}#
+ (#{quasicons 30579}#
'(#(syntax-object
"quote"
((top)
#(ribcage
#(p)
#((top))
- #("i28335"))
+ #("i30344"))
#(ribcage
#(p q)
#((top) (top))
- #("i28324" "i28325"))
+ #("i30333" "i30334"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28314" "i28315"))
+ #("i30323" "i30324"))
#(ribcage
(emit quasivector
quasilist*
@@ -23643,13 +23677,13 @@
(top)
(top)
(top))
- ("i28310"
- "i28308"
- "i28306"
- "i28304"
- "i28302"
- "i28300"
- "i28298")))
+ ("i30319"
+ "i30317"
+ "i30315"
+ "i30313"
+ "i30311"
+ "i30309"
+ "i30307")))
(hygiene guile))
#(syntax-object
unquote-splicing
@@ -23657,16 +23691,16 @@
#(ribcage
#(p)
#((top))
- #("i28335"))
+ #("i30344"))
#(ribcage
#(p q)
#((top) (top))
- #("i28324" "i28325"))
+ #("i30333" "i30334"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28314" "i28315"))
+ #("i30323" "i30324"))
#(ribcage
(emit quasivector
quasilist*
@@ -23681,57 +23715,57 @@
(top)
(top)
(top))
- ("i28310"
- "i28308"
- "i28306"
- "i28304"
- "i28302"
- "i28300"
- "i28298")))
+ ("i30319"
+ "i30317"
+ "i30315"
+ "i30313"
+ "i30311"
+ "i30309"
+ "i30307")))
(hygiene guile)))
- (#{quasi 28568}#
- #{p 28665}#
- (#{1-}# #{lev 28593}#)))
- (#{quasi 28568}#
- #{q 28614}#
- #{lev 28593}#))))
- #{tmp 28661}#)
- (#{quasicons 28570}#
- (#{quasi 28568}#
- #{p 28613}#
- #{lev 28593}#)
- (#{quasi 28568}#
- #{q 28614}#
- #{lev 28593}#)))))))
- #{tmp 28609}#)
- (let ((#{tmp 28682}#
- ($sc-dispatch #{p 28592}# '#(vector each-any))))
- (if #{tmp 28682}#
+ (#{quasi 30577}#
+ #{p 30674}#
+ (#{1-}# #{lev 30602}#)))
+ (#{quasi 30577}#
+ #{q 30623}#
+ #{lev 30602}#))))
+ #{tmp 30670}#)
+ (#{quasicons 30579}#
+ (#{quasi 30577}#
+ #{p 30622}#
+ #{lev 30602}#)
+ (#{quasi 30577}#
+ #{q 30623}#
+ #{lev 30602}#)))))))
+ #{tmp 30618}#)
+ (let ((#{tmp 30691}#
+ ($sc-dispatch #{p 30601}# '#(vector each-any))))
+ (if #{tmp 30691}#
(@apply
- (lambda (#{x 28686}#)
- (let ((#{x 28689}#
- (#{vquasi 28569}#
- #{x 28686}#
- #{lev 28593}#)))
- (let ((#{tmp 28691}#
+ (lambda (#{x 30695}#)
+ (let ((#{x 30698}#
+ (#{vquasi 30578}#
+ #{x 30695}#
+ #{lev 30602}#)))
+ (let ((#{tmp 30700}#
($sc-dispatch
- #{x 28689}#
+ #{x 30698}#
'(#(atom "quote") each-any))))
- (if #{tmp 28691}#
+ (if #{tmp 30700}#
(@apply
- (lambda (#{x 28695}#)
+ (lambda (#{x 30704}#)
(list '#(syntax-object
"quote"
((top)
#(ribcage
#(x)
#((top))
- #("i28442"))
+ #("i30451"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i28439"))
+ #("i30448"))
#(ribcage
(emit quasivector
quasilist*
@@ -23746,36 +23780,36 @@
(top)
(top)
(top))
- ("i28310"
- "i28308"
- "i28306"
- "i28304"
- "i28302"
- "i28300"
- "i28298")))
+ ("i30319"
+ "i30317"
+ "i30315"
+ "i30313"
+ "i30311"
+ "i30309"
+ "i30307")))
(hygiene guile))
- (list->vector #{x 28695}#)))
- #{tmp 28691}#)
+ (list->vector #{x 30704}#)))
+ #{tmp 30700}#)
(letrec*
- ((#{f 28697}#
- (lambda (#{y 28709}# #{k 28710}#)
- (let ((#{tmp 28712}#
+ ((#{f 30706}#
+ (lambda (#{y 30718}# #{k 30719}#)
+ (let ((#{tmp 30721}#
($sc-dispatch
- #{y 28709}#
+ #{y 30718}#
'(#(atom "quote")
each-any))))
- (if #{tmp 28712}#
+ (if #{tmp 30721}#
(@apply
- (lambda (#{y 28715}#)
- (#{k 28710}#
- (map (lambda (#{tmp
28467 28716}#)
+ (lambda (#{y 30724}#)
+ (#{k 30719}#
+ (map (lambda (#{tmp
30476 30725}#)
(list
'#(syntax-object
"quote"
((top)
#(ribcage
#(y)
#((top))
-
#("i28465"))
+
#("i30474"))
#(ribcage
()
()
@@ -23787,13 +23821,13 @@
#((top)
(top)
(top))
-
#("i28447"
-
"i28448"
-
"i28449"))
+
#("i30456"
+
"i30457"
+
"i30458"))
#(ribcage
#(_)
#((top))
-
#("i28445"))
+
#("i30454"))
#(ribcage
()
()
@@ -23801,7 +23835,7 @@
#(ribcage
#(x)
#((top))
-
#("i28439"))
+
#("i30448"))
#(ribcage
(emit
quasivector
quasilist*
@@ -23816,51 +23850,51 @@
(top)
(top)
(top))
-
("i28310"
-
"i28308"
-
"i28306"
-
"i28304"
-
"i28302"
-
"i28300"
-
"i28298")))
+
("i30319"
+
"i30317"
+
"i30315"
+
"i30313"
+
"i30311"
+
"i30309"
+
"i30307")))
(hygiene
guile))
- #{tmp 28467
28716}#))
- #{y 28715}#)))
- #{tmp 28712}#)
- (let ((#{tmp 28717}#
+ #{tmp 30476
30725}#))
+ #{y 30724}#)))
+ #{tmp 30721}#)
+ (let ((#{tmp 30726}#
($sc-dispatch
- #{y 28709}#
+ #{y 30718}#
'(#(atom "list")
.
each-any))))
- (if #{tmp 28717}#
+ (if #{tmp 30726}#
(@apply
- (lambda (#{y 28720}#)
- (#{k 28710}#
- #{y 28720}#))
- #{tmp 28717}#)
- (let ((#{tmp 28721}#
+ (lambda (#{y 30729}#)
+ (#{k 30719}#
+ #{y 30729}#))
+ #{tmp 30726}#)
+ (let ((#{tmp 30730}#
($sc-dispatch
- #{y 28709}#
+ #{y 30718}#
'(#(atom "list*")
.
#(each+
any
(any)
())))))
- (if #{tmp 28721}#
+ (if #{tmp 30730}#
(@apply
- (lambda (#{y 28724}#
- #{z 28725}#)
- (#{f 28697}#
- #{z 28725}#
- (lambda (#{ls
28726}#)
- (#{k 28710}#
+ (lambda (#{y 30733}#
+ #{z 30734}#)
+ (#{f 30706}#
+ #{z 30734}#
+ (lambda (#{ls
30735}#)
+ (#{k 30719}#
(append
- #{y 28724}#
- #{ls
28726}#)))))
- #{tmp 28721}#)
+ #{y 30733}#
+ #{ls
30735}#)))))
+ #{tmp 30730}#)
(list '#(syntax-object
"list->vector"
((top)
@@ -23869,14 +23903,14 @@
()
())
#(ribcage
- #(#{
g28482}#)
- #((m28483
+ #(#{
g30491}#)
+ #((m30492
top))
-
#("i28486"))
+
#("i30495"))
#(ribcage
#(else)
#((top))
-
#("i28480"))
+
#("i30489"))
#(ribcage
()
()
@@ -23886,13 +23920,13 @@
#((top)
(top)
(top))
- #("i28447"
- "i28448"
-
"i28449"))
+ #("i30456"
+ "i30457"
+
"i30458"))
#(ribcage
#(_)
#((top))
-
#("i28445"))
+
#("i30454"))
#(ribcage
()
()
@@ -23900,7 +23934,7 @@
#(ribcage
#(x)
#((top))
-
#("i28439"))
+
#("i30448"))
#(ribcage
(emit
quasivector
quasilist*
@@ -23915,26 +23949,26 @@
(top)
(top)
(top))
- ("i28310"
- "i28308"
- "i28306"
- "i28304"
- "i28302"
- "i28300"
-
"i28298")))
+ ("i30319"
+ "i30317"
+ "i30315"
+ "i30313"
+ "i30311"
+ "i30309"
+
"i30307")))
(hygiene
guile))
- #{x
28689}#))))))))))
- (#{f 28697}#
- #{x 28689}#
- (lambda (#{ls 28699}#)
- (let ((#{tmp 28701}#
+ #{x
30698}#))))))))))
+ (#{f 30706}#
+ #{x 30698}#
+ (lambda (#{ls 30708}#)
+ (let ((#{tmp 30710}#
($sc-dispatch
- #{ls 28699}#
+ #{ls 30708}#
'each-any)))
- (if #{tmp 28701}#
+ (if #{tmp 30710}#
(@apply
- (lambda (#{ g28455 28704}#)
+ (lambda (#{ g30464 30713}#)
(cons '#(syntax-object
"vector"
((top)
@@ -23943,9 +23977,9 @@
()
())
#(ribcage
- #(#{ g28455}#)
- #((m28456 top))
- #("i28460"))
+ #(#{ g30464}#)
+ #((m30465 top))
+ #("i30469"))
#(ribcage
()
()
@@ -23961,11 +23995,11 @@
#(ribcage
#(ls)
#((top))
- #("i28454"))
+ #("i30463"))
#(ribcage
#(_)
#((top))
- #("i28445"))
+ #("i30454"))
#(ribcage
()
()
@@ -23973,7 +24007,7 @@
#(ribcage
#(x)
#((top))
- #("i28439"))
+ #("i30448"))
#(ribcage
(emit
quasivector
quasilist*
@@ -23988,30 +24022,30 @@
(top)
(top)
(top))
- ("i28310"
- "i28308"
- "i28306"
- "i28304"
- "i28302"
- "i28300"
- "i28298")))
+ ("i30319"
+ "i30317"
+ "i30315"
+ "i30313"
+ "i30311"
+ "i30309"
+ "i30307")))
(hygiene guile))
- #{ g28455 28704}#))
- #{tmp 28701}#)
+ #{ g30464 30713}#))
+ #{tmp 30710}#)
(syntax-violation
#f
"source expression failed to
match any pattern"
- #{ls 28699}#))))))))))
- #{tmp 28682}#)
+ #{ls 30708}#))))))))))
+ #{tmp 30691}#)
(list '#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i28345"))
+ #(ribcage #(p) #((top)) #("i30354"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28314" "i28315"))
+ #("i30323" "i30324"))
#(ribcage
(emit quasivector
quasilist*
@@ -24026,25 +24060,25 @@
(top)
(top)
(top))
- ("i28310"
- "i28308"
- "i28306"
- "i28304"
- "i28302"
- "i28300"
- "i28298")))
+ ("i30319"
+ "i30317"
+ "i30315"
+ "i30313"
+ "i30311"
+ "i30309"
+ "i30307")))
(hygiene guile))
- #{p 28592}#)))))))))))
- (#{vquasi 28569}#
- (lambda (#{p 28754}# #{lev 28755}#)
- (let ((#{tmp 28757}#
- ($sc-dispatch #{p 28754}# '(any . any))))
- (if #{tmp 28757}#
+ #{p 30601}#)))))))))))
+ (#{vquasi 30578}#
+ (lambda (#{p 30763}# #{lev 30764}#)
+ (let ((#{tmp 30766}#
+ ($sc-dispatch #{p 30763}# '(any . any))))
+ (if #{tmp 30766}#
(@apply
- (lambda (#{p 28761}# #{q 28762}#)
- (let ((#{tmp 28764}#
+ (lambda (#{p 30770}# #{q 30771}#)
+ (let ((#{tmp 30773}#
($sc-dispatch
- #{p 28761}#
+ #{p 30770}#
'(#(free-id
#(syntax-object
unquote
@@ -24052,12 +24086,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("i28353" "i28354"))
+ #("i30362" "i30363"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28349" "i28350"))
+ #("i30358" "i30359"))
#(ribcage
(emit quasivector
quasilist*
@@ -24072,38 +24106,38 @@
(top)
(top)
(top))
- ("i28310"
- "i28308"
- "i28306"
- "i28304"
- "i28302"
- "i28300"
- "i28298")))
+ ("i30319"
+ "i30317"
+ "i30315"
+ "i30313"
+ "i30311"
+ "i30309"
+ "i30307")))
(hygiene guile)))
.
each-any))))
- (if #{tmp 28764}#
+ (if #{tmp 30773}#
(@apply
- (lambda (#{p 28768}#)
- (if (= #{lev 28755}# 0)
- (#{quasilist* 28572}#
- (map (lambda (#{tmp 28361 28804}#)
+ (lambda (#{p 30777}#)
+ (if (= #{lev 30764}# 0)
+ (#{quasilist* 30581}#
+ (map (lambda (#{tmp 30370 30813}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("i28359"))
+ #("i30368"))
#(ribcage
#(p q)
#((top) (top))
- #("i28353" "i28354"))
+ #("i30362" "i30363"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28349" "i28350"))
+ #("i30358" "i30359"))
#(ribcage
(emit quasivector
quasilist*
@@ -24118,32 +24152,32 @@
(top)
(top)
(top))
- ("i28310"
- "i28308"
- "i28306"
- "i28304"
- "i28302"
- "i28300"
- "i28298")))
+ ("i30319"
+ "i30317"
+ "i30315"
+ "i30313"
+ "i30311"
+ "i30309"
+ "i30307")))
(hygiene guile))
- #{tmp 28361 28804}#))
- #{p 28768}#)
- (#{vquasi 28569}# #{q 28762}# #{lev 28755}#))
- (#{quasicons 28570}#
- (#{quasicons 28570}#
+ #{tmp 30370 30813}#))
+ #{p 30777}#)
+ (#{vquasi 30578}# #{q 30771}# #{lev 30764}#))
+ (#{quasicons 30579}#
+ (#{quasicons 30579}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i28359"))
+ #(ribcage #(p) #((top)) #("i30368"))
#(ribcage
#(p q)
#((top) (top))
- #("i28353" "i28354"))
+ #("i30362" "i30363"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28349" "i28350"))
+ #("i30358" "i30359"))
#(ribcage
(emit quasivector
quasilist*
@@ -24158,27 +24192,27 @@
(top)
(top)
(top))
- ("i28310"
- "i28308"
- "i28306"
- "i28304"
- "i28302"
- "i28300"
- "i28298")))
+ ("i30319"
+ "i30317"
+ "i30315"
+ "i30313"
+ "i30311"
+ "i30309"
+ "i30307")))
(hygiene guile))
#(syntax-object
unquote
((top)
- #(ribcage #(p) #((top)) #("i28359"))
+ #(ribcage #(p) #((top)) #("i30368"))
#(ribcage
#(p q)
#((top) (top))
- #("i28353" "i28354"))
+ #("i30362" "i30363"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28349" "i28350"))
+ #("i30358" "i30359"))
#(ribcage
(emit quasivector
quasilist*
@@ -24193,22 +24227,22 @@
(top)
(top)
(top))
- ("i28310"
- "i28308"
- "i28306"
- "i28304"
- "i28302"
- "i28300"
- "i28298")))
+ ("i30319"
+ "i30317"
+ "i30315"
+ "i30313"
+ "i30311"
+ "i30309"
+ "i30307")))
(hygiene guile)))
- (#{quasi 28568}#
- #{p 28768}#
- (#{1-}# #{lev 28755}#)))
- (#{vquasi 28569}# #{q 28762}# #{lev 28755}#))))
- #{tmp 28764}#)
- (let ((#{tmp 28811}#
+ (#{quasi 30577}#
+ #{p 30777}#
+ (#{1-}# #{lev 30764}#)))
+ (#{vquasi 30578}# #{q 30771}# #{lev 30764}#))))
+ #{tmp 30773}#)
+ (let ((#{tmp 30820}#
($sc-dispatch
- #{p 28761}#
+ #{p 30770}#
'(#(free-id
#(syntax-object
unquote-splicing
@@ -24216,12 +24250,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("i28353" "i28354"))
+ #("i30362" "i30363"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28349" "i28350"))
+ #("i30358" "i30359"))
#(ribcage
(emit quasivector
quasilist*
@@ -24236,38 +24270,38 @@
(top)
(top)
(top))
- ("i28310"
- "i28308"
- "i28306"
- "i28304"
- "i28302"
- "i28300"
- "i28298")))
+ ("i30319"
+ "i30317"
+ "i30315"
+ "i30313"
+ "i30311"
+ "i30309"
+ "i30307")))
(hygiene guile)))
.
each-any))))
- (if #{tmp 28811}#
+ (if #{tmp 30820}#
(@apply
- (lambda (#{p 28815}#)
- (if (= #{lev 28755}# 0)
- (#{quasiappend 28571}#
- (map (lambda (#{tmp 28366 28818}#)
+ (lambda (#{p 30824}#)
+ (if (= #{lev 30764}# 0)
+ (#{quasiappend 30580}#
+ (map (lambda (#{tmp 30375 30827}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("i28364"))
+ #("i30373"))
#(ribcage
#(p q)
#((top) (top))
- #("i28353" "i28354"))
+ #("i30362" "i30363"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28349" "i28350"))
+ #("i30358" "i30359"))
#(ribcage
(emit quasivector
quasilist*
@@ -24282,34 +24316,34 @@
(top)
(top)
(top))
- ("i28310"
- "i28308"
- "i28306"
- "i28304"
- "i28302"
- "i28300"
- "i28298")))
+ ("i30319"
+ "i30317"
+ "i30315"
+ "i30313"
+ "i30311"
+ "i30309"
+ "i30307")))
(hygiene guile))
- #{tmp 28366 28818}#))
- #{p 28815}#)
- (#{vquasi 28569}#
- #{q 28762}#
- #{lev 28755}#))
- (#{quasicons 28570}#
- (#{quasicons 28570}#
+ #{tmp 30375 30827}#))
+ #{p 30824}#)
+ (#{vquasi 30578}#
+ #{q 30771}#
+ #{lev 30764}#))
+ (#{quasicons 30579}#
+ (#{quasicons 30579}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i28364"))
+ #(ribcage #(p) #((top)) #("i30373"))
#(ribcage
#(p q)
#((top) (top))
- #("i28353" "i28354"))
+ #("i30362" "i30363"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28349" "i28350"))
+ #("i30358" "i30359"))
#(ribcage
(emit quasivector
quasilist*
@@ -24324,27 +24358,27 @@
(top)
(top)
(top))
- ("i28310"
- "i28308"
- "i28306"
- "i28304"
- "i28302"
- "i28300"
- "i28298")))
+ ("i30319"
+ "i30317"
+ "i30315"
+ "i30313"
+ "i30311"
+ "i30309"
+ "i30307")))
(hygiene guile))
#(syntax-object
unquote-splicing
((top)
- #(ribcage #(p) #((top)) #("i28364"))
+ #(ribcage #(p) #((top)) #("i30373"))
#(ribcage
#(p q)
#((top) (top))
- #("i28353" "i28354"))
+ #("i30362" "i30363"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i28349" "i28350"))
+ #("i30358" "i30359"))
#(ribcage
(emit quasivector
quasilist*
@@ -24359,27 +24393,27 @@
(top)
(top)
(top))
- ("i28310"
- "i28308"
- "i28306"
- "i28304"
- "i28302"
- "i28300"
- "i28298")))
+ ("i30319"
+ "i30317"
+ "i30315"
+ "i30313"
+ "i30311"
+ "i30309"
+ "i30307")))
(hygiene guile)))
- (#{quasi 28568}#
- #{p 28815}#
- (#{1-}# #{lev 28755}#)))
- (#{vquasi 28569}#
- #{q 28762}#
- #{lev 28755}#))))
- #{tmp 28811}#)
- (#{quasicons 28570}#
- (#{quasi 28568}# #{p 28761}# #{lev 28755}#)
- (#{vquasi 28569}# #{q 28762}# #{lev 28755}#)))))))
- #{tmp 28757}#)
- (let ((#{tmp 28836}# ($sc-dispatch #{p 28754}# '())))
- (if #{tmp 28836}#
+ (#{quasi 30577}#
+ #{p 30824}#
+ (#{1-}# #{lev 30764}#)))
+ (#{vquasi 30578}#
+ #{q 30771}#
+ #{lev 30764}#))))
+ #{tmp 30820}#)
+ (#{quasicons 30579}#
+ (#{quasi 30577}# #{p 30770}# #{lev 30764}#)
+ (#{vquasi 30578}# #{q 30771}# #{lev 30764}#)))))))
+ #{tmp 30766}#)
+ (let ((#{tmp 30845}# ($sc-dispatch #{p 30763}# '())))
+ (if #{tmp 30845}#
(@apply
(lambda ()
'(#(syntax-object
@@ -24389,7 +24423,7 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i28349" "i28350"))
+ #("i30358" "i30359"))
#(ribcage
(emit quasivector
quasilist*
@@ -24398,64 +24432,64 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i28310"
- "i28308"
- "i28306"
- "i28304"
- "i28302"
- "i28300"
- "i28298")))
+ ("i30319"
+ "i30317"
+ "i30315"
+ "i30313"
+ "i30311"
+ "i30309"
+ "i30307")))
(hygiene guile))
()))
- #{tmp 28836}#)
+ #{tmp 30845}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{p 28754}#)))))))
- (#{quasicons 28570}#
- (lambda (#{x 28849}# #{y 28850}#)
- (let ((#{tmp 28851}# (list #{x 28849}# #{y 28850}#)))
- (let ((#{tmp 28852}#
- ($sc-dispatch #{tmp 28851}# '(any any))))
- (if #{tmp 28852}#
+ #{p 30763}#)))))))
+ (#{quasicons 30579}#
+ (lambda (#{x 30858}# #{y 30859}#)
+ (let ((#{tmp 30860}# (list #{x 30858}# #{y 30859}#)))
+ (let ((#{tmp 30861}#
+ ($sc-dispatch #{tmp 30860}# '(any any))))
+ (if #{tmp 30861}#
(@apply
- (lambda (#{x 28854}# #{y 28855}#)
- (let ((#{tmp 28857}#
+ (lambda (#{x 30863}# #{y 30864}#)
+ (let ((#{tmp 30866}#
($sc-dispatch
- #{y 28855}#
+ #{y 30864}#
'(#(atom "quote") any))))
- (if #{tmp 28857}#
+ (if #{tmp 30866}#
(@apply
- (lambda (#{dy 28861}#)
- (let ((#{tmp 28863}#
+ (lambda (#{dy 30870}#)
+ (let ((#{tmp 30872}#
($sc-dispatch
- #{x 28854}#
+ #{x 30863}#
'(#(atom "quote") any))))
- (if #{tmp 28863}#
+ (if #{tmp 30872}#
(@apply
- (lambda (#{dx 28867}#)
+ (lambda (#{dx 30876}#)
(list '#(syntax-object
"quote"
((top)
#(ribcage
#(dx)
#((top))
- #("i28388"))
+ #("i30397"))
#(ribcage
#(dy)
#((top))
- #("i28384"))
+ #("i30393"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i28378" "i28379"))
+ #("i30387" "i30388"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i28373" "i28374"))
+ #("i30382" "i30383"))
#(ribcage
(emit quasivector
quasilist*
@@ -24470,39 +24504,39 @@
(top)
(top)
(top))
- ("i28310"
- "i28308"
- "i28306"
- "i28304"
- "i28302"
- "i28300"
- "i28298")))
+ ("i30319"
+ "i30317"
+ "i30315"
+ "i30313"
+ "i30311"
+ "i30309"
+ "i30307")))
(hygiene guile))
- (cons #{dx 28867}# #{dy 28861}#)))
- #{tmp 28863}#)
- (if (null? #{dy 28861}#)
+ (cons #{dx 30876}# #{dy 30870}#)))
+ #{tmp 30872}#)
+ (if (null? #{dy 30870}#)
(list '#(syntax-object
"list"
((top)
#(ribcage
#(_)
#((top))
- #("i28390"))
+ #("i30399"))
#(ribcage
#(dy)
#((top))
- #("i28384"))
+ #("i30393"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i28378" "i28379"))
+ #("i30387" "i30388"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i28373" "i28374"))
+ #("i30382" "i30383"))
#(ribcage
(emit quasivector
quasilist*
@@ -24517,37 +24551,37 @@
(top)
(top)
(top))
- ("i28310"
- "i28308"
- "i28306"
- "i28304"
- "i28302"
- "i28300"
- "i28298")))
+ ("i30319"
+ "i30317"
+ "i30315"
+ "i30313"
+ "i30311"
+ "i30309"
+ "i30307")))
(hygiene guile))
- #{x 28854}#)
+ #{x 30863}#)
(list '#(syntax-object
"list*"
((top)
#(ribcage
#(_)
#((top))
- #("i28390"))
+ #("i30399"))
#(ribcage
#(dy)
#((top))
- #("i28384"))
+ #("i30393"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i28378" "i28379"))
+ #("i30387" "i30388"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i28373" "i28374"))
+ #("i30382" "i30383"))
#(ribcage
(emit quasivector
quasilist*
@@ -24562,42 +24596,42 @@
(top)
(top)
(top))
- ("i28310"
- "i28308"
- "i28306"
- "i28304"
- "i28302"
- "i28300"
- "i28298")))
+ ("i30319"
+ "i30317"
+ "i30315"
+ "i30313"
+ "i30311"
+ "i30309"
+ "i30307")))
(hygiene guile))
- #{x 28854}#
- #{y 28855}#)))))
- #{tmp 28857}#)
- (let ((#{tmp 28872}#
+ #{x 30863}#
+ #{y 30864}#)))))
+ #{tmp 30866}#)
+ (let ((#{tmp 30881}#
($sc-dispatch
- #{y 28855}#
+ #{y 30864}#
'(#(atom "list") . any))))
- (if #{tmp 28872}#
+ (if #{tmp 30881}#
(@apply
- (lambda (#{stuff 28876}#)
+ (lambda (#{stuff 30885}#)
(cons '#(syntax-object
"list"
((top)
#(ribcage
#(stuff)
#((top))
- #("i28393"))
+ #("i30402"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i28378" "i28379"))
+ #("i30387" "i30388"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i28373" "i28374"))
+ #("i30382" "i30383"))
#(ribcage
(emit quasivector
quasilist*
@@ -24612,41 +24646,41 @@
(top)
(top)
(top))
- ("i28310"
- "i28308"
- "i28306"
- "i28304"
- "i28302"
- "i28300"
- "i28298")))
+ ("i30319"
+ "i30317"
+ "i30315"
+ "i30313"
+ "i30311"
+ "i30309"
+ "i30307")))
(hygiene guile))
- (cons #{x 28854}# #{stuff 28876}#)))
- #{tmp 28872}#)
- (let ((#{tmp 28877}#
+ (cons #{x 30863}# #{stuff 30885}#)))
+ #{tmp 30881}#)
+ (let ((#{tmp 30886}#
($sc-dispatch
- #{y 28855}#
+ #{y 30864}#
'(#(atom "list*") . any))))
- (if #{tmp 28877}#
+ (if #{tmp 30886}#
(@apply
- (lambda (#{stuff 28881}#)
+ (lambda (#{stuff 30890}#)
(cons '#(syntax-object
"list*"
((top)
#(ribcage
#(stuff)
#((top))
- #("i28396"))
+ #("i30405"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i28378" "i28379"))
+ #("i30387" "i30388"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i28373" "i28374"))
+ #("i30382" "i30383"))
#(ribcage
(emit quasivector
quasilist*
@@ -24661,31 +24695,31 @@
(top)
(top)
(top))
- ("i28310"
- "i28308"
- "i28306"
- "i28304"
- "i28302"
- "i28300"
- "i28298")))
+ ("i30319"
+ "i30317"
+ "i30315"
+ "i30313"
+ "i30311"
+ "i30309"
+ "i30307")))
(hygiene guile))
- (cons #{x 28854}# #{stuff 28881}#)))
- #{tmp 28877}#)
+ (cons #{x 30863}# #{stuff 30890}#)))
+ #{tmp 30886}#)
(list '#(syntax-object
"list*"
((top)
- #(ribcage #(_) #((top)) #("i28398"))
+ #(ribcage #(_) #((top)) #("i30407"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i28378" "i28379"))
+ #("i30387" "i30388"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i28373" "i28374"))
+ #("i30382" "i30383"))
#(ribcage
(emit quasivector
quasilist*
@@ -24700,29 +24734,29 @@
(top)
(top)
(top))
- ("i28310"
- "i28308"
- "i28306"
- "i28304"
- "i28302"
- "i28300"
- "i28298")))
+ ("i30319"
+ "i30317"
+ "i30315"
+ "i30313"
+ "i30311"
+ "i30309"
+ "i30307")))
(hygiene guile))
- #{x 28854}#
- #{y 28855}#))))))))
- #{tmp 28852}#)
+ #{x 30863}#
+ #{y 30864}#))))))))
+ #{tmp 30861}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 28851}#))))))
- (#{quasiappend 28571}#
- (lambda (#{x 28892}# #{y 28893}#)
- (let ((#{tmp 28895}#
- ($sc-dispatch #{y 28893}# '(#(atom "quote") ()))))
- (if #{tmp 28895}#
+ #{tmp 30860}#))))))
+ (#{quasiappend 30580}#
+ (lambda (#{x 30901}# #{y 30902}#)
+ (let ((#{tmp 30904}#
+ ($sc-dispatch #{y 30902}# '(#(atom "quote") ()))))
+ (if #{tmp 30904}#
(@apply
(lambda ()
- (if (null? #{x 28892}#)
+ (if (null? #{x 30901}#)
'(#(syntax-object
"quote"
((top)
@@ -24730,7 +24764,7 @@
#(ribcage
#(x y)
#((top) (top))
- #("i28402" "i28403"))
+ #("i30411" "i30412"))
#(ribcage
(emit quasivector
quasilist*
@@ -24739,32 +24773,32 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i28310"
- "i28308"
- "i28306"
- "i28304"
- "i28302"
- "i28300"
- "i28298")))
+ ("i30319"
+ "i30317"
+ "i30315"
+ "i30313"
+ "i30311"
+ "i30309"
+ "i30307")))
(hygiene guile))
())
- (if (null? (cdr #{x 28892}#))
- (car #{x 28892}#)
- (let ((#{tmp 28900}#
- ($sc-dispatch #{x 28892}# 'each-any)))
- (if #{tmp 28900}#
+ (if (null? (cdr #{x 30901}#))
+ (car #{x 30901}#)
+ (let ((#{tmp 30909}#
+ ($sc-dispatch #{x 30901}# 'each-any)))
+ (if #{tmp 30909}#
(@apply
- (lambda (#{p 28904}#)
+ (lambda (#{p 30913}#)
(cons '#(syntax-object
"append"
((top)
#(ribcage () () ())
- #(ribcage #(p) #((top)) #("i28414"))
+ #(ribcage #(p) #((top)) #("i30423"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i28402" "i28403"))
+ #("i30411" "i30412"))
#(ribcage
(emit quasivector
quasilist*
@@ -24779,29 +24813,29 @@
(top)
(top)
(top))
- ("i28310"
- "i28308"
- "i28306"
- "i28304"
- "i28302"
- "i28300"
- "i28298")))
+ ("i30319"
+ "i30317"
+ "i30315"
+ "i30313"
+ "i30311"
+ "i30309"
+ "i30307")))
(hygiene guile))
- #{p 28904}#))
- #{tmp 28900}#)
+ #{p 30913}#))
+ #{tmp 30909}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 28892}#))))))
- #{tmp 28895}#)
- (if (null? #{x 28892}#)
- #{y 28893}#
- (let ((#{tmp 28912}# (list #{x 28892}# #{y 28893}#)))
- (let ((#{tmp 28913}#
- ($sc-dispatch #{tmp 28912}# '(each-any any))))
- (if #{tmp 28913}#
+ #{x 30901}#))))))
+ #{tmp 30904}#)
+ (if (null? #{x 30901}#)
+ #{y 30902}#
+ (let ((#{tmp 30921}# (list #{x 30901}# #{y 30902}#)))
+ (let ((#{tmp 30922}#
+ ($sc-dispatch #{tmp 30921}# '(each-any any))))
+ (if #{tmp 30922}#
(@apply
- (lambda (#{p 28915}# #{y 28916}#)
+ (lambda (#{p 30924}# #{y 30925}#)
(cons '#(syntax-object
"append"
((top)
@@ -24809,13 +24843,13 @@
#(ribcage
#(p y)
#((top) (top))
- #("i28425" "i28426"))
- #(ribcage #(_) #((top)) #("i28417"))
+ #("i30434" "i30435"))
+ #(ribcage #(_) #((top)) #("i30426"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i28402" "i28403"))
+ #("i30411" "i30412"))
#(ribcage
(emit quasivector
quasilist*
@@ -24830,44 +24864,44 @@
(top)
(top)
(top))
- ("i28310"
- "i28308"
- "i28306"
- "i28304"
- "i28302"
- "i28300"
- "i28298")))
+ ("i30319"
+ "i30317"
+ "i30315"
+ "i30313"
+ "i30311"
+ "i30309"
+ "i30307")))
(hygiene guile))
- (append #{p 28915}# (list #{y 28916}#))))
- #{tmp 28913}#)
+ (append #{p 30924}# (list #{y 30925}#))))
+ #{tmp 30922}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 28912}#)))))))))
- (#{quasilist* 28572}#
- (lambda (#{x 28920}# #{y 28921}#)
+ #{tmp 30921}#)))))))))
+ (#{quasilist* 30581}#
+ (lambda (#{x 30929}# #{y 30930}#)
(letrec*
- ((#{f 28922}#
- (lambda (#{x 29011}#)
- (if (null? #{x 29011}#)
- #{y 28921}#
- (#{quasicons 28570}#
- (car #{x 29011}#)
- (#{f 28922}# (cdr #{x 29011}#)))))))
- (#{f 28922}# #{x 28920}#))))
- (#{emit 28574}#
- (lambda (#{x 29014}#)
- (let ((#{tmp 29016}#
- ($sc-dispatch #{x 29014}# '(#(atom "quote") any))))
- (if #{tmp 29016}#
+ ((#{f 30931}#
+ (lambda (#{x 31020}#)
+ (if (null? #{x 31020}#)
+ #{y 30930}#
+ (#{quasicons 30579}#
+ (car #{x 31020}#)
+ (#{f 30931}# (cdr #{x 31020}#)))))))
+ (#{f 30931}# #{x 30929}#))))
+ (#{emit 30583}#
+ (lambda (#{x 31023}#)
+ (let ((#{tmp 31025}#
+ ($sc-dispatch #{x 31023}# '(#(atom "quote") any))))
+ (if #{tmp 31025}#
(@apply
- (lambda (#{x 29020}#)
+ (lambda (#{x 31029}#)
(list '#(syntax-object
quote
((top)
- #(ribcage #(x) #((top)) #("i28492"))
+ #(ribcage #(x) #((top)) #("i30501"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28489"))
+ #(ribcage #(x) #((top)) #("i30498"))
#(ribcage
(emit quasivector
quasilist*
@@ -24876,40 +24910,40 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i28310"
- "i28308"
- "i28306"
- "i28304"
- "i28302"
- "i28300"
- "i28298")))
+ ("i30319"
+ "i30317"
+ "i30315"
+ "i30313"
+ "i30311"
+ "i30309"
+ "i30307")))
(hygiene guile))
- #{x 29020}#))
- #{tmp 29016}#)
- (let ((#{tmp 29021}#
+ #{x 31029}#))
+ #{tmp 31025}#)
+ (let ((#{tmp 31030}#
($sc-dispatch
- #{x 29014}#
+ #{x 31023}#
'(#(atom "list") . each-any))))
- (if #{tmp 29021}#
+ (if #{tmp 31030}#
(@apply
- (lambda (#{x 29025}#)
- (let ((#{tmp 29026}# (map #{emit 28574}# #{x 29025}#)))
- (let ((#{tmp 29027}#
- ($sc-dispatch #{tmp 29026}# 'each-any)))
- (if #{tmp 29027}#
+ (lambda (#{x 31034}#)
+ (let ((#{tmp 31035}# (map #{emit 30583}# #{x 31034}#)))
+ (let ((#{tmp 31036}#
+ ($sc-dispatch #{tmp 31035}# 'each-any)))
+ (if #{tmp 31036}#
(@apply
- (lambda (#{ g28497 29029}#)
+ (lambda (#{ g30506 31038}#)
(cons '#(syntax-object
list
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g28497}#)
- #((m28498 top))
- #("i28502"))
- #(ribcage #(x) #((top)) #("i28495"))
+ #(#{ g30506}#)
+ #((m30507 top))
+ #("i30511"))
+ #(ribcage #(x) #((top)) #("i30504"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i28489"))
+ #(ribcage #(x) #((top)) #("i30498"))
#(ribcage
(emit quasivector
quasilist*
@@ -24924,70 +24958,70 @@
(top)
(top)
(top))
- ("i28310"
- "i28308"
- "i28306"
- "i28304"
- "i28302"
- "i28300"
- "i28298")))
+ ("i30319"
+ "i30317"
+ "i30315"
+ "i30313"
+ "i30311"
+ "i30309"
+ "i30307")))
(hygiene guile))
- #{ g28497 29029}#))
- #{tmp 29027}#)
+ #{ g30506 31038}#))
+ #{tmp 31036}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 29026}#)))))
- #{tmp 29021}#)
- (let ((#{tmp 29030}#
+ #{tmp 31035}#)))))
+ #{tmp 31030}#)
+ (let ((#{tmp 31039}#
($sc-dispatch
- #{x 29014}#
+ #{x 31023}#
'(#(atom "list*") . #(each+ any (any) ())))))
- (if #{tmp 29030}#
+ (if #{tmp 31039}#
(@apply
- (lambda (#{x 29034}# #{y 29035}#)
+ (lambda (#{x 31043}# #{y 31044}#)
(letrec*
- ((#{f 29036}#
- (lambda (#{x* 29039}#)
- (if (null? #{x* 29039}#)
- (#{emit 28574}# #{y 29035}#)
- (let ((#{tmp 29040}#
- (list (#{emit 28574}#
- (car #{x* 29039}#))
- (#{f 29036}#
- (cdr #{x* 29039}#)))))
- (let ((#{tmp 29041}#
+ ((#{f 31045}#
+ (lambda (#{x* 31048}#)
+ (if (null? #{x* 31048}#)
+ (#{emit 30583}# #{y 31044}#)
+ (let ((#{tmp 31049}#
+ (list (#{emit 30583}#
+ (car #{x* 31048}#))
+ (#{f 31045}#
+ (cdr #{x* 31048}#)))))
+ (let ((#{tmp 31050}#
($sc-dispatch
- #{tmp 29040}#
+ #{tmp 31049}#
'(any any))))
- (if #{tmp 29041}#
+ (if #{tmp 31050}#
(@apply
- (lambda (#{ g28517 29043}#
- #{ g28516 29044}#)
+ (lambda (#{ g30526 31052}#
+ #{ g30525 31053}#)
(list '#(syntax-object
cons
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g28517}#
- #{ g28516}#)
- #((m28518 top)
- (m28518 top))
- #("i28522" "i28523"))
+ #(#{ g30526}#
+ #{ g30525}#)
+ #((m30527 top)
+ (m30527 top))
+ #("i30531" "i30532"))
#(ribcage () () ())
#(ribcage
#(f x*)
#((top) (top))
- #("i28511" "i28512"))
+ #("i30520" "i30521"))
#(ribcage
#(x y)
#((top) (top))
- #("i28507" "i28508"))
+ #("i30516" "i30517"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i28489"))
+ #("i30498"))
#(ribcage
(emit quasivector
quasilist*
@@ -25002,56 +25036,56 @@
(top)
(top)
(top))
- ("i28310"
- "i28308"
- "i28306"
- "i28304"
- "i28302"
- "i28300"
- "i28298")))
+ ("i30319"
+ "i30317"
+ "i30315"
+ "i30313"
+ "i30311"
+ "i30309"
+ "i30307")))
(hygiene guile))
- #{ g28517 29043}#
- #{ g28516 29044}#))
- #{tmp 29041}#)
+ #{ g30526 31052}#
+ #{ g30525 31053}#))
+ #{tmp 31050}#)
(syntax-violation
#f
"source expression failed to match
any pattern"
- #{tmp 29040}#))))))))
- (#{f 29036}# #{x 29034}#)))
- #{tmp 29030}#)
- (let ((#{tmp 29045}#
+ #{tmp 31049}#))))))))
+ (#{f 31045}# #{x 31043}#)))
+ #{tmp 31039}#)
+ (let ((#{tmp 31054}#
($sc-dispatch
- #{x 29014}#
+ #{x 31023}#
'(#(atom "append") . each-any))))
- (if #{tmp 29045}#
+ (if #{tmp 31054}#
(@apply
- (lambda (#{x 29049}#)
- (let ((#{tmp 29050}#
- (map #{emit 28574}# #{x 29049}#)))
- (let ((#{tmp 29051}#
+ (lambda (#{x 31058}#)
+ (let ((#{tmp 31059}#
+ (map #{emit 30583}# #{x 31058}#)))
+ (let ((#{tmp 31060}#
($sc-dispatch
- #{tmp 29050}#
+ #{tmp 31059}#
'each-any)))
- (if #{tmp 29051}#
+ (if #{tmp 31060}#
(@apply
- (lambda (#{ g28529 29053}#)
+ (lambda (#{ g30538 31062}#)
(cons '#(syntax-object
append
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g28529}#)
- #((m28530 top))
- #("i28534"))
+ #(#{ g30538}#)
+ #((m30539 top))
+ #("i30543"))
#(ribcage
#(x)
#((top))
- #("i28527"))
+ #("i30536"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i28489"))
+ #("i30498"))
#(ribcage
(emit quasivector
quasilist*
@@ -25066,54 +25100,54 @@
(top)
(top)
(top))
- ("i28310"
- "i28308"
- "i28306"
- "i28304"
- "i28302"
- "i28300"
- "i28298")))
+ ("i30319"
+ "i30317"
+ "i30315"
+ "i30313"
+ "i30311"
+ "i30309"
+ "i30307")))
(hygiene guile))
- #{ g28529 29053}#))
- #{tmp 29051}#)
+ #{ g30538 31062}#))
+ #{tmp 31060}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp 29050}#)))))
- #{tmp 29045}#)
- (let ((#{tmp 29054}#
+ #{tmp 31059}#)))))
+ #{tmp 31054}#)
+ (let ((#{tmp 31063}#
($sc-dispatch
- #{x 29014}#
+ #{x 31023}#
'(#(atom "vector") . each-any))))
- (if #{tmp 29054}#
+ (if #{tmp 31063}#
(@apply
- (lambda (#{x 29058}#)
- (let ((#{tmp 29059}#
- (map #{emit 28574}# #{x 29058}#)))
- (let ((#{tmp 29060}#
+ (lambda (#{x 31067}#)
+ (let ((#{tmp 31068}#
+ (map #{emit 30583}# #{x 31067}#)))
+ (let ((#{tmp 31069}#
($sc-dispatch
- #{tmp 29059}#
+ #{tmp 31068}#
'each-any)))
- (if #{tmp 29060}#
+ (if #{tmp 31069}#
(@apply
- (lambda (#{ g28541 29062}#)
+ (lambda (#{ g30550 31071}#)
(cons '#(syntax-object
vector
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g28541}#)
- #((m28542 top))
- #("i28546"))
+ #(#{ g30550}#)
+ #((m30551 top))
+ #("i30555"))
#(ribcage
#(x)
#((top))
- #("i28539"))
+ #("i30548"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i28489"))
+ #("i30498"))
#(ribcage
(emit quasivector
quasilist*
@@ -25128,47 +25162,47 @@
(top)
(top)
(top))
- ("i28310"
- "i28308"
- "i28306"
- "i28304"
- "i28302"
- "i28300"
- "i28298")))
+ ("i30319"
+ "i30317"
+ "i30315"
+ "i30313"
+ "i30311"
+ "i30309"
+ "i30307")))
(hygiene guile))
- #{ g28541 29062}#))
- #{tmp 29060}#)
+ #{ g30550 31071}#))
+ #{tmp 31069}#)
(syntax-violation
#f
"source expression failed to match
any pattern"
- #{tmp 29059}#)))))
- #{tmp 29054}#)
- (let ((#{tmp 29063}#
+ #{tmp 31068}#)))))
+ #{tmp 31063}#)
+ (let ((#{tmp 31072}#
($sc-dispatch
- #{x 29014}#
+ #{x 31023}#
'(#(atom "list->vector") any))))
- (if #{tmp 29063}#
+ (if #{tmp 31072}#
(@apply
- (lambda (#{x 29067}#)
- (let ((#{tmp 29068}#
- (#{emit 28574}# #{x 29067}#)))
+ (lambda (#{x 31076}#)
+ (let ((#{tmp 31077}#
+ (#{emit 30583}# #{x 31076}#)))
(list '#(syntax-object
list->vector
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g28553}#)
- #((m28554 top))
- #("i28557"))
+ #(#{ g30562}#)
+ #((m30563 top))
+ #("i30566"))
#(ribcage
#(x)
#((top))
- #("i28551"))
+ #("i30560"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i28489"))
+ #("i30498"))
#(ribcage
(emit quasivector
quasilist*
@@ -25183,188 +25217,188 @@
(top)
(top)
(top))
- ("i28310"
- "i28308"
- "i28306"
- "i28304"
- "i28302"
- "i28300"
- "i28298")))
+ ("i30319"
+ "i30317"
+ "i30315"
+ "i30313"
+ "i30311"
+ "i30309"
+ "i30307")))
(hygiene guile))
- #{tmp 29068}#)))
- #{tmp 29063}#)
- (let ((#{tmp 29071}#
+ #{tmp 31077}#)))
+ #{tmp 31072}#)
+ (let ((#{tmp 31080}#
($sc-dispatch
- #{x 29014}#
+ #{x 31023}#
'(#(atom "value") any))))
- (if #{tmp 29071}#
+ (if #{tmp 31080}#
(@apply
- (lambda (#{x 29075}#) #{x 29075}#)
- #{tmp 29071}#)
+ (lambda (#{x 31084}#) #{x 31084}#)
+ #{tmp 31080}#)
(syntax-violation
#f
"source expression failed to match
any pattern"
- #{x 29014}#))))))))))))))))))
- (lambda (#{x 28575}#)
- (let ((#{tmp 28577}#
- ($sc-dispatch #{x 28575}# '(_ any))))
- (if #{tmp 28577}#
+ #{x 31023}#))))))))))))))))))
+ (lambda (#{x 30584}#)
+ (let ((#{tmp 30586}#
+ ($sc-dispatch #{x 30584}# '(_ any))))
+ (if #{tmp 30586}#
(@apply
- (lambda (#{e 28581}#)
- (#{emit 28574}# (#{quasi 28568}# #{e 28581}# 0)))
- #{tmp 28577}#)
+ (lambda (#{e 30590}#)
+ (#{emit 30583}# (#{quasi 30577}# #{e 30590}# 0)))
+ #{tmp 30586}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 28575}#)))))))
+ #{x 30584}#)))))))
(define include
(make-syntax-transformer
'include
'macro
- (lambda (#{x 29130}#)
+ (lambda (#{x 31139}#)
(letrec*
- ((#{read-file 29131}#
- (lambda (#{fn 29240}# #{k 29241}#)
- (let ((#{p 29242}# (open-input-file #{fn 29240}#)))
+ ((#{read-file 31140}#
+ (lambda (#{fn 31249}# #{k 31250}#)
+ (let ((#{p 31251}# (open-input-file #{fn 31249}#)))
(letrec*
- ((#{f 29243}#
- (lambda (#{x 29297}# #{result 29298}#)
- (if (eof-object? #{x 29297}#)
+ ((#{f 31252}#
+ (lambda (#{x 31306}# #{result 31307}#)
+ (if (eof-object? #{x 31306}#)
(begin
- (close-input-port #{p 29242}#)
- (reverse #{result 29298}#))
- (#{f 29243}#
- (read #{p 29242}#)
- (cons (datum->syntax #{k 29241}# #{x 29297}#)
- #{result 29298}#))))))
- (#{f 29243}# (read #{p 29242}#) '()))))))
- (let ((#{tmp 29133}#
- ($sc-dispatch #{x 29130}# '(any any))))
- (if #{tmp 29133}#
+ (close-input-port #{p 31251}#)
+ (reverse #{result 31307}#))
+ (#{f 31252}#
+ (read #{p 31251}#)
+ (cons (datum->syntax #{k 31250}# #{x 31306}#)
+ #{result 31307}#))))))
+ (#{f 31252}# (read #{p 31251}#) '()))))))
+ (let ((#{tmp 31142}#
+ ($sc-dispatch #{x 31139}# '(any any))))
+ (if #{tmp 31142}#
(@apply
- (lambda (#{k 29137}# #{filename 29138}#)
- (let ((#{fn 29139}# (syntax->datum #{filename 29138}#)))
- (let ((#{tmp 29140}#
- (#{read-file 29131}#
- #{fn 29139}#
- #{filename 29138}#)))
- (let ((#{tmp 29141}#
- ($sc-dispatch #{tmp 29140}# 'each-any)))
- (if #{tmp 29141}#
+ (lambda (#{k 31146}# #{filename 31147}#)
+ (let ((#{fn 31148}# (syntax->datum #{filename 31147}#)))
+ (let ((#{tmp 31149}#
+ (#{read-file 31140}#
+ #{fn 31148}#
+ #{filename 31147}#)))
+ (let ((#{tmp 31150}#
+ ($sc-dispatch #{tmp 31149}# 'each-any)))
+ (if #{tmp 31150}#
(@apply
- (lambda (#{exp 29159}#)
+ (lambda (#{exp 31168}#)
(cons '#(syntax-object
begin
((top)
#(ribcage () () ())
- #(ribcage #(exp) #((top)) #("i29127"))
+ #(ribcage #(exp) #((top)) #("i31136"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("i29122"))
+ #(ribcage #(fn) #((top)) #("i31131"))
#(ribcage
#(k filename)
#((top) (top))
- #("i29118" "i29119"))
- #(ribcage (read-file) ((top)) ("i29102"))
- #(ribcage #(x) #((top)) #("i29101")))
+ #("i31127" "i31128"))
+ #(ribcage (read-file) ((top)) ("i31111"))
+ #(ribcage #(x) #((top)) #("i31110")))
(hygiene guile))
- #{exp 29159}#))
- #{tmp 29141}#)
+ #{exp 31168}#))
+ #{tmp 31150}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 29140}#))))))
- #{tmp 29133}#)
+ #{tmp 31149}#))))))
+ #{tmp 31142}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 29130}#)))))))
+ #{x 31139}#)))))))
(define include-from-path
(make-syntax-transformer
'include-from-path
'macro
- (lambda (#{x 29317}#)
- (let ((#{tmp 29319}#
- ($sc-dispatch #{x 29317}# '(any any))))
- (if #{tmp 29319}#
+ (lambda (#{x 31326}#)
+ (let ((#{tmp 31328}#
+ ($sc-dispatch #{x 31326}# '(any any))))
+ (if #{tmp 31328}#
(@apply
- (lambda (#{k 29323}# #{filename 29324}#)
- (let ((#{fn 29325}# (syntax->datum #{filename 29324}#)))
- (let ((#{tmp 29326}#
+ (lambda (#{k 31332}# #{filename 31333}#)
+ (let ((#{fn 31334}# (syntax->datum #{filename 31333}#)))
+ (let ((#{tmp 31335}#
(datum->syntax
- #{filename 29324}#
- (let ((#{t 29329}# (%search-load-path #{fn 29325}#)))
- (if #{t 29329}#
- #{t 29329}#
+ #{filename 31333}#
+ (let ((#{t 31338}# (%search-load-path #{fn 31334}#)))
+ (if #{t 31338}#
+ #{t 31338}#
(syntax-violation
'include-from-path
"file not found in path"
- #{x 29317}#
- #{filename 29324}#))))))
+ #{x 31326}#
+ #{filename 31333}#))))))
(list '#(syntax-object
include
((top)
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("i29311"))
+ #(ribcage #(fn) #((top)) #("i31320"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("i29307"))
+ #(ribcage #(fn) #((top)) #("i31316"))
#(ribcage
#(k filename)
#((top) (top))
- #("i29303" "i29304"))
+ #("i31312" "i31313"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i29300")))
+ #(ribcage #(x) #((top)) #("i31309")))
(hygiene guile))
- #{tmp 29326}#))))
- #{tmp 29319}#)
+ #{tmp 31335}#))))
+ #{tmp 31328}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 29317}#))))))
+ #{x 31326}#))))))
(define unquote
(make-syntax-transformer
'unquote
'macro
- (lambda (#{x 29338}#)
+ (lambda (#{x 31347}#)
(syntax-violation
'unquote
"expression not valid outside of quasiquote"
- #{x 29338}#))))
+ #{x 31347}#))))
(define unquote-splicing
(make-syntax-transformer
'unquote-splicing
'macro
- (lambda (#{x 29341}#)
+ (lambda (#{x 31350}#)
(syntax-violation
'unquote-splicing
"expression not valid outside of quasiquote"
- #{x 29341}#))))
+ #{x 31350}#))))
(define case
(make-syntax-transformer
'case
'macro
- (lambda (#{x 29397}#)
- (let ((#{tmp 29399}#
+ (lambda (#{x 31406}#)
+ (let ((#{tmp 31408}#
($sc-dispatch
- #{x 29397}#
+ #{x 31406}#
'(_ any any . each-any))))
- (if #{tmp 29399}#
+ (if #{tmp 31408}#
(@apply
- (lambda (#{e 29403}# #{m1 29404}# #{m2 29405}#)
- (let ((#{tmp 29406}#
+ (lambda (#{e 31412}# #{m1 31413}# #{m2 31414}#)
+ (let ((#{tmp 31415}#
(letrec*
- ((#{f 29448}#
- (lambda (#{clause 29451}# #{clauses 29452}#)
- (if (null? #{clauses 29452}#)
- (let ((#{tmp 29454}#
+ ((#{f 31457}#
+ (lambda (#{clause 31460}# #{clauses 31461}#)
+ (if (null? #{clauses 31461}#)
+ (let ((#{tmp 31463}#
($sc-dispatch
- #{clause 29451}#
+ #{clause 31460}#
'(#(free-id
#(syntax-object
else
@@ -25373,91 +25407,91 @@
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i29356"
- "i29357"
- "i29358"))
+ #("i31365"
+ "i31366"
+ "i31367"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i29346"
- "i29347"
- "i29348"))
+ #("i31355"
+ "i31356"
+ "i31357"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i29343")))
+ #("i31352")))
(hygiene guile)))
any
.
each-any))))
- (if #{tmp 29454}#
+ (if #{tmp 31463}#
(@apply
- (lambda (#{e1 29458}# #{e2 29459}#)
+ (lambda (#{e1 31467}# #{e2 31468}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i29365" "i29366"))
+ #("i31374" "i31375"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i29356"
- "i29357"
- "i29358"))
+ #("i31365"
+ "i31366"
+ "i31367"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i29346"
- "i29347"
- "i29348"))
+ #("i31355"
+ "i31356"
+ "i31357"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i29343")))
+ #("i31352")))
(hygiene guile))
- (cons #{e1 29458}# #{e2 29459}#)))
- #{tmp 29454}#)
- (let ((#{tmp 29460}#
+ (cons #{e1 31467}# #{e2 31468}#)))
+ #{tmp 31463}#)
+ (let ((#{tmp 31469}#
($sc-dispatch
- #{clause 29451}#
+ #{clause 31460}#
'(each-any any . each-any))))
- (if #{tmp 29460}#
+ (if #{tmp 31469}#
(@apply
- (lambda (#{k 29464}#
- #{e1 29465}#
- #{e2 29466}#)
+ (lambda (#{k 31473}#
+ #{e1 31474}#
+ #{e2 31475}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i29371"
- "i29372"
- "i29373"))
+ #("i31380"
+ "i31381"
+ "i31382"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i29356"
- "i29357"
- "i29358"))
+ #("i31365"
+ "i31366"
+ "i31367"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i29346"
- "i29347"
- "i29348"))
+ #("i31355"
+ "i31356"
+ "i31357"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i29343")))
+ #("i31352")))
(hygiene guile))
(list '#(syntax-object
memv
@@ -25467,9 +25501,9 @@
#((top)
(top)
(top))
- #("i29371"
- "i29372"
- "i29373"))
+ #("i31380"
+ "i31381"
+ "i31382"))
#(ribcage () () ())
#(ribcage
#(f
@@ -25478,22 +25512,22 @@
#((top)
(top)
(top))
- #("i29356"
- "i29357"
- "i29358"))
+ #("i31365"
+ "i31366"
+ "i31367"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i29346"
- "i29347"
- "i29348"))
+ #("i31355"
+ "i31356"
+ "i31357"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i29343")))
+ #("i31352")))
(hygiene guile))
'#(syntax-object
t
@@ -25503,9 +25537,9 @@
#((top)
(top)
(top))
- #("i29371"
- "i29372"
- "i29373"))
+ #("i31380"
+ "i31381"
+ "i31382"))
#(ribcage () () ())
#(ribcage
#(f
@@ -25514,22 +25548,22 @@
#((top)
(top)
(top))
- #("i29356"
- "i29357"
- "i29358"))
+ #("i31365"
+ "i31366"
+ "i31367"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i29346"
- "i29347"
- "i29348"))
+ #("i31355"
+ "i31356"
+ "i31357"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i29343")))
+ #("i31352")))
(hygiene guile))
(list '#(syntax-object
quote
@@ -25539,9 +25573,9 @@
#((top)
(top)
(top))
- #("i29371"
- "i29372"
- "i29373"))
+ #("i31380"
+ "i31381"
+ "i31382"))
#(ribcage
()
()
@@ -25553,17 +25587,17 @@
#((top)
(top)
(top))
- #("i29356"
- "i29357"
- "i29358"))
+ #("i31365"
+ "i31366"
+ "i31367"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i29346"
- "i29347"
- "i29348"))
+ #("i31355"
+ "i31356"
+ "i31357"))
#(ribcage
()
()
@@ -25571,10 +25605,10 @@
#(ribcage
#(x)
#((top))
-
#("i29343")))
+
#("i31352")))
(hygiene
guile))
- #{k 29464}#))
+ #{k 31473}#))
(cons '#(syntax-object
begin
((top)
@@ -25583,9 +25617,9 @@
#((top)
(top)
(top))
- #("i29371"
- "i29372"
- "i29373"))
+ #("i31380"
+ "i31381"
+ "i31382"))
#(ribcage () () ())
#(ribcage
#(f
@@ -25594,76 +25628,76 @@
#((top)
(top)
(top))
- #("i29356"
- "i29357"
- "i29358"))
+ #("i31365"
+ "i31366"
+ "i31367"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i29346"
- "i29347"
- "i29348"))
+ #("i31355"
+ "i31356"
+ "i31357"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i29343")))
+ #("i31352")))
(hygiene guile))
- (cons #{e1 29465}#
- #{e2 29466}#))))
- #{tmp 29460}#)
+ (cons #{e1 31474}#
+ #{e2 31475}#))))
+ #{tmp 31469}#)
(syntax-violation
'case
"bad clause"
- #{x 29397}#
- #{clause 29451}#)))))
- (let ((#{tmp 29474}#
- (#{f 29448}#
- (car #{clauses 29452}#)
- (cdr #{clauses 29452}#))))
- (let ((#{tmp 29477}#
+ #{x 31406}#
+ #{clause 31460}#)))))
+ (let ((#{tmp 31483}#
+ (#{f 31457}#
+ (car #{clauses 31461}#)
+ (cdr #{clauses 31461}#))))
+ (let ((#{tmp 31486}#
($sc-dispatch
- #{clause 29451}#
+ #{clause 31460}#
'(each-any any . each-any))))
- (if #{tmp 29477}#
+ (if #{tmp 31486}#
(@apply
- (lambda (#{k 29481}#
- #{e1 29482}#
- #{e2 29483}#)
+ (lambda (#{k 31490}#
+ #{e1 31491}#
+ #{e2 31492}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i29387"
- "i29388"
- "i29389"))
+ #("i31396"
+ "i31397"
+ "i31398"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("i29383"))
+ #("i31392"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i29356"
- "i29357"
- "i29358"))
+ #("i31365"
+ "i31366"
+ "i31367"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i29346"
- "i29347"
- "i29348"))
+ #("i31355"
+ "i31356"
+ "i31357"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i29343")))
+ #("i31352")))
(hygiene guile))
(list '#(syntax-object
memv
@@ -25671,32 +25705,32 @@
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i29387"
- "i29388"
- "i29389"))
+ #("i31396"
+ "i31397"
+ "i31398"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("i29383"))
+ #("i31392"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i29356"
- "i29357"
- "i29358"))
+ #("i31365"
+ "i31366"
+ "i31367"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i29346"
- "i29347"
- "i29348"))
+ #("i31355"
+ "i31356"
+ "i31357"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i29343")))
+ #("i31352")))
(hygiene guile))
'#(syntax-object
t
@@ -25704,32 +25738,32 @@
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i29387"
- "i29388"
- "i29389"))
+ #("i31396"
+ "i31397"
+ "i31398"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("i29383"))
+ #("i31392"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i29356"
- "i29357"
- "i29358"))
+ #("i31365"
+ "i31366"
+ "i31367"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i29346"
- "i29347"
- "i29348"))
+ #("i31355"
+ "i31356"
+ "i31357"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i29343")))
+ #("i31352")))
(hygiene guile))
(list '#(syntax-object
quote
@@ -25739,9 +25773,9 @@
#((top)
(top)
(top))
- #("i29387"
- "i29388"
- "i29389"))
+ #("i31396"
+ "i31397"
+ "i31398"))
#(ribcage
()
()
@@ -25749,7 +25783,7 @@
#(ribcage
#(rest)
#((top))
- #("i29383"))
+ #("i31392"))
#(ribcage
()
()
@@ -25761,17 +25795,17 @@
#((top)
(top)
(top))
- #("i29356"
- "i29357"
- "i29358"))
+ #("i31365"
+ "i31366"
+ "i31367"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i29346"
- "i29347"
- "i29348"))
+ #("i31355"
+ "i31356"
+ "i31357"))
#(ribcage
()
()
@@ -25779,232 +25813,232 @@
#(ribcage
#(x)
#((top))
- #("i29343")))
+ #("i31352")))
(hygiene guile))
- #{k 29481}#))
+ #{k 31490}#))
(cons '#(syntax-object
begin
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i29387"
- "i29388"
- "i29389"))
+ #("i31396"
+ "i31397"
+ "i31398"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("i29383"))
+ #("i31392"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i29356"
- "i29357"
- "i29358"))
+ #("i31365"
+ "i31366"
+ "i31367"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i29346"
- "i29347"
- "i29348"))
+ #("i31355"
+ "i31356"
+ "i31357"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i29343")))
+ #("i31352")))
(hygiene guile))
- (cons #{e1 29482}#
- #{e2 29483}#))
- #{tmp 29474}#))
- #{tmp 29477}#)
+ (cons #{e1 31491}#
+ #{e2 31492}#))
+ #{tmp 31483}#))
+ #{tmp 31486}#)
(syntax-violation
'case
"bad clause"
- #{x 29397}#
- #{clause 29451}#))))))))
- (#{f 29448}# #{m1 29404}# #{m2 29405}#))))
- (let ((#{body 29407}# #{tmp 29406}#))
+ #{x 31406}#
+ #{clause 31460}#))))))))
+ (#{f 31457}# #{m1 31413}# #{m2 31414}#))))
+ (let ((#{body 31416}# #{tmp 31415}#))
(list '#(syntax-object
let
((top)
#(ribcage () () ())
- #(ribcage #(body) #((top)) #("i29354"))
+ #(ribcage #(body) #((top)) #("i31363"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i29346" "i29347" "i29348"))
+ #("i31355" "i31356" "i31357"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i29343")))
+ #(ribcage #(x) #((top)) #("i31352")))
(hygiene guile))
(list (list '#(syntax-object
t
((top)
#(ribcage () () ())
- #(ribcage #(body) #((top)) #("i29354"))
+ #(ribcage #(body) #((top)) #("i31363"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i29346" "i29347" "i29348"))
+ #("i31355" "i31356" "i31357"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i29343")))
+ #(ribcage #(x) #((top)) #("i31352")))
(hygiene guile))
- #{e 29403}#))
- #{body 29407}#))))
- #{tmp 29399}#)
+ #{e 31412}#))
+ #{body 31416}#))))
+ #{tmp 31408}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 29397}#))))))
+ #{x 31406}#))))))
(define make-variable-transformer
- (lambda (#{proc 29501}#)
- (if (procedure? #{proc 29501}#)
+ (lambda (#{proc 31510}#)
+ (if (procedure? #{proc 31510}#)
(letrec*
- ((#{trans 29502}#
- (lambda (#{x 29508}#)
- (#{proc 29501}# #{x 29508}#))))
+ ((#{trans 31511}#
+ (lambda (#{x 31517}#)
+ (#{proc 31510}# #{x 31517}#))))
(begin
(set-procedure-property!
- #{trans 29502}#
+ #{trans 31511}#
'variable-transformer
#t)
- #{trans 29502}#))
+ #{trans 31511}#))
(error "variable transformer not a procedure"
- #{proc 29501}#))))
+ #{proc 31510}#))))
(define identifier-syntax
(make-syntax-transformer
'identifier-syntax
'macro
- (lambda (#{x 29540}#)
- (let ((#{tmp 29542}#
- ($sc-dispatch #{x 29540}# '(_ any))))
- (if #{tmp 29542}#
+ (lambda (#{x 31549}#)
+ (let ((#{tmp 31551}#
+ ($sc-dispatch #{x 31549}# '(_ any))))
+ (if #{tmp 31551}#
(@apply
- (lambda (#{e 29546}#)
+ (lambda (#{e 31555}#)
(list '#(syntax-object
lambda
((top)
- #(ribcage #(e) #((top)) #("i29515"))
+ #(ribcage #(e) #((top)) #("i31524"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i29512")))
+ #(ribcage #(x) #((top)) #("i31521")))
(hygiene guile))
'(#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("i29515"))
+ #(ribcage #(e) #((top)) #("i31524"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i29512")))
+ #(ribcage #(x) #((top)) #("i31521")))
(hygiene guile)))
'#((#(syntax-object
macro-type
((top)
- #(ribcage #(e) #((top)) #("i29515"))
+ #(ribcage #(e) #((top)) #("i31524"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i29512")))
+ #(ribcage #(x) #((top)) #("i31521")))
(hygiene guile))
.
#(syntax-object
identifier-syntax
((top)
- #(ribcage #(e) #((top)) #("i29515"))
+ #(ribcage #(e) #((top)) #("i31524"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i29512")))
+ #(ribcage #(x) #((top)) #("i31521")))
(hygiene guile))))
(list '#(syntax-object
syntax-case
((top)
- #(ribcage #(e) #((top)) #("i29515"))
+ #(ribcage #(e) #((top)) #("i31524"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i29512")))
+ #(ribcage #(x) #((top)) #("i31521")))
(hygiene guile))
'#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("i29515"))
+ #(ribcage #(e) #((top)) #("i31524"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i29512")))
+ #(ribcage #(x) #((top)) #("i31521")))
(hygiene guile))
'()
(list '#(syntax-object
id
((top)
- #(ribcage #(e) #((top)) #("i29515"))
+ #(ribcage #(e) #((top)) #("i31524"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i29512")))
+ #(ribcage #(x) #((top)) #("i31521")))
(hygiene guile))
'(#(syntax-object
identifier?
((top)
- #(ribcage #(e) #((top)) #("i29515"))
+ #(ribcage #(e) #((top)) #("i31524"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i29512")))
+ #(ribcage #(x) #((top)) #("i31521")))
(hygiene guile))
(#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("i29515"))
+ #(ribcage #(e) #((top)) #("i31524"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i29512")))
+ #(ribcage #(x) #((top)) #("i31521")))
(hygiene guile))
#(syntax-object
id
((top)
- #(ribcage #(e) #((top)) #("i29515"))
+ #(ribcage #(e) #((top)) #("i31524"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i29512")))
+ #(ribcage #(x) #((top)) #("i31521")))
(hygiene guile))))
(list '#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("i29515"))
+ #(ribcage #(e) #((top)) #("i31524"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i29512")))
+ #(ribcage #(x) #((top)) #("i31521")))
(hygiene guile))
- #{e 29546}#))
+ #{e 31555}#))
(list '(#(syntax-object
_
((top)
- #(ribcage #(e) #((top)) #("i29515"))
+ #(ribcage #(e) #((top)) #("i31524"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i29512")))
+ #(ribcage #(x) #((top)) #("i31521")))
(hygiene guile))
#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("i29515"))
+ #(ribcage #(e) #((top)) #("i31524"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i29512")))
+ #(ribcage #(x) #((top)) #("i31521")))
(hygiene guile))
#(syntax-object
...
((top)
- #(ribcage #(e) #((top)) #("i29515"))
+ #(ribcage #(e) #((top)) #("i31524"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i29512")))
+ #(ribcage #(x) #((top)) #("i31521")))
(hygiene guile)))
(list '#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("i29515"))
+ #(ribcage #(e) #((top)) #("i31524"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i29512")))
+ #(ribcage #(x) #((top)) #("i31521")))
(hygiene guile))
- (cons #{e 29546}#
+ (cons #{e 31555}#
'(#(syntax-object
x
((top)
#(ribcage
#(e)
#((top))
- #("i29515"))
+ #("i31524"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i29512")))
+ #("i31521")))
(hygiene guile))
#(syntax-object
...
@@ -26012,55 +26046,55 @@
#(ribcage
#(e)
#((top))
- #("i29515"))
+ #("i31524"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i29512")))
+ #("i31521")))
(hygiene guile)))))))))
- #{tmp 29542}#)
- (let ((#{tmp 29547}#
+ #{tmp 31551}#)
+ (let ((#{tmp 31556}#
($sc-dispatch
- #{x 29540}#
+ #{x 31549}#
'(_ (any any)
((#(free-id
#(syntax-object
set!
((top)
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i29512")))
+ #(ribcage #(x) #((top)) #("i31521")))
(hygiene guile)))
any
any)
any)))))
- (if (if #{tmp 29547}#
+ (if (if #{tmp 31556}#
(@apply
- (lambda (#{id 29551}#
- #{exp1 29552}#
- #{var 29553}#
- #{val 29554}#
- #{exp2 29555}#)
- (if (identifier? #{id 29551}#)
- (identifier? #{var 29553}#)
+ (lambda (#{id 31560}#
+ #{exp1 31561}#
+ #{var 31562}#
+ #{val 31563}#
+ #{exp2 31564}#)
+ (if (identifier? #{id 31560}#)
+ (identifier? #{var 31562}#)
#f))
- #{tmp 29547}#)
+ #{tmp 31556}#)
#f)
(@apply
- (lambda (#{id 29556}#
- #{exp1 29557}#
- #{var 29558}#
- #{val 29559}#
- #{exp2 29560}#)
+ (lambda (#{id 31565}#
+ #{exp1 31566}#
+ #{var 31567}#
+ #{val 31568}#
+ #{exp2 31569}#)
(list '#(syntax-object
make-variable-transformer
((top)
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i29530" "i29531" "i29532" "i29533" "i29534"))
+ #("i31539" "i31540" "i31541" "i31542" "i31543"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i29512")))
+ #(ribcage #(x) #((top)) #("i31521")))
(hygiene guile))
(list '#(syntax-object
lambda
@@ -26068,13 +26102,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i29530"
- "i29531"
- "i29532"
- "i29533"
- "i29534"))
+ #("i31539"
+ "i31540"
+ "i31541"
+ "i31542"
+ "i31543"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i29512")))
+ #(ribcage #(x) #((top)) #("i31521")))
(hygiene guile))
'(#(syntax-object
x
@@ -26082,13 +26116,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i29530"
- "i29531"
- "i29532"
- "i29533"
- "i29534"))
+ #("i31539"
+ "i31540"
+ "i31541"
+ "i31542"
+ "i31543"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i29512")))
+ #(ribcage #(x) #((top)) #("i31521")))
(hygiene guile)))
'#((#(syntax-object
macro-type
@@ -26096,13 +26130,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i29530"
- "i29531"
- "i29532"
- "i29533"
- "i29534"))
+ #("i31539"
+ "i31540"
+ "i31541"
+ "i31542"
+ "i31543"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i29512")))
+ #(ribcage #(x) #((top)) #("i31521")))
(hygiene guile))
.
#(syntax-object
@@ -26111,13 +26145,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i29530"
- "i29531"
- "i29532"
- "i29533"
- "i29534"))
+ #("i31539"
+ "i31540"
+ "i31541"
+ "i31542"
+ "i31543"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i29512")))
+ #(ribcage #(x) #((top)) #("i31521")))
(hygiene guile))))
(list '#(syntax-object
syntax-case
@@ -26125,13 +26159,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i29530"
- "i29531"
- "i29532"
- "i29533"
- "i29534"))
+ #("i31539"
+ "i31540"
+ "i31541"
+ "i31542"
+ "i31543"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i29512")))
+ #(ribcage #(x) #((top)) #("i31521")))
(hygiene guile))
'#(syntax-object
x
@@ -26139,13 +26173,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i29530"
- "i29531"
- "i29532"
- "i29533"
- "i29534"))
+ #("i31539"
+ "i31540"
+ "i31541"
+ "i31542"
+ "i31543"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i29512")))
+ #(ribcage #(x) #((top)) #("i31521")))
(hygiene guile))
'(#(syntax-object
set!
@@ -26153,13 +26187,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i29530"
- "i29531"
- "i29532"
- "i29533"
- "i29534"))
+ #("i31539"
+ "i31540"
+ "i31541"
+ "i31542"
+ "i31543"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i29512")))
+ #(ribcage #(x) #((top)) #("i31521")))
(hygiene guile)))
(list (list '#(syntax-object
set!
@@ -26171,19 +26205,19 @@
(top)
(top)
(top))
- #("i29530"
- "i29531"
- "i29532"
- "i29533"
- "i29534"))
+ #("i31539"
+ "i31540"
+ "i31541"
+ "i31542"
+ "i31543"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i29512")))
+ #("i31521")))
(hygiene guile))
- #{var 29558}#
- #{val 29559}#)
+ #{var 31567}#
+ #{val 31568}#)
(list '#(syntax-object
syntax
((top)
@@ -26194,19 +26228,19 @@
(top)
(top)
(top))
- #("i29530"
- "i29531"
- "i29532"
- "i29533"
- "i29534"))
+ #("i31539"
+ "i31540"
+ "i31541"
+ "i31542"
+ "i31543"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i29512")))
+ #("i31521")))
(hygiene guile))
- #{exp2 29560}#))
- (list (cons #{id 29556}#
+ #{exp2 31569}#))
+ (list (cons #{id 31565}#
'(#(syntax-object
x
((top)
@@ -26217,16 +26251,16 @@
(top)
(top)
(top))
- #("i29530"
- "i29531"
- "i29532"
- "i29533"
- "i29534"))
+ #("i31539"
+ "i31540"
+ "i31541"
+ "i31542"
+ "i31543"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i29512")))
+ #("i31521")))
(hygiene guile))
#(syntax-object
...
@@ -26238,16 +26272,16 @@
(top)
(top)
(top))
- #("i29530"
- "i29531"
- "i29532"
- "i29533"
- "i29534"))
+ #("i31539"
+ "i31540"
+ "i31541"
+ "i31542"
+ "i31543"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i29512")))
+ #("i31521")))
(hygiene guile))))
(list '#(syntax-object
syntax
@@ -26259,18 +26293,18 @@
(top)
(top)
(top))
- #("i29530"
- "i29531"
- "i29532"
- "i29533"
- "i29534"))
+ #("i31539"
+ "i31540"
+ "i31541"
+ "i31542"
+ "i31543"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i29512")))
+ #("i31521")))
(hygiene guile))
- (cons #{exp1 29557}#
+ (cons #{exp1 31566}#
'(#(syntax-object
x
((top)
@@ -26285,16 +26319,16 @@
(top)
(top)
(top))
- #("i29530"
- "i29531"
- "i29532"
- "i29533"
- "i29534"))
+ #("i31539"
+ "i31540"
+ "i31541"
+ "i31542"
+ "i31543"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i29512")))
+ #("i31521")))
(hygiene guile))
#(syntax-object
...
@@ -26310,18 +26344,18 @@
(top)
(top)
(top))
- #("i29530"
- "i29531"
- "i29532"
- "i29533"
- "i29534"))
+ #("i31539"
+ "i31540"
+ "i31541"
+ "i31542"
+ "i31543"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i29512")))
+ #("i31521")))
(hygiene guile))))))
- (list #{id 29556}#
+ (list #{id 31565}#
(list '#(syntax-object
identifier?
((top)
@@ -26332,16 +26366,16 @@
(top)
(top)
(top))
- #("i29530"
- "i29531"
- "i29532"
- "i29533"
- "i29534"))
+ #("i31539"
+ "i31540"
+ "i31541"
+ "i31542"
+ "i31543"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i29512")))
+ #("i31521")))
(hygiene guile))
(list '#(syntax-object
syntax
@@ -26357,18 +26391,18 @@
(top)
(top)
(top))
- #("i29530"
- "i29531"
- "i29532"
- "i29533"
- "i29534"))
+ #("i31539"
+ "i31540"
+ "i31541"
+ "i31542"
+ "i31543"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i29512")))
+ #("i31521")))
(hygiene guile))
- #{id 29556}#))
+ #{id 31565}#))
(list '#(syntax-object
syntax
((top)
@@ -26379,68 +26413,68 @@
(top)
(top)
(top))
- #("i29530"
- "i29531"
- "i29532"
- "i29533"
- "i29534"))
+ #("i31539"
+ "i31540"
+ "i31541"
+ "i31542"
+ "i31543"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i29512")))
+ #("i31521")))
(hygiene guile))
- #{exp1 29557}#))))))
- #{tmp 29547}#)
+ #{exp1 31566}#))))))
+ #{tmp 31556}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 29540}#))))))))
+ #{x 31549}#))))))))
(define define*
(make-syntax-transformer
'define*
'macro
- (lambda (#{x 29592}#)
- (let ((#{tmp 29594}#
+ (lambda (#{x 31601}#)
+ (let ((#{tmp 31603}#
($sc-dispatch
- #{x 29592}#
+ #{x 31601}#
'(_ (any . any) any . each-any))))
- (if #{tmp 29594}#
+ (if #{tmp 31603}#
(@apply
- (lambda (#{id 29598}#
- #{args 29599}#
- #{b0 29600}#
- #{b1 29601}#)
+ (lambda (#{id 31607}#
+ #{args 31608}#
+ #{b0 31609}#
+ #{b1 31610}#)
(list '#(syntax-object
define
((top)
#(ribcage
#(id args b0 b1)
#((top) (top) (top) (top))
- #("i29574" "i29575" "i29576" "i29577"))
+ #("i31583" "i31584" "i31585" "i31586"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i29571")))
+ #(ribcage #(x) #((top)) #("i31580")))
(hygiene guile))
- #{id 29598}#
+ #{id 31607}#
(cons '#(syntax-object
lambda*
((top)
#(ribcage
#(id args b0 b1)
#((top) (top) (top) (top))
- #("i29574" "i29575" "i29576" "i29577"))
+ #("i31583" "i31584" "i31585" "i31586"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i29571")))
+ #(ribcage #(x) #((top)) #("i31580")))
(hygiene guile))
- (cons #{args 29599}#
- (cons #{b0 29600}# #{b1 29601}#)))))
- #{tmp 29594}#)
- (let ((#{tmp 29602}#
- ($sc-dispatch #{x 29592}# '(_ any any))))
- (if (if #{tmp 29602}#
+ (cons #{args 31608}#
+ (cons #{b0 31609}# #{b1 31610}#)))))
+ #{tmp 31603}#)
+ (let ((#{tmp 31611}#
+ ($sc-dispatch #{x 31601}# '(_ any any))))
+ (if (if #{tmp 31611}#
(@apply
- (lambda (#{id 29606}# #{val 29607}#)
+ (lambda (#{id 31615}# #{val 31616}#)
(identifier?
'#(syntax-object
x
@@ -26448,29 +26482,29 @@
#(ribcage
#(id val)
#((top) (top))
- #("i29584" "i29585"))
+ #("i31593" "i31594"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i29571")))
+ #(ribcage #(x) #((top)) #("i31580")))
(hygiene guile))))
- #{tmp 29602}#)
+ #{tmp 31611}#)
#f)
(@apply
- (lambda (#{id 29608}# #{val 29609}#)
+ (lambda (#{id 31617}# #{val 31618}#)
(list '#(syntax-object
define
((top)
#(ribcage
#(id val)
#((top) (top))
- #("i29588" "i29589"))
+ #("i31597" "i31598"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i29571")))
+ #(ribcage #(x) #((top)) #("i31580")))
(hygiene guile))
- #{id 29608}#
- #{val 29609}#))
- #{tmp 29602}#)
+ #{id 31617}#
+ #{val 31618}#))
+ #{tmp 31611}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 29592}#))))))))
+ #{x 31601}#))))))))
hooks/post-receive
--
GNU Guile
| [Prev in Thread] | Current Thread | [Next in Thread] |