mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-29 08:20:20 +02:00
40e92f09fc
* module/ice-9/psyntax.scm (syntax-type): Return an additional value that contains the entire form in _all_ cases, including for definition forms. Previously, the entire form was not returned for definition forms. (expand-expr): Add an additional argument that contains the entire form in _all_ cases, including for definition forms. Use it to include the entire form in error messages, notably for definitions in expression context. Include the source location information, which was previously missing from these errors when the rhs expression was an atom. Improve the "definition in expression context" error message to be more comprehensible for Scheme beginners. (expand-top-sequence, expand, expand-body): Adjust as needed to handle the additional return value from 'syntax-type' and the additional argument to 'expand-expr'. * module/ice-9/psyntax-pp.scm: Regenerate. * NEWS: Update.
26773 lines
1.5 MiB
26773 lines
1.5 MiB
(eval-when (compile) (set-current-module (resolve-module (quote (guile)))))
|
|
(if #f #f)
|
|
|
|
(let ((session-id-6510 (if #f #f))
|
|
(transformer-environment-6571 (if #f #f)))
|
|
(letrec*
|
|
((top-level-eval-hook-6508
|
|
(lambda (x-29318 mod-29319)
|
|
(primitive-eval x-29318)))
|
|
(get-global-definition-hook-6512
|
|
(lambda (symbol-17709 module-17710)
|
|
(begin
|
|
(if (if (not module-17710) (current-module) #f)
|
|
(warn "module system is booted, we should have a module"
|
|
symbol-17709))
|
|
(let ((v-17711
|
|
(module-variable
|
|
(if module-17710
|
|
(resolve-module (cdr module-17710))
|
|
(current-module))
|
|
symbol-17709)))
|
|
(if v-17711
|
|
(if (variable-bound? v-17711)
|
|
(let ((val-17713 (variable-ref v-17711)))
|
|
(if (macro? val-17713)
|
|
(if (macro-type val-17713)
|
|
(cons (macro-type val-17713)
|
|
(macro-binding val-17713))
|
|
#f)
|
|
#f))
|
|
#f)
|
|
#f)))))
|
|
(maybe-name-value!-6514
|
|
(lambda (name-17990 val-17991)
|
|
(if (if (struct? val-17991)
|
|
(eq? (struct-vtable val-17991)
|
|
(vector-ref %expanded-vtables 13))
|
|
#f)
|
|
(let ((meta-17998 (struct-ref val-17991 1)))
|
|
(if (not (assq 'name meta-17998))
|
|
(let ((v-18003
|
|
(cons (cons 'name name-17990) meta-17998)))
|
|
(struct-set! val-17991 1 v-18003)))))))
|
|
(build-application-6516
|
|
(lambda (source-17715 fun-exp-17716 arg-exps-17717)
|
|
(make-struct/no-tail
|
|
(vector-ref %expanded-vtables 11)
|
|
source-17715
|
|
fun-exp-17716
|
|
arg-exps-17717)))
|
|
(build-conditional-6517
|
|
(lambda (source-17723
|
|
test-exp-17724
|
|
then-exp-17725
|
|
else-exp-17726)
|
|
(make-struct/no-tail
|
|
(vector-ref %expanded-vtables 10)
|
|
source-17723
|
|
test-exp-17724
|
|
then-exp-17725
|
|
else-exp-17726)))
|
|
(build-dynlet-6518
|
|
(lambda (source-17733 fluids-17734 vals-17735 body-17736)
|
|
(make-struct/no-tail
|
|
(vector-ref %expanded-vtables 17)
|
|
source-17733
|
|
fluids-17734
|
|
vals-17735
|
|
body-17736)))
|
|
(build-lexical-reference-6519
|
|
(lambda (type-29320 source-29321 name-29322 var-29323)
|
|
(make-struct/no-tail
|
|
(vector-ref %expanded-vtables 3)
|
|
source-29321
|
|
name-29322
|
|
var-29323)))
|
|
(build-lexical-assignment-6520
|
|
(lambda (source-17743 name-17744 var-17745 exp-17746)
|
|
(begin
|
|
(if (if (struct? exp-17746)
|
|
(eq? (struct-vtable exp-17746)
|
|
(vector-ref %expanded-vtables 13))
|
|
#f)
|
|
(let ((meta-17762 (struct-ref exp-17746 1)))
|
|
(if (not (assq 'name meta-17762))
|
|
(let ((v-17769
|
|
(cons (cons 'name name-17744) meta-17762)))
|
|
(struct-set! exp-17746 1 v-17769)))))
|
|
(make-struct/no-tail
|
|
(vector-ref %expanded-vtables 4)
|
|
source-17743
|
|
name-17744
|
|
var-17745
|
|
exp-17746))))
|
|
(analyze-variable-6521
|
|
(lambda (mod-29329
|
|
var-29330
|
|
modref-cont-29331
|
|
bare-cont-29332)
|
|
(if (not mod-29329)
|
|
(bare-cont-29332 var-29330)
|
|
(let ((kind-29333 (car mod-29329))
|
|
(mod-29334 (cdr mod-29329)))
|
|
(if (eqv? kind-29333 'public)
|
|
(modref-cont-29331 mod-29334 var-29330 #t)
|
|
(if (eqv? kind-29333 'private)
|
|
(if (not (equal? mod-29334 (module-name (current-module))))
|
|
(modref-cont-29331 mod-29334 var-29330 #f)
|
|
(bare-cont-29332 var-29330))
|
|
(if (eqv? kind-29333 'bare)
|
|
(bare-cont-29332 var-29330)
|
|
(if (eqv? kind-29333 'hygiene)
|
|
(if (if (not (equal?
|
|
mod-29334
|
|
(module-name (current-module))))
|
|
(module-variable
|
|
(resolve-module mod-29334)
|
|
var-29330)
|
|
#f)
|
|
(modref-cont-29331 mod-29334 var-29330 #f)
|
|
(bare-cont-29332 var-29330))
|
|
(syntax-violation
|
|
#f
|
|
"bad module kind"
|
|
var-29330
|
|
mod-29334)))))))))
|
|
(build-global-reference-6522
|
|
(lambda (source-29349 var-29350 mod-29351)
|
|
(analyze-variable-6521
|
|
mod-29351
|
|
var-29350
|
|
(lambda (mod-29354 var-29355 public?-29356)
|
|
(make-struct/no-tail
|
|
(vector-ref %expanded-vtables 5)
|
|
source-29349
|
|
mod-29354
|
|
var-29355
|
|
public?-29356))
|
|
(lambda (var-29364)
|
|
(make-struct/no-tail
|
|
(vector-ref %expanded-vtables 7)
|
|
source-29349
|
|
var-29364)))))
|
|
(build-global-assignment-6523
|
|
(lambda (source-17778 var-17779 exp-17780 mod-17781)
|
|
(begin
|
|
(if (if (struct? exp-17780)
|
|
(eq? (struct-vtable exp-17780)
|
|
(vector-ref %expanded-vtables 13))
|
|
#f)
|
|
(let ((meta-17797 (struct-ref exp-17780 1)))
|
|
(if (not (assq 'name meta-17797))
|
|
(let ((v-17804
|
|
(cons (cons 'name var-17779) meta-17797)))
|
|
(struct-set! exp-17780 1 v-17804)))))
|
|
(analyze-variable-6521
|
|
mod-17781
|
|
var-17779
|
|
(lambda (mod-17809 var-17810 public?-17811)
|
|
(make-struct/no-tail
|
|
(vector-ref %expanded-vtables 6)
|
|
source-17778
|
|
mod-17809
|
|
var-17810
|
|
public?-17811
|
|
exp-17780))
|
|
(lambda (var-17819)
|
|
(make-struct/no-tail
|
|
(vector-ref %expanded-vtables 8)
|
|
source-17778
|
|
var-17819
|
|
exp-17780))))))
|
|
(build-global-definition-6524
|
|
(lambda (source-29370 var-29371 exp-29372)
|
|
(begin
|
|
(if (if (struct? exp-29372)
|
|
(eq? (struct-vtable exp-29372)
|
|
(vector-ref %expanded-vtables 13))
|
|
#f)
|
|
(let ((meta-29388 (struct-ref exp-29372 1)))
|
|
(if (not (assq 'name meta-29388))
|
|
(let ((v-29395
|
|
(cons (cons 'name var-29371) meta-29388)))
|
|
(struct-set! exp-29372 1 v-29395)))))
|
|
(make-struct/no-tail
|
|
(vector-ref %expanded-vtables 9)
|
|
source-29370
|
|
var-29371
|
|
exp-29372))))
|
|
(build-simple-lambda-6525
|
|
(lambda (src-17825
|
|
req-17826
|
|
rest-17827
|
|
vars-17828
|
|
meta-17829
|
|
exp-17830)
|
|
(let ((body-17836
|
|
(make-struct/no-tail
|
|
(vector-ref %expanded-vtables 14)
|
|
src-17825
|
|
req-17826
|
|
#f
|
|
rest-17827
|
|
#f
|
|
'()
|
|
vars-17828
|
|
exp-17830
|
|
#f)))
|
|
(make-struct/no-tail
|
|
(vector-ref %expanded-vtables 13)
|
|
src-17825
|
|
meta-17829
|
|
body-17836))))
|
|
(build-sequence-6530
|
|
(lambda (src-29403 exps-29404)
|
|
(if (null? (cdr exps-29404))
|
|
(car exps-29404)
|
|
(make-struct/no-tail
|
|
(vector-ref %expanded-vtables 12)
|
|
src-29403
|
|
exps-29404))))
|
|
(build-let-6531
|
|
(lambda (src-17848
|
|
ids-17849
|
|
vars-17850
|
|
val-exps-17851
|
|
body-exp-17852)
|
|
(begin
|
|
(for-each
|
|
maybe-name-value!-6514
|
|
ids-17849
|
|
val-exps-17851)
|
|
(if (null? vars-17850)
|
|
body-exp-17852
|
|
(make-struct/no-tail
|
|
(vector-ref %expanded-vtables 15)
|
|
src-17848
|
|
ids-17849
|
|
vars-17850
|
|
val-exps-17851
|
|
body-exp-17852)))))
|
|
(build-named-let-6532
|
|
(lambda (src-17876
|
|
ids-17877
|
|
vars-17878
|
|
val-exps-17879
|
|
body-exp-17880)
|
|
(let ((f-17881 (car vars-17878))
|
|
(f-name-17882 (car ids-17877))
|
|
(vars-17883 (cdr vars-17878))
|
|
(ids-17884 (cdr ids-17877)))
|
|
(let ((proc-17885
|
|
(let ((body-17905
|
|
(make-struct/no-tail
|
|
(vector-ref %expanded-vtables 14)
|
|
src-17876
|
|
ids-17884
|
|
#f
|
|
#f
|
|
#f
|
|
'()
|
|
vars-17883
|
|
body-exp-17880
|
|
#f)))
|
|
(make-struct/no-tail
|
|
(vector-ref %expanded-vtables 13)
|
|
src-17876
|
|
'()
|
|
body-17905))))
|
|
(begin
|
|
(if (if (struct? proc-17885)
|
|
(eq? (struct-vtable proc-17885)
|
|
(vector-ref %expanded-vtables 13))
|
|
#f)
|
|
(let ((meta-17929 (struct-ref proc-17885 1)))
|
|
(if (not (assq 'name meta-17929))
|
|
(let ((v-17936
|
|
(cons (cons 'name f-name-17882) meta-17929)))
|
|
(struct-set! proc-17885 1 v-17936)))))
|
|
(for-each
|
|
maybe-name-value!-6514
|
|
ids-17884
|
|
val-exps-17879)
|
|
(let ((names-17960 (list f-name-17882))
|
|
(gensyms-17961 (list f-17881))
|
|
(vals-17962 (list proc-17885))
|
|
(body-17963
|
|
(let ((fun-exp-17967
|
|
(make-struct/no-tail
|
|
(vector-ref %expanded-vtables 3)
|
|
src-17876
|
|
f-name-17882
|
|
f-17881)))
|
|
(make-struct/no-tail
|
|
(vector-ref %expanded-vtables 11)
|
|
src-17876
|
|
fun-exp-17967
|
|
val-exps-17879))))
|
|
(make-struct/no-tail
|
|
(vector-ref %expanded-vtables 16)
|
|
src-17876
|
|
#f
|
|
names-17960
|
|
gensyms-17961
|
|
vals-17962
|
|
body-17963)))))))
|
|
(build-letrec-6533
|
|
(lambda (src-17983
|
|
in-order?-17984
|
|
ids-17985
|
|
vars-17986
|
|
val-exps-17987
|
|
body-exp-17988)
|
|
(if (null? vars-17986)
|
|
body-exp-17988
|
|
(begin
|
|
(for-each
|
|
maybe-name-value!-6514
|
|
ids-17985
|
|
val-exps-17987)
|
|
(make-struct/no-tail
|
|
(vector-ref %expanded-vtables 16)
|
|
src-17983
|
|
in-order?-17984
|
|
ids-17985
|
|
vars-17986
|
|
val-exps-17987
|
|
body-exp-17988)))))
|
|
(source-annotation-6542
|
|
(lambda (x-18014)
|
|
(if (if (vector? x-18014)
|
|
(if (= (vector-length x-18014) 4)
|
|
(eq? (vector-ref x-18014 0) 'syntax-object)
|
|
#f)
|
|
#f)
|
|
(source-annotation-6542 (vector-ref x-18014 1))
|
|
(if (pair? x-18014)
|
|
(let ((props-18029 (source-properties x-18014)))
|
|
(if (pair? props-18029) props-18029 #f))
|
|
#f))))
|
|
(extend-env-6543
|
|
(lambda (labels-18031 bindings-18032 r-18033)
|
|
(if (null? labels-18031)
|
|
r-18033
|
|
(extend-env-6543
|
|
(cdr labels-18031)
|
|
(cdr bindings-18032)
|
|
(cons (cons (car labels-18031) (car bindings-18032))
|
|
r-18033)))))
|
|
(extend-var-env-6544
|
|
(lambda (labels-18034 vars-18035 r-18036)
|
|
(if (null? labels-18034)
|
|
r-18036
|
|
(extend-var-env-6544
|
|
(cdr labels-18034)
|
|
(cdr vars-18035)
|
|
(cons (cons (car labels-18034)
|
|
(cons 'lexical (car vars-18035)))
|
|
r-18036)))))
|
|
(macros-only-env-6545
|
|
(lambda (r-18037)
|
|
(if (null? r-18037)
|
|
'()
|
|
(let ((a-18038 (car r-18037)))
|
|
(if (eq? (car (cdr a-18038)) 'macro)
|
|
(cons a-18038
|
|
(macros-only-env-6545 (cdr r-18037)))
|
|
(macros-only-env-6545 (cdr r-18037)))))))
|
|
(global-extend-6547
|
|
(lambda (type-18040 sym-18041 val-18042)
|
|
(module-define!
|
|
(current-module)
|
|
sym-18041
|
|
(make-syntax-transformer
|
|
sym-18041
|
|
type-18040
|
|
val-18042))))
|
|
(id?-6549
|
|
(lambda (x-11853)
|
|
(if (symbol? x-11853)
|
|
#t
|
|
(if (if (vector? x-11853)
|
|
(if (= (vector-length x-11853) 4)
|
|
(eq? (vector-ref x-11853 0) 'syntax-object)
|
|
#f)
|
|
#f)
|
|
(symbol? (vector-ref x-11853 1))
|
|
#f))))
|
|
(gen-labels-6552
|
|
(lambda (ls-18052)
|
|
(if (null? ls-18052)
|
|
'()
|
|
(cons (string-append
|
|
"l-"
|
|
(session-id-6510)
|
|
(symbol->string (gensym "-")))
|
|
(gen-labels-6552 (cdr ls-18052))))))
|
|
(make-binding-wrap-6563
|
|
(lambda (ids-18056 labels-18057 w-18058)
|
|
(if (null? ids-18056)
|
|
w-18058
|
|
(cons (car w-18058)
|
|
(cons (let ((labelvec-18059 (list->vector labels-18057)))
|
|
(let ((n-18060 (vector-length labelvec-18059)))
|
|
(let ((symnamevec-18061 (make-vector n-18060))
|
|
(marksvec-18062 (make-vector n-18060)))
|
|
(begin
|
|
(letrec*
|
|
((f-18063
|
|
(lambda (ids-18066 i-18067)
|
|
(if (not (null? ids-18066))
|
|
(call-with-values
|
|
(lambda ()
|
|
(let ((x-18070 (car ids-18066)))
|
|
(if (if (vector? x-18070)
|
|
(if (= (vector-length
|
|
x-18070)
|
|
4)
|
|
(eq? (vector-ref
|
|
x-18070
|
|
0)
|
|
'syntax-object)
|
|
#f)
|
|
#f)
|
|
(values
|
|
(vector-ref x-18070 1)
|
|
(let ((m1-18086
|
|
(car w-18058))
|
|
(m2-18087
|
|
(car (vector-ref
|
|
x-18070
|
|
2))))
|
|
(if (null? m2-18087)
|
|
m1-18086
|
|
(append
|
|
m1-18086
|
|
m2-18087))))
|
|
(values
|
|
x-18070
|
|
(car w-18058)))))
|
|
(lambda (symname-18107 marks-18108)
|
|
(begin
|
|
(vector-set!
|
|
symnamevec-18061
|
|
i-18067
|
|
symname-18107)
|
|
(vector-set!
|
|
marksvec-18062
|
|
i-18067
|
|
marks-18108)
|
|
(f-18063
|
|
(cdr ids-18066)
|
|
(#{1+}# i-18067)))))))))
|
|
(f-18063 ids-18056 0))
|
|
(vector
|
|
'ribcage
|
|
symnamevec-18061
|
|
marksvec-18062
|
|
labelvec-18059)))))
|
|
(cdr w-18058))))))
|
|
(join-wraps-6565
|
|
(lambda (w1-18117 w2-18118)
|
|
(let ((m1-18119 (car w1-18117))
|
|
(s1-18120 (cdr w1-18117)))
|
|
(if (null? m1-18119)
|
|
(if (null? s1-18120)
|
|
w2-18118
|
|
(cons (car w2-18118)
|
|
(let ((m2-18127 (cdr w2-18118)))
|
|
(if (null? m2-18127)
|
|
s1-18120
|
|
(append s1-18120 m2-18127)))))
|
|
(cons (let ((m2-18136 (car w2-18118)))
|
|
(if (null? m2-18136)
|
|
m1-18119
|
|
(append m1-18119 m2-18136)))
|
|
(let ((m2-18145 (cdr w2-18118)))
|
|
(if (null? m2-18145)
|
|
s1-18120
|
|
(append s1-18120 m2-18145))))))))
|
|
(same-marks?-6567
|
|
(lambda (x-18150 y-18151)
|
|
(if (eq? x-18150 y-18151)
|
|
(eq? x-18150 y-18151)
|
|
(if (not (null? x-18150))
|
|
(if (not (null? y-18151))
|
|
(if (eq? (car x-18150) (car y-18151))
|
|
(same-marks?-6567 (cdr x-18150) (cdr y-18151))
|
|
#f)
|
|
#f)
|
|
#f))))
|
|
(id-var-name-6568
|
|
(lambda (id-18159 w-18160)
|
|
(letrec*
|
|
((search-18161
|
|
(lambda (sym-18222 subst-18223 marks-18224)
|
|
(if (null? subst-18223)
|
|
(values #f marks-18224)
|
|
(let ((fst-18225 (car subst-18223)))
|
|
(if (eq? fst-18225 'shift)
|
|
(search-18161
|
|
sym-18222
|
|
(cdr subst-18223)
|
|
(cdr marks-18224))
|
|
(let ((symnames-18227 (vector-ref fst-18225 1)))
|
|
(if (vector? symnames-18227)
|
|
(let ((n-18239 (vector-length symnames-18227)))
|
|
(letrec*
|
|
((f-18240
|
|
(lambda (i-18242)
|
|
(if (= i-18242 n-18239)
|
|
(search-18161
|
|
sym-18222
|
|
(cdr subst-18223)
|
|
marks-18224)
|
|
(if (if (eq? (vector-ref
|
|
symnames-18227
|
|
i-18242)
|
|
sym-18222)
|
|
(same-marks?-6567
|
|
marks-18224
|
|
(vector-ref
|
|
(vector-ref fst-18225 2)
|
|
i-18242))
|
|
#f)
|
|
(values
|
|
(vector-ref
|
|
(vector-ref fst-18225 3)
|
|
i-18242)
|
|
marks-18224)
|
|
(f-18240 (#{1+}# i-18242)))))))
|
|
(f-18240 0)))
|
|
(letrec*
|
|
((f-18275
|
|
(lambda (symnames-18277 i-18278)
|
|
(if (null? symnames-18277)
|
|
(search-18161
|
|
sym-18222
|
|
(cdr subst-18223)
|
|
marks-18224)
|
|
(if (if (eq? (car symnames-18277) sym-18222)
|
|
(same-marks?-6567
|
|
marks-18224
|
|
(list-ref
|
|
(vector-ref fst-18225 2)
|
|
i-18278))
|
|
#f)
|
|
(values
|
|
(list-ref
|
|
(vector-ref fst-18225 3)
|
|
i-18278)
|
|
marks-18224)
|
|
(f-18275
|
|
(cdr symnames-18277)
|
|
(#{1+}# i-18278)))))))
|
|
(f-18275 symnames-18227 0))))))))))
|
|
(if (symbol? id-18159)
|
|
(let ((t-18164
|
|
(search-18161
|
|
id-18159
|
|
(cdr w-18160)
|
|
(car w-18160))))
|
|
(if t-18164 t-18164 id-18159))
|
|
(if (if (vector? id-18159)
|
|
(if (= (vector-length id-18159) 4)
|
|
(eq? (vector-ref id-18159 0) 'syntax-object)
|
|
#f)
|
|
#f)
|
|
(let ((id-18179 (vector-ref id-18159 1))
|
|
(w1-18180 (vector-ref id-18159 2)))
|
|
(let ((marks-18181
|
|
(let ((m1-18191 (car w-18160))
|
|
(m2-18192 (car w1-18180)))
|
|
(if (null? m2-18192)
|
|
m1-18191
|
|
(append m1-18191 m2-18192)))))
|
|
(call-with-values
|
|
(lambda ()
|
|
(search-18161 id-18179 (cdr w-18160) marks-18181))
|
|
(lambda (new-id-18208 marks-18209)
|
|
(if new-id-18208
|
|
new-id-18208
|
|
(let ((t-18217
|
|
(search-18161
|
|
id-18179
|
|
(cdr w1-18180)
|
|
marks-18209)))
|
|
(if t-18217 t-18217 id-18179)))))))
|
|
(syntax-violation
|
|
'id-var-name
|
|
"invalid id"
|
|
id-18159))))))
|
|
(locally-bound-identifiers-6569
|
|
(lambda (w-18300 mod-18301)
|
|
(letrec*
|
|
((scan-18302
|
|
(lambda (subst-18307 results-18308)
|
|
(if (null? subst-18307)
|
|
results-18308
|
|
(let ((fst-18309 (car subst-18307)))
|
|
(if (eq? fst-18309 'shift)
|
|
(scan-18302 (cdr subst-18307) results-18308)
|
|
(let ((symnames-18311 (vector-ref fst-18309 1))
|
|
(marks-18312 (vector-ref fst-18309 2)))
|
|
(if (vector? symnames-18311)
|
|
(scan-vector-rib-18304
|
|
subst-18307
|
|
symnames-18311
|
|
marks-18312
|
|
results-18308)
|
|
(scan-list-rib-18303
|
|
subst-18307
|
|
symnames-18311
|
|
marks-18312
|
|
results-18308))))))))
|
|
(scan-list-rib-18303
|
|
(lambda (subst-18410
|
|
symnames-18411
|
|
marks-18412
|
|
results-18413)
|
|
(letrec*
|
|
((f-18414
|
|
(lambda (symnames-18514 marks-18515 results-18516)
|
|
(if (null? symnames-18514)
|
|
(scan-18302 (cdr subst-18410) results-18516)
|
|
(f-18414
|
|
(cdr symnames-18514)
|
|
(cdr marks-18515)
|
|
(cons (wrap-6578
|
|
(car symnames-18514)
|
|
(let ((w-18524
|
|
(cons (car marks-18515)
|
|
subst-18410)))
|
|
(cons (cons #f (car w-18524))
|
|
(cons 'shift (cdr w-18524))))
|
|
mod-18301)
|
|
results-18516))))))
|
|
(f-18414
|
|
symnames-18411
|
|
marks-18412
|
|
results-18413))))
|
|
(scan-vector-rib-18304
|
|
(lambda (subst-18525
|
|
symnames-18526
|
|
marks-18527
|
|
results-18528)
|
|
(let ((n-18529 (vector-length symnames-18526)))
|
|
(letrec*
|
|
((f-18530
|
|
(lambda (i-18613 results-18614)
|
|
(if (= i-18613 n-18529)
|
|
(scan-18302 (cdr subst-18525) results-18614)
|
|
(f-18530
|
|
(#{1+}# i-18613)
|
|
(cons (wrap-6578
|
|
(vector-ref symnames-18526 i-18613)
|
|
(let ((w-18622
|
|
(cons (vector-ref
|
|
marks-18527
|
|
i-18613)
|
|
subst-18525)))
|
|
(cons (cons #f (car w-18622))
|
|
(cons 'shift (cdr w-18622))))
|
|
mod-18301)
|
|
results-18614))))))
|
|
(f-18530 0 results-18528))))))
|
|
(scan-18302 (cdr w-18300) '()))))
|
|
(valid-bound-ids?-6575
|
|
(lambda (ids-18623)
|
|
(if (letrec*
|
|
((all-ids?-18624
|
|
(lambda (ids-18786)
|
|
(if (null? ids-18786)
|
|
(null? ids-18786)
|
|
(if (let ((x-18797 (car ids-18786)))
|
|
(if (symbol? x-18797)
|
|
#t
|
|
(if (if (vector? x-18797)
|
|
(if (= (vector-length x-18797) 4)
|
|
(eq? (vector-ref x-18797 0)
|
|
'syntax-object)
|
|
#f)
|
|
#f)
|
|
(symbol? (vector-ref x-18797 1))
|
|
#f)))
|
|
(all-ids?-18624 (cdr ids-18786))
|
|
#f)))))
|
|
(all-ids?-18624 ids-18623))
|
|
(distinct-bound-ids?-6576 ids-18623)
|
|
#f)))
|
|
(distinct-bound-ids?-6576
|
|
(lambda (ids-18925)
|
|
(letrec*
|
|
((distinct?-18926
|
|
(lambda (ids-19038)
|
|
(if (null? ids-19038)
|
|
(null? ids-19038)
|
|
(if (not (bound-id-member?-6577
|
|
(car ids-19038)
|
|
(cdr ids-19038)))
|
|
(distinct?-18926 (cdr ids-19038))
|
|
#f)))))
|
|
(distinct?-18926 ids-18925))))
|
|
(bound-id-member?-6577
|
|
(lambda (x-19248 list-19249)
|
|
(if (not (null? list-19249))
|
|
(let ((t-19250
|
|
(let ((j-19331 (car list-19249)))
|
|
(if (if (if (vector? x-19248)
|
|
(if (= (vector-length x-19248) 4)
|
|
(eq? (vector-ref x-19248 0) 'syntax-object)
|
|
#f)
|
|
#f)
|
|
(if (vector? j-19331)
|
|
(if (= (vector-length j-19331) 4)
|
|
(eq? (vector-ref j-19331 0) 'syntax-object)
|
|
#f)
|
|
#f)
|
|
#f)
|
|
(if (eq? (vector-ref x-19248 1)
|
|
(vector-ref j-19331 1))
|
|
(same-marks?-6567
|
|
(car (vector-ref x-19248 2))
|
|
(car (vector-ref j-19331 2)))
|
|
#f)
|
|
(eq? x-19248 j-19331)))))
|
|
(if t-19250
|
|
t-19250
|
|
(bound-id-member?-6577 x-19248 (cdr list-19249))))
|
|
#f)))
|
|
(wrap-6578
|
|
(lambda (x-19375 w-19376 defmod-19377)
|
|
(if (if (null? (car w-19376))
|
|
(null? (cdr w-19376))
|
|
#f)
|
|
x-19375
|
|
(if (if (vector? x-19375)
|
|
(if (= (vector-length x-19375) 4)
|
|
(eq? (vector-ref x-19375 0) 'syntax-object)
|
|
#f)
|
|
#f)
|
|
(let ((expression-19391 (vector-ref x-19375 1))
|
|
(wrap-19392
|
|
(join-wraps-6565 w-19376 (vector-ref x-19375 2)))
|
|
(module-19393 (vector-ref x-19375 3)))
|
|
(vector
|
|
'syntax-object
|
|
expression-19391
|
|
wrap-19392
|
|
module-19393))
|
|
(if (null? x-19375)
|
|
x-19375
|
|
(vector
|
|
'syntax-object
|
|
x-19375
|
|
w-19376
|
|
defmod-19377))))))
|
|
(source-wrap-6579
|
|
(lambda (x-19410 w-19411 s-19412 defmod-19413)
|
|
(wrap-6578
|
|
(begin
|
|
(if (if (pair? x-19410) s-19412 #f)
|
|
(set-source-properties! x-19410 s-19412))
|
|
x-19410)
|
|
w-19411
|
|
defmod-19413)))
|
|
(expand-sequence-6580
|
|
(lambda (body-29409 r-29410 w-29411 s-29412 mod-29413)
|
|
(build-sequence-6530
|
|
s-29412
|
|
(letrec*
|
|
((dobody-29493
|
|
(lambda (body-29833 r-29834 w-29835 mod-29836)
|
|
(if (null? body-29833)
|
|
'()
|
|
(let ((first-29837
|
|
(let ((e-29841 (car body-29833)))
|
|
(call-with-values
|
|
(lambda ()
|
|
(syntax-type-6584
|
|
e-29841
|
|
r-29834
|
|
w-29835
|
|
(source-annotation-6542 e-29841)
|
|
#f
|
|
mod-29836
|
|
#f))
|
|
(lambda (type-29848
|
|
value-29849
|
|
form-29850
|
|
e-29851
|
|
w-29852
|
|
s-29853
|
|
mod-29854)
|
|
(expand-expr-6586
|
|
type-29848
|
|
value-29849
|
|
form-29850
|
|
e-29851
|
|
r-29834
|
|
w-29852
|
|
s-29853
|
|
mod-29854))))))
|
|
(cons first-29837
|
|
(dobody-29493
|
|
(cdr body-29833)
|
|
r-29834
|
|
w-29835
|
|
mod-29836)))))))
|
|
(dobody-29493
|
|
body-29409
|
|
r-29410
|
|
w-29411
|
|
mod-29413)))))
|
|
(expand-top-sequence-6581
|
|
(lambda (body-19431
|
|
r-19432
|
|
w-19433
|
|
s-19434
|
|
m-19435
|
|
esew-19436
|
|
mod-19437)
|
|
(letrec*
|
|
((scan-19438
|
|
(lambda (body-19569
|
|
r-19570
|
|
w-19571
|
|
s-19572
|
|
m-19573
|
|
esew-19574
|
|
mod-19575
|
|
exps-19576)
|
|
(if (null? body-19569)
|
|
exps-19576
|
|
(call-with-values
|
|
(lambda ()
|
|
(call-with-values
|
|
(lambda ()
|
|
(let ((e-19577 (car body-19569)))
|
|
(syntax-type-6584
|
|
e-19577
|
|
r-19570
|
|
w-19571
|
|
(let ((t-19581 (source-annotation-6542 e-19577)))
|
|
(if t-19581 t-19581 s-19572))
|
|
#f
|
|
mod-19575
|
|
#f)))
|
|
(lambda (type-19816
|
|
value-19817
|
|
form-19818
|
|
e-19819
|
|
w-19820
|
|
s-19821
|
|
mod-19822)
|
|
(if (eqv? type-19816 'begin-form)
|
|
(let ((tmp-19827 ($sc-dispatch e-19819 '(_))))
|
|
(if tmp-19827
|
|
(@apply (lambda () exps-19576) tmp-19827)
|
|
(let ((tmp-19831
|
|
($sc-dispatch
|
|
e-19819
|
|
'(_ any . each-any))))
|
|
(if tmp-19831
|
|
(@apply
|
|
(lambda (e1-19835 e2-19836)
|
|
(scan-19438
|
|
(cons e1-19835 e2-19836)
|
|
r-19570
|
|
w-19820
|
|
s-19821
|
|
m-19573
|
|
esew-19574
|
|
mod-19822
|
|
exps-19576))
|
|
tmp-19831)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
e-19819)))))
|
|
(if (eqv? type-19816 'local-syntax-form)
|
|
(expand-local-syntax-6590
|
|
value-19817
|
|
e-19819
|
|
r-19570
|
|
w-19820
|
|
s-19821
|
|
mod-19822
|
|
(lambda (body-19851
|
|
r-19852
|
|
w-19853
|
|
s-19854
|
|
mod-19855)
|
|
(scan-19438
|
|
body-19851
|
|
r-19852
|
|
w-19853
|
|
s-19854
|
|
m-19573
|
|
esew-19574
|
|
mod-19855
|
|
exps-19576)))
|
|
(if (eqv? type-19816 'eval-when-form)
|
|
(let ((tmp-19860
|
|
($sc-dispatch
|
|
e-19819
|
|
'(_ each-any any . each-any))))
|
|
(if tmp-19860
|
|
(@apply
|
|
(lambda (x-19864 e1-19865 e2-19866)
|
|
(let ((when-list-19867
|
|
(parse-when-list-6583
|
|
e-19819
|
|
x-19864))
|
|
(body-19868
|
|
(cons e1-19865 e2-19866)))
|
|
(if (eq? m-19573 'e)
|
|
(if (memq 'eval when-list-19867)
|
|
(scan-19438
|
|
body-19868
|
|
r-19570
|
|
w-19820
|
|
s-19821
|
|
(if (memq 'expand
|
|
when-list-19867)
|
|
'c&e
|
|
'e)
|
|
'(eval)
|
|
mod-19822
|
|
exps-19576)
|
|
(begin
|
|
(if (memq 'expand
|
|
when-list-19867)
|
|
(let ((x-19945
|
|
(expand-top-sequence-6581
|
|
body-19868
|
|
r-19570
|
|
w-19820
|
|
s-19821
|
|
'e
|
|
'(eval)
|
|
mod-19822)))
|
|
(primitive-eval x-19945)))
|
|
exps-19576))
|
|
(if (memq 'load when-list-19867)
|
|
(if (let ((t-19971
|
|
(memq 'compile
|
|
when-list-19867)))
|
|
(if t-19971
|
|
t-19971
|
|
(let ((t-20020
|
|
(memq 'expand
|
|
when-list-19867)))
|
|
(if t-20020
|
|
t-20020
|
|
(if (eq? m-19573
|
|
'c&e)
|
|
(memq 'eval
|
|
when-list-19867)
|
|
#f)))))
|
|
(scan-19438
|
|
body-19868
|
|
r-19570
|
|
w-19820
|
|
s-19821
|
|
'c&e
|
|
'(compile load)
|
|
mod-19822
|
|
exps-19576)
|
|
(if (if (eq? m-19573 'c)
|
|
#t
|
|
(eq? m-19573 'c&e))
|
|
(scan-19438
|
|
body-19868
|
|
r-19570
|
|
w-19820
|
|
s-19821
|
|
'c
|
|
'(load)
|
|
mod-19822
|
|
exps-19576)
|
|
exps-19576))
|
|
(if (let ((t-20149
|
|
(memq 'compile
|
|
when-list-19867)))
|
|
(if t-20149
|
|
t-20149
|
|
(let ((t-20198
|
|
(memq 'expand
|
|
when-list-19867)))
|
|
(if t-20198
|
|
t-20198
|
|
(if (eq? m-19573
|
|
'c&e)
|
|
(memq 'eval
|
|
when-list-19867)
|
|
#f)))))
|
|
(begin
|
|
(let ((x-20322
|
|
(expand-top-sequence-6581
|
|
body-19868
|
|
r-19570
|
|
w-19820
|
|
s-19821
|
|
'e
|
|
'(eval)
|
|
mod-19822)))
|
|
(primitive-eval x-20322))
|
|
exps-19576)
|
|
exps-19576)))))
|
|
tmp-19860)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
e-19819)))
|
|
(if (if (eqv? type-19816 'define-syntax-form)
|
|
#t
|
|
(eqv? type-19816
|
|
'define-syntax-parameter-form))
|
|
(let ((n-20368
|
|
(id-var-name-6568
|
|
value-19817
|
|
w-19820))
|
|
(r-20369
|
|
(macros-only-env-6545 r-19570)))
|
|
(if (eqv? m-19573 'c)
|
|
(if (memq 'compile esew-19574)
|
|
(let ((e-20373
|
|
(expand-install-global-6582
|
|
n-20368
|
|
(expand-6585
|
|
e-19819
|
|
r-20369
|
|
w-19820
|
|
mod-19822))))
|
|
(begin
|
|
(top-level-eval-hook-6508
|
|
e-20373
|
|
mod-19822)
|
|
(if (memq 'load esew-19574)
|
|
(cons e-20373 exps-19576)
|
|
exps-19576)))
|
|
(if (memq 'load esew-19574)
|
|
(cons (expand-install-global-6582
|
|
n-20368
|
|
(expand-6585
|
|
e-19819
|
|
r-20369
|
|
w-19820
|
|
mod-19822))
|
|
exps-19576)
|
|
exps-19576))
|
|
(if (eqv? m-19573 'c&e)
|
|
(let ((e-21015
|
|
(expand-install-global-6582
|
|
n-20368
|
|
(expand-6585
|
|
e-19819
|
|
r-20369
|
|
w-19820
|
|
mod-19822))))
|
|
(begin
|
|
(top-level-eval-hook-6508
|
|
e-21015
|
|
mod-19822)
|
|
(cons e-21015 exps-19576)))
|
|
(begin
|
|
(if (memq 'eval esew-19574)
|
|
(top-level-eval-hook-6508
|
|
(expand-install-global-6582
|
|
n-20368
|
|
(expand-6585
|
|
e-19819
|
|
r-20369
|
|
w-19820
|
|
mod-19822))
|
|
mod-19822))
|
|
exps-19576))))
|
|
(if (eqv? type-19816 'define-form)
|
|
(let ((n-21689
|
|
(id-var-name-6568
|
|
value-19817
|
|
w-19820)))
|
|
(let ((type-21690
|
|
(car (let ((t-21697
|
|
(assq n-21689
|
|
r-19570)))
|
|
(if t-21697
|
|
(cdr t-21697)
|
|
(if (symbol? n-21689)
|
|
(let ((t-21703
|
|
(get-global-definition-hook-6512
|
|
n-21689
|
|
mod-19822)))
|
|
(if t-21703
|
|
t-21703
|
|
'(global)))
|
|
'(displaced-lexical)))))))
|
|
(if (if (eqv? type-21690 'global)
|
|
#t
|
|
(if (eqv? type-21690 'core)
|
|
#t
|
|
(if (eqv? type-21690 'macro)
|
|
#t
|
|
(eqv? type-21690
|
|
'module-ref))))
|
|
(begin
|
|
(if (if (if (eq? m-19573 'c)
|
|
#t
|
|
(eq? m-19573 'c&e))
|
|
(if (not (module-local-variable
|
|
(current-module)
|
|
n-21689))
|
|
(current-module)
|
|
#f)
|
|
#f)
|
|
(let ((old-21734
|
|
(module-variable
|
|
(current-module)
|
|
n-21689)))
|
|
(if (if (variable? old-21734)
|
|
(variable-bound?
|
|
old-21734)
|
|
#f)
|
|
(module-define!
|
|
(current-module)
|
|
n-21689
|
|
(variable-ref old-21734))
|
|
(module-add!
|
|
(current-module)
|
|
n-21689
|
|
(make-undefined-variable)))))
|
|
(cons (if (eq? m-19573 'c&e)
|
|
(let ((x-22175
|
|
(build-global-definition-6524
|
|
s-19821
|
|
n-21689
|
|
(expand-6585
|
|
e-19819
|
|
r-19570
|
|
w-19820
|
|
mod-19822))))
|
|
(begin
|
|
(top-level-eval-hook-6508
|
|
x-22175
|
|
mod-19822)
|
|
x-22175))
|
|
(lambda ()
|
|
(build-global-definition-6524
|
|
s-19821
|
|
n-21689
|
|
(expand-6585
|
|
e-19819
|
|
r-19570
|
|
w-19820
|
|
mod-19822))))
|
|
exps-19576))
|
|
(if (eqv? type-21690
|
|
'displaced-lexical)
|
|
(syntax-violation
|
|
#f
|
|
"identifier out of context"
|
|
(wrap-6578
|
|
(begin
|
|
(if (if (pair? form-19818)
|
|
s-19821
|
|
#f)
|
|
(set-source-properties!
|
|
form-19818
|
|
s-19821))
|
|
form-19818)
|
|
w-19820
|
|
mod-19822)
|
|
(wrap-6578
|
|
value-19817
|
|
w-19820
|
|
mod-19822))
|
|
(syntax-violation
|
|
#f
|
|
"cannot define keyword at top level"
|
|
(wrap-6578
|
|
(begin
|
|
(if (if (pair? form-19818)
|
|
s-19821
|
|
#f)
|
|
(set-source-properties!
|
|
form-19818
|
|
s-19821))
|
|
form-19818)
|
|
w-19820
|
|
mod-19822)
|
|
(wrap-6578
|
|
value-19817
|
|
w-19820
|
|
mod-19822))))))
|
|
(cons (if (eq? m-19573 'c&e)
|
|
(let ((x-22674
|
|
(expand-expr-6586
|
|
type-19816
|
|
value-19817
|
|
form-19818
|
|
e-19819
|
|
r-19570
|
|
w-19820
|
|
s-19821
|
|
mod-19822)))
|
|
(begin
|
|
(primitive-eval x-22674)
|
|
x-22674))
|
|
(lambda ()
|
|
(expand-expr-6586
|
|
type-19816
|
|
value-19817
|
|
form-19818
|
|
e-19819
|
|
r-19570
|
|
w-19820
|
|
s-19821
|
|
mod-19822)))
|
|
exps-19576)))))))))
|
|
(lambda (exps-22679)
|
|
(scan-19438
|
|
(cdr body-19569)
|
|
r-19570
|
|
w-19571
|
|
s-19572
|
|
m-19573
|
|
esew-19574
|
|
mod-19575
|
|
exps-22679)))))))
|
|
(call-with-values
|
|
(lambda ()
|
|
(scan-19438
|
|
body-19431
|
|
r-19432
|
|
w-19433
|
|
s-19434
|
|
m-19435
|
|
esew-19436
|
|
mod-19437
|
|
'()))
|
|
(lambda (exps-19441)
|
|
(if (null? exps-19441)
|
|
(make-struct/no-tail
|
|
(vector-ref %expanded-vtables 0)
|
|
s-19434)
|
|
(build-sequence-6530
|
|
s-19434
|
|
(letrec*
|
|
((lp-19481
|
|
(lambda (in-19565 out-19566)
|
|
(if (null? in-19565)
|
|
out-19566
|
|
(let ((e-19567 (car in-19565)))
|
|
(lp-19481
|
|
(cdr in-19565)
|
|
(cons (if (procedure? e-19567)
|
|
(e-19567)
|
|
e-19567)
|
|
out-19566)))))))
|
|
(lp-19481 exps-19441 '())))))))))
|
|
(expand-install-global-6582
|
|
(lambda (name-22680 e-22681)
|
|
(let ((exp-22687
|
|
(let ((fun-exp-22697
|
|
(if (equal? (module-name (current-module)) '(guile))
|
|
(make-struct/no-tail
|
|
(vector-ref %expanded-vtables 7)
|
|
#f
|
|
'make-syntax-transformer)
|
|
(make-struct/no-tail
|
|
(vector-ref %expanded-vtables 5)
|
|
#f
|
|
'(guile)
|
|
'make-syntax-transformer
|
|
#f)))
|
|
(arg-exps-22698
|
|
(list (make-struct/no-tail
|
|
(vector-ref %expanded-vtables 1)
|
|
#f
|
|
name-22680)
|
|
(make-struct/no-tail
|
|
(vector-ref %expanded-vtables 1)
|
|
#f
|
|
'macro)
|
|
e-22681)))
|
|
(make-struct/no-tail
|
|
(vector-ref %expanded-vtables 11)
|
|
#f
|
|
fun-exp-22697
|
|
arg-exps-22698))))
|
|
(begin
|
|
(if (if (struct? exp-22687)
|
|
(eq? (struct-vtable exp-22687)
|
|
(vector-ref %expanded-vtables 13))
|
|
#f)
|
|
(let ((meta-22739 (struct-ref exp-22687 1)))
|
|
(if (not (assq 'name meta-22739))
|
|
(let ((v-22746
|
|
(cons (cons 'name name-22680) meta-22739)))
|
|
(struct-set! exp-22687 1 v-22746)))))
|
|
(make-struct/no-tail
|
|
(vector-ref %expanded-vtables 9)
|
|
#f
|
|
name-22680
|
|
exp-22687)))))
|
|
(parse-when-list-6583
|
|
(lambda (e-22757 when-list-22758)
|
|
(let ((result-22759 (strip-6598 when-list-22758 '(()))))
|
|
(letrec*
|
|
((lp-22760
|
|
(lambda (l-22814)
|
|
(if (null? l-22814)
|
|
result-22759
|
|
(if (let ((t-22816 (car l-22814)))
|
|
(if (eq? t-22816 'compile)
|
|
#t
|
|
(if (eq? t-22816 'load)
|
|
#t
|
|
(if (eq? t-22816 'eval)
|
|
#t
|
|
(eq? t-22816 'expand)))))
|
|
(lp-22760 (cdr l-22814))
|
|
(syntax-violation
|
|
'eval-when
|
|
"invalid situation"
|
|
e-22757
|
|
(car l-22814)))))))
|
|
(lp-22760 result-22759)))))
|
|
(syntax-type-6584
|
|
(lambda (e-22818
|
|
r-22819
|
|
w-22820
|
|
s-22821
|
|
rib-22822
|
|
mod-22823
|
|
for-car?-22824)
|
|
(if (symbol? e-22818)
|
|
(let ((n-22825 (id-var-name-6568 e-22818 w-22820)))
|
|
(let ((b-22826
|
|
(let ((t-22834 (assq n-22825 r-22819)))
|
|
(if t-22834
|
|
(cdr t-22834)
|
|
(if (symbol? n-22825)
|
|
(let ((t-22840
|
|
(get-global-definition-hook-6512
|
|
n-22825
|
|
mod-22823)))
|
|
(if t-22840 t-22840 '(global)))
|
|
'(displaced-lexical))))))
|
|
(let ((type-22827 (car b-22826)))
|
|
(if (eqv? type-22827 'lexical)
|
|
(values
|
|
type-22827
|
|
(cdr b-22826)
|
|
e-22818
|
|
e-22818
|
|
w-22820
|
|
s-22821
|
|
mod-22823)
|
|
(if (eqv? type-22827 'global)
|
|
(values
|
|
type-22827
|
|
n-22825
|
|
e-22818
|
|
e-22818
|
|
w-22820
|
|
s-22821
|
|
mod-22823)
|
|
(if (eqv? type-22827 'macro)
|
|
(if for-car?-22824
|
|
(values
|
|
type-22827
|
|
(cdr b-22826)
|
|
e-22818
|
|
e-22818
|
|
w-22820
|
|
s-22821
|
|
mod-22823)
|
|
(syntax-type-6584
|
|
(expand-macro-6588
|
|
(cdr b-22826)
|
|
e-22818
|
|
r-22819
|
|
w-22820
|
|
s-22821
|
|
rib-22822
|
|
mod-22823)
|
|
r-22819
|
|
'(())
|
|
s-22821
|
|
rib-22822
|
|
mod-22823
|
|
#f))
|
|
(values
|
|
type-22827
|
|
(cdr b-22826)
|
|
e-22818
|
|
e-22818
|
|
w-22820
|
|
s-22821
|
|
mod-22823)))))))
|
|
(if (pair? e-22818)
|
|
(let ((first-22860 (car e-22818)))
|
|
(call-with-values
|
|
(lambda ()
|
|
(syntax-type-6584
|
|
first-22860
|
|
r-22819
|
|
w-22820
|
|
s-22821
|
|
rib-22822
|
|
mod-22823
|
|
#t))
|
|
(lambda (ftype-22862
|
|
fval-22863
|
|
fform-22864
|
|
fe-22865
|
|
fw-22866
|
|
fs-22867
|
|
fmod-22868)
|
|
(if (eqv? ftype-22862 'lexical)
|
|
(values
|
|
'lexical-call
|
|
fval-22863
|
|
e-22818
|
|
e-22818
|
|
w-22820
|
|
s-22821
|
|
mod-22823)
|
|
(if (eqv? ftype-22862 'global)
|
|
(values
|
|
'global-call
|
|
(vector
|
|
'syntax-object
|
|
fval-22863
|
|
w-22820
|
|
fmod-22868)
|
|
e-22818
|
|
e-22818
|
|
w-22820
|
|
s-22821
|
|
mod-22823)
|
|
(if (eqv? ftype-22862 'macro)
|
|
(syntax-type-6584
|
|
(expand-macro-6588
|
|
fval-22863
|
|
e-22818
|
|
r-22819
|
|
w-22820
|
|
s-22821
|
|
rib-22822
|
|
mod-22823)
|
|
r-22819
|
|
'(())
|
|
s-22821
|
|
rib-22822
|
|
mod-22823
|
|
for-car?-22824)
|
|
(if (eqv? ftype-22862 'module-ref)
|
|
(call-with-values
|
|
(lambda () (fval-22863 e-22818 r-22819 w-22820))
|
|
(lambda (e-22889
|
|
r-22890
|
|
w-22891
|
|
s-22892
|
|
mod-22893)
|
|
(syntax-type-6584
|
|
e-22889
|
|
r-22890
|
|
w-22891
|
|
s-22892
|
|
rib-22822
|
|
mod-22893
|
|
for-car?-22824)))
|
|
(if (eqv? ftype-22862 'core)
|
|
(values
|
|
'core-form
|
|
fval-22863
|
|
e-22818
|
|
e-22818
|
|
w-22820
|
|
s-22821
|
|
mod-22823)
|
|
(if (eqv? ftype-22862 'local-syntax)
|
|
(values
|
|
'local-syntax-form
|
|
fval-22863
|
|
e-22818
|
|
e-22818
|
|
w-22820
|
|
s-22821
|
|
mod-22823)
|
|
(if (eqv? ftype-22862 'begin)
|
|
(values
|
|
'begin-form
|
|
#f
|
|
e-22818
|
|
e-22818
|
|
w-22820
|
|
s-22821
|
|
mod-22823)
|
|
(if (eqv? ftype-22862 'eval-when)
|
|
(values
|
|
'eval-when-form
|
|
#f
|
|
e-22818
|
|
e-22818
|
|
w-22820
|
|
s-22821
|
|
mod-22823)
|
|
(if (eqv? ftype-22862 'define)
|
|
(let ((tmp-22910
|
|
($sc-dispatch
|
|
e-22818
|
|
'(_ any any))))
|
|
(if (if tmp-22910
|
|
(@apply
|
|
(lambda (name-22914 val-22915)
|
|
(if (symbol? name-22914)
|
|
#t
|
|
(if (if (vector? name-22914)
|
|
(if (= (vector-length
|
|
name-22914)
|
|
4)
|
|
(eq? (vector-ref
|
|
name-22914
|
|
0)
|
|
'syntax-object)
|
|
#f)
|
|
#f)
|
|
(symbol?
|
|
(vector-ref
|
|
name-22914
|
|
1))
|
|
#f)))
|
|
tmp-22910)
|
|
#f)
|
|
(@apply
|
|
(lambda (name-22942 val-22943)
|
|
(values
|
|
'define-form
|
|
name-22942
|
|
e-22818
|
|
val-22943
|
|
w-22820
|
|
s-22821
|
|
mod-22823))
|
|
tmp-22910)
|
|
(let ((tmp-22944
|
|
($sc-dispatch
|
|
e-22818
|
|
'(_ (any . any)
|
|
any
|
|
.
|
|
each-any))))
|
|
(if (if tmp-22944
|
|
(@apply
|
|
(lambda (name-22948
|
|
args-22949
|
|
e1-22950
|
|
e2-22951)
|
|
(if (if (symbol?
|
|
name-22948)
|
|
#t
|
|
(if (if (vector?
|
|
name-22948)
|
|
(if (= (vector-length
|
|
name-22948)
|
|
4)
|
|
(eq? (vector-ref
|
|
name-22948
|
|
0)
|
|
'syntax-object)
|
|
#f)
|
|
#f)
|
|
(symbol?
|
|
(vector-ref
|
|
name-22948
|
|
1))
|
|
#f))
|
|
(valid-bound-ids?-6575
|
|
(letrec*
|
|
((lvl-23100
|
|
(lambda (vars-23102
|
|
ls-23103
|
|
w-23104)
|
|
(if (pair? vars-23102)
|
|
(lvl-23100
|
|
(cdr vars-23102)
|
|
(cons (wrap-6578
|
|
(car vars-23102)
|
|
w-23104
|
|
#f)
|
|
ls-23103)
|
|
w-23104)
|
|
(if (if (symbol?
|
|
vars-23102)
|
|
#t
|
|
(if (if (vector?
|
|
vars-23102)
|
|
(if (= (vector-length
|
|
vars-23102)
|
|
4)
|
|
(eq? (vector-ref
|
|
vars-23102
|
|
0)
|
|
'syntax-object)
|
|
#f)
|
|
#f)
|
|
(symbol?
|
|
(vector-ref
|
|
vars-23102
|
|
1))
|
|
#f))
|
|
(cons (wrap-6578
|
|
vars-23102
|
|
w-23104
|
|
#f)
|
|
ls-23103)
|
|
(if (null? vars-23102)
|
|
ls-23103
|
|
(if (if (vector?
|
|
vars-23102)
|
|
(if (= (vector-length
|
|
vars-23102)
|
|
4)
|
|
(eq? (vector-ref
|
|
vars-23102
|
|
0)
|
|
'syntax-object)
|
|
#f)
|
|
#f)
|
|
(lvl-23100
|
|
(vector-ref
|
|
vars-23102
|
|
1)
|
|
ls-23103
|
|
(join-wraps-6565
|
|
w-23104
|
|
(vector-ref
|
|
vars-23102
|
|
2)))
|
|
(cons vars-23102
|
|
ls-23103))))))))
|
|
(lvl-23100
|
|
args-22949
|
|
'()
|
|
'(()))))
|
|
#f))
|
|
tmp-22944)
|
|
#f)
|
|
(@apply
|
|
(lambda (name-23148
|
|
args-23149
|
|
e1-23150
|
|
e2-23151)
|
|
(values
|
|
'define-form
|
|
(wrap-6578
|
|
name-23148
|
|
w-22820
|
|
mod-22823)
|
|
(wrap-6578
|
|
e-22818
|
|
w-22820
|
|
mod-22823)
|
|
(let ((e-23159
|
|
(cons '#(syntax-object
|
|
lambda
|
|
((top)
|
|
#(ribcage
|
|
#(name
|
|
args
|
|
e1
|
|
e2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("l-*-4009"
|
|
"l-*-4010"
|
|
"l-*-4011"
|
|
"l-*-4012"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(ftype
|
|
fval
|
|
fform
|
|
fe
|
|
fw
|
|
fs
|
|
fmod)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("l-*-3961"
|
|
"l-*-3962"
|
|
"l-*-3963"
|
|
"l-*-3964"
|
|
"l-*-3965"
|
|
"l-*-3966"
|
|
"l-*-3967"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(first)
|
|
#((top))
|
|
#("l-*-3952"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(e
|
|
r
|
|
w
|
|
s
|
|
rib
|
|
mod
|
|
for-car?)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("l-*-3924"
|
|
"l-*-3925"
|
|
"l-*-3926"
|
|
"l-*-3927"
|
|
"l-*-3928"
|
|
"l-*-3929"
|
|
"l-*-3930"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
expand-lambda-case
|
|
lambda*-formals
|
|
expand-simple-lambda
|
|
lambda-formals
|
|
ellipsis?
|
|
expand-void
|
|
eval-local-transformer
|
|
expand-local-syntax
|
|
expand-body
|
|
expand-macro
|
|
expand-application
|
|
expand-expr
|
|
expand
|
|
syntax-type
|
|
parse-when-list
|
|
expand-install-global
|
|
expand-top-sequence
|
|
expand-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
with-transformer-environment
|
|
transformer-environment
|
|
resolve-identifier
|
|
locally-bound-identifiers
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
set-syntax-object-module!
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-module
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda-case
|
|
build-case-lambda
|
|
build-simple-lambda
|
|
build-global-definition
|
|
build-global-assignment
|
|
build-global-reference
|
|
analyze-variable
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-dynlet
|
|
build-conditional
|
|
build-application
|
|
build-void
|
|
maybe-name-value!
|
|
decorate-source
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
session-id
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
set-lambda-meta!
|
|
lambda-meta
|
|
lambda?
|
|
make-dynlet
|
|
make-letrec
|
|
make-let
|
|
make-lambda-case
|
|
make-lambda
|
|
make-sequence
|
|
make-application
|
|
make-conditional
|
|
make-toplevel-define
|
|
make-toplevel-set
|
|
make-toplevel-ref
|
|
make-module-set
|
|
make-module-ref
|
|
make-lexical-set
|
|
make-lexical-ref
|
|
make-primitive-ref
|
|
make-const
|
|
make-void)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("l-*-2527"
|
|
"l-*-2525"
|
|
"l-*-2523"
|
|
"l-*-2521"
|
|
"l-*-2519"
|
|
"l-*-2517"
|
|
"l-*-2515"
|
|
"l-*-2513"
|
|
"l-*-2511"
|
|
"l-*-2509"
|
|
"l-*-2507"
|
|
"l-*-2505"
|
|
"l-*-2503"
|
|
"l-*-2501"
|
|
"l-*-2499"
|
|
"l-*-2497"
|
|
"l-*-2495"
|
|
"l-*-2493"
|
|
"l-*-2491"
|
|
"l-*-2489"
|
|
"l-*-2487"
|
|
"l-*-2485"
|
|
"l-*-2483"
|
|
"l-*-2481"
|
|
"l-*-2479"
|
|
"l-*-2477"
|
|
"l-*-2475"
|
|
"l-*-2473"
|
|
"l-*-2471"
|
|
"l-*-2469"
|
|
"l-*-2467"
|
|
"l-*-2465"
|
|
"l-*-2463"
|
|
"l-*-2461"
|
|
"l-*-2459"
|
|
"l-*-2457"
|
|
"l-*-2455"
|
|
"l-*-2453"
|
|
"l-*-2451"
|
|
"l-*-2450"
|
|
"l-*-2448"
|
|
"l-*-2445"
|
|
"l-*-2444"
|
|
"l-*-2443"
|
|
"l-*-2441"
|
|
"l-*-2440"
|
|
"l-*-2438"
|
|
"l-*-2436"
|
|
"l-*-2434"
|
|
"l-*-2432"
|
|
"l-*-2430"
|
|
"l-*-2428"
|
|
"l-*-2426"
|
|
"l-*-2424"
|
|
"l-*-2421"
|
|
"l-*-2419"
|
|
"l-*-2418"
|
|
"l-*-2416"
|
|
"l-*-2414"
|
|
"l-*-2412"
|
|
"l-*-2410"
|
|
"l-*-2409"
|
|
"l-*-2408"
|
|
"l-*-2407"
|
|
"l-*-2405"
|
|
"l-*-2404"
|
|
"l-*-2401"
|
|
"l-*-2399"
|
|
"l-*-2397"
|
|
"l-*-2395"
|
|
"l-*-2393"
|
|
"l-*-2391"
|
|
"l-*-2389"
|
|
"l-*-2388"
|
|
"l-*-2387"
|
|
"l-*-2385"
|
|
"l-*-2383"
|
|
"l-*-2382"
|
|
"l-*-2379"
|
|
"l-*-2378"
|
|
"l-*-2376"
|
|
"l-*-2374"
|
|
"l-*-2372"
|
|
"l-*-2370"
|
|
"l-*-2368"
|
|
"l-*-2366"
|
|
"l-*-2364"
|
|
"l-*-2362"
|
|
"l-*-2360"
|
|
"l-*-2357"
|
|
"l-*-2355"
|
|
"l-*-2353"
|
|
"l-*-2351"
|
|
"l-*-2349"
|
|
"l-*-2347"
|
|
"l-*-2345"
|
|
"l-*-2343"
|
|
"l-*-2341"
|
|
"l-*-2339"
|
|
"l-*-2337"
|
|
"l-*-2335"
|
|
"l-*-2333"
|
|
"l-*-2331"
|
|
"l-*-2329"
|
|
"l-*-2327"
|
|
"l-*-2325"
|
|
"l-*-2323"
|
|
"l-*-2321"
|
|
"l-*-2319"
|
|
"l-*-2317"
|
|
"l-*-2315"
|
|
"l-*-2313"
|
|
"l-*-2311"
|
|
"l-*-2309"
|
|
"l-*-2307"
|
|
"l-*-2306"
|
|
"l-*-2305"
|
|
"l-*-2304"
|
|
"l-*-2303"
|
|
"l-*-2301"
|
|
"l-*-2299"
|
|
"l-*-2297"
|
|
"l-*-2294"
|
|
"l-*-2292"
|
|
"l-*-2290"
|
|
"l-*-2288"
|
|
"l-*-2286"
|
|
"l-*-2284"
|
|
"l-*-2282"
|
|
"l-*-2280"
|
|
"l-*-2278"
|
|
"l-*-2276"
|
|
"l-*-2274"
|
|
"l-*-2272"
|
|
"l-*-2270"
|
|
"l-*-2268"
|
|
"l-*-2266"
|
|
"l-*-2264"
|
|
"l-*-2262"
|
|
"l-*-2260"))
|
|
#(ribcage
|
|
(define-structure
|
|
define-expansion-accessors
|
|
define-expansion-constructors)
|
|
((top)
|
|
(top)
|
|
(top))
|
|
("l-*-2098"
|
|
"l-*-2097"
|
|
"l-*-2096")))
|
|
(hygiene
|
|
guile))
|
|
(wrap-6578
|
|
(cons args-23149
|
|
(cons e1-23150
|
|
e2-23151))
|
|
w-22820
|
|
mod-22823))))
|
|
(begin
|
|
(if (if (pair? e-23159)
|
|
s-22821
|
|
#f)
|
|
(set-source-properties!
|
|
e-23159
|
|
s-22821))
|
|
e-23159))
|
|
'(())
|
|
s-22821
|
|
mod-22823))
|
|
tmp-22944)
|
|
(let ((tmp-23166
|
|
($sc-dispatch
|
|
e-22818
|
|
'(_ any))))
|
|
(if (if tmp-23166
|
|
(@apply
|
|
(lambda (name-23170)
|
|
(if (symbol?
|
|
name-23170)
|
|
#t
|
|
(if (if (vector?
|
|
name-23170)
|
|
(if (= (vector-length
|
|
name-23170)
|
|
4)
|
|
(eq? (vector-ref
|
|
name-23170
|
|
0)
|
|
'syntax-object)
|
|
#f)
|
|
#f)
|
|
(symbol?
|
|
(vector-ref
|
|
name-23170
|
|
1))
|
|
#f)))
|
|
tmp-23166)
|
|
#f)
|
|
(@apply
|
|
(lambda (name-23197)
|
|
(values
|
|
'define-form
|
|
(wrap-6578
|
|
name-23197
|
|
w-22820
|
|
mod-22823)
|
|
(wrap-6578
|
|
e-22818
|
|
w-22820
|
|
mod-22823)
|
|
'(#(syntax-object
|
|
if
|
|
((top)
|
|
#(ribcage
|
|
#(name)
|
|
#((top))
|
|
#("l-*-4022"))
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(ftype
|
|
fval
|
|
fform
|
|
fe
|
|
fw
|
|
fs
|
|
fmod)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("l-*-3961"
|
|
"l-*-3962"
|
|
"l-*-3963"
|
|
"l-*-3964"
|
|
"l-*-3965"
|
|
"l-*-3966"
|
|
"l-*-3967"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(first)
|
|
#((top))
|
|
#("l-*-3952"))
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(e
|
|
r
|
|
w
|
|
s
|
|
rib
|
|
mod
|
|
for-car?)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("l-*-3924"
|
|
"l-*-3925"
|
|
"l-*-3926"
|
|
"l-*-3927"
|
|
"l-*-3928"
|
|
"l-*-3929"
|
|
"l-*-3930"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
expand-lambda-case
|
|
lambda*-formals
|
|
expand-simple-lambda
|
|
lambda-formals
|
|
ellipsis?
|
|
expand-void
|
|
eval-local-transformer
|
|
expand-local-syntax
|
|
expand-body
|
|
expand-macro
|
|
expand-application
|
|
expand-expr
|
|
expand
|
|
syntax-type
|
|
parse-when-list
|
|
expand-install-global
|
|
expand-top-sequence
|
|
expand-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
with-transformer-environment
|
|
transformer-environment
|
|
resolve-identifier
|
|
locally-bound-identifiers
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
set-syntax-object-module!
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-module
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda-case
|
|
build-case-lambda
|
|
build-simple-lambda
|
|
build-global-definition
|
|
build-global-assignment
|
|
build-global-reference
|
|
analyze-variable
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-dynlet
|
|
build-conditional
|
|
build-application
|
|
build-void
|
|
maybe-name-value!
|
|
decorate-source
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
session-id
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
set-lambda-meta!
|
|
lambda-meta
|
|
lambda?
|
|
make-dynlet
|
|
make-letrec
|
|
make-let
|
|
make-lambda-case
|
|
make-lambda
|
|
make-sequence
|
|
make-application
|
|
make-conditional
|
|
make-toplevel-define
|
|
make-toplevel-set
|
|
make-toplevel-ref
|
|
make-module-set
|
|
make-module-ref
|
|
make-lexical-set
|
|
make-lexical-ref
|
|
make-primitive-ref
|
|
make-const
|
|
make-void)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("l-*-2527"
|
|
"l-*-2525"
|
|
"l-*-2523"
|
|
"l-*-2521"
|
|
"l-*-2519"
|
|
"l-*-2517"
|
|
"l-*-2515"
|
|
"l-*-2513"
|
|
"l-*-2511"
|
|
"l-*-2509"
|
|
"l-*-2507"
|
|
"l-*-2505"
|
|
"l-*-2503"
|
|
"l-*-2501"
|
|
"l-*-2499"
|
|
"l-*-2497"
|
|
"l-*-2495"
|
|
"l-*-2493"
|
|
"l-*-2491"
|
|
"l-*-2489"
|
|
"l-*-2487"
|
|
"l-*-2485"
|
|
"l-*-2483"
|
|
"l-*-2481"
|
|
"l-*-2479"
|
|
"l-*-2477"
|
|
"l-*-2475"
|
|
"l-*-2473"
|
|
"l-*-2471"
|
|
"l-*-2469"
|
|
"l-*-2467"
|
|
"l-*-2465"
|
|
"l-*-2463"
|
|
"l-*-2461"
|
|
"l-*-2459"
|
|
"l-*-2457"
|
|
"l-*-2455"
|
|
"l-*-2453"
|
|
"l-*-2451"
|
|
"l-*-2450"
|
|
"l-*-2448"
|
|
"l-*-2445"
|
|
"l-*-2444"
|
|
"l-*-2443"
|
|
"l-*-2441"
|
|
"l-*-2440"
|
|
"l-*-2438"
|
|
"l-*-2436"
|
|
"l-*-2434"
|
|
"l-*-2432"
|
|
"l-*-2430"
|
|
"l-*-2428"
|
|
"l-*-2426"
|
|
"l-*-2424"
|
|
"l-*-2421"
|
|
"l-*-2419"
|
|
"l-*-2418"
|
|
"l-*-2416"
|
|
"l-*-2414"
|
|
"l-*-2412"
|
|
"l-*-2410"
|
|
"l-*-2409"
|
|
"l-*-2408"
|
|
"l-*-2407"
|
|
"l-*-2405"
|
|
"l-*-2404"
|
|
"l-*-2401"
|
|
"l-*-2399"
|
|
"l-*-2397"
|
|
"l-*-2395"
|
|
"l-*-2393"
|
|
"l-*-2391"
|
|
"l-*-2389"
|
|
"l-*-2388"
|
|
"l-*-2387"
|
|
"l-*-2385"
|
|
"l-*-2383"
|
|
"l-*-2382"
|
|
"l-*-2379"
|
|
"l-*-2378"
|
|
"l-*-2376"
|
|
"l-*-2374"
|
|
"l-*-2372"
|
|
"l-*-2370"
|
|
"l-*-2368"
|
|
"l-*-2366"
|
|
"l-*-2364"
|
|
"l-*-2362"
|
|
"l-*-2360"
|
|
"l-*-2357"
|
|
"l-*-2355"
|
|
"l-*-2353"
|
|
"l-*-2351"
|
|
"l-*-2349"
|
|
"l-*-2347"
|
|
"l-*-2345"
|
|
"l-*-2343"
|
|
"l-*-2341"
|
|
"l-*-2339"
|
|
"l-*-2337"
|
|
"l-*-2335"
|
|
"l-*-2333"
|
|
"l-*-2331"
|
|
"l-*-2329"
|
|
"l-*-2327"
|
|
"l-*-2325"
|
|
"l-*-2323"
|
|
"l-*-2321"
|
|
"l-*-2319"
|
|
"l-*-2317"
|
|
"l-*-2315"
|
|
"l-*-2313"
|
|
"l-*-2311"
|
|
"l-*-2309"
|
|
"l-*-2307"
|
|
"l-*-2306"
|
|
"l-*-2305"
|
|
"l-*-2304"
|
|
"l-*-2303"
|
|
"l-*-2301"
|
|
"l-*-2299"
|
|
"l-*-2297"
|
|
"l-*-2294"
|
|
"l-*-2292"
|
|
"l-*-2290"
|
|
"l-*-2288"
|
|
"l-*-2286"
|
|
"l-*-2284"
|
|
"l-*-2282"
|
|
"l-*-2280"
|
|
"l-*-2278"
|
|
"l-*-2276"
|
|
"l-*-2274"
|
|
"l-*-2272"
|
|
"l-*-2270"
|
|
"l-*-2268"
|
|
"l-*-2266"
|
|
"l-*-2264"
|
|
"l-*-2262"
|
|
"l-*-2260"))
|
|
#(ribcage
|
|
(define-structure
|
|
define-expansion-accessors
|
|
define-expansion-constructors)
|
|
((top)
|
|
(top)
|
|
(top))
|
|
("l-*-2098"
|
|
"l-*-2097"
|
|
"l-*-2096")))
|
|
(hygiene guile))
|
|
#(syntax-object
|
|
#f
|
|
((top)
|
|
#(ribcage
|
|
#(name)
|
|
#((top))
|
|
#("l-*-4022"))
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(ftype
|
|
fval
|
|
fform
|
|
fe
|
|
fw
|
|
fs
|
|
fmod)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("l-*-3961"
|
|
"l-*-3962"
|
|
"l-*-3963"
|
|
"l-*-3964"
|
|
"l-*-3965"
|
|
"l-*-3966"
|
|
"l-*-3967"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(first)
|
|
#((top))
|
|
#("l-*-3952"))
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(e
|
|
r
|
|
w
|
|
s
|
|
rib
|
|
mod
|
|
for-car?)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("l-*-3924"
|
|
"l-*-3925"
|
|
"l-*-3926"
|
|
"l-*-3927"
|
|
"l-*-3928"
|
|
"l-*-3929"
|
|
"l-*-3930"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
expand-lambda-case
|
|
lambda*-formals
|
|
expand-simple-lambda
|
|
lambda-formals
|
|
ellipsis?
|
|
expand-void
|
|
eval-local-transformer
|
|
expand-local-syntax
|
|
expand-body
|
|
expand-macro
|
|
expand-application
|
|
expand-expr
|
|
expand
|
|
syntax-type
|
|
parse-when-list
|
|
expand-install-global
|
|
expand-top-sequence
|
|
expand-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
with-transformer-environment
|
|
transformer-environment
|
|
resolve-identifier
|
|
locally-bound-identifiers
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
set-syntax-object-module!
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-module
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda-case
|
|
build-case-lambda
|
|
build-simple-lambda
|
|
build-global-definition
|
|
build-global-assignment
|
|
build-global-reference
|
|
analyze-variable
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-dynlet
|
|
build-conditional
|
|
build-application
|
|
build-void
|
|
maybe-name-value!
|
|
decorate-source
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
session-id
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
set-lambda-meta!
|
|
lambda-meta
|
|
lambda?
|
|
make-dynlet
|
|
make-letrec
|
|
make-let
|
|
make-lambda-case
|
|
make-lambda
|
|
make-sequence
|
|
make-application
|
|
make-conditional
|
|
make-toplevel-define
|
|
make-toplevel-set
|
|
make-toplevel-ref
|
|
make-module-set
|
|
make-module-ref
|
|
make-lexical-set
|
|
make-lexical-ref
|
|
make-primitive-ref
|
|
make-const
|
|
make-void)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("l-*-2527"
|
|
"l-*-2525"
|
|
"l-*-2523"
|
|
"l-*-2521"
|
|
"l-*-2519"
|
|
"l-*-2517"
|
|
"l-*-2515"
|
|
"l-*-2513"
|
|
"l-*-2511"
|
|
"l-*-2509"
|
|
"l-*-2507"
|
|
"l-*-2505"
|
|
"l-*-2503"
|
|
"l-*-2501"
|
|
"l-*-2499"
|
|
"l-*-2497"
|
|
"l-*-2495"
|
|
"l-*-2493"
|
|
"l-*-2491"
|
|
"l-*-2489"
|
|
"l-*-2487"
|
|
"l-*-2485"
|
|
"l-*-2483"
|
|
"l-*-2481"
|
|
"l-*-2479"
|
|
"l-*-2477"
|
|
"l-*-2475"
|
|
"l-*-2473"
|
|
"l-*-2471"
|
|
"l-*-2469"
|
|
"l-*-2467"
|
|
"l-*-2465"
|
|
"l-*-2463"
|
|
"l-*-2461"
|
|
"l-*-2459"
|
|
"l-*-2457"
|
|
"l-*-2455"
|
|
"l-*-2453"
|
|
"l-*-2451"
|
|
"l-*-2450"
|
|
"l-*-2448"
|
|
"l-*-2445"
|
|
"l-*-2444"
|
|
"l-*-2443"
|
|
"l-*-2441"
|
|
"l-*-2440"
|
|
"l-*-2438"
|
|
"l-*-2436"
|
|
"l-*-2434"
|
|
"l-*-2432"
|
|
"l-*-2430"
|
|
"l-*-2428"
|
|
"l-*-2426"
|
|
"l-*-2424"
|
|
"l-*-2421"
|
|
"l-*-2419"
|
|
"l-*-2418"
|
|
"l-*-2416"
|
|
"l-*-2414"
|
|
"l-*-2412"
|
|
"l-*-2410"
|
|
"l-*-2409"
|
|
"l-*-2408"
|
|
"l-*-2407"
|
|
"l-*-2405"
|
|
"l-*-2404"
|
|
"l-*-2401"
|
|
"l-*-2399"
|
|
"l-*-2397"
|
|
"l-*-2395"
|
|
"l-*-2393"
|
|
"l-*-2391"
|
|
"l-*-2389"
|
|
"l-*-2388"
|
|
"l-*-2387"
|
|
"l-*-2385"
|
|
"l-*-2383"
|
|
"l-*-2382"
|
|
"l-*-2379"
|
|
"l-*-2378"
|
|
"l-*-2376"
|
|
"l-*-2374"
|
|
"l-*-2372"
|
|
"l-*-2370"
|
|
"l-*-2368"
|
|
"l-*-2366"
|
|
"l-*-2364"
|
|
"l-*-2362"
|
|
"l-*-2360"
|
|
"l-*-2357"
|
|
"l-*-2355"
|
|
"l-*-2353"
|
|
"l-*-2351"
|
|
"l-*-2349"
|
|
"l-*-2347"
|
|
"l-*-2345"
|
|
"l-*-2343"
|
|
"l-*-2341"
|
|
"l-*-2339"
|
|
"l-*-2337"
|
|
"l-*-2335"
|
|
"l-*-2333"
|
|
"l-*-2331"
|
|
"l-*-2329"
|
|
"l-*-2327"
|
|
"l-*-2325"
|
|
"l-*-2323"
|
|
"l-*-2321"
|
|
"l-*-2319"
|
|
"l-*-2317"
|
|
"l-*-2315"
|
|
"l-*-2313"
|
|
"l-*-2311"
|
|
"l-*-2309"
|
|
"l-*-2307"
|
|
"l-*-2306"
|
|
"l-*-2305"
|
|
"l-*-2304"
|
|
"l-*-2303"
|
|
"l-*-2301"
|
|
"l-*-2299"
|
|
"l-*-2297"
|
|
"l-*-2294"
|
|
"l-*-2292"
|
|
"l-*-2290"
|
|
"l-*-2288"
|
|
"l-*-2286"
|
|
"l-*-2284"
|
|
"l-*-2282"
|
|
"l-*-2280"
|
|
"l-*-2278"
|
|
"l-*-2276"
|
|
"l-*-2274"
|
|
"l-*-2272"
|
|
"l-*-2270"
|
|
"l-*-2268"
|
|
"l-*-2266"
|
|
"l-*-2264"
|
|
"l-*-2262"
|
|
"l-*-2260"))
|
|
#(ribcage
|
|
(define-structure
|
|
define-expansion-accessors
|
|
define-expansion-constructors)
|
|
((top)
|
|
(top)
|
|
(top))
|
|
("l-*-2098"
|
|
"l-*-2097"
|
|
"l-*-2096")))
|
|
(hygiene guile))
|
|
#(syntax-object
|
|
#f
|
|
((top)
|
|
#(ribcage
|
|
#(name)
|
|
#((top))
|
|
#("l-*-4022"))
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(ftype
|
|
fval
|
|
fform
|
|
fe
|
|
fw
|
|
fs
|
|
fmod)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("l-*-3961"
|
|
"l-*-3962"
|
|
"l-*-3963"
|
|
"l-*-3964"
|
|
"l-*-3965"
|
|
"l-*-3966"
|
|
"l-*-3967"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(first)
|
|
#((top))
|
|
#("l-*-3952"))
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(e
|
|
r
|
|
w
|
|
s
|
|
rib
|
|
mod
|
|
for-car?)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("l-*-3924"
|
|
"l-*-3925"
|
|
"l-*-3926"
|
|
"l-*-3927"
|
|
"l-*-3928"
|
|
"l-*-3929"
|
|
"l-*-3930"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
expand-lambda-case
|
|
lambda*-formals
|
|
expand-simple-lambda
|
|
lambda-formals
|
|
ellipsis?
|
|
expand-void
|
|
eval-local-transformer
|
|
expand-local-syntax
|
|
expand-body
|
|
expand-macro
|
|
expand-application
|
|
expand-expr
|
|
expand
|
|
syntax-type
|
|
parse-when-list
|
|
expand-install-global
|
|
expand-top-sequence
|
|
expand-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
with-transformer-environment
|
|
transformer-environment
|
|
resolve-identifier
|
|
locally-bound-identifiers
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
set-syntax-object-module!
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-module
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda-case
|
|
build-case-lambda
|
|
build-simple-lambda
|
|
build-global-definition
|
|
build-global-assignment
|
|
build-global-reference
|
|
analyze-variable
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-dynlet
|
|
build-conditional
|
|
build-application
|
|
build-void
|
|
maybe-name-value!
|
|
decorate-source
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
session-id
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
set-lambda-meta!
|
|
lambda-meta
|
|
lambda?
|
|
make-dynlet
|
|
make-letrec
|
|
make-let
|
|
make-lambda-case
|
|
make-lambda
|
|
make-sequence
|
|
make-application
|
|
make-conditional
|
|
make-toplevel-define
|
|
make-toplevel-set
|
|
make-toplevel-ref
|
|
make-module-set
|
|
make-module-ref
|
|
make-lexical-set
|
|
make-lexical-ref
|
|
make-primitive-ref
|
|
make-const
|
|
make-void)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("l-*-2527"
|
|
"l-*-2525"
|
|
"l-*-2523"
|
|
"l-*-2521"
|
|
"l-*-2519"
|
|
"l-*-2517"
|
|
"l-*-2515"
|
|
"l-*-2513"
|
|
"l-*-2511"
|
|
"l-*-2509"
|
|
"l-*-2507"
|
|
"l-*-2505"
|
|
"l-*-2503"
|
|
"l-*-2501"
|
|
"l-*-2499"
|
|
"l-*-2497"
|
|
"l-*-2495"
|
|
"l-*-2493"
|
|
"l-*-2491"
|
|
"l-*-2489"
|
|
"l-*-2487"
|
|
"l-*-2485"
|
|
"l-*-2483"
|
|
"l-*-2481"
|
|
"l-*-2479"
|
|
"l-*-2477"
|
|
"l-*-2475"
|
|
"l-*-2473"
|
|
"l-*-2471"
|
|
"l-*-2469"
|
|
"l-*-2467"
|
|
"l-*-2465"
|
|
"l-*-2463"
|
|
"l-*-2461"
|
|
"l-*-2459"
|
|
"l-*-2457"
|
|
"l-*-2455"
|
|
"l-*-2453"
|
|
"l-*-2451"
|
|
"l-*-2450"
|
|
"l-*-2448"
|
|
"l-*-2445"
|
|
"l-*-2444"
|
|
"l-*-2443"
|
|
"l-*-2441"
|
|
"l-*-2440"
|
|
"l-*-2438"
|
|
"l-*-2436"
|
|
"l-*-2434"
|
|
"l-*-2432"
|
|
"l-*-2430"
|
|
"l-*-2428"
|
|
"l-*-2426"
|
|
"l-*-2424"
|
|
"l-*-2421"
|
|
"l-*-2419"
|
|
"l-*-2418"
|
|
"l-*-2416"
|
|
"l-*-2414"
|
|
"l-*-2412"
|
|
"l-*-2410"
|
|
"l-*-2409"
|
|
"l-*-2408"
|
|
"l-*-2407"
|
|
"l-*-2405"
|
|
"l-*-2404"
|
|
"l-*-2401"
|
|
"l-*-2399"
|
|
"l-*-2397"
|
|
"l-*-2395"
|
|
"l-*-2393"
|
|
"l-*-2391"
|
|
"l-*-2389"
|
|
"l-*-2388"
|
|
"l-*-2387"
|
|
"l-*-2385"
|
|
"l-*-2383"
|
|
"l-*-2382"
|
|
"l-*-2379"
|
|
"l-*-2378"
|
|
"l-*-2376"
|
|
"l-*-2374"
|
|
"l-*-2372"
|
|
"l-*-2370"
|
|
"l-*-2368"
|
|
"l-*-2366"
|
|
"l-*-2364"
|
|
"l-*-2362"
|
|
"l-*-2360"
|
|
"l-*-2357"
|
|
"l-*-2355"
|
|
"l-*-2353"
|
|
"l-*-2351"
|
|
"l-*-2349"
|
|
"l-*-2347"
|
|
"l-*-2345"
|
|
"l-*-2343"
|
|
"l-*-2341"
|
|
"l-*-2339"
|
|
"l-*-2337"
|
|
"l-*-2335"
|
|
"l-*-2333"
|
|
"l-*-2331"
|
|
"l-*-2329"
|
|
"l-*-2327"
|
|
"l-*-2325"
|
|
"l-*-2323"
|
|
"l-*-2321"
|
|
"l-*-2319"
|
|
"l-*-2317"
|
|
"l-*-2315"
|
|
"l-*-2313"
|
|
"l-*-2311"
|
|
"l-*-2309"
|
|
"l-*-2307"
|
|
"l-*-2306"
|
|
"l-*-2305"
|
|
"l-*-2304"
|
|
"l-*-2303"
|
|
"l-*-2301"
|
|
"l-*-2299"
|
|
"l-*-2297"
|
|
"l-*-2294"
|
|
"l-*-2292"
|
|
"l-*-2290"
|
|
"l-*-2288"
|
|
"l-*-2286"
|
|
"l-*-2284"
|
|
"l-*-2282"
|
|
"l-*-2280"
|
|
"l-*-2278"
|
|
"l-*-2276"
|
|
"l-*-2274"
|
|
"l-*-2272"
|
|
"l-*-2270"
|
|
"l-*-2268"
|
|
"l-*-2266"
|
|
"l-*-2264"
|
|
"l-*-2262"
|
|
"l-*-2260"))
|
|
#(ribcage
|
|
(define-structure
|
|
define-expansion-accessors
|
|
define-expansion-constructors)
|
|
((top)
|
|
(top)
|
|
(top))
|
|
("l-*-2098"
|
|
"l-*-2097"
|
|
"l-*-2096")))
|
|
(hygiene guile)))
|
|
'(())
|
|
s-22821
|
|
mod-22823))
|
|
tmp-23166)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
e-22818)))))))
|
|
(if (eqv? ftype-22862 'define-syntax)
|
|
(let ((tmp-23218
|
|
($sc-dispatch
|
|
e-22818
|
|
'(_ any any))))
|
|
(if (if tmp-23218
|
|
(@apply
|
|
(lambda (name-23222 val-23223)
|
|
(if (symbol? name-23222)
|
|
#t
|
|
(if (if (vector?
|
|
name-23222)
|
|
(if (= (vector-length
|
|
name-23222)
|
|
4)
|
|
(eq? (vector-ref
|
|
name-23222
|
|
0)
|
|
'syntax-object)
|
|
#f)
|
|
#f)
|
|
(symbol?
|
|
(vector-ref
|
|
name-23222
|
|
1))
|
|
#f)))
|
|
tmp-23218)
|
|
#f)
|
|
(@apply
|
|
(lambda (name-23250 val-23251)
|
|
(values
|
|
'define-syntax-form
|
|
name-23250
|
|
e-22818
|
|
val-23251
|
|
w-22820
|
|
s-22821
|
|
mod-22823))
|
|
tmp-23218)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
e-22818)))
|
|
(if (eqv? ftype-22862
|
|
'define-syntax-parameter)
|
|
(let ((tmp-23262
|
|
($sc-dispatch
|
|
e-22818
|
|
'(_ any any))))
|
|
(if (if tmp-23262
|
|
(@apply
|
|
(lambda (name-23266
|
|
val-23267)
|
|
(if (symbol? name-23266)
|
|
#t
|
|
(if (if (vector?
|
|
name-23266)
|
|
(if (= (vector-length
|
|
name-23266)
|
|
4)
|
|
(eq? (vector-ref
|
|
name-23266
|
|
0)
|
|
'syntax-object)
|
|
#f)
|
|
#f)
|
|
(symbol?
|
|
(vector-ref
|
|
name-23266
|
|
1))
|
|
#f)))
|
|
tmp-23262)
|
|
#f)
|
|
(@apply
|
|
(lambda (name-23294 val-23295)
|
|
(values
|
|
'define-syntax-parameter-form
|
|
name-23294
|
|
e-22818
|
|
val-23295
|
|
w-22820
|
|
s-22821
|
|
mod-22823))
|
|
tmp-23262)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
e-22818)))
|
|
(values
|
|
'call
|
|
#f
|
|
e-22818
|
|
e-22818
|
|
w-22820
|
|
s-22821
|
|
mod-22823)))))))))))))))
|
|
(if (if (vector? e-22818)
|
|
(if (= (vector-length e-22818) 4)
|
|
(eq? (vector-ref e-22818 0) 'syntax-object)
|
|
#f)
|
|
#f)
|
|
(syntax-type-6584
|
|
(vector-ref e-22818 1)
|
|
r-22819
|
|
(join-wraps-6565 w-22820 (vector-ref e-22818 2))
|
|
(let ((t-23322 (source-annotation-6542 e-22818)))
|
|
(if t-23322 t-23322 s-22821))
|
|
rib-22822
|
|
(let ((t-23557 (vector-ref e-22818 3)))
|
|
(if t-23557 t-23557 mod-22823))
|
|
for-car?-22824)
|
|
(if (self-evaluating? e-22818)
|
|
(values
|
|
'constant
|
|
#f
|
|
e-22818
|
|
e-22818
|
|
w-22820
|
|
s-22821
|
|
mod-22823)
|
|
(values
|
|
'other
|
|
#f
|
|
e-22818
|
|
e-22818
|
|
w-22820
|
|
s-22821
|
|
mod-22823)))))))
|
|
(expand-6585
|
|
(lambda (e-23566 r-23567 w-23568 mod-23569)
|
|
(call-with-values
|
|
(lambda ()
|
|
(syntax-type-6584
|
|
e-23566
|
|
r-23567
|
|
w-23568
|
|
(source-annotation-6542 e-23566)
|
|
#f
|
|
mod-23569
|
|
#f))
|
|
(lambda (type-23724
|
|
value-23725
|
|
form-23726
|
|
e-23727
|
|
w-23728
|
|
s-23729
|
|
mod-23730)
|
|
(expand-expr-6586
|
|
type-23724
|
|
value-23725
|
|
form-23726
|
|
e-23727
|
|
r-23567
|
|
w-23728
|
|
s-23729
|
|
mod-23730)))))
|
|
(expand-expr-6586
|
|
(lambda (type-23733
|
|
value-23734
|
|
form-23735
|
|
e-23736
|
|
r-23737
|
|
w-23738
|
|
s-23739
|
|
mod-23740)
|
|
(if (eqv? type-23733 'lexical)
|
|
(make-struct/no-tail
|
|
(vector-ref %expanded-vtables 3)
|
|
s-23739
|
|
e-23736
|
|
value-23734)
|
|
(if (if (eqv? type-23733 'core)
|
|
#t
|
|
(eqv? type-23733 'core-form))
|
|
(value-23734
|
|
e-23736
|
|
r-23737
|
|
w-23738
|
|
s-23739
|
|
mod-23740)
|
|
(if (eqv? type-23733 'module-ref)
|
|
(call-with-values
|
|
(lambda () (value-23734 e-23736 r-23737 w-23738))
|
|
(lambda (e-23766 r-23767 w-23768 s-23769 mod-23770)
|
|
(expand-6585 e-23766 r-23767 w-23768 mod-23770)))
|
|
(if (eqv? type-23733 'lexical-call)
|
|
(expand-application-6587
|
|
(let ((id-23845 (car e-23736)))
|
|
(build-lexical-reference-6519
|
|
'fun
|
|
(source-annotation-6542 id-23845)
|
|
(if (if (vector? id-23845)
|
|
(if (= (vector-length id-23845) 4)
|
|
(eq? (vector-ref id-23845 0) 'syntax-object)
|
|
#f)
|
|
#f)
|
|
(syntax->datum id-23845)
|
|
id-23845)
|
|
value-23734))
|
|
e-23736
|
|
r-23737
|
|
w-23738
|
|
s-23739
|
|
mod-23740)
|
|
(if (eqv? type-23733 'global-call)
|
|
(expand-application-6587
|
|
(build-global-reference-6522
|
|
(source-annotation-6542 (car e-23736))
|
|
(if (if (vector? value-23734)
|
|
(if (= (vector-length value-23734) 4)
|
|
(eq? (vector-ref value-23734 0) 'syntax-object)
|
|
#f)
|
|
#f)
|
|
(vector-ref value-23734 1)
|
|
value-23734)
|
|
(if (if (vector? value-23734)
|
|
(if (= (vector-length value-23734) 4)
|
|
(eq? (vector-ref value-23734 0) 'syntax-object)
|
|
#f)
|
|
#f)
|
|
(vector-ref value-23734 3)
|
|
mod-23740))
|
|
e-23736
|
|
r-23737
|
|
w-23738
|
|
s-23739
|
|
mod-23740)
|
|
(if (eqv? type-23733 'constant)
|
|
(let ((exp-24182
|
|
(strip-6598
|
|
(wrap-6578
|
|
(begin
|
|
(if (if (pair? e-23736) s-23739 #f)
|
|
(set-source-properties! e-23736 s-23739))
|
|
e-23736)
|
|
w-23738
|
|
mod-23740)
|
|
'(()))))
|
|
(make-struct/no-tail
|
|
(vector-ref %expanded-vtables 1)
|
|
s-23739
|
|
exp-24182))
|
|
(if (eqv? type-23733 'global)
|
|
(analyze-variable-6521
|
|
mod-23740
|
|
value-23734
|
|
(lambda (mod-24218 var-24219 public?-24220)
|
|
(make-struct/no-tail
|
|
(vector-ref %expanded-vtables 5)
|
|
s-23739
|
|
mod-24218
|
|
var-24219
|
|
public?-24220))
|
|
(lambda (var-24229)
|
|
(make-struct/no-tail
|
|
(vector-ref %expanded-vtables 7)
|
|
s-23739
|
|
var-24229)))
|
|
(if (eqv? type-23733 'call)
|
|
(expand-application-6587
|
|
(expand-6585
|
|
(car e-23736)
|
|
r-23737
|
|
w-23738
|
|
mod-23740)
|
|
e-23736
|
|
r-23737
|
|
w-23738
|
|
s-23739
|
|
mod-23740)
|
|
(if (eqv? type-23733 'begin-form)
|
|
(let ((tmp-24304
|
|
($sc-dispatch e-23736 '(_ any . each-any))))
|
|
(if tmp-24304
|
|
(@apply
|
|
(lambda (e1-24308 e2-24309)
|
|
(expand-sequence-6580
|
|
(cons e1-24308 e2-24309)
|
|
r-23737
|
|
w-23738
|
|
s-23739
|
|
mod-23740))
|
|
tmp-24304)
|
|
(let ((tmp-24396 ($sc-dispatch e-23736 '(_))))
|
|
(if tmp-24396
|
|
(@apply
|
|
(lambda ()
|
|
(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-6578
|
|
(begin
|
|
(if (if (pair? e-23736)
|
|
s-23739
|
|
#f)
|
|
(set-source-properties!
|
|
e-23736
|
|
s-23739))
|
|
e-23736)
|
|
w-23738
|
|
mod-23740))))
|
|
tmp-24396)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
e-23736)))))
|
|
(if (eqv? type-23733 'local-syntax-form)
|
|
(expand-local-syntax-6590
|
|
value-23734
|
|
e-23736
|
|
r-23737
|
|
w-23738
|
|
s-23739
|
|
mod-23740
|
|
expand-sequence-6580)
|
|
(if (eqv? type-23733 'eval-when-form)
|
|
(let ((tmp-24507
|
|
($sc-dispatch
|
|
e-23736
|
|
'(_ each-any any . each-any))))
|
|
(if tmp-24507
|
|
(@apply
|
|
(lambda (x-24511 e1-24512 e2-24513)
|
|
(let ((when-list-24514
|
|
(parse-when-list-6583
|
|
e-23736
|
|
x-24511)))
|
|
(if (memq 'eval when-list-24514)
|
|
(expand-sequence-6580
|
|
(cons e1-24512 e2-24513)
|
|
r-23737
|
|
w-23738
|
|
s-23739
|
|
mod-23740)
|
|
(make-struct/no-tail
|
|
(vector-ref %expanded-vtables 0)
|
|
#f))))
|
|
tmp-24507)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
e-23736)))
|
|
(if (if (eqv? type-23733 'define-form)
|
|
#t
|
|
(if (eqv? type-23733 'define-syntax-form)
|
|
#t
|
|
(eqv? type-23733
|
|
'define-syntax-parameter-form)))
|
|
(syntax-violation
|
|
#f
|
|
"definition in expression context, where definitions are not allowed,"
|
|
(wrap-6578
|
|
(begin
|
|
(if (if (pair? form-23735) s-23739 #f)
|
|
(set-source-properties!
|
|
form-23735
|
|
s-23739))
|
|
form-23735)
|
|
w-23738
|
|
mod-23740))
|
|
(if (eqv? type-23733 'syntax)
|
|
(syntax-violation
|
|
#f
|
|
"reference to pattern variable outside syntax form"
|
|
(wrap-6578
|
|
(begin
|
|
(if (if (pair? e-23736) s-23739 #f)
|
|
(set-source-properties!
|
|
e-23736
|
|
s-23739))
|
|
e-23736)
|
|
w-23738
|
|
mod-23740))
|
|
(if (eqv? type-23733 'displaced-lexical)
|
|
(syntax-violation
|
|
#f
|
|
"reference to identifier outside its scope"
|
|
(wrap-6578
|
|
(begin
|
|
(if (if (pair? e-23736) s-23739 #f)
|
|
(set-source-properties!
|
|
e-23736
|
|
s-23739))
|
|
e-23736)
|
|
w-23738
|
|
mod-23740))
|
|
(syntax-violation
|
|
#f
|
|
"unexpected syntax"
|
|
(wrap-6578
|
|
(begin
|
|
(if (if (pair? e-23736) s-23739 #f)
|
|
(set-source-properties!
|
|
e-23736
|
|
s-23739))
|
|
e-23736)
|
|
w-23738
|
|
mod-23740))))))))))))))))))
|
|
(expand-application-6587
|
|
(lambda (x-24774
|
|
e-24775
|
|
r-24776
|
|
w-24777
|
|
s-24778
|
|
mod-24779)
|
|
(let ((tmp-24781
|
|
($sc-dispatch e-24775 '(any . each-any))))
|
|
(if tmp-24781
|
|
(@apply
|
|
(lambda (e0-24785 e1-24786)
|
|
(build-application-6516
|
|
s-24778
|
|
x-24774
|
|
(map (lambda (e-24866)
|
|
(expand-6585 e-24866 r-24776 w-24777 mod-24779))
|
|
e1-24786)))
|
|
tmp-24781)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
e-24775)))))
|
|
(expand-macro-6588
|
|
(lambda (p-24942
|
|
e-24943
|
|
r-24944
|
|
w-24945
|
|
s-24946
|
|
rib-24947
|
|
mod-24948)
|
|
(letrec*
|
|
((rebuild-macro-output-24949
|
|
(lambda (x-24982 m-24983)
|
|
(if (pair? x-24982)
|
|
(let ((e-24987
|
|
(cons (rebuild-macro-output-24949
|
|
(car x-24982)
|
|
m-24983)
|
|
(rebuild-macro-output-24949
|
|
(cdr x-24982)
|
|
m-24983))))
|
|
(begin
|
|
(if (if (pair? e-24987) s-24946 #f)
|
|
(set-source-properties! e-24987 s-24946))
|
|
e-24987))
|
|
(if (if (vector? x-24982)
|
|
(if (= (vector-length x-24982) 4)
|
|
(eq? (vector-ref x-24982 0) 'syntax-object)
|
|
#f)
|
|
#f)
|
|
(let ((w-25003 (vector-ref x-24982 2)))
|
|
(let ((ms-25004 (car w-25003))
|
|
(s-25005 (cdr w-25003)))
|
|
(if (if (pair? ms-25004) (eq? (car ms-25004) #f) #f)
|
|
(let ((expression-25013 (vector-ref x-24982 1))
|
|
(wrap-25014
|
|
(cons (cdr ms-25004)
|
|
(if rib-24947
|
|
(cons rib-24947 (cdr s-25005))
|
|
(cdr s-25005))))
|
|
(module-25015 (vector-ref x-24982 3)))
|
|
(vector
|
|
'syntax-object
|
|
expression-25013
|
|
wrap-25014
|
|
module-25015))
|
|
(let ((expression-25025
|
|
(let ((e-25030 (vector-ref x-24982 1)))
|
|
(begin
|
|
(if (if (pair? e-25030) s-25005 #f)
|
|
(set-source-properties!
|
|
e-25030
|
|
s-25005))
|
|
e-25030)))
|
|
(wrap-25026
|
|
(cons (cons m-24983 ms-25004)
|
|
(if rib-24947
|
|
(cons rib-24947
|
|
(cons 'shift s-25005))
|
|
(cons 'shift s-25005))))
|
|
(module-25027 (vector-ref x-24982 3)))
|
|
(vector
|
|
'syntax-object
|
|
expression-25025
|
|
wrap-25026
|
|
module-25027)))))
|
|
(if (vector? x-24982)
|
|
(let ((n-25042 (vector-length x-24982)))
|
|
(let ((v-25043
|
|
(let ((e-25051 (make-vector n-25042)))
|
|
(begin
|
|
(if (if (pair? e-25051) x-24982 #f)
|
|
(set-source-properties! e-25051 x-24982))
|
|
e-25051))))
|
|
(letrec*
|
|
((loop-25044
|
|
(lambda (i-25096)
|
|
(if (= i-25096 n-25042)
|
|
v-25043
|
|
(begin
|
|
(vector-set!
|
|
v-25043
|
|
i-25096
|
|
(rebuild-macro-output-24949
|
|
(vector-ref x-24982 i-25096)
|
|
m-24983))
|
|
(loop-25044 (#{1+}# i-25096)))))))
|
|
(loop-25044 0))))
|
|
(if (symbol? x-24982)
|
|
(syntax-violation
|
|
#f
|
|
"encountered raw symbol in macro output"
|
|
(let ((s-25102 (cdr w-24945)))
|
|
(wrap-6578
|
|
(begin
|
|
(if (if (pair? e-24943) s-25102 #f)
|
|
(set-source-properties! e-24943 s-25102))
|
|
e-24943)
|
|
w-24945
|
|
mod-24948))
|
|
x-24982)
|
|
(begin
|
|
(if (if (pair? x-24982) s-24946 #f)
|
|
(set-source-properties! x-24982 s-24946))
|
|
x-24982))))))))
|
|
(with-fluids
|
|
((transformer-environment-6571
|
|
(lambda (k-24950)
|
|
(k-24950
|
|
e-24943
|
|
r-24944
|
|
w-24945
|
|
s-24946
|
|
rib-24947
|
|
mod-24948))))
|
|
(rebuild-macro-output-24949
|
|
(p-24942
|
|
(let ((w-24957
|
|
(cons (cons #f (car w-24945))
|
|
(cons 'shift (cdr w-24945)))))
|
|
(wrap-6578
|
|
(begin
|
|
(if (if (pair? e-24943) s-24946 #f)
|
|
(set-source-properties! e-24943 s-24946))
|
|
e-24943)
|
|
w-24957
|
|
mod-24948)))
|
|
(gensym
|
|
(string-append "m-" (session-id-6510) "-")))))))
|
|
(expand-body-6589
|
|
(lambda (body-25134
|
|
outer-form-25135
|
|
r-25136
|
|
w-25137
|
|
mod-25138)
|
|
(let ((r-25139
|
|
(cons '("placeholder" placeholder) r-25136)))
|
|
(let ((ribcage-25140 (vector 'ribcage '() '() '())))
|
|
(let ((w-25141
|
|
(cons (car w-25137)
|
|
(cons ribcage-25140 (cdr w-25137)))))
|
|
(letrec*
|
|
((parse-25142
|
|
(lambda (body-25155
|
|
ids-25156
|
|
labels-25157
|
|
var-ids-25158
|
|
vars-25159
|
|
vals-25160
|
|
bindings-25161)
|
|
(if (null? body-25155)
|
|
(syntax-violation
|
|
#f
|
|
"no expressions in body"
|
|
outer-form-25135)
|
|
(let ((e-25162 (cdr (car body-25155)))
|
|
(er-25163 (car (car body-25155))))
|
|
(call-with-values
|
|
(lambda ()
|
|
(syntax-type-6584
|
|
e-25162
|
|
er-25163
|
|
'(())
|
|
(source-annotation-6542 er-25163)
|
|
ribcage-25140
|
|
mod-25138
|
|
#f))
|
|
(lambda (type-25320
|
|
value-25321
|
|
form-25322
|
|
e-25323
|
|
w-25324
|
|
s-25325
|
|
mod-25326)
|
|
(if (eqv? type-25320 'define-form)
|
|
(let ((id-25330
|
|
(wrap-6578
|
|
value-25321
|
|
w-25324
|
|
mod-25326))
|
|
(label-25331
|
|
(string-append
|
|
"l-"
|
|
(session-id-6510)
|
|
(symbol->string (gensym "-")))))
|
|
(let ((var-25332
|
|
(let ((id-25392
|
|
(if (if (vector? id-25330)
|
|
(if (= (vector-length
|
|
id-25330)
|
|
4)
|
|
(eq? (vector-ref
|
|
id-25330
|
|
0)
|
|
'syntax-object)
|
|
#f)
|
|
#f)
|
|
(vector-ref id-25330 1)
|
|
id-25330)))
|
|
(gensym
|
|
(string-append
|
|
(symbol->string id-25392)
|
|
"-")))))
|
|
(begin
|
|
(let ((update-25382
|
|
(cons (vector-ref id-25330 1)
|
|
(vector-ref
|
|
ribcage-25140
|
|
1))))
|
|
(vector-set!
|
|
ribcage-25140
|
|
1
|
|
update-25382))
|
|
(let ((update-25384
|
|
(cons (car (vector-ref
|
|
id-25330
|
|
2))
|
|
(vector-ref
|
|
ribcage-25140
|
|
2))))
|
|
(vector-set!
|
|
ribcage-25140
|
|
2
|
|
update-25384))
|
|
(let ((update-25386
|
|
(cons label-25331
|
|
(vector-ref
|
|
ribcage-25140
|
|
3))))
|
|
(vector-set!
|
|
ribcage-25140
|
|
3
|
|
update-25386))
|
|
(parse-25142
|
|
(cdr body-25155)
|
|
(cons id-25330 ids-25156)
|
|
(cons label-25331 labels-25157)
|
|
(cons id-25330 var-ids-25158)
|
|
(cons var-25332 vars-25159)
|
|
(cons (cons er-25163
|
|
(wrap-6578
|
|
e-25323
|
|
w-25324
|
|
mod-25326))
|
|
vals-25160)
|
|
(cons (cons 'lexical var-25332)
|
|
bindings-25161)))))
|
|
(if (if (eqv? type-25320 'define-syntax-form)
|
|
#t
|
|
(eqv? type-25320
|
|
'define-syntax-parameter-form))
|
|
(let ((id-25425
|
|
(wrap-6578
|
|
value-25321
|
|
w-25324
|
|
mod-25326))
|
|
(label-25426
|
|
(string-append
|
|
"l-"
|
|
(session-id-6510)
|
|
(symbol->string (gensym "-")))))
|
|
(begin
|
|
(let ((update-25476
|
|
(cons (vector-ref id-25425 1)
|
|
(vector-ref
|
|
ribcage-25140
|
|
1))))
|
|
(vector-set!
|
|
ribcage-25140
|
|
1
|
|
update-25476))
|
|
(let ((update-25478
|
|
(cons (car (vector-ref
|
|
id-25425
|
|
2))
|
|
(vector-ref
|
|
ribcage-25140
|
|
2))))
|
|
(vector-set!
|
|
ribcage-25140
|
|
2
|
|
update-25478))
|
|
(let ((update-25480
|
|
(cons label-25426
|
|
(vector-ref
|
|
ribcage-25140
|
|
3))))
|
|
(vector-set!
|
|
ribcage-25140
|
|
3
|
|
update-25480))
|
|
(parse-25142
|
|
(cdr body-25155)
|
|
(cons id-25425 ids-25156)
|
|
(cons label-25426 labels-25157)
|
|
var-ids-25158
|
|
vars-25159
|
|
vals-25160
|
|
(cons (cons 'macro
|
|
(cons er-25163
|
|
(wrap-6578
|
|
e-25323
|
|
w-25324
|
|
mod-25326)))
|
|
bindings-25161))))
|
|
(if (eqv? type-25320 'begin-form)
|
|
(let ((tmp-25488
|
|
($sc-dispatch
|
|
e-25323
|
|
'(_ . each-any))))
|
|
(if tmp-25488
|
|
(@apply
|
|
(lambda (e1-25492)
|
|
(parse-25142
|
|
(letrec*
|
|
((f-25493
|
|
(lambda (forms-25556)
|
|
(if (null? forms-25556)
|
|
(cdr body-25155)
|
|
(cons (cons er-25163
|
|
(wrap-6578
|
|
(car forms-25556)
|
|
w-25324
|
|
mod-25326))
|
|
(f-25493
|
|
(cdr forms-25556)))))))
|
|
(f-25493 e1-25492))
|
|
ids-25156
|
|
labels-25157
|
|
var-ids-25158
|
|
vars-25159
|
|
vals-25160
|
|
bindings-25161))
|
|
tmp-25488)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
e-25323)))
|
|
(if (eqv? type-25320 'local-syntax-form)
|
|
(expand-local-syntax-6590
|
|
value-25321
|
|
e-25323
|
|
er-25163
|
|
w-25324
|
|
s-25325
|
|
mod-25326
|
|
(lambda (forms-25570
|
|
er-25571
|
|
w-25572
|
|
s-25573
|
|
mod-25574)
|
|
(parse-25142
|
|
(letrec*
|
|
((f-25575
|
|
(lambda (forms-25638)
|
|
(if (null? forms-25638)
|
|
(cdr body-25155)
|
|
(cons (cons er-25571
|
|
(wrap-6578
|
|
(car forms-25638)
|
|
w-25572
|
|
mod-25574))
|
|
(f-25575
|
|
(cdr forms-25638)))))))
|
|
(f-25575 forms-25570))
|
|
ids-25156
|
|
labels-25157
|
|
var-ids-25158
|
|
vars-25159
|
|
vals-25160
|
|
bindings-25161)))
|
|
(if (null? ids-25156)
|
|
(build-sequence-6530
|
|
#f
|
|
(map (lambda (x-25703)
|
|
(let ((e-25707 (cdr x-25703))
|
|
(r-25708 (car x-25703)))
|
|
(call-with-values
|
|
(lambda ()
|
|
(syntax-type-6584
|
|
e-25707
|
|
r-25708
|
|
'(())
|
|
(source-annotation-6542
|
|
e-25707)
|
|
#f
|
|
mod-25326
|
|
#f))
|
|
(lambda (type-25712
|
|
value-25713
|
|
form-25714
|
|
e-25715
|
|
w-25716
|
|
s-25717
|
|
mod-25718)
|
|
(expand-expr-6586
|
|
type-25712
|
|
value-25713
|
|
form-25714
|
|
e-25715
|
|
r-25708
|
|
w-25716
|
|
s-25717
|
|
mod-25718)))))
|
|
(cons (cons er-25163
|
|
(wrap-6578
|
|
(begin
|
|
(if (if (pair? e-25323)
|
|
s-25325
|
|
#f)
|
|
(set-source-properties!
|
|
e-25323
|
|
s-25325))
|
|
e-25323)
|
|
w-25324
|
|
mod-25326))
|
|
(cdr body-25155))))
|
|
(begin
|
|
(if (not (valid-bound-ids?-6575
|
|
ids-25156))
|
|
(syntax-violation
|
|
#f
|
|
"invalid or duplicate identifier in definition"
|
|
outer-form-25135))
|
|
(letrec*
|
|
((loop-25819
|
|
(lambda (bs-25822
|
|
er-cache-25823
|
|
r-cache-25824)
|
|
(if (not (null? bs-25822))
|
|
(let ((b-25825
|
|
(car bs-25822)))
|
|
(if (eq? (car b-25825)
|
|
'macro)
|
|
(let ((er-25827
|
|
(car (cdr b-25825))))
|
|
(let ((r-cache-25828
|
|
(if (eq? er-25827
|
|
er-cache-25823)
|
|
r-cache-25824
|
|
(macros-only-env-6545
|
|
er-25827))))
|
|
(begin
|
|
(set-cdr!
|
|
b-25825
|
|
(eval-local-transformer-6591
|
|
(expand-6585
|
|
(cdr (cdr b-25825))
|
|
r-cache-25828
|
|
'(())
|
|
mod-25326)
|
|
mod-25326))
|
|
(loop-25819
|
|
(cdr bs-25822)
|
|
er-25827
|
|
r-cache-25828))))
|
|
(loop-25819
|
|
(cdr bs-25822)
|
|
er-cache-25823
|
|
r-cache-25824)))))))
|
|
(loop-25819 bindings-25161 #f #f))
|
|
(set-cdr!
|
|
r-25139
|
|
(extend-env-6543
|
|
labels-25157
|
|
bindings-25161
|
|
(cdr r-25139)))
|
|
(build-letrec-6533
|
|
#f
|
|
#t
|
|
(reverse
|
|
(map syntax->datum
|
|
var-ids-25158))
|
|
(reverse vars-25159)
|
|
(map (lambda (x-26171)
|
|
(let ((e-26175
|
|
(cdr x-26171))
|
|
(r-26176
|
|
(car x-26171)))
|
|
(call-with-values
|
|
(lambda ()
|
|
(syntax-type-6584
|
|
e-26175
|
|
r-26176
|
|
'(())
|
|
(source-annotation-6542
|
|
e-26175)
|
|
#f
|
|
mod-25326
|
|
#f))
|
|
(lambda (type-26180
|
|
value-26181
|
|
form-26182
|
|
e-26183
|
|
w-26184
|
|
s-26185
|
|
mod-26186)
|
|
(expand-expr-6586
|
|
type-26180
|
|
value-26181
|
|
form-26182
|
|
e-26183
|
|
r-26176
|
|
w-26184
|
|
s-26185
|
|
mod-26186)))))
|
|
(reverse vals-25160))
|
|
(let ((exps-26192
|
|
(map (lambda (x-26193)
|
|
(let ((e-26196
|
|
(cdr x-26193))
|
|
(r-26197
|
|
(car x-26193)))
|
|
(call-with-values
|
|
(lambda ()
|
|
(syntax-type-6584
|
|
e-26196
|
|
r-26197
|
|
'(())
|
|
(source-annotation-6542
|
|
e-26196)
|
|
#f
|
|
mod-25326
|
|
#f))
|
|
(lambda (type-26201
|
|
value-26202
|
|
form-26203
|
|
e-26204
|
|
w-26205
|
|
s-26206
|
|
mod-26207)
|
|
(expand-expr-6586
|
|
type-26201
|
|
value-26202
|
|
form-26203
|
|
e-26204
|
|
r-26197
|
|
w-26205
|
|
s-26206
|
|
mod-26207)))))
|
|
(cons (cons er-25163
|
|
(wrap-6578
|
|
(begin
|
|
(if (if (pair? e-25323)
|
|
s-25325
|
|
#f)
|
|
(set-source-properties!
|
|
e-25323
|
|
s-25325))
|
|
e-25323)
|
|
w-25324
|
|
mod-25326))
|
|
(cdr body-25155)))))
|
|
(if (null? (cdr exps-26192))
|
|
(car exps-26192)
|
|
(make-struct/no-tail
|
|
(vector-ref
|
|
%expanded-vtables
|
|
12)
|
|
#f
|
|
exps-26192)))))))))))))))))
|
|
(parse-25142
|
|
(map (lambda (x-25145)
|
|
(cons r-25139
|
|
(wrap-6578 x-25145 w-25141 mod-25138)))
|
|
body-25134)
|
|
'()
|
|
'()
|
|
'()
|
|
'()
|
|
'()
|
|
'())))))))
|
|
(expand-local-syntax-6590
|
|
(lambda (rec?-26233
|
|
e-26234
|
|
r-26235
|
|
w-26236
|
|
s-26237
|
|
mod-26238
|
|
k-26239)
|
|
(let ((tmp-26241
|
|
($sc-dispatch
|
|
e-26234
|
|
'(_ #(each (any any)) any . each-any))))
|
|
(if tmp-26241
|
|
(@apply
|
|
(lambda (id-26245 val-26246 e1-26247 e2-26248)
|
|
(if (not (valid-bound-ids?-6575 id-26245))
|
|
(syntax-violation
|
|
#f
|
|
"duplicate bound keyword"
|
|
e-26234)
|
|
(let ((labels-26338 (gen-labels-6552 id-26245)))
|
|
(let ((new-w-26339
|
|
(make-binding-wrap-6563
|
|
id-26245
|
|
labels-26338
|
|
w-26236)))
|
|
(k-26239
|
|
(cons e1-26247 e2-26248)
|
|
(extend-env-6543
|
|
labels-26338
|
|
(let ((trans-r-26375
|
|
(macros-only-env-6545 r-26235)))
|
|
(begin
|
|
(if rec?-26233 new-w-26339 w-26236)
|
|
(map (lambda (x-26376)
|
|
(cons 'macro
|
|
(eval-local-transformer-6591
|
|
(expand-6585
|
|
x-26376
|
|
trans-r-26375
|
|
(values
|
|
(if rec?-26233
|
|
new-w-26339
|
|
w-26236))
|
|
mod-26238)
|
|
mod-26238)))
|
|
val-26246)))
|
|
r-26235)
|
|
new-w-26339
|
|
s-26237
|
|
mod-26238)))))
|
|
tmp-26241)
|
|
(syntax-violation
|
|
#f
|
|
"bad local syntax definition"
|
|
(wrap-6578
|
|
(begin
|
|
(if (if (pair? e-26234) s-26237 #f)
|
|
(set-source-properties! e-26234 s-26237))
|
|
e-26234)
|
|
w-26236
|
|
mod-26238))))))
|
|
(eval-local-transformer-6591
|
|
(lambda (expanded-26656 mod-26657)
|
|
(let ((p-26658 (primitive-eval expanded-26656)))
|
|
(if (procedure? p-26658)
|
|
p-26658
|
|
(syntax-violation
|
|
#f
|
|
"nonprocedure transformer"
|
|
p-26658)))))
|
|
(ellipsis?-6593
|
|
(lambda (x-7254)
|
|
(if (if (if (vector? x-7254)
|
|
(if (= (vector-length x-7254) 4)
|
|
(eq? (vector-ref x-7254 0) 'syntax-object)
|
|
#f)
|
|
#f)
|
|
(symbol? (vector-ref x-7254 1))
|
|
#f)
|
|
(if (eq? (if (if (vector? x-7254)
|
|
(if (= (vector-length x-7254) 4)
|
|
(eq? (vector-ref x-7254 0) 'syntax-object)
|
|
#f)
|
|
#f)
|
|
(vector-ref x-7254 1)
|
|
x-7254)
|
|
(if (if (= (vector-length
|
|
'#(syntax-object
|
|
...
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("l-*-4404"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
expand-lambda-case
|
|
lambda*-formals
|
|
expand-simple-lambda
|
|
lambda-formals
|
|
ellipsis?
|
|
expand-void
|
|
eval-local-transformer
|
|
expand-local-syntax
|
|
expand-body
|
|
expand-macro
|
|
expand-application
|
|
expand-expr
|
|
expand
|
|
syntax-type
|
|
parse-when-list
|
|
expand-install-global
|
|
expand-top-sequence
|
|
expand-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
with-transformer-environment
|
|
transformer-environment
|
|
resolve-identifier
|
|
locally-bound-identifiers
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
set-syntax-object-module!
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-module
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda-case
|
|
build-case-lambda
|
|
build-simple-lambda
|
|
build-global-definition
|
|
build-global-assignment
|
|
build-global-reference
|
|
analyze-variable
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-dynlet
|
|
build-conditional
|
|
build-application
|
|
build-void
|
|
maybe-name-value!
|
|
decorate-source
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
session-id
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
set-lambda-meta!
|
|
lambda-meta
|
|
lambda?
|
|
make-dynlet
|
|
make-letrec
|
|
make-let
|
|
make-lambda-case
|
|
make-lambda
|
|
make-sequence
|
|
make-application
|
|
make-conditional
|
|
make-toplevel-define
|
|
make-toplevel-set
|
|
make-toplevel-ref
|
|
make-module-set
|
|
make-module-ref
|
|
make-lexical-set
|
|
make-lexical-ref
|
|
make-primitive-ref
|
|
make-const
|
|
make-void)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("l-*-2527"
|
|
"l-*-2525"
|
|
"l-*-2523"
|
|
"l-*-2521"
|
|
"l-*-2519"
|
|
"l-*-2517"
|
|
"l-*-2515"
|
|
"l-*-2513"
|
|
"l-*-2511"
|
|
"l-*-2509"
|
|
"l-*-2507"
|
|
"l-*-2505"
|
|
"l-*-2503"
|
|
"l-*-2501"
|
|
"l-*-2499"
|
|
"l-*-2497"
|
|
"l-*-2495"
|
|
"l-*-2493"
|
|
"l-*-2491"
|
|
"l-*-2489"
|
|
"l-*-2487"
|
|
"l-*-2485"
|
|
"l-*-2483"
|
|
"l-*-2481"
|
|
"l-*-2479"
|
|
"l-*-2477"
|
|
"l-*-2475"
|
|
"l-*-2473"
|
|
"l-*-2471"
|
|
"l-*-2469"
|
|
"l-*-2467"
|
|
"l-*-2465"
|
|
"l-*-2463"
|
|
"l-*-2461"
|
|
"l-*-2459"
|
|
"l-*-2457"
|
|
"l-*-2455"
|
|
"l-*-2453"
|
|
"l-*-2451"
|
|
"l-*-2450"
|
|
"l-*-2448"
|
|
"l-*-2445"
|
|
"l-*-2444"
|
|
"l-*-2443"
|
|
"l-*-2441"
|
|
"l-*-2440"
|
|
"l-*-2438"
|
|
"l-*-2436"
|
|
"l-*-2434"
|
|
"l-*-2432"
|
|
"l-*-2430"
|
|
"l-*-2428"
|
|
"l-*-2426"
|
|
"l-*-2424"
|
|
"l-*-2421"
|
|
"l-*-2419"
|
|
"l-*-2418"
|
|
"l-*-2416"
|
|
"l-*-2414"
|
|
"l-*-2412"
|
|
"l-*-2410"
|
|
"l-*-2409"
|
|
"l-*-2408"
|
|
"l-*-2407"
|
|
"l-*-2405"
|
|
"l-*-2404"
|
|
"l-*-2401"
|
|
"l-*-2399"
|
|
"l-*-2397"
|
|
"l-*-2395"
|
|
"l-*-2393"
|
|
"l-*-2391"
|
|
"l-*-2389"
|
|
"l-*-2388"
|
|
"l-*-2387"
|
|
"l-*-2385"
|
|
"l-*-2383"
|
|
"l-*-2382"
|
|
"l-*-2379"
|
|
"l-*-2378"
|
|
"l-*-2376"
|
|
"l-*-2374"
|
|
"l-*-2372"
|
|
"l-*-2370"
|
|
"l-*-2368"
|
|
"l-*-2366"
|
|
"l-*-2364"
|
|
"l-*-2362"
|
|
"l-*-2360"
|
|
"l-*-2357"
|
|
"l-*-2355"
|
|
"l-*-2353"
|
|
"l-*-2351"
|
|
"l-*-2349"
|
|
"l-*-2347"
|
|
"l-*-2345"
|
|
"l-*-2343"
|
|
"l-*-2341"
|
|
"l-*-2339"
|
|
"l-*-2337"
|
|
"l-*-2335"
|
|
"l-*-2333"
|
|
"l-*-2331"
|
|
"l-*-2329"
|
|
"l-*-2327"
|
|
"l-*-2325"
|
|
"l-*-2323"
|
|
"l-*-2321"
|
|
"l-*-2319"
|
|
"l-*-2317"
|
|
"l-*-2315"
|
|
"l-*-2313"
|
|
"l-*-2311"
|
|
"l-*-2309"
|
|
"l-*-2307"
|
|
"l-*-2306"
|
|
"l-*-2305"
|
|
"l-*-2304"
|
|
"l-*-2303"
|
|
"l-*-2301"
|
|
"l-*-2299"
|
|
"l-*-2297"
|
|
"l-*-2294"
|
|
"l-*-2292"
|
|
"l-*-2290"
|
|
"l-*-2288"
|
|
"l-*-2286"
|
|
"l-*-2284"
|
|
"l-*-2282"
|
|
"l-*-2280"
|
|
"l-*-2278"
|
|
"l-*-2276"
|
|
"l-*-2274"
|
|
"l-*-2272"
|
|
"l-*-2270"
|
|
"l-*-2268"
|
|
"l-*-2266"
|
|
"l-*-2264"
|
|
"l-*-2262"
|
|
"l-*-2260"))
|
|
#(ribcage
|
|
(define-structure
|
|
define-expansion-accessors
|
|
define-expansion-constructors)
|
|
((top) (top) (top))
|
|
("l-*-2098" "l-*-2097" "l-*-2096")))
|
|
(hygiene guile)))
|
|
4)
|
|
#t
|
|
#f)
|
|
'...
|
|
'#(syntax-object
|
|
...
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("l-*-4404"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
expand-lambda-case
|
|
lambda*-formals
|
|
expand-simple-lambda
|
|
lambda-formals
|
|
ellipsis?
|
|
expand-void
|
|
eval-local-transformer
|
|
expand-local-syntax
|
|
expand-body
|
|
expand-macro
|
|
expand-application
|
|
expand-expr
|
|
expand
|
|
syntax-type
|
|
parse-when-list
|
|
expand-install-global
|
|
expand-top-sequence
|
|
expand-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
with-transformer-environment
|
|
transformer-environment
|
|
resolve-identifier
|
|
locally-bound-identifiers
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
set-syntax-object-module!
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-module
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda-case
|
|
build-case-lambda
|
|
build-simple-lambda
|
|
build-global-definition
|
|
build-global-assignment
|
|
build-global-reference
|
|
analyze-variable
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-dynlet
|
|
build-conditional
|
|
build-application
|
|
build-void
|
|
maybe-name-value!
|
|
decorate-source
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
session-id
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
set-lambda-meta!
|
|
lambda-meta
|
|
lambda?
|
|
make-dynlet
|
|
make-letrec
|
|
make-let
|
|
make-lambda-case
|
|
make-lambda
|
|
make-sequence
|
|
make-application
|
|
make-conditional
|
|
make-toplevel-define
|
|
make-toplevel-set
|
|
make-toplevel-ref
|
|
make-module-set
|
|
make-module-ref
|
|
make-lexical-set
|
|
make-lexical-ref
|
|
make-primitive-ref
|
|
make-const
|
|
make-void)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("l-*-2527"
|
|
"l-*-2525"
|
|
"l-*-2523"
|
|
"l-*-2521"
|
|
"l-*-2519"
|
|
"l-*-2517"
|
|
"l-*-2515"
|
|
"l-*-2513"
|
|
"l-*-2511"
|
|
"l-*-2509"
|
|
"l-*-2507"
|
|
"l-*-2505"
|
|
"l-*-2503"
|
|
"l-*-2501"
|
|
"l-*-2499"
|
|
"l-*-2497"
|
|
"l-*-2495"
|
|
"l-*-2493"
|
|
"l-*-2491"
|
|
"l-*-2489"
|
|
"l-*-2487"
|
|
"l-*-2485"
|
|
"l-*-2483"
|
|
"l-*-2481"
|
|
"l-*-2479"
|
|
"l-*-2477"
|
|
"l-*-2475"
|
|
"l-*-2473"
|
|
"l-*-2471"
|
|
"l-*-2469"
|
|
"l-*-2467"
|
|
"l-*-2465"
|
|
"l-*-2463"
|
|
"l-*-2461"
|
|
"l-*-2459"
|
|
"l-*-2457"
|
|
"l-*-2455"
|
|
"l-*-2453"
|
|
"l-*-2451"
|
|
"l-*-2450"
|
|
"l-*-2448"
|
|
"l-*-2445"
|
|
"l-*-2444"
|
|
"l-*-2443"
|
|
"l-*-2441"
|
|
"l-*-2440"
|
|
"l-*-2438"
|
|
"l-*-2436"
|
|
"l-*-2434"
|
|
"l-*-2432"
|
|
"l-*-2430"
|
|
"l-*-2428"
|
|
"l-*-2426"
|
|
"l-*-2424"
|
|
"l-*-2421"
|
|
"l-*-2419"
|
|
"l-*-2418"
|
|
"l-*-2416"
|
|
"l-*-2414"
|
|
"l-*-2412"
|
|
"l-*-2410"
|
|
"l-*-2409"
|
|
"l-*-2408"
|
|
"l-*-2407"
|
|
"l-*-2405"
|
|
"l-*-2404"
|
|
"l-*-2401"
|
|
"l-*-2399"
|
|
"l-*-2397"
|
|
"l-*-2395"
|
|
"l-*-2393"
|
|
"l-*-2391"
|
|
"l-*-2389"
|
|
"l-*-2388"
|
|
"l-*-2387"
|
|
"l-*-2385"
|
|
"l-*-2383"
|
|
"l-*-2382"
|
|
"l-*-2379"
|
|
"l-*-2378"
|
|
"l-*-2376"
|
|
"l-*-2374"
|
|
"l-*-2372"
|
|
"l-*-2370"
|
|
"l-*-2368"
|
|
"l-*-2366"
|
|
"l-*-2364"
|
|
"l-*-2362"
|
|
"l-*-2360"
|
|
"l-*-2357"
|
|
"l-*-2355"
|
|
"l-*-2353"
|
|
"l-*-2351"
|
|
"l-*-2349"
|
|
"l-*-2347"
|
|
"l-*-2345"
|
|
"l-*-2343"
|
|
"l-*-2341"
|
|
"l-*-2339"
|
|
"l-*-2337"
|
|
"l-*-2335"
|
|
"l-*-2333"
|
|
"l-*-2331"
|
|
"l-*-2329"
|
|
"l-*-2327"
|
|
"l-*-2325"
|
|
"l-*-2323"
|
|
"l-*-2321"
|
|
"l-*-2319"
|
|
"l-*-2317"
|
|
"l-*-2315"
|
|
"l-*-2313"
|
|
"l-*-2311"
|
|
"l-*-2309"
|
|
"l-*-2307"
|
|
"l-*-2306"
|
|
"l-*-2305"
|
|
"l-*-2304"
|
|
"l-*-2303"
|
|
"l-*-2301"
|
|
"l-*-2299"
|
|
"l-*-2297"
|
|
"l-*-2294"
|
|
"l-*-2292"
|
|
"l-*-2290"
|
|
"l-*-2288"
|
|
"l-*-2286"
|
|
"l-*-2284"
|
|
"l-*-2282"
|
|
"l-*-2280"
|
|
"l-*-2278"
|
|
"l-*-2276"
|
|
"l-*-2274"
|
|
"l-*-2272"
|
|
"l-*-2270"
|
|
"l-*-2268"
|
|
"l-*-2266"
|
|
"l-*-2264"
|
|
"l-*-2262"
|
|
"l-*-2260"))
|
|
#(ribcage
|
|
(define-structure
|
|
define-expansion-accessors
|
|
define-expansion-constructors)
|
|
((top) (top) (top))
|
|
("l-*-2098" "l-*-2097" "l-*-2096")))
|
|
(hygiene guile))))
|
|
(eq? (id-var-name-6568 x-7254 '(()))
|
|
(id-var-name-6568
|
|
'#(syntax-object
|
|
...
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("l-*-4404"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
expand-lambda-case
|
|
lambda*-formals
|
|
expand-simple-lambda
|
|
lambda-formals
|
|
ellipsis?
|
|
expand-void
|
|
eval-local-transformer
|
|
expand-local-syntax
|
|
expand-body
|
|
expand-macro
|
|
expand-application
|
|
expand-expr
|
|
expand
|
|
syntax-type
|
|
parse-when-list
|
|
expand-install-global
|
|
expand-top-sequence
|
|
expand-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
with-transformer-environment
|
|
transformer-environment
|
|
resolve-identifier
|
|
locally-bound-identifiers
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
set-syntax-object-module!
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-module
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda-case
|
|
build-case-lambda
|
|
build-simple-lambda
|
|
build-global-definition
|
|
build-global-assignment
|
|
build-global-reference
|
|
analyze-variable
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-dynlet
|
|
build-conditional
|
|
build-application
|
|
build-void
|
|
maybe-name-value!
|
|
decorate-source
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
session-id
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
set-lambda-meta!
|
|
lambda-meta
|
|
lambda?
|
|
make-dynlet
|
|
make-letrec
|
|
make-let
|
|
make-lambda-case
|
|
make-lambda
|
|
make-sequence
|
|
make-application
|
|
make-conditional
|
|
make-toplevel-define
|
|
make-toplevel-set
|
|
make-toplevel-ref
|
|
make-module-set
|
|
make-module-ref
|
|
make-lexical-set
|
|
make-lexical-ref
|
|
make-primitive-ref
|
|
make-const
|
|
make-void)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("l-*-2527"
|
|
"l-*-2525"
|
|
"l-*-2523"
|
|
"l-*-2521"
|
|
"l-*-2519"
|
|
"l-*-2517"
|
|
"l-*-2515"
|
|
"l-*-2513"
|
|
"l-*-2511"
|
|
"l-*-2509"
|
|
"l-*-2507"
|
|
"l-*-2505"
|
|
"l-*-2503"
|
|
"l-*-2501"
|
|
"l-*-2499"
|
|
"l-*-2497"
|
|
"l-*-2495"
|
|
"l-*-2493"
|
|
"l-*-2491"
|
|
"l-*-2489"
|
|
"l-*-2487"
|
|
"l-*-2485"
|
|
"l-*-2483"
|
|
"l-*-2481"
|
|
"l-*-2479"
|
|
"l-*-2477"
|
|
"l-*-2475"
|
|
"l-*-2473"
|
|
"l-*-2471"
|
|
"l-*-2469"
|
|
"l-*-2467"
|
|
"l-*-2465"
|
|
"l-*-2463"
|
|
"l-*-2461"
|
|
"l-*-2459"
|
|
"l-*-2457"
|
|
"l-*-2455"
|
|
"l-*-2453"
|
|
"l-*-2451"
|
|
"l-*-2450"
|
|
"l-*-2448"
|
|
"l-*-2445"
|
|
"l-*-2444"
|
|
"l-*-2443"
|
|
"l-*-2441"
|
|
"l-*-2440"
|
|
"l-*-2438"
|
|
"l-*-2436"
|
|
"l-*-2434"
|
|
"l-*-2432"
|
|
"l-*-2430"
|
|
"l-*-2428"
|
|
"l-*-2426"
|
|
"l-*-2424"
|
|
"l-*-2421"
|
|
"l-*-2419"
|
|
"l-*-2418"
|
|
"l-*-2416"
|
|
"l-*-2414"
|
|
"l-*-2412"
|
|
"l-*-2410"
|
|
"l-*-2409"
|
|
"l-*-2408"
|
|
"l-*-2407"
|
|
"l-*-2405"
|
|
"l-*-2404"
|
|
"l-*-2401"
|
|
"l-*-2399"
|
|
"l-*-2397"
|
|
"l-*-2395"
|
|
"l-*-2393"
|
|
"l-*-2391"
|
|
"l-*-2389"
|
|
"l-*-2388"
|
|
"l-*-2387"
|
|
"l-*-2385"
|
|
"l-*-2383"
|
|
"l-*-2382"
|
|
"l-*-2379"
|
|
"l-*-2378"
|
|
"l-*-2376"
|
|
"l-*-2374"
|
|
"l-*-2372"
|
|
"l-*-2370"
|
|
"l-*-2368"
|
|
"l-*-2366"
|
|
"l-*-2364"
|
|
"l-*-2362"
|
|
"l-*-2360"
|
|
"l-*-2357"
|
|
"l-*-2355"
|
|
"l-*-2353"
|
|
"l-*-2351"
|
|
"l-*-2349"
|
|
"l-*-2347"
|
|
"l-*-2345"
|
|
"l-*-2343"
|
|
"l-*-2341"
|
|
"l-*-2339"
|
|
"l-*-2337"
|
|
"l-*-2335"
|
|
"l-*-2333"
|
|
"l-*-2331"
|
|
"l-*-2329"
|
|
"l-*-2327"
|
|
"l-*-2325"
|
|
"l-*-2323"
|
|
"l-*-2321"
|
|
"l-*-2319"
|
|
"l-*-2317"
|
|
"l-*-2315"
|
|
"l-*-2313"
|
|
"l-*-2311"
|
|
"l-*-2309"
|
|
"l-*-2307"
|
|
"l-*-2306"
|
|
"l-*-2305"
|
|
"l-*-2304"
|
|
"l-*-2303"
|
|
"l-*-2301"
|
|
"l-*-2299"
|
|
"l-*-2297"
|
|
"l-*-2294"
|
|
"l-*-2292"
|
|
"l-*-2290"
|
|
"l-*-2288"
|
|
"l-*-2286"
|
|
"l-*-2284"
|
|
"l-*-2282"
|
|
"l-*-2280"
|
|
"l-*-2278"
|
|
"l-*-2276"
|
|
"l-*-2274"
|
|
"l-*-2272"
|
|
"l-*-2270"
|
|
"l-*-2268"
|
|
"l-*-2266"
|
|
"l-*-2264"
|
|
"l-*-2262"
|
|
"l-*-2260"))
|
|
#(ribcage
|
|
(define-structure
|
|
define-expansion-accessors
|
|
define-expansion-constructors)
|
|
((top) (top) (top))
|
|
("l-*-2098" "l-*-2097" "l-*-2096")))
|
|
(hygiene guile))
|
|
'(())))
|
|
#f)
|
|
#f)))
|
|
(lambda-formals-6594
|
|
(lambda (orig-args-26663)
|
|
(letrec*
|
|
((req-26664
|
|
(lambda (args-26668 rreq-26669)
|
|
(let ((tmp-26671 ($sc-dispatch args-26668 '())))
|
|
(if tmp-26671
|
|
(@apply
|
|
(lambda () (check-26665 (reverse rreq-26669) #f))
|
|
tmp-26671)
|
|
(let ((tmp-26794
|
|
($sc-dispatch args-26668 '(any . any))))
|
|
(if (if tmp-26794
|
|
(@apply
|
|
(lambda (a-26798 b-26799)
|
|
(if (symbol? a-26798)
|
|
#t
|
|
(if (if (vector? a-26798)
|
|
(if (= (vector-length a-26798) 4)
|
|
(eq? (vector-ref a-26798 0)
|
|
'syntax-object)
|
|
#f)
|
|
#f)
|
|
(symbol? (vector-ref a-26798 1))
|
|
#f)))
|
|
tmp-26794)
|
|
#f)
|
|
(@apply
|
|
(lambda (a-26826 b-26827)
|
|
(req-26664 b-26827 (cons a-26826 rreq-26669)))
|
|
tmp-26794)
|
|
(let ((tmp-26828 (list args-26668)))
|
|
(if (@apply
|
|
(lambda (r-26830)
|
|
(if (symbol? r-26830)
|
|
#t
|
|
(if (if (vector? r-26830)
|
|
(if (= (vector-length r-26830) 4)
|
|
(eq? (vector-ref r-26830 0)
|
|
'syntax-object)
|
|
#f)
|
|
#f)
|
|
(symbol? (vector-ref r-26830 1))
|
|
#f)))
|
|
tmp-26828)
|
|
(@apply
|
|
(lambda (r-26860)
|
|
(check-26665 (reverse rreq-26669) r-26860))
|
|
tmp-26828)
|
|
(syntax-violation
|
|
'lambda
|
|
"invalid argument list"
|
|
orig-args-26663
|
|
args-26668)))))))))
|
|
(check-26665
|
|
(lambda (req-26991 rest-26992)
|
|
(if (distinct-bound-ids?-6576
|
|
(if rest-26992
|
|
(cons rest-26992 req-26991)
|
|
req-26991))
|
|
(values req-26991 #f rest-26992 #f)
|
|
(syntax-violation
|
|
'lambda
|
|
"duplicate identifier in argument list"
|
|
orig-args-26663)))))
|
|
(req-26664 orig-args-26663 '()))))
|
|
(expand-simple-lambda-6595
|
|
(lambda (e-27108
|
|
r-27109
|
|
w-27110
|
|
s-27111
|
|
mod-27112
|
|
req-27113
|
|
rest-27114
|
|
meta-27115
|
|
body-27116)
|
|
(let ((ids-27117
|
|
(if rest-27114
|
|
(append req-27113 (list rest-27114))
|
|
req-27113)))
|
|
(let ((vars-27118 (map gen-var-6599 ids-27117)))
|
|
(let ((labels-27119 (gen-labels-6552 ids-27117)))
|
|
(build-simple-lambda-6525
|
|
s-27111
|
|
(map syntax->datum req-27113)
|
|
(if rest-27114 (syntax->datum rest-27114) #f)
|
|
vars-27118
|
|
meta-27115
|
|
(expand-body-6589
|
|
body-27116
|
|
(wrap-6578
|
|
(begin
|
|
(if (if (pair? e-27108) s-27111 #f)
|
|
(set-source-properties! e-27108 s-27111))
|
|
e-27108)
|
|
w-27110
|
|
mod-27112)
|
|
(extend-var-env-6544
|
|
labels-27119
|
|
vars-27118
|
|
r-27109)
|
|
(make-binding-wrap-6563
|
|
ids-27117
|
|
labels-27119
|
|
w-27110)
|
|
mod-27112)))))))
|
|
(lambda*-formals-6596
|
|
(lambda (orig-args-27399)
|
|
(letrec*
|
|
((req-27400
|
|
(lambda (args-27407 rreq-27408)
|
|
(let ((tmp-27410 ($sc-dispatch args-27407 '())))
|
|
(if tmp-27410
|
|
(@apply
|
|
(lambda ()
|
|
(check-27404 (reverse rreq-27408) '() #f '()))
|
|
tmp-27410)
|
|
(let ((tmp-27416
|
|
($sc-dispatch args-27407 '(any . any))))
|
|
(if (if tmp-27416
|
|
(@apply
|
|
(lambda (a-27420 b-27421)
|
|
(if (symbol? a-27420)
|
|
#t
|
|
(if (if (vector? a-27420)
|
|
(if (= (vector-length a-27420) 4)
|
|
(eq? (vector-ref a-27420 0)
|
|
'syntax-object)
|
|
#f)
|
|
#f)
|
|
(symbol? (vector-ref a-27420 1))
|
|
#f)))
|
|
tmp-27416)
|
|
#f)
|
|
(@apply
|
|
(lambda (a-27448 b-27449)
|
|
(req-27400 b-27449 (cons a-27448 rreq-27408)))
|
|
tmp-27416)
|
|
(let ((tmp-27450
|
|
($sc-dispatch args-27407 '(any . any))))
|
|
(if (if tmp-27450
|
|
(@apply
|
|
(lambda (a-27454 b-27455)
|
|
(eq? (syntax->datum a-27454) #:optional))
|
|
tmp-27450)
|
|
#f)
|
|
(@apply
|
|
(lambda (a-27456 b-27457)
|
|
(opt-27401 b-27457 (reverse rreq-27408) '()))
|
|
tmp-27450)
|
|
(let ((tmp-27460
|
|
($sc-dispatch args-27407 '(any . any))))
|
|
(if (if tmp-27460
|
|
(@apply
|
|
(lambda (a-27464 b-27465)
|
|
(eq? (syntax->datum a-27464) #:key))
|
|
tmp-27460)
|
|
#f)
|
|
(@apply
|
|
(lambda (a-27466 b-27467)
|
|
(key-27402
|
|
b-27467
|
|
(reverse rreq-27408)
|
|
'()
|
|
'()))
|
|
tmp-27460)
|
|
(let ((tmp-27470
|
|
($sc-dispatch args-27407 '(any any))))
|
|
(if (if tmp-27470
|
|
(@apply
|
|
(lambda (a-27474 b-27475)
|
|
(eq? (syntax->datum a-27474)
|
|
#:rest))
|
|
tmp-27470)
|
|
#f)
|
|
(@apply
|
|
(lambda (a-27476 b-27477)
|
|
(rest-27403
|
|
b-27477
|
|
(reverse rreq-27408)
|
|
'()
|
|
'()))
|
|
tmp-27470)
|
|
(let ((tmp-27480 (list args-27407)))
|
|
(if (@apply
|
|
(lambda (r-27482)
|
|
(if (symbol? r-27482)
|
|
#t
|
|
(if (if (vector? r-27482)
|
|
(if (= (vector-length
|
|
r-27482)
|
|
4)
|
|
(eq? (vector-ref
|
|
r-27482
|
|
0)
|
|
'syntax-object)
|
|
#f)
|
|
#f)
|
|
(symbol?
|
|
(vector-ref r-27482 1))
|
|
#f)))
|
|
tmp-27480)
|
|
(@apply
|
|
(lambda (r-27512)
|
|
(rest-27403
|
|
r-27512
|
|
(reverse rreq-27408)
|
|
'()
|
|
'()))
|
|
tmp-27480)
|
|
(syntax-violation
|
|
'lambda*
|
|
"invalid argument list"
|
|
orig-args-27399
|
|
args-27407)))))))))))))))
|
|
(opt-27401
|
|
(lambda (args-27531 req-27532 ropt-27533)
|
|
(let ((tmp-27535 ($sc-dispatch args-27531 '())))
|
|
(if tmp-27535
|
|
(@apply
|
|
(lambda ()
|
|
(check-27404
|
|
req-27532
|
|
(reverse ropt-27533)
|
|
#f
|
|
'()))
|
|
tmp-27535)
|
|
(let ((tmp-27541
|
|
($sc-dispatch args-27531 '(any . any))))
|
|
(if (if tmp-27541
|
|
(@apply
|
|
(lambda (a-27545 b-27546)
|
|
(if (symbol? a-27545)
|
|
#t
|
|
(if (if (vector? a-27545)
|
|
(if (= (vector-length a-27545) 4)
|
|
(eq? (vector-ref a-27545 0)
|
|
'syntax-object)
|
|
#f)
|
|
#f)
|
|
(symbol? (vector-ref a-27545 1))
|
|
#f)))
|
|
tmp-27541)
|
|
#f)
|
|
(@apply
|
|
(lambda (a-27573 b-27574)
|
|
(opt-27401
|
|
b-27574
|
|
req-27532
|
|
(cons (cons a-27573
|
|
'(#(syntax-object
|
|
#f
|
|
((top)
|
|
#(ribcage
|
|
#(a b)
|
|
#((top) (top))
|
|
#("l-*-4543" "l-*-4544"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(args req ropt)
|
|
#((top) (top) (top))
|
|
#("l-*-4533"
|
|
"l-*-4534"
|
|
"l-*-4535"))
|
|
#(ribcage
|
|
(check rest key opt req)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("l-*-4479"
|
|
"l-*-4477"
|
|
"l-*-4475"
|
|
"l-*-4473"
|
|
"l-*-4471"))
|
|
#(ribcage
|
|
#(orig-args)
|
|
#((top))
|
|
#("l-*-4470"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
expand-lambda-case
|
|
lambda*-formals
|
|
expand-simple-lambda
|
|
lambda-formals
|
|
ellipsis?
|
|
expand-void
|
|
eval-local-transformer
|
|
expand-local-syntax
|
|
expand-body
|
|
expand-macro
|
|
expand-application
|
|
expand-expr
|
|
expand
|
|
syntax-type
|
|
parse-when-list
|
|
expand-install-global
|
|
expand-top-sequence
|
|
expand-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
with-transformer-environment
|
|
transformer-environment
|
|
resolve-identifier
|
|
locally-bound-identifiers
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
set-syntax-object-module!
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-module
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda-case
|
|
build-case-lambda
|
|
build-simple-lambda
|
|
build-global-definition
|
|
build-global-assignment
|
|
build-global-reference
|
|
analyze-variable
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-dynlet
|
|
build-conditional
|
|
build-application
|
|
build-void
|
|
maybe-name-value!
|
|
decorate-source
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
session-id
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
set-lambda-meta!
|
|
lambda-meta
|
|
lambda?
|
|
make-dynlet
|
|
make-letrec
|
|
make-let
|
|
make-lambda-case
|
|
make-lambda
|
|
make-sequence
|
|
make-application
|
|
make-conditional
|
|
make-toplevel-define
|
|
make-toplevel-set
|
|
make-toplevel-ref
|
|
make-module-set
|
|
make-module-ref
|
|
make-lexical-set
|
|
make-lexical-ref
|
|
make-primitive-ref
|
|
make-const
|
|
make-void)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("l-*-2527"
|
|
"l-*-2525"
|
|
"l-*-2523"
|
|
"l-*-2521"
|
|
"l-*-2519"
|
|
"l-*-2517"
|
|
"l-*-2515"
|
|
"l-*-2513"
|
|
"l-*-2511"
|
|
"l-*-2509"
|
|
"l-*-2507"
|
|
"l-*-2505"
|
|
"l-*-2503"
|
|
"l-*-2501"
|
|
"l-*-2499"
|
|
"l-*-2497"
|
|
"l-*-2495"
|
|
"l-*-2493"
|
|
"l-*-2491"
|
|
"l-*-2489"
|
|
"l-*-2487"
|
|
"l-*-2485"
|
|
"l-*-2483"
|
|
"l-*-2481"
|
|
"l-*-2479"
|
|
"l-*-2477"
|
|
"l-*-2475"
|
|
"l-*-2473"
|
|
"l-*-2471"
|
|
"l-*-2469"
|
|
"l-*-2467"
|
|
"l-*-2465"
|
|
"l-*-2463"
|
|
"l-*-2461"
|
|
"l-*-2459"
|
|
"l-*-2457"
|
|
"l-*-2455"
|
|
"l-*-2453"
|
|
"l-*-2451"
|
|
"l-*-2450"
|
|
"l-*-2448"
|
|
"l-*-2445"
|
|
"l-*-2444"
|
|
"l-*-2443"
|
|
"l-*-2441"
|
|
"l-*-2440"
|
|
"l-*-2438"
|
|
"l-*-2436"
|
|
"l-*-2434"
|
|
"l-*-2432"
|
|
"l-*-2430"
|
|
"l-*-2428"
|
|
"l-*-2426"
|
|
"l-*-2424"
|
|
"l-*-2421"
|
|
"l-*-2419"
|
|
"l-*-2418"
|
|
"l-*-2416"
|
|
"l-*-2414"
|
|
"l-*-2412"
|
|
"l-*-2410"
|
|
"l-*-2409"
|
|
"l-*-2408"
|
|
"l-*-2407"
|
|
"l-*-2405"
|
|
"l-*-2404"
|
|
"l-*-2401"
|
|
"l-*-2399"
|
|
"l-*-2397"
|
|
"l-*-2395"
|
|
"l-*-2393"
|
|
"l-*-2391"
|
|
"l-*-2389"
|
|
"l-*-2388"
|
|
"l-*-2387"
|
|
"l-*-2385"
|
|
"l-*-2383"
|
|
"l-*-2382"
|
|
"l-*-2379"
|
|
"l-*-2378"
|
|
"l-*-2376"
|
|
"l-*-2374"
|
|
"l-*-2372"
|
|
"l-*-2370"
|
|
"l-*-2368"
|
|
"l-*-2366"
|
|
"l-*-2364"
|
|
"l-*-2362"
|
|
"l-*-2360"
|
|
"l-*-2357"
|
|
"l-*-2355"
|
|
"l-*-2353"
|
|
"l-*-2351"
|
|
"l-*-2349"
|
|
"l-*-2347"
|
|
"l-*-2345"
|
|
"l-*-2343"
|
|
"l-*-2341"
|
|
"l-*-2339"
|
|
"l-*-2337"
|
|
"l-*-2335"
|
|
"l-*-2333"
|
|
"l-*-2331"
|
|
"l-*-2329"
|
|
"l-*-2327"
|
|
"l-*-2325"
|
|
"l-*-2323"
|
|
"l-*-2321"
|
|
"l-*-2319"
|
|
"l-*-2317"
|
|
"l-*-2315"
|
|
"l-*-2313"
|
|
"l-*-2311"
|
|
"l-*-2309"
|
|
"l-*-2307"
|
|
"l-*-2306"
|
|
"l-*-2305"
|
|
"l-*-2304"
|
|
"l-*-2303"
|
|
"l-*-2301"
|
|
"l-*-2299"
|
|
"l-*-2297"
|
|
"l-*-2294"
|
|
"l-*-2292"
|
|
"l-*-2290"
|
|
"l-*-2288"
|
|
"l-*-2286"
|
|
"l-*-2284"
|
|
"l-*-2282"
|
|
"l-*-2280"
|
|
"l-*-2278"
|
|
"l-*-2276"
|
|
"l-*-2274"
|
|
"l-*-2272"
|
|
"l-*-2270"
|
|
"l-*-2268"
|
|
"l-*-2266"
|
|
"l-*-2264"
|
|
"l-*-2262"
|
|
"l-*-2260"))
|
|
#(ribcage
|
|
(define-structure
|
|
define-expansion-accessors
|
|
define-expansion-constructors)
|
|
((top) (top) (top))
|
|
("l-*-2098"
|
|
"l-*-2097"
|
|
"l-*-2096")))
|
|
(hygiene guile))))
|
|
ropt-27533)))
|
|
tmp-27541)
|
|
(let ((tmp-27575
|
|
($sc-dispatch args-27531 '((any any) . any))))
|
|
(if (if tmp-27575
|
|
(@apply
|
|
(lambda (a-27579 init-27580 b-27581)
|
|
(if (symbol? a-27579)
|
|
#t
|
|
(if (if (vector? a-27579)
|
|
(if (= (vector-length a-27579) 4)
|
|
(eq? (vector-ref a-27579 0)
|
|
'syntax-object)
|
|
#f)
|
|
#f)
|
|
(symbol? (vector-ref a-27579 1))
|
|
#f)))
|
|
tmp-27575)
|
|
#f)
|
|
(@apply
|
|
(lambda (a-27608 init-27609 b-27610)
|
|
(opt-27401
|
|
b-27610
|
|
req-27532
|
|
(cons (list a-27608 init-27609) ropt-27533)))
|
|
tmp-27575)
|
|
(let ((tmp-27611
|
|
($sc-dispatch args-27531 '(any . any))))
|
|
(if (if tmp-27611
|
|
(@apply
|
|
(lambda (a-27615 b-27616)
|
|
(eq? (syntax->datum a-27615) #:key))
|
|
tmp-27611)
|
|
#f)
|
|
(@apply
|
|
(lambda (a-27617 b-27618)
|
|
(key-27402
|
|
b-27618
|
|
req-27532
|
|
(reverse ropt-27533)
|
|
'()))
|
|
tmp-27611)
|
|
(let ((tmp-27621
|
|
($sc-dispatch args-27531 '(any any))))
|
|
(if (if tmp-27621
|
|
(@apply
|
|
(lambda (a-27625 b-27626)
|
|
(eq? (syntax->datum a-27625)
|
|
#:rest))
|
|
tmp-27621)
|
|
#f)
|
|
(@apply
|
|
(lambda (a-27627 b-27628)
|
|
(rest-27403
|
|
b-27628
|
|
req-27532
|
|
(reverse ropt-27533)
|
|
'()))
|
|
tmp-27621)
|
|
(let ((tmp-27631 (list args-27531)))
|
|
(if (@apply
|
|
(lambda (r-27633)
|
|
(if (symbol? r-27633)
|
|
#t
|
|
(if (if (vector? r-27633)
|
|
(if (= (vector-length
|
|
r-27633)
|
|
4)
|
|
(eq? (vector-ref
|
|
r-27633
|
|
0)
|
|
'syntax-object)
|
|
#f)
|
|
#f)
|
|
(symbol?
|
|
(vector-ref r-27633 1))
|
|
#f)))
|
|
tmp-27631)
|
|
(@apply
|
|
(lambda (r-27663)
|
|
(rest-27403
|
|
r-27663
|
|
req-27532
|
|
(reverse ropt-27533)
|
|
'()))
|
|
tmp-27631)
|
|
(syntax-violation
|
|
'lambda*
|
|
"invalid optional argument list"
|
|
orig-args-27399
|
|
args-27531)))))))))))))))
|
|
(key-27402
|
|
(lambda (args-27682 req-27683 opt-27684 rkey-27685)
|
|
(let ((tmp-27687 ($sc-dispatch args-27682 '())))
|
|
(if tmp-27687
|
|
(@apply
|
|
(lambda ()
|
|
(check-27404
|
|
req-27683
|
|
opt-27684
|
|
#f
|
|
(cons #f (reverse rkey-27685))))
|
|
tmp-27687)
|
|
(let ((tmp-27693
|
|
($sc-dispatch args-27682 '(any . any))))
|
|
(if (if tmp-27693
|
|
(@apply
|
|
(lambda (a-27697 b-27698)
|
|
(if (symbol? a-27697)
|
|
#t
|
|
(if (if (vector? a-27697)
|
|
(if (= (vector-length a-27697) 4)
|
|
(eq? (vector-ref a-27697 0)
|
|
'syntax-object)
|
|
#f)
|
|
#f)
|
|
(symbol? (vector-ref a-27697 1))
|
|
#f)))
|
|
tmp-27693)
|
|
#f)
|
|
(@apply
|
|
(lambda (a-27725 b-27726)
|
|
(let ((tmp-27727
|
|
(symbol->keyword (syntax->datum a-27725))))
|
|
(key-27402
|
|
b-27726
|
|
req-27683
|
|
opt-27684
|
|
(cons (cons tmp-27727
|
|
(cons a-27725
|
|
'(#(syntax-object
|
|
#f
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(k)
|
|
#((top))
|
|
#("l-*-4606"))
|
|
#(ribcage
|
|
#(a b)
|
|
#((top) (top))
|
|
#("l-*-4600"
|
|
"l-*-4601"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(args req opt rkey)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("l-*-4589"
|
|
"l-*-4590"
|
|
"l-*-4591"
|
|
"l-*-4592"))
|
|
#(ribcage
|
|
(check rest
|
|
key
|
|
opt
|
|
req)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("l-*-4479"
|
|
"l-*-4477"
|
|
"l-*-4475"
|
|
"l-*-4473"
|
|
"l-*-4471"))
|
|
#(ribcage
|
|
#(orig-args)
|
|
#((top))
|
|
#("l-*-4470"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
expand-lambda-case
|
|
lambda*-formals
|
|
expand-simple-lambda
|
|
lambda-formals
|
|
ellipsis?
|
|
expand-void
|
|
eval-local-transformer
|
|
expand-local-syntax
|
|
expand-body
|
|
expand-macro
|
|
expand-application
|
|
expand-expr
|
|
expand
|
|
syntax-type
|
|
parse-when-list
|
|
expand-install-global
|
|
expand-top-sequence
|
|
expand-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
with-transformer-environment
|
|
transformer-environment
|
|
resolve-identifier
|
|
locally-bound-identifiers
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
set-syntax-object-module!
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-module
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda-case
|
|
build-case-lambda
|
|
build-simple-lambda
|
|
build-global-definition
|
|
build-global-assignment
|
|
build-global-reference
|
|
analyze-variable
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-dynlet
|
|
build-conditional
|
|
build-application
|
|
build-void
|
|
maybe-name-value!
|
|
decorate-source
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
session-id
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
set-lambda-meta!
|
|
lambda-meta
|
|
lambda?
|
|
make-dynlet
|
|
make-letrec
|
|
make-let
|
|
make-lambda-case
|
|
make-lambda
|
|
make-sequence
|
|
make-application
|
|
make-conditional
|
|
make-toplevel-define
|
|
make-toplevel-set
|
|
make-toplevel-ref
|
|
make-module-set
|
|
make-module-ref
|
|
make-lexical-set
|
|
make-lexical-ref
|
|
make-primitive-ref
|
|
make-const
|
|
make-void)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("l-*-2527"
|
|
"l-*-2525"
|
|
"l-*-2523"
|
|
"l-*-2521"
|
|
"l-*-2519"
|
|
"l-*-2517"
|
|
"l-*-2515"
|
|
"l-*-2513"
|
|
"l-*-2511"
|
|
"l-*-2509"
|
|
"l-*-2507"
|
|
"l-*-2505"
|
|
"l-*-2503"
|
|
"l-*-2501"
|
|
"l-*-2499"
|
|
"l-*-2497"
|
|
"l-*-2495"
|
|
"l-*-2493"
|
|
"l-*-2491"
|
|
"l-*-2489"
|
|
"l-*-2487"
|
|
"l-*-2485"
|
|
"l-*-2483"
|
|
"l-*-2481"
|
|
"l-*-2479"
|
|
"l-*-2477"
|
|
"l-*-2475"
|
|
"l-*-2473"
|
|
"l-*-2471"
|
|
"l-*-2469"
|
|
"l-*-2467"
|
|
"l-*-2465"
|
|
"l-*-2463"
|
|
"l-*-2461"
|
|
"l-*-2459"
|
|
"l-*-2457"
|
|
"l-*-2455"
|
|
"l-*-2453"
|
|
"l-*-2451"
|
|
"l-*-2450"
|
|
"l-*-2448"
|
|
"l-*-2445"
|
|
"l-*-2444"
|
|
"l-*-2443"
|
|
"l-*-2441"
|
|
"l-*-2440"
|
|
"l-*-2438"
|
|
"l-*-2436"
|
|
"l-*-2434"
|
|
"l-*-2432"
|
|
"l-*-2430"
|
|
"l-*-2428"
|
|
"l-*-2426"
|
|
"l-*-2424"
|
|
"l-*-2421"
|
|
"l-*-2419"
|
|
"l-*-2418"
|
|
"l-*-2416"
|
|
"l-*-2414"
|
|
"l-*-2412"
|
|
"l-*-2410"
|
|
"l-*-2409"
|
|
"l-*-2408"
|
|
"l-*-2407"
|
|
"l-*-2405"
|
|
"l-*-2404"
|
|
"l-*-2401"
|
|
"l-*-2399"
|
|
"l-*-2397"
|
|
"l-*-2395"
|
|
"l-*-2393"
|
|
"l-*-2391"
|
|
"l-*-2389"
|
|
"l-*-2388"
|
|
"l-*-2387"
|
|
"l-*-2385"
|
|
"l-*-2383"
|
|
"l-*-2382"
|
|
"l-*-2379"
|
|
"l-*-2378"
|
|
"l-*-2376"
|
|
"l-*-2374"
|
|
"l-*-2372"
|
|
"l-*-2370"
|
|
"l-*-2368"
|
|
"l-*-2366"
|
|
"l-*-2364"
|
|
"l-*-2362"
|
|
"l-*-2360"
|
|
"l-*-2357"
|
|
"l-*-2355"
|
|
"l-*-2353"
|
|
"l-*-2351"
|
|
"l-*-2349"
|
|
"l-*-2347"
|
|
"l-*-2345"
|
|
"l-*-2343"
|
|
"l-*-2341"
|
|
"l-*-2339"
|
|
"l-*-2337"
|
|
"l-*-2335"
|
|
"l-*-2333"
|
|
"l-*-2331"
|
|
"l-*-2329"
|
|
"l-*-2327"
|
|
"l-*-2325"
|
|
"l-*-2323"
|
|
"l-*-2321"
|
|
"l-*-2319"
|
|
"l-*-2317"
|
|
"l-*-2315"
|
|
"l-*-2313"
|
|
"l-*-2311"
|
|
"l-*-2309"
|
|
"l-*-2307"
|
|
"l-*-2306"
|
|
"l-*-2305"
|
|
"l-*-2304"
|
|
"l-*-2303"
|
|
"l-*-2301"
|
|
"l-*-2299"
|
|
"l-*-2297"
|
|
"l-*-2294"
|
|
"l-*-2292"
|
|
"l-*-2290"
|
|
"l-*-2288"
|
|
"l-*-2286"
|
|
"l-*-2284"
|
|
"l-*-2282"
|
|
"l-*-2280"
|
|
"l-*-2278"
|
|
"l-*-2276"
|
|
"l-*-2274"
|
|
"l-*-2272"
|
|
"l-*-2270"
|
|
"l-*-2268"
|
|
"l-*-2266"
|
|
"l-*-2264"
|
|
"l-*-2262"
|
|
"l-*-2260"))
|
|
#(ribcage
|
|
(define-structure
|
|
define-expansion-accessors
|
|
define-expansion-constructors)
|
|
((top) (top) (top))
|
|
("l-*-2098"
|
|
"l-*-2097"
|
|
"l-*-2096")))
|
|
(hygiene guile)))))
|
|
rkey-27685))))
|
|
tmp-27693)
|
|
(let ((tmp-27730
|
|
($sc-dispatch args-27682 '((any any) . any))))
|
|
(if (if tmp-27730
|
|
(@apply
|
|
(lambda (a-27734 init-27735 b-27736)
|
|
(if (symbol? a-27734)
|
|
#t
|
|
(if (if (vector? a-27734)
|
|
(if (= (vector-length a-27734) 4)
|
|
(eq? (vector-ref a-27734 0)
|
|
'syntax-object)
|
|
#f)
|
|
#f)
|
|
(symbol? (vector-ref a-27734 1))
|
|
#f)))
|
|
tmp-27730)
|
|
#f)
|
|
(@apply
|
|
(lambda (a-27763 init-27764 b-27765)
|
|
(let ((tmp-27766
|
|
(symbol->keyword
|
|
(syntax->datum a-27763))))
|
|
(key-27402
|
|
b-27765
|
|
req-27683
|
|
opt-27684
|
|
(cons (list tmp-27766 a-27763 init-27764)
|
|
rkey-27685))))
|
|
tmp-27730)
|
|
(let ((tmp-27769
|
|
($sc-dispatch
|
|
args-27682
|
|
'((any any any) . any))))
|
|
(if (if tmp-27769
|
|
(@apply
|
|
(lambda (a-27773
|
|
init-27774
|
|
k-27775
|
|
b-27776)
|
|
(if (if (symbol? a-27773)
|
|
#t
|
|
(if (if (vector? a-27773)
|
|
(if (= (vector-length
|
|
a-27773)
|
|
4)
|
|
(eq? (vector-ref
|
|
a-27773
|
|
0)
|
|
'syntax-object)
|
|
#f)
|
|
#f)
|
|
(symbol?
|
|
(vector-ref a-27773 1))
|
|
#f))
|
|
(keyword? (syntax->datum k-27775))
|
|
#f))
|
|
tmp-27769)
|
|
#f)
|
|
(@apply
|
|
(lambda (a-27803 init-27804 k-27805 b-27806)
|
|
(key-27402
|
|
b-27806
|
|
req-27683
|
|
opt-27684
|
|
(cons (list k-27805 a-27803 init-27804)
|
|
rkey-27685)))
|
|
tmp-27769)
|
|
(let ((tmp-27807
|
|
($sc-dispatch args-27682 '(any))))
|
|
(if (if tmp-27807
|
|
(@apply
|
|
(lambda (aok-27811)
|
|
(eq? (syntax->datum aok-27811)
|
|
#:allow-other-keys))
|
|
tmp-27807)
|
|
#f)
|
|
(@apply
|
|
(lambda (aok-27812)
|
|
(check-27404
|
|
req-27683
|
|
opt-27684
|
|
#f
|
|
(cons #t (reverse rkey-27685))))
|
|
tmp-27807)
|
|
(let ((tmp-27815
|
|
($sc-dispatch
|
|
args-27682
|
|
'(any any any))))
|
|
(if (if tmp-27815
|
|
(@apply
|
|
(lambda (aok-27819
|
|
a-27820
|
|
b-27821)
|
|
(if (eq? (syntax->datum
|
|
aok-27819)
|
|
#:allow-other-keys)
|
|
(eq? (syntax->datum a-27820)
|
|
#:rest)
|
|
#f))
|
|
tmp-27815)
|
|
#f)
|
|
(@apply
|
|
(lambda (aok-27822 a-27823 b-27824)
|
|
(rest-27403
|
|
b-27824
|
|
req-27683
|
|
opt-27684
|
|
(cons #t (reverse rkey-27685))))
|
|
tmp-27815)
|
|
(let ((tmp-27827
|
|
($sc-dispatch
|
|
args-27682
|
|
'(any . any))))
|
|
(if (if tmp-27827
|
|
(@apply
|
|
(lambda (aok-27831 r-27832)
|
|
(if (eq? (syntax->datum
|
|
aok-27831)
|
|
#:allow-other-keys)
|
|
(if (symbol? r-27832)
|
|
#t
|
|
(if (if (vector?
|
|
r-27832)
|
|
(if (= (vector-length
|
|
r-27832)
|
|
4)
|
|
(eq? (vector-ref
|
|
r-27832
|
|
0)
|
|
'syntax-object)
|
|
#f)
|
|
#f)
|
|
(symbol?
|
|
(vector-ref
|
|
r-27832
|
|
1))
|
|
#f))
|
|
#f))
|
|
tmp-27827)
|
|
#f)
|
|
(@apply
|
|
(lambda (aok-27859 r-27860)
|
|
(rest-27403
|
|
r-27860
|
|
req-27683
|
|
opt-27684
|
|
(cons #t
|
|
(reverse rkey-27685))))
|
|
tmp-27827)
|
|
(let ((tmp-27863
|
|
($sc-dispatch
|
|
args-27682
|
|
'(any any))))
|
|
(if (if tmp-27863
|
|
(@apply
|
|
(lambda (a-27867 b-27868)
|
|
(eq? (syntax->datum
|
|
a-27867)
|
|
#:rest))
|
|
tmp-27863)
|
|
#f)
|
|
(@apply
|
|
(lambda (a-27869 b-27870)
|
|
(rest-27403
|
|
b-27870
|
|
req-27683
|
|
opt-27684
|
|
(cons #f
|
|
(reverse
|
|
rkey-27685))))
|
|
tmp-27863)
|
|
(let ((tmp-27873
|
|
(list args-27682)))
|
|
(if (@apply
|
|
(lambda (r-27875)
|
|
(if (symbol? r-27875)
|
|
#t
|
|
(if (if (vector?
|
|
r-27875)
|
|
(if (= (vector-length
|
|
r-27875)
|
|
4)
|
|
(eq? (vector-ref
|
|
r-27875
|
|
0)
|
|
'syntax-object)
|
|
#f)
|
|
#f)
|
|
(symbol?
|
|
(vector-ref
|
|
r-27875
|
|
1))
|
|
#f)))
|
|
tmp-27873)
|
|
(@apply
|
|
(lambda (r-27905)
|
|
(rest-27403
|
|
r-27905
|
|
req-27683
|
|
opt-27684
|
|
(cons #f
|
|
(reverse
|
|
rkey-27685))))
|
|
tmp-27873)
|
|
(syntax-violation
|
|
'lambda*
|
|
"invalid keyword argument list"
|
|
orig-args-27399
|
|
args-27682)))))))))))))))))))))
|
|
(rest-27403
|
|
(lambda (args-27933 req-27934 opt-27935 kw-27936)
|
|
(let ((tmp-27938 (list args-27933)))
|
|
(if (@apply
|
|
(lambda (r-27940)
|
|
(if (symbol? r-27940)
|
|
#t
|
|
(if (if (vector? r-27940)
|
|
(if (= (vector-length r-27940) 4)
|
|
(eq? (vector-ref r-27940 0) 'syntax-object)
|
|
#f)
|
|
#f)
|
|
(symbol? (vector-ref r-27940 1))
|
|
#f)))
|
|
tmp-27938)
|
|
(@apply
|
|
(lambda (r-27970)
|
|
(check-27404
|
|
req-27934
|
|
opt-27935
|
|
r-27970
|
|
kw-27936))
|
|
tmp-27938)
|
|
(syntax-violation
|
|
'lambda*
|
|
"invalid rest argument"
|
|
orig-args-27399
|
|
args-27933)))))
|
|
(check-27404
|
|
(lambda (req-27974 opt-27975 rest-27976 kw-27977)
|
|
(if (distinct-bound-ids?-6576
|
|
(append
|
|
req-27974
|
|
(map car opt-27975)
|
|
(if rest-27976 (list rest-27976) '())
|
|
(if (pair? kw-27977)
|
|
(map cadr (cdr kw-27977))
|
|
'())))
|
|
(values req-27974 opt-27975 rest-27976 kw-27977)
|
|
(syntax-violation
|
|
'lambda*
|
|
"duplicate identifier in argument list"
|
|
orig-args-27399)))))
|
|
(req-27400 orig-args-27399 '()))))
|
|
(expand-lambda-case-6597
|
|
(lambda (e-28093
|
|
r-28094
|
|
w-28095
|
|
s-28096
|
|
mod-28097
|
|
get-formals-28098
|
|
clauses-28099)
|
|
(letrec*
|
|
((parse-req-28100
|
|
(lambda (req-28231
|
|
opt-28232
|
|
rest-28233
|
|
kw-28234
|
|
body-28235)
|
|
(let ((vars-28236 (map gen-var-6599 req-28231))
|
|
(labels-28237 (gen-labels-6552 req-28231)))
|
|
(let ((r*-28238
|
|
(extend-var-env-6544
|
|
labels-28237
|
|
vars-28236
|
|
r-28094))
|
|
(w*-28239
|
|
(make-binding-wrap-6563
|
|
req-28231
|
|
labels-28237
|
|
w-28095)))
|
|
(parse-opt-28101
|
|
(map syntax->datum req-28231)
|
|
opt-28232
|
|
rest-28233
|
|
kw-28234
|
|
body-28235
|
|
(reverse vars-28236)
|
|
r*-28238
|
|
w*-28239
|
|
'()
|
|
'())))))
|
|
(parse-opt-28101
|
|
(lambda (req-28425
|
|
opt-28426
|
|
rest-28427
|
|
kw-28428
|
|
body-28429
|
|
vars-28430
|
|
r*-28431
|
|
w*-28432
|
|
out-28433
|
|
inits-28434)
|
|
(if (pair? opt-28426)
|
|
(let ((tmp-28435 (car opt-28426)))
|
|
(let ((tmp-28436 ($sc-dispatch tmp-28435 '(any any))))
|
|
(if tmp-28436
|
|
(@apply
|
|
(lambda (id-28438 i-28439)
|
|
(let ((v-28440
|
|
(let ((id-28448
|
|
(if (if (vector? id-28438)
|
|
(if (= (vector-length
|
|
id-28438)
|
|
4)
|
|
(eq? (vector-ref
|
|
id-28438
|
|
0)
|
|
'syntax-object)
|
|
#f)
|
|
#f)
|
|
(vector-ref id-28438 1)
|
|
id-28438)))
|
|
(gensym
|
|
(string-append
|
|
(symbol->string id-28448)
|
|
"-")))))
|
|
(let ((l-28441 (gen-labels-6552 (list v-28440))))
|
|
(let ((r**-28442
|
|
(extend-var-env-6544
|
|
l-28441
|
|
(list v-28440)
|
|
r*-28431)))
|
|
(let ((w**-28443
|
|
(make-binding-wrap-6563
|
|
(list id-28438)
|
|
l-28441
|
|
w*-28432)))
|
|
(parse-opt-28101
|
|
req-28425
|
|
(cdr opt-28426)
|
|
rest-28427
|
|
kw-28428
|
|
body-28429
|
|
(cons v-28440 vars-28430)
|
|
r**-28442
|
|
w**-28443
|
|
(cons (syntax->datum id-28438) out-28433)
|
|
(cons (expand-6585
|
|
i-28439
|
|
r*-28431
|
|
w*-28432
|
|
mod-28097)
|
|
inits-28434)))))))
|
|
tmp-28436)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
tmp-28435))))
|
|
(if rest-28427
|
|
(let ((v-28686
|
|
(let ((id-28696
|
|
(if (if (vector? rest-28427)
|
|
(if (= (vector-length rest-28427) 4)
|
|
(eq? (vector-ref rest-28427 0)
|
|
'syntax-object)
|
|
#f)
|
|
#f)
|
|
(vector-ref rest-28427 1)
|
|
rest-28427)))
|
|
(gensym
|
|
(string-append
|
|
(symbol->string id-28696)
|
|
"-")))))
|
|
(let ((l-28687 (gen-labels-6552 (list v-28686))))
|
|
(let ((r*-28688
|
|
(extend-var-env-6544
|
|
l-28687
|
|
(list v-28686)
|
|
r*-28431)))
|
|
(let ((w*-28689
|
|
(make-binding-wrap-6563
|
|
(list rest-28427)
|
|
l-28687
|
|
w*-28432)))
|
|
(parse-kw-28102
|
|
req-28425
|
|
(if (pair? out-28433) (reverse out-28433) #f)
|
|
(syntax->datum rest-28427)
|
|
(if (pair? kw-28428) (cdr kw-28428) kw-28428)
|
|
body-28429
|
|
(cons v-28686 vars-28430)
|
|
r*-28688
|
|
w*-28689
|
|
(if (pair? kw-28428) (car kw-28428) #f)
|
|
'()
|
|
inits-28434)))))
|
|
(parse-kw-28102
|
|
req-28425
|
|
(if (pair? out-28433) (reverse out-28433) #f)
|
|
#f
|
|
(if (pair? kw-28428) (cdr kw-28428) kw-28428)
|
|
body-28429
|
|
vars-28430
|
|
r*-28431
|
|
w*-28432
|
|
(if (pair? kw-28428) (car kw-28428) #f)
|
|
'()
|
|
inits-28434)))))
|
|
(parse-kw-28102
|
|
(lambda (req-28867
|
|
opt-28868
|
|
rest-28869
|
|
kw-28870
|
|
body-28871
|
|
vars-28872
|
|
r*-28873
|
|
w*-28874
|
|
aok-28875
|
|
out-28876
|
|
inits-28877)
|
|
(if (pair? kw-28870)
|
|
(let ((tmp-28878 (car kw-28870)))
|
|
(let ((tmp-28879
|
|
($sc-dispatch tmp-28878 '(any any any))))
|
|
(if tmp-28879
|
|
(@apply
|
|
(lambda (k-28881 id-28882 i-28883)
|
|
(let ((v-28884
|
|
(let ((id-28892
|
|
(if (if (vector? id-28882)
|
|
(if (= (vector-length
|
|
id-28882)
|
|
4)
|
|
(eq? (vector-ref
|
|
id-28882
|
|
0)
|
|
'syntax-object)
|
|
#f)
|
|
#f)
|
|
(vector-ref id-28882 1)
|
|
id-28882)))
|
|
(gensym
|
|
(string-append
|
|
(symbol->string id-28892)
|
|
"-")))))
|
|
(let ((l-28885 (gen-labels-6552 (list v-28884))))
|
|
(let ((r**-28886
|
|
(extend-var-env-6544
|
|
l-28885
|
|
(list v-28884)
|
|
r*-28873)))
|
|
(let ((w**-28887
|
|
(make-binding-wrap-6563
|
|
(list id-28882)
|
|
l-28885
|
|
w*-28874)))
|
|
(parse-kw-28102
|
|
req-28867
|
|
opt-28868
|
|
rest-28869
|
|
(cdr kw-28870)
|
|
body-28871
|
|
(cons v-28884 vars-28872)
|
|
r**-28886
|
|
w**-28887
|
|
aok-28875
|
|
(cons (list (syntax->datum k-28881)
|
|
(syntax->datum id-28882)
|
|
v-28884)
|
|
out-28876)
|
|
(cons (expand-6585
|
|
i-28883
|
|
r*-28873
|
|
w*-28874
|
|
mod-28097)
|
|
inits-28877)))))))
|
|
tmp-28879)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
tmp-28878))))
|
|
(parse-body-28103
|
|
req-28867
|
|
opt-28868
|
|
rest-28869
|
|
(if (if aok-28875 aok-28875 (pair? out-28876))
|
|
(cons aok-28875 (reverse out-28876))
|
|
#f)
|
|
body-28871
|
|
(reverse vars-28872)
|
|
r*-28873
|
|
w*-28874
|
|
(reverse inits-28877)
|
|
'()))))
|
|
(parse-body-28103
|
|
(lambda (req-29139
|
|
opt-29140
|
|
rest-29141
|
|
kw-29142
|
|
body-29143
|
|
vars-29144
|
|
r*-29145
|
|
w*-29146
|
|
inits-29147
|
|
meta-29148)
|
|
(let ((tmp-29150
|
|
($sc-dispatch body-29143 '(any any . each-any))))
|
|
(if (if tmp-29150
|
|
(@apply
|
|
(lambda (docstring-29154 e1-29155 e2-29156)
|
|
(string? (syntax->datum docstring-29154)))
|
|
tmp-29150)
|
|
#f)
|
|
(@apply
|
|
(lambda (docstring-29157 e1-29158 e2-29159)
|
|
(parse-body-28103
|
|
req-29139
|
|
opt-29140
|
|
rest-29141
|
|
kw-29142
|
|
(cons e1-29158 e2-29159)
|
|
vars-29144
|
|
r*-29145
|
|
w*-29146
|
|
inits-29147
|
|
(append
|
|
meta-29148
|
|
(list (cons 'documentation
|
|
(syntax->datum docstring-29157))))))
|
|
tmp-29150)
|
|
(let ((tmp-29160
|
|
($sc-dispatch
|
|
body-29143
|
|
'(#(vector #(each (any . any)))
|
|
any
|
|
.
|
|
each-any))))
|
|
(if tmp-29160
|
|
(@apply
|
|
(lambda (k-29164 v-29165 e1-29166 e2-29167)
|
|
(parse-body-28103
|
|
req-29139
|
|
opt-29140
|
|
rest-29141
|
|
kw-29142
|
|
(cons e1-29166 e2-29167)
|
|
vars-29144
|
|
r*-29145
|
|
w*-29146
|
|
inits-29147
|
|
(append
|
|
meta-29148
|
|
(syntax->datum (map cons k-29164 v-29165)))))
|
|
tmp-29160)
|
|
(let ((tmp-29168
|
|
($sc-dispatch body-29143 '(any . each-any))))
|
|
(if tmp-29168
|
|
(@apply
|
|
(lambda (e1-29172 e2-29173)
|
|
(values
|
|
meta-29148
|
|
req-29139
|
|
opt-29140
|
|
rest-29141
|
|
kw-29142
|
|
inits-29147
|
|
vars-29144
|
|
(expand-body-6589
|
|
(cons e1-29172 e2-29173)
|
|
(wrap-6578
|
|
(begin
|
|
(if (if (pair? e-28093) s-28096 #f)
|
|
(set-source-properties!
|
|
e-28093
|
|
s-28096))
|
|
e-28093)
|
|
w-28095
|
|
mod-28097)
|
|
r*-29145
|
|
w*-29146
|
|
mod-28097)))
|
|
tmp-29168)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
body-29143))))))))))
|
|
(let ((tmp-28105 ($sc-dispatch clauses-28099 '())))
|
|
(if tmp-28105
|
|
(@apply (lambda () (values '() #f)) tmp-28105)
|
|
(let ((tmp-28109
|
|
($sc-dispatch
|
|
clauses-28099
|
|
'((any any . each-any)
|
|
.
|
|
#(each (any any . each-any))))))
|
|
(if tmp-28109
|
|
(@apply
|
|
(lambda (args-28113
|
|
e1-28114
|
|
e2-28115
|
|
args*-28116
|
|
e1*-28117
|
|
e2*-28118)
|
|
(call-with-values
|
|
(lambda () (get-formals-28098 args-28113))
|
|
(lambda (req-28119 opt-28120 rest-28121 kw-28122)
|
|
(call-with-values
|
|
(lambda ()
|
|
(parse-req-28100
|
|
req-28119
|
|
opt-28120
|
|
rest-28121
|
|
kw-28122
|
|
(cons e1-28114 e2-28115)))
|
|
(lambda (meta-28187
|
|
req-28188
|
|
opt-28189
|
|
rest-28190
|
|
kw-28191
|
|
inits-28192
|
|
vars-28193
|
|
body-28194)
|
|
(call-with-values
|
|
(lambda ()
|
|
(expand-lambda-case-6597
|
|
e-28093
|
|
r-28094
|
|
w-28095
|
|
s-28096
|
|
mod-28097
|
|
get-formals-28098
|
|
(map (lambda (tmp-4949-28195
|
|
tmp-4948-28196
|
|
tmp-4947-28197)
|
|
(cons tmp-4947-28197
|
|
(cons tmp-4948-28196
|
|
tmp-4949-28195)))
|
|
e2*-28118
|
|
e1*-28117
|
|
args*-28116)))
|
|
(lambda (meta*-28198 else*-28199)
|
|
(values
|
|
(append meta-28187 meta*-28198)
|
|
(make-struct/no-tail
|
|
(vector-ref %expanded-vtables 14)
|
|
s-28096
|
|
req-28188
|
|
opt-28189
|
|
rest-28190
|
|
kw-28191
|
|
inits-28192
|
|
vars-28193
|
|
body-28194
|
|
else*-28199)))))))))
|
|
tmp-28109)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
clauses-28099))))))))
|
|
(strip-6598
|
|
(lambda (x-29210 w-29211)
|
|
(if (memq 'top (car w-29211))
|
|
x-29210
|
|
(letrec*
|
|
((f-29212
|
|
(lambda (x-29215)
|
|
(if (if (vector? x-29215)
|
|
(if (= (vector-length x-29215) 4)
|
|
(eq? (vector-ref x-29215 0) 'syntax-object)
|
|
#f)
|
|
#f)
|
|
(strip-6598
|
|
(vector-ref x-29215 1)
|
|
(vector-ref x-29215 2))
|
|
(if (pair? x-29215)
|
|
(let ((a-29234 (f-29212 (car x-29215)))
|
|
(d-29235 (f-29212 (cdr x-29215))))
|
|
(if (if (eq? a-29234 (car x-29215))
|
|
(eq? d-29235 (cdr x-29215))
|
|
#f)
|
|
x-29215
|
|
(cons a-29234 d-29235)))
|
|
(if (vector? x-29215)
|
|
(let ((old-29238 (vector->list x-29215)))
|
|
(let ((new-29239 (map f-29212 old-29238)))
|
|
(letrec*
|
|
((lp-29240
|
|
(lambda (l1-29316 l2-29317)
|
|
(if (null? l1-29316)
|
|
x-29215
|
|
(if (eq? (car l1-29316) (car l2-29317))
|
|
(lp-29240 (cdr l1-29316) (cdr l2-29317))
|
|
(list->vector new-29239))))))
|
|
(lp-29240 old-29238 new-29239))))
|
|
x-29215))))))
|
|
(f-29212 x-29210)))))
|
|
(gen-var-6599
|
|
(lambda (id-28243)
|
|
(let ((id-28244
|
|
(if (if (vector? id-28243)
|
|
(if (= (vector-length id-28243) 4)
|
|
(eq? (vector-ref id-28243 0) 'syntax-object)
|
|
#f)
|
|
#f)
|
|
(vector-ref id-28243 1)
|
|
id-28243)))
|
|
(gensym
|
|
(string-append (symbol->string id-28244) "-"))))))
|
|
(begin
|
|
(set! session-id-6510
|
|
(let ((v-17707
|
|
(module-variable
|
|
(current-module)
|
|
'syntax-session-id)))
|
|
(lambda () ((variable-ref v-17707)))))
|
|
(set! transformer-environment-6571
|
|
(make-fluid
|
|
(lambda (k-16750)
|
|
(error "called outside the dynamic extent of a syntax transformer"))))
|
|
(module-define!
|
|
(current-module)
|
|
'letrec-syntax
|
|
(make-syntax-transformer
|
|
'letrec-syntax
|
|
'local-syntax
|
|
#t))
|
|
(module-define!
|
|
(current-module)
|
|
'let-syntax
|
|
(make-syntax-transformer
|
|
'let-syntax
|
|
'local-syntax
|
|
#f))
|
|
(global-extend-6547
|
|
'core
|
|
'syntax-parameterize
|
|
(lambda (e-6720 r-6721 w-6722 s-6723 mod-6724)
|
|
(let ((tmp-6726
|
|
($sc-dispatch
|
|
e-6720
|
|
'(_ #(each (any any)) any . each-any))))
|
|
(if (if tmp-6726
|
|
(@apply
|
|
(lambda (var-6730 val-6731 e1-6732 e2-6733)
|
|
(valid-bound-ids?-6575 var-6730))
|
|
tmp-6726)
|
|
#f)
|
|
(@apply
|
|
(lambda (var-6811 val-6812 e1-6813 e2-6814)
|
|
(let ((names-6815
|
|
(map (lambda (x-6865)
|
|
(id-var-name-6568 x-6865 w-6722))
|
|
var-6811)))
|
|
(begin
|
|
(for-each
|
|
(lambda (id-6816 n-6817)
|
|
(let ((atom-key-6818
|
|
(car (let ((t-6825 (assq n-6817 r-6721)))
|
|
(if t-6825
|
|
(cdr t-6825)
|
|
(if (symbol? n-6817)
|
|
(let ((t-6830
|
|
(get-global-definition-hook-6512
|
|
n-6817
|
|
mod-6724)))
|
|
(if t-6830 t-6830 '(global)))
|
|
'(displaced-lexical)))))))
|
|
(if (eqv? atom-key-6818 'displaced-lexical)
|
|
(syntax-violation
|
|
'syntax-parameterize
|
|
"identifier out of context"
|
|
e-6720
|
|
(wrap-6578
|
|
(begin
|
|
(if (if (pair? id-6816) s-6723 #f)
|
|
(set-source-properties! id-6816 s-6723))
|
|
id-6816)
|
|
w-6722
|
|
mod-6724)))))
|
|
var-6811
|
|
names-6815)
|
|
(expand-body-6589
|
|
(cons e1-6813 e2-6814)
|
|
(wrap-6578
|
|
(begin
|
|
(if (if (pair? e-6720) s-6723 #f)
|
|
(set-source-properties! e-6720 s-6723))
|
|
e-6720)
|
|
w-6722
|
|
mod-6724)
|
|
(extend-env-6543
|
|
names-6815
|
|
(let ((trans-r-6951 (macros-only-env-6545 r-6721)))
|
|
(map (lambda (x-6952)
|
|
(cons 'macro
|
|
(eval-local-transformer-6591
|
|
(expand-6585
|
|
x-6952
|
|
trans-r-6951
|
|
w-6722
|
|
mod-6724)
|
|
mod-6724)))
|
|
val-6812))
|
|
r-6721)
|
|
w-6722
|
|
mod-6724))))
|
|
tmp-6726)
|
|
(syntax-violation
|
|
'syntax-parameterize
|
|
"bad syntax"
|
|
(wrap-6578
|
|
(begin
|
|
(if (if (pair? e-6720) s-6723 #f)
|
|
(set-source-properties! e-6720 s-6723))
|
|
e-6720)
|
|
w-6722
|
|
mod-6724))))))
|
|
(module-define!
|
|
(current-module)
|
|
'quote
|
|
(make-syntax-transformer
|
|
'quote
|
|
'core
|
|
(lambda (e-7161 r-7162 w-7163 s-7164 mod-7165)
|
|
(let ((tmp-7167 ($sc-dispatch e-7161 '(_ any))))
|
|
(if tmp-7167
|
|
(@apply
|
|
(lambda (e-7170)
|
|
(let ((exp-7174 (strip-6598 e-7170 w-7163)))
|
|
(make-struct/no-tail
|
|
(vector-ref %expanded-vtables 1)
|
|
s-7164
|
|
exp-7174)))
|
|
tmp-7167)
|
|
(syntax-violation
|
|
'quote
|
|
"bad syntax"
|
|
(wrap-6578
|
|
(begin
|
|
(if (if (pair? e-7161) s-7164 #f)
|
|
(set-source-properties! e-7161 s-7164))
|
|
e-7161)
|
|
w-7163
|
|
mod-7165)))))))
|
|
(global-extend-6547
|
|
'core
|
|
'syntax
|
|
(letrec*
|
|
((gen-syntax-7394
|
|
(lambda (src-7496
|
|
e-7497
|
|
r-7498
|
|
maps-7499
|
|
ellipsis?-7500
|
|
mod-7501)
|
|
(if (if (symbol? e-7497)
|
|
#t
|
|
(if (if (vector? e-7497)
|
|
(if (= (vector-length e-7497) 4)
|
|
(eq? (vector-ref e-7497 0) 'syntax-object)
|
|
#f)
|
|
#f)
|
|
(symbol? (vector-ref e-7497 1))
|
|
#f))
|
|
(let ((label-7528 (id-var-name-6568 e-7497 '(()))))
|
|
(let ((b-7529
|
|
(let ((t-7536 (assq label-7528 r-7498)))
|
|
(if t-7536
|
|
(cdr t-7536)
|
|
(if (symbol? label-7528)
|
|
(let ((t-7542
|
|
(get-global-definition-hook-6512
|
|
label-7528
|
|
mod-7501)))
|
|
(if t-7542 t-7542 '(global)))
|
|
'(displaced-lexical))))))
|
|
(if (eq? (car b-7529) 'syntax)
|
|
(call-with-values
|
|
(lambda ()
|
|
(let ((var.lev-7551 (cdr b-7529)))
|
|
(gen-ref-7395
|
|
src-7496
|
|
(car var.lev-7551)
|
|
(cdr var.lev-7551)
|
|
maps-7499)))
|
|
(lambda (var-7555 maps-7556)
|
|
(values (list 'ref var-7555) maps-7556)))
|
|
(if (ellipsis?-7500 e-7497)
|
|
(syntax-violation
|
|
'syntax
|
|
"misplaced ellipsis"
|
|
src-7496)
|
|
(values (list 'quote e-7497) maps-7499)))))
|
|
(let ((tmp-7558 ($sc-dispatch e-7497 '(any any))))
|
|
(if (if tmp-7558
|
|
(@apply
|
|
(lambda (dots-7562 e-7563)
|
|
(ellipsis?-7500 dots-7562))
|
|
tmp-7558)
|
|
#f)
|
|
(@apply
|
|
(lambda (dots-7564 e-7565)
|
|
(gen-syntax-7394
|
|
src-7496
|
|
e-7565
|
|
r-7498
|
|
maps-7499
|
|
(lambda (x-7566) #f)
|
|
mod-7501))
|
|
tmp-7558)
|
|
(let ((tmp-7567 ($sc-dispatch e-7497 '(any any . any))))
|
|
(if (if tmp-7567
|
|
(@apply
|
|
(lambda (x-7571 dots-7572 y-7573)
|
|
(ellipsis?-7500 dots-7572))
|
|
tmp-7567)
|
|
#f)
|
|
(@apply
|
|
(lambda (x-7574 dots-7575 y-7576)
|
|
(letrec*
|
|
((f-7577
|
|
(lambda (y-7585 k-7586)
|
|
(let ((tmp-7588
|
|
($sc-dispatch
|
|
y-7585
|
|
'(any . any))))
|
|
(if (if tmp-7588
|
|
(@apply
|
|
(lambda (dots-7592 y-7593)
|
|
(ellipsis?-7500 dots-7592))
|
|
tmp-7588)
|
|
#f)
|
|
(@apply
|
|
(lambda (dots-7594 y-7595)
|
|
(f-7577
|
|
y-7595
|
|
(lambda (maps-7596)
|
|
(call-with-values
|
|
(lambda ()
|
|
(k-7586
|
|
(cons '() maps-7596)))
|
|
(lambda (x-7597 maps-7598)
|
|
(if (null? (car maps-7598))
|
|
(syntax-violation
|
|
'syntax
|
|
"extra ellipsis"
|
|
src-7496)
|
|
(values
|
|
(let ((map-env-7602
|
|
(car maps-7598)))
|
|
(list 'apply
|
|
'(primitive
|
|
append)
|
|
(gen-map-7397
|
|
x-7597
|
|
map-env-7602)))
|
|
(cdr maps-7598))))))))
|
|
tmp-7588)
|
|
(call-with-values
|
|
(lambda ()
|
|
(gen-syntax-7394
|
|
src-7496
|
|
y-7585
|
|
r-7498
|
|
maps-7499
|
|
ellipsis?-7500
|
|
mod-7501))
|
|
(lambda (y-7605 maps-7606)
|
|
(call-with-values
|
|
(lambda () (k-7586 maps-7606))
|
|
(lambda (x-7607 maps-7608)
|
|
(values
|
|
(if (equal? y-7605 ''())
|
|
x-7607
|
|
(list 'append
|
|
x-7607
|
|
y-7605))
|
|
maps-7608))))))))))
|
|
(f-7577
|
|
y-7576
|
|
(lambda (maps-7580)
|
|
(call-with-values
|
|
(lambda ()
|
|
(gen-syntax-7394
|
|
src-7496
|
|
x-7574
|
|
r-7498
|
|
(cons '() maps-7580)
|
|
ellipsis?-7500
|
|
mod-7501))
|
|
(lambda (x-7581 maps-7582)
|
|
(if (null? (car maps-7582))
|
|
(syntax-violation
|
|
'syntax
|
|
"extra ellipsis"
|
|
src-7496)
|
|
(values
|
|
(gen-map-7397
|
|
x-7581
|
|
(car maps-7582))
|
|
(cdr maps-7582)))))))))
|
|
tmp-7567)
|
|
(let ((tmp-7624 ($sc-dispatch e-7497 '(any . any))))
|
|
(if tmp-7624
|
|
(@apply
|
|
(lambda (x-7628 y-7629)
|
|
(call-with-values
|
|
(lambda ()
|
|
(gen-syntax-7394
|
|
src-7496
|
|
x-7628
|
|
r-7498
|
|
maps-7499
|
|
ellipsis?-7500
|
|
mod-7501))
|
|
(lambda (x-7630 maps-7631)
|
|
(call-with-values
|
|
(lambda ()
|
|
(gen-syntax-7394
|
|
src-7496
|
|
y-7629
|
|
r-7498
|
|
maps-7631
|
|
ellipsis?-7500
|
|
mod-7501))
|
|
(lambda (y-7632 maps-7633)
|
|
(values
|
|
(let ((atom-key-7638 (car y-7632)))
|
|
(if (eqv? atom-key-7638 'quote)
|
|
(if (eq? (car x-7630) 'quote)
|
|
(list 'quote
|
|
(cons (car (cdr x-7630))
|
|
(car (cdr y-7632))))
|
|
(if (eq? (car (cdr y-7632))
|
|
'())
|
|
(list 'list x-7630)
|
|
(list 'cons x-7630 y-7632)))
|
|
(if (eqv? atom-key-7638 'list)
|
|
(cons 'list
|
|
(cons x-7630
|
|
(cdr y-7632)))
|
|
(list 'cons x-7630 y-7632))))
|
|
maps-7633))))))
|
|
tmp-7624)
|
|
(let ((tmp-7667
|
|
($sc-dispatch
|
|
e-7497
|
|
'#(vector (any . each-any)))))
|
|
(if tmp-7667
|
|
(@apply
|
|
(lambda (e1-7671 e2-7672)
|
|
(call-with-values
|
|
(lambda ()
|
|
(gen-syntax-7394
|
|
src-7496
|
|
(cons e1-7671 e2-7672)
|
|
r-7498
|
|
maps-7499
|
|
ellipsis?-7500
|
|
mod-7501))
|
|
(lambda (e-7673 maps-7674)
|
|
(values
|
|
(if (eq? (car e-7673) 'list)
|
|
(cons 'vector (cdr e-7673))
|
|
(if (eq? (car e-7673) 'quote)
|
|
(list 'quote
|
|
(list->vector
|
|
(car (cdr e-7673))))
|
|
(list 'list->vector e-7673)))
|
|
maps-7674))))
|
|
tmp-7667)
|
|
(values
|
|
(list 'quote e-7497)
|
|
maps-7499))))))))))))
|
|
(gen-ref-7395
|
|
(lambda (src-7701 var-7702 level-7703 maps-7704)
|
|
(if (= level-7703 0)
|
|
(values var-7702 maps-7704)
|
|
(if (null? maps-7704)
|
|
(syntax-violation
|
|
'syntax
|
|
"missing ellipsis"
|
|
src-7701)
|
|
(call-with-values
|
|
(lambda ()
|
|
(gen-ref-7395
|
|
src-7701
|
|
var-7702
|
|
(#{1-}# level-7703)
|
|
(cdr maps-7704)))
|
|
(lambda (outer-var-7705 outer-maps-7706)
|
|
(let ((b-7707 (assq outer-var-7705 (car maps-7704))))
|
|
(if b-7707
|
|
(values (cdr b-7707) maps-7704)
|
|
(let ((inner-var-7709
|
|
(gensym
|
|
(string-append
|
|
(symbol->string 'tmp)
|
|
"-"))))
|
|
(values
|
|
inner-var-7709
|
|
(cons (cons (cons outer-var-7705 inner-var-7709)
|
|
(car maps-7704))
|
|
outer-maps-7706)))))))))))
|
|
(gen-map-7397
|
|
(lambda (e-7723 map-env-7724)
|
|
(let ((formals-7725 (map cdr map-env-7724))
|
|
(actuals-7726
|
|
(map (lambda (x-7728) (list 'ref (car x-7728)))
|
|
map-env-7724)))
|
|
(if (eq? (car e-7723) 'ref)
|
|
(car actuals-7726)
|
|
(if (and-map
|
|
(lambda (x-7729)
|
|
(if (eq? (car x-7729) 'ref)
|
|
(memq (car (cdr x-7729)) formals-7725)
|
|
#f))
|
|
(cdr e-7723))
|
|
(cons 'map
|
|
(cons (list 'primitive (car e-7723))
|
|
(map (let ((r-7731
|
|
(map cons
|
|
formals-7725
|
|
actuals-7726)))
|
|
(lambda (x-7732)
|
|
(cdr (assq (car (cdr x-7732))
|
|
r-7731))))
|
|
(cdr e-7723))))
|
|
(cons 'map
|
|
(cons (list 'lambda formals-7725 e-7723)
|
|
actuals-7726)))))))
|
|
(regen-7401
|
|
(lambda (x-7734)
|
|
(let ((atom-key-7735 (car x-7734)))
|
|
(if (eqv? atom-key-7735 'ref)
|
|
(let ((name-7745 (car (cdr x-7734)))
|
|
(var-7746 (car (cdr x-7734))))
|
|
(make-struct/no-tail
|
|
(vector-ref %expanded-vtables 3)
|
|
#f
|
|
name-7745
|
|
var-7746))
|
|
(if (eqv? atom-key-7735 'primitive)
|
|
(let ((name-7758 (car (cdr x-7734))))
|
|
(if (equal? (module-name (current-module)) '(guile))
|
|
(make-struct/no-tail
|
|
(vector-ref %expanded-vtables 7)
|
|
#f
|
|
name-7758)
|
|
(make-struct/no-tail
|
|
(vector-ref %expanded-vtables 5)
|
|
#f
|
|
'(guile)
|
|
name-7758
|
|
#f)))
|
|
(if (eqv? atom-key-7735 'quote)
|
|
(let ((exp-7776 (car (cdr x-7734))))
|
|
(make-struct/no-tail
|
|
(vector-ref %expanded-vtables 1)
|
|
#f
|
|
exp-7776))
|
|
(if (eqv? atom-key-7735 'lambda)
|
|
(if (list? (car (cdr x-7734)))
|
|
(let ((req-7787 (car (cdr x-7734)))
|
|
(vars-7789 (car (cdr x-7734)))
|
|
(exp-7791
|
|
(regen-7401 (car (cdr (cdr x-7734))))))
|
|
(let ((body-7796
|
|
(make-struct/no-tail
|
|
(vector-ref %expanded-vtables 14)
|
|
#f
|
|
req-7787
|
|
#f
|
|
#f
|
|
#f
|
|
'()
|
|
vars-7789
|
|
exp-7791
|
|
#f)))
|
|
(make-struct/no-tail
|
|
(vector-ref %expanded-vtables 13)
|
|
#f
|
|
'()
|
|
body-7796)))
|
|
(error "how did we get here" x-7734))
|
|
(let ((fun-exp-7812
|
|
(let ((name-7821 (car x-7734)))
|
|
(if (equal?
|
|
(module-name (current-module))
|
|
'(guile))
|
|
(make-struct/no-tail
|
|
(vector-ref %expanded-vtables 7)
|
|
#f
|
|
name-7821)
|
|
(make-struct/no-tail
|
|
(vector-ref %expanded-vtables 5)
|
|
#f
|
|
'(guile)
|
|
name-7821
|
|
#f))))
|
|
(arg-exps-7813 (map regen-7401 (cdr x-7734))))
|
|
(make-struct/no-tail
|
|
(vector-ref %expanded-vtables 11)
|
|
#f
|
|
fun-exp-7812
|
|
arg-exps-7813))))))))))
|
|
(lambda (e-7402 r-7403 w-7404 s-7405 mod-7406)
|
|
(let ((e-7407
|
|
(wrap-6578
|
|
(begin
|
|
(if (if (pair? e-7402) s-7405 #f)
|
|
(set-source-properties! e-7402 s-7405))
|
|
e-7402)
|
|
w-7404
|
|
mod-7406)))
|
|
(let ((tmp-7409 ($sc-dispatch e-7407 '(_ any))))
|
|
(if tmp-7409
|
|
(@apply
|
|
(lambda (x-7434)
|
|
(call-with-values
|
|
(lambda ()
|
|
(gen-syntax-7394
|
|
e-7407
|
|
x-7434
|
|
r-7403
|
|
'()
|
|
ellipsis?-6593
|
|
mod-7406))
|
|
(lambda (e-7488 maps-7489) (regen-7401 e-7488))))
|
|
tmp-7409)
|
|
(syntax-violation
|
|
'syntax
|
|
"bad `syntax' form"
|
|
e-7407)))))))
|
|
(global-extend-6547
|
|
'core
|
|
'lambda
|
|
(lambda (e-8009 r-8010 w-8011 s-8012 mod-8013)
|
|
(let ((tmp-8015
|
|
($sc-dispatch e-8009 '(_ any any . each-any))))
|
|
(if tmp-8015
|
|
(@apply
|
|
(lambda (args-8019 e1-8020 e2-8021)
|
|
(call-with-values
|
|
(lambda () (lambda-formals-6594 args-8019))
|
|
(lambda (req-8024 opt-8025 rest-8026 kw-8027)
|
|
(letrec*
|
|
((lp-8028
|
|
(lambda (body-8031 meta-8032)
|
|
(let ((tmp-8034
|
|
($sc-dispatch
|
|
body-8031
|
|
'(any any . each-any))))
|
|
(if (if tmp-8034
|
|
(@apply
|
|
(lambda (docstring-8038 e1-8039 e2-8040)
|
|
(string?
|
|
(syntax->datum docstring-8038)))
|
|
tmp-8034)
|
|
#f)
|
|
(@apply
|
|
(lambda (docstring-8041 e1-8042 e2-8043)
|
|
(lp-8028
|
|
(cons e1-8042 e2-8043)
|
|
(append
|
|
meta-8032
|
|
(list (cons 'documentation
|
|
(syntax->datum
|
|
docstring-8041))))))
|
|
tmp-8034)
|
|
(let ((tmp-8044
|
|
($sc-dispatch
|
|
body-8031
|
|
'(#(vector #(each (any . any)))
|
|
any
|
|
.
|
|
each-any))))
|
|
(if tmp-8044
|
|
(@apply
|
|
(lambda (k-8048 v-8049 e1-8050 e2-8051)
|
|
(lp-8028
|
|
(cons e1-8050 e2-8051)
|
|
(append
|
|
meta-8032
|
|
(syntax->datum
|
|
(map cons k-8048 v-8049)))))
|
|
tmp-8044)
|
|
(expand-simple-lambda-6595
|
|
e-8009
|
|
r-8010
|
|
w-8011
|
|
s-8012
|
|
mod-8013
|
|
req-8024
|
|
rest-8026
|
|
meta-8032
|
|
body-8031))))))))
|
|
(lp-8028 (cons e1-8020 e2-8021) '())))))
|
|
tmp-8015)
|
|
(syntax-violation 'lambda "bad lambda" e-8009)))))
|
|
(global-extend-6547
|
|
'core
|
|
'lambda*
|
|
(lambda (e-8340 r-8341 w-8342 s-8343 mod-8344)
|
|
(let ((tmp-8346
|
|
($sc-dispatch e-8340 '(_ any any . each-any))))
|
|
(if tmp-8346
|
|
(@apply
|
|
(lambda (args-8350 e1-8351 e2-8352)
|
|
(call-with-values
|
|
(lambda ()
|
|
(expand-lambda-case-6597
|
|
e-8340
|
|
r-8341
|
|
w-8342
|
|
s-8343
|
|
mod-8344
|
|
lambda*-formals-6596
|
|
(list (cons args-8350 (cons e1-8351 e2-8352)))))
|
|
(lambda (meta-8355 lcase-8356)
|
|
(make-struct/no-tail
|
|
(vector-ref %expanded-vtables 13)
|
|
s-8343
|
|
meta-8355
|
|
lcase-8356))))
|
|
tmp-8346)
|
|
(syntax-violation 'lambda "bad lambda*" e-8340)))))
|
|
(global-extend-6547
|
|
'core
|
|
'case-lambda
|
|
(lambda (e-8526 r-8527 w-8528 s-8529 mod-8530)
|
|
(let ((tmp-8532
|
|
($sc-dispatch
|
|
e-8526
|
|
'(_ (any any . each-any)
|
|
.
|
|
#(each (any any . each-any))))))
|
|
(if tmp-8532
|
|
(@apply
|
|
(lambda (args-8536
|
|
e1-8537
|
|
e2-8538
|
|
args*-8539
|
|
e1*-8540
|
|
e2*-8541)
|
|
(call-with-values
|
|
(lambda ()
|
|
(expand-lambda-case-6597
|
|
e-8526
|
|
r-8527
|
|
w-8528
|
|
s-8529
|
|
mod-8530
|
|
lambda-formals-6594
|
|
(cons (cons args-8536 (cons e1-8537 e2-8538))
|
|
(map (lambda (tmp-5448-8544
|
|
tmp-5447-8545
|
|
tmp-5446-8546)
|
|
(cons tmp-5446-8546
|
|
(cons tmp-5447-8545 tmp-5448-8544)))
|
|
e2*-8541
|
|
e1*-8540
|
|
args*-8539))))
|
|
(lambda (meta-8547 lcase-8548)
|
|
(make-struct/no-tail
|
|
(vector-ref %expanded-vtables 13)
|
|
s-8529
|
|
meta-8547
|
|
lcase-8548))))
|
|
tmp-8532)
|
|
(syntax-violation
|
|
'case-lambda
|
|
"bad case-lambda"
|
|
e-8526)))))
|
|
(global-extend-6547
|
|
'core
|
|
'case-lambda*
|
|
(lambda (e-8710 r-8711 w-8712 s-8713 mod-8714)
|
|
(let ((tmp-8716
|
|
($sc-dispatch
|
|
e-8710
|
|
'(_ (any any . each-any)
|
|
.
|
|
#(each (any any . each-any))))))
|
|
(if tmp-8716
|
|
(@apply
|
|
(lambda (args-8720
|
|
e1-8721
|
|
e2-8722
|
|
args*-8723
|
|
e1*-8724
|
|
e2*-8725)
|
|
(call-with-values
|
|
(lambda ()
|
|
(expand-lambda-case-6597
|
|
e-8710
|
|
r-8711
|
|
w-8712
|
|
s-8713
|
|
mod-8714
|
|
lambda*-formals-6596
|
|
(cons (cons args-8720 (cons e1-8721 e2-8722))
|
|
(map (lambda (tmp-5483-8728
|
|
tmp-5482-8729
|
|
tmp-5481-8730)
|
|
(cons tmp-5481-8730
|
|
(cons tmp-5482-8729 tmp-5483-8728)))
|
|
e2*-8725
|
|
e1*-8724
|
|
args*-8723))))
|
|
(lambda (meta-8731 lcase-8732)
|
|
(make-struct/no-tail
|
|
(vector-ref %expanded-vtables 13)
|
|
s-8713
|
|
meta-8731
|
|
lcase-8732))))
|
|
tmp-8716)
|
|
(syntax-violation
|
|
'case-lambda
|
|
"bad case-lambda*"
|
|
e-8710)))))
|
|
(global-extend-6547
|
|
'core
|
|
'let
|
|
(letrec*
|
|
((expand-let-8923
|
|
(lambda (e-9072
|
|
r-9073
|
|
w-9074
|
|
s-9075
|
|
mod-9076
|
|
constructor-9077
|
|
ids-9078
|
|
vals-9079
|
|
exps-9080)
|
|
(if (not (valid-bound-ids?-6575 ids-9078))
|
|
(syntax-violation
|
|
'let
|
|
"duplicate bound variable"
|
|
e-9072)
|
|
(let ((labels-9158 (gen-labels-6552 ids-9078))
|
|
(new-vars-9159 (map gen-var-6599 ids-9078)))
|
|
(let ((nw-9160
|
|
(make-binding-wrap-6563
|
|
ids-9078
|
|
labels-9158
|
|
w-9074))
|
|
(nr-9161
|
|
(extend-var-env-6544
|
|
labels-9158
|
|
new-vars-9159
|
|
r-9073)))
|
|
(constructor-9077
|
|
s-9075
|
|
(map syntax->datum ids-9078)
|
|
new-vars-9159
|
|
(map (lambda (x-9178)
|
|
(expand-6585 x-9178 r-9073 w-9074 mod-9076))
|
|
vals-9079)
|
|
(expand-body-6589
|
|
exps-9080
|
|
(source-wrap-6579 e-9072 nw-9160 s-9075 mod-9076)
|
|
nr-9161
|
|
nw-9160
|
|
mod-9076))))))))
|
|
(lambda (e-8924 r-8925 w-8926 s-8927 mod-8928)
|
|
(let ((tmp-8930
|
|
($sc-dispatch
|
|
e-8924
|
|
'(_ #(each (any any)) any . each-any))))
|
|
(if (if tmp-8930
|
|
(@apply
|
|
(lambda (id-8934 val-8935 e1-8936 e2-8937)
|
|
(and-map id?-6549 id-8934))
|
|
tmp-8930)
|
|
#f)
|
|
(@apply
|
|
(lambda (id-8953 val-8954 e1-8955 e2-8956)
|
|
(expand-let-8923
|
|
e-8924
|
|
r-8925
|
|
w-8926
|
|
s-8927
|
|
mod-8928
|
|
build-let-6531
|
|
id-8953
|
|
val-8954
|
|
(cons e1-8955 e2-8956)))
|
|
tmp-8930)
|
|
(let ((tmp-8986
|
|
($sc-dispatch
|
|
e-8924
|
|
'(_ any #(each (any any)) any . each-any))))
|
|
(if (if tmp-8986
|
|
(@apply
|
|
(lambda (f-8990 id-8991 val-8992 e1-8993 e2-8994)
|
|
(if (if (symbol? f-8990)
|
|
#t
|
|
(if (if (vector? f-8990)
|
|
(if (= (vector-length f-8990) 4)
|
|
(eq? (vector-ref f-8990 0)
|
|
'syntax-object)
|
|
#f)
|
|
#f)
|
|
(symbol? (vector-ref f-8990 1))
|
|
#f))
|
|
(and-map id?-6549 id-8991)
|
|
#f))
|
|
tmp-8986)
|
|
#f)
|
|
(@apply
|
|
(lambda (f-9036 id-9037 val-9038 e1-9039 e2-9040)
|
|
(expand-let-8923
|
|
e-8924
|
|
r-8925
|
|
w-8926
|
|
s-8927
|
|
mod-8928
|
|
build-named-let-6532
|
|
(cons f-9036 id-9037)
|
|
val-9038
|
|
(cons e1-9039 e2-9040)))
|
|
tmp-8986)
|
|
(syntax-violation
|
|
'let
|
|
"bad let"
|
|
(wrap-6578
|
|
(begin
|
|
(if (if (pair? e-8924) s-8927 #f)
|
|
(set-source-properties! e-8924 s-8927))
|
|
e-8924)
|
|
w-8926
|
|
mod-8928)))))))))
|
|
(global-extend-6547
|
|
'core
|
|
'letrec
|
|
(lambda (e-9590 r-9591 w-9592 s-9593 mod-9594)
|
|
(let ((tmp-9596
|
|
($sc-dispatch
|
|
e-9590
|
|
'(_ #(each (any any)) any . each-any))))
|
|
(if (if tmp-9596
|
|
(@apply
|
|
(lambda (id-9600 val-9601 e1-9602 e2-9603)
|
|
(and-map id?-6549 id-9600))
|
|
tmp-9596)
|
|
#f)
|
|
(@apply
|
|
(lambda (id-9619 val-9620 e1-9621 e2-9622)
|
|
(if (not (valid-bound-ids?-6575 id-9619))
|
|
(syntax-violation
|
|
'letrec
|
|
"duplicate bound variable"
|
|
e-9590)
|
|
(let ((labels-9712 (gen-labels-6552 id-9619))
|
|
(new-vars-9713 (map gen-var-6599 id-9619)))
|
|
(let ((w-9714
|
|
(make-binding-wrap-6563
|
|
id-9619
|
|
labels-9712
|
|
w-9592))
|
|
(r-9715
|
|
(extend-var-env-6544
|
|
labels-9712
|
|
new-vars-9713
|
|
r-9591)))
|
|
(build-letrec-6533
|
|
s-9593
|
|
#f
|
|
(map syntax->datum id-9619)
|
|
new-vars-9713
|
|
(map (lambda (x-9800)
|
|
(expand-6585 x-9800 r-9715 w-9714 mod-9594))
|
|
val-9620)
|
|
(expand-body-6589
|
|
(cons e1-9621 e2-9622)
|
|
(wrap-6578
|
|
(begin
|
|
(if (if (pair? e-9590) s-9593 #f)
|
|
(set-source-properties! e-9590 s-9593))
|
|
e-9590)
|
|
w-9714
|
|
mod-9594)
|
|
r-9715
|
|
w-9714
|
|
mod-9594))))))
|
|
tmp-9596)
|
|
(syntax-violation
|
|
'letrec
|
|
"bad letrec"
|
|
(wrap-6578
|
|
(begin
|
|
(if (if (pair? e-9590) s-9593 #f)
|
|
(set-source-properties! e-9590 s-9593))
|
|
e-9590)
|
|
w-9592
|
|
mod-9594))))))
|
|
(global-extend-6547
|
|
'core
|
|
'letrec*
|
|
(lambda (e-10195 r-10196 w-10197 s-10198 mod-10199)
|
|
(let ((tmp-10201
|
|
($sc-dispatch
|
|
e-10195
|
|
'(_ #(each (any any)) any . each-any))))
|
|
(if (if tmp-10201
|
|
(@apply
|
|
(lambda (id-10205 val-10206 e1-10207 e2-10208)
|
|
(and-map id?-6549 id-10205))
|
|
tmp-10201)
|
|
#f)
|
|
(@apply
|
|
(lambda (id-10224 val-10225 e1-10226 e2-10227)
|
|
(if (not (valid-bound-ids?-6575 id-10224))
|
|
(syntax-violation
|
|
'letrec*
|
|
"duplicate bound variable"
|
|
e-10195)
|
|
(let ((labels-10317 (gen-labels-6552 id-10224))
|
|
(new-vars-10318 (map gen-var-6599 id-10224)))
|
|
(let ((w-10319
|
|
(make-binding-wrap-6563
|
|
id-10224
|
|
labels-10317
|
|
w-10197))
|
|
(r-10320
|
|
(extend-var-env-6544
|
|
labels-10317
|
|
new-vars-10318
|
|
r-10196)))
|
|
(build-letrec-6533
|
|
s-10198
|
|
#t
|
|
(map syntax->datum id-10224)
|
|
new-vars-10318
|
|
(map (lambda (x-10405)
|
|
(expand-6585
|
|
x-10405
|
|
r-10320
|
|
w-10319
|
|
mod-10199))
|
|
val-10225)
|
|
(expand-body-6589
|
|
(cons e1-10226 e2-10227)
|
|
(wrap-6578
|
|
(begin
|
|
(if (if (pair? e-10195) s-10198 #f)
|
|
(set-source-properties! e-10195 s-10198))
|
|
e-10195)
|
|
w-10319
|
|
mod-10199)
|
|
r-10320
|
|
w-10319
|
|
mod-10199))))))
|
|
tmp-10201)
|
|
(syntax-violation
|
|
'letrec*
|
|
"bad letrec*"
|
|
(wrap-6578
|
|
(begin
|
|
(if (if (pair? e-10195) s-10198 #f)
|
|
(set-source-properties! e-10195 s-10198))
|
|
e-10195)
|
|
w-10197
|
|
mod-10199))))))
|
|
(global-extend-6547
|
|
'core
|
|
'set!
|
|
(lambda (e-10839 r-10840 w-10841 s-10842 mod-10843)
|
|
(let ((tmp-10845 ($sc-dispatch e-10839 '(_ any any))))
|
|
(if (if tmp-10845
|
|
(@apply
|
|
(lambda (id-10849 val-10850)
|
|
(if (symbol? id-10849)
|
|
#t
|
|
(if (if (vector? id-10849)
|
|
(if (= (vector-length id-10849) 4)
|
|
(eq? (vector-ref id-10849 0) 'syntax-object)
|
|
#f)
|
|
#f)
|
|
(symbol? (vector-ref id-10849 1))
|
|
#f)))
|
|
tmp-10845)
|
|
#f)
|
|
(@apply
|
|
(lambda (id-10877 val-10878)
|
|
(let ((n-10879 (id-var-name-6568 id-10877 w-10841))
|
|
(id-mod-10880
|
|
(if (if (vector? id-10877)
|
|
(if (= (vector-length id-10877) 4)
|
|
(eq? (vector-ref id-10877 0) 'syntax-object)
|
|
#f)
|
|
#f)
|
|
(vector-ref id-10877 3)
|
|
mod-10843)))
|
|
(let ((b-10881
|
|
(let ((t-10922 (assq n-10879 r-10840)))
|
|
(if t-10922
|
|
(cdr t-10922)
|
|
(if (symbol? n-10879)
|
|
(let ((t-10927
|
|
(get-global-definition-hook-6512
|
|
n-10879
|
|
id-mod-10880)))
|
|
(if t-10927 t-10927 '(global)))
|
|
'(displaced-lexical))))))
|
|
(let ((atom-key-10882 (car b-10881)))
|
|
(if (eqv? atom-key-10882 'lexical)
|
|
(build-lexical-assignment-6520
|
|
s-10842
|
|
(syntax->datum id-10877)
|
|
(cdr b-10881)
|
|
(expand-6585 val-10878 r-10840 w-10841 mod-10843))
|
|
(if (eqv? atom-key-10882 'global)
|
|
(build-global-assignment-6523
|
|
s-10842
|
|
n-10879
|
|
(expand-6585 val-10878 r-10840 w-10841 mod-10843)
|
|
id-mod-10880)
|
|
(if (eqv? atom-key-10882 'macro)
|
|
(let ((p-11241 (cdr b-10881)))
|
|
(if (procedure-property
|
|
p-11241
|
|
'variable-transformer)
|
|
(expand-6585
|
|
(expand-macro-6588
|
|
p-11241
|
|
e-10839
|
|
r-10840
|
|
w-10841
|
|
s-10842
|
|
#f
|
|
mod-10843)
|
|
r-10840
|
|
'(())
|
|
mod-10843)
|
|
(syntax-violation
|
|
'set!
|
|
"not a variable transformer"
|
|
(wrap-6578 e-10839 w-10841 mod-10843)
|
|
(wrap-6578
|
|
id-10877
|
|
w-10841
|
|
id-mod-10880))))
|
|
(if (eqv? atom-key-10882 'displaced-lexical)
|
|
(syntax-violation
|
|
'set!
|
|
"identifier out of context"
|
|
(wrap-6578 id-10877 w-10841 mod-10843))
|
|
(syntax-violation
|
|
'set!
|
|
"bad set!"
|
|
(wrap-6578
|
|
(begin
|
|
(if (if (pair? e-10839) s-10842 #f)
|
|
(set-source-properties!
|
|
e-10839
|
|
s-10842))
|
|
e-10839)
|
|
w-10841
|
|
mod-10843))))))))))
|
|
tmp-10845)
|
|
(let ((tmp-11336
|
|
($sc-dispatch e-10839 '(_ (any . each-any) any))))
|
|
(if tmp-11336
|
|
(@apply
|
|
(lambda (head-11340 tail-11341 val-11342)
|
|
(call-with-values
|
|
(lambda ()
|
|
(syntax-type-6584
|
|
head-11340
|
|
r-10840
|
|
'(())
|
|
#f
|
|
#f
|
|
mod-10843
|
|
#t))
|
|
(lambda (type-11345
|
|
value-11346
|
|
formform-11347
|
|
ee-11348
|
|
ww-11349
|
|
ss-11350
|
|
modmod-11351)
|
|
(if (eqv? type-11345 'module-ref)
|
|
(let ((val-11355
|
|
(expand-6585
|
|
val-11342
|
|
r-10840
|
|
w-10841
|
|
mod-10843)))
|
|
(call-with-values
|
|
(lambda ()
|
|
(value-11346
|
|
(cons head-11340 tail-11341)
|
|
r-10840
|
|
w-10841))
|
|
(lambda (e-11356
|
|
r-11357
|
|
w-11358
|
|
s*-11359
|
|
mod-11360)
|
|
(let ((tmp-11362 (list e-11356)))
|
|
(if (@apply
|
|
(lambda (e-11364)
|
|
(if (symbol? e-11364)
|
|
#t
|
|
(if (if (vector? e-11364)
|
|
(if (= (vector-length
|
|
e-11364)
|
|
4)
|
|
(eq? (vector-ref
|
|
e-11364
|
|
0)
|
|
'syntax-object)
|
|
#f)
|
|
#f)
|
|
(symbol?
|
|
(vector-ref e-11364 1))
|
|
#f)))
|
|
tmp-11362)
|
|
(@apply
|
|
(lambda (e-11394)
|
|
(build-global-assignment-6523
|
|
s-10842
|
|
(syntax->datum e-11394)
|
|
val-11355
|
|
mod-11360))
|
|
tmp-11362)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
e-11356))))))
|
|
(build-application-6516
|
|
s-10842
|
|
(let ((e-11619
|
|
(list '#(syntax-object
|
|
setter
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(type
|
|
value
|
|
formform
|
|
ee
|
|
ww
|
|
ss
|
|
modmod)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("l-*-5730"
|
|
"l-*-5731"
|
|
"l-*-5732"
|
|
"l-*-5733"
|
|
"l-*-5734"
|
|
"l-*-5735"
|
|
"l-*-5736"))
|
|
#(ribcage
|
|
#(head tail val)
|
|
#((top) (top) (top))
|
|
#("l-*-5715"
|
|
"l-*-5716"
|
|
"l-*-5717"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(e r w s mod)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("l-*-5679"
|
|
"l-*-5680"
|
|
"l-*-5681"
|
|
"l-*-5682"
|
|
"l-*-5683"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
expand-lambda-case
|
|
lambda*-formals
|
|
expand-simple-lambda
|
|
lambda-formals
|
|
ellipsis?
|
|
expand-void
|
|
eval-local-transformer
|
|
expand-local-syntax
|
|
expand-body
|
|
expand-macro
|
|
expand-application
|
|
expand-expr
|
|
expand
|
|
syntax-type
|
|
parse-when-list
|
|
expand-install-global
|
|
expand-top-sequence
|
|
expand-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
with-transformer-environment
|
|
transformer-environment
|
|
resolve-identifier
|
|
locally-bound-identifiers
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
set-syntax-object-module!
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-module
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda-case
|
|
build-case-lambda
|
|
build-simple-lambda
|
|
build-global-definition
|
|
build-global-assignment
|
|
build-global-reference
|
|
analyze-variable
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-dynlet
|
|
build-conditional
|
|
build-application
|
|
build-void
|
|
maybe-name-value!
|
|
decorate-source
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
session-id
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
set-lambda-meta!
|
|
lambda-meta
|
|
lambda?
|
|
make-dynlet
|
|
make-letrec
|
|
make-let
|
|
make-lambda-case
|
|
make-lambda
|
|
make-sequence
|
|
make-application
|
|
make-conditional
|
|
make-toplevel-define
|
|
make-toplevel-set
|
|
make-toplevel-ref
|
|
make-module-set
|
|
make-module-ref
|
|
make-lexical-set
|
|
make-lexical-ref
|
|
make-primitive-ref
|
|
make-const
|
|
make-void)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("l-*-2527"
|
|
"l-*-2525"
|
|
"l-*-2523"
|
|
"l-*-2521"
|
|
"l-*-2519"
|
|
"l-*-2517"
|
|
"l-*-2515"
|
|
"l-*-2513"
|
|
"l-*-2511"
|
|
"l-*-2509"
|
|
"l-*-2507"
|
|
"l-*-2505"
|
|
"l-*-2503"
|
|
"l-*-2501"
|
|
"l-*-2499"
|
|
"l-*-2497"
|
|
"l-*-2495"
|
|
"l-*-2493"
|
|
"l-*-2491"
|
|
"l-*-2489"
|
|
"l-*-2487"
|
|
"l-*-2485"
|
|
"l-*-2483"
|
|
"l-*-2481"
|
|
"l-*-2479"
|
|
"l-*-2477"
|
|
"l-*-2475"
|
|
"l-*-2473"
|
|
"l-*-2471"
|
|
"l-*-2469"
|
|
"l-*-2467"
|
|
"l-*-2465"
|
|
"l-*-2463"
|
|
"l-*-2461"
|
|
"l-*-2459"
|
|
"l-*-2457"
|
|
"l-*-2455"
|
|
"l-*-2453"
|
|
"l-*-2451"
|
|
"l-*-2450"
|
|
"l-*-2448"
|
|
"l-*-2445"
|
|
"l-*-2444"
|
|
"l-*-2443"
|
|
"l-*-2441"
|
|
"l-*-2440"
|
|
"l-*-2438"
|
|
"l-*-2436"
|
|
"l-*-2434"
|
|
"l-*-2432"
|
|
"l-*-2430"
|
|
"l-*-2428"
|
|
"l-*-2426"
|
|
"l-*-2424"
|
|
"l-*-2421"
|
|
"l-*-2419"
|
|
"l-*-2418"
|
|
"l-*-2416"
|
|
"l-*-2414"
|
|
"l-*-2412"
|
|
"l-*-2410"
|
|
"l-*-2409"
|
|
"l-*-2408"
|
|
"l-*-2407"
|
|
"l-*-2405"
|
|
"l-*-2404"
|
|
"l-*-2401"
|
|
"l-*-2399"
|
|
"l-*-2397"
|
|
"l-*-2395"
|
|
"l-*-2393"
|
|
"l-*-2391"
|
|
"l-*-2389"
|
|
"l-*-2388"
|
|
"l-*-2387"
|
|
"l-*-2385"
|
|
"l-*-2383"
|
|
"l-*-2382"
|
|
"l-*-2379"
|
|
"l-*-2378"
|
|
"l-*-2376"
|
|
"l-*-2374"
|
|
"l-*-2372"
|
|
"l-*-2370"
|
|
"l-*-2368"
|
|
"l-*-2366"
|
|
"l-*-2364"
|
|
"l-*-2362"
|
|
"l-*-2360"
|
|
"l-*-2357"
|
|
"l-*-2355"
|
|
"l-*-2353"
|
|
"l-*-2351"
|
|
"l-*-2349"
|
|
"l-*-2347"
|
|
"l-*-2345"
|
|
"l-*-2343"
|
|
"l-*-2341"
|
|
"l-*-2339"
|
|
"l-*-2337"
|
|
"l-*-2335"
|
|
"l-*-2333"
|
|
"l-*-2331"
|
|
"l-*-2329"
|
|
"l-*-2327"
|
|
"l-*-2325"
|
|
"l-*-2323"
|
|
"l-*-2321"
|
|
"l-*-2319"
|
|
"l-*-2317"
|
|
"l-*-2315"
|
|
"l-*-2313"
|
|
"l-*-2311"
|
|
"l-*-2309"
|
|
"l-*-2307"
|
|
"l-*-2306"
|
|
"l-*-2305"
|
|
"l-*-2304"
|
|
"l-*-2303"
|
|
"l-*-2301"
|
|
"l-*-2299"
|
|
"l-*-2297"
|
|
"l-*-2294"
|
|
"l-*-2292"
|
|
"l-*-2290"
|
|
"l-*-2288"
|
|
"l-*-2286"
|
|
"l-*-2284"
|
|
"l-*-2282"
|
|
"l-*-2280"
|
|
"l-*-2278"
|
|
"l-*-2276"
|
|
"l-*-2274"
|
|
"l-*-2272"
|
|
"l-*-2270"
|
|
"l-*-2268"
|
|
"l-*-2266"
|
|
"l-*-2264"
|
|
"l-*-2262"
|
|
"l-*-2260"))
|
|
#(ribcage
|
|
(define-structure
|
|
define-expansion-accessors
|
|
define-expansion-constructors)
|
|
((top) (top) (top))
|
|
("l-*-2098"
|
|
"l-*-2097"
|
|
"l-*-2096")))
|
|
(hygiene guile))
|
|
head-11340)))
|
|
(call-with-values
|
|
(lambda ()
|
|
(syntax-type-6584
|
|
e-11619
|
|
r-10840
|
|
w-10841
|
|
(source-annotation-6542 e-11619)
|
|
#f
|
|
mod-10843
|
|
#f))
|
|
(lambda (type-11626
|
|
value-11627
|
|
form-11628
|
|
e-11629
|
|
w-11630
|
|
s-11631
|
|
mod-11632)
|
|
(expand-expr-6586
|
|
type-11626
|
|
value-11627
|
|
form-11628
|
|
e-11629
|
|
r-10840
|
|
w-11630
|
|
s-11631
|
|
mod-11632))))
|
|
(map (lambda (e-11636)
|
|
(call-with-values
|
|
(lambda ()
|
|
(syntax-type-6584
|
|
e-11636
|
|
r-10840
|
|
w-10841
|
|
(source-annotation-6542 e-11636)
|
|
#f
|
|
mod-10843
|
|
#f))
|
|
(lambda (type-11651
|
|
value-11652
|
|
form-11653
|
|
e-11654
|
|
w-11655
|
|
s-11656
|
|
mod-11657)
|
|
(expand-expr-6586
|
|
type-11651
|
|
value-11652
|
|
form-11653
|
|
e-11654
|
|
r-10840
|
|
w-11655
|
|
s-11656
|
|
mod-11657))))
|
|
(append tail-11341 (list val-11342))))))))
|
|
tmp-11336)
|
|
(syntax-violation
|
|
'set!
|
|
"bad set!"
|
|
(wrap-6578
|
|
(begin
|
|
(if (if (pair? e-10839) s-10842 #f)
|
|
(set-source-properties! e-10839 s-10842))
|
|
e-10839)
|
|
w-10841
|
|
mod-10843))))))))
|
|
(module-define!
|
|
(current-module)
|
|
'@
|
|
(make-syntax-transformer
|
|
'@
|
|
'module-ref
|
|
(lambda (e-11700 r-11701 w-11702)
|
|
(let ((tmp-11704
|
|
($sc-dispatch e-11700 '(_ each-any any))))
|
|
(if (if tmp-11704
|
|
(@apply
|
|
(lambda (mod-11707 id-11708)
|
|
(if (and-map id?-6549 mod-11707)
|
|
(if (symbol? id-11708)
|
|
#t
|
|
(if (if (vector? id-11708)
|
|
(if (= (vector-length id-11708) 4)
|
|
(eq? (vector-ref id-11708 0)
|
|
'syntax-object)
|
|
#f)
|
|
#f)
|
|
(symbol? (vector-ref id-11708 1))
|
|
#f))
|
|
#f))
|
|
tmp-11704)
|
|
#f)
|
|
(@apply
|
|
(lambda (mod-11748 id-11749)
|
|
(values
|
|
(syntax->datum id-11749)
|
|
r-11701
|
|
w-11702
|
|
#f
|
|
(syntax->datum
|
|
(cons '#(syntax-object
|
|
public
|
|
((top)
|
|
#(ribcage
|
|
#(mod id)
|
|
#((top) (top))
|
|
#("l-*-5778" "l-*-5779"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(e r w)
|
|
#((top) (top) (top))
|
|
#("l-*-5766" "l-*-5767" "l-*-5768"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
expand-lambda-case
|
|
lambda*-formals
|
|
expand-simple-lambda
|
|
lambda-formals
|
|
ellipsis?
|
|
expand-void
|
|
eval-local-transformer
|
|
expand-local-syntax
|
|
expand-body
|
|
expand-macro
|
|
expand-application
|
|
expand-expr
|
|
expand
|
|
syntax-type
|
|
parse-when-list
|
|
expand-install-global
|
|
expand-top-sequence
|
|
expand-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
with-transformer-environment
|
|
transformer-environment
|
|
resolve-identifier
|
|
locally-bound-identifiers
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
set-syntax-object-module!
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-module
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda-case
|
|
build-case-lambda
|
|
build-simple-lambda
|
|
build-global-definition
|
|
build-global-assignment
|
|
build-global-reference
|
|
analyze-variable
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-dynlet
|
|
build-conditional
|
|
build-application
|
|
build-void
|
|
maybe-name-value!
|
|
decorate-source
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
session-id
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
set-lambda-meta!
|
|
lambda-meta
|
|
lambda?
|
|
make-dynlet
|
|
make-letrec
|
|
make-let
|
|
make-lambda-case
|
|
make-lambda
|
|
make-sequence
|
|
make-application
|
|
make-conditional
|
|
make-toplevel-define
|
|
make-toplevel-set
|
|
make-toplevel-ref
|
|
make-module-set
|
|
make-module-ref
|
|
make-lexical-set
|
|
make-lexical-ref
|
|
make-primitive-ref
|
|
make-const
|
|
make-void)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("l-*-2527"
|
|
"l-*-2525"
|
|
"l-*-2523"
|
|
"l-*-2521"
|
|
"l-*-2519"
|
|
"l-*-2517"
|
|
"l-*-2515"
|
|
"l-*-2513"
|
|
"l-*-2511"
|
|
"l-*-2509"
|
|
"l-*-2507"
|
|
"l-*-2505"
|
|
"l-*-2503"
|
|
"l-*-2501"
|
|
"l-*-2499"
|
|
"l-*-2497"
|
|
"l-*-2495"
|
|
"l-*-2493"
|
|
"l-*-2491"
|
|
"l-*-2489"
|
|
"l-*-2487"
|
|
"l-*-2485"
|
|
"l-*-2483"
|
|
"l-*-2481"
|
|
"l-*-2479"
|
|
"l-*-2477"
|
|
"l-*-2475"
|
|
"l-*-2473"
|
|
"l-*-2471"
|
|
"l-*-2469"
|
|
"l-*-2467"
|
|
"l-*-2465"
|
|
"l-*-2463"
|
|
"l-*-2461"
|
|
"l-*-2459"
|
|
"l-*-2457"
|
|
"l-*-2455"
|
|
"l-*-2453"
|
|
"l-*-2451"
|
|
"l-*-2450"
|
|
"l-*-2448"
|
|
"l-*-2445"
|
|
"l-*-2444"
|
|
"l-*-2443"
|
|
"l-*-2441"
|
|
"l-*-2440"
|
|
"l-*-2438"
|
|
"l-*-2436"
|
|
"l-*-2434"
|
|
"l-*-2432"
|
|
"l-*-2430"
|
|
"l-*-2428"
|
|
"l-*-2426"
|
|
"l-*-2424"
|
|
"l-*-2421"
|
|
"l-*-2419"
|
|
"l-*-2418"
|
|
"l-*-2416"
|
|
"l-*-2414"
|
|
"l-*-2412"
|
|
"l-*-2410"
|
|
"l-*-2409"
|
|
"l-*-2408"
|
|
"l-*-2407"
|
|
"l-*-2405"
|
|
"l-*-2404"
|
|
"l-*-2401"
|
|
"l-*-2399"
|
|
"l-*-2397"
|
|
"l-*-2395"
|
|
"l-*-2393"
|
|
"l-*-2391"
|
|
"l-*-2389"
|
|
"l-*-2388"
|
|
"l-*-2387"
|
|
"l-*-2385"
|
|
"l-*-2383"
|
|
"l-*-2382"
|
|
"l-*-2379"
|
|
"l-*-2378"
|
|
"l-*-2376"
|
|
"l-*-2374"
|
|
"l-*-2372"
|
|
"l-*-2370"
|
|
"l-*-2368"
|
|
"l-*-2366"
|
|
"l-*-2364"
|
|
"l-*-2362"
|
|
"l-*-2360"
|
|
"l-*-2357"
|
|
"l-*-2355"
|
|
"l-*-2353"
|
|
"l-*-2351"
|
|
"l-*-2349"
|
|
"l-*-2347"
|
|
"l-*-2345"
|
|
"l-*-2343"
|
|
"l-*-2341"
|
|
"l-*-2339"
|
|
"l-*-2337"
|
|
"l-*-2335"
|
|
"l-*-2333"
|
|
"l-*-2331"
|
|
"l-*-2329"
|
|
"l-*-2327"
|
|
"l-*-2325"
|
|
"l-*-2323"
|
|
"l-*-2321"
|
|
"l-*-2319"
|
|
"l-*-2317"
|
|
"l-*-2315"
|
|
"l-*-2313"
|
|
"l-*-2311"
|
|
"l-*-2309"
|
|
"l-*-2307"
|
|
"l-*-2306"
|
|
"l-*-2305"
|
|
"l-*-2304"
|
|
"l-*-2303"
|
|
"l-*-2301"
|
|
"l-*-2299"
|
|
"l-*-2297"
|
|
"l-*-2294"
|
|
"l-*-2292"
|
|
"l-*-2290"
|
|
"l-*-2288"
|
|
"l-*-2286"
|
|
"l-*-2284"
|
|
"l-*-2282"
|
|
"l-*-2280"
|
|
"l-*-2278"
|
|
"l-*-2276"
|
|
"l-*-2274"
|
|
"l-*-2272"
|
|
"l-*-2270"
|
|
"l-*-2268"
|
|
"l-*-2266"
|
|
"l-*-2264"
|
|
"l-*-2262"
|
|
"l-*-2260"))
|
|
#(ribcage
|
|
(define-structure
|
|
define-expansion-accessors
|
|
define-expansion-constructors)
|
|
((top) (top) (top))
|
|
("l-*-2098" "l-*-2097" "l-*-2096")))
|
|
(hygiene guile))
|
|
mod-11748))))
|
|
tmp-11704)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
e-11700))))))
|
|
(global-extend-6547
|
|
'module-ref
|
|
'@@
|
|
(lambda (e-11841 r-11842 w-11843)
|
|
(letrec*
|
|
((remodulate-11844
|
|
(lambda (x-11879 mod-11880)
|
|
(if (pair? x-11879)
|
|
(cons (remodulate-11844 (car x-11879) mod-11880)
|
|
(remodulate-11844 (cdr x-11879) mod-11880))
|
|
(if (if (vector? x-11879)
|
|
(if (= (vector-length x-11879) 4)
|
|
(eq? (vector-ref x-11879 0) 'syntax-object)
|
|
#f)
|
|
#f)
|
|
(let ((expression-11894
|
|
(remodulate-11844
|
|
(vector-ref x-11879 1)
|
|
mod-11880))
|
|
(wrap-11895 (vector-ref x-11879 2)))
|
|
(vector
|
|
'syntax-object
|
|
expression-11894
|
|
wrap-11895
|
|
mod-11880))
|
|
(if (vector? x-11879)
|
|
(let ((n-11903 (vector-length x-11879)))
|
|
(let ((v-11904 (make-vector n-11903)))
|
|
(letrec*
|
|
((loop-11905
|
|
(lambda (i-11952)
|
|
(if (= i-11952 n-11903)
|
|
v-11904
|
|
(begin
|
|
(vector-set!
|
|
v-11904
|
|
i-11952
|
|
(remodulate-11844
|
|
(vector-ref x-11879 i-11952)
|
|
mod-11880))
|
|
(loop-11905 (#{1+}# i-11952)))))))
|
|
(loop-11905 0))))
|
|
x-11879))))))
|
|
(let ((tmp-11846
|
|
($sc-dispatch e-11841 '(_ each-any any))))
|
|
(if (if tmp-11846
|
|
(@apply
|
|
(lambda (mod-11850 exp-11851)
|
|
(and-map id?-6549 mod-11850))
|
|
tmp-11846)
|
|
#f)
|
|
(@apply
|
|
(lambda (mod-11867 exp-11868)
|
|
(let ((mod-11869
|
|
(syntax->datum
|
|
(cons '#(syntax-object
|
|
private
|
|
((top)
|
|
#(ribcage
|
|
#(mod exp)
|
|
#((top) (top))
|
|
#("l-*-5822" "l-*-5823"))
|
|
#(ribcage
|
|
(remodulate)
|
|
((top))
|
|
("l-*-5789"))
|
|
#(ribcage
|
|
#(e r w)
|
|
#((top) (top) (top))
|
|
#("l-*-5786" "l-*-5787" "l-*-5788"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
expand-lambda-case
|
|
lambda*-formals
|
|
expand-simple-lambda
|
|
lambda-formals
|
|
ellipsis?
|
|
expand-void
|
|
eval-local-transformer
|
|
expand-local-syntax
|
|
expand-body
|
|
expand-macro
|
|
expand-application
|
|
expand-expr
|
|
expand
|
|
syntax-type
|
|
parse-when-list
|
|
expand-install-global
|
|
expand-top-sequence
|
|
expand-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
with-transformer-environment
|
|
transformer-environment
|
|
resolve-identifier
|
|
locally-bound-identifiers
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
set-syntax-object-module!
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-module
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda-case
|
|
build-case-lambda
|
|
build-simple-lambda
|
|
build-global-definition
|
|
build-global-assignment
|
|
build-global-reference
|
|
analyze-variable
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-dynlet
|
|
build-conditional
|
|
build-application
|
|
build-void
|
|
maybe-name-value!
|
|
decorate-source
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
session-id
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
set-lambda-meta!
|
|
lambda-meta
|
|
lambda?
|
|
make-dynlet
|
|
make-letrec
|
|
make-let
|
|
make-lambda-case
|
|
make-lambda
|
|
make-sequence
|
|
make-application
|
|
make-conditional
|
|
make-toplevel-define
|
|
make-toplevel-set
|
|
make-toplevel-ref
|
|
make-module-set
|
|
make-module-ref
|
|
make-lexical-set
|
|
make-lexical-ref
|
|
make-primitive-ref
|
|
make-const
|
|
make-void)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("l-*-2527"
|
|
"l-*-2525"
|
|
"l-*-2523"
|
|
"l-*-2521"
|
|
"l-*-2519"
|
|
"l-*-2517"
|
|
"l-*-2515"
|
|
"l-*-2513"
|
|
"l-*-2511"
|
|
"l-*-2509"
|
|
"l-*-2507"
|
|
"l-*-2505"
|
|
"l-*-2503"
|
|
"l-*-2501"
|
|
"l-*-2499"
|
|
"l-*-2497"
|
|
"l-*-2495"
|
|
"l-*-2493"
|
|
"l-*-2491"
|
|
"l-*-2489"
|
|
"l-*-2487"
|
|
"l-*-2485"
|
|
"l-*-2483"
|
|
"l-*-2481"
|
|
"l-*-2479"
|
|
"l-*-2477"
|
|
"l-*-2475"
|
|
"l-*-2473"
|
|
"l-*-2471"
|
|
"l-*-2469"
|
|
"l-*-2467"
|
|
"l-*-2465"
|
|
"l-*-2463"
|
|
"l-*-2461"
|
|
"l-*-2459"
|
|
"l-*-2457"
|
|
"l-*-2455"
|
|
"l-*-2453"
|
|
"l-*-2451"
|
|
"l-*-2450"
|
|
"l-*-2448"
|
|
"l-*-2445"
|
|
"l-*-2444"
|
|
"l-*-2443"
|
|
"l-*-2441"
|
|
"l-*-2440"
|
|
"l-*-2438"
|
|
"l-*-2436"
|
|
"l-*-2434"
|
|
"l-*-2432"
|
|
"l-*-2430"
|
|
"l-*-2428"
|
|
"l-*-2426"
|
|
"l-*-2424"
|
|
"l-*-2421"
|
|
"l-*-2419"
|
|
"l-*-2418"
|
|
"l-*-2416"
|
|
"l-*-2414"
|
|
"l-*-2412"
|
|
"l-*-2410"
|
|
"l-*-2409"
|
|
"l-*-2408"
|
|
"l-*-2407"
|
|
"l-*-2405"
|
|
"l-*-2404"
|
|
"l-*-2401"
|
|
"l-*-2399"
|
|
"l-*-2397"
|
|
"l-*-2395"
|
|
"l-*-2393"
|
|
"l-*-2391"
|
|
"l-*-2389"
|
|
"l-*-2388"
|
|
"l-*-2387"
|
|
"l-*-2385"
|
|
"l-*-2383"
|
|
"l-*-2382"
|
|
"l-*-2379"
|
|
"l-*-2378"
|
|
"l-*-2376"
|
|
"l-*-2374"
|
|
"l-*-2372"
|
|
"l-*-2370"
|
|
"l-*-2368"
|
|
"l-*-2366"
|
|
"l-*-2364"
|
|
"l-*-2362"
|
|
"l-*-2360"
|
|
"l-*-2357"
|
|
"l-*-2355"
|
|
"l-*-2353"
|
|
"l-*-2351"
|
|
"l-*-2349"
|
|
"l-*-2347"
|
|
"l-*-2345"
|
|
"l-*-2343"
|
|
"l-*-2341"
|
|
"l-*-2339"
|
|
"l-*-2337"
|
|
"l-*-2335"
|
|
"l-*-2333"
|
|
"l-*-2331"
|
|
"l-*-2329"
|
|
"l-*-2327"
|
|
"l-*-2325"
|
|
"l-*-2323"
|
|
"l-*-2321"
|
|
"l-*-2319"
|
|
"l-*-2317"
|
|
"l-*-2315"
|
|
"l-*-2313"
|
|
"l-*-2311"
|
|
"l-*-2309"
|
|
"l-*-2307"
|
|
"l-*-2306"
|
|
"l-*-2305"
|
|
"l-*-2304"
|
|
"l-*-2303"
|
|
"l-*-2301"
|
|
"l-*-2299"
|
|
"l-*-2297"
|
|
"l-*-2294"
|
|
"l-*-2292"
|
|
"l-*-2290"
|
|
"l-*-2288"
|
|
"l-*-2286"
|
|
"l-*-2284"
|
|
"l-*-2282"
|
|
"l-*-2280"
|
|
"l-*-2278"
|
|
"l-*-2276"
|
|
"l-*-2274"
|
|
"l-*-2272"
|
|
"l-*-2270"
|
|
"l-*-2268"
|
|
"l-*-2266"
|
|
"l-*-2264"
|
|
"l-*-2262"
|
|
"l-*-2260"))
|
|
#(ribcage
|
|
(define-structure
|
|
define-expansion-accessors
|
|
define-expansion-constructors)
|
|
((top) (top) (top))
|
|
("l-*-2098" "l-*-2097" "l-*-2096")))
|
|
(hygiene guile))
|
|
mod-11867))))
|
|
(values
|
|
(remodulate-11844 exp-11868 mod-11869)
|
|
r-11842
|
|
w-11843
|
|
(source-annotation-6542 exp-11868)
|
|
mod-11869)))
|
|
tmp-11846)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
e-11841))))))
|
|
(global-extend-6547
|
|
'core
|
|
'if
|
|
(lambda (e-12053 r-12054 w-12055 s-12056 mod-12057)
|
|
(let ((tmp-12059 ($sc-dispatch e-12053 '(_ any any))))
|
|
(if tmp-12059
|
|
(@apply
|
|
(lambda (test-12063 then-12064)
|
|
(build-conditional-6517
|
|
s-12056
|
|
(expand-6585
|
|
test-12063
|
|
r-12054
|
|
w-12055
|
|
mod-12057)
|
|
(expand-6585
|
|
then-12064
|
|
r-12054
|
|
w-12055
|
|
mod-12057)
|
|
(make-struct/no-tail
|
|
(vector-ref %expanded-vtables 0)
|
|
#f)))
|
|
tmp-12059)
|
|
(let ((tmp-12289
|
|
($sc-dispatch e-12053 '(_ any any any))))
|
|
(if tmp-12289
|
|
(@apply
|
|
(lambda (test-12293 then-12294 else-12295)
|
|
(build-conditional-6517
|
|
s-12056
|
|
(expand-6585
|
|
test-12293
|
|
r-12054
|
|
w-12055
|
|
mod-12057)
|
|
(expand-6585
|
|
then-12294
|
|
r-12054
|
|
w-12055
|
|
mod-12057)
|
|
(expand-6585
|
|
else-12295
|
|
r-12054
|
|
w-12055
|
|
mod-12057)))
|
|
tmp-12289)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
e-12053)))))))
|
|
(global-extend-6547
|
|
'core
|
|
'with-fluids
|
|
(lambda (e-12694 r-12695 w-12696 s-12697 mod-12698)
|
|
(let ((tmp-12700
|
|
($sc-dispatch
|
|
e-12694
|
|
'(_ #(each (any any)) any . each-any))))
|
|
(if tmp-12700
|
|
(@apply
|
|
(lambda (fluid-12704 val-12705 b-12706 b*-12707)
|
|
(build-dynlet-6518
|
|
s-12697
|
|
(map (lambda (x-12788)
|
|
(expand-6585 x-12788 r-12695 w-12696 mod-12698))
|
|
fluid-12704)
|
|
(map (lambda (x-12858)
|
|
(expand-6585 x-12858 r-12695 w-12696 mod-12698))
|
|
val-12705)
|
|
(expand-body-6589
|
|
(cons b-12706 b*-12707)
|
|
(wrap-6578
|
|
(begin
|
|
(if (if (pair? e-12694) s-12697 #f)
|
|
(set-source-properties! e-12694 s-12697))
|
|
e-12694)
|
|
w-12696
|
|
mod-12698)
|
|
r-12695
|
|
w-12696
|
|
mod-12698)))
|
|
tmp-12700)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
e-12694)))))
|
|
(module-define!
|
|
(current-module)
|
|
'begin
|
|
(make-syntax-transformer 'begin 'begin '()))
|
|
(module-define!
|
|
(current-module)
|
|
'define
|
|
(make-syntax-transformer 'define 'define '()))
|
|
(module-define!
|
|
(current-module)
|
|
'define-syntax
|
|
(make-syntax-transformer
|
|
'define-syntax
|
|
'define-syntax
|
|
'()))
|
|
(module-define!
|
|
(current-module)
|
|
'define-syntax-parameter
|
|
(make-syntax-transformer
|
|
'define-syntax-parameter
|
|
'define-syntax-parameter
|
|
'()))
|
|
(module-define!
|
|
(current-module)
|
|
'eval-when
|
|
(make-syntax-transformer
|
|
'eval-when
|
|
'eval-when
|
|
'()))
|
|
(global-extend-6547
|
|
'core
|
|
'syntax-case
|
|
(letrec*
|
|
((convert-pattern-13226
|
|
(lambda (pattern-14823 keys-14824)
|
|
(letrec*
|
|
((cvt*-14825
|
|
(lambda (p*-15449 n-15450 ids-15451)
|
|
(if (not (pair? p*-15449))
|
|
(cvt-14827 p*-15449 n-15450 ids-15451)
|
|
(call-with-values
|
|
(lambda ()
|
|
(cvt*-14825 (cdr p*-15449) n-15450 ids-15451))
|
|
(lambda (y-15454 ids-15455)
|
|
(call-with-values
|
|
(lambda ()
|
|
(cvt-14827 (car p*-15449) n-15450 ids-15455))
|
|
(lambda (x-15458 ids-15459)
|
|
(values
|
|
(cons x-15458 y-15454)
|
|
ids-15459))))))))
|
|
(v-reverse-14826
|
|
(lambda (x-15460)
|
|
(letrec*
|
|
((loop-15461
|
|
(lambda (r-15541 x-15542)
|
|
(if (not (pair? x-15542))
|
|
(values r-15541 x-15542)
|
|
(loop-15461
|
|
(cons (car x-15542) r-15541)
|
|
(cdr x-15542))))))
|
|
(loop-15461 '() x-15460))))
|
|
(cvt-14827
|
|
(lambda (p-14830 n-14831 ids-14832)
|
|
(if (if (symbol? p-14830)
|
|
#t
|
|
(if (if (vector? p-14830)
|
|
(if (= (vector-length p-14830) 4)
|
|
(eq? (vector-ref p-14830 0) 'syntax-object)
|
|
#f)
|
|
#f)
|
|
(symbol? (vector-ref p-14830 1))
|
|
#f))
|
|
(if (bound-id-member?-6577 p-14830 keys-14824)
|
|
(values (vector 'free-id p-14830) ids-14832)
|
|
(if (if (eq? (if (if (vector? p-14830)
|
|
(if (= (vector-length p-14830) 4)
|
|
(eq? (vector-ref p-14830 0)
|
|
'syntax-object)
|
|
#f)
|
|
#f)
|
|
(vector-ref p-14830 1)
|
|
p-14830)
|
|
(if (if (= (vector-length
|
|
'#(syntax-object
|
|
_
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(p n ids)
|
|
#((top) (top) (top))
|
|
#("l-*-5923"
|
|
"l-*-5924"
|
|
"l-*-5925"))
|
|
#(ribcage
|
|
(cvt v-reverse cvt*)
|
|
((top) (top) (top))
|
|
("l-*-5896"
|
|
"l-*-5894"
|
|
"l-*-5892"))
|
|
#(ribcage
|
|
#(pattern keys)
|
|
#((top) (top))
|
|
#("l-*-5890"
|
|
"l-*-5891"))
|
|
#(ribcage
|
|
(gen-syntax-case
|
|
gen-clause
|
|
build-dispatch-call
|
|
convert-pattern)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("l-*-5886"
|
|
"l-*-5884"
|
|
"l-*-5882"
|
|
"l-*-5880"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
expand-lambda-case
|
|
lambda*-formals
|
|
expand-simple-lambda
|
|
lambda-formals
|
|
ellipsis?
|
|
expand-void
|
|
eval-local-transformer
|
|
expand-local-syntax
|
|
expand-body
|
|
expand-macro
|
|
expand-application
|
|
expand-expr
|
|
expand
|
|
syntax-type
|
|
parse-when-list
|
|
expand-install-global
|
|
expand-top-sequence
|
|
expand-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
with-transformer-environment
|
|
transformer-environment
|
|
resolve-identifier
|
|
locally-bound-identifiers
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
set-syntax-object-module!
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-module
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda-case
|
|
build-case-lambda
|
|
build-simple-lambda
|
|
build-global-definition
|
|
build-global-assignment
|
|
build-global-reference
|
|
analyze-variable
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-dynlet
|
|
build-conditional
|
|
build-application
|
|
build-void
|
|
maybe-name-value!
|
|
decorate-source
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
session-id
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
set-lambda-meta!
|
|
lambda-meta
|
|
lambda?
|
|
make-dynlet
|
|
make-letrec
|
|
make-let
|
|
make-lambda-case
|
|
make-lambda
|
|
make-sequence
|
|
make-application
|
|
make-conditional
|
|
make-toplevel-define
|
|
make-toplevel-set
|
|
make-toplevel-ref
|
|
make-module-set
|
|
make-module-ref
|
|
make-lexical-set
|
|
make-lexical-ref
|
|
make-primitive-ref
|
|
make-const
|
|
make-void)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("l-*-2527"
|
|
"l-*-2525"
|
|
"l-*-2523"
|
|
"l-*-2521"
|
|
"l-*-2519"
|
|
"l-*-2517"
|
|
"l-*-2515"
|
|
"l-*-2513"
|
|
"l-*-2511"
|
|
"l-*-2509"
|
|
"l-*-2507"
|
|
"l-*-2505"
|
|
"l-*-2503"
|
|
"l-*-2501"
|
|
"l-*-2499"
|
|
"l-*-2497"
|
|
"l-*-2495"
|
|
"l-*-2493"
|
|
"l-*-2491"
|
|
"l-*-2489"
|
|
"l-*-2487"
|
|
"l-*-2485"
|
|
"l-*-2483"
|
|
"l-*-2481"
|
|
"l-*-2479"
|
|
"l-*-2477"
|
|
"l-*-2475"
|
|
"l-*-2473"
|
|
"l-*-2471"
|
|
"l-*-2469"
|
|
"l-*-2467"
|
|
"l-*-2465"
|
|
"l-*-2463"
|
|
"l-*-2461"
|
|
"l-*-2459"
|
|
"l-*-2457"
|
|
"l-*-2455"
|
|
"l-*-2453"
|
|
"l-*-2451"
|
|
"l-*-2450"
|
|
"l-*-2448"
|
|
"l-*-2445"
|
|
"l-*-2444"
|
|
"l-*-2443"
|
|
"l-*-2441"
|
|
"l-*-2440"
|
|
"l-*-2438"
|
|
"l-*-2436"
|
|
"l-*-2434"
|
|
"l-*-2432"
|
|
"l-*-2430"
|
|
"l-*-2428"
|
|
"l-*-2426"
|
|
"l-*-2424"
|
|
"l-*-2421"
|
|
"l-*-2419"
|
|
"l-*-2418"
|
|
"l-*-2416"
|
|
"l-*-2414"
|
|
"l-*-2412"
|
|
"l-*-2410"
|
|
"l-*-2409"
|
|
"l-*-2408"
|
|
"l-*-2407"
|
|
"l-*-2405"
|
|
"l-*-2404"
|
|
"l-*-2401"
|
|
"l-*-2399"
|
|
"l-*-2397"
|
|
"l-*-2395"
|
|
"l-*-2393"
|
|
"l-*-2391"
|
|
"l-*-2389"
|
|
"l-*-2388"
|
|
"l-*-2387"
|
|
"l-*-2385"
|
|
"l-*-2383"
|
|
"l-*-2382"
|
|
"l-*-2379"
|
|
"l-*-2378"
|
|
"l-*-2376"
|
|
"l-*-2374"
|
|
"l-*-2372"
|
|
"l-*-2370"
|
|
"l-*-2368"
|
|
"l-*-2366"
|
|
"l-*-2364"
|
|
"l-*-2362"
|
|
"l-*-2360"
|
|
"l-*-2357"
|
|
"l-*-2355"
|
|
"l-*-2353"
|
|
"l-*-2351"
|
|
"l-*-2349"
|
|
"l-*-2347"
|
|
"l-*-2345"
|
|
"l-*-2343"
|
|
"l-*-2341"
|
|
"l-*-2339"
|
|
"l-*-2337"
|
|
"l-*-2335"
|
|
"l-*-2333"
|
|
"l-*-2331"
|
|
"l-*-2329"
|
|
"l-*-2327"
|
|
"l-*-2325"
|
|
"l-*-2323"
|
|
"l-*-2321"
|
|
"l-*-2319"
|
|
"l-*-2317"
|
|
"l-*-2315"
|
|
"l-*-2313"
|
|
"l-*-2311"
|
|
"l-*-2309"
|
|
"l-*-2307"
|
|
"l-*-2306"
|
|
"l-*-2305"
|
|
"l-*-2304"
|
|
"l-*-2303"
|
|
"l-*-2301"
|
|
"l-*-2299"
|
|
"l-*-2297"
|
|
"l-*-2294"
|
|
"l-*-2292"
|
|
"l-*-2290"
|
|
"l-*-2288"
|
|
"l-*-2286"
|
|
"l-*-2284"
|
|
"l-*-2282"
|
|
"l-*-2280"
|
|
"l-*-2278"
|
|
"l-*-2276"
|
|
"l-*-2274"
|
|
"l-*-2272"
|
|
"l-*-2270"
|
|
"l-*-2268"
|
|
"l-*-2266"
|
|
"l-*-2264"
|
|
"l-*-2262"
|
|
"l-*-2260"))
|
|
#(ribcage
|
|
(define-structure
|
|
define-expansion-accessors
|
|
define-expansion-constructors)
|
|
((top) (top) (top))
|
|
("l-*-2098"
|
|
"l-*-2097"
|
|
"l-*-2096")))
|
|
(hygiene guile)))
|
|
4)
|
|
#t
|
|
#f)
|
|
'_
|
|
'#(syntax-object
|
|
_
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(p n ids)
|
|
#((top) (top) (top))
|
|
#("l-*-5923"
|
|
"l-*-5924"
|
|
"l-*-5925"))
|
|
#(ribcage
|
|
(cvt v-reverse cvt*)
|
|
((top) (top) (top))
|
|
("l-*-5896"
|
|
"l-*-5894"
|
|
"l-*-5892"))
|
|
#(ribcage
|
|
#(pattern keys)
|
|
#((top) (top))
|
|
#("l-*-5890" "l-*-5891"))
|
|
#(ribcage
|
|
(gen-syntax-case
|
|
gen-clause
|
|
build-dispatch-call
|
|
convert-pattern)
|
|
((top) (top) (top) (top))
|
|
("l-*-5886"
|
|
"l-*-5884"
|
|
"l-*-5882"
|
|
"l-*-5880"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
expand-lambda-case
|
|
lambda*-formals
|
|
expand-simple-lambda
|
|
lambda-formals
|
|
ellipsis?
|
|
expand-void
|
|
eval-local-transformer
|
|
expand-local-syntax
|
|
expand-body
|
|
expand-macro
|
|
expand-application
|
|
expand-expr
|
|
expand
|
|
syntax-type
|
|
parse-when-list
|
|
expand-install-global
|
|
expand-top-sequence
|
|
expand-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
with-transformer-environment
|
|
transformer-environment
|
|
resolve-identifier
|
|
locally-bound-identifiers
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
set-syntax-object-module!
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-module
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda-case
|
|
build-case-lambda
|
|
build-simple-lambda
|
|
build-global-definition
|
|
build-global-assignment
|
|
build-global-reference
|
|
analyze-variable
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-dynlet
|
|
build-conditional
|
|
build-application
|
|
build-void
|
|
maybe-name-value!
|
|
decorate-source
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
session-id
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
set-lambda-meta!
|
|
lambda-meta
|
|
lambda?
|
|
make-dynlet
|
|
make-letrec
|
|
make-let
|
|
make-lambda-case
|
|
make-lambda
|
|
make-sequence
|
|
make-application
|
|
make-conditional
|
|
make-toplevel-define
|
|
make-toplevel-set
|
|
make-toplevel-ref
|
|
make-module-set
|
|
make-module-ref
|
|
make-lexical-set
|
|
make-lexical-ref
|
|
make-primitive-ref
|
|
make-const
|
|
make-void)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("l-*-2527"
|
|
"l-*-2525"
|
|
"l-*-2523"
|
|
"l-*-2521"
|
|
"l-*-2519"
|
|
"l-*-2517"
|
|
"l-*-2515"
|
|
"l-*-2513"
|
|
"l-*-2511"
|
|
"l-*-2509"
|
|
"l-*-2507"
|
|
"l-*-2505"
|
|
"l-*-2503"
|
|
"l-*-2501"
|
|
"l-*-2499"
|
|
"l-*-2497"
|
|
"l-*-2495"
|
|
"l-*-2493"
|
|
"l-*-2491"
|
|
"l-*-2489"
|
|
"l-*-2487"
|
|
"l-*-2485"
|
|
"l-*-2483"
|
|
"l-*-2481"
|
|
"l-*-2479"
|
|
"l-*-2477"
|
|
"l-*-2475"
|
|
"l-*-2473"
|
|
"l-*-2471"
|
|
"l-*-2469"
|
|
"l-*-2467"
|
|
"l-*-2465"
|
|
"l-*-2463"
|
|
"l-*-2461"
|
|
"l-*-2459"
|
|
"l-*-2457"
|
|
"l-*-2455"
|
|
"l-*-2453"
|
|
"l-*-2451"
|
|
"l-*-2450"
|
|
"l-*-2448"
|
|
"l-*-2445"
|
|
"l-*-2444"
|
|
"l-*-2443"
|
|
"l-*-2441"
|
|
"l-*-2440"
|
|
"l-*-2438"
|
|
"l-*-2436"
|
|
"l-*-2434"
|
|
"l-*-2432"
|
|
"l-*-2430"
|
|
"l-*-2428"
|
|
"l-*-2426"
|
|
"l-*-2424"
|
|
"l-*-2421"
|
|
"l-*-2419"
|
|
"l-*-2418"
|
|
"l-*-2416"
|
|
"l-*-2414"
|
|
"l-*-2412"
|
|
"l-*-2410"
|
|
"l-*-2409"
|
|
"l-*-2408"
|
|
"l-*-2407"
|
|
"l-*-2405"
|
|
"l-*-2404"
|
|
"l-*-2401"
|
|
"l-*-2399"
|
|
"l-*-2397"
|
|
"l-*-2395"
|
|
"l-*-2393"
|
|
"l-*-2391"
|
|
"l-*-2389"
|
|
"l-*-2388"
|
|
"l-*-2387"
|
|
"l-*-2385"
|
|
"l-*-2383"
|
|
"l-*-2382"
|
|
"l-*-2379"
|
|
"l-*-2378"
|
|
"l-*-2376"
|
|
"l-*-2374"
|
|
"l-*-2372"
|
|
"l-*-2370"
|
|
"l-*-2368"
|
|
"l-*-2366"
|
|
"l-*-2364"
|
|
"l-*-2362"
|
|
"l-*-2360"
|
|
"l-*-2357"
|
|
"l-*-2355"
|
|
"l-*-2353"
|
|
"l-*-2351"
|
|
"l-*-2349"
|
|
"l-*-2347"
|
|
"l-*-2345"
|
|
"l-*-2343"
|
|
"l-*-2341"
|
|
"l-*-2339"
|
|
"l-*-2337"
|
|
"l-*-2335"
|
|
"l-*-2333"
|
|
"l-*-2331"
|
|
"l-*-2329"
|
|
"l-*-2327"
|
|
"l-*-2325"
|
|
"l-*-2323"
|
|
"l-*-2321"
|
|
"l-*-2319"
|
|
"l-*-2317"
|
|
"l-*-2315"
|
|
"l-*-2313"
|
|
"l-*-2311"
|
|
"l-*-2309"
|
|
"l-*-2307"
|
|
"l-*-2306"
|
|
"l-*-2305"
|
|
"l-*-2304"
|
|
"l-*-2303"
|
|
"l-*-2301"
|
|
"l-*-2299"
|
|
"l-*-2297"
|
|
"l-*-2294"
|
|
"l-*-2292"
|
|
"l-*-2290"
|
|
"l-*-2288"
|
|
"l-*-2286"
|
|
"l-*-2284"
|
|
"l-*-2282"
|
|
"l-*-2280"
|
|
"l-*-2278"
|
|
"l-*-2276"
|
|
"l-*-2274"
|
|
"l-*-2272"
|
|
"l-*-2270"
|
|
"l-*-2268"
|
|
"l-*-2266"
|
|
"l-*-2264"
|
|
"l-*-2262"
|
|
"l-*-2260"))
|
|
#(ribcage
|
|
(define-structure
|
|
define-expansion-accessors
|
|
define-expansion-constructors)
|
|
((top) (top) (top))
|
|
("l-*-2098"
|
|
"l-*-2097"
|
|
"l-*-2096")))
|
|
(hygiene guile))))
|
|
(eq? (id-var-name-6568 p-14830 '(()))
|
|
(id-var-name-6568
|
|
'#(syntax-object
|
|
_
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(p n ids)
|
|
#((top) (top) (top))
|
|
#("l-*-5923"
|
|
"l-*-5924"
|
|
"l-*-5925"))
|
|
#(ribcage
|
|
(cvt v-reverse cvt*)
|
|
((top) (top) (top))
|
|
("l-*-5896"
|
|
"l-*-5894"
|
|
"l-*-5892"))
|
|
#(ribcage
|
|
#(pattern keys)
|
|
#((top) (top))
|
|
#("l-*-5890" "l-*-5891"))
|
|
#(ribcage
|
|
(gen-syntax-case
|
|
gen-clause
|
|
build-dispatch-call
|
|
convert-pattern)
|
|
((top) (top) (top) (top))
|
|
("l-*-5886"
|
|
"l-*-5884"
|
|
"l-*-5882"
|
|
"l-*-5880"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
expand-lambda-case
|
|
lambda*-formals
|
|
expand-simple-lambda
|
|
lambda-formals
|
|
ellipsis?
|
|
expand-void
|
|
eval-local-transformer
|
|
expand-local-syntax
|
|
expand-body
|
|
expand-macro
|
|
expand-application
|
|
expand-expr
|
|
expand
|
|
syntax-type
|
|
parse-when-list
|
|
expand-install-global
|
|
expand-top-sequence
|
|
expand-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
with-transformer-environment
|
|
transformer-environment
|
|
resolve-identifier
|
|
locally-bound-identifiers
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
set-syntax-object-module!
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-module
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda-case
|
|
build-case-lambda
|
|
build-simple-lambda
|
|
build-global-definition
|
|
build-global-assignment
|
|
build-global-reference
|
|
analyze-variable
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-dynlet
|
|
build-conditional
|
|
build-application
|
|
build-void
|
|
maybe-name-value!
|
|
decorate-source
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
session-id
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
set-lambda-meta!
|
|
lambda-meta
|
|
lambda?
|
|
make-dynlet
|
|
make-letrec
|
|
make-let
|
|
make-lambda-case
|
|
make-lambda
|
|
make-sequence
|
|
make-application
|
|
make-conditional
|
|
make-toplevel-define
|
|
make-toplevel-set
|
|
make-toplevel-ref
|
|
make-module-set
|
|
make-module-ref
|
|
make-lexical-set
|
|
make-lexical-ref
|
|
make-primitive-ref
|
|
make-const
|
|
make-void)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("l-*-2527"
|
|
"l-*-2525"
|
|
"l-*-2523"
|
|
"l-*-2521"
|
|
"l-*-2519"
|
|
"l-*-2517"
|
|
"l-*-2515"
|
|
"l-*-2513"
|
|
"l-*-2511"
|
|
"l-*-2509"
|
|
"l-*-2507"
|
|
"l-*-2505"
|
|
"l-*-2503"
|
|
"l-*-2501"
|
|
"l-*-2499"
|
|
"l-*-2497"
|
|
"l-*-2495"
|
|
"l-*-2493"
|
|
"l-*-2491"
|
|
"l-*-2489"
|
|
"l-*-2487"
|
|
"l-*-2485"
|
|
"l-*-2483"
|
|
"l-*-2481"
|
|
"l-*-2479"
|
|
"l-*-2477"
|
|
"l-*-2475"
|
|
"l-*-2473"
|
|
"l-*-2471"
|
|
"l-*-2469"
|
|
"l-*-2467"
|
|
"l-*-2465"
|
|
"l-*-2463"
|
|
"l-*-2461"
|
|
"l-*-2459"
|
|
"l-*-2457"
|
|
"l-*-2455"
|
|
"l-*-2453"
|
|
"l-*-2451"
|
|
"l-*-2450"
|
|
"l-*-2448"
|
|
"l-*-2445"
|
|
"l-*-2444"
|
|
"l-*-2443"
|
|
"l-*-2441"
|
|
"l-*-2440"
|
|
"l-*-2438"
|
|
"l-*-2436"
|
|
"l-*-2434"
|
|
"l-*-2432"
|
|
"l-*-2430"
|
|
"l-*-2428"
|
|
"l-*-2426"
|
|
"l-*-2424"
|
|
"l-*-2421"
|
|
"l-*-2419"
|
|
"l-*-2418"
|
|
"l-*-2416"
|
|
"l-*-2414"
|
|
"l-*-2412"
|
|
"l-*-2410"
|
|
"l-*-2409"
|
|
"l-*-2408"
|
|
"l-*-2407"
|
|
"l-*-2405"
|
|
"l-*-2404"
|
|
"l-*-2401"
|
|
"l-*-2399"
|
|
"l-*-2397"
|
|
"l-*-2395"
|
|
"l-*-2393"
|
|
"l-*-2391"
|
|
"l-*-2389"
|
|
"l-*-2388"
|
|
"l-*-2387"
|
|
"l-*-2385"
|
|
"l-*-2383"
|
|
"l-*-2382"
|
|
"l-*-2379"
|
|
"l-*-2378"
|
|
"l-*-2376"
|
|
"l-*-2374"
|
|
"l-*-2372"
|
|
"l-*-2370"
|
|
"l-*-2368"
|
|
"l-*-2366"
|
|
"l-*-2364"
|
|
"l-*-2362"
|
|
"l-*-2360"
|
|
"l-*-2357"
|
|
"l-*-2355"
|
|
"l-*-2353"
|
|
"l-*-2351"
|
|
"l-*-2349"
|
|
"l-*-2347"
|
|
"l-*-2345"
|
|
"l-*-2343"
|
|
"l-*-2341"
|
|
"l-*-2339"
|
|
"l-*-2337"
|
|
"l-*-2335"
|
|
"l-*-2333"
|
|
"l-*-2331"
|
|
"l-*-2329"
|
|
"l-*-2327"
|
|
"l-*-2325"
|
|
"l-*-2323"
|
|
"l-*-2321"
|
|
"l-*-2319"
|
|
"l-*-2317"
|
|
"l-*-2315"
|
|
"l-*-2313"
|
|
"l-*-2311"
|
|
"l-*-2309"
|
|
"l-*-2307"
|
|
"l-*-2306"
|
|
"l-*-2305"
|
|
"l-*-2304"
|
|
"l-*-2303"
|
|
"l-*-2301"
|
|
"l-*-2299"
|
|
"l-*-2297"
|
|
"l-*-2294"
|
|
"l-*-2292"
|
|
"l-*-2290"
|
|
"l-*-2288"
|
|
"l-*-2286"
|
|
"l-*-2284"
|
|
"l-*-2282"
|
|
"l-*-2280"
|
|
"l-*-2278"
|
|
"l-*-2276"
|
|
"l-*-2274"
|
|
"l-*-2272"
|
|
"l-*-2270"
|
|
"l-*-2268"
|
|
"l-*-2266"
|
|
"l-*-2264"
|
|
"l-*-2262"
|
|
"l-*-2260"))
|
|
#(ribcage
|
|
(define-structure
|
|
define-expansion-accessors
|
|
define-expansion-constructors)
|
|
((top) (top) (top))
|
|
("l-*-2098"
|
|
"l-*-2097"
|
|
"l-*-2096")))
|
|
(hygiene guile))
|
|
'(())))
|
|
#f)
|
|
(values '_ ids-14832)
|
|
(values
|
|
'any
|
|
(cons (cons p-14830 n-14831) ids-14832))))
|
|
(let ((tmp-15152 ($sc-dispatch p-14830 '(any any))))
|
|
(if (if tmp-15152
|
|
(@apply
|
|
(lambda (x-15156 dots-15157)
|
|
(if (if (if (vector? dots-15157)
|
|
(if (= (vector-length dots-15157)
|
|
4)
|
|
(eq? (vector-ref dots-15157 0)
|
|
'syntax-object)
|
|
#f)
|
|
#f)
|
|
(symbol? (vector-ref dots-15157 1))
|
|
#f)
|
|
(if (eq? (if (if (vector? dots-15157)
|
|
(if (= (vector-length
|
|
dots-15157)
|
|
4)
|
|
(eq? (vector-ref
|
|
dots-15157
|
|
0)
|
|
'syntax-object)
|
|
#f)
|
|
#f)
|
|
(vector-ref dots-15157 1)
|
|
dots-15157)
|
|
(if (if (= (vector-length
|
|
'#(syntax-object
|
|
...
|
|
((top)
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("l-*-4404"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
expand-lambda-case
|
|
lambda*-formals
|
|
expand-simple-lambda
|
|
lambda-formals
|
|
ellipsis?
|
|
expand-void
|
|
eval-local-transformer
|
|
expand-local-syntax
|
|
expand-body
|
|
expand-macro
|
|
expand-application
|
|
expand-expr
|
|
expand
|
|
syntax-type
|
|
parse-when-list
|
|
expand-install-global
|
|
expand-top-sequence
|
|
expand-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
with-transformer-environment
|
|
transformer-environment
|
|
resolve-identifier
|
|
locally-bound-identifiers
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
set-syntax-object-module!
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-module
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda-case
|
|
build-case-lambda
|
|
build-simple-lambda
|
|
build-global-definition
|
|
build-global-assignment
|
|
build-global-reference
|
|
analyze-variable
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-dynlet
|
|
build-conditional
|
|
build-application
|
|
build-void
|
|
maybe-name-value!
|
|
decorate-source
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
session-id
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
set-lambda-meta!
|
|
lambda-meta
|
|
lambda?
|
|
make-dynlet
|
|
make-letrec
|
|
make-let
|
|
make-lambda-case
|
|
make-lambda
|
|
make-sequence
|
|
make-application
|
|
make-conditional
|
|
make-toplevel-define
|
|
make-toplevel-set
|
|
make-toplevel-ref
|
|
make-module-set
|
|
make-module-ref
|
|
make-lexical-set
|
|
make-lexical-ref
|
|
make-primitive-ref
|
|
make-const
|
|
make-void)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("l-*-2527"
|
|
"l-*-2525"
|
|
"l-*-2523"
|
|
"l-*-2521"
|
|
"l-*-2519"
|
|
"l-*-2517"
|
|
"l-*-2515"
|
|
"l-*-2513"
|
|
"l-*-2511"
|
|
"l-*-2509"
|
|
"l-*-2507"
|
|
"l-*-2505"
|
|
"l-*-2503"
|
|
"l-*-2501"
|
|
"l-*-2499"
|
|
"l-*-2497"
|
|
"l-*-2495"
|
|
"l-*-2493"
|
|
"l-*-2491"
|
|
"l-*-2489"
|
|
"l-*-2487"
|
|
"l-*-2485"
|
|
"l-*-2483"
|
|
"l-*-2481"
|
|
"l-*-2479"
|
|
"l-*-2477"
|
|
"l-*-2475"
|
|
"l-*-2473"
|
|
"l-*-2471"
|
|
"l-*-2469"
|
|
"l-*-2467"
|
|
"l-*-2465"
|
|
"l-*-2463"
|
|
"l-*-2461"
|
|
"l-*-2459"
|
|
"l-*-2457"
|
|
"l-*-2455"
|
|
"l-*-2453"
|
|
"l-*-2451"
|
|
"l-*-2450"
|
|
"l-*-2448"
|
|
"l-*-2445"
|
|
"l-*-2444"
|
|
"l-*-2443"
|
|
"l-*-2441"
|
|
"l-*-2440"
|
|
"l-*-2438"
|
|
"l-*-2436"
|
|
"l-*-2434"
|
|
"l-*-2432"
|
|
"l-*-2430"
|
|
"l-*-2428"
|
|
"l-*-2426"
|
|
"l-*-2424"
|
|
"l-*-2421"
|
|
"l-*-2419"
|
|
"l-*-2418"
|
|
"l-*-2416"
|
|
"l-*-2414"
|
|
"l-*-2412"
|
|
"l-*-2410"
|
|
"l-*-2409"
|
|
"l-*-2408"
|
|
"l-*-2407"
|
|
"l-*-2405"
|
|
"l-*-2404"
|
|
"l-*-2401"
|
|
"l-*-2399"
|
|
"l-*-2397"
|
|
"l-*-2395"
|
|
"l-*-2393"
|
|
"l-*-2391"
|
|
"l-*-2389"
|
|
"l-*-2388"
|
|
"l-*-2387"
|
|
"l-*-2385"
|
|
"l-*-2383"
|
|
"l-*-2382"
|
|
"l-*-2379"
|
|
"l-*-2378"
|
|
"l-*-2376"
|
|
"l-*-2374"
|
|
"l-*-2372"
|
|
"l-*-2370"
|
|
"l-*-2368"
|
|
"l-*-2366"
|
|
"l-*-2364"
|
|
"l-*-2362"
|
|
"l-*-2360"
|
|
"l-*-2357"
|
|
"l-*-2355"
|
|
"l-*-2353"
|
|
"l-*-2351"
|
|
"l-*-2349"
|
|
"l-*-2347"
|
|
"l-*-2345"
|
|
"l-*-2343"
|
|
"l-*-2341"
|
|
"l-*-2339"
|
|
"l-*-2337"
|
|
"l-*-2335"
|
|
"l-*-2333"
|
|
"l-*-2331"
|
|
"l-*-2329"
|
|
"l-*-2327"
|
|
"l-*-2325"
|
|
"l-*-2323"
|
|
"l-*-2321"
|
|
"l-*-2319"
|
|
"l-*-2317"
|
|
"l-*-2315"
|
|
"l-*-2313"
|
|
"l-*-2311"
|
|
"l-*-2309"
|
|
"l-*-2307"
|
|
"l-*-2306"
|
|
"l-*-2305"
|
|
"l-*-2304"
|
|
"l-*-2303"
|
|
"l-*-2301"
|
|
"l-*-2299"
|
|
"l-*-2297"
|
|
"l-*-2294"
|
|
"l-*-2292"
|
|
"l-*-2290"
|
|
"l-*-2288"
|
|
"l-*-2286"
|
|
"l-*-2284"
|
|
"l-*-2282"
|
|
"l-*-2280"
|
|
"l-*-2278"
|
|
"l-*-2276"
|
|
"l-*-2274"
|
|
"l-*-2272"
|
|
"l-*-2270"
|
|
"l-*-2268"
|
|
"l-*-2266"
|
|
"l-*-2264"
|
|
"l-*-2262"
|
|
"l-*-2260"))
|
|
#(ribcage
|
|
(define-structure
|
|
define-expansion-accessors
|
|
define-expansion-constructors)
|
|
((top)
|
|
(top)
|
|
(top))
|
|
("l-*-2098"
|
|
"l-*-2097"
|
|
"l-*-2096")))
|
|
(hygiene
|
|
guile)))
|
|
4)
|
|
#t
|
|
#f)
|
|
'...
|
|
'#(syntax-object
|
|
...
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("l-*-4404"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
expand-lambda-case
|
|
lambda*-formals
|
|
expand-simple-lambda
|
|
lambda-formals
|
|
ellipsis?
|
|
expand-void
|
|
eval-local-transformer
|
|
expand-local-syntax
|
|
expand-body
|
|
expand-macro
|
|
expand-application
|
|
expand-expr
|
|
expand
|
|
syntax-type
|
|
parse-when-list
|
|
expand-install-global
|
|
expand-top-sequence
|
|
expand-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
with-transformer-environment
|
|
transformer-environment
|
|
resolve-identifier
|
|
locally-bound-identifiers
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
set-syntax-object-module!
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-module
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda-case
|
|
build-case-lambda
|
|
build-simple-lambda
|
|
build-global-definition
|
|
build-global-assignment
|
|
build-global-reference
|
|
analyze-variable
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-dynlet
|
|
build-conditional
|
|
build-application
|
|
build-void
|
|
maybe-name-value!
|
|
decorate-source
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
session-id
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
set-lambda-meta!
|
|
lambda-meta
|
|
lambda?
|
|
make-dynlet
|
|
make-letrec
|
|
make-let
|
|
make-lambda-case
|
|
make-lambda
|
|
make-sequence
|
|
make-application
|
|
make-conditional
|
|
make-toplevel-define
|
|
make-toplevel-set
|
|
make-toplevel-ref
|
|
make-module-set
|
|
make-module-ref
|
|
make-lexical-set
|
|
make-lexical-ref
|
|
make-primitive-ref
|
|
make-const
|
|
make-void)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("l-*-2527"
|
|
"l-*-2525"
|
|
"l-*-2523"
|
|
"l-*-2521"
|
|
"l-*-2519"
|
|
"l-*-2517"
|
|
"l-*-2515"
|
|
"l-*-2513"
|
|
"l-*-2511"
|
|
"l-*-2509"
|
|
"l-*-2507"
|
|
"l-*-2505"
|
|
"l-*-2503"
|
|
"l-*-2501"
|
|
"l-*-2499"
|
|
"l-*-2497"
|
|
"l-*-2495"
|
|
"l-*-2493"
|
|
"l-*-2491"
|
|
"l-*-2489"
|
|
"l-*-2487"
|
|
"l-*-2485"
|
|
"l-*-2483"
|
|
"l-*-2481"
|
|
"l-*-2479"
|
|
"l-*-2477"
|
|
"l-*-2475"
|
|
"l-*-2473"
|
|
"l-*-2471"
|
|
"l-*-2469"
|
|
"l-*-2467"
|
|
"l-*-2465"
|
|
"l-*-2463"
|
|
"l-*-2461"
|
|
"l-*-2459"
|
|
"l-*-2457"
|
|
"l-*-2455"
|
|
"l-*-2453"
|
|
"l-*-2451"
|
|
"l-*-2450"
|
|
"l-*-2448"
|
|
"l-*-2445"
|
|
"l-*-2444"
|
|
"l-*-2443"
|
|
"l-*-2441"
|
|
"l-*-2440"
|
|
"l-*-2438"
|
|
"l-*-2436"
|
|
"l-*-2434"
|
|
"l-*-2432"
|
|
"l-*-2430"
|
|
"l-*-2428"
|
|
"l-*-2426"
|
|
"l-*-2424"
|
|
"l-*-2421"
|
|
"l-*-2419"
|
|
"l-*-2418"
|
|
"l-*-2416"
|
|
"l-*-2414"
|
|
"l-*-2412"
|
|
"l-*-2410"
|
|
"l-*-2409"
|
|
"l-*-2408"
|
|
"l-*-2407"
|
|
"l-*-2405"
|
|
"l-*-2404"
|
|
"l-*-2401"
|
|
"l-*-2399"
|
|
"l-*-2397"
|
|
"l-*-2395"
|
|
"l-*-2393"
|
|
"l-*-2391"
|
|
"l-*-2389"
|
|
"l-*-2388"
|
|
"l-*-2387"
|
|
"l-*-2385"
|
|
"l-*-2383"
|
|
"l-*-2382"
|
|
"l-*-2379"
|
|
"l-*-2378"
|
|
"l-*-2376"
|
|
"l-*-2374"
|
|
"l-*-2372"
|
|
"l-*-2370"
|
|
"l-*-2368"
|
|
"l-*-2366"
|
|
"l-*-2364"
|
|
"l-*-2362"
|
|
"l-*-2360"
|
|
"l-*-2357"
|
|
"l-*-2355"
|
|
"l-*-2353"
|
|
"l-*-2351"
|
|
"l-*-2349"
|
|
"l-*-2347"
|
|
"l-*-2345"
|
|
"l-*-2343"
|
|
"l-*-2341"
|
|
"l-*-2339"
|
|
"l-*-2337"
|
|
"l-*-2335"
|
|
"l-*-2333"
|
|
"l-*-2331"
|
|
"l-*-2329"
|
|
"l-*-2327"
|
|
"l-*-2325"
|
|
"l-*-2323"
|
|
"l-*-2321"
|
|
"l-*-2319"
|
|
"l-*-2317"
|
|
"l-*-2315"
|
|
"l-*-2313"
|
|
"l-*-2311"
|
|
"l-*-2309"
|
|
"l-*-2307"
|
|
"l-*-2306"
|
|
"l-*-2305"
|
|
"l-*-2304"
|
|
"l-*-2303"
|
|
"l-*-2301"
|
|
"l-*-2299"
|
|
"l-*-2297"
|
|
"l-*-2294"
|
|
"l-*-2292"
|
|
"l-*-2290"
|
|
"l-*-2288"
|
|
"l-*-2286"
|
|
"l-*-2284"
|
|
"l-*-2282"
|
|
"l-*-2280"
|
|
"l-*-2278"
|
|
"l-*-2276"
|
|
"l-*-2274"
|
|
"l-*-2272"
|
|
"l-*-2270"
|
|
"l-*-2268"
|
|
"l-*-2266"
|
|
"l-*-2264"
|
|
"l-*-2262"
|
|
"l-*-2260"))
|
|
#(ribcage
|
|
(define-structure
|
|
define-expansion-accessors
|
|
define-expansion-constructors)
|
|
((top) (top) (top))
|
|
("l-*-2098"
|
|
"l-*-2097"
|
|
"l-*-2096")))
|
|
(hygiene guile))))
|
|
(eq? (id-var-name-6568
|
|
dots-15157
|
|
'(()))
|
|
(id-var-name-6568
|
|
'#(syntax-object
|
|
...
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("l-*-4404"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
expand-lambda-case
|
|
lambda*-formals
|
|
expand-simple-lambda
|
|
lambda-formals
|
|
ellipsis?
|
|
expand-void
|
|
eval-local-transformer
|
|
expand-local-syntax
|
|
expand-body
|
|
expand-macro
|
|
expand-application
|
|
expand-expr
|
|
expand
|
|
syntax-type
|
|
parse-when-list
|
|
expand-install-global
|
|
expand-top-sequence
|
|
expand-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
with-transformer-environment
|
|
transformer-environment
|
|
resolve-identifier
|
|
locally-bound-identifiers
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
set-syntax-object-module!
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-module
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda-case
|
|
build-case-lambda
|
|
build-simple-lambda
|
|
build-global-definition
|
|
build-global-assignment
|
|
build-global-reference
|
|
analyze-variable
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-dynlet
|
|
build-conditional
|
|
build-application
|
|
build-void
|
|
maybe-name-value!
|
|
decorate-source
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
session-id
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
set-lambda-meta!
|
|
lambda-meta
|
|
lambda?
|
|
make-dynlet
|
|
make-letrec
|
|
make-let
|
|
make-lambda-case
|
|
make-lambda
|
|
make-sequence
|
|
make-application
|
|
make-conditional
|
|
make-toplevel-define
|
|
make-toplevel-set
|
|
make-toplevel-ref
|
|
make-module-set
|
|
make-module-ref
|
|
make-lexical-set
|
|
make-lexical-ref
|
|
make-primitive-ref
|
|
make-const
|
|
make-void)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("l-*-2527"
|
|
"l-*-2525"
|
|
"l-*-2523"
|
|
"l-*-2521"
|
|
"l-*-2519"
|
|
"l-*-2517"
|
|
"l-*-2515"
|
|
"l-*-2513"
|
|
"l-*-2511"
|
|
"l-*-2509"
|
|
"l-*-2507"
|
|
"l-*-2505"
|
|
"l-*-2503"
|
|
"l-*-2501"
|
|
"l-*-2499"
|
|
"l-*-2497"
|
|
"l-*-2495"
|
|
"l-*-2493"
|
|
"l-*-2491"
|
|
"l-*-2489"
|
|
"l-*-2487"
|
|
"l-*-2485"
|
|
"l-*-2483"
|
|
"l-*-2481"
|
|
"l-*-2479"
|
|
"l-*-2477"
|
|
"l-*-2475"
|
|
"l-*-2473"
|
|
"l-*-2471"
|
|
"l-*-2469"
|
|
"l-*-2467"
|
|
"l-*-2465"
|
|
"l-*-2463"
|
|
"l-*-2461"
|
|
"l-*-2459"
|
|
"l-*-2457"
|
|
"l-*-2455"
|
|
"l-*-2453"
|
|
"l-*-2451"
|
|
"l-*-2450"
|
|
"l-*-2448"
|
|
"l-*-2445"
|
|
"l-*-2444"
|
|
"l-*-2443"
|
|
"l-*-2441"
|
|
"l-*-2440"
|
|
"l-*-2438"
|
|
"l-*-2436"
|
|
"l-*-2434"
|
|
"l-*-2432"
|
|
"l-*-2430"
|
|
"l-*-2428"
|
|
"l-*-2426"
|
|
"l-*-2424"
|
|
"l-*-2421"
|
|
"l-*-2419"
|
|
"l-*-2418"
|
|
"l-*-2416"
|
|
"l-*-2414"
|
|
"l-*-2412"
|
|
"l-*-2410"
|
|
"l-*-2409"
|
|
"l-*-2408"
|
|
"l-*-2407"
|
|
"l-*-2405"
|
|
"l-*-2404"
|
|
"l-*-2401"
|
|
"l-*-2399"
|
|
"l-*-2397"
|
|
"l-*-2395"
|
|
"l-*-2393"
|
|
"l-*-2391"
|
|
"l-*-2389"
|
|
"l-*-2388"
|
|
"l-*-2387"
|
|
"l-*-2385"
|
|
"l-*-2383"
|
|
"l-*-2382"
|
|
"l-*-2379"
|
|
"l-*-2378"
|
|
"l-*-2376"
|
|
"l-*-2374"
|
|
"l-*-2372"
|
|
"l-*-2370"
|
|
"l-*-2368"
|
|
"l-*-2366"
|
|
"l-*-2364"
|
|
"l-*-2362"
|
|
"l-*-2360"
|
|
"l-*-2357"
|
|
"l-*-2355"
|
|
"l-*-2353"
|
|
"l-*-2351"
|
|
"l-*-2349"
|
|
"l-*-2347"
|
|
"l-*-2345"
|
|
"l-*-2343"
|
|
"l-*-2341"
|
|
"l-*-2339"
|
|
"l-*-2337"
|
|
"l-*-2335"
|
|
"l-*-2333"
|
|
"l-*-2331"
|
|
"l-*-2329"
|
|
"l-*-2327"
|
|
"l-*-2325"
|
|
"l-*-2323"
|
|
"l-*-2321"
|
|
"l-*-2319"
|
|
"l-*-2317"
|
|
"l-*-2315"
|
|
"l-*-2313"
|
|
"l-*-2311"
|
|
"l-*-2309"
|
|
"l-*-2307"
|
|
"l-*-2306"
|
|
"l-*-2305"
|
|
"l-*-2304"
|
|
"l-*-2303"
|
|
"l-*-2301"
|
|
"l-*-2299"
|
|
"l-*-2297"
|
|
"l-*-2294"
|
|
"l-*-2292"
|
|
"l-*-2290"
|
|
"l-*-2288"
|
|
"l-*-2286"
|
|
"l-*-2284"
|
|
"l-*-2282"
|
|
"l-*-2280"
|
|
"l-*-2278"
|
|
"l-*-2276"
|
|
"l-*-2274"
|
|
"l-*-2272"
|
|
"l-*-2270"
|
|
"l-*-2268"
|
|
"l-*-2266"
|
|
"l-*-2264"
|
|
"l-*-2262"
|
|
"l-*-2260"))
|
|
#(ribcage
|
|
(define-structure
|
|
define-expansion-accessors
|
|
define-expansion-constructors)
|
|
((top) (top) (top))
|
|
("l-*-2098"
|
|
"l-*-2097"
|
|
"l-*-2096")))
|
|
(hygiene guile))
|
|
'(())))
|
|
#f)
|
|
#f))
|
|
tmp-15152)
|
|
#f)
|
|
(@apply
|
|
(lambda (x-15257 dots-15258)
|
|
(call-with-values
|
|
(lambda ()
|
|
(cvt-14827
|
|
x-15257
|
|
(#{1+}# n-14831)
|
|
ids-14832))
|
|
(lambda (p-15259 ids-15260)
|
|
(values
|
|
(if (eq? p-15259 'any)
|
|
'each-any
|
|
(vector 'each p-15259))
|
|
ids-15260))))
|
|
tmp-15152)
|
|
(let ((tmp-15261
|
|
($sc-dispatch p-14830 '(any any . any))))
|
|
(if (if tmp-15261
|
|
(@apply
|
|
(lambda (x-15265 dots-15266 ys-15267)
|
|
(if (if (if (vector? dots-15266)
|
|
(if (= (vector-length
|
|
dots-15266)
|
|
4)
|
|
(eq? (vector-ref
|
|
dots-15266
|
|
0)
|
|
'syntax-object)
|
|
#f)
|
|
#f)
|
|
(symbol?
|
|
(vector-ref dots-15266 1))
|
|
#f)
|
|
(if (eq? (if (if (vector? dots-15266)
|
|
(if (= (vector-length
|
|
dots-15266)
|
|
4)
|
|
(eq? (vector-ref
|
|
dots-15266
|
|
0)
|
|
'syntax-object)
|
|
#f)
|
|
#f)
|
|
(vector-ref dots-15266 1)
|
|
dots-15266)
|
|
(if (if (= (vector-length
|
|
'#(syntax-object
|
|
...
|
|
((top)
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("l-*-4404"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
expand-lambda-case
|
|
lambda*-formals
|
|
expand-simple-lambda
|
|
lambda-formals
|
|
ellipsis?
|
|
expand-void
|
|
eval-local-transformer
|
|
expand-local-syntax
|
|
expand-body
|
|
expand-macro
|
|
expand-application
|
|
expand-expr
|
|
expand
|
|
syntax-type
|
|
parse-when-list
|
|
expand-install-global
|
|
expand-top-sequence
|
|
expand-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
with-transformer-environment
|
|
transformer-environment
|
|
resolve-identifier
|
|
locally-bound-identifiers
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
set-syntax-object-module!
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-module
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda-case
|
|
build-case-lambda
|
|
build-simple-lambda
|
|
build-global-definition
|
|
build-global-assignment
|
|
build-global-reference
|
|
analyze-variable
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-dynlet
|
|
build-conditional
|
|
build-application
|
|
build-void
|
|
maybe-name-value!
|
|
decorate-source
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
session-id
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
set-lambda-meta!
|
|
lambda-meta
|
|
lambda?
|
|
make-dynlet
|
|
make-letrec
|
|
make-let
|
|
make-lambda-case
|
|
make-lambda
|
|
make-sequence
|
|
make-application
|
|
make-conditional
|
|
make-toplevel-define
|
|
make-toplevel-set
|
|
make-toplevel-ref
|
|
make-module-set
|
|
make-module-ref
|
|
make-lexical-set
|
|
make-lexical-ref
|
|
make-primitive-ref
|
|
make-const
|
|
make-void)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("l-*-2527"
|
|
"l-*-2525"
|
|
"l-*-2523"
|
|
"l-*-2521"
|
|
"l-*-2519"
|
|
"l-*-2517"
|
|
"l-*-2515"
|
|
"l-*-2513"
|
|
"l-*-2511"
|
|
"l-*-2509"
|
|
"l-*-2507"
|
|
"l-*-2505"
|
|
"l-*-2503"
|
|
"l-*-2501"
|
|
"l-*-2499"
|
|
"l-*-2497"
|
|
"l-*-2495"
|
|
"l-*-2493"
|
|
"l-*-2491"
|
|
"l-*-2489"
|
|
"l-*-2487"
|
|
"l-*-2485"
|
|
"l-*-2483"
|
|
"l-*-2481"
|
|
"l-*-2479"
|
|
"l-*-2477"
|
|
"l-*-2475"
|
|
"l-*-2473"
|
|
"l-*-2471"
|
|
"l-*-2469"
|
|
"l-*-2467"
|
|
"l-*-2465"
|
|
"l-*-2463"
|
|
"l-*-2461"
|
|
"l-*-2459"
|
|
"l-*-2457"
|
|
"l-*-2455"
|
|
"l-*-2453"
|
|
"l-*-2451"
|
|
"l-*-2450"
|
|
"l-*-2448"
|
|
"l-*-2445"
|
|
"l-*-2444"
|
|
"l-*-2443"
|
|
"l-*-2441"
|
|
"l-*-2440"
|
|
"l-*-2438"
|
|
"l-*-2436"
|
|
"l-*-2434"
|
|
"l-*-2432"
|
|
"l-*-2430"
|
|
"l-*-2428"
|
|
"l-*-2426"
|
|
"l-*-2424"
|
|
"l-*-2421"
|
|
"l-*-2419"
|
|
"l-*-2418"
|
|
"l-*-2416"
|
|
"l-*-2414"
|
|
"l-*-2412"
|
|
"l-*-2410"
|
|
"l-*-2409"
|
|
"l-*-2408"
|
|
"l-*-2407"
|
|
"l-*-2405"
|
|
"l-*-2404"
|
|
"l-*-2401"
|
|
"l-*-2399"
|
|
"l-*-2397"
|
|
"l-*-2395"
|
|
"l-*-2393"
|
|
"l-*-2391"
|
|
"l-*-2389"
|
|
"l-*-2388"
|
|
"l-*-2387"
|
|
"l-*-2385"
|
|
"l-*-2383"
|
|
"l-*-2382"
|
|
"l-*-2379"
|
|
"l-*-2378"
|
|
"l-*-2376"
|
|
"l-*-2374"
|
|
"l-*-2372"
|
|
"l-*-2370"
|
|
"l-*-2368"
|
|
"l-*-2366"
|
|
"l-*-2364"
|
|
"l-*-2362"
|
|
"l-*-2360"
|
|
"l-*-2357"
|
|
"l-*-2355"
|
|
"l-*-2353"
|
|
"l-*-2351"
|
|
"l-*-2349"
|
|
"l-*-2347"
|
|
"l-*-2345"
|
|
"l-*-2343"
|
|
"l-*-2341"
|
|
"l-*-2339"
|
|
"l-*-2337"
|
|
"l-*-2335"
|
|
"l-*-2333"
|
|
"l-*-2331"
|
|
"l-*-2329"
|
|
"l-*-2327"
|
|
"l-*-2325"
|
|
"l-*-2323"
|
|
"l-*-2321"
|
|
"l-*-2319"
|
|
"l-*-2317"
|
|
"l-*-2315"
|
|
"l-*-2313"
|
|
"l-*-2311"
|
|
"l-*-2309"
|
|
"l-*-2307"
|
|
"l-*-2306"
|
|
"l-*-2305"
|
|
"l-*-2304"
|
|
"l-*-2303"
|
|
"l-*-2301"
|
|
"l-*-2299"
|
|
"l-*-2297"
|
|
"l-*-2294"
|
|
"l-*-2292"
|
|
"l-*-2290"
|
|
"l-*-2288"
|
|
"l-*-2286"
|
|
"l-*-2284"
|
|
"l-*-2282"
|
|
"l-*-2280"
|
|
"l-*-2278"
|
|
"l-*-2276"
|
|
"l-*-2274"
|
|
"l-*-2272"
|
|
"l-*-2270"
|
|
"l-*-2268"
|
|
"l-*-2266"
|
|
"l-*-2264"
|
|
"l-*-2262"
|
|
"l-*-2260"))
|
|
#(ribcage
|
|
(define-structure
|
|
define-expansion-accessors
|
|
define-expansion-constructors)
|
|
((top)
|
|
(top)
|
|
(top))
|
|
("l-*-2098"
|
|
"l-*-2097"
|
|
"l-*-2096")))
|
|
(hygiene
|
|
guile)))
|
|
4)
|
|
#t
|
|
#f)
|
|
'...
|
|
'#(syntax-object
|
|
...
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("l-*-4404"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
expand-lambda-case
|
|
lambda*-formals
|
|
expand-simple-lambda
|
|
lambda-formals
|
|
ellipsis?
|
|
expand-void
|
|
eval-local-transformer
|
|
expand-local-syntax
|
|
expand-body
|
|
expand-macro
|
|
expand-application
|
|
expand-expr
|
|
expand
|
|
syntax-type
|
|
parse-when-list
|
|
expand-install-global
|
|
expand-top-sequence
|
|
expand-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
with-transformer-environment
|
|
transformer-environment
|
|
resolve-identifier
|
|
locally-bound-identifiers
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
set-syntax-object-module!
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-module
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda-case
|
|
build-case-lambda
|
|
build-simple-lambda
|
|
build-global-definition
|
|
build-global-assignment
|
|
build-global-reference
|
|
analyze-variable
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-dynlet
|
|
build-conditional
|
|
build-application
|
|
build-void
|
|
maybe-name-value!
|
|
decorate-source
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
session-id
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
set-lambda-meta!
|
|
lambda-meta
|
|
lambda?
|
|
make-dynlet
|
|
make-letrec
|
|
make-let
|
|
make-lambda-case
|
|
make-lambda
|
|
make-sequence
|
|
make-application
|
|
make-conditional
|
|
make-toplevel-define
|
|
make-toplevel-set
|
|
make-toplevel-ref
|
|
make-module-set
|
|
make-module-ref
|
|
make-lexical-set
|
|
make-lexical-ref
|
|
make-primitive-ref
|
|
make-const
|
|
make-void)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("l-*-2527"
|
|
"l-*-2525"
|
|
"l-*-2523"
|
|
"l-*-2521"
|
|
"l-*-2519"
|
|
"l-*-2517"
|
|
"l-*-2515"
|
|
"l-*-2513"
|
|
"l-*-2511"
|
|
"l-*-2509"
|
|
"l-*-2507"
|
|
"l-*-2505"
|
|
"l-*-2503"
|
|
"l-*-2501"
|
|
"l-*-2499"
|
|
"l-*-2497"
|
|
"l-*-2495"
|
|
"l-*-2493"
|
|
"l-*-2491"
|
|
"l-*-2489"
|
|
"l-*-2487"
|
|
"l-*-2485"
|
|
"l-*-2483"
|
|
"l-*-2481"
|
|
"l-*-2479"
|
|
"l-*-2477"
|
|
"l-*-2475"
|
|
"l-*-2473"
|
|
"l-*-2471"
|
|
"l-*-2469"
|
|
"l-*-2467"
|
|
"l-*-2465"
|
|
"l-*-2463"
|
|
"l-*-2461"
|
|
"l-*-2459"
|
|
"l-*-2457"
|
|
"l-*-2455"
|
|
"l-*-2453"
|
|
"l-*-2451"
|
|
"l-*-2450"
|
|
"l-*-2448"
|
|
"l-*-2445"
|
|
"l-*-2444"
|
|
"l-*-2443"
|
|
"l-*-2441"
|
|
"l-*-2440"
|
|
"l-*-2438"
|
|
"l-*-2436"
|
|
"l-*-2434"
|
|
"l-*-2432"
|
|
"l-*-2430"
|
|
"l-*-2428"
|
|
"l-*-2426"
|
|
"l-*-2424"
|
|
"l-*-2421"
|
|
"l-*-2419"
|
|
"l-*-2418"
|
|
"l-*-2416"
|
|
"l-*-2414"
|
|
"l-*-2412"
|
|
"l-*-2410"
|
|
"l-*-2409"
|
|
"l-*-2408"
|
|
"l-*-2407"
|
|
"l-*-2405"
|
|
"l-*-2404"
|
|
"l-*-2401"
|
|
"l-*-2399"
|
|
"l-*-2397"
|
|
"l-*-2395"
|
|
"l-*-2393"
|
|
"l-*-2391"
|
|
"l-*-2389"
|
|
"l-*-2388"
|
|
"l-*-2387"
|
|
"l-*-2385"
|
|
"l-*-2383"
|
|
"l-*-2382"
|
|
"l-*-2379"
|
|
"l-*-2378"
|
|
"l-*-2376"
|
|
"l-*-2374"
|
|
"l-*-2372"
|
|
"l-*-2370"
|
|
"l-*-2368"
|
|
"l-*-2366"
|
|
"l-*-2364"
|
|
"l-*-2362"
|
|
"l-*-2360"
|
|
"l-*-2357"
|
|
"l-*-2355"
|
|
"l-*-2353"
|
|
"l-*-2351"
|
|
"l-*-2349"
|
|
"l-*-2347"
|
|
"l-*-2345"
|
|
"l-*-2343"
|
|
"l-*-2341"
|
|
"l-*-2339"
|
|
"l-*-2337"
|
|
"l-*-2335"
|
|
"l-*-2333"
|
|
"l-*-2331"
|
|
"l-*-2329"
|
|
"l-*-2327"
|
|
"l-*-2325"
|
|
"l-*-2323"
|
|
"l-*-2321"
|
|
"l-*-2319"
|
|
"l-*-2317"
|
|
"l-*-2315"
|
|
"l-*-2313"
|
|
"l-*-2311"
|
|
"l-*-2309"
|
|
"l-*-2307"
|
|
"l-*-2306"
|
|
"l-*-2305"
|
|
"l-*-2304"
|
|
"l-*-2303"
|
|
"l-*-2301"
|
|
"l-*-2299"
|
|
"l-*-2297"
|
|
"l-*-2294"
|
|
"l-*-2292"
|
|
"l-*-2290"
|
|
"l-*-2288"
|
|
"l-*-2286"
|
|
"l-*-2284"
|
|
"l-*-2282"
|
|
"l-*-2280"
|
|
"l-*-2278"
|
|
"l-*-2276"
|
|
"l-*-2274"
|
|
"l-*-2272"
|
|
"l-*-2270"
|
|
"l-*-2268"
|
|
"l-*-2266"
|
|
"l-*-2264"
|
|
"l-*-2262"
|
|
"l-*-2260"))
|
|
#(ribcage
|
|
(define-structure
|
|
define-expansion-accessors
|
|
define-expansion-constructors)
|
|
((top) (top) (top))
|
|
("l-*-2098"
|
|
"l-*-2097"
|
|
"l-*-2096")))
|
|
(hygiene guile))))
|
|
(eq? (id-var-name-6568
|
|
dots-15266
|
|
'(()))
|
|
(id-var-name-6568
|
|
'#(syntax-object
|
|
...
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("l-*-4404"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
expand-lambda-case
|
|
lambda*-formals
|
|
expand-simple-lambda
|
|
lambda-formals
|
|
ellipsis?
|
|
expand-void
|
|
eval-local-transformer
|
|
expand-local-syntax
|
|
expand-body
|
|
expand-macro
|
|
expand-application
|
|
expand-expr
|
|
expand
|
|
syntax-type
|
|
parse-when-list
|
|
expand-install-global
|
|
expand-top-sequence
|
|
expand-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
with-transformer-environment
|
|
transformer-environment
|
|
resolve-identifier
|
|
locally-bound-identifiers
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
set-syntax-object-module!
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-module
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda-case
|
|
build-case-lambda
|
|
build-simple-lambda
|
|
build-global-definition
|
|
build-global-assignment
|
|
build-global-reference
|
|
analyze-variable
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-dynlet
|
|
build-conditional
|
|
build-application
|
|
build-void
|
|
maybe-name-value!
|
|
decorate-source
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
session-id
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
set-lambda-meta!
|
|
lambda-meta
|
|
lambda?
|
|
make-dynlet
|
|
make-letrec
|
|
make-let
|
|
make-lambda-case
|
|
make-lambda
|
|
make-sequence
|
|
make-application
|
|
make-conditional
|
|
make-toplevel-define
|
|
make-toplevel-set
|
|
make-toplevel-ref
|
|
make-module-set
|
|
make-module-ref
|
|
make-lexical-set
|
|
make-lexical-ref
|
|
make-primitive-ref
|
|
make-const
|
|
make-void)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("l-*-2527"
|
|
"l-*-2525"
|
|
"l-*-2523"
|
|
"l-*-2521"
|
|
"l-*-2519"
|
|
"l-*-2517"
|
|
"l-*-2515"
|
|
"l-*-2513"
|
|
"l-*-2511"
|
|
"l-*-2509"
|
|
"l-*-2507"
|
|
"l-*-2505"
|
|
"l-*-2503"
|
|
"l-*-2501"
|
|
"l-*-2499"
|
|
"l-*-2497"
|
|
"l-*-2495"
|
|
"l-*-2493"
|
|
"l-*-2491"
|
|
"l-*-2489"
|
|
"l-*-2487"
|
|
"l-*-2485"
|
|
"l-*-2483"
|
|
"l-*-2481"
|
|
"l-*-2479"
|
|
"l-*-2477"
|
|
"l-*-2475"
|
|
"l-*-2473"
|
|
"l-*-2471"
|
|
"l-*-2469"
|
|
"l-*-2467"
|
|
"l-*-2465"
|
|
"l-*-2463"
|
|
"l-*-2461"
|
|
"l-*-2459"
|
|
"l-*-2457"
|
|
"l-*-2455"
|
|
"l-*-2453"
|
|
"l-*-2451"
|
|
"l-*-2450"
|
|
"l-*-2448"
|
|
"l-*-2445"
|
|
"l-*-2444"
|
|
"l-*-2443"
|
|
"l-*-2441"
|
|
"l-*-2440"
|
|
"l-*-2438"
|
|
"l-*-2436"
|
|
"l-*-2434"
|
|
"l-*-2432"
|
|
"l-*-2430"
|
|
"l-*-2428"
|
|
"l-*-2426"
|
|
"l-*-2424"
|
|
"l-*-2421"
|
|
"l-*-2419"
|
|
"l-*-2418"
|
|
"l-*-2416"
|
|
"l-*-2414"
|
|
"l-*-2412"
|
|
"l-*-2410"
|
|
"l-*-2409"
|
|
"l-*-2408"
|
|
"l-*-2407"
|
|
"l-*-2405"
|
|
"l-*-2404"
|
|
"l-*-2401"
|
|
"l-*-2399"
|
|
"l-*-2397"
|
|
"l-*-2395"
|
|
"l-*-2393"
|
|
"l-*-2391"
|
|
"l-*-2389"
|
|
"l-*-2388"
|
|
"l-*-2387"
|
|
"l-*-2385"
|
|
"l-*-2383"
|
|
"l-*-2382"
|
|
"l-*-2379"
|
|
"l-*-2378"
|
|
"l-*-2376"
|
|
"l-*-2374"
|
|
"l-*-2372"
|
|
"l-*-2370"
|
|
"l-*-2368"
|
|
"l-*-2366"
|
|
"l-*-2364"
|
|
"l-*-2362"
|
|
"l-*-2360"
|
|
"l-*-2357"
|
|
"l-*-2355"
|
|
"l-*-2353"
|
|
"l-*-2351"
|
|
"l-*-2349"
|
|
"l-*-2347"
|
|
"l-*-2345"
|
|
"l-*-2343"
|
|
"l-*-2341"
|
|
"l-*-2339"
|
|
"l-*-2337"
|
|
"l-*-2335"
|
|
"l-*-2333"
|
|
"l-*-2331"
|
|
"l-*-2329"
|
|
"l-*-2327"
|
|
"l-*-2325"
|
|
"l-*-2323"
|
|
"l-*-2321"
|
|
"l-*-2319"
|
|
"l-*-2317"
|
|
"l-*-2315"
|
|
"l-*-2313"
|
|
"l-*-2311"
|
|
"l-*-2309"
|
|
"l-*-2307"
|
|
"l-*-2306"
|
|
"l-*-2305"
|
|
"l-*-2304"
|
|
"l-*-2303"
|
|
"l-*-2301"
|
|
"l-*-2299"
|
|
"l-*-2297"
|
|
"l-*-2294"
|
|
"l-*-2292"
|
|
"l-*-2290"
|
|
"l-*-2288"
|
|
"l-*-2286"
|
|
"l-*-2284"
|
|
"l-*-2282"
|
|
"l-*-2280"
|
|
"l-*-2278"
|
|
"l-*-2276"
|
|
"l-*-2274"
|
|
"l-*-2272"
|
|
"l-*-2270"
|
|
"l-*-2268"
|
|
"l-*-2266"
|
|
"l-*-2264"
|
|
"l-*-2262"
|
|
"l-*-2260"))
|
|
#(ribcage
|
|
(define-structure
|
|
define-expansion-accessors
|
|
define-expansion-constructors)
|
|
((top) (top) (top))
|
|
("l-*-2098"
|
|
"l-*-2097"
|
|
"l-*-2096")))
|
|
(hygiene guile))
|
|
'(())))
|
|
#f)
|
|
#f))
|
|
tmp-15261)
|
|
#f)
|
|
(@apply
|
|
(lambda (x-15367 dots-15368 ys-15369)
|
|
(call-with-values
|
|
(lambda ()
|
|
(cvt*-14825
|
|
ys-15369
|
|
n-14831
|
|
ids-14832))
|
|
(lambda (ys-15372 ids-15373)
|
|
(call-with-values
|
|
(lambda ()
|
|
(cvt-14827
|
|
x-15367
|
|
(#{1+}# n-14831)
|
|
ids-15373))
|
|
(lambda (x-15374 ids-15375)
|
|
(call-with-values
|
|
(lambda ()
|
|
(v-reverse-14826 ys-15372))
|
|
(lambda (ys-15408 e-15409)
|
|
(values
|
|
(vector
|
|
'each+
|
|
x-15374
|
|
ys-15408
|
|
e-15409)
|
|
ids-15375))))))))
|
|
tmp-15261)
|
|
(let ((tmp-15410
|
|
($sc-dispatch p-14830 '(any . any))))
|
|
(if tmp-15410
|
|
(@apply
|
|
(lambda (x-15414 y-15415)
|
|
(call-with-values
|
|
(lambda ()
|
|
(cvt-14827
|
|
y-15415
|
|
n-14831
|
|
ids-14832))
|
|
(lambda (y-15416 ids-15417)
|
|
(call-with-values
|
|
(lambda ()
|
|
(cvt-14827
|
|
x-15414
|
|
n-14831
|
|
ids-15417))
|
|
(lambda (x-15418 ids-15419)
|
|
(values
|
|
(cons x-15418 y-15416)
|
|
ids-15419))))))
|
|
tmp-15410)
|
|
(let ((tmp-15420
|
|
($sc-dispatch p-14830 '())))
|
|
(if tmp-15420
|
|
(@apply
|
|
(lambda () (values '() ids-14832))
|
|
tmp-15420)
|
|
(let ((tmp-15424
|
|
($sc-dispatch
|
|
p-14830
|
|
'#(vector each-any))))
|
|
(if tmp-15424
|
|
(@apply
|
|
(lambda (x-15428)
|
|
(call-with-values
|
|
(lambda ()
|
|
(cvt-14827
|
|
x-15428
|
|
n-14831
|
|
ids-14832))
|
|
(lambda (p-15429 ids-15430)
|
|
(values
|
|
(vector 'vector p-15429)
|
|
ids-15430))))
|
|
tmp-15424)
|
|
(values
|
|
(vector
|
|
'atom
|
|
(strip-6598 p-14830 '(())))
|
|
ids-14832)))))))))))))))
|
|
(cvt-14827 pattern-14823 0 '()))))
|
|
(build-dispatch-call-13227
|
|
(lambda (pvars-15543 exp-15544 y-15545 r-15546 mod-15547)
|
|
(let ((ids-15548 (map car pvars-15543)))
|
|
(begin
|
|
(map cdr pvars-15543)
|
|
(let ((labels-15550 (gen-labels-6552 ids-15548))
|
|
(new-vars-15551 (map gen-var-6599 ids-15548)))
|
|
(build-application-6516
|
|
#f
|
|
(if (equal? (module-name (current-module)) '(guile))
|
|
(make-struct/no-tail
|
|
(vector-ref %expanded-vtables 7)
|
|
#f
|
|
'apply)
|
|
(make-struct/no-tail
|
|
(vector-ref %expanded-vtables 5)
|
|
#f
|
|
'(guile)
|
|
'apply
|
|
#f))
|
|
(list (build-simple-lambda-6525
|
|
#f
|
|
(map syntax->datum ids-15548)
|
|
#f
|
|
new-vars-15551
|
|
'()
|
|
(expand-6585
|
|
exp-15544
|
|
(extend-env-6543
|
|
labels-15550
|
|
(map (lambda (var-15874 level-15875)
|
|
(cons 'syntax
|
|
(cons var-15874 level-15875)))
|
|
new-vars-15551
|
|
(map cdr pvars-15543))
|
|
r-15546)
|
|
(make-binding-wrap-6563
|
|
ids-15548
|
|
labels-15550
|
|
'(()))
|
|
mod-15547))
|
|
y-15545)))))))
|
|
(gen-clause-13228
|
|
(lambda (x-14195
|
|
keys-14196
|
|
clauses-14197
|
|
r-14198
|
|
pat-14199
|
|
fender-14200
|
|
exp-14201
|
|
mod-14202)
|
|
(call-with-values
|
|
(lambda ()
|
|
(convert-pattern-13226 pat-14199 keys-14196))
|
|
(lambda (p-14357 pvars-14358)
|
|
(if (not (distinct-bound-ids?-6576 (map car pvars-14358)))
|
|
(syntax-violation
|
|
'syntax-case
|
|
"duplicate pattern variable"
|
|
pat-14199)
|
|
(if (not (and-map
|
|
(lambda (x-14474)
|
|
(not (let ((x-14478 (car x-14474)))
|
|
(if (if (if (vector? x-14478)
|
|
(if (= (vector-length
|
|
x-14478)
|
|
4)
|
|
(eq? (vector-ref
|
|
x-14478
|
|
0)
|
|
'syntax-object)
|
|
#f)
|
|
#f)
|
|
(symbol? (vector-ref x-14478 1))
|
|
#f)
|
|
(if (eq? (if (if (vector? x-14478)
|
|
(if (= (vector-length
|
|
x-14478)
|
|
4)
|
|
(eq? (vector-ref
|
|
x-14478
|
|
0)
|
|
'syntax-object)
|
|
#f)
|
|
#f)
|
|
(vector-ref x-14478 1)
|
|
x-14478)
|
|
(if (if (= (vector-length
|
|
'#(syntax-object
|
|
...
|
|
((top)
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("l-*-4404"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
expand-lambda-case
|
|
lambda*-formals
|
|
expand-simple-lambda
|
|
lambda-formals
|
|
ellipsis?
|
|
expand-void
|
|
eval-local-transformer
|
|
expand-local-syntax
|
|
expand-body
|
|
expand-macro
|
|
expand-application
|
|
expand-expr
|
|
expand
|
|
syntax-type
|
|
parse-when-list
|
|
expand-install-global
|
|
expand-top-sequence
|
|
expand-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
with-transformer-environment
|
|
transformer-environment
|
|
resolve-identifier
|
|
locally-bound-identifiers
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
set-syntax-object-module!
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-module
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda-case
|
|
build-case-lambda
|
|
build-simple-lambda
|
|
build-global-definition
|
|
build-global-assignment
|
|
build-global-reference
|
|
analyze-variable
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-dynlet
|
|
build-conditional
|
|
build-application
|
|
build-void
|
|
maybe-name-value!
|
|
decorate-source
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
session-id
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
set-lambda-meta!
|
|
lambda-meta
|
|
lambda?
|
|
make-dynlet
|
|
make-letrec
|
|
make-let
|
|
make-lambda-case
|
|
make-lambda
|
|
make-sequence
|
|
make-application
|
|
make-conditional
|
|
make-toplevel-define
|
|
make-toplevel-set
|
|
make-toplevel-ref
|
|
make-module-set
|
|
make-module-ref
|
|
make-lexical-set
|
|
make-lexical-ref
|
|
make-primitive-ref
|
|
make-const
|
|
make-void)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("l-*-2527"
|
|
"l-*-2525"
|
|
"l-*-2523"
|
|
"l-*-2521"
|
|
"l-*-2519"
|
|
"l-*-2517"
|
|
"l-*-2515"
|
|
"l-*-2513"
|
|
"l-*-2511"
|
|
"l-*-2509"
|
|
"l-*-2507"
|
|
"l-*-2505"
|
|
"l-*-2503"
|
|
"l-*-2501"
|
|
"l-*-2499"
|
|
"l-*-2497"
|
|
"l-*-2495"
|
|
"l-*-2493"
|
|
"l-*-2491"
|
|
"l-*-2489"
|
|
"l-*-2487"
|
|
"l-*-2485"
|
|
"l-*-2483"
|
|
"l-*-2481"
|
|
"l-*-2479"
|
|
"l-*-2477"
|
|
"l-*-2475"
|
|
"l-*-2473"
|
|
"l-*-2471"
|
|
"l-*-2469"
|
|
"l-*-2467"
|
|
"l-*-2465"
|
|
"l-*-2463"
|
|
"l-*-2461"
|
|
"l-*-2459"
|
|
"l-*-2457"
|
|
"l-*-2455"
|
|
"l-*-2453"
|
|
"l-*-2451"
|
|
"l-*-2450"
|
|
"l-*-2448"
|
|
"l-*-2445"
|
|
"l-*-2444"
|
|
"l-*-2443"
|
|
"l-*-2441"
|
|
"l-*-2440"
|
|
"l-*-2438"
|
|
"l-*-2436"
|
|
"l-*-2434"
|
|
"l-*-2432"
|
|
"l-*-2430"
|
|
"l-*-2428"
|
|
"l-*-2426"
|
|
"l-*-2424"
|
|
"l-*-2421"
|
|
"l-*-2419"
|
|
"l-*-2418"
|
|
"l-*-2416"
|
|
"l-*-2414"
|
|
"l-*-2412"
|
|
"l-*-2410"
|
|
"l-*-2409"
|
|
"l-*-2408"
|
|
"l-*-2407"
|
|
"l-*-2405"
|
|
"l-*-2404"
|
|
"l-*-2401"
|
|
"l-*-2399"
|
|
"l-*-2397"
|
|
"l-*-2395"
|
|
"l-*-2393"
|
|
"l-*-2391"
|
|
"l-*-2389"
|
|
"l-*-2388"
|
|
"l-*-2387"
|
|
"l-*-2385"
|
|
"l-*-2383"
|
|
"l-*-2382"
|
|
"l-*-2379"
|
|
"l-*-2378"
|
|
"l-*-2376"
|
|
"l-*-2374"
|
|
"l-*-2372"
|
|
"l-*-2370"
|
|
"l-*-2368"
|
|
"l-*-2366"
|
|
"l-*-2364"
|
|
"l-*-2362"
|
|
"l-*-2360"
|
|
"l-*-2357"
|
|
"l-*-2355"
|
|
"l-*-2353"
|
|
"l-*-2351"
|
|
"l-*-2349"
|
|
"l-*-2347"
|
|
"l-*-2345"
|
|
"l-*-2343"
|
|
"l-*-2341"
|
|
"l-*-2339"
|
|
"l-*-2337"
|
|
"l-*-2335"
|
|
"l-*-2333"
|
|
"l-*-2331"
|
|
"l-*-2329"
|
|
"l-*-2327"
|
|
"l-*-2325"
|
|
"l-*-2323"
|
|
"l-*-2321"
|
|
"l-*-2319"
|
|
"l-*-2317"
|
|
"l-*-2315"
|
|
"l-*-2313"
|
|
"l-*-2311"
|
|
"l-*-2309"
|
|
"l-*-2307"
|
|
"l-*-2306"
|
|
"l-*-2305"
|
|
"l-*-2304"
|
|
"l-*-2303"
|
|
"l-*-2301"
|
|
"l-*-2299"
|
|
"l-*-2297"
|
|
"l-*-2294"
|
|
"l-*-2292"
|
|
"l-*-2290"
|
|
"l-*-2288"
|
|
"l-*-2286"
|
|
"l-*-2284"
|
|
"l-*-2282"
|
|
"l-*-2280"
|
|
"l-*-2278"
|
|
"l-*-2276"
|
|
"l-*-2274"
|
|
"l-*-2272"
|
|
"l-*-2270"
|
|
"l-*-2268"
|
|
"l-*-2266"
|
|
"l-*-2264"
|
|
"l-*-2262"
|
|
"l-*-2260"))
|
|
#(ribcage
|
|
(define-structure
|
|
define-expansion-accessors
|
|
define-expansion-constructors)
|
|
((top)
|
|
(top)
|
|
(top))
|
|
("l-*-2098"
|
|
"l-*-2097"
|
|
"l-*-2096")))
|
|
(hygiene
|
|
guile)))
|
|
4)
|
|
#t
|
|
#f)
|
|
'...
|
|
'#(syntax-object
|
|
...
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("l-*-4404"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
expand-lambda-case
|
|
lambda*-formals
|
|
expand-simple-lambda
|
|
lambda-formals
|
|
ellipsis?
|
|
expand-void
|
|
eval-local-transformer
|
|
expand-local-syntax
|
|
expand-body
|
|
expand-macro
|
|
expand-application
|
|
expand-expr
|
|
expand
|
|
syntax-type
|
|
parse-when-list
|
|
expand-install-global
|
|
expand-top-sequence
|
|
expand-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
with-transformer-environment
|
|
transformer-environment
|
|
resolve-identifier
|
|
locally-bound-identifiers
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
set-syntax-object-module!
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-module
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda-case
|
|
build-case-lambda
|
|
build-simple-lambda
|
|
build-global-definition
|
|
build-global-assignment
|
|
build-global-reference
|
|
analyze-variable
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-dynlet
|
|
build-conditional
|
|
build-application
|
|
build-void
|
|
maybe-name-value!
|
|
decorate-source
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
session-id
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
set-lambda-meta!
|
|
lambda-meta
|
|
lambda?
|
|
make-dynlet
|
|
make-letrec
|
|
make-let
|
|
make-lambda-case
|
|
make-lambda
|
|
make-sequence
|
|
make-application
|
|
make-conditional
|
|
make-toplevel-define
|
|
make-toplevel-set
|
|
make-toplevel-ref
|
|
make-module-set
|
|
make-module-ref
|
|
make-lexical-set
|
|
make-lexical-ref
|
|
make-primitive-ref
|
|
make-const
|
|
make-void)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("l-*-2527"
|
|
"l-*-2525"
|
|
"l-*-2523"
|
|
"l-*-2521"
|
|
"l-*-2519"
|
|
"l-*-2517"
|
|
"l-*-2515"
|
|
"l-*-2513"
|
|
"l-*-2511"
|
|
"l-*-2509"
|
|
"l-*-2507"
|
|
"l-*-2505"
|
|
"l-*-2503"
|
|
"l-*-2501"
|
|
"l-*-2499"
|
|
"l-*-2497"
|
|
"l-*-2495"
|
|
"l-*-2493"
|
|
"l-*-2491"
|
|
"l-*-2489"
|
|
"l-*-2487"
|
|
"l-*-2485"
|
|
"l-*-2483"
|
|
"l-*-2481"
|
|
"l-*-2479"
|
|
"l-*-2477"
|
|
"l-*-2475"
|
|
"l-*-2473"
|
|
"l-*-2471"
|
|
"l-*-2469"
|
|
"l-*-2467"
|
|
"l-*-2465"
|
|
"l-*-2463"
|
|
"l-*-2461"
|
|
"l-*-2459"
|
|
"l-*-2457"
|
|
"l-*-2455"
|
|
"l-*-2453"
|
|
"l-*-2451"
|
|
"l-*-2450"
|
|
"l-*-2448"
|
|
"l-*-2445"
|
|
"l-*-2444"
|
|
"l-*-2443"
|
|
"l-*-2441"
|
|
"l-*-2440"
|
|
"l-*-2438"
|
|
"l-*-2436"
|
|
"l-*-2434"
|
|
"l-*-2432"
|
|
"l-*-2430"
|
|
"l-*-2428"
|
|
"l-*-2426"
|
|
"l-*-2424"
|
|
"l-*-2421"
|
|
"l-*-2419"
|
|
"l-*-2418"
|
|
"l-*-2416"
|
|
"l-*-2414"
|
|
"l-*-2412"
|
|
"l-*-2410"
|
|
"l-*-2409"
|
|
"l-*-2408"
|
|
"l-*-2407"
|
|
"l-*-2405"
|
|
"l-*-2404"
|
|
"l-*-2401"
|
|
"l-*-2399"
|
|
"l-*-2397"
|
|
"l-*-2395"
|
|
"l-*-2393"
|
|
"l-*-2391"
|
|
"l-*-2389"
|
|
"l-*-2388"
|
|
"l-*-2387"
|
|
"l-*-2385"
|
|
"l-*-2383"
|
|
"l-*-2382"
|
|
"l-*-2379"
|
|
"l-*-2378"
|
|
"l-*-2376"
|
|
"l-*-2374"
|
|
"l-*-2372"
|
|
"l-*-2370"
|
|
"l-*-2368"
|
|
"l-*-2366"
|
|
"l-*-2364"
|
|
"l-*-2362"
|
|
"l-*-2360"
|
|
"l-*-2357"
|
|
"l-*-2355"
|
|
"l-*-2353"
|
|
"l-*-2351"
|
|
"l-*-2349"
|
|
"l-*-2347"
|
|
"l-*-2345"
|
|
"l-*-2343"
|
|
"l-*-2341"
|
|
"l-*-2339"
|
|
"l-*-2337"
|
|
"l-*-2335"
|
|
"l-*-2333"
|
|
"l-*-2331"
|
|
"l-*-2329"
|
|
"l-*-2327"
|
|
"l-*-2325"
|
|
"l-*-2323"
|
|
"l-*-2321"
|
|
"l-*-2319"
|
|
"l-*-2317"
|
|
"l-*-2315"
|
|
"l-*-2313"
|
|
"l-*-2311"
|
|
"l-*-2309"
|
|
"l-*-2307"
|
|
"l-*-2306"
|
|
"l-*-2305"
|
|
"l-*-2304"
|
|
"l-*-2303"
|
|
"l-*-2301"
|
|
"l-*-2299"
|
|
"l-*-2297"
|
|
"l-*-2294"
|
|
"l-*-2292"
|
|
"l-*-2290"
|
|
"l-*-2288"
|
|
"l-*-2286"
|
|
"l-*-2284"
|
|
"l-*-2282"
|
|
"l-*-2280"
|
|
"l-*-2278"
|
|
"l-*-2276"
|
|
"l-*-2274"
|
|
"l-*-2272"
|
|
"l-*-2270"
|
|
"l-*-2268"
|
|
"l-*-2266"
|
|
"l-*-2264"
|
|
"l-*-2262"
|
|
"l-*-2260"))
|
|
#(ribcage
|
|
(define-structure
|
|
define-expansion-accessors
|
|
define-expansion-constructors)
|
|
((top) (top) (top))
|
|
("l-*-2098"
|
|
"l-*-2097"
|
|
"l-*-2096")))
|
|
(hygiene guile))))
|
|
(eq? (id-var-name-6568
|
|
x-14478
|
|
'(()))
|
|
(id-var-name-6568
|
|
'#(syntax-object
|
|
...
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("l-*-4404"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
expand-lambda-case
|
|
lambda*-formals
|
|
expand-simple-lambda
|
|
lambda-formals
|
|
ellipsis?
|
|
expand-void
|
|
eval-local-transformer
|
|
expand-local-syntax
|
|
expand-body
|
|
expand-macro
|
|
expand-application
|
|
expand-expr
|
|
expand
|
|
syntax-type
|
|
parse-when-list
|
|
expand-install-global
|
|
expand-top-sequence
|
|
expand-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
with-transformer-environment
|
|
transformer-environment
|
|
resolve-identifier
|
|
locally-bound-identifiers
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
set-syntax-object-module!
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-module
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda-case
|
|
build-case-lambda
|
|
build-simple-lambda
|
|
build-global-definition
|
|
build-global-assignment
|
|
build-global-reference
|
|
analyze-variable
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-dynlet
|
|
build-conditional
|
|
build-application
|
|
build-void
|
|
maybe-name-value!
|
|
decorate-source
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
session-id
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
set-lambda-meta!
|
|
lambda-meta
|
|
lambda?
|
|
make-dynlet
|
|
make-letrec
|
|
make-let
|
|
make-lambda-case
|
|
make-lambda
|
|
make-sequence
|
|
make-application
|
|
make-conditional
|
|
make-toplevel-define
|
|
make-toplevel-set
|
|
make-toplevel-ref
|
|
make-module-set
|
|
make-module-ref
|
|
make-lexical-set
|
|
make-lexical-ref
|
|
make-primitive-ref
|
|
make-const
|
|
make-void)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("l-*-2527"
|
|
"l-*-2525"
|
|
"l-*-2523"
|
|
"l-*-2521"
|
|
"l-*-2519"
|
|
"l-*-2517"
|
|
"l-*-2515"
|
|
"l-*-2513"
|
|
"l-*-2511"
|
|
"l-*-2509"
|
|
"l-*-2507"
|
|
"l-*-2505"
|
|
"l-*-2503"
|
|
"l-*-2501"
|
|
"l-*-2499"
|
|
"l-*-2497"
|
|
"l-*-2495"
|
|
"l-*-2493"
|
|
"l-*-2491"
|
|
"l-*-2489"
|
|
"l-*-2487"
|
|
"l-*-2485"
|
|
"l-*-2483"
|
|
"l-*-2481"
|
|
"l-*-2479"
|
|
"l-*-2477"
|
|
"l-*-2475"
|
|
"l-*-2473"
|
|
"l-*-2471"
|
|
"l-*-2469"
|
|
"l-*-2467"
|
|
"l-*-2465"
|
|
"l-*-2463"
|
|
"l-*-2461"
|
|
"l-*-2459"
|
|
"l-*-2457"
|
|
"l-*-2455"
|
|
"l-*-2453"
|
|
"l-*-2451"
|
|
"l-*-2450"
|
|
"l-*-2448"
|
|
"l-*-2445"
|
|
"l-*-2444"
|
|
"l-*-2443"
|
|
"l-*-2441"
|
|
"l-*-2440"
|
|
"l-*-2438"
|
|
"l-*-2436"
|
|
"l-*-2434"
|
|
"l-*-2432"
|
|
"l-*-2430"
|
|
"l-*-2428"
|
|
"l-*-2426"
|
|
"l-*-2424"
|
|
"l-*-2421"
|
|
"l-*-2419"
|
|
"l-*-2418"
|
|
"l-*-2416"
|
|
"l-*-2414"
|
|
"l-*-2412"
|
|
"l-*-2410"
|
|
"l-*-2409"
|
|
"l-*-2408"
|
|
"l-*-2407"
|
|
"l-*-2405"
|
|
"l-*-2404"
|
|
"l-*-2401"
|
|
"l-*-2399"
|
|
"l-*-2397"
|
|
"l-*-2395"
|
|
"l-*-2393"
|
|
"l-*-2391"
|
|
"l-*-2389"
|
|
"l-*-2388"
|
|
"l-*-2387"
|
|
"l-*-2385"
|
|
"l-*-2383"
|
|
"l-*-2382"
|
|
"l-*-2379"
|
|
"l-*-2378"
|
|
"l-*-2376"
|
|
"l-*-2374"
|
|
"l-*-2372"
|
|
"l-*-2370"
|
|
"l-*-2368"
|
|
"l-*-2366"
|
|
"l-*-2364"
|
|
"l-*-2362"
|
|
"l-*-2360"
|
|
"l-*-2357"
|
|
"l-*-2355"
|
|
"l-*-2353"
|
|
"l-*-2351"
|
|
"l-*-2349"
|
|
"l-*-2347"
|
|
"l-*-2345"
|
|
"l-*-2343"
|
|
"l-*-2341"
|
|
"l-*-2339"
|
|
"l-*-2337"
|
|
"l-*-2335"
|
|
"l-*-2333"
|
|
"l-*-2331"
|
|
"l-*-2329"
|
|
"l-*-2327"
|
|
"l-*-2325"
|
|
"l-*-2323"
|
|
"l-*-2321"
|
|
"l-*-2319"
|
|
"l-*-2317"
|
|
"l-*-2315"
|
|
"l-*-2313"
|
|
"l-*-2311"
|
|
"l-*-2309"
|
|
"l-*-2307"
|
|
"l-*-2306"
|
|
"l-*-2305"
|
|
"l-*-2304"
|
|
"l-*-2303"
|
|
"l-*-2301"
|
|
"l-*-2299"
|
|
"l-*-2297"
|
|
"l-*-2294"
|
|
"l-*-2292"
|
|
"l-*-2290"
|
|
"l-*-2288"
|
|
"l-*-2286"
|
|
"l-*-2284"
|
|
"l-*-2282"
|
|
"l-*-2280"
|
|
"l-*-2278"
|
|
"l-*-2276"
|
|
"l-*-2274"
|
|
"l-*-2272"
|
|
"l-*-2270"
|
|
"l-*-2268"
|
|
"l-*-2266"
|
|
"l-*-2264"
|
|
"l-*-2262"
|
|
"l-*-2260"))
|
|
#(ribcage
|
|
(define-structure
|
|
define-expansion-accessors
|
|
define-expansion-constructors)
|
|
((top) (top) (top))
|
|
("l-*-2098"
|
|
"l-*-2097"
|
|
"l-*-2096")))
|
|
(hygiene guile))
|
|
'(())))
|
|
#f)
|
|
#f))))
|
|
pvars-14358))
|
|
(syntax-violation
|
|
'syntax-case
|
|
"misplaced ellipsis"
|
|
pat-14199)
|
|
(let ((y-14554
|
|
(gensym
|
|
(string-append (symbol->string 'tmp) "-"))))
|
|
(build-application-6516
|
|
#f
|
|
(let ((req-14697 (list 'tmp))
|
|
(vars-14699 (list y-14554))
|
|
(exp-14701
|
|
(let ((y-14718
|
|
(make-struct/no-tail
|
|
(vector-ref %expanded-vtables 3)
|
|
#f
|
|
'tmp
|
|
y-14554)))
|
|
(let ((test-exp-14722
|
|
(let ((tmp-14731
|
|
($sc-dispatch
|
|
fender-14200
|
|
'#(atom #t))))
|
|
(if tmp-14731
|
|
(@apply
|
|
(lambda () y-14718)
|
|
tmp-14731)
|
|
(let ((then-exp-14749
|
|
(build-dispatch-call-13227
|
|
pvars-14358
|
|
fender-14200
|
|
y-14718
|
|
r-14198
|
|
mod-14202))
|
|
(else-exp-14750
|
|
(make-struct/no-tail
|
|
(vector-ref
|
|
%expanded-vtables
|
|
1)
|
|
#f
|
|
#f)))
|
|
(make-struct/no-tail
|
|
(vector-ref
|
|
%expanded-vtables
|
|
10)
|
|
#f
|
|
y-14718
|
|
then-exp-14749
|
|
else-exp-14750)))))
|
|
(then-exp-14723
|
|
(build-dispatch-call-13227
|
|
pvars-14358
|
|
exp-14201
|
|
y-14718
|
|
r-14198
|
|
mod-14202))
|
|
(else-exp-14724
|
|
(gen-syntax-case-13229
|
|
x-14195
|
|
keys-14196
|
|
clauses-14197
|
|
r-14198
|
|
mod-14202)))
|
|
(make-struct/no-tail
|
|
(vector-ref %expanded-vtables 10)
|
|
#f
|
|
test-exp-14722
|
|
then-exp-14723
|
|
else-exp-14724)))))
|
|
(let ((body-14706
|
|
(make-struct/no-tail
|
|
(vector-ref %expanded-vtables 14)
|
|
#f
|
|
req-14697
|
|
#f
|
|
#f
|
|
#f
|
|
'()
|
|
vars-14699
|
|
exp-14701
|
|
#f)))
|
|
(make-struct/no-tail
|
|
(vector-ref %expanded-vtables 13)
|
|
#f
|
|
'()
|
|
body-14706)))
|
|
(list (if (eq? p-14357 'any)
|
|
(let ((fun-exp-14772
|
|
(if (equal?
|
|
(module-name (current-module))
|
|
'(guile))
|
|
(make-struct/no-tail
|
|
(vector-ref %expanded-vtables 7)
|
|
#f
|
|
'list)
|
|
(make-struct/no-tail
|
|
(vector-ref %expanded-vtables 5)
|
|
#f
|
|
'(guile)
|
|
'list
|
|
#f)))
|
|
(arg-exps-14773 (list x-14195)))
|
|
(make-struct/no-tail
|
|
(vector-ref %expanded-vtables 11)
|
|
#f
|
|
fun-exp-14772
|
|
arg-exps-14773))
|
|
(let ((fun-exp-14796
|
|
(if (equal?
|
|
(module-name (current-module))
|
|
'(guile))
|
|
(make-struct/no-tail
|
|
(vector-ref %expanded-vtables 7)
|
|
#f
|
|
'$sc-dispatch)
|
|
(make-struct/no-tail
|
|
(vector-ref %expanded-vtables 5)
|
|
#f
|
|
'(guile)
|
|
'$sc-dispatch
|
|
#f)))
|
|
(arg-exps-14797
|
|
(list x-14195
|
|
(make-struct/no-tail
|
|
(vector-ref
|
|
%expanded-vtables
|
|
1)
|
|
#f
|
|
p-14357))))
|
|
(make-struct/no-tail
|
|
(vector-ref %expanded-vtables 11)
|
|
#f
|
|
fun-exp-14796
|
|
arg-exps-14797))))))))))))
|
|
(gen-syntax-case-13229
|
|
(lambda (x-13628
|
|
keys-13629
|
|
clauses-13630
|
|
r-13631
|
|
mod-13632)
|
|
(if (null? clauses-13630)
|
|
(let ((fun-exp-13637
|
|
(if (equal? (module-name (current-module)) '(guile))
|
|
(make-struct/no-tail
|
|
(vector-ref %expanded-vtables 7)
|
|
#f
|
|
'syntax-violation)
|
|
(make-struct/no-tail
|
|
(vector-ref %expanded-vtables 5)
|
|
#f
|
|
'(guile)
|
|
'syntax-violation
|
|
#f)))
|
|
(arg-exps-13638
|
|
(list (make-struct/no-tail
|
|
(vector-ref %expanded-vtables 1)
|
|
#f
|
|
#f)
|
|
(make-struct/no-tail
|
|
(vector-ref %expanded-vtables 1)
|
|
#f
|
|
"source expression failed to match any pattern")
|
|
x-13628)))
|
|
(make-struct/no-tail
|
|
(vector-ref %expanded-vtables 11)
|
|
#f
|
|
fun-exp-13637
|
|
arg-exps-13638))
|
|
(let ((tmp-13671 (car clauses-13630)))
|
|
(let ((tmp-13672 ($sc-dispatch tmp-13671 '(any any))))
|
|
(if tmp-13672
|
|
(@apply
|
|
(lambda (pat-13674 exp-13675)
|
|
(if (if (if (symbol? pat-13674)
|
|
#t
|
|
(if (if (vector? pat-13674)
|
|
(if (= (vector-length pat-13674) 4)
|
|
(eq? (vector-ref pat-13674 0)
|
|
'syntax-object)
|
|
#f)
|
|
#f)
|
|
(symbol? (vector-ref pat-13674 1))
|
|
#f))
|
|
(and-map
|
|
(lambda (x-13702)
|
|
(not (if (eq? (if (if (vector? pat-13674)
|
|
(if (= (vector-length
|
|
pat-13674)
|
|
4)
|
|
(eq? (vector-ref
|
|
pat-13674
|
|
0)
|
|
'syntax-object)
|
|
#f)
|
|
#f)
|
|
(vector-ref pat-13674 1)
|
|
pat-13674)
|
|
(if (if (vector? x-13702)
|
|
(if (= (vector-length
|
|
x-13702)
|
|
4)
|
|
(eq? (vector-ref
|
|
x-13702
|
|
0)
|
|
'syntax-object)
|
|
#f)
|
|
#f)
|
|
(vector-ref x-13702 1)
|
|
x-13702))
|
|
(eq? (id-var-name-6568
|
|
pat-13674
|
|
'(()))
|
|
(id-var-name-6568
|
|
x-13702
|
|
'(())))
|
|
#f)))
|
|
(cons '#(syntax-object
|
|
...
|
|
((top)
|
|
#(ribcage
|
|
#(pat exp)
|
|
#((top) (top))
|
|
#("l-*-6087" "l-*-6088"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x keys clauses r mod)
|
|
#((top) (top) (top) (top) (top))
|
|
#("l-*-6076"
|
|
"l-*-6077"
|
|
"l-*-6078"
|
|
"l-*-6079"
|
|
"l-*-6080"))
|
|
#(ribcage
|
|
(gen-syntax-case
|
|
gen-clause
|
|
build-dispatch-call
|
|
convert-pattern)
|
|
((top) (top) (top) (top))
|
|
("l-*-5886"
|
|
"l-*-5884"
|
|
"l-*-5882"
|
|
"l-*-5880"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
expand-lambda-case
|
|
lambda*-formals
|
|
expand-simple-lambda
|
|
lambda-formals
|
|
ellipsis?
|
|
expand-void
|
|
eval-local-transformer
|
|
expand-local-syntax
|
|
expand-body
|
|
expand-macro
|
|
expand-application
|
|
expand-expr
|
|
expand
|
|
syntax-type
|
|
parse-when-list
|
|
expand-install-global
|
|
expand-top-sequence
|
|
expand-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
with-transformer-environment
|
|
transformer-environment
|
|
resolve-identifier
|
|
locally-bound-identifiers
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
set-syntax-object-module!
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-module
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda-case
|
|
build-case-lambda
|
|
build-simple-lambda
|
|
build-global-definition
|
|
build-global-assignment
|
|
build-global-reference
|
|
analyze-variable
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-dynlet
|
|
build-conditional
|
|
build-application
|
|
build-void
|
|
maybe-name-value!
|
|
decorate-source
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
session-id
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
set-lambda-meta!
|
|
lambda-meta
|
|
lambda?
|
|
make-dynlet
|
|
make-letrec
|
|
make-let
|
|
make-lambda-case
|
|
make-lambda
|
|
make-sequence
|
|
make-application
|
|
make-conditional
|
|
make-toplevel-define
|
|
make-toplevel-set
|
|
make-toplevel-ref
|
|
make-module-set
|
|
make-module-ref
|
|
make-lexical-set
|
|
make-lexical-ref
|
|
make-primitive-ref
|
|
make-const
|
|
make-void)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("l-*-2527"
|
|
"l-*-2525"
|
|
"l-*-2523"
|
|
"l-*-2521"
|
|
"l-*-2519"
|
|
"l-*-2517"
|
|
"l-*-2515"
|
|
"l-*-2513"
|
|
"l-*-2511"
|
|
"l-*-2509"
|
|
"l-*-2507"
|
|
"l-*-2505"
|
|
"l-*-2503"
|
|
"l-*-2501"
|
|
"l-*-2499"
|
|
"l-*-2497"
|
|
"l-*-2495"
|
|
"l-*-2493"
|
|
"l-*-2491"
|
|
"l-*-2489"
|
|
"l-*-2487"
|
|
"l-*-2485"
|
|
"l-*-2483"
|
|
"l-*-2481"
|
|
"l-*-2479"
|
|
"l-*-2477"
|
|
"l-*-2475"
|
|
"l-*-2473"
|
|
"l-*-2471"
|
|
"l-*-2469"
|
|
"l-*-2467"
|
|
"l-*-2465"
|
|
"l-*-2463"
|
|
"l-*-2461"
|
|
"l-*-2459"
|
|
"l-*-2457"
|
|
"l-*-2455"
|
|
"l-*-2453"
|
|
"l-*-2451"
|
|
"l-*-2450"
|
|
"l-*-2448"
|
|
"l-*-2445"
|
|
"l-*-2444"
|
|
"l-*-2443"
|
|
"l-*-2441"
|
|
"l-*-2440"
|
|
"l-*-2438"
|
|
"l-*-2436"
|
|
"l-*-2434"
|
|
"l-*-2432"
|
|
"l-*-2430"
|
|
"l-*-2428"
|
|
"l-*-2426"
|
|
"l-*-2424"
|
|
"l-*-2421"
|
|
"l-*-2419"
|
|
"l-*-2418"
|
|
"l-*-2416"
|
|
"l-*-2414"
|
|
"l-*-2412"
|
|
"l-*-2410"
|
|
"l-*-2409"
|
|
"l-*-2408"
|
|
"l-*-2407"
|
|
"l-*-2405"
|
|
"l-*-2404"
|
|
"l-*-2401"
|
|
"l-*-2399"
|
|
"l-*-2397"
|
|
"l-*-2395"
|
|
"l-*-2393"
|
|
"l-*-2391"
|
|
"l-*-2389"
|
|
"l-*-2388"
|
|
"l-*-2387"
|
|
"l-*-2385"
|
|
"l-*-2383"
|
|
"l-*-2382"
|
|
"l-*-2379"
|
|
"l-*-2378"
|
|
"l-*-2376"
|
|
"l-*-2374"
|
|
"l-*-2372"
|
|
"l-*-2370"
|
|
"l-*-2368"
|
|
"l-*-2366"
|
|
"l-*-2364"
|
|
"l-*-2362"
|
|
"l-*-2360"
|
|
"l-*-2357"
|
|
"l-*-2355"
|
|
"l-*-2353"
|
|
"l-*-2351"
|
|
"l-*-2349"
|
|
"l-*-2347"
|
|
"l-*-2345"
|
|
"l-*-2343"
|
|
"l-*-2341"
|
|
"l-*-2339"
|
|
"l-*-2337"
|
|
"l-*-2335"
|
|
"l-*-2333"
|
|
"l-*-2331"
|
|
"l-*-2329"
|
|
"l-*-2327"
|
|
"l-*-2325"
|
|
"l-*-2323"
|
|
"l-*-2321"
|
|
"l-*-2319"
|
|
"l-*-2317"
|
|
"l-*-2315"
|
|
"l-*-2313"
|
|
"l-*-2311"
|
|
"l-*-2309"
|
|
"l-*-2307"
|
|
"l-*-2306"
|
|
"l-*-2305"
|
|
"l-*-2304"
|
|
"l-*-2303"
|
|
"l-*-2301"
|
|
"l-*-2299"
|
|
"l-*-2297"
|
|
"l-*-2294"
|
|
"l-*-2292"
|
|
"l-*-2290"
|
|
"l-*-2288"
|
|
"l-*-2286"
|
|
"l-*-2284"
|
|
"l-*-2282"
|
|
"l-*-2280"
|
|
"l-*-2278"
|
|
"l-*-2276"
|
|
"l-*-2274"
|
|
"l-*-2272"
|
|
"l-*-2270"
|
|
"l-*-2268"
|
|
"l-*-2266"
|
|
"l-*-2264"
|
|
"l-*-2262"
|
|
"l-*-2260"))
|
|
#(ribcage
|
|
(define-structure
|
|
define-expansion-accessors
|
|
define-expansion-constructors)
|
|
((top) (top) (top))
|
|
("l-*-2098"
|
|
"l-*-2097"
|
|
"l-*-2096")))
|
|
(hygiene guile))
|
|
keys-13629))
|
|
#f)
|
|
(if (if (eq? (if (if (= (vector-length
|
|
'#(syntax-object
|
|
pad
|
|
((top)
|
|
#(ribcage
|
|
#(pat exp)
|
|
#((top) (top))
|
|
#("l-*-6087"
|
|
"l-*-6088"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x
|
|
keys
|
|
clauses
|
|
r
|
|
mod)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("l-*-6076"
|
|
"l-*-6077"
|
|
"l-*-6078"
|
|
"l-*-6079"
|
|
"l-*-6080"))
|
|
#(ribcage
|
|
(gen-syntax-case
|
|
gen-clause
|
|
build-dispatch-call
|
|
convert-pattern)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("l-*-5886"
|
|
"l-*-5884"
|
|
"l-*-5882"
|
|
"l-*-5880"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
expand-lambda-case
|
|
lambda*-formals
|
|
expand-simple-lambda
|
|
lambda-formals
|
|
ellipsis?
|
|
expand-void
|
|
eval-local-transformer
|
|
expand-local-syntax
|
|
expand-body
|
|
expand-macro
|
|
expand-application
|
|
expand-expr
|
|
expand
|
|
syntax-type
|
|
parse-when-list
|
|
expand-install-global
|
|
expand-top-sequence
|
|
expand-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
with-transformer-environment
|
|
transformer-environment
|
|
resolve-identifier
|
|
locally-bound-identifiers
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
set-syntax-object-module!
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-module
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda-case
|
|
build-case-lambda
|
|
build-simple-lambda
|
|
build-global-definition
|
|
build-global-assignment
|
|
build-global-reference
|
|
analyze-variable
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-dynlet
|
|
build-conditional
|
|
build-application
|
|
build-void
|
|
maybe-name-value!
|
|
decorate-source
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
session-id
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
set-lambda-meta!
|
|
lambda-meta
|
|
lambda?
|
|
make-dynlet
|
|
make-letrec
|
|
make-let
|
|
make-lambda-case
|
|
make-lambda
|
|
make-sequence
|
|
make-application
|
|
make-conditional
|
|
make-toplevel-define
|
|
make-toplevel-set
|
|
make-toplevel-ref
|
|
make-module-set
|
|
make-module-ref
|
|
make-lexical-set
|
|
make-lexical-ref
|
|
make-primitive-ref
|
|
make-const
|
|
make-void)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("l-*-2527"
|
|
"l-*-2525"
|
|
"l-*-2523"
|
|
"l-*-2521"
|
|
"l-*-2519"
|
|
"l-*-2517"
|
|
"l-*-2515"
|
|
"l-*-2513"
|
|
"l-*-2511"
|
|
"l-*-2509"
|
|
"l-*-2507"
|
|
"l-*-2505"
|
|
"l-*-2503"
|
|
"l-*-2501"
|
|
"l-*-2499"
|
|
"l-*-2497"
|
|
"l-*-2495"
|
|
"l-*-2493"
|
|
"l-*-2491"
|
|
"l-*-2489"
|
|
"l-*-2487"
|
|
"l-*-2485"
|
|
"l-*-2483"
|
|
"l-*-2481"
|
|
"l-*-2479"
|
|
"l-*-2477"
|
|
"l-*-2475"
|
|
"l-*-2473"
|
|
"l-*-2471"
|
|
"l-*-2469"
|
|
"l-*-2467"
|
|
"l-*-2465"
|
|
"l-*-2463"
|
|
"l-*-2461"
|
|
"l-*-2459"
|
|
"l-*-2457"
|
|
"l-*-2455"
|
|
"l-*-2453"
|
|
"l-*-2451"
|
|
"l-*-2450"
|
|
"l-*-2448"
|
|
"l-*-2445"
|
|
"l-*-2444"
|
|
"l-*-2443"
|
|
"l-*-2441"
|
|
"l-*-2440"
|
|
"l-*-2438"
|
|
"l-*-2436"
|
|
"l-*-2434"
|
|
"l-*-2432"
|
|
"l-*-2430"
|
|
"l-*-2428"
|
|
"l-*-2426"
|
|
"l-*-2424"
|
|
"l-*-2421"
|
|
"l-*-2419"
|
|
"l-*-2418"
|
|
"l-*-2416"
|
|
"l-*-2414"
|
|
"l-*-2412"
|
|
"l-*-2410"
|
|
"l-*-2409"
|
|
"l-*-2408"
|
|
"l-*-2407"
|
|
"l-*-2405"
|
|
"l-*-2404"
|
|
"l-*-2401"
|
|
"l-*-2399"
|
|
"l-*-2397"
|
|
"l-*-2395"
|
|
"l-*-2393"
|
|
"l-*-2391"
|
|
"l-*-2389"
|
|
"l-*-2388"
|
|
"l-*-2387"
|
|
"l-*-2385"
|
|
"l-*-2383"
|
|
"l-*-2382"
|
|
"l-*-2379"
|
|
"l-*-2378"
|
|
"l-*-2376"
|
|
"l-*-2374"
|
|
"l-*-2372"
|
|
"l-*-2370"
|
|
"l-*-2368"
|
|
"l-*-2366"
|
|
"l-*-2364"
|
|
"l-*-2362"
|
|
"l-*-2360"
|
|
"l-*-2357"
|
|
"l-*-2355"
|
|
"l-*-2353"
|
|
"l-*-2351"
|
|
"l-*-2349"
|
|
"l-*-2347"
|
|
"l-*-2345"
|
|
"l-*-2343"
|
|
"l-*-2341"
|
|
"l-*-2339"
|
|
"l-*-2337"
|
|
"l-*-2335"
|
|
"l-*-2333"
|
|
"l-*-2331"
|
|
"l-*-2329"
|
|
"l-*-2327"
|
|
"l-*-2325"
|
|
"l-*-2323"
|
|
"l-*-2321"
|
|
"l-*-2319"
|
|
"l-*-2317"
|
|
"l-*-2315"
|
|
"l-*-2313"
|
|
"l-*-2311"
|
|
"l-*-2309"
|
|
"l-*-2307"
|
|
"l-*-2306"
|
|
"l-*-2305"
|
|
"l-*-2304"
|
|
"l-*-2303"
|
|
"l-*-2301"
|
|
"l-*-2299"
|
|
"l-*-2297"
|
|
"l-*-2294"
|
|
"l-*-2292"
|
|
"l-*-2290"
|
|
"l-*-2288"
|
|
"l-*-2286"
|
|
"l-*-2284"
|
|
"l-*-2282"
|
|
"l-*-2280"
|
|
"l-*-2278"
|
|
"l-*-2276"
|
|
"l-*-2274"
|
|
"l-*-2272"
|
|
"l-*-2270"
|
|
"l-*-2268"
|
|
"l-*-2266"
|
|
"l-*-2264"
|
|
"l-*-2262"
|
|
"l-*-2260"))
|
|
#(ribcage
|
|
(define-structure
|
|
define-expansion-accessors
|
|
define-expansion-constructors)
|
|
((top)
|
|
(top)
|
|
(top))
|
|
("l-*-2098"
|
|
"l-*-2097"
|
|
"l-*-2096")))
|
|
(hygiene guile)))
|
|
4)
|
|
#t
|
|
#f)
|
|
'pad
|
|
'#(syntax-object
|
|
pad
|
|
((top)
|
|
#(ribcage
|
|
#(pat exp)
|
|
#((top) (top))
|
|
#("l-*-6087" "l-*-6088"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x keys clauses r mod)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("l-*-6076"
|
|
"l-*-6077"
|
|
"l-*-6078"
|
|
"l-*-6079"
|
|
"l-*-6080"))
|
|
#(ribcage
|
|
(gen-syntax-case
|
|
gen-clause
|
|
build-dispatch-call
|
|
convert-pattern)
|
|
((top) (top) (top) (top))
|
|
("l-*-5886"
|
|
"l-*-5884"
|
|
"l-*-5882"
|
|
"l-*-5880"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
expand-lambda-case
|
|
lambda*-formals
|
|
expand-simple-lambda
|
|
lambda-formals
|
|
ellipsis?
|
|
expand-void
|
|
eval-local-transformer
|
|
expand-local-syntax
|
|
expand-body
|
|
expand-macro
|
|
expand-application
|
|
expand-expr
|
|
expand
|
|
syntax-type
|
|
parse-when-list
|
|
expand-install-global
|
|
expand-top-sequence
|
|
expand-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
with-transformer-environment
|
|
transformer-environment
|
|
resolve-identifier
|
|
locally-bound-identifiers
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
set-syntax-object-module!
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-module
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda-case
|
|
build-case-lambda
|
|
build-simple-lambda
|
|
build-global-definition
|
|
build-global-assignment
|
|
build-global-reference
|
|
analyze-variable
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-dynlet
|
|
build-conditional
|
|
build-application
|
|
build-void
|
|
maybe-name-value!
|
|
decorate-source
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
session-id
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
set-lambda-meta!
|
|
lambda-meta
|
|
lambda?
|
|
make-dynlet
|
|
make-letrec
|
|
make-let
|
|
make-lambda-case
|
|
make-lambda
|
|
make-sequence
|
|
make-application
|
|
make-conditional
|
|
make-toplevel-define
|
|
make-toplevel-set
|
|
make-toplevel-ref
|
|
make-module-set
|
|
make-module-ref
|
|
make-lexical-set
|
|
make-lexical-ref
|
|
make-primitive-ref
|
|
make-const
|
|
make-void)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("l-*-2527"
|
|
"l-*-2525"
|
|
"l-*-2523"
|
|
"l-*-2521"
|
|
"l-*-2519"
|
|
"l-*-2517"
|
|
"l-*-2515"
|
|
"l-*-2513"
|
|
"l-*-2511"
|
|
"l-*-2509"
|
|
"l-*-2507"
|
|
"l-*-2505"
|
|
"l-*-2503"
|
|
"l-*-2501"
|
|
"l-*-2499"
|
|
"l-*-2497"
|
|
"l-*-2495"
|
|
"l-*-2493"
|
|
"l-*-2491"
|
|
"l-*-2489"
|
|
"l-*-2487"
|
|
"l-*-2485"
|
|
"l-*-2483"
|
|
"l-*-2481"
|
|
"l-*-2479"
|
|
"l-*-2477"
|
|
"l-*-2475"
|
|
"l-*-2473"
|
|
"l-*-2471"
|
|
"l-*-2469"
|
|
"l-*-2467"
|
|
"l-*-2465"
|
|
"l-*-2463"
|
|
"l-*-2461"
|
|
"l-*-2459"
|
|
"l-*-2457"
|
|
"l-*-2455"
|
|
"l-*-2453"
|
|
"l-*-2451"
|
|
"l-*-2450"
|
|
"l-*-2448"
|
|
"l-*-2445"
|
|
"l-*-2444"
|
|
"l-*-2443"
|
|
"l-*-2441"
|
|
"l-*-2440"
|
|
"l-*-2438"
|
|
"l-*-2436"
|
|
"l-*-2434"
|
|
"l-*-2432"
|
|
"l-*-2430"
|
|
"l-*-2428"
|
|
"l-*-2426"
|
|
"l-*-2424"
|
|
"l-*-2421"
|
|
"l-*-2419"
|
|
"l-*-2418"
|
|
"l-*-2416"
|
|
"l-*-2414"
|
|
"l-*-2412"
|
|
"l-*-2410"
|
|
"l-*-2409"
|
|
"l-*-2408"
|
|
"l-*-2407"
|
|
"l-*-2405"
|
|
"l-*-2404"
|
|
"l-*-2401"
|
|
"l-*-2399"
|
|
"l-*-2397"
|
|
"l-*-2395"
|
|
"l-*-2393"
|
|
"l-*-2391"
|
|
"l-*-2389"
|
|
"l-*-2388"
|
|
"l-*-2387"
|
|
"l-*-2385"
|
|
"l-*-2383"
|
|
"l-*-2382"
|
|
"l-*-2379"
|
|
"l-*-2378"
|
|
"l-*-2376"
|
|
"l-*-2374"
|
|
"l-*-2372"
|
|
"l-*-2370"
|
|
"l-*-2368"
|
|
"l-*-2366"
|
|
"l-*-2364"
|
|
"l-*-2362"
|
|
"l-*-2360"
|
|
"l-*-2357"
|
|
"l-*-2355"
|
|
"l-*-2353"
|
|
"l-*-2351"
|
|
"l-*-2349"
|
|
"l-*-2347"
|
|
"l-*-2345"
|
|
"l-*-2343"
|
|
"l-*-2341"
|
|
"l-*-2339"
|
|
"l-*-2337"
|
|
"l-*-2335"
|
|
"l-*-2333"
|
|
"l-*-2331"
|
|
"l-*-2329"
|
|
"l-*-2327"
|
|
"l-*-2325"
|
|
"l-*-2323"
|
|
"l-*-2321"
|
|
"l-*-2319"
|
|
"l-*-2317"
|
|
"l-*-2315"
|
|
"l-*-2313"
|
|
"l-*-2311"
|
|
"l-*-2309"
|
|
"l-*-2307"
|
|
"l-*-2306"
|
|
"l-*-2305"
|
|
"l-*-2304"
|
|
"l-*-2303"
|
|
"l-*-2301"
|
|
"l-*-2299"
|
|
"l-*-2297"
|
|
"l-*-2294"
|
|
"l-*-2292"
|
|
"l-*-2290"
|
|
"l-*-2288"
|
|
"l-*-2286"
|
|
"l-*-2284"
|
|
"l-*-2282"
|
|
"l-*-2280"
|
|
"l-*-2278"
|
|
"l-*-2276"
|
|
"l-*-2274"
|
|
"l-*-2272"
|
|
"l-*-2270"
|
|
"l-*-2268"
|
|
"l-*-2266"
|
|
"l-*-2264"
|
|
"l-*-2262"
|
|
"l-*-2260"))
|
|
#(ribcage
|
|
(define-structure
|
|
define-expansion-accessors
|
|
define-expansion-constructors)
|
|
((top) (top) (top))
|
|
("l-*-2098"
|
|
"l-*-2097"
|
|
"l-*-2096")))
|
|
(hygiene guile)))
|
|
(if (if (= (vector-length
|
|
'#(syntax-object
|
|
_
|
|
((top)
|
|
#(ribcage
|
|
#(pat exp)
|
|
#((top) (top))
|
|
#("l-*-6087"
|
|
"l-*-6088"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x
|
|
keys
|
|
clauses
|
|
r
|
|
mod)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("l-*-6076"
|
|
"l-*-6077"
|
|
"l-*-6078"
|
|
"l-*-6079"
|
|
"l-*-6080"))
|
|
#(ribcage
|
|
(gen-syntax-case
|
|
gen-clause
|
|
build-dispatch-call
|
|
convert-pattern)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("l-*-5886"
|
|
"l-*-5884"
|
|
"l-*-5882"
|
|
"l-*-5880"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
expand-lambda-case
|
|
lambda*-formals
|
|
expand-simple-lambda
|
|
lambda-formals
|
|
ellipsis?
|
|
expand-void
|
|
eval-local-transformer
|
|
expand-local-syntax
|
|
expand-body
|
|
expand-macro
|
|
expand-application
|
|
expand-expr
|
|
expand
|
|
syntax-type
|
|
parse-when-list
|
|
expand-install-global
|
|
expand-top-sequence
|
|
expand-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
with-transformer-environment
|
|
transformer-environment
|
|
resolve-identifier
|
|
locally-bound-identifiers
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
set-syntax-object-module!
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-module
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda-case
|
|
build-case-lambda
|
|
build-simple-lambda
|
|
build-global-definition
|
|
build-global-assignment
|
|
build-global-reference
|
|
analyze-variable
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-dynlet
|
|
build-conditional
|
|
build-application
|
|
build-void
|
|
maybe-name-value!
|
|
decorate-source
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
session-id
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
set-lambda-meta!
|
|
lambda-meta
|
|
lambda?
|
|
make-dynlet
|
|
make-letrec
|
|
make-let
|
|
make-lambda-case
|
|
make-lambda
|
|
make-sequence
|
|
make-application
|
|
make-conditional
|
|
make-toplevel-define
|
|
make-toplevel-set
|
|
make-toplevel-ref
|
|
make-module-set
|
|
make-module-ref
|
|
make-lexical-set
|
|
make-lexical-ref
|
|
make-primitive-ref
|
|
make-const
|
|
make-void)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("l-*-2527"
|
|
"l-*-2525"
|
|
"l-*-2523"
|
|
"l-*-2521"
|
|
"l-*-2519"
|
|
"l-*-2517"
|
|
"l-*-2515"
|
|
"l-*-2513"
|
|
"l-*-2511"
|
|
"l-*-2509"
|
|
"l-*-2507"
|
|
"l-*-2505"
|
|
"l-*-2503"
|
|
"l-*-2501"
|
|
"l-*-2499"
|
|
"l-*-2497"
|
|
"l-*-2495"
|
|
"l-*-2493"
|
|
"l-*-2491"
|
|
"l-*-2489"
|
|
"l-*-2487"
|
|
"l-*-2485"
|
|
"l-*-2483"
|
|
"l-*-2481"
|
|
"l-*-2479"
|
|
"l-*-2477"
|
|
"l-*-2475"
|
|
"l-*-2473"
|
|
"l-*-2471"
|
|
"l-*-2469"
|
|
"l-*-2467"
|
|
"l-*-2465"
|
|
"l-*-2463"
|
|
"l-*-2461"
|
|
"l-*-2459"
|
|
"l-*-2457"
|
|
"l-*-2455"
|
|
"l-*-2453"
|
|
"l-*-2451"
|
|
"l-*-2450"
|
|
"l-*-2448"
|
|
"l-*-2445"
|
|
"l-*-2444"
|
|
"l-*-2443"
|
|
"l-*-2441"
|
|
"l-*-2440"
|
|
"l-*-2438"
|
|
"l-*-2436"
|
|
"l-*-2434"
|
|
"l-*-2432"
|
|
"l-*-2430"
|
|
"l-*-2428"
|
|
"l-*-2426"
|
|
"l-*-2424"
|
|
"l-*-2421"
|
|
"l-*-2419"
|
|
"l-*-2418"
|
|
"l-*-2416"
|
|
"l-*-2414"
|
|
"l-*-2412"
|
|
"l-*-2410"
|
|
"l-*-2409"
|
|
"l-*-2408"
|
|
"l-*-2407"
|
|
"l-*-2405"
|
|
"l-*-2404"
|
|
"l-*-2401"
|
|
"l-*-2399"
|
|
"l-*-2397"
|
|
"l-*-2395"
|
|
"l-*-2393"
|
|
"l-*-2391"
|
|
"l-*-2389"
|
|
"l-*-2388"
|
|
"l-*-2387"
|
|
"l-*-2385"
|
|
"l-*-2383"
|
|
"l-*-2382"
|
|
"l-*-2379"
|
|
"l-*-2378"
|
|
"l-*-2376"
|
|
"l-*-2374"
|
|
"l-*-2372"
|
|
"l-*-2370"
|
|
"l-*-2368"
|
|
"l-*-2366"
|
|
"l-*-2364"
|
|
"l-*-2362"
|
|
"l-*-2360"
|
|
"l-*-2357"
|
|
"l-*-2355"
|
|
"l-*-2353"
|
|
"l-*-2351"
|
|
"l-*-2349"
|
|
"l-*-2347"
|
|
"l-*-2345"
|
|
"l-*-2343"
|
|
"l-*-2341"
|
|
"l-*-2339"
|
|
"l-*-2337"
|
|
"l-*-2335"
|
|
"l-*-2333"
|
|
"l-*-2331"
|
|
"l-*-2329"
|
|
"l-*-2327"
|
|
"l-*-2325"
|
|
"l-*-2323"
|
|
"l-*-2321"
|
|
"l-*-2319"
|
|
"l-*-2317"
|
|
"l-*-2315"
|
|
"l-*-2313"
|
|
"l-*-2311"
|
|
"l-*-2309"
|
|
"l-*-2307"
|
|
"l-*-2306"
|
|
"l-*-2305"
|
|
"l-*-2304"
|
|
"l-*-2303"
|
|
"l-*-2301"
|
|
"l-*-2299"
|
|
"l-*-2297"
|
|
"l-*-2294"
|
|
"l-*-2292"
|
|
"l-*-2290"
|
|
"l-*-2288"
|
|
"l-*-2286"
|
|
"l-*-2284"
|
|
"l-*-2282"
|
|
"l-*-2280"
|
|
"l-*-2278"
|
|
"l-*-2276"
|
|
"l-*-2274"
|
|
"l-*-2272"
|
|
"l-*-2270"
|
|
"l-*-2268"
|
|
"l-*-2266"
|
|
"l-*-2264"
|
|
"l-*-2262"
|
|
"l-*-2260"))
|
|
#(ribcage
|
|
(define-structure
|
|
define-expansion-accessors
|
|
define-expansion-constructors)
|
|
((top)
|
|
(top)
|
|
(top))
|
|
("l-*-2098"
|
|
"l-*-2097"
|
|
"l-*-2096")))
|
|
(hygiene guile)))
|
|
4)
|
|
#t
|
|
#f)
|
|
'_
|
|
'#(syntax-object
|
|
_
|
|
((top)
|
|
#(ribcage
|
|
#(pat exp)
|
|
#((top) (top))
|
|
#("l-*-6087" "l-*-6088"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x keys clauses r mod)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("l-*-6076"
|
|
"l-*-6077"
|
|
"l-*-6078"
|
|
"l-*-6079"
|
|
"l-*-6080"))
|
|
#(ribcage
|
|
(gen-syntax-case
|
|
gen-clause
|
|
build-dispatch-call
|
|
convert-pattern)
|
|
((top) (top) (top) (top))
|
|
("l-*-5886"
|
|
"l-*-5884"
|
|
"l-*-5882"
|
|
"l-*-5880"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
expand-lambda-case
|
|
lambda*-formals
|
|
expand-simple-lambda
|
|
lambda-formals
|
|
ellipsis?
|
|
expand-void
|
|
eval-local-transformer
|
|
expand-local-syntax
|
|
expand-body
|
|
expand-macro
|
|
expand-application
|
|
expand-expr
|
|
expand
|
|
syntax-type
|
|
parse-when-list
|
|
expand-install-global
|
|
expand-top-sequence
|
|
expand-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
with-transformer-environment
|
|
transformer-environment
|
|
resolve-identifier
|
|
locally-bound-identifiers
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
set-syntax-object-module!
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-module
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda-case
|
|
build-case-lambda
|
|
build-simple-lambda
|
|
build-global-definition
|
|
build-global-assignment
|
|
build-global-reference
|
|
analyze-variable
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-dynlet
|
|
build-conditional
|
|
build-application
|
|
build-void
|
|
maybe-name-value!
|
|
decorate-source
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
session-id
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
set-lambda-meta!
|
|
lambda-meta
|
|
lambda?
|
|
make-dynlet
|
|
make-letrec
|
|
make-let
|
|
make-lambda-case
|
|
make-lambda
|
|
make-sequence
|
|
make-application
|
|
make-conditional
|
|
make-toplevel-define
|
|
make-toplevel-set
|
|
make-toplevel-ref
|
|
make-module-set
|
|
make-module-ref
|
|
make-lexical-set
|
|
make-lexical-ref
|
|
make-primitive-ref
|
|
make-const
|
|
make-void)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("l-*-2527"
|
|
"l-*-2525"
|
|
"l-*-2523"
|
|
"l-*-2521"
|
|
"l-*-2519"
|
|
"l-*-2517"
|
|
"l-*-2515"
|
|
"l-*-2513"
|
|
"l-*-2511"
|
|
"l-*-2509"
|
|
"l-*-2507"
|
|
"l-*-2505"
|
|
"l-*-2503"
|
|
"l-*-2501"
|
|
"l-*-2499"
|
|
"l-*-2497"
|
|
"l-*-2495"
|
|
"l-*-2493"
|
|
"l-*-2491"
|
|
"l-*-2489"
|
|
"l-*-2487"
|
|
"l-*-2485"
|
|
"l-*-2483"
|
|
"l-*-2481"
|
|
"l-*-2479"
|
|
"l-*-2477"
|
|
"l-*-2475"
|
|
"l-*-2473"
|
|
"l-*-2471"
|
|
"l-*-2469"
|
|
"l-*-2467"
|
|
"l-*-2465"
|
|
"l-*-2463"
|
|
"l-*-2461"
|
|
"l-*-2459"
|
|
"l-*-2457"
|
|
"l-*-2455"
|
|
"l-*-2453"
|
|
"l-*-2451"
|
|
"l-*-2450"
|
|
"l-*-2448"
|
|
"l-*-2445"
|
|
"l-*-2444"
|
|
"l-*-2443"
|
|
"l-*-2441"
|
|
"l-*-2440"
|
|
"l-*-2438"
|
|
"l-*-2436"
|
|
"l-*-2434"
|
|
"l-*-2432"
|
|
"l-*-2430"
|
|
"l-*-2428"
|
|
"l-*-2426"
|
|
"l-*-2424"
|
|
"l-*-2421"
|
|
"l-*-2419"
|
|
"l-*-2418"
|
|
"l-*-2416"
|
|
"l-*-2414"
|
|
"l-*-2412"
|
|
"l-*-2410"
|
|
"l-*-2409"
|
|
"l-*-2408"
|
|
"l-*-2407"
|
|
"l-*-2405"
|
|
"l-*-2404"
|
|
"l-*-2401"
|
|
"l-*-2399"
|
|
"l-*-2397"
|
|
"l-*-2395"
|
|
"l-*-2393"
|
|
"l-*-2391"
|
|
"l-*-2389"
|
|
"l-*-2388"
|
|
"l-*-2387"
|
|
"l-*-2385"
|
|
"l-*-2383"
|
|
"l-*-2382"
|
|
"l-*-2379"
|
|
"l-*-2378"
|
|
"l-*-2376"
|
|
"l-*-2374"
|
|
"l-*-2372"
|
|
"l-*-2370"
|
|
"l-*-2368"
|
|
"l-*-2366"
|
|
"l-*-2364"
|
|
"l-*-2362"
|
|
"l-*-2360"
|
|
"l-*-2357"
|
|
"l-*-2355"
|
|
"l-*-2353"
|
|
"l-*-2351"
|
|
"l-*-2349"
|
|
"l-*-2347"
|
|
"l-*-2345"
|
|
"l-*-2343"
|
|
"l-*-2341"
|
|
"l-*-2339"
|
|
"l-*-2337"
|
|
"l-*-2335"
|
|
"l-*-2333"
|
|
"l-*-2331"
|
|
"l-*-2329"
|
|
"l-*-2327"
|
|
"l-*-2325"
|
|
"l-*-2323"
|
|
"l-*-2321"
|
|
"l-*-2319"
|
|
"l-*-2317"
|
|
"l-*-2315"
|
|
"l-*-2313"
|
|
"l-*-2311"
|
|
"l-*-2309"
|
|
"l-*-2307"
|
|
"l-*-2306"
|
|
"l-*-2305"
|
|
"l-*-2304"
|
|
"l-*-2303"
|
|
"l-*-2301"
|
|
"l-*-2299"
|
|
"l-*-2297"
|
|
"l-*-2294"
|
|
"l-*-2292"
|
|
"l-*-2290"
|
|
"l-*-2288"
|
|
"l-*-2286"
|
|
"l-*-2284"
|
|
"l-*-2282"
|
|
"l-*-2280"
|
|
"l-*-2278"
|
|
"l-*-2276"
|
|
"l-*-2274"
|
|
"l-*-2272"
|
|
"l-*-2270"
|
|
"l-*-2268"
|
|
"l-*-2266"
|
|
"l-*-2264"
|
|
"l-*-2262"
|
|
"l-*-2260"))
|
|
#(ribcage
|
|
(define-structure
|
|
define-expansion-accessors
|
|
define-expansion-constructors)
|
|
((top) (top) (top))
|
|
("l-*-2098"
|
|
"l-*-2097"
|
|
"l-*-2096")))
|
|
(hygiene guile))))
|
|
(eq? (id-var-name-6568
|
|
'#(syntax-object
|
|
pad
|
|
((top)
|
|
#(ribcage
|
|
#(pat exp)
|
|
#((top) (top))
|
|
#("l-*-6087" "l-*-6088"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x keys clauses r mod)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("l-*-6076"
|
|
"l-*-6077"
|
|
"l-*-6078"
|
|
"l-*-6079"
|
|
"l-*-6080"))
|
|
#(ribcage
|
|
(gen-syntax-case
|
|
gen-clause
|
|
build-dispatch-call
|
|
convert-pattern)
|
|
((top) (top) (top) (top))
|
|
("l-*-5886"
|
|
"l-*-5884"
|
|
"l-*-5882"
|
|
"l-*-5880"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
expand-lambda-case
|
|
lambda*-formals
|
|
expand-simple-lambda
|
|
lambda-formals
|
|
ellipsis?
|
|
expand-void
|
|
eval-local-transformer
|
|
expand-local-syntax
|
|
expand-body
|
|
expand-macro
|
|
expand-application
|
|
expand-expr
|
|
expand
|
|
syntax-type
|
|
parse-when-list
|
|
expand-install-global
|
|
expand-top-sequence
|
|
expand-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
with-transformer-environment
|
|
transformer-environment
|
|
resolve-identifier
|
|
locally-bound-identifiers
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
set-syntax-object-module!
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-module
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda-case
|
|
build-case-lambda
|
|
build-simple-lambda
|
|
build-global-definition
|
|
build-global-assignment
|
|
build-global-reference
|
|
analyze-variable
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-dynlet
|
|
build-conditional
|
|
build-application
|
|
build-void
|
|
maybe-name-value!
|
|
decorate-source
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
session-id
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
set-lambda-meta!
|
|
lambda-meta
|
|
lambda?
|
|
make-dynlet
|
|
make-letrec
|
|
make-let
|
|
make-lambda-case
|
|
make-lambda
|
|
make-sequence
|
|
make-application
|
|
make-conditional
|
|
make-toplevel-define
|
|
make-toplevel-set
|
|
make-toplevel-ref
|
|
make-module-set
|
|
make-module-ref
|
|
make-lexical-set
|
|
make-lexical-ref
|
|
make-primitive-ref
|
|
make-const
|
|
make-void)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("l-*-2527"
|
|
"l-*-2525"
|
|
"l-*-2523"
|
|
"l-*-2521"
|
|
"l-*-2519"
|
|
"l-*-2517"
|
|
"l-*-2515"
|
|
"l-*-2513"
|
|
"l-*-2511"
|
|
"l-*-2509"
|
|
"l-*-2507"
|
|
"l-*-2505"
|
|
"l-*-2503"
|
|
"l-*-2501"
|
|
"l-*-2499"
|
|
"l-*-2497"
|
|
"l-*-2495"
|
|
"l-*-2493"
|
|
"l-*-2491"
|
|
"l-*-2489"
|
|
"l-*-2487"
|
|
"l-*-2485"
|
|
"l-*-2483"
|
|
"l-*-2481"
|
|
"l-*-2479"
|
|
"l-*-2477"
|
|
"l-*-2475"
|
|
"l-*-2473"
|
|
"l-*-2471"
|
|
"l-*-2469"
|
|
"l-*-2467"
|
|
"l-*-2465"
|
|
"l-*-2463"
|
|
"l-*-2461"
|
|
"l-*-2459"
|
|
"l-*-2457"
|
|
"l-*-2455"
|
|
"l-*-2453"
|
|
"l-*-2451"
|
|
"l-*-2450"
|
|
"l-*-2448"
|
|
"l-*-2445"
|
|
"l-*-2444"
|
|
"l-*-2443"
|
|
"l-*-2441"
|
|
"l-*-2440"
|
|
"l-*-2438"
|
|
"l-*-2436"
|
|
"l-*-2434"
|
|
"l-*-2432"
|
|
"l-*-2430"
|
|
"l-*-2428"
|
|
"l-*-2426"
|
|
"l-*-2424"
|
|
"l-*-2421"
|
|
"l-*-2419"
|
|
"l-*-2418"
|
|
"l-*-2416"
|
|
"l-*-2414"
|
|
"l-*-2412"
|
|
"l-*-2410"
|
|
"l-*-2409"
|
|
"l-*-2408"
|
|
"l-*-2407"
|
|
"l-*-2405"
|
|
"l-*-2404"
|
|
"l-*-2401"
|
|
"l-*-2399"
|
|
"l-*-2397"
|
|
"l-*-2395"
|
|
"l-*-2393"
|
|
"l-*-2391"
|
|
"l-*-2389"
|
|
"l-*-2388"
|
|
"l-*-2387"
|
|
"l-*-2385"
|
|
"l-*-2383"
|
|
"l-*-2382"
|
|
"l-*-2379"
|
|
"l-*-2378"
|
|
"l-*-2376"
|
|
"l-*-2374"
|
|
"l-*-2372"
|
|
"l-*-2370"
|
|
"l-*-2368"
|
|
"l-*-2366"
|
|
"l-*-2364"
|
|
"l-*-2362"
|
|
"l-*-2360"
|
|
"l-*-2357"
|
|
"l-*-2355"
|
|
"l-*-2353"
|
|
"l-*-2351"
|
|
"l-*-2349"
|
|
"l-*-2347"
|
|
"l-*-2345"
|
|
"l-*-2343"
|
|
"l-*-2341"
|
|
"l-*-2339"
|
|
"l-*-2337"
|
|
"l-*-2335"
|
|
"l-*-2333"
|
|
"l-*-2331"
|
|
"l-*-2329"
|
|
"l-*-2327"
|
|
"l-*-2325"
|
|
"l-*-2323"
|
|
"l-*-2321"
|
|
"l-*-2319"
|
|
"l-*-2317"
|
|
"l-*-2315"
|
|
"l-*-2313"
|
|
"l-*-2311"
|
|
"l-*-2309"
|
|
"l-*-2307"
|
|
"l-*-2306"
|
|
"l-*-2305"
|
|
"l-*-2304"
|
|
"l-*-2303"
|
|
"l-*-2301"
|
|
"l-*-2299"
|
|
"l-*-2297"
|
|
"l-*-2294"
|
|
"l-*-2292"
|
|
"l-*-2290"
|
|
"l-*-2288"
|
|
"l-*-2286"
|
|
"l-*-2284"
|
|
"l-*-2282"
|
|
"l-*-2280"
|
|
"l-*-2278"
|
|
"l-*-2276"
|
|
"l-*-2274"
|
|
"l-*-2272"
|
|
"l-*-2270"
|
|
"l-*-2268"
|
|
"l-*-2266"
|
|
"l-*-2264"
|
|
"l-*-2262"
|
|
"l-*-2260"))
|
|
#(ribcage
|
|
(define-structure
|
|
define-expansion-accessors
|
|
define-expansion-constructors)
|
|
((top) (top) (top))
|
|
("l-*-2098"
|
|
"l-*-2097"
|
|
"l-*-2096")))
|
|
(hygiene guile))
|
|
'(()))
|
|
(id-var-name-6568
|
|
'#(syntax-object
|
|
_
|
|
((top)
|
|
#(ribcage
|
|
#(pat exp)
|
|
#((top) (top))
|
|
#("l-*-6087" "l-*-6088"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x keys clauses r mod)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("l-*-6076"
|
|
"l-*-6077"
|
|
"l-*-6078"
|
|
"l-*-6079"
|
|
"l-*-6080"))
|
|
#(ribcage
|
|
(gen-syntax-case
|
|
gen-clause
|
|
build-dispatch-call
|
|
convert-pattern)
|
|
((top) (top) (top) (top))
|
|
("l-*-5886"
|
|
"l-*-5884"
|
|
"l-*-5882"
|
|
"l-*-5880"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
expand-lambda-case
|
|
lambda*-formals
|
|
expand-simple-lambda
|
|
lambda-formals
|
|
ellipsis?
|
|
expand-void
|
|
eval-local-transformer
|
|
expand-local-syntax
|
|
expand-body
|
|
expand-macro
|
|
expand-application
|
|
expand-expr
|
|
expand
|
|
syntax-type
|
|
parse-when-list
|
|
expand-install-global
|
|
expand-top-sequence
|
|
expand-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
with-transformer-environment
|
|
transformer-environment
|
|
resolve-identifier
|
|
locally-bound-identifiers
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
set-syntax-object-module!
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-module
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda-case
|
|
build-case-lambda
|
|
build-simple-lambda
|
|
build-global-definition
|
|
build-global-assignment
|
|
build-global-reference
|
|
analyze-variable
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-dynlet
|
|
build-conditional
|
|
build-application
|
|
build-void
|
|
maybe-name-value!
|
|
decorate-source
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
session-id
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
set-lambda-meta!
|
|
lambda-meta
|
|
lambda?
|
|
make-dynlet
|
|
make-letrec
|
|
make-let
|
|
make-lambda-case
|
|
make-lambda
|
|
make-sequence
|
|
make-application
|
|
make-conditional
|
|
make-toplevel-define
|
|
make-toplevel-set
|
|
make-toplevel-ref
|
|
make-module-set
|
|
make-module-ref
|
|
make-lexical-set
|
|
make-lexical-ref
|
|
make-primitive-ref
|
|
make-const
|
|
make-void)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("l-*-2527"
|
|
"l-*-2525"
|
|
"l-*-2523"
|
|
"l-*-2521"
|
|
"l-*-2519"
|
|
"l-*-2517"
|
|
"l-*-2515"
|
|
"l-*-2513"
|
|
"l-*-2511"
|
|
"l-*-2509"
|
|
"l-*-2507"
|
|
"l-*-2505"
|
|
"l-*-2503"
|
|
"l-*-2501"
|
|
"l-*-2499"
|
|
"l-*-2497"
|
|
"l-*-2495"
|
|
"l-*-2493"
|
|
"l-*-2491"
|
|
"l-*-2489"
|
|
"l-*-2487"
|
|
"l-*-2485"
|
|
"l-*-2483"
|
|
"l-*-2481"
|
|
"l-*-2479"
|
|
"l-*-2477"
|
|
"l-*-2475"
|
|
"l-*-2473"
|
|
"l-*-2471"
|
|
"l-*-2469"
|
|
"l-*-2467"
|
|
"l-*-2465"
|
|
"l-*-2463"
|
|
"l-*-2461"
|
|
"l-*-2459"
|
|
"l-*-2457"
|
|
"l-*-2455"
|
|
"l-*-2453"
|
|
"l-*-2451"
|
|
"l-*-2450"
|
|
"l-*-2448"
|
|
"l-*-2445"
|
|
"l-*-2444"
|
|
"l-*-2443"
|
|
"l-*-2441"
|
|
"l-*-2440"
|
|
"l-*-2438"
|
|
"l-*-2436"
|
|
"l-*-2434"
|
|
"l-*-2432"
|
|
"l-*-2430"
|
|
"l-*-2428"
|
|
"l-*-2426"
|
|
"l-*-2424"
|
|
"l-*-2421"
|
|
"l-*-2419"
|
|
"l-*-2418"
|
|
"l-*-2416"
|
|
"l-*-2414"
|
|
"l-*-2412"
|
|
"l-*-2410"
|
|
"l-*-2409"
|
|
"l-*-2408"
|
|
"l-*-2407"
|
|
"l-*-2405"
|
|
"l-*-2404"
|
|
"l-*-2401"
|
|
"l-*-2399"
|
|
"l-*-2397"
|
|
"l-*-2395"
|
|
"l-*-2393"
|
|
"l-*-2391"
|
|
"l-*-2389"
|
|
"l-*-2388"
|
|
"l-*-2387"
|
|
"l-*-2385"
|
|
"l-*-2383"
|
|
"l-*-2382"
|
|
"l-*-2379"
|
|
"l-*-2378"
|
|
"l-*-2376"
|
|
"l-*-2374"
|
|
"l-*-2372"
|
|
"l-*-2370"
|
|
"l-*-2368"
|
|
"l-*-2366"
|
|
"l-*-2364"
|
|
"l-*-2362"
|
|
"l-*-2360"
|
|
"l-*-2357"
|
|
"l-*-2355"
|
|
"l-*-2353"
|
|
"l-*-2351"
|
|
"l-*-2349"
|
|
"l-*-2347"
|
|
"l-*-2345"
|
|
"l-*-2343"
|
|
"l-*-2341"
|
|
"l-*-2339"
|
|
"l-*-2337"
|
|
"l-*-2335"
|
|
"l-*-2333"
|
|
"l-*-2331"
|
|
"l-*-2329"
|
|
"l-*-2327"
|
|
"l-*-2325"
|
|
"l-*-2323"
|
|
"l-*-2321"
|
|
"l-*-2319"
|
|
"l-*-2317"
|
|
"l-*-2315"
|
|
"l-*-2313"
|
|
"l-*-2311"
|
|
"l-*-2309"
|
|
"l-*-2307"
|
|
"l-*-2306"
|
|
"l-*-2305"
|
|
"l-*-2304"
|
|
"l-*-2303"
|
|
"l-*-2301"
|
|
"l-*-2299"
|
|
"l-*-2297"
|
|
"l-*-2294"
|
|
"l-*-2292"
|
|
"l-*-2290"
|
|
"l-*-2288"
|
|
"l-*-2286"
|
|
"l-*-2284"
|
|
"l-*-2282"
|
|
"l-*-2280"
|
|
"l-*-2278"
|
|
"l-*-2276"
|
|
"l-*-2274"
|
|
"l-*-2272"
|
|
"l-*-2270"
|
|
"l-*-2268"
|
|
"l-*-2266"
|
|
"l-*-2264"
|
|
"l-*-2262"
|
|
"l-*-2260"))
|
|
#(ribcage
|
|
(define-structure
|
|
define-expansion-accessors
|
|
define-expansion-constructors)
|
|
((top) (top) (top))
|
|
("l-*-2098"
|
|
"l-*-2097"
|
|
"l-*-2096")))
|
|
(hygiene guile))
|
|
'(())))
|
|
#f)
|
|
(expand-6585 exp-13675 r-13631 '(()) mod-13632)
|
|
(let ((labels-13878
|
|
(list (string-append
|
|
"l-"
|
|
(session-id-6510)
|
|
(symbol->string (gensym "-")))))
|
|
(var-13879
|
|
(let ((id-13917
|
|
(if (if (vector? pat-13674)
|
|
(if (= (vector-length
|
|
pat-13674)
|
|
4)
|
|
(eq? (vector-ref
|
|
pat-13674
|
|
0)
|
|
'syntax-object)
|
|
#f)
|
|
#f)
|
|
(vector-ref pat-13674 1)
|
|
pat-13674)))
|
|
(gensym
|
|
(string-append
|
|
(symbol->string id-13917)
|
|
"-")))))
|
|
(build-application-6516
|
|
#f
|
|
(build-simple-lambda-6525
|
|
#f
|
|
(list (syntax->datum pat-13674))
|
|
#f
|
|
(list var-13879)
|
|
'()
|
|
(expand-6585
|
|
exp-13675
|
|
(extend-env-6543
|
|
labels-13878
|
|
(list (cons 'syntax
|
|
(cons var-13879 0)))
|
|
r-13631)
|
|
(make-binding-wrap-6563
|
|
(list pat-13674)
|
|
labels-13878
|
|
'(()))
|
|
mod-13632))
|
|
(list x-13628))))
|
|
(gen-clause-13228
|
|
x-13628
|
|
keys-13629
|
|
(cdr clauses-13630)
|
|
r-13631
|
|
pat-13674
|
|
#t
|
|
exp-13675
|
|
mod-13632)))
|
|
tmp-13672)
|
|
(let ((tmp-14187
|
|
($sc-dispatch tmp-13671 '(any any any))))
|
|
(if tmp-14187
|
|
(@apply
|
|
(lambda (pat-14189 fender-14190 exp-14191)
|
|
(gen-clause-13228
|
|
x-13628
|
|
keys-13629
|
|
(cdr clauses-13630)
|
|
r-13631
|
|
pat-14189
|
|
fender-14190
|
|
exp-14191
|
|
mod-13632))
|
|
tmp-14187)
|
|
(syntax-violation
|
|
'syntax-case
|
|
"invalid clause"
|
|
(car clauses-13630)))))))))))
|
|
(lambda (e-13230 r-13231 w-13232 s-13233 mod-13234)
|
|
(let ((e-13235
|
|
(wrap-6578
|
|
(begin
|
|
(if (if (pair? e-13230) s-13233 #f)
|
|
(set-source-properties! e-13230 s-13233))
|
|
e-13230)
|
|
w-13232
|
|
mod-13234)))
|
|
(let ((tmp-13237
|
|
($sc-dispatch
|
|
e-13235
|
|
'(_ any each-any . each-any))))
|
|
(if tmp-13237
|
|
(@apply
|
|
(lambda (val-13262 key-13263 m-13264)
|
|
(if (and-map
|
|
(lambda (x-13265)
|
|
(if (if (symbol? x-13265)
|
|
#t
|
|
(if (if (vector? x-13265)
|
|
(if (= (vector-length x-13265) 4)
|
|
(eq? (vector-ref x-13265 0)
|
|
'syntax-object)
|
|
#f)
|
|
#f)
|
|
(symbol? (vector-ref x-13265 1))
|
|
#f))
|
|
(not (if (if (if (vector? x-13265)
|
|
(if (= (vector-length x-13265)
|
|
4)
|
|
(eq? (vector-ref x-13265 0)
|
|
'syntax-object)
|
|
#f)
|
|
#f)
|
|
(symbol? (vector-ref x-13265 1))
|
|
#f)
|
|
(if (eq? (if (if (vector? x-13265)
|
|
(if (= (vector-length
|
|
x-13265)
|
|
4)
|
|
(eq? (vector-ref
|
|
x-13265
|
|
0)
|
|
'syntax-object)
|
|
#f)
|
|
#f)
|
|
(vector-ref x-13265 1)
|
|
x-13265)
|
|
(if (if (= (vector-length
|
|
'#(syntax-object
|
|
...
|
|
((top)
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("l-*-4404"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
expand-lambda-case
|
|
lambda*-formals
|
|
expand-simple-lambda
|
|
lambda-formals
|
|
ellipsis?
|
|
expand-void
|
|
eval-local-transformer
|
|
expand-local-syntax
|
|
expand-body
|
|
expand-macro
|
|
expand-application
|
|
expand-expr
|
|
expand
|
|
syntax-type
|
|
parse-when-list
|
|
expand-install-global
|
|
expand-top-sequence
|
|
expand-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
with-transformer-environment
|
|
transformer-environment
|
|
resolve-identifier
|
|
locally-bound-identifiers
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
set-syntax-object-module!
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-module
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda-case
|
|
build-case-lambda
|
|
build-simple-lambda
|
|
build-global-definition
|
|
build-global-assignment
|
|
build-global-reference
|
|
analyze-variable
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-dynlet
|
|
build-conditional
|
|
build-application
|
|
build-void
|
|
maybe-name-value!
|
|
decorate-source
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
session-id
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
set-lambda-meta!
|
|
lambda-meta
|
|
lambda?
|
|
make-dynlet
|
|
make-letrec
|
|
make-let
|
|
make-lambda-case
|
|
make-lambda
|
|
make-sequence
|
|
make-application
|
|
make-conditional
|
|
make-toplevel-define
|
|
make-toplevel-set
|
|
make-toplevel-ref
|
|
make-module-set
|
|
make-module-ref
|
|
make-lexical-set
|
|
make-lexical-ref
|
|
make-primitive-ref
|
|
make-const
|
|
make-void)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("l-*-2527"
|
|
"l-*-2525"
|
|
"l-*-2523"
|
|
"l-*-2521"
|
|
"l-*-2519"
|
|
"l-*-2517"
|
|
"l-*-2515"
|
|
"l-*-2513"
|
|
"l-*-2511"
|
|
"l-*-2509"
|
|
"l-*-2507"
|
|
"l-*-2505"
|
|
"l-*-2503"
|
|
"l-*-2501"
|
|
"l-*-2499"
|
|
"l-*-2497"
|
|
"l-*-2495"
|
|
"l-*-2493"
|
|
"l-*-2491"
|
|
"l-*-2489"
|
|
"l-*-2487"
|
|
"l-*-2485"
|
|
"l-*-2483"
|
|
"l-*-2481"
|
|
"l-*-2479"
|
|
"l-*-2477"
|
|
"l-*-2475"
|
|
"l-*-2473"
|
|
"l-*-2471"
|
|
"l-*-2469"
|
|
"l-*-2467"
|
|
"l-*-2465"
|
|
"l-*-2463"
|
|
"l-*-2461"
|
|
"l-*-2459"
|
|
"l-*-2457"
|
|
"l-*-2455"
|
|
"l-*-2453"
|
|
"l-*-2451"
|
|
"l-*-2450"
|
|
"l-*-2448"
|
|
"l-*-2445"
|
|
"l-*-2444"
|
|
"l-*-2443"
|
|
"l-*-2441"
|
|
"l-*-2440"
|
|
"l-*-2438"
|
|
"l-*-2436"
|
|
"l-*-2434"
|
|
"l-*-2432"
|
|
"l-*-2430"
|
|
"l-*-2428"
|
|
"l-*-2426"
|
|
"l-*-2424"
|
|
"l-*-2421"
|
|
"l-*-2419"
|
|
"l-*-2418"
|
|
"l-*-2416"
|
|
"l-*-2414"
|
|
"l-*-2412"
|
|
"l-*-2410"
|
|
"l-*-2409"
|
|
"l-*-2408"
|
|
"l-*-2407"
|
|
"l-*-2405"
|
|
"l-*-2404"
|
|
"l-*-2401"
|
|
"l-*-2399"
|
|
"l-*-2397"
|
|
"l-*-2395"
|
|
"l-*-2393"
|
|
"l-*-2391"
|
|
"l-*-2389"
|
|
"l-*-2388"
|
|
"l-*-2387"
|
|
"l-*-2385"
|
|
"l-*-2383"
|
|
"l-*-2382"
|
|
"l-*-2379"
|
|
"l-*-2378"
|
|
"l-*-2376"
|
|
"l-*-2374"
|
|
"l-*-2372"
|
|
"l-*-2370"
|
|
"l-*-2368"
|
|
"l-*-2366"
|
|
"l-*-2364"
|
|
"l-*-2362"
|
|
"l-*-2360"
|
|
"l-*-2357"
|
|
"l-*-2355"
|
|
"l-*-2353"
|
|
"l-*-2351"
|
|
"l-*-2349"
|
|
"l-*-2347"
|
|
"l-*-2345"
|
|
"l-*-2343"
|
|
"l-*-2341"
|
|
"l-*-2339"
|
|
"l-*-2337"
|
|
"l-*-2335"
|
|
"l-*-2333"
|
|
"l-*-2331"
|
|
"l-*-2329"
|
|
"l-*-2327"
|
|
"l-*-2325"
|
|
"l-*-2323"
|
|
"l-*-2321"
|
|
"l-*-2319"
|
|
"l-*-2317"
|
|
"l-*-2315"
|
|
"l-*-2313"
|
|
"l-*-2311"
|
|
"l-*-2309"
|
|
"l-*-2307"
|
|
"l-*-2306"
|
|
"l-*-2305"
|
|
"l-*-2304"
|
|
"l-*-2303"
|
|
"l-*-2301"
|
|
"l-*-2299"
|
|
"l-*-2297"
|
|
"l-*-2294"
|
|
"l-*-2292"
|
|
"l-*-2290"
|
|
"l-*-2288"
|
|
"l-*-2286"
|
|
"l-*-2284"
|
|
"l-*-2282"
|
|
"l-*-2280"
|
|
"l-*-2278"
|
|
"l-*-2276"
|
|
"l-*-2274"
|
|
"l-*-2272"
|
|
"l-*-2270"
|
|
"l-*-2268"
|
|
"l-*-2266"
|
|
"l-*-2264"
|
|
"l-*-2262"
|
|
"l-*-2260"))
|
|
#(ribcage
|
|
(define-structure
|
|
define-expansion-accessors
|
|
define-expansion-constructors)
|
|
((top)
|
|
(top)
|
|
(top))
|
|
("l-*-2098"
|
|
"l-*-2097"
|
|
"l-*-2096")))
|
|
(hygiene
|
|
guile)))
|
|
4)
|
|
#t
|
|
#f)
|
|
'...
|
|
'#(syntax-object
|
|
...
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("l-*-4404"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
expand-lambda-case
|
|
lambda*-formals
|
|
expand-simple-lambda
|
|
lambda-formals
|
|
ellipsis?
|
|
expand-void
|
|
eval-local-transformer
|
|
expand-local-syntax
|
|
expand-body
|
|
expand-macro
|
|
expand-application
|
|
expand-expr
|
|
expand
|
|
syntax-type
|
|
parse-when-list
|
|
expand-install-global
|
|
expand-top-sequence
|
|
expand-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
with-transformer-environment
|
|
transformer-environment
|
|
resolve-identifier
|
|
locally-bound-identifiers
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
set-syntax-object-module!
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-module
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda-case
|
|
build-case-lambda
|
|
build-simple-lambda
|
|
build-global-definition
|
|
build-global-assignment
|
|
build-global-reference
|
|
analyze-variable
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-dynlet
|
|
build-conditional
|
|
build-application
|
|
build-void
|
|
maybe-name-value!
|
|
decorate-source
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
session-id
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
set-lambda-meta!
|
|
lambda-meta
|
|
lambda?
|
|
make-dynlet
|
|
make-letrec
|
|
make-let
|
|
make-lambda-case
|
|
make-lambda
|
|
make-sequence
|
|
make-application
|
|
make-conditional
|
|
make-toplevel-define
|
|
make-toplevel-set
|
|
make-toplevel-ref
|
|
make-module-set
|
|
make-module-ref
|
|
make-lexical-set
|
|
make-lexical-ref
|
|
make-primitive-ref
|
|
make-const
|
|
make-void)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("l-*-2527"
|
|
"l-*-2525"
|
|
"l-*-2523"
|
|
"l-*-2521"
|
|
"l-*-2519"
|
|
"l-*-2517"
|
|
"l-*-2515"
|
|
"l-*-2513"
|
|
"l-*-2511"
|
|
"l-*-2509"
|
|
"l-*-2507"
|
|
"l-*-2505"
|
|
"l-*-2503"
|
|
"l-*-2501"
|
|
"l-*-2499"
|
|
"l-*-2497"
|
|
"l-*-2495"
|
|
"l-*-2493"
|
|
"l-*-2491"
|
|
"l-*-2489"
|
|
"l-*-2487"
|
|
"l-*-2485"
|
|
"l-*-2483"
|
|
"l-*-2481"
|
|
"l-*-2479"
|
|
"l-*-2477"
|
|
"l-*-2475"
|
|
"l-*-2473"
|
|
"l-*-2471"
|
|
"l-*-2469"
|
|
"l-*-2467"
|
|
"l-*-2465"
|
|
"l-*-2463"
|
|
"l-*-2461"
|
|
"l-*-2459"
|
|
"l-*-2457"
|
|
"l-*-2455"
|
|
"l-*-2453"
|
|
"l-*-2451"
|
|
"l-*-2450"
|
|
"l-*-2448"
|
|
"l-*-2445"
|
|
"l-*-2444"
|
|
"l-*-2443"
|
|
"l-*-2441"
|
|
"l-*-2440"
|
|
"l-*-2438"
|
|
"l-*-2436"
|
|
"l-*-2434"
|
|
"l-*-2432"
|
|
"l-*-2430"
|
|
"l-*-2428"
|
|
"l-*-2426"
|
|
"l-*-2424"
|
|
"l-*-2421"
|
|
"l-*-2419"
|
|
"l-*-2418"
|
|
"l-*-2416"
|
|
"l-*-2414"
|
|
"l-*-2412"
|
|
"l-*-2410"
|
|
"l-*-2409"
|
|
"l-*-2408"
|
|
"l-*-2407"
|
|
"l-*-2405"
|
|
"l-*-2404"
|
|
"l-*-2401"
|
|
"l-*-2399"
|
|
"l-*-2397"
|
|
"l-*-2395"
|
|
"l-*-2393"
|
|
"l-*-2391"
|
|
"l-*-2389"
|
|
"l-*-2388"
|
|
"l-*-2387"
|
|
"l-*-2385"
|
|
"l-*-2383"
|
|
"l-*-2382"
|
|
"l-*-2379"
|
|
"l-*-2378"
|
|
"l-*-2376"
|
|
"l-*-2374"
|
|
"l-*-2372"
|
|
"l-*-2370"
|
|
"l-*-2368"
|
|
"l-*-2366"
|
|
"l-*-2364"
|
|
"l-*-2362"
|
|
"l-*-2360"
|
|
"l-*-2357"
|
|
"l-*-2355"
|
|
"l-*-2353"
|
|
"l-*-2351"
|
|
"l-*-2349"
|
|
"l-*-2347"
|
|
"l-*-2345"
|
|
"l-*-2343"
|
|
"l-*-2341"
|
|
"l-*-2339"
|
|
"l-*-2337"
|
|
"l-*-2335"
|
|
"l-*-2333"
|
|
"l-*-2331"
|
|
"l-*-2329"
|
|
"l-*-2327"
|
|
"l-*-2325"
|
|
"l-*-2323"
|
|
"l-*-2321"
|
|
"l-*-2319"
|
|
"l-*-2317"
|
|
"l-*-2315"
|
|
"l-*-2313"
|
|
"l-*-2311"
|
|
"l-*-2309"
|
|
"l-*-2307"
|
|
"l-*-2306"
|
|
"l-*-2305"
|
|
"l-*-2304"
|
|
"l-*-2303"
|
|
"l-*-2301"
|
|
"l-*-2299"
|
|
"l-*-2297"
|
|
"l-*-2294"
|
|
"l-*-2292"
|
|
"l-*-2290"
|
|
"l-*-2288"
|
|
"l-*-2286"
|
|
"l-*-2284"
|
|
"l-*-2282"
|
|
"l-*-2280"
|
|
"l-*-2278"
|
|
"l-*-2276"
|
|
"l-*-2274"
|
|
"l-*-2272"
|
|
"l-*-2270"
|
|
"l-*-2268"
|
|
"l-*-2266"
|
|
"l-*-2264"
|
|
"l-*-2262"
|
|
"l-*-2260"))
|
|
#(ribcage
|
|
(define-structure
|
|
define-expansion-accessors
|
|
define-expansion-constructors)
|
|
((top) (top) (top))
|
|
("l-*-2098"
|
|
"l-*-2097"
|
|
"l-*-2096")))
|
|
(hygiene guile))))
|
|
(eq? (id-var-name-6568 x-13265 '(()))
|
|
(id-var-name-6568
|
|
'#(syntax-object
|
|
...
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("l-*-4404"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
expand-lambda-case
|
|
lambda*-formals
|
|
expand-simple-lambda
|
|
lambda-formals
|
|
ellipsis?
|
|
expand-void
|
|
eval-local-transformer
|
|
expand-local-syntax
|
|
expand-body
|
|
expand-macro
|
|
expand-application
|
|
expand-expr
|
|
expand
|
|
syntax-type
|
|
parse-when-list
|
|
expand-install-global
|
|
expand-top-sequence
|
|
expand-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
with-transformer-environment
|
|
transformer-environment
|
|
resolve-identifier
|
|
locally-bound-identifiers
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
set-syntax-object-module!
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-module
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda-case
|
|
build-case-lambda
|
|
build-simple-lambda
|
|
build-global-definition
|
|
build-global-assignment
|
|
build-global-reference
|
|
analyze-variable
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-dynlet
|
|
build-conditional
|
|
build-application
|
|
build-void
|
|
maybe-name-value!
|
|
decorate-source
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
session-id
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
set-lambda-meta!
|
|
lambda-meta
|
|
lambda?
|
|
make-dynlet
|
|
make-letrec
|
|
make-let
|
|
make-lambda-case
|
|
make-lambda
|
|
make-sequence
|
|
make-application
|
|
make-conditional
|
|
make-toplevel-define
|
|
make-toplevel-set
|
|
make-toplevel-ref
|
|
make-module-set
|
|
make-module-ref
|
|
make-lexical-set
|
|
make-lexical-ref
|
|
make-primitive-ref
|
|
make-const
|
|
make-void)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("l-*-2527"
|
|
"l-*-2525"
|
|
"l-*-2523"
|
|
"l-*-2521"
|
|
"l-*-2519"
|
|
"l-*-2517"
|
|
"l-*-2515"
|
|
"l-*-2513"
|
|
"l-*-2511"
|
|
"l-*-2509"
|
|
"l-*-2507"
|
|
"l-*-2505"
|
|
"l-*-2503"
|
|
"l-*-2501"
|
|
"l-*-2499"
|
|
"l-*-2497"
|
|
"l-*-2495"
|
|
"l-*-2493"
|
|
"l-*-2491"
|
|
"l-*-2489"
|
|
"l-*-2487"
|
|
"l-*-2485"
|
|
"l-*-2483"
|
|
"l-*-2481"
|
|
"l-*-2479"
|
|
"l-*-2477"
|
|
"l-*-2475"
|
|
"l-*-2473"
|
|
"l-*-2471"
|
|
"l-*-2469"
|
|
"l-*-2467"
|
|
"l-*-2465"
|
|
"l-*-2463"
|
|
"l-*-2461"
|
|
"l-*-2459"
|
|
"l-*-2457"
|
|
"l-*-2455"
|
|
"l-*-2453"
|
|
"l-*-2451"
|
|
"l-*-2450"
|
|
"l-*-2448"
|
|
"l-*-2445"
|
|
"l-*-2444"
|
|
"l-*-2443"
|
|
"l-*-2441"
|
|
"l-*-2440"
|
|
"l-*-2438"
|
|
"l-*-2436"
|
|
"l-*-2434"
|
|
"l-*-2432"
|
|
"l-*-2430"
|
|
"l-*-2428"
|
|
"l-*-2426"
|
|
"l-*-2424"
|
|
"l-*-2421"
|
|
"l-*-2419"
|
|
"l-*-2418"
|
|
"l-*-2416"
|
|
"l-*-2414"
|
|
"l-*-2412"
|
|
"l-*-2410"
|
|
"l-*-2409"
|
|
"l-*-2408"
|
|
"l-*-2407"
|
|
"l-*-2405"
|
|
"l-*-2404"
|
|
"l-*-2401"
|
|
"l-*-2399"
|
|
"l-*-2397"
|
|
"l-*-2395"
|
|
"l-*-2393"
|
|
"l-*-2391"
|
|
"l-*-2389"
|
|
"l-*-2388"
|
|
"l-*-2387"
|
|
"l-*-2385"
|
|
"l-*-2383"
|
|
"l-*-2382"
|
|
"l-*-2379"
|
|
"l-*-2378"
|
|
"l-*-2376"
|
|
"l-*-2374"
|
|
"l-*-2372"
|
|
"l-*-2370"
|
|
"l-*-2368"
|
|
"l-*-2366"
|
|
"l-*-2364"
|
|
"l-*-2362"
|
|
"l-*-2360"
|
|
"l-*-2357"
|
|
"l-*-2355"
|
|
"l-*-2353"
|
|
"l-*-2351"
|
|
"l-*-2349"
|
|
"l-*-2347"
|
|
"l-*-2345"
|
|
"l-*-2343"
|
|
"l-*-2341"
|
|
"l-*-2339"
|
|
"l-*-2337"
|
|
"l-*-2335"
|
|
"l-*-2333"
|
|
"l-*-2331"
|
|
"l-*-2329"
|
|
"l-*-2327"
|
|
"l-*-2325"
|
|
"l-*-2323"
|
|
"l-*-2321"
|
|
"l-*-2319"
|
|
"l-*-2317"
|
|
"l-*-2315"
|
|
"l-*-2313"
|
|
"l-*-2311"
|
|
"l-*-2309"
|
|
"l-*-2307"
|
|
"l-*-2306"
|
|
"l-*-2305"
|
|
"l-*-2304"
|
|
"l-*-2303"
|
|
"l-*-2301"
|
|
"l-*-2299"
|
|
"l-*-2297"
|
|
"l-*-2294"
|
|
"l-*-2292"
|
|
"l-*-2290"
|
|
"l-*-2288"
|
|
"l-*-2286"
|
|
"l-*-2284"
|
|
"l-*-2282"
|
|
"l-*-2280"
|
|
"l-*-2278"
|
|
"l-*-2276"
|
|
"l-*-2274"
|
|
"l-*-2272"
|
|
"l-*-2270"
|
|
"l-*-2268"
|
|
"l-*-2266"
|
|
"l-*-2264"
|
|
"l-*-2262"
|
|
"l-*-2260"))
|
|
#(ribcage
|
|
(define-structure
|
|
define-expansion-accessors
|
|
define-expansion-constructors)
|
|
((top) (top) (top))
|
|
("l-*-2098"
|
|
"l-*-2097"
|
|
"l-*-2096")))
|
|
(hygiene guile))
|
|
'(())))
|
|
#f)
|
|
#f))
|
|
#f))
|
|
key-13263)
|
|
(let ((x-13391
|
|
(gensym
|
|
(string-append (symbol->string 'tmp) "-"))))
|
|
(build-application-6516
|
|
s-13233
|
|
(let ((req-13521 (list 'tmp))
|
|
(vars-13523 (list x-13391))
|
|
(exp-13525
|
|
(gen-syntax-case-13229
|
|
(make-struct/no-tail
|
|
(vector-ref %expanded-vtables 3)
|
|
#f
|
|
'tmp
|
|
x-13391)
|
|
key-13263
|
|
m-13264
|
|
r-13231
|
|
mod-13234)))
|
|
(let ((body-13530
|
|
(make-struct/no-tail
|
|
(vector-ref %expanded-vtables 14)
|
|
#f
|
|
req-13521
|
|
#f
|
|
#f
|
|
#f
|
|
'()
|
|
vars-13523
|
|
exp-13525
|
|
#f)))
|
|
(make-struct/no-tail
|
|
(vector-ref %expanded-vtables 13)
|
|
#f
|
|
'()
|
|
body-13530)))
|
|
(list (expand-6585
|
|
val-13262
|
|
r-13231
|
|
'(())
|
|
mod-13234))))
|
|
(syntax-violation
|
|
'syntax-case
|
|
"invalid literals list"
|
|
e-13235)))
|
|
tmp-13237)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
e-13235)))))))
|
|
(set! macroexpand
|
|
(lambda*
|
|
(x-15948
|
|
#:optional
|
|
(m-15949 'e)
|
|
(esew-15950 '(eval)))
|
|
(expand-top-sequence-6581
|
|
(list x-15948)
|
|
'()
|
|
'((top))
|
|
#f
|
|
m-15949
|
|
esew-15950
|
|
(cons 'hygiene (module-name (current-module))))))
|
|
(set! identifier?
|
|
(lambda (x-15953)
|
|
(if (if (vector? x-15953)
|
|
(if (= (vector-length x-15953) 4)
|
|
(eq? (vector-ref x-15953 0) 'syntax-object)
|
|
#f)
|
|
#f)
|
|
(symbol? (vector-ref x-15953 1))
|
|
#f)))
|
|
(set! datum->syntax
|
|
(lambda (id-15978 datum-15979)
|
|
(let ((wrap-15984 (vector-ref id-15978 2))
|
|
(module-15985 (vector-ref id-15978 3)))
|
|
(vector
|
|
'syntax-object
|
|
datum-15979
|
|
wrap-15984
|
|
module-15985))))
|
|
(set! syntax->datum
|
|
(lambda (x-15992) (strip-6598 x-15992 '(()))))
|
|
(set! syntax-source
|
|
(lambda (x-15995)
|
|
(source-annotation-6542 x-15995)))
|
|
(set! generate-temporaries
|
|
(lambda (ls-16148)
|
|
(begin
|
|
(if (not (list? ls-16148))
|
|
(syntax-violation
|
|
'generate-temporaries
|
|
"invalid argument"
|
|
ls-16148))
|
|
(let ((mod-16156
|
|
(cons 'hygiene (module-name (current-module)))))
|
|
(map (lambda (x-16157)
|
|
(wrap-6578 (gensym "t-") '((top)) mod-16156))
|
|
ls-16148)))))
|
|
(set! free-identifier=?
|
|
(lambda (x-16161 y-16162)
|
|
(begin
|
|
(if (not (if (if (vector? x-16161)
|
|
(if (= (vector-length x-16161) 4)
|
|
(eq? (vector-ref x-16161 0) 'syntax-object)
|
|
#f)
|
|
#f)
|
|
(symbol? (vector-ref x-16161 1))
|
|
#f))
|
|
(syntax-violation
|
|
'free-identifier=?
|
|
"invalid argument"
|
|
x-16161))
|
|
(if (not (if (if (vector? y-16162)
|
|
(if (= (vector-length y-16162) 4)
|
|
(eq? (vector-ref y-16162 0) 'syntax-object)
|
|
#f)
|
|
#f)
|
|
(symbol? (vector-ref y-16162 1))
|
|
#f))
|
|
(syntax-violation
|
|
'free-identifier=?
|
|
"invalid argument"
|
|
y-16162))
|
|
(if (eq? (if (if (vector? x-16161)
|
|
(if (= (vector-length x-16161) 4)
|
|
(eq? (vector-ref x-16161 0) 'syntax-object)
|
|
#f)
|
|
#f)
|
|
(vector-ref x-16161 1)
|
|
x-16161)
|
|
(if (if (vector? y-16162)
|
|
(if (= (vector-length y-16162) 4)
|
|
(eq? (vector-ref y-16162 0) 'syntax-object)
|
|
#f)
|
|
#f)
|
|
(vector-ref y-16162 1)
|
|
y-16162))
|
|
(eq? (id-var-name-6568 x-16161 '(()))
|
|
(id-var-name-6568 y-16162 '(())))
|
|
#f))))
|
|
(set! bound-identifier=?
|
|
(lambda (x-16312 y-16313)
|
|
(begin
|
|
(if (not (if (if (vector? x-16312)
|
|
(if (= (vector-length x-16312) 4)
|
|
(eq? (vector-ref x-16312 0) 'syntax-object)
|
|
#f)
|
|
#f)
|
|
(symbol? (vector-ref x-16312 1))
|
|
#f))
|
|
(syntax-violation
|
|
'bound-identifier=?
|
|
"invalid argument"
|
|
x-16312))
|
|
(if (not (if (if (vector? y-16313)
|
|
(if (= (vector-length y-16313) 4)
|
|
(eq? (vector-ref y-16313 0) 'syntax-object)
|
|
#f)
|
|
#f)
|
|
(symbol? (vector-ref y-16313 1))
|
|
#f))
|
|
(syntax-violation
|
|
'bound-identifier=?
|
|
"invalid argument"
|
|
y-16313))
|
|
(if (if (if (vector? x-16312)
|
|
(if (= (vector-length x-16312) 4)
|
|
(eq? (vector-ref x-16312 0) 'syntax-object)
|
|
#f)
|
|
#f)
|
|
(if (vector? y-16313)
|
|
(if (= (vector-length y-16313) 4)
|
|
(eq? (vector-ref y-16313 0) 'syntax-object)
|
|
#f)
|
|
#f)
|
|
#f)
|
|
(if (eq? (vector-ref x-16312 1)
|
|
(vector-ref y-16313 1))
|
|
(same-marks?-6567
|
|
(car (vector-ref x-16312 2))
|
|
(car (vector-ref y-16313 2)))
|
|
#f)
|
|
(eq? x-16312 y-16313)))))
|
|
(set! syntax-violation
|
|
(lambda*
|
|
(who-16446
|
|
message-16447
|
|
form-16448
|
|
#:optional
|
|
(subform-16449 #f))
|
|
(begin
|
|
(if (not (if (not who-16446)
|
|
(not who-16446)
|
|
(let ((t-16467 (string? who-16446)))
|
|
(if t-16467 t-16467 (symbol? who-16446)))))
|
|
(syntax-violation
|
|
'syntax-violation
|
|
"invalid argument"
|
|
who-16446))
|
|
(if (not (string? message-16447))
|
|
(syntax-violation
|
|
'syntax-violation
|
|
"invalid argument"
|
|
message-16447))
|
|
(throw 'syntax-error
|
|
who-16446
|
|
message-16447
|
|
(source-annotation-6542
|
|
(if form-16448 form-16448 subform-16449))
|
|
(strip-6598 form-16448 '(()))
|
|
(if subform-16449
|
|
(strip-6598 subform-16449 '(()))
|
|
#f)))))
|
|
(letrec*
|
|
((syntax-local-binding-16671
|
|
(lambda (id-16804)
|
|
(begin
|
|
(if (not (if (if (vector? id-16804)
|
|
(if (= (vector-length id-16804) 4)
|
|
(eq? (vector-ref id-16804 0) 'syntax-object)
|
|
#f)
|
|
#f)
|
|
(symbol? (vector-ref id-16804 1))
|
|
#f))
|
|
(syntax-violation
|
|
'syntax-local-binding
|
|
"invalid argument"
|
|
id-16804))
|
|
((fluid-ref transformer-environment-6571)
|
|
(lambda (e-16844
|
|
r-16845
|
|
w-16846
|
|
s-16847
|
|
rib-16848
|
|
mod-16849)
|
|
(call-with-values
|
|
(lambda ()
|
|
(let ((id-16852 (vector-ref id-16804 1))
|
|
(w-16853
|
|
(let ((w-16864 (vector-ref id-16804 2)))
|
|
(let ((ms-16865 (car w-16864))
|
|
(s-16866 (cdr w-16864)))
|
|
(if (if (pair? ms-16865)
|
|
(eq? (car ms-16865) #f)
|
|
#f)
|
|
(cons (cdr ms-16865)
|
|
(if rib-16848
|
|
(cons rib-16848 (cdr s-16866))
|
|
(cdr s-16866)))
|
|
(cons ms-16865
|
|
(if rib-16848
|
|
(cons rib-16848 s-16866)
|
|
s-16866))))))
|
|
(mod-16855 (vector-ref id-16804 3)))
|
|
(let ((n-16858 (id-var-name-6568 id-16852 w-16853)))
|
|
(if (symbol? n-16858)
|
|
(let ((mod-16872
|
|
(if (if (vector? id-16852)
|
|
(if (= (vector-length id-16852) 4)
|
|
(eq? (vector-ref id-16852 0)
|
|
'syntax-object)
|
|
#f)
|
|
#f)
|
|
(vector-ref id-16852 3)
|
|
mod-16855)))
|
|
(let ((b-16873
|
|
(let ((t-16874
|
|
(get-global-definition-hook-6512
|
|
n-16858
|
|
mod-16872)))
|
|
(if t-16874 t-16874 '(global)))))
|
|
(if (eq? (car b-16873) 'global)
|
|
(values 'global n-16858 mod-16872)
|
|
(values
|
|
(car b-16873)
|
|
(cdr b-16873)
|
|
mod-16872))))
|
|
(if (string? n-16858)
|
|
(let ((mod-16900
|
|
(if (if (vector? id-16852)
|
|
(if (= (vector-length id-16852) 4)
|
|
(eq? (vector-ref id-16852 0)
|
|
'syntax-object)
|
|
#f)
|
|
#f)
|
|
(vector-ref id-16852 3)
|
|
mod-16855)))
|
|
(let ((b-16901
|
|
(let ((t-16902
|
|
(assq-ref r-16845 n-16858)))
|
|
(if t-16902
|
|
t-16902
|
|
'(displaced-lexical)))))
|
|
(values
|
|
(car b-16901)
|
|
(cdr b-16901)
|
|
mod-16900)))
|
|
(error "unexpected id-var-name"
|
|
id-16852
|
|
w-16853
|
|
n-16858))))))
|
|
(lambda (type-16915 value-16916 mod-16917)
|
|
(if (eqv? type-16915 'lexical)
|
|
(values 'lexical value-16916)
|
|
(if (eqv? type-16915 'macro)
|
|
(values 'macro value-16916)
|
|
(if (eqv? type-16915 'syntax)
|
|
(values 'pattern-variable value-16916)
|
|
(if (eqv? type-16915 'displaced-lexical)
|
|
(values 'displaced-lexical #f)
|
|
(if (eqv? type-16915 'global)
|
|
(values
|
|
'global
|
|
(cons value-16916 (cdr mod-16917)))
|
|
(values 'other #f)))))))))))))
|
|
(syntax-locally-bound-identifiers-16672
|
|
(lambda (id-16928)
|
|
(begin
|
|
(if (not (if (if (vector? id-16928)
|
|
(if (= (vector-length id-16928) 4)
|
|
(eq? (vector-ref id-16928 0) 'syntax-object)
|
|
#f)
|
|
#f)
|
|
(symbol? (vector-ref id-16928 1))
|
|
#f))
|
|
(syntax-violation
|
|
'syntax-locally-bound-identifiers
|
|
"invalid argument"
|
|
id-16928))
|
|
(locally-bound-identifiers-6569
|
|
(vector-ref id-16928 2)
|
|
(vector-ref id-16928 3))))))
|
|
(begin
|
|
(define!
|
|
'syntax-module
|
|
(lambda (id-16674)
|
|
(begin
|
|
(if (not (if (if (vector? id-16674)
|
|
(if (= (vector-length id-16674) 4)
|
|
(eq? (vector-ref id-16674 0) 'syntax-object)
|
|
#f)
|
|
#f)
|
|
(symbol? (vector-ref id-16674 1))
|
|
#f))
|
|
(syntax-violation
|
|
'syntax-module
|
|
"invalid argument"
|
|
id-16674))
|
|
(cdr (vector-ref id-16674 3)))))
|
|
(define!
|
|
'syntax-local-binding
|
|
syntax-local-binding-16671)
|
|
(define!
|
|
'syntax-locally-bound-identifiers
|
|
syntax-locally-bound-identifiers-16672)))
|
|
(letrec*
|
|
((match-each-17035
|
|
(lambda (e-17622 p-17623 w-17624 mod-17625)
|
|
(if (pair? e-17622)
|
|
(let ((first-17626
|
|
(match-17041
|
|
(car e-17622)
|
|
p-17623
|
|
w-17624
|
|
'()
|
|
mod-17625)))
|
|
(if first-17626
|
|
(let ((rest-17629
|
|
(match-each-17035
|
|
(cdr e-17622)
|
|
p-17623
|
|
w-17624
|
|
mod-17625)))
|
|
(if rest-17629 (cons first-17626 rest-17629) #f))
|
|
#f))
|
|
(if (null? e-17622)
|
|
'()
|
|
(if (if (vector? e-17622)
|
|
(if (= (vector-length e-17622) 4)
|
|
(eq? (vector-ref e-17622 0) 'syntax-object)
|
|
#f)
|
|
#f)
|
|
(match-each-17035
|
|
(vector-ref e-17622 1)
|
|
p-17623
|
|
(join-wraps-6565 w-17624 (vector-ref e-17622 2))
|
|
(vector-ref e-17622 3))
|
|
#f)))))
|
|
(match-each-any-17037
|
|
(lambda (e-17657 w-17658 mod-17659)
|
|
(if (pair? e-17657)
|
|
(let ((l-17660
|
|
(match-each-any-17037
|
|
(cdr e-17657)
|
|
w-17658
|
|
mod-17659)))
|
|
(if l-17660
|
|
(cons (wrap-6578 (car e-17657) w-17658 mod-17659)
|
|
l-17660)
|
|
#f))
|
|
(if (null? e-17657)
|
|
'()
|
|
(if (if (vector? e-17657)
|
|
(if (= (vector-length e-17657) 4)
|
|
(eq? (vector-ref e-17657 0) 'syntax-object)
|
|
#f)
|
|
#f)
|
|
(match-each-any-17037
|
|
(vector-ref e-17657 1)
|
|
(join-wraps-6565 w-17658 (vector-ref e-17657 2))
|
|
mod-17659)
|
|
#f)))))
|
|
(match-empty-17038
|
|
(lambda (p-17684 r-17685)
|
|
(if (null? p-17684)
|
|
r-17685
|
|
(if (eq? p-17684 '_)
|
|
r-17685
|
|
(if (eq? p-17684 'any)
|
|
(cons '() r-17685)
|
|
(if (pair? p-17684)
|
|
(match-empty-17038
|
|
(car p-17684)
|
|
(match-empty-17038 (cdr p-17684) r-17685))
|
|
(if (eq? p-17684 'each-any)
|
|
(cons '() r-17685)
|
|
(let ((atom-key-17686 (vector-ref p-17684 0)))
|
|
(if (eqv? atom-key-17686 'each)
|
|
(match-empty-17038
|
|
(vector-ref p-17684 1)
|
|
r-17685)
|
|
(if (eqv? atom-key-17686 'each+)
|
|
(match-empty-17038
|
|
(vector-ref p-17684 1)
|
|
(match-empty-17038
|
|
(reverse (vector-ref p-17684 2))
|
|
(match-empty-17038
|
|
(vector-ref p-17684 3)
|
|
r-17685)))
|
|
(if (if (eqv? atom-key-17686 'free-id)
|
|
#t
|
|
(eqv? atom-key-17686 'atom))
|
|
r-17685
|
|
(if (eqv? atom-key-17686 'vector)
|
|
(match-empty-17038
|
|
(vector-ref p-17684 1)
|
|
r-17685)))))))))))))
|
|
(combine-17039
|
|
(lambda (r*-17705 r-17706)
|
|
(if (null? (car r*-17705))
|
|
r-17706
|
|
(cons (map car r*-17705)
|
|
(combine-17039 (map cdr r*-17705) r-17706)))))
|
|
(match*-17040
|
|
(lambda (e-17070 p-17071 w-17072 r-17073 mod-17074)
|
|
(if (null? p-17071)
|
|
(if (null? e-17070) r-17073 #f)
|
|
(if (pair? p-17071)
|
|
(if (pair? e-17070)
|
|
(match-17041
|
|
(car e-17070)
|
|
(car p-17071)
|
|
w-17072
|
|
(match-17041
|
|
(cdr e-17070)
|
|
(cdr p-17071)
|
|
w-17072
|
|
r-17073
|
|
mod-17074)
|
|
mod-17074)
|
|
#f)
|
|
(if (eq? p-17071 'each-any)
|
|
(let ((l-17079
|
|
(match-each-any-17037 e-17070 w-17072 mod-17074)))
|
|
(if l-17079 (cons l-17079 r-17073) #f))
|
|
(let ((atom-key-17084 (vector-ref p-17071 0)))
|
|
(if (eqv? atom-key-17084 'each)
|
|
(if (null? e-17070)
|
|
(match-empty-17038
|
|
(vector-ref p-17071 1)
|
|
r-17073)
|
|
(let ((l-17091
|
|
(match-each-17035
|
|
e-17070
|
|
(vector-ref p-17071 1)
|
|
w-17072
|
|
mod-17074)))
|
|
(if l-17091
|
|
(letrec*
|
|
((collect-17094
|
|
(lambda (l-17145)
|
|
(if (null? (car l-17145))
|
|
r-17073
|
|
(cons (map car l-17145)
|
|
(collect-17094
|
|
(map cdr l-17145)))))))
|
|
(collect-17094 l-17091))
|
|
#f)))
|
|
(if (eqv? atom-key-17084 'each+)
|
|
(call-with-values
|
|
(lambda ()
|
|
(let ((x-pat-17154 (vector-ref p-17071 1))
|
|
(y-pat-17155 (vector-ref p-17071 2))
|
|
(z-pat-17156 (vector-ref p-17071 3)))
|
|
(letrec*
|
|
((f-17160
|
|
(lambda (e-17162 w-17163)
|
|
(if (pair? e-17162)
|
|
(call-with-values
|
|
(lambda ()
|
|
(f-17160 (cdr e-17162) w-17163))
|
|
(lambda (xr*-17164
|
|
y-pat-17165
|
|
r-17166)
|
|
(if r-17166
|
|
(if (null? y-pat-17165)
|
|
(let ((xr-17167
|
|
(match-17041
|
|
(car e-17162)
|
|
x-pat-17154
|
|
w-17163
|
|
'()
|
|
mod-17074)))
|
|
(if xr-17167
|
|
(values
|
|
(cons xr-17167 xr*-17164)
|
|
y-pat-17165
|
|
r-17166)
|
|
(values #f #f #f)))
|
|
(values
|
|
'()
|
|
(cdr y-pat-17165)
|
|
(match-17041
|
|
(car e-17162)
|
|
(car y-pat-17165)
|
|
w-17163
|
|
r-17166
|
|
mod-17074)))
|
|
(values #f #f #f))))
|
|
(if (if (vector? e-17162)
|
|
(if (= (vector-length e-17162) 4)
|
|
(eq? (vector-ref e-17162 0)
|
|
'syntax-object)
|
|
#f)
|
|
#f)
|
|
(f-17160
|
|
(vector-ref e-17162 1)
|
|
(join-wraps-6565 w-17163 e-17162))
|
|
(values
|
|
'()
|
|
y-pat-17155
|
|
(match-17041
|
|
e-17162
|
|
z-pat-17156
|
|
w-17163
|
|
r-17073
|
|
mod-17074)))))))
|
|
(f-17160 e-17070 w-17072))))
|
|
(lambda (xr*-17193 y-pat-17194 r-17195)
|
|
(if r-17195
|
|
(if (null? y-pat-17194)
|
|
(if (null? xr*-17193)
|
|
(match-empty-17038
|
|
(vector-ref p-17071 1)
|
|
r-17195)
|
|
(combine-17039 xr*-17193 r-17195))
|
|
#f)
|
|
#f)))
|
|
(if (eqv? atom-key-17084 'free-id)
|
|
(if (if (symbol? e-17070)
|
|
#t
|
|
(if (if (vector? e-17070)
|
|
(if (= (vector-length e-17070) 4)
|
|
(eq? (vector-ref e-17070 0)
|
|
'syntax-object)
|
|
#f)
|
|
#f)
|
|
(symbol? (vector-ref e-17070 1))
|
|
#f))
|
|
(if (let ((i-17526
|
|
(wrap-6578 e-17070 w-17072 mod-17074))
|
|
(j-17527 (vector-ref p-17071 1)))
|
|
(if (eq? (if (if (vector? i-17526)
|
|
(if (= (vector-length
|
|
i-17526)
|
|
4)
|
|
(eq? (vector-ref i-17526 0)
|
|
'syntax-object)
|
|
#f)
|
|
#f)
|
|
(vector-ref i-17526 1)
|
|
i-17526)
|
|
(if (if (vector? j-17527)
|
|
(if (= (vector-length
|
|
j-17527)
|
|
4)
|
|
(eq? (vector-ref j-17527 0)
|
|
'syntax-object)
|
|
#f)
|
|
#f)
|
|
(vector-ref j-17527 1)
|
|
j-17527))
|
|
(eq? (id-var-name-6568 i-17526 '(()))
|
|
(id-var-name-6568 j-17527 '(())))
|
|
#f))
|
|
r-17073
|
|
#f)
|
|
#f)
|
|
(if (eqv? atom-key-17084 'atom)
|
|
(if (equal?
|
|
(vector-ref p-17071 1)
|
|
(strip-6598 e-17070 w-17072))
|
|
r-17073
|
|
#f)
|
|
(if (eqv? atom-key-17084 'vector)
|
|
(if (vector? e-17070)
|
|
(match-17041
|
|
(vector->list e-17070)
|
|
(vector-ref p-17071 1)
|
|
w-17072
|
|
r-17073
|
|
mod-17074)
|
|
#f))))))))))))
|
|
(match-17041
|
|
(lambda (e-17587 p-17588 w-17589 r-17590 mod-17591)
|
|
(if (not r-17590)
|
|
#f
|
|
(if (eq? p-17588 '_)
|
|
r-17590
|
|
(if (eq? p-17588 'any)
|
|
(cons (wrap-6578 e-17587 w-17589 mod-17591)
|
|
r-17590)
|
|
(if (if (vector? e-17587)
|
|
(if (= (vector-length e-17587) 4)
|
|
(eq? (vector-ref e-17587 0) 'syntax-object)
|
|
#f)
|
|
#f)
|
|
(match*-17040
|
|
(vector-ref e-17587 1)
|
|
p-17588
|
|
(join-wraps-6565 w-17589 (vector-ref e-17587 2))
|
|
r-17590
|
|
(vector-ref e-17587 3))
|
|
(match*-17040
|
|
e-17587
|
|
p-17588
|
|
w-17589
|
|
r-17590
|
|
mod-17591))))))))
|
|
(set! $sc-dispatch
|
|
(lambda (e-17042 p-17043)
|
|
(if (eq? p-17043 'any)
|
|
(list e-17042)
|
|
(if (eq? p-17043 '_)
|
|
'()
|
|
(if (if (vector? e-17042)
|
|
(if (= (vector-length e-17042) 4)
|
|
(eq? (vector-ref e-17042 0) 'syntax-object)
|
|
#f)
|
|
#f)
|
|
(match*-17040
|
|
(vector-ref e-17042 1)
|
|
p-17043
|
|
(vector-ref e-17042 2)
|
|
'()
|
|
(vector-ref e-17042 3))
|
|
(match*-17040 e-17042 p-17043 '(()) '() #f))))))))))
|
|
|
|
(define with-syntax
|
|
(make-syntax-transformer
|
|
'with-syntax
|
|
'macro
|
|
(lambda (x-29889)
|
|
(let ((tmp-29891
|
|
($sc-dispatch x-29889 '(_ () any . each-any))))
|
|
(if tmp-29891
|
|
(@apply
|
|
(lambda (e1-29895 e2-29896)
|
|
(cons '#(syntax-object
|
|
let
|
|
((top)
|
|
#(ribcage
|
|
#(e1 e2)
|
|
#((top) (top))
|
|
#("l-*-29862" "l-*-29863"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("l-*-29859")))
|
|
(hygiene guile))
|
|
(cons '() (cons e1-29895 e2-29896))))
|
|
tmp-29891)
|
|
(let ((tmp-29897
|
|
($sc-dispatch
|
|
x-29889
|
|
'(_ ((any any)) any . each-any))))
|
|
(if tmp-29897
|
|
(@apply
|
|
(lambda (out-29901 in-29902 e1-29903 e2-29904)
|
|
(list '#(syntax-object
|
|
syntax-case
|
|
((top)
|
|
#(ribcage
|
|
#(out in e1 e2)
|
|
#((top) (top) (top) (top))
|
|
#("l-*-29868"
|
|
"l-*-29869"
|
|
"l-*-29870"
|
|
"l-*-29871"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("l-*-29859")))
|
|
(hygiene guile))
|
|
in-29902
|
|
'()
|
|
(list out-29901
|
|
(cons '#(syntax-object
|
|
let
|
|
((top)
|
|
#(ribcage
|
|
#(out in e1 e2)
|
|
#((top) (top) (top) (top))
|
|
#("l-*-29868"
|
|
"l-*-29869"
|
|
"l-*-29870"
|
|
"l-*-29871"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("l-*-29859")))
|
|
(hygiene guile))
|
|
(cons '() (cons e1-29903 e2-29904))))))
|
|
tmp-29897)
|
|
(let ((tmp-29905
|
|
($sc-dispatch
|
|
x-29889
|
|
'(_ #(each (any any)) any . each-any))))
|
|
(if tmp-29905
|
|
(@apply
|
|
(lambda (out-29909 in-29910 e1-29911 e2-29912)
|
|
(list '#(syntax-object
|
|
syntax-case
|
|
((top)
|
|
#(ribcage
|
|
#(out in e1 e2)
|
|
#((top) (top) (top) (top))
|
|
#("l-*-29878"
|
|
"l-*-29879"
|
|
"l-*-29880"
|
|
"l-*-29881"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("l-*-29859")))
|
|
(hygiene guile))
|
|
(cons '#(syntax-object
|
|
list
|
|
((top)
|
|
#(ribcage
|
|
#(out in e1 e2)
|
|
#((top) (top) (top) (top))
|
|
#("l-*-29878"
|
|
"l-*-29879"
|
|
"l-*-29880"
|
|
"l-*-29881"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("l-*-29859")))
|
|
(hygiene guile))
|
|
in-29910)
|
|
'()
|
|
(list out-29909
|
|
(cons '#(syntax-object
|
|
let
|
|
((top)
|
|
#(ribcage
|
|
#(out in e1 e2)
|
|
#((top) (top) (top) (top))
|
|
#("l-*-29878"
|
|
"l-*-29879"
|
|
"l-*-29880"
|
|
"l-*-29881"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("l-*-29859")))
|
|
(hygiene guile))
|
|
(cons '() (cons e1-29911 e2-29912))))))
|
|
tmp-29905)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
x-29889))))))))))
|
|
|
|
(define syntax-rules
|
|
(make-syntax-transformer
|
|
'syntax-rules
|
|
'macro
|
|
(lambda (x-29966)
|
|
(let ((tmp-29968
|
|
($sc-dispatch
|
|
x-29966
|
|
'(_ each-any . #(each ((any . any) any))))))
|
|
(if tmp-29968
|
|
(@apply
|
|
(lambda (k-29972
|
|
keyword-29973
|
|
pattern-29974
|
|
template-29975)
|
|
(list '#(syntax-object
|
|
lambda
|
|
((top)
|
|
#(ribcage
|
|
#(k keyword pattern template)
|
|
#((top) (top) (top) (top))
|
|
#("l-*-29929"
|
|
"l-*-29930"
|
|
"l-*-29931"
|
|
"l-*-29932"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("l-*-29926")))
|
|
(hygiene guile))
|
|
'(#(syntax-object
|
|
x
|
|
((top)
|
|
#(ribcage
|
|
#(k keyword pattern template)
|
|
#((top) (top) (top) (top))
|
|
#("l-*-29929"
|
|
"l-*-29930"
|
|
"l-*-29931"
|
|
"l-*-29932"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("l-*-29926")))
|
|
(hygiene guile)))
|
|
(vector
|
|
'(#(syntax-object
|
|
macro-type
|
|
((top)
|
|
#(ribcage
|
|
#(k keyword pattern template)
|
|
#((top) (top) (top) (top))
|
|
#("l-*-29929"
|
|
"l-*-29930"
|
|
"l-*-29931"
|
|
"l-*-29932"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("l-*-29926")))
|
|
(hygiene guile))
|
|
.
|
|
#(syntax-object
|
|
syntax-rules
|
|
((top)
|
|
#(ribcage
|
|
#(k keyword pattern template)
|
|
#((top) (top) (top) (top))
|
|
#("l-*-29929"
|
|
"l-*-29930"
|
|
"l-*-29931"
|
|
"l-*-29932"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("l-*-29926")))
|
|
(hygiene guile)))
|
|
(cons '#(syntax-object
|
|
patterns
|
|
((top)
|
|
#(ribcage
|
|
#(k keyword pattern template)
|
|
#((top) (top) (top) (top))
|
|
#("l-*-29929"
|
|
"l-*-29930"
|
|
"l-*-29931"
|
|
"l-*-29932"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("l-*-29926")))
|
|
(hygiene guile))
|
|
pattern-29974))
|
|
(cons '#(syntax-object
|
|
syntax-case
|
|
((top)
|
|
#(ribcage
|
|
#(k keyword pattern template)
|
|
#((top) (top) (top) (top))
|
|
#("l-*-29929"
|
|
"l-*-29930"
|
|
"l-*-29931"
|
|
"l-*-29932"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("l-*-29926")))
|
|
(hygiene guile))
|
|
(cons '#(syntax-object
|
|
x
|
|
((top)
|
|
#(ribcage
|
|
#(k keyword pattern template)
|
|
#((top) (top) (top) (top))
|
|
#("l-*-29929"
|
|
"l-*-29930"
|
|
"l-*-29931"
|
|
"l-*-29932"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("l-*-29926")))
|
|
(hygiene guile))
|
|
(cons k-29972
|
|
(map (lambda (tmp-29940-29976
|
|
tmp-29939-29977)
|
|
(list (cons '#(syntax-object
|
|
dummy
|
|
((top)
|
|
#(ribcage
|
|
#(k
|
|
keyword
|
|
pattern
|
|
template)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("l-*-29929"
|
|
"l-*-29930"
|
|
"l-*-29931"
|
|
"l-*-29932"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("l-*-29926")))
|
|
(hygiene guile))
|
|
tmp-29939-29977)
|
|
(list '#(syntax-object
|
|
syntax
|
|
((top)
|
|
#(ribcage
|
|
#(k
|
|
keyword
|
|
pattern
|
|
template)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("l-*-29929"
|
|
"l-*-29930"
|
|
"l-*-29931"
|
|
"l-*-29932"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("l-*-29926")))
|
|
(hygiene guile))
|
|
tmp-29940-29976)))
|
|
template-29975
|
|
pattern-29974))))))
|
|
tmp-29968)
|
|
(let ((tmp-29978
|
|
($sc-dispatch
|
|
x-29966
|
|
'(_ each-any any . #(each ((any . any) any))))))
|
|
(if (if tmp-29978
|
|
(@apply
|
|
(lambda (k-29982
|
|
docstring-29983
|
|
keyword-29984
|
|
pattern-29985
|
|
template-29986)
|
|
(string? (syntax->datum docstring-29983)))
|
|
tmp-29978)
|
|
#f)
|
|
(@apply
|
|
(lambda (k-29987
|
|
docstring-29988
|
|
keyword-29989
|
|
pattern-29990
|
|
template-29991)
|
|
(list '#(syntax-object
|
|
lambda
|
|
((top)
|
|
#(ribcage
|
|
#(k docstring keyword pattern template)
|
|
#((top) (top) (top) (top) (top))
|
|
#("l-*-29952"
|
|
"l-*-29953"
|
|
"l-*-29954"
|
|
"l-*-29955"
|
|
"l-*-29956"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("l-*-29926")))
|
|
(hygiene guile))
|
|
'(#(syntax-object
|
|
x
|
|
((top)
|
|
#(ribcage
|
|
#(k docstring keyword pattern template)
|
|
#((top) (top) (top) (top) (top))
|
|
#("l-*-29952"
|
|
"l-*-29953"
|
|
"l-*-29954"
|
|
"l-*-29955"
|
|
"l-*-29956"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("l-*-29926")))
|
|
(hygiene guile)))
|
|
docstring-29988
|
|
(vector
|
|
'(#(syntax-object
|
|
macro-type
|
|
((top)
|
|
#(ribcage
|
|
#(k docstring keyword pattern template)
|
|
#((top) (top) (top) (top) (top))
|
|
#("l-*-29952"
|
|
"l-*-29953"
|
|
"l-*-29954"
|
|
"l-*-29955"
|
|
"l-*-29956"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("l-*-29926")))
|
|
(hygiene guile))
|
|
.
|
|
#(syntax-object
|
|
syntax-rules
|
|
((top)
|
|
#(ribcage
|
|
#(k docstring keyword pattern template)
|
|
#((top) (top) (top) (top) (top))
|
|
#("l-*-29952"
|
|
"l-*-29953"
|
|
"l-*-29954"
|
|
"l-*-29955"
|
|
"l-*-29956"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("l-*-29926")))
|
|
(hygiene guile)))
|
|
(cons '#(syntax-object
|
|
patterns
|
|
((top)
|
|
#(ribcage
|
|
#(k docstring keyword pattern template)
|
|
#((top) (top) (top) (top) (top))
|
|
#("l-*-29952"
|
|
"l-*-29953"
|
|
"l-*-29954"
|
|
"l-*-29955"
|
|
"l-*-29956"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("l-*-29926")))
|
|
(hygiene guile))
|
|
pattern-29990))
|
|
(cons '#(syntax-object
|
|
syntax-case
|
|
((top)
|
|
#(ribcage
|
|
#(k docstring keyword pattern template)
|
|
#((top) (top) (top) (top) (top))
|
|
#("l-*-29952"
|
|
"l-*-29953"
|
|
"l-*-29954"
|
|
"l-*-29955"
|
|
"l-*-29956"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("l-*-29926")))
|
|
(hygiene guile))
|
|
(cons '#(syntax-object
|
|
x
|
|
((top)
|
|
#(ribcage
|
|
#(k
|
|
docstring
|
|
keyword
|
|
pattern
|
|
template)
|
|
#((top) (top) (top) (top) (top))
|
|
#("l-*-29952"
|
|
"l-*-29953"
|
|
"l-*-29954"
|
|
"l-*-29955"
|
|
"l-*-29956"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("l-*-29926")))
|
|
(hygiene guile))
|
|
(cons k-29987
|
|
(map (lambda (tmp-29965-29992
|
|
tmp-29964-29993)
|
|
(list (cons '#(syntax-object
|
|
dummy
|
|
((top)
|
|
#(ribcage
|
|
#(k
|
|
docstring
|
|
keyword
|
|
pattern
|
|
template)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("l-*-29952"
|
|
"l-*-29953"
|
|
"l-*-29954"
|
|
"l-*-29955"
|
|
"l-*-29956"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("l-*-29926")))
|
|
(hygiene
|
|
guile))
|
|
tmp-29964-29993)
|
|
(list '#(syntax-object
|
|
syntax
|
|
((top)
|
|
#(ribcage
|
|
#(k
|
|
docstring
|
|
keyword
|
|
pattern
|
|
template)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("l-*-29952"
|
|
"l-*-29953"
|
|
"l-*-29954"
|
|
"l-*-29955"
|
|
"l-*-29956"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("l-*-29926")))
|
|
(hygiene
|
|
guile))
|
|
tmp-29965-29992)))
|
|
template-29991
|
|
pattern-29990))))))
|
|
tmp-29978)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
x-29966))))))))
|
|
|
|
(define define-syntax-rule
|
|
(make-syntax-transformer
|
|
'define-syntax-rule
|
|
'macro
|
|
(lambda (x-30030)
|
|
(let ((tmp-30032
|
|
($sc-dispatch x-30030 '(_ (any . any) any))))
|
|
(if tmp-30032
|
|
(@apply
|
|
(lambda (name-30036 pattern-30037 template-30038)
|
|
(list '#(syntax-object
|
|
define-syntax
|
|
((top)
|
|
#(ribcage
|
|
#(name pattern template)
|
|
#((top) (top) (top))
|
|
#("l-*-30007" "l-*-30008" "l-*-30009"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("l-*-30004")))
|
|
(hygiene guile))
|
|
name-30036
|
|
(list '#(syntax-object
|
|
syntax-rules
|
|
((top)
|
|
#(ribcage
|
|
#(name pattern template)
|
|
#((top) (top) (top))
|
|
#("l-*-30007" "l-*-30008" "l-*-30009"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("l-*-30004")))
|
|
(hygiene guile))
|
|
'()
|
|
(list (cons '#(syntax-object
|
|
_
|
|
((top)
|
|
#(ribcage
|
|
#(name pattern template)
|
|
#((top) (top) (top))
|
|
#("l-*-30007"
|
|
"l-*-30008"
|
|
"l-*-30009"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("l-*-30004")))
|
|
(hygiene guile))
|
|
pattern-30037)
|
|
template-30038))))
|
|
tmp-30032)
|
|
(let ((tmp-30039
|
|
($sc-dispatch x-30030 '(_ (any . any) any any))))
|
|
(if (if tmp-30039
|
|
(@apply
|
|
(lambda (name-30043
|
|
pattern-30044
|
|
docstring-30045
|
|
template-30046)
|
|
(string? (syntax->datum docstring-30045)))
|
|
tmp-30039)
|
|
#f)
|
|
(@apply
|
|
(lambda (name-30047
|
|
pattern-30048
|
|
docstring-30049
|
|
template-30050)
|
|
(list '#(syntax-object
|
|
define-syntax
|
|
((top)
|
|
#(ribcage
|
|
#(name pattern docstring template)
|
|
#((top) (top) (top) (top))
|
|
#("l-*-30022"
|
|
"l-*-30023"
|
|
"l-*-30024"
|
|
"l-*-30025"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("l-*-30004")))
|
|
(hygiene guile))
|
|
name-30047
|
|
(list '#(syntax-object
|
|
syntax-rules
|
|
((top)
|
|
#(ribcage
|
|
#(name pattern docstring template)
|
|
#((top) (top) (top) (top))
|
|
#("l-*-30022"
|
|
"l-*-30023"
|
|
"l-*-30024"
|
|
"l-*-30025"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("l-*-30004")))
|
|
(hygiene guile))
|
|
'()
|
|
docstring-30049
|
|
(list (cons '#(syntax-object
|
|
_
|
|
((top)
|
|
#(ribcage
|
|
#(name
|
|
pattern
|
|
docstring
|
|
template)
|
|
#((top) (top) (top) (top))
|
|
#("l-*-30022"
|
|
"l-*-30023"
|
|
"l-*-30024"
|
|
"l-*-30025"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("l-*-30004")))
|
|
(hygiene guile))
|
|
pattern-30048)
|
|
template-30050))))
|
|
tmp-30039)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
x-30030))))))))
|
|
|
|
(define let*
|
|
(make-syntax-transformer
|
|
'let*
|
|
'macro
|
|
(lambda (x-30099)
|
|
(let ((tmp-30101
|
|
($sc-dispatch
|
|
x-30099
|
|
'(any #(each (any any)) any . each-any))))
|
|
(if (if tmp-30101
|
|
(@apply
|
|
(lambda (let*-30105 x-30106 v-30107 e1-30108 e2-30109)
|
|
(and-map identifier? x-30106))
|
|
tmp-30101)
|
|
#f)
|
|
(@apply
|
|
(lambda (let*-30110 x-30111 v-30112 e1-30113 e2-30114)
|
|
(letrec*
|
|
((f-30115
|
|
(lambda (bindings-30118)
|
|
(if (null? bindings-30118)
|
|
(cons '#(syntax-object
|
|
let
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(f bindings)
|
|
#((top) (top))
|
|
#("l-*-30085" "l-*-30086"))
|
|
#(ribcage
|
|
#(let* x v e1 e2)
|
|
#((top) (top) (top) (top) (top))
|
|
#("l-*-30075"
|
|
"l-*-30076"
|
|
"l-*-30077"
|
|
"l-*-30078"
|
|
"l-*-30079"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("l-*-30061")))
|
|
(hygiene guile))
|
|
(cons '() (cons e1-30113 e2-30114)))
|
|
(let ((tmp-30119
|
|
(list (f-30115 (cdr bindings-30118))
|
|
(car bindings-30118))))
|
|
(let ((tmp-30120 ($sc-dispatch tmp-30119 '(any any))))
|
|
(if tmp-30120
|
|
(@apply
|
|
(lambda (body-30122 binding-30123)
|
|
(list '#(syntax-object
|
|
let
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(body binding)
|
|
#((top) (top))
|
|
#("l-*-30095" "l-*-30096"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(f bindings)
|
|
#((top) (top))
|
|
#("l-*-30085" "l-*-30086"))
|
|
#(ribcage
|
|
#(let* x v e1 e2)
|
|
#((top) (top) (top) (top) (top))
|
|
#("l-*-30075"
|
|
"l-*-30076"
|
|
"l-*-30077"
|
|
"l-*-30078"
|
|
"l-*-30079"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("l-*-30061")))
|
|
(hygiene guile))
|
|
(list binding-30123)
|
|
body-30122))
|
|
tmp-30120)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
tmp-30119))))))))
|
|
(f-30115 (map list x-30111 v-30112))))
|
|
tmp-30101)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
x-30099))))))
|
|
|
|
(define do
|
|
(make-syntax-transformer
|
|
'do
|
|
'macro
|
|
(lambda (orig-x-30181)
|
|
(let ((tmp-30183
|
|
($sc-dispatch
|
|
orig-x-30181
|
|
'(_ #(each (any any . any))
|
|
(any . each-any)
|
|
.
|
|
each-any))))
|
|
(if tmp-30183
|
|
(@apply
|
|
(lambda (var-30187
|
|
init-30188
|
|
step-30189
|
|
e0-30190
|
|
e1-30191
|
|
c-30192)
|
|
(let ((tmp-30193
|
|
(map (lambda (v-30196 s-30197)
|
|
(let ((tmp-30199 ($sc-dispatch s-30197 '())))
|
|
(if tmp-30199
|
|
(@apply (lambda () v-30196) tmp-30199)
|
|
(let ((tmp-30202
|
|
($sc-dispatch s-30197 '(any))))
|
|
(if tmp-30202
|
|
(@apply
|
|
(lambda (e-30205) e-30205)
|
|
tmp-30202)
|
|
(syntax-violation
|
|
'do
|
|
"bad step expression"
|
|
orig-x-30181
|
|
s-30197))))))
|
|
var-30187
|
|
step-30189)))
|
|
(let ((tmp-30194 ($sc-dispatch tmp-30193 'each-any)))
|
|
(if tmp-30194
|
|
(@apply
|
|
(lambda (step-30211)
|
|
(let ((tmp-30213 ($sc-dispatch e1-30191 '())))
|
|
(if tmp-30213
|
|
(@apply
|
|
(lambda ()
|
|
(list '#(syntax-object
|
|
let
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(step)
|
|
#((top))
|
|
#("l-*-30149"))
|
|
#(ribcage
|
|
#(var init step e0 e1 c)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("l-*-30134"
|
|
"l-*-30135"
|
|
"l-*-30136"
|
|
"l-*-30137"
|
|
"l-*-30138"
|
|
"l-*-30139"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(orig-x)
|
|
#((top))
|
|
#("l-*-30131")))
|
|
(hygiene guile))
|
|
'#(syntax-object
|
|
doloop
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(step)
|
|
#((top))
|
|
#("l-*-30149"))
|
|
#(ribcage
|
|
#(var init step e0 e1 c)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("l-*-30134"
|
|
"l-*-30135"
|
|
"l-*-30136"
|
|
"l-*-30137"
|
|
"l-*-30138"
|
|
"l-*-30139"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(orig-x)
|
|
#((top))
|
|
#("l-*-30131")))
|
|
(hygiene guile))
|
|
(map list var-30187 init-30188)
|
|
(list '#(syntax-object
|
|
if
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(step)
|
|
#((top))
|
|
#("l-*-30149"))
|
|
#(ribcage
|
|
#(var init step e0 e1 c)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("l-*-30134"
|
|
"l-*-30135"
|
|
"l-*-30136"
|
|
"l-*-30137"
|
|
"l-*-30138"
|
|
"l-*-30139"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(orig-x)
|
|
#((top))
|
|
#("l-*-30131")))
|
|
(hygiene guile))
|
|
(list '#(syntax-object
|
|
not
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(step)
|
|
#((top))
|
|
#("l-*-30149"))
|
|
#(ribcage
|
|
#(var
|
|
init
|
|
step
|
|
e0
|
|
e1
|
|
c)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("l-*-30134"
|
|
"l-*-30135"
|
|
"l-*-30136"
|
|
"l-*-30137"
|
|
"l-*-30138"
|
|
"l-*-30139"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(orig-x)
|
|
#((top))
|
|
#("l-*-30131")))
|
|
(hygiene guile))
|
|
e0-30190)
|
|
(cons '#(syntax-object
|
|
begin
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(step)
|
|
#((top))
|
|
#("l-*-30149"))
|
|
#(ribcage
|
|
#(var
|
|
init
|
|
step
|
|
e0
|
|
e1
|
|
c)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("l-*-30134"
|
|
"l-*-30135"
|
|
"l-*-30136"
|
|
"l-*-30137"
|
|
"l-*-30138"
|
|
"l-*-30139"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(orig-x)
|
|
#((top))
|
|
#("l-*-30131")))
|
|
(hygiene guile))
|
|
(append
|
|
c-30192
|
|
(list (cons '#(syntax-object
|
|
doloop
|
|
((top)
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(step)
|
|
#((top))
|
|
#("l-*-30149"))
|
|
#(ribcage
|
|
#(var
|
|
init
|
|
step
|
|
e0
|
|
e1
|
|
c)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("l-*-30134"
|
|
"l-*-30135"
|
|
"l-*-30136"
|
|
"l-*-30137"
|
|
"l-*-30138"
|
|
"l-*-30139"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(orig-x)
|
|
#((top))
|
|
#("l-*-30131")))
|
|
(hygiene
|
|
guile))
|
|
step-30211)))))))
|
|
tmp-30213)
|
|
(let ((tmp-30217
|
|
($sc-dispatch e1-30191 '(any . each-any))))
|
|
(if tmp-30217
|
|
(@apply
|
|
(lambda (e1-30221 e2-30222)
|
|
(list '#(syntax-object
|
|
let
|
|
((top)
|
|
#(ribcage
|
|
#(e1 e2)
|
|
#((top) (top))
|
|
#("l-*-30158" "l-*-30159"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(step)
|
|
#((top))
|
|
#("l-*-30149"))
|
|
#(ribcage
|
|
#(var init step e0 e1 c)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("l-*-30134"
|
|
"l-*-30135"
|
|
"l-*-30136"
|
|
"l-*-30137"
|
|
"l-*-30138"
|
|
"l-*-30139"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(orig-x)
|
|
#((top))
|
|
#("l-*-30131")))
|
|
(hygiene guile))
|
|
'#(syntax-object
|
|
doloop
|
|
((top)
|
|
#(ribcage
|
|
#(e1 e2)
|
|
#((top) (top))
|
|
#("l-*-30158" "l-*-30159"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(step)
|
|
#((top))
|
|
#("l-*-30149"))
|
|
#(ribcage
|
|
#(var init step e0 e1 c)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("l-*-30134"
|
|
"l-*-30135"
|
|
"l-*-30136"
|
|
"l-*-30137"
|
|
"l-*-30138"
|
|
"l-*-30139"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(orig-x)
|
|
#((top))
|
|
#("l-*-30131")))
|
|
(hygiene guile))
|
|
(map list var-30187 init-30188)
|
|
(list '#(syntax-object
|
|
if
|
|
((top)
|
|
#(ribcage
|
|
#(e1 e2)
|
|
#((top) (top))
|
|
#("l-*-30158"
|
|
"l-*-30159"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(step)
|
|
#((top))
|
|
#("l-*-30149"))
|
|
#(ribcage
|
|
#(var init step e0 e1 c)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("l-*-30134"
|
|
"l-*-30135"
|
|
"l-*-30136"
|
|
"l-*-30137"
|
|
"l-*-30138"
|
|
"l-*-30139"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(orig-x)
|
|
#((top))
|
|
#("l-*-30131")))
|
|
(hygiene guile))
|
|
e0-30190
|
|
(cons '#(syntax-object
|
|
begin
|
|
((top)
|
|
#(ribcage
|
|
#(e1 e2)
|
|
#((top) (top))
|
|
#("l-*-30158"
|
|
"l-*-30159"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(step)
|
|
#((top))
|
|
#("l-*-30149"))
|
|
#(ribcage
|
|
#(var
|
|
init
|
|
step
|
|
e0
|
|
e1
|
|
c)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("l-*-30134"
|
|
"l-*-30135"
|
|
"l-*-30136"
|
|
"l-*-30137"
|
|
"l-*-30138"
|
|
"l-*-30139"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(orig-x)
|
|
#((top))
|
|
#("l-*-30131")))
|
|
(hygiene guile))
|
|
(cons e1-30221 e2-30222))
|
|
(cons '#(syntax-object
|
|
begin
|
|
((top)
|
|
#(ribcage
|
|
#(e1 e2)
|
|
#((top) (top))
|
|
#("l-*-30158"
|
|
"l-*-30159"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(step)
|
|
#((top))
|
|
#("l-*-30149"))
|
|
#(ribcage
|
|
#(var
|
|
init
|
|
step
|
|
e0
|
|
e1
|
|
c)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("l-*-30134"
|
|
"l-*-30135"
|
|
"l-*-30136"
|
|
"l-*-30137"
|
|
"l-*-30138"
|
|
"l-*-30139"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(orig-x)
|
|
#((top))
|
|
#("l-*-30131")))
|
|
(hygiene guile))
|
|
(append
|
|
c-30192
|
|
(list (cons '#(syntax-object
|
|
doloop
|
|
((top)
|
|
#(ribcage
|
|
#(e1
|
|
e2)
|
|
#((top)
|
|
(top))
|
|
#("l-*-30158"
|
|
"l-*-30159"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(step)
|
|
#((top))
|
|
#("l-*-30149"))
|
|
#(ribcage
|
|
#(var
|
|
init
|
|
step
|
|
e0
|
|
e1
|
|
c)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("l-*-30134"
|
|
"l-*-30135"
|
|
"l-*-30136"
|
|
"l-*-30137"
|
|
"l-*-30138"
|
|
"l-*-30139"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(orig-x)
|
|
#((top))
|
|
#("l-*-30131")))
|
|
(hygiene
|
|
guile))
|
|
step-30211)))))))
|
|
tmp-30217)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
e1-30191))))))
|
|
tmp-30194)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
tmp-30193)))))
|
|
tmp-30183)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
orig-x-30181))))))
|
|
|
|
(define quasiquote
|
|
(make-syntax-transformer
|
|
'quasiquote
|
|
'macro
|
|
(letrec*
|
|
((quasi-30508
|
|
(lambda (p-30532 lev-30533)
|
|
(let ((tmp-30535
|
|
($sc-dispatch
|
|
p-30532
|
|
'(#(free-id
|
|
#(syntax-object
|
|
unquote
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top) (top))
|
|
#("l-*-30254" "l-*-30255"))
|
|
#(ribcage
|
|
(emit quasivector
|
|
quasilist*
|
|
quasiappend
|
|
quasicons
|
|
vquasi
|
|
quasi)
|
|
((top) (top) (top) (top) (top) (top) (top))
|
|
("l-*-30250"
|
|
"l-*-30248"
|
|
"l-*-30246"
|
|
"l-*-30244"
|
|
"l-*-30242"
|
|
"l-*-30240"
|
|
"l-*-30238")))
|
|
(hygiene guile)))
|
|
any))))
|
|
(if tmp-30535
|
|
(@apply
|
|
(lambda (p-30539)
|
|
(if (= lev-30533 0)
|
|
(list '#(syntax-object
|
|
"value"
|
|
((top)
|
|
#(ribcage #(p) #((top)) #("l-*-30258"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top) (top))
|
|
#("l-*-30254" "l-*-30255"))
|
|
#(ribcage
|
|
(emit quasivector
|
|
quasilist*
|
|
quasiappend
|
|
quasicons
|
|
vquasi
|
|
quasi)
|
|
((top) (top) (top) (top) (top) (top) (top))
|
|
("l-*-30250"
|
|
"l-*-30248"
|
|
"l-*-30246"
|
|
"l-*-30244"
|
|
"l-*-30242"
|
|
"l-*-30240"
|
|
"l-*-30238")))
|
|
(hygiene guile))
|
|
p-30539)
|
|
(quasicons-30510
|
|
'(#(syntax-object
|
|
"quote"
|
|
((top)
|
|
#(ribcage #(p) #((top)) #("l-*-30258"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top) (top))
|
|
#("l-*-30254" "l-*-30255"))
|
|
#(ribcage
|
|
(emit quasivector
|
|
quasilist*
|
|
quasiappend
|
|
quasicons
|
|
vquasi
|
|
quasi)
|
|
((top) (top) (top) (top) (top) (top) (top))
|
|
("l-*-30250"
|
|
"l-*-30248"
|
|
"l-*-30246"
|
|
"l-*-30244"
|
|
"l-*-30242"
|
|
"l-*-30240"
|
|
"l-*-30238")))
|
|
(hygiene guile))
|
|
#(syntax-object
|
|
unquote
|
|
((top)
|
|
#(ribcage #(p) #((top)) #("l-*-30258"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top) (top))
|
|
#("l-*-30254" "l-*-30255"))
|
|
#(ribcage
|
|
(emit quasivector
|
|
quasilist*
|
|
quasiappend
|
|
quasicons
|
|
vquasi
|
|
quasi)
|
|
((top) (top) (top) (top) (top) (top) (top))
|
|
("l-*-30250"
|
|
"l-*-30248"
|
|
"l-*-30246"
|
|
"l-*-30244"
|
|
"l-*-30242"
|
|
"l-*-30240"
|
|
"l-*-30238")))
|
|
(hygiene guile)))
|
|
(quasi-30508 (list p-30539) (#{1-}# lev-30533)))))
|
|
tmp-30535)
|
|
(let ((tmp-30542
|
|
($sc-dispatch
|
|
p-30532
|
|
'(#(free-id
|
|
#(syntax-object
|
|
quasiquote
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top) (top))
|
|
#("l-*-30254" "l-*-30255"))
|
|
#(ribcage
|
|
(emit quasivector
|
|
quasilist*
|
|
quasiappend
|
|
quasicons
|
|
vquasi
|
|
quasi)
|
|
((top) (top) (top) (top) (top) (top) (top))
|
|
("l-*-30250"
|
|
"l-*-30248"
|
|
"l-*-30246"
|
|
"l-*-30244"
|
|
"l-*-30242"
|
|
"l-*-30240"
|
|
"l-*-30238")))
|
|
(hygiene guile)))
|
|
any))))
|
|
(if tmp-30542
|
|
(@apply
|
|
(lambda (p-30546)
|
|
(quasicons-30510
|
|
'(#(syntax-object
|
|
"quote"
|
|
((top)
|
|
#(ribcage #(p) #((top)) #("l-*-30261"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top) (top))
|
|
#("l-*-30254" "l-*-30255"))
|
|
#(ribcage
|
|
(emit quasivector
|
|
quasilist*
|
|
quasiappend
|
|
quasicons
|
|
vquasi
|
|
quasi)
|
|
((top) (top) (top) (top) (top) (top) (top))
|
|
("l-*-30250"
|
|
"l-*-30248"
|
|
"l-*-30246"
|
|
"l-*-30244"
|
|
"l-*-30242"
|
|
"l-*-30240"
|
|
"l-*-30238")))
|
|
(hygiene guile))
|
|
#(syntax-object
|
|
quasiquote
|
|
((top)
|
|
#(ribcage #(p) #((top)) #("l-*-30261"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top) (top))
|
|
#("l-*-30254" "l-*-30255"))
|
|
#(ribcage
|
|
(emit quasivector
|
|
quasilist*
|
|
quasiappend
|
|
quasicons
|
|
vquasi
|
|
quasi)
|
|
((top) (top) (top) (top) (top) (top) (top))
|
|
("l-*-30250"
|
|
"l-*-30248"
|
|
"l-*-30246"
|
|
"l-*-30244"
|
|
"l-*-30242"
|
|
"l-*-30240"
|
|
"l-*-30238")))
|
|
(hygiene guile)))
|
|
(quasi-30508 (list p-30546) (#{1+}# lev-30533))))
|
|
tmp-30542)
|
|
(let ((tmp-30549 ($sc-dispatch p-30532 '(any . any))))
|
|
(if tmp-30549
|
|
(@apply
|
|
(lambda (p-30553 q-30554)
|
|
(let ((tmp-30556
|
|
($sc-dispatch
|
|
p-30553
|
|
'(#(free-id
|
|
#(syntax-object
|
|
unquote
|
|
((top)
|
|
#(ribcage
|
|
#(p q)
|
|
#((top) (top))
|
|
#("l-*-30264" "l-*-30265"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top) (top))
|
|
#("l-*-30254" "l-*-30255"))
|
|
#(ribcage
|
|
(emit quasivector
|
|
quasilist*
|
|
quasiappend
|
|
quasicons
|
|
vquasi
|
|
quasi)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("l-*-30250"
|
|
"l-*-30248"
|
|
"l-*-30246"
|
|
"l-*-30244"
|
|
"l-*-30242"
|
|
"l-*-30240"
|
|
"l-*-30238")))
|
|
(hygiene guile)))
|
|
.
|
|
each-any))))
|
|
(if tmp-30556
|
|
(@apply
|
|
(lambda (p-30560)
|
|
(if (= lev-30533 0)
|
|
(quasilist*-30512
|
|
(map (lambda (tmp-30272-30596)
|
|
(list '#(syntax-object
|
|
"value"
|
|
((top)
|
|
#(ribcage
|
|
#(p)
|
|
#((top))
|
|
#("l-*-30270"))
|
|
#(ribcage
|
|
#(p q)
|
|
#((top) (top))
|
|
#("l-*-30264"
|
|
"l-*-30265"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top) (top))
|
|
#("l-*-30254"
|
|
"l-*-30255"))
|
|
#(ribcage
|
|
(emit quasivector
|
|
quasilist*
|
|
quasiappend
|
|
quasicons
|
|
vquasi
|
|
quasi)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("l-*-30250"
|
|
"l-*-30248"
|
|
"l-*-30246"
|
|
"l-*-30244"
|
|
"l-*-30242"
|
|
"l-*-30240"
|
|
"l-*-30238")))
|
|
(hygiene guile))
|
|
tmp-30272-30596))
|
|
p-30560)
|
|
(quasi-30508 q-30554 lev-30533))
|
|
(quasicons-30510
|
|
(quasicons-30510
|
|
'(#(syntax-object
|
|
"quote"
|
|
((top)
|
|
#(ribcage
|
|
#(p)
|
|
#((top))
|
|
#("l-*-30270"))
|
|
#(ribcage
|
|
#(p q)
|
|
#((top) (top))
|
|
#("l-*-30264" "l-*-30265"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top) (top))
|
|
#("l-*-30254" "l-*-30255"))
|
|
#(ribcage
|
|
(emit quasivector
|
|
quasilist*
|
|
quasiappend
|
|
quasicons
|
|
vquasi
|
|
quasi)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("l-*-30250"
|
|
"l-*-30248"
|
|
"l-*-30246"
|
|
"l-*-30244"
|
|
"l-*-30242"
|
|
"l-*-30240"
|
|
"l-*-30238")))
|
|
(hygiene guile))
|
|
#(syntax-object
|
|
unquote
|
|
((top)
|
|
#(ribcage
|
|
#(p)
|
|
#((top))
|
|
#("l-*-30270"))
|
|
#(ribcage
|
|
#(p q)
|
|
#((top) (top))
|
|
#("l-*-30264" "l-*-30265"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top) (top))
|
|
#("l-*-30254" "l-*-30255"))
|
|
#(ribcage
|
|
(emit quasivector
|
|
quasilist*
|
|
quasiappend
|
|
quasicons
|
|
vquasi
|
|
quasi)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("l-*-30250"
|
|
"l-*-30248"
|
|
"l-*-30246"
|
|
"l-*-30244"
|
|
"l-*-30242"
|
|
"l-*-30240"
|
|
"l-*-30238")))
|
|
(hygiene guile)))
|
|
(quasi-30508
|
|
p-30560
|
|
(#{1-}# lev-30533)))
|
|
(quasi-30508 q-30554 lev-30533))))
|
|
tmp-30556)
|
|
(let ((tmp-30601
|
|
($sc-dispatch
|
|
p-30553
|
|
'(#(free-id
|
|
#(syntax-object
|
|
unquote-splicing
|
|
((top)
|
|
#(ribcage
|
|
#(p q)
|
|
#((top) (top))
|
|
#("l-*-30264" "l-*-30265"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top) (top))
|
|
#("l-*-30254" "l-*-30255"))
|
|
#(ribcage
|
|
(emit quasivector
|
|
quasilist*
|
|
quasiappend
|
|
quasicons
|
|
vquasi
|
|
quasi)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("l-*-30250"
|
|
"l-*-30248"
|
|
"l-*-30246"
|
|
"l-*-30244"
|
|
"l-*-30242"
|
|
"l-*-30240"
|
|
"l-*-30238")))
|
|
(hygiene guile)))
|
|
.
|
|
each-any))))
|
|
(if tmp-30601
|
|
(@apply
|
|
(lambda (p-30605)
|
|
(if (= lev-30533 0)
|
|
(quasiappend-30511
|
|
(map (lambda (tmp-30277-30608)
|
|
(list '#(syntax-object
|
|
"value"
|
|
((top)
|
|
#(ribcage
|
|
#(p)
|
|
#((top))
|
|
#("l-*-30275"))
|
|
#(ribcage
|
|
#(p q)
|
|
#((top) (top))
|
|
#("l-*-30264"
|
|
"l-*-30265"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top) (top))
|
|
#("l-*-30254"
|
|
"l-*-30255"))
|
|
#(ribcage
|
|
(emit quasivector
|
|
quasilist*
|
|
quasiappend
|
|
quasicons
|
|
vquasi
|
|
quasi)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("l-*-30250"
|
|
"l-*-30248"
|
|
"l-*-30246"
|
|
"l-*-30244"
|
|
"l-*-30242"
|
|
"l-*-30240"
|
|
"l-*-30238")))
|
|
(hygiene guile))
|
|
tmp-30277-30608))
|
|
p-30605)
|
|
(quasi-30508 q-30554 lev-30533))
|
|
(quasicons-30510
|
|
(quasicons-30510
|
|
'(#(syntax-object
|
|
"quote"
|
|
((top)
|
|
#(ribcage
|
|
#(p)
|
|
#((top))
|
|
#("l-*-30275"))
|
|
#(ribcage
|
|
#(p q)
|
|
#((top) (top))
|
|
#("l-*-30264" "l-*-30265"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top) (top))
|
|
#("l-*-30254" "l-*-30255"))
|
|
#(ribcage
|
|
(emit quasivector
|
|
quasilist*
|
|
quasiappend
|
|
quasicons
|
|
vquasi
|
|
quasi)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("l-*-30250"
|
|
"l-*-30248"
|
|
"l-*-30246"
|
|
"l-*-30244"
|
|
"l-*-30242"
|
|
"l-*-30240"
|
|
"l-*-30238")))
|
|
(hygiene guile))
|
|
#(syntax-object
|
|
unquote-splicing
|
|
((top)
|
|
#(ribcage
|
|
#(p)
|
|
#((top))
|
|
#("l-*-30275"))
|
|
#(ribcage
|
|
#(p q)
|
|
#((top) (top))
|
|
#("l-*-30264" "l-*-30265"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top) (top))
|
|
#("l-*-30254" "l-*-30255"))
|
|
#(ribcage
|
|
(emit quasivector
|
|
quasilist*
|
|
quasiappend
|
|
quasicons
|
|
vquasi
|
|
quasi)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("l-*-30250"
|
|
"l-*-30248"
|
|
"l-*-30246"
|
|
"l-*-30244"
|
|
"l-*-30242"
|
|
"l-*-30240"
|
|
"l-*-30238")))
|
|
(hygiene guile)))
|
|
(quasi-30508
|
|
p-30605
|
|
(#{1-}# lev-30533)))
|
|
(quasi-30508 q-30554 lev-30533))))
|
|
tmp-30601)
|
|
(quasicons-30510
|
|
(quasi-30508 p-30553 lev-30533)
|
|
(quasi-30508 q-30554 lev-30533)))))))
|
|
tmp-30549)
|
|
(let ((tmp-30622
|
|
($sc-dispatch p-30532 '#(vector each-any))))
|
|
(if tmp-30622
|
|
(@apply
|
|
(lambda (x-30626)
|
|
(let ((x-30629
|
|
(vquasi-30509 x-30626 lev-30533)))
|
|
(let ((tmp-30631
|
|
($sc-dispatch
|
|
x-30629
|
|
'(#(atom "quote") each-any))))
|
|
(if tmp-30631
|
|
(@apply
|
|
(lambda (x-30635)
|
|
(list '#(syntax-object
|
|
"quote"
|
|
((top)
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("l-*-30382"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("l-*-30379"))
|
|
#(ribcage
|
|
(emit quasivector
|
|
quasilist*
|
|
quasiappend
|
|
quasicons
|
|
vquasi
|
|
quasi)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("l-*-30250"
|
|
"l-*-30248"
|
|
"l-*-30246"
|
|
"l-*-30244"
|
|
"l-*-30242"
|
|
"l-*-30240"
|
|
"l-*-30238")))
|
|
(hygiene guile))
|
|
(list->vector x-30635)))
|
|
tmp-30631)
|
|
(letrec*
|
|
((f-30637
|
|
(lambda (y-30649 k-30650)
|
|
(let ((tmp-30652
|
|
($sc-dispatch
|
|
y-30649
|
|
'(#(atom "quote")
|
|
each-any))))
|
|
(if tmp-30652
|
|
(@apply
|
|
(lambda (y-30655)
|
|
(k-30650
|
|
(map (lambda (tmp-30407-30656)
|
|
(list '#(syntax-object
|
|
"quote"
|
|
((top)
|
|
#(ribcage
|
|
#(y)
|
|
#((top))
|
|
#("l-*-30405"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(f
|
|
y
|
|
k)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("l-*-30387"
|
|
"l-*-30388"
|
|
"l-*-30389"))
|
|
#(ribcage
|
|
#(_)
|
|
#((top))
|
|
#("l-*-30385"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("l-*-30379"))
|
|
#(ribcage
|
|
(emit quasivector
|
|
quasilist*
|
|
quasiappend
|
|
quasicons
|
|
vquasi
|
|
quasi)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("l-*-30250"
|
|
"l-*-30248"
|
|
"l-*-30246"
|
|
"l-*-30244"
|
|
"l-*-30242"
|
|
"l-*-30240"
|
|
"l-*-30238")))
|
|
(hygiene
|
|
guile))
|
|
tmp-30407-30656))
|
|
y-30655)))
|
|
tmp-30652)
|
|
(let ((tmp-30657
|
|
($sc-dispatch
|
|
y-30649
|
|
'(#(atom "list")
|
|
.
|
|
each-any))))
|
|
(if tmp-30657
|
|
(@apply
|
|
(lambda (y-30660)
|
|
(k-30650 y-30660))
|
|
tmp-30657)
|
|
(let ((tmp-30661
|
|
($sc-dispatch
|
|
y-30649
|
|
'(#(atom "list*")
|
|
.
|
|
#(each+
|
|
any
|
|
(any)
|
|
())))))
|
|
(if tmp-30661
|
|
(@apply
|
|
(lambda (y-30664
|
|
z-30665)
|
|
(f-30637
|
|
z-30665
|
|
(lambda (ls-30666)
|
|
(k-30650
|
|
(append
|
|
y-30664
|
|
ls-30666)))))
|
|
tmp-30661)
|
|
(list '#(syntax-object
|
|
"list->vector"
|
|
((top)
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(t-30422)
|
|
#((m-*-30423
|
|
top))
|
|
#("l-*-30426"))
|
|
#(ribcage
|
|
#(else)
|
|
#((top))
|
|
#("l-*-30420"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(f y k)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("l-*-30387"
|
|
"l-*-30388"
|
|
"l-*-30389"))
|
|
#(ribcage
|
|
#(_)
|
|
#((top))
|
|
#("l-*-30385"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("l-*-30379"))
|
|
#(ribcage
|
|
(emit quasivector
|
|
quasilist*
|
|
quasiappend
|
|
quasicons
|
|
vquasi
|
|
quasi)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("l-*-30250"
|
|
"l-*-30248"
|
|
"l-*-30246"
|
|
"l-*-30244"
|
|
"l-*-30242"
|
|
"l-*-30240"
|
|
"l-*-30238")))
|
|
(hygiene
|
|
guile))
|
|
x-30629))))))))))
|
|
(f-30637
|
|
x-30629
|
|
(lambda (ls-30639)
|
|
(let ((tmp-30641
|
|
($sc-dispatch
|
|
ls-30639
|
|
'each-any)))
|
|
(if tmp-30641
|
|
(@apply
|
|
(lambda (t-30395-30644)
|
|
(cons '#(syntax-object
|
|
"vector"
|
|
((top)
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(t-30395)
|
|
#((m-*-30396
|
|
top))
|
|
#("l-*-30400"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(ls)
|
|
#((top))
|
|
#("l-*-30394"))
|
|
#(ribcage
|
|
#(_)
|
|
#((top))
|
|
#("l-*-30385"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("l-*-30379"))
|
|
#(ribcage
|
|
(emit quasivector
|
|
quasilist*
|
|
quasiappend
|
|
quasicons
|
|
vquasi
|
|
quasi)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("l-*-30250"
|
|
"l-*-30248"
|
|
"l-*-30246"
|
|
"l-*-30244"
|
|
"l-*-30242"
|
|
"l-*-30240"
|
|
"l-*-30238")))
|
|
(hygiene guile))
|
|
t-30395-30644))
|
|
tmp-30641)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
ls-30639))))))))))
|
|
tmp-30622)
|
|
(list '#(syntax-object
|
|
"quote"
|
|
((top)
|
|
#(ribcage #(p) #((top)) #("l-*-30285"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top) (top))
|
|
#("l-*-30254" "l-*-30255"))
|
|
#(ribcage
|
|
(emit quasivector
|
|
quasilist*
|
|
quasiappend
|
|
quasicons
|
|
vquasi
|
|
quasi)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("l-*-30250"
|
|
"l-*-30248"
|
|
"l-*-30246"
|
|
"l-*-30244"
|
|
"l-*-30242"
|
|
"l-*-30240"
|
|
"l-*-30238")))
|
|
(hygiene guile))
|
|
p-30532)))))))))))
|
|
(vquasi-30509
|
|
(lambda (p-30694 lev-30695)
|
|
(let ((tmp-30697 ($sc-dispatch p-30694 '(any . any))))
|
|
(if tmp-30697
|
|
(@apply
|
|
(lambda (p-30701 q-30702)
|
|
(let ((tmp-30704
|
|
($sc-dispatch
|
|
p-30701
|
|
'(#(free-id
|
|
#(syntax-object
|
|
unquote
|
|
((top)
|
|
#(ribcage
|
|
#(p q)
|
|
#((top) (top))
|
|
#("l-*-30293" "l-*-30294"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top) (top))
|
|
#("l-*-30289" "l-*-30290"))
|
|
#(ribcage
|
|
(emit quasivector
|
|
quasilist*
|
|
quasiappend
|
|
quasicons
|
|
vquasi
|
|
quasi)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("l-*-30250"
|
|
"l-*-30248"
|
|
"l-*-30246"
|
|
"l-*-30244"
|
|
"l-*-30242"
|
|
"l-*-30240"
|
|
"l-*-30238")))
|
|
(hygiene guile)))
|
|
.
|
|
each-any))))
|
|
(if tmp-30704
|
|
(@apply
|
|
(lambda (p-30708)
|
|
(if (= lev-30695 0)
|
|
(quasilist*-30512
|
|
(map (lambda (tmp-30301-30744)
|
|
(list '#(syntax-object
|
|
"value"
|
|
((top)
|
|
#(ribcage
|
|
#(p)
|
|
#((top))
|
|
#("l-*-30299"))
|
|
#(ribcage
|
|
#(p q)
|
|
#((top) (top))
|
|
#("l-*-30293" "l-*-30294"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top) (top))
|
|
#("l-*-30289" "l-*-30290"))
|
|
#(ribcage
|
|
(emit quasivector
|
|
quasilist*
|
|
quasiappend
|
|
quasicons
|
|
vquasi
|
|
quasi)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("l-*-30250"
|
|
"l-*-30248"
|
|
"l-*-30246"
|
|
"l-*-30244"
|
|
"l-*-30242"
|
|
"l-*-30240"
|
|
"l-*-30238")))
|
|
(hygiene guile))
|
|
tmp-30301-30744))
|
|
p-30708)
|
|
(vquasi-30509 q-30702 lev-30695))
|
|
(quasicons-30510
|
|
(quasicons-30510
|
|
'(#(syntax-object
|
|
"quote"
|
|
((top)
|
|
#(ribcage #(p) #((top)) #("l-*-30299"))
|
|
#(ribcage
|
|
#(p q)
|
|
#((top) (top))
|
|
#("l-*-30293" "l-*-30294"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top) (top))
|
|
#("l-*-30289" "l-*-30290"))
|
|
#(ribcage
|
|
(emit quasivector
|
|
quasilist*
|
|
quasiappend
|
|
quasicons
|
|
vquasi
|
|
quasi)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("l-*-30250"
|
|
"l-*-30248"
|
|
"l-*-30246"
|
|
"l-*-30244"
|
|
"l-*-30242"
|
|
"l-*-30240"
|
|
"l-*-30238")))
|
|
(hygiene guile))
|
|
#(syntax-object
|
|
unquote
|
|
((top)
|
|
#(ribcage #(p) #((top)) #("l-*-30299"))
|
|
#(ribcage
|
|
#(p q)
|
|
#((top) (top))
|
|
#("l-*-30293" "l-*-30294"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top) (top))
|
|
#("l-*-30289" "l-*-30290"))
|
|
#(ribcage
|
|
(emit quasivector
|
|
quasilist*
|
|
quasiappend
|
|
quasicons
|
|
vquasi
|
|
quasi)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("l-*-30250"
|
|
"l-*-30248"
|
|
"l-*-30246"
|
|
"l-*-30244"
|
|
"l-*-30242"
|
|
"l-*-30240"
|
|
"l-*-30238")))
|
|
(hygiene guile)))
|
|
(quasi-30508 p-30708 (#{1-}# lev-30695)))
|
|
(vquasi-30509 q-30702 lev-30695))))
|
|
tmp-30704)
|
|
(let ((tmp-30751
|
|
($sc-dispatch
|
|
p-30701
|
|
'(#(free-id
|
|
#(syntax-object
|
|
unquote-splicing
|
|
((top)
|
|
#(ribcage
|
|
#(p q)
|
|
#((top) (top))
|
|
#("l-*-30293" "l-*-30294"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top) (top))
|
|
#("l-*-30289" "l-*-30290"))
|
|
#(ribcage
|
|
(emit quasivector
|
|
quasilist*
|
|
quasiappend
|
|
quasicons
|
|
vquasi
|
|
quasi)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("l-*-30250"
|
|
"l-*-30248"
|
|
"l-*-30246"
|
|
"l-*-30244"
|
|
"l-*-30242"
|
|
"l-*-30240"
|
|
"l-*-30238")))
|
|
(hygiene guile)))
|
|
.
|
|
each-any))))
|
|
(if tmp-30751
|
|
(@apply
|
|
(lambda (p-30755)
|
|
(if (= lev-30695 0)
|
|
(quasiappend-30511
|
|
(map (lambda (tmp-30306-30758)
|
|
(list '#(syntax-object
|
|
"value"
|
|
((top)
|
|
#(ribcage
|
|
#(p)
|
|
#((top))
|
|
#("l-*-30304"))
|
|
#(ribcage
|
|
#(p q)
|
|
#((top) (top))
|
|
#("l-*-30293"
|
|
"l-*-30294"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top) (top))
|
|
#("l-*-30289"
|
|
"l-*-30290"))
|
|
#(ribcage
|
|
(emit quasivector
|
|
quasilist*
|
|
quasiappend
|
|
quasicons
|
|
vquasi
|
|
quasi)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("l-*-30250"
|
|
"l-*-30248"
|
|
"l-*-30246"
|
|
"l-*-30244"
|
|
"l-*-30242"
|
|
"l-*-30240"
|
|
"l-*-30238")))
|
|
(hygiene guile))
|
|
tmp-30306-30758))
|
|
p-30755)
|
|
(vquasi-30509 q-30702 lev-30695))
|
|
(quasicons-30510
|
|
(quasicons-30510
|
|
'(#(syntax-object
|
|
"quote"
|
|
((top)
|
|
#(ribcage
|
|
#(p)
|
|
#((top))
|
|
#("l-*-30304"))
|
|
#(ribcage
|
|
#(p q)
|
|
#((top) (top))
|
|
#("l-*-30293" "l-*-30294"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top) (top))
|
|
#("l-*-30289" "l-*-30290"))
|
|
#(ribcage
|
|
(emit quasivector
|
|
quasilist*
|
|
quasiappend
|
|
quasicons
|
|
vquasi
|
|
quasi)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("l-*-30250"
|
|
"l-*-30248"
|
|
"l-*-30246"
|
|
"l-*-30244"
|
|
"l-*-30242"
|
|
"l-*-30240"
|
|
"l-*-30238")))
|
|
(hygiene guile))
|
|
#(syntax-object
|
|
unquote-splicing
|
|
((top)
|
|
#(ribcage
|
|
#(p)
|
|
#((top))
|
|
#("l-*-30304"))
|
|
#(ribcage
|
|
#(p q)
|
|
#((top) (top))
|
|
#("l-*-30293" "l-*-30294"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top) (top))
|
|
#("l-*-30289" "l-*-30290"))
|
|
#(ribcage
|
|
(emit quasivector
|
|
quasilist*
|
|
quasiappend
|
|
quasicons
|
|
vquasi
|
|
quasi)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("l-*-30250"
|
|
"l-*-30248"
|
|
"l-*-30246"
|
|
"l-*-30244"
|
|
"l-*-30242"
|
|
"l-*-30240"
|
|
"l-*-30238")))
|
|
(hygiene guile)))
|
|
(quasi-30508 p-30755 (#{1-}# lev-30695)))
|
|
(vquasi-30509 q-30702 lev-30695))))
|
|
tmp-30751)
|
|
(quasicons-30510
|
|
(quasi-30508 p-30701 lev-30695)
|
|
(vquasi-30509 q-30702 lev-30695)))))))
|
|
tmp-30697)
|
|
(let ((tmp-30776 ($sc-dispatch p-30694 '())))
|
|
(if tmp-30776
|
|
(@apply
|
|
(lambda ()
|
|
'(#(syntax-object
|
|
"quote"
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top) (top))
|
|
#("l-*-30289" "l-*-30290"))
|
|
#(ribcage
|
|
(emit quasivector
|
|
quasilist*
|
|
quasiappend
|
|
quasicons
|
|
vquasi
|
|
quasi)
|
|
((top) (top) (top) (top) (top) (top) (top))
|
|
("l-*-30250"
|
|
"l-*-30248"
|
|
"l-*-30246"
|
|
"l-*-30244"
|
|
"l-*-30242"
|
|
"l-*-30240"
|
|
"l-*-30238")))
|
|
(hygiene guile))
|
|
()))
|
|
tmp-30776)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
p-30694)))))))
|
|
(quasicons-30510
|
|
(lambda (x-30789 y-30790)
|
|
(let ((tmp-30791 (list x-30789 y-30790)))
|
|
(let ((tmp-30792 ($sc-dispatch tmp-30791 '(any any))))
|
|
(if tmp-30792
|
|
(@apply
|
|
(lambda (x-30794 y-30795)
|
|
(let ((tmp-30797
|
|
($sc-dispatch y-30795 '(#(atom "quote") any))))
|
|
(if tmp-30797
|
|
(@apply
|
|
(lambda (dy-30801)
|
|
(let ((tmp-30803
|
|
($sc-dispatch
|
|
x-30794
|
|
'(#(atom "quote") any))))
|
|
(if tmp-30803
|
|
(@apply
|
|
(lambda (dx-30807)
|
|
(list '#(syntax-object
|
|
"quote"
|
|
((top)
|
|
#(ribcage
|
|
#(dx)
|
|
#((top))
|
|
#("l-*-30328"))
|
|
#(ribcage
|
|
#(dy)
|
|
#((top))
|
|
#("l-*-30324"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x y)
|
|
#((top) (top))
|
|
#("l-*-30318" "l-*-30319"))
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x y)
|
|
#((top) (top))
|
|
#("l-*-30313" "l-*-30314"))
|
|
#(ribcage
|
|
(emit quasivector
|
|
quasilist*
|
|
quasiappend
|
|
quasicons
|
|
vquasi
|
|
quasi)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("l-*-30250"
|
|
"l-*-30248"
|
|
"l-*-30246"
|
|
"l-*-30244"
|
|
"l-*-30242"
|
|
"l-*-30240"
|
|
"l-*-30238")))
|
|
(hygiene guile))
|
|
(cons dx-30807 dy-30801)))
|
|
tmp-30803)
|
|
(if (null? dy-30801)
|
|
(list '#(syntax-object
|
|
"list"
|
|
((top)
|
|
#(ribcage
|
|
#(_)
|
|
#((top))
|
|
#("l-*-30330"))
|
|
#(ribcage
|
|
#(dy)
|
|
#((top))
|
|
#("l-*-30324"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x y)
|
|
#((top) (top))
|
|
#("l-*-30318" "l-*-30319"))
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x y)
|
|
#((top) (top))
|
|
#("l-*-30313" "l-*-30314"))
|
|
#(ribcage
|
|
(emit quasivector
|
|
quasilist*
|
|
quasiappend
|
|
quasicons
|
|
vquasi
|
|
quasi)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("l-*-30250"
|
|
"l-*-30248"
|
|
"l-*-30246"
|
|
"l-*-30244"
|
|
"l-*-30242"
|
|
"l-*-30240"
|
|
"l-*-30238")))
|
|
(hygiene guile))
|
|
x-30794)
|
|
(list '#(syntax-object
|
|
"list*"
|
|
((top)
|
|
#(ribcage
|
|
#(_)
|
|
#((top))
|
|
#("l-*-30330"))
|
|
#(ribcage
|
|
#(dy)
|
|
#((top))
|
|
#("l-*-30324"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x y)
|
|
#((top) (top))
|
|
#("l-*-30318" "l-*-30319"))
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x y)
|
|
#((top) (top))
|
|
#("l-*-30313" "l-*-30314"))
|
|
#(ribcage
|
|
(emit quasivector
|
|
quasilist*
|
|
quasiappend
|
|
quasicons
|
|
vquasi
|
|
quasi)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("l-*-30250"
|
|
"l-*-30248"
|
|
"l-*-30246"
|
|
"l-*-30244"
|
|
"l-*-30242"
|
|
"l-*-30240"
|
|
"l-*-30238")))
|
|
(hygiene guile))
|
|
x-30794
|
|
y-30795)))))
|
|
tmp-30797)
|
|
(let ((tmp-30812
|
|
($sc-dispatch
|
|
y-30795
|
|
'(#(atom "list") . any))))
|
|
(if tmp-30812
|
|
(@apply
|
|
(lambda (stuff-30816)
|
|
(cons '#(syntax-object
|
|
"list"
|
|
((top)
|
|
#(ribcage
|
|
#(stuff)
|
|
#((top))
|
|
#("l-*-30333"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x y)
|
|
#((top) (top))
|
|
#("l-*-30318" "l-*-30319"))
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x y)
|
|
#((top) (top))
|
|
#("l-*-30313" "l-*-30314"))
|
|
#(ribcage
|
|
(emit quasivector
|
|
quasilist*
|
|
quasiappend
|
|
quasicons
|
|
vquasi
|
|
quasi)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("l-*-30250"
|
|
"l-*-30248"
|
|
"l-*-30246"
|
|
"l-*-30244"
|
|
"l-*-30242"
|
|
"l-*-30240"
|
|
"l-*-30238")))
|
|
(hygiene guile))
|
|
(cons x-30794 stuff-30816)))
|
|
tmp-30812)
|
|
(let ((tmp-30817
|
|
($sc-dispatch
|
|
y-30795
|
|
'(#(atom "list*") . any))))
|
|
(if tmp-30817
|
|
(@apply
|
|
(lambda (stuff-30821)
|
|
(cons '#(syntax-object
|
|
"list*"
|
|
((top)
|
|
#(ribcage
|
|
#(stuff)
|
|
#((top))
|
|
#("l-*-30336"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x y)
|
|
#((top) (top))
|
|
#("l-*-30318" "l-*-30319"))
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x y)
|
|
#((top) (top))
|
|
#("l-*-30313" "l-*-30314"))
|
|
#(ribcage
|
|
(emit quasivector
|
|
quasilist*
|
|
quasiappend
|
|
quasicons
|
|
vquasi
|
|
quasi)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("l-*-30250"
|
|
"l-*-30248"
|
|
"l-*-30246"
|
|
"l-*-30244"
|
|
"l-*-30242"
|
|
"l-*-30240"
|
|
"l-*-30238")))
|
|
(hygiene guile))
|
|
(cons x-30794 stuff-30821)))
|
|
tmp-30817)
|
|
(list '#(syntax-object
|
|
"list*"
|
|
((top)
|
|
#(ribcage
|
|
#(_)
|
|
#((top))
|
|
#("l-*-30338"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x y)
|
|
#((top) (top))
|
|
#("l-*-30318" "l-*-30319"))
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x y)
|
|
#((top) (top))
|
|
#("l-*-30313" "l-*-30314"))
|
|
#(ribcage
|
|
(emit quasivector
|
|
quasilist*
|
|
quasiappend
|
|
quasicons
|
|
vquasi
|
|
quasi)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("l-*-30250"
|
|
"l-*-30248"
|
|
"l-*-30246"
|
|
"l-*-30244"
|
|
"l-*-30242"
|
|
"l-*-30240"
|
|
"l-*-30238")))
|
|
(hygiene guile))
|
|
x-30794
|
|
y-30795))))))))
|
|
tmp-30792)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
tmp-30791))))))
|
|
(quasiappend-30511
|
|
(lambda (x-30832 y-30833)
|
|
(let ((tmp-30835
|
|
($sc-dispatch y-30833 '(#(atom "quote") ()))))
|
|
(if tmp-30835
|
|
(@apply
|
|
(lambda ()
|
|
(if (null? x-30832)
|
|
'(#(syntax-object
|
|
"quote"
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x y)
|
|
#((top) (top))
|
|
#("l-*-30342" "l-*-30343"))
|
|
#(ribcage
|
|
(emit quasivector
|
|
quasilist*
|
|
quasiappend
|
|
quasicons
|
|
vquasi
|
|
quasi)
|
|
((top) (top) (top) (top) (top) (top) (top))
|
|
("l-*-30250"
|
|
"l-*-30248"
|
|
"l-*-30246"
|
|
"l-*-30244"
|
|
"l-*-30242"
|
|
"l-*-30240"
|
|
"l-*-30238")))
|
|
(hygiene guile))
|
|
())
|
|
(if (null? (cdr x-30832))
|
|
(car x-30832)
|
|
(let ((tmp-30840 ($sc-dispatch x-30832 'each-any)))
|
|
(if tmp-30840
|
|
(@apply
|
|
(lambda (p-30844)
|
|
(cons '#(syntax-object
|
|
"append"
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(p)
|
|
#((top))
|
|
#("l-*-30354"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x y)
|
|
#((top) (top))
|
|
#("l-*-30342" "l-*-30343"))
|
|
#(ribcage
|
|
(emit quasivector
|
|
quasilist*
|
|
quasiappend
|
|
quasicons
|
|
vquasi
|
|
quasi)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("l-*-30250"
|
|
"l-*-30248"
|
|
"l-*-30246"
|
|
"l-*-30244"
|
|
"l-*-30242"
|
|
"l-*-30240"
|
|
"l-*-30238")))
|
|
(hygiene guile))
|
|
p-30844))
|
|
tmp-30840)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
x-30832))))))
|
|
tmp-30835)
|
|
(if (null? x-30832)
|
|
y-30833
|
|
(let ((tmp-30852 (list x-30832 y-30833)))
|
|
(let ((tmp-30853
|
|
($sc-dispatch tmp-30852 '(each-any any))))
|
|
(if tmp-30853
|
|
(@apply
|
|
(lambda (p-30855 y-30856)
|
|
(cons '#(syntax-object
|
|
"append"
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(p y)
|
|
#((top) (top))
|
|
#("l-*-30365" "l-*-30366"))
|
|
#(ribcage #(_) #((top)) #("l-*-30357"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x y)
|
|
#((top) (top))
|
|
#("l-*-30342" "l-*-30343"))
|
|
#(ribcage
|
|
(emit quasivector
|
|
quasilist*
|
|
quasiappend
|
|
quasicons
|
|
vquasi
|
|
quasi)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("l-*-30250"
|
|
"l-*-30248"
|
|
"l-*-30246"
|
|
"l-*-30244"
|
|
"l-*-30242"
|
|
"l-*-30240"
|
|
"l-*-30238")))
|
|
(hygiene guile))
|
|
(append p-30855 (list y-30856))))
|
|
tmp-30853)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
tmp-30852)))))))))
|
|
(quasilist*-30512
|
|
(lambda (x-30860 y-30861)
|
|
(letrec*
|
|
((f-30862
|
|
(lambda (x-30951)
|
|
(if (null? x-30951)
|
|
y-30861
|
|
(quasicons-30510
|
|
(car x-30951)
|
|
(f-30862 (cdr x-30951)))))))
|
|
(f-30862 x-30860))))
|
|
(emit-30514
|
|
(lambda (x-30954)
|
|
(let ((tmp-30956
|
|
($sc-dispatch x-30954 '(#(atom "quote") any))))
|
|
(if tmp-30956
|
|
(@apply
|
|
(lambda (x-30960)
|
|
(list '#(syntax-object
|
|
quote
|
|
((top)
|
|
#(ribcage #(x) #((top)) #("l-*-30432"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("l-*-30429"))
|
|
#(ribcage
|
|
(emit quasivector
|
|
quasilist*
|
|
quasiappend
|
|
quasicons
|
|
vquasi
|
|
quasi)
|
|
((top) (top) (top) (top) (top) (top) (top))
|
|
("l-*-30250"
|
|
"l-*-30248"
|
|
"l-*-30246"
|
|
"l-*-30244"
|
|
"l-*-30242"
|
|
"l-*-30240"
|
|
"l-*-30238")))
|
|
(hygiene guile))
|
|
x-30960))
|
|
tmp-30956)
|
|
(let ((tmp-30961
|
|
($sc-dispatch
|
|
x-30954
|
|
'(#(atom "list") . each-any))))
|
|
(if tmp-30961
|
|
(@apply
|
|
(lambda (x-30965)
|
|
(let ((tmp-30966 (map emit-30514 x-30965)))
|
|
(let ((tmp-30967 ($sc-dispatch tmp-30966 'each-any)))
|
|
(if tmp-30967
|
|
(@apply
|
|
(lambda (t-30437-30969)
|
|
(cons '#(syntax-object
|
|
list
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(t-30437)
|
|
#((m-*-30438 top))
|
|
#("l-*-30442"))
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("l-*-30435"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("l-*-30429"))
|
|
#(ribcage
|
|
(emit quasivector
|
|
quasilist*
|
|
quasiappend
|
|
quasicons
|
|
vquasi
|
|
quasi)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("l-*-30250"
|
|
"l-*-30248"
|
|
"l-*-30246"
|
|
"l-*-30244"
|
|
"l-*-30242"
|
|
"l-*-30240"
|
|
"l-*-30238")))
|
|
(hygiene guile))
|
|
t-30437-30969))
|
|
tmp-30967)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
tmp-30966)))))
|
|
tmp-30961)
|
|
(let ((tmp-30970
|
|
($sc-dispatch
|
|
x-30954
|
|
'(#(atom "list*") . #(each+ any (any) ())))))
|
|
(if tmp-30970
|
|
(@apply
|
|
(lambda (x-30974 y-30975)
|
|
(letrec*
|
|
((f-30976
|
|
(lambda (x*-30979)
|
|
(if (null? x*-30979)
|
|
(emit-30514 y-30975)
|
|
(let ((tmp-30980
|
|
(list (emit-30514 (car x*-30979))
|
|
(f-30976 (cdr x*-30979)))))
|
|
(let ((tmp-30981
|
|
($sc-dispatch
|
|
tmp-30980
|
|
'(any any))))
|
|
(if tmp-30981
|
|
(@apply
|
|
(lambda (t-30457-30983
|
|
t-30456-30984)
|
|
(list '#(syntax-object
|
|
cons
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(t-30457 t-30456)
|
|
#((m-*-30458 top)
|
|
(m-*-30458 top))
|
|
#("l-*-30462"
|
|
"l-*-30463"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(f x*)
|
|
#((top) (top))
|
|
#("l-*-30451"
|
|
"l-*-30452"))
|
|
#(ribcage
|
|
#(x y)
|
|
#((top) (top))
|
|
#("l-*-30447"
|
|
"l-*-30448"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("l-*-30429"))
|
|
#(ribcage
|
|
(emit quasivector
|
|
quasilist*
|
|
quasiappend
|
|
quasicons
|
|
vquasi
|
|
quasi)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("l-*-30250"
|
|
"l-*-30248"
|
|
"l-*-30246"
|
|
"l-*-30244"
|
|
"l-*-30242"
|
|
"l-*-30240"
|
|
"l-*-30238")))
|
|
(hygiene guile))
|
|
t-30457-30983
|
|
t-30456-30984))
|
|
tmp-30981)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
tmp-30980))))))))
|
|
(f-30976 x-30974)))
|
|
tmp-30970)
|
|
(let ((tmp-30985
|
|
($sc-dispatch
|
|
x-30954
|
|
'(#(atom "append") . each-any))))
|
|
(if tmp-30985
|
|
(@apply
|
|
(lambda (x-30989)
|
|
(let ((tmp-30990 (map emit-30514 x-30989)))
|
|
(let ((tmp-30991
|
|
($sc-dispatch tmp-30990 'each-any)))
|
|
(if tmp-30991
|
|
(@apply
|
|
(lambda (t-30469-30993)
|
|
(cons '#(syntax-object
|
|
append
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(t-30469)
|
|
#((m-*-30470 top))
|
|
#("l-*-30474"))
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("l-*-30467"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("l-*-30429"))
|
|
#(ribcage
|
|
(emit quasivector
|
|
quasilist*
|
|
quasiappend
|
|
quasicons
|
|
vquasi
|
|
quasi)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("l-*-30250"
|
|
"l-*-30248"
|
|
"l-*-30246"
|
|
"l-*-30244"
|
|
"l-*-30242"
|
|
"l-*-30240"
|
|
"l-*-30238")))
|
|
(hygiene guile))
|
|
t-30469-30993))
|
|
tmp-30991)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
tmp-30990)))))
|
|
tmp-30985)
|
|
(let ((tmp-30994
|
|
($sc-dispatch
|
|
x-30954
|
|
'(#(atom "vector") . each-any))))
|
|
(if tmp-30994
|
|
(@apply
|
|
(lambda (x-30998)
|
|
(let ((tmp-30999 (map emit-30514 x-30998)))
|
|
(let ((tmp-31000
|
|
($sc-dispatch
|
|
tmp-30999
|
|
'each-any)))
|
|
(if tmp-31000
|
|
(@apply
|
|
(lambda (t-30481-31002)
|
|
(cons '#(syntax-object
|
|
vector
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(t-30481)
|
|
#((m-*-30482 top))
|
|
#("l-*-30486"))
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("l-*-30479"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("l-*-30429"))
|
|
#(ribcage
|
|
(emit quasivector
|
|
quasilist*
|
|
quasiappend
|
|
quasicons
|
|
vquasi
|
|
quasi)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("l-*-30250"
|
|
"l-*-30248"
|
|
"l-*-30246"
|
|
"l-*-30244"
|
|
"l-*-30242"
|
|
"l-*-30240"
|
|
"l-*-30238")))
|
|
(hygiene guile))
|
|
t-30481-31002))
|
|
tmp-31000)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
tmp-30999)))))
|
|
tmp-30994)
|
|
(let ((tmp-31003
|
|
($sc-dispatch
|
|
x-30954
|
|
'(#(atom "list->vector") any))))
|
|
(if tmp-31003
|
|
(@apply
|
|
(lambda (x-31007)
|
|
(let ((tmp-31008 (emit-30514 x-31007)))
|
|
(list '#(syntax-object
|
|
list->vector
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(t-30493)
|
|
#((m-*-30494 top))
|
|
#("l-*-30497"))
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("l-*-30491"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("l-*-30429"))
|
|
#(ribcage
|
|
(emit quasivector
|
|
quasilist*
|
|
quasiappend
|
|
quasicons
|
|
vquasi
|
|
quasi)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("l-*-30250"
|
|
"l-*-30248"
|
|
"l-*-30246"
|
|
"l-*-30244"
|
|
"l-*-30242"
|
|
"l-*-30240"
|
|
"l-*-30238")))
|
|
(hygiene guile))
|
|
tmp-31008)))
|
|
tmp-31003)
|
|
(let ((tmp-31011
|
|
($sc-dispatch
|
|
x-30954
|
|
'(#(atom "value") any))))
|
|
(if tmp-31011
|
|
(@apply
|
|
(lambda (x-31015) x-31015)
|
|
tmp-31011)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
x-30954))))))))))))))))))
|
|
(lambda (x-30515)
|
|
(let ((tmp-30517 ($sc-dispatch x-30515 '(_ any))))
|
|
(if tmp-30517
|
|
(@apply
|
|
(lambda (e-30521)
|
|
(emit-30514 (quasi-30508 e-30521 0)))
|
|
tmp-30517)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
x-30515)))))))
|
|
|
|
(define include
|
|
(make-syntax-transformer
|
|
'include
|
|
'macro
|
|
(lambda (x-31070)
|
|
(letrec*
|
|
((read-file-31071
|
|
(lambda (fn-31180 k-31181)
|
|
(let ((p-31182 (open-input-file fn-31180)))
|
|
(letrec*
|
|
((f-31183
|
|
(lambda (x-31237 result-31238)
|
|
(if (eof-object? x-31237)
|
|
(begin
|
|
(close-input-port p-31182)
|
|
(reverse result-31238))
|
|
(f-31183
|
|
(read p-31182)
|
|
(cons (datum->syntax k-31181 x-31237)
|
|
result-31238))))))
|
|
(f-31183 (read p-31182) '()))))))
|
|
(let ((tmp-31073 ($sc-dispatch x-31070 '(any any))))
|
|
(if tmp-31073
|
|
(@apply
|
|
(lambda (k-31077 filename-31078)
|
|
(let ((fn-31079 (syntax->datum filename-31078)))
|
|
(let ((tmp-31080
|
|
(read-file-31071 fn-31079 filename-31078)))
|
|
(let ((tmp-31081 ($sc-dispatch tmp-31080 'each-any)))
|
|
(if tmp-31081
|
|
(@apply
|
|
(lambda (exp-31099)
|
|
(cons '#(syntax-object
|
|
begin
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage #(exp) #((top)) #("l-*-31067"))
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage #(fn) #((top)) #("l-*-31062"))
|
|
#(ribcage
|
|
#(k filename)
|
|
#((top) (top))
|
|
#("l-*-31058" "l-*-31059"))
|
|
#(ribcage
|
|
(read-file)
|
|
((top))
|
|
("l-*-31042"))
|
|
#(ribcage #(x) #((top)) #("l-*-31041")))
|
|
(hygiene guile))
|
|
exp-31099))
|
|
tmp-31081)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
tmp-31080))))))
|
|
tmp-31073)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
x-31070)))))))
|
|
|
|
(define include-from-path
|
|
(make-syntax-transformer
|
|
'include-from-path
|
|
'macro
|
|
(lambda (x-31257)
|
|
(let ((tmp-31259 ($sc-dispatch x-31257 '(any any))))
|
|
(if tmp-31259
|
|
(@apply
|
|
(lambda (k-31263 filename-31264)
|
|
(let ((fn-31265 (syntax->datum filename-31264)))
|
|
(let ((tmp-31266
|
|
(datum->syntax
|
|
filename-31264
|
|
(let ((t-31269 (%search-load-path fn-31265)))
|
|
(if t-31269
|
|
t-31269
|
|
(syntax-violation
|
|
'include-from-path
|
|
"file not found in path"
|
|
x-31257
|
|
filename-31264))))))
|
|
(list '#(syntax-object
|
|
include
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage #(fn) #((top)) #("l-*-31251"))
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage #(fn) #((top)) #("l-*-31247"))
|
|
#(ribcage
|
|
#(k filename)
|
|
#((top) (top))
|
|
#("l-*-31243" "l-*-31244"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("l-*-31240")))
|
|
(hygiene guile))
|
|
tmp-31266))))
|
|
tmp-31259)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
x-31257))))))
|
|
|
|
(define unquote
|
|
(make-syntax-transformer
|
|
'unquote
|
|
'macro
|
|
(lambda (x-31278)
|
|
(syntax-violation
|
|
'unquote
|
|
"expression not valid outside of quasiquote"
|
|
x-31278))))
|
|
|
|
(define unquote-splicing
|
|
(make-syntax-transformer
|
|
'unquote-splicing
|
|
'macro
|
|
(lambda (x-31281)
|
|
(syntax-violation
|
|
'unquote-splicing
|
|
"expression not valid outside of quasiquote"
|
|
x-31281))))
|
|
|
|
(define case
|
|
(make-syntax-transformer
|
|
'case
|
|
'macro
|
|
(lambda (x-31337)
|
|
(let ((tmp-31339
|
|
($sc-dispatch x-31337 '(_ any any . each-any))))
|
|
(if tmp-31339
|
|
(@apply
|
|
(lambda (e-31343 m1-31344 m2-31345)
|
|
(let ((tmp-31346
|
|
(letrec*
|
|
((f-31388
|
|
(lambda (clause-31391 clauses-31392)
|
|
(if (null? clauses-31392)
|
|
(let ((tmp-31394
|
|
($sc-dispatch
|
|
clause-31391
|
|
'(#(free-id
|
|
#(syntax-object
|
|
else
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(f clause clauses)
|
|
#((top) (top) (top))
|
|
#("l-*-31296"
|
|
"l-*-31297"
|
|
"l-*-31298"))
|
|
#(ribcage
|
|
#(e m1 m2)
|
|
#((top) (top) (top))
|
|
#("l-*-31286"
|
|
"l-*-31287"
|
|
"l-*-31288"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("l-*-31283")))
|
|
(hygiene guile)))
|
|
any
|
|
.
|
|
each-any))))
|
|
(if tmp-31394
|
|
(@apply
|
|
(lambda (e1-31398 e2-31399)
|
|
(cons '#(syntax-object
|
|
begin
|
|
((top)
|
|
#(ribcage
|
|
#(e1 e2)
|
|
#((top) (top))
|
|
#("l-*-31305" "l-*-31306"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(f clause clauses)
|
|
#((top) (top) (top))
|
|
#("l-*-31296"
|
|
"l-*-31297"
|
|
"l-*-31298"))
|
|
#(ribcage
|
|
#(e m1 m2)
|
|
#((top) (top) (top))
|
|
#("l-*-31286"
|
|
"l-*-31287"
|
|
"l-*-31288"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("l-*-31283")))
|
|
(hygiene guile))
|
|
(cons e1-31398 e2-31399)))
|
|
tmp-31394)
|
|
(let ((tmp-31400
|
|
($sc-dispatch
|
|
clause-31391
|
|
'(each-any any . each-any))))
|
|
(if tmp-31400
|
|
(@apply
|
|
(lambda (k-31404 e1-31405 e2-31406)
|
|
(list '#(syntax-object
|
|
if
|
|
((top)
|
|
#(ribcage
|
|
#(k e1 e2)
|
|
#((top) (top) (top))
|
|
#("l-*-31311"
|
|
"l-*-31312"
|
|
"l-*-31313"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(f clause clauses)
|
|
#((top) (top) (top))
|
|
#("l-*-31296"
|
|
"l-*-31297"
|
|
"l-*-31298"))
|
|
#(ribcage
|
|
#(e m1 m2)
|
|
#((top) (top) (top))
|
|
#("l-*-31286"
|
|
"l-*-31287"
|
|
"l-*-31288"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("l-*-31283")))
|
|
(hygiene guile))
|
|
(list '#(syntax-object
|
|
memv
|
|
((top)
|
|
#(ribcage
|
|
#(k e1 e2)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("l-*-31311"
|
|
"l-*-31312"
|
|
"l-*-31313"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(f
|
|
clause
|
|
clauses)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("l-*-31296"
|
|
"l-*-31297"
|
|
"l-*-31298"))
|
|
#(ribcage
|
|
#(e m1 m2)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("l-*-31286"
|
|
"l-*-31287"
|
|
"l-*-31288"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("l-*-31283")))
|
|
(hygiene guile))
|
|
'#(syntax-object
|
|
t
|
|
((top)
|
|
#(ribcage
|
|
#(k e1 e2)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("l-*-31311"
|
|
"l-*-31312"
|
|
"l-*-31313"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(f
|
|
clause
|
|
clauses)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("l-*-31296"
|
|
"l-*-31297"
|
|
"l-*-31298"))
|
|
#(ribcage
|
|
#(e m1 m2)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("l-*-31286"
|
|
"l-*-31287"
|
|
"l-*-31288"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("l-*-31283")))
|
|
(hygiene guile))
|
|
(list '#(syntax-object
|
|
quote
|
|
((top)
|
|
#(ribcage
|
|
#(k e1 e2)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("l-*-31311"
|
|
"l-*-31312"
|
|
"l-*-31313"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(f
|
|
clause
|
|
clauses)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("l-*-31296"
|
|
"l-*-31297"
|
|
"l-*-31298"))
|
|
#(ribcage
|
|
#(e m1 m2)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("l-*-31286"
|
|
"l-*-31287"
|
|
"l-*-31288"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("l-*-31283")))
|
|
(hygiene
|
|
guile))
|
|
k-31404))
|
|
(cons '#(syntax-object
|
|
begin
|
|
((top)
|
|
#(ribcage
|
|
#(k e1 e2)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("l-*-31311"
|
|
"l-*-31312"
|
|
"l-*-31313"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(f
|
|
clause
|
|
clauses)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("l-*-31296"
|
|
"l-*-31297"
|
|
"l-*-31298"))
|
|
#(ribcage
|
|
#(e m1 m2)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("l-*-31286"
|
|
"l-*-31287"
|
|
"l-*-31288"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("l-*-31283")))
|
|
(hygiene guile))
|
|
(cons e1-31405
|
|
e2-31406))))
|
|
tmp-31400)
|
|
(syntax-violation
|
|
'case
|
|
"bad clause"
|
|
x-31337
|
|
clause-31391)))))
|
|
(let ((tmp-31414
|
|
(f-31388
|
|
(car clauses-31392)
|
|
(cdr clauses-31392))))
|
|
(let ((tmp-31417
|
|
($sc-dispatch
|
|
clause-31391
|
|
'(each-any any . each-any))))
|
|
(if tmp-31417
|
|
(@apply
|
|
(lambda (k-31421 e1-31422 e2-31423)
|
|
(list '#(syntax-object
|
|
if
|
|
((top)
|
|
#(ribcage
|
|
#(k e1 e2)
|
|
#((top) (top) (top))
|
|
#("l-*-31327"
|
|
"l-*-31328"
|
|
"l-*-31329"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(rest)
|
|
#((top))
|
|
#("l-*-31323"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(f clause clauses)
|
|
#((top) (top) (top))
|
|
#("l-*-31296"
|
|
"l-*-31297"
|
|
"l-*-31298"))
|
|
#(ribcage
|
|
#(e m1 m2)
|
|
#((top) (top) (top))
|
|
#("l-*-31286"
|
|
"l-*-31287"
|
|
"l-*-31288"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("l-*-31283")))
|
|
(hygiene guile))
|
|
(list '#(syntax-object
|
|
memv
|
|
((top)
|
|
#(ribcage
|
|
#(k e1 e2)
|
|
#((top) (top) (top))
|
|
#("l-*-31327"
|
|
"l-*-31328"
|
|
"l-*-31329"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(rest)
|
|
#((top))
|
|
#("l-*-31323"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(f clause clauses)
|
|
#((top) (top) (top))
|
|
#("l-*-31296"
|
|
"l-*-31297"
|
|
"l-*-31298"))
|
|
#(ribcage
|
|
#(e m1 m2)
|
|
#((top) (top) (top))
|
|
#("l-*-31286"
|
|
"l-*-31287"
|
|
"l-*-31288"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("l-*-31283")))
|
|
(hygiene guile))
|
|
'#(syntax-object
|
|
t
|
|
((top)
|
|
#(ribcage
|
|
#(k e1 e2)
|
|
#((top) (top) (top))
|
|
#("l-*-31327"
|
|
"l-*-31328"
|
|
"l-*-31329"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(rest)
|
|
#((top))
|
|
#("l-*-31323"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(f clause clauses)
|
|
#((top) (top) (top))
|
|
#("l-*-31296"
|
|
"l-*-31297"
|
|
"l-*-31298"))
|
|
#(ribcage
|
|
#(e m1 m2)
|
|
#((top) (top) (top))
|
|
#("l-*-31286"
|
|
"l-*-31287"
|
|
"l-*-31288"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("l-*-31283")))
|
|
(hygiene guile))
|
|
(list '#(syntax-object
|
|
quote
|
|
((top)
|
|
#(ribcage
|
|
#(k e1 e2)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("l-*-31327"
|
|
"l-*-31328"
|
|
"l-*-31329"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(rest)
|
|
#((top))
|
|
#("l-*-31323"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(f
|
|
clause
|
|
clauses)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("l-*-31296"
|
|
"l-*-31297"
|
|
"l-*-31298"))
|
|
#(ribcage
|
|
#(e m1 m2)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("l-*-31286"
|
|
"l-*-31287"
|
|
"l-*-31288"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("l-*-31283")))
|
|
(hygiene guile))
|
|
k-31421))
|
|
(cons '#(syntax-object
|
|
begin
|
|
((top)
|
|
#(ribcage
|
|
#(k e1 e2)
|
|
#((top) (top) (top))
|
|
#("l-*-31327"
|
|
"l-*-31328"
|
|
"l-*-31329"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(rest)
|
|
#((top))
|
|
#("l-*-31323"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(f clause clauses)
|
|
#((top) (top) (top))
|
|
#("l-*-31296"
|
|
"l-*-31297"
|
|
"l-*-31298"))
|
|
#(ribcage
|
|
#(e m1 m2)
|
|
#((top) (top) (top))
|
|
#("l-*-31286"
|
|
"l-*-31287"
|
|
"l-*-31288"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("l-*-31283")))
|
|
(hygiene guile))
|
|
(cons e1-31422 e2-31423))
|
|
tmp-31414))
|
|
tmp-31417)
|
|
(syntax-violation
|
|
'case
|
|
"bad clause"
|
|
x-31337
|
|
clause-31391))))))))
|
|
(f-31388 m1-31344 m2-31345))))
|
|
(let ((body-31347 tmp-31346))
|
|
(list '#(syntax-object
|
|
let
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage #(body) #((top)) #("l-*-31294"))
|
|
#(ribcage
|
|
#(e m1 m2)
|
|
#((top) (top) (top))
|
|
#("l-*-31286" "l-*-31287" "l-*-31288"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("l-*-31283")))
|
|
(hygiene guile))
|
|
(list (list '#(syntax-object
|
|
t
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(body)
|
|
#((top))
|
|
#("l-*-31294"))
|
|
#(ribcage
|
|
#(e m1 m2)
|
|
#((top) (top) (top))
|
|
#("l-*-31286"
|
|
"l-*-31287"
|
|
"l-*-31288"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("l-*-31283")))
|
|
(hygiene guile))
|
|
e-31343))
|
|
body-31347))))
|
|
tmp-31339)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
x-31337))))))
|
|
|
|
(define make-variable-transformer
|
|
(lambda (proc-31441)
|
|
(if (procedure? proc-31441)
|
|
(letrec*
|
|
((trans-31442
|
|
(lambda (x-31448) (proc-31441 x-31448))))
|
|
(begin
|
|
(set-procedure-property!
|
|
trans-31442
|
|
'variable-transformer
|
|
#t)
|
|
trans-31442))
|
|
(error "variable transformer not a procedure"
|
|
proc-31441))))
|
|
|
|
(define identifier-syntax
|
|
(make-syntax-transformer
|
|
'identifier-syntax
|
|
'macro
|
|
(lambda (x-31480)
|
|
(let ((tmp-31482 ($sc-dispatch x-31480 '(_ any))))
|
|
(if tmp-31482
|
|
(@apply
|
|
(lambda (e-31486)
|
|
(list '#(syntax-object
|
|
lambda
|
|
((top)
|
|
#(ribcage #(e) #((top)) #("l-*-31455"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("l-*-31452")))
|
|
(hygiene guile))
|
|
'(#(syntax-object
|
|
x
|
|
((top)
|
|
#(ribcage #(e) #((top)) #("l-*-31455"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("l-*-31452")))
|
|
(hygiene guile)))
|
|
'#((#(syntax-object
|
|
macro-type
|
|
((top)
|
|
#(ribcage #(e) #((top)) #("l-*-31455"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("l-*-31452")))
|
|
(hygiene guile))
|
|
.
|
|
#(syntax-object
|
|
identifier-syntax
|
|
((top)
|
|
#(ribcage #(e) #((top)) #("l-*-31455"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("l-*-31452")))
|
|
(hygiene guile))))
|
|
(list '#(syntax-object
|
|
syntax-case
|
|
((top)
|
|
#(ribcage #(e) #((top)) #("l-*-31455"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("l-*-31452")))
|
|
(hygiene guile))
|
|
'#(syntax-object
|
|
x
|
|
((top)
|
|
#(ribcage #(e) #((top)) #("l-*-31455"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("l-*-31452")))
|
|
(hygiene guile))
|
|
'()
|
|
(list '#(syntax-object
|
|
id
|
|
((top)
|
|
#(ribcage #(e) #((top)) #("l-*-31455"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("l-*-31452")))
|
|
(hygiene guile))
|
|
'(#(syntax-object
|
|
identifier?
|
|
((top)
|
|
#(ribcage #(e) #((top)) #("l-*-31455"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("l-*-31452")))
|
|
(hygiene guile))
|
|
(#(syntax-object
|
|
syntax
|
|
((top)
|
|
#(ribcage #(e) #((top)) #("l-*-31455"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("l-*-31452")))
|
|
(hygiene guile))
|
|
#(syntax-object
|
|
id
|
|
((top)
|
|
#(ribcage #(e) #((top)) #("l-*-31455"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("l-*-31452")))
|
|
(hygiene guile))))
|
|
(list '#(syntax-object
|
|
syntax
|
|
((top)
|
|
#(ribcage
|
|
#(e)
|
|
#((top))
|
|
#("l-*-31455"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("l-*-31452")))
|
|
(hygiene guile))
|
|
e-31486))
|
|
(list '(#(syntax-object
|
|
_
|
|
((top)
|
|
#(ribcage #(e) #((top)) #("l-*-31455"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("l-*-31452")))
|
|
(hygiene guile))
|
|
#(syntax-object
|
|
x
|
|
((top)
|
|
#(ribcage #(e) #((top)) #("l-*-31455"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("l-*-31452")))
|
|
(hygiene guile))
|
|
#(syntax-object
|
|
...
|
|
((top)
|
|
#(ribcage #(e) #((top)) #("l-*-31455"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("l-*-31452")))
|
|
(hygiene guile)))
|
|
(list '#(syntax-object
|
|
syntax
|
|
((top)
|
|
#(ribcage
|
|
#(e)
|
|
#((top))
|
|
#("l-*-31455"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("l-*-31452")))
|
|
(hygiene guile))
|
|
(cons e-31486
|
|
'(#(syntax-object
|
|
x
|
|
((top)
|
|
#(ribcage
|
|
#(e)
|
|
#((top))
|
|
#("l-*-31455"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("l-*-31452")))
|
|
(hygiene guile))
|
|
#(syntax-object
|
|
...
|
|
((top)
|
|
#(ribcage
|
|
#(e)
|
|
#((top))
|
|
#("l-*-31455"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("l-*-31452")))
|
|
(hygiene guile)))))))))
|
|
tmp-31482)
|
|
(let ((tmp-31487
|
|
($sc-dispatch
|
|
x-31480
|
|
'(_ (any any)
|
|
((#(free-id
|
|
#(syntax-object
|
|
set!
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("l-*-31452")))
|
|
(hygiene guile)))
|
|
any
|
|
any)
|
|
any)))))
|
|
(if (if tmp-31487
|
|
(@apply
|
|
(lambda (id-31491
|
|
exp1-31492
|
|
var-31493
|
|
val-31494
|
|
exp2-31495)
|
|
(if (identifier? id-31491)
|
|
(identifier? var-31493)
|
|
#f))
|
|
tmp-31487)
|
|
#f)
|
|
(@apply
|
|
(lambda (id-31496
|
|
exp1-31497
|
|
var-31498
|
|
val-31499
|
|
exp2-31500)
|
|
(list '#(syntax-object
|
|
make-variable-transformer
|
|
((top)
|
|
#(ribcage
|
|
#(id exp1 var val exp2)
|
|
#((top) (top) (top) (top) (top))
|
|
#("l-*-31470"
|
|
"l-*-31471"
|
|
"l-*-31472"
|
|
"l-*-31473"
|
|
"l-*-31474"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("l-*-31452")))
|
|
(hygiene guile))
|
|
(list '#(syntax-object
|
|
lambda
|
|
((top)
|
|
#(ribcage
|
|
#(id exp1 var val exp2)
|
|
#((top) (top) (top) (top) (top))
|
|
#("l-*-31470"
|
|
"l-*-31471"
|
|
"l-*-31472"
|
|
"l-*-31473"
|
|
"l-*-31474"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("l-*-31452")))
|
|
(hygiene guile))
|
|
'(#(syntax-object
|
|
x
|
|
((top)
|
|
#(ribcage
|
|
#(id exp1 var val exp2)
|
|
#((top) (top) (top) (top) (top))
|
|
#("l-*-31470"
|
|
"l-*-31471"
|
|
"l-*-31472"
|
|
"l-*-31473"
|
|
"l-*-31474"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("l-*-31452")))
|
|
(hygiene guile)))
|
|
'#((#(syntax-object
|
|
macro-type
|
|
((top)
|
|
#(ribcage
|
|
#(id exp1 var val exp2)
|
|
#((top) (top) (top) (top) (top))
|
|
#("l-*-31470"
|
|
"l-*-31471"
|
|
"l-*-31472"
|
|
"l-*-31473"
|
|
"l-*-31474"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("l-*-31452")))
|
|
(hygiene guile))
|
|
.
|
|
#(syntax-object
|
|
variable-transformer
|
|
((top)
|
|
#(ribcage
|
|
#(id exp1 var val exp2)
|
|
#((top) (top) (top) (top) (top))
|
|
#("l-*-31470"
|
|
"l-*-31471"
|
|
"l-*-31472"
|
|
"l-*-31473"
|
|
"l-*-31474"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("l-*-31452")))
|
|
(hygiene guile))))
|
|
(list '#(syntax-object
|
|
syntax-case
|
|
((top)
|
|
#(ribcage
|
|
#(id exp1 var val exp2)
|
|
#((top) (top) (top) (top) (top))
|
|
#("l-*-31470"
|
|
"l-*-31471"
|
|
"l-*-31472"
|
|
"l-*-31473"
|
|
"l-*-31474"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("l-*-31452")))
|
|
(hygiene guile))
|
|
'#(syntax-object
|
|
x
|
|
((top)
|
|
#(ribcage
|
|
#(id exp1 var val exp2)
|
|
#((top) (top) (top) (top) (top))
|
|
#("l-*-31470"
|
|
"l-*-31471"
|
|
"l-*-31472"
|
|
"l-*-31473"
|
|
"l-*-31474"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("l-*-31452")))
|
|
(hygiene guile))
|
|
'(#(syntax-object
|
|
set!
|
|
((top)
|
|
#(ribcage
|
|
#(id exp1 var val exp2)
|
|
#((top) (top) (top) (top) (top))
|
|
#("l-*-31470"
|
|
"l-*-31471"
|
|
"l-*-31472"
|
|
"l-*-31473"
|
|
"l-*-31474"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("l-*-31452")))
|
|
(hygiene guile)))
|
|
(list (list '#(syntax-object
|
|
set!
|
|
((top)
|
|
#(ribcage
|
|
#(id exp1 var val exp2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("l-*-31470"
|
|
"l-*-31471"
|
|
"l-*-31472"
|
|
"l-*-31473"
|
|
"l-*-31474"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("l-*-31452")))
|
|
(hygiene guile))
|
|
var-31498
|
|
val-31499)
|
|
(list '#(syntax-object
|
|
syntax
|
|
((top)
|
|
#(ribcage
|
|
#(id exp1 var val exp2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("l-*-31470"
|
|
"l-*-31471"
|
|
"l-*-31472"
|
|
"l-*-31473"
|
|
"l-*-31474"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("l-*-31452")))
|
|
(hygiene guile))
|
|
exp2-31500))
|
|
(list (cons id-31496
|
|
'(#(syntax-object
|
|
x
|
|
((top)
|
|
#(ribcage
|
|
#(id exp1 var val exp2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("l-*-31470"
|
|
"l-*-31471"
|
|
"l-*-31472"
|
|
"l-*-31473"
|
|
"l-*-31474"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("l-*-31452")))
|
|
(hygiene guile))
|
|
#(syntax-object
|
|
...
|
|
((top)
|
|
#(ribcage
|
|
#(id exp1 var val exp2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("l-*-31470"
|
|
"l-*-31471"
|
|
"l-*-31472"
|
|
"l-*-31473"
|
|
"l-*-31474"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("l-*-31452")))
|
|
(hygiene guile))))
|
|
(list '#(syntax-object
|
|
syntax
|
|
((top)
|
|
#(ribcage
|
|
#(id exp1 var val exp2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("l-*-31470"
|
|
"l-*-31471"
|
|
"l-*-31472"
|
|
"l-*-31473"
|
|
"l-*-31474"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("l-*-31452")))
|
|
(hygiene guile))
|
|
(cons exp1-31497
|
|
'(#(syntax-object
|
|
x
|
|
((top)
|
|
#(ribcage
|
|
#(id
|
|
exp1
|
|
var
|
|
val
|
|
exp2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("l-*-31470"
|
|
"l-*-31471"
|
|
"l-*-31472"
|
|
"l-*-31473"
|
|
"l-*-31474"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("l-*-31452")))
|
|
(hygiene guile))
|
|
#(syntax-object
|
|
...
|
|
((top)
|
|
#(ribcage
|
|
#(id
|
|
exp1
|
|
var
|
|
val
|
|
exp2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("l-*-31470"
|
|
"l-*-31471"
|
|
"l-*-31472"
|
|
"l-*-31473"
|
|
"l-*-31474"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("l-*-31452")))
|
|
(hygiene guile))))))
|
|
(list id-31496
|
|
(list '#(syntax-object
|
|
identifier?
|
|
((top)
|
|
#(ribcage
|
|
#(id exp1 var val exp2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("l-*-31470"
|
|
"l-*-31471"
|
|
"l-*-31472"
|
|
"l-*-31473"
|
|
"l-*-31474"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("l-*-31452")))
|
|
(hygiene guile))
|
|
(list '#(syntax-object
|
|
syntax
|
|
((top)
|
|
#(ribcage
|
|
#(id
|
|
exp1
|
|
var
|
|
val
|
|
exp2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("l-*-31470"
|
|
"l-*-31471"
|
|
"l-*-31472"
|
|
"l-*-31473"
|
|
"l-*-31474"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("l-*-31452")))
|
|
(hygiene guile))
|
|
id-31496))
|
|
(list '#(syntax-object
|
|
syntax
|
|
((top)
|
|
#(ribcage
|
|
#(id exp1 var val exp2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("l-*-31470"
|
|
"l-*-31471"
|
|
"l-*-31472"
|
|
"l-*-31473"
|
|
"l-*-31474"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("l-*-31452")))
|
|
(hygiene guile))
|
|
exp1-31497))))))
|
|
tmp-31487)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
x-31480))))))))
|
|
|
|
(define define*
|
|
(make-syntax-transformer
|
|
'define*
|
|
'macro
|
|
(lambda (x-31532)
|
|
(let ((tmp-31534
|
|
($sc-dispatch
|
|
x-31532
|
|
'(_ (any . any) any . each-any))))
|
|
(if tmp-31534
|
|
(@apply
|
|
(lambda (id-31538 args-31539 b0-31540 b1-31541)
|
|
(list '#(syntax-object
|
|
define
|
|
((top)
|
|
#(ribcage
|
|
#(id args b0 b1)
|
|
#((top) (top) (top) (top))
|
|
#("l-*-31514"
|
|
"l-*-31515"
|
|
"l-*-31516"
|
|
"l-*-31517"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("l-*-31511")))
|
|
(hygiene guile))
|
|
id-31538
|
|
(cons '#(syntax-object
|
|
lambda*
|
|
((top)
|
|
#(ribcage
|
|
#(id args b0 b1)
|
|
#((top) (top) (top) (top))
|
|
#("l-*-31514"
|
|
"l-*-31515"
|
|
"l-*-31516"
|
|
"l-*-31517"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("l-*-31511")))
|
|
(hygiene guile))
|
|
(cons args-31539 (cons b0-31540 b1-31541)))))
|
|
tmp-31534)
|
|
(let ((tmp-31542 ($sc-dispatch x-31532 '(_ any any))))
|
|
(if (if tmp-31542
|
|
(@apply
|
|
(lambda (id-31546 val-31547)
|
|
(identifier?
|
|
'#(syntax-object
|
|
x
|
|
((top)
|
|
#(ribcage
|
|
#(id val)
|
|
#((top) (top))
|
|
#("l-*-31524" "l-*-31525"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("l-*-31511")))
|
|
(hygiene guile))))
|
|
tmp-31542)
|
|
#f)
|
|
(@apply
|
|
(lambda (id-31548 val-31549)
|
|
(list '#(syntax-object
|
|
define
|
|
((top)
|
|
#(ribcage
|
|
#(id val)
|
|
#((top) (top))
|
|
#("l-*-31528" "l-*-31529"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("l-*-31511")))
|
|
(hygiene guile))
|
|
id-31548
|
|
val-31549))
|
|
tmp-31542)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
x-31532))))))))
|
|
|