summaryrefslogtreecommitdiff
path: root/module/ice-9
diff options
context:
space:
mode:
authorMark H Weaver <mhw@netris.org>2012-01-26 23:55:24 -0500
committerMark H Weaver <mhw@netris.org>2012-01-27 09:52:58 -0500
commit40e92f09fc3330aa33a169ad1aa6bf458633984c (patch)
treefe90fc1469384329b9dd08b79c223957257b9b2b /module/ice-9
parentd4b5c773e46284ff1aedf0ff7a907f5a37deaf8d (diff)
downloadguile-40e92f09fc3330aa33a169ad1aa6bf458633984c.tar.gz
Fix error messages involving definition forms
* 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.
Diffstat (limited to 'module/ice-9')
-rw-r--r--module/ice-9/psyntax-pp.scm22721
-rw-r--r--module/ice-9/psyntax.scm75
2 files changed, 11471 insertions, 11325 deletions
diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm
index 2f9c0d5d0..24343d8c8 100644
--- a/module/ice-9/psyntax-pp.scm
+++ b/module/ice-9/psyntax-pp.scm
@@ -1,1243 +1,1268 @@
(eval-when (compile) (set-current-module (resolve-module (quote (guile)))))
(if #f #f)
-(let ((session-id-4447 (if #f #f))
- (transformer-environment-4508 (if #f #f)))
+(let ((session-id-6510 (if #f #f))
+ (transformer-environment-6571 (if #f #f)))
(letrec*
- ((top-level-eval-hook-4445
- (lambda (x-27176 mod-27177)
- (primitive-eval x-27176)))
- (get-global-definition-hook-4449
- (lambda (symbol-15643 module-15644)
+ ((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-15644) (current-module) #f)
+ (if (if (not module-17710) (current-module) #f)
(warn "module system is booted, we should have a module"
- symbol-15643))
- (let ((v-15645
+ symbol-17709))
+ (let ((v-17711
(module-variable
- (if module-15644
- (resolve-module (cdr module-15644))
+ (if module-17710
+ (resolve-module (cdr module-17710))
(current-module))
- symbol-15643)))
- (if v-15645
- (if (variable-bound? v-15645)
- (let ((val-15647 (variable-ref v-15645)))
- (if (macro? val-15647)
- (if (macro-type val-15647)
- (cons (macro-type val-15647)
- (macro-binding val-15647))
+ 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!-4451
- (lambda (name-15924 val-15925)
- (if (if (struct? val-15925)
- (eq? (struct-vtable val-15925)
+ (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-15932 (struct-ref val-15925 1)))
- (if (not (assq 'name meta-15932))
- (let ((v-15937
- (cons (cons 'name name-15924) meta-15932)))
- (struct-set! val-15925 1 v-15937)))))))
- (build-application-4453
- (lambda (source-15649 fun-exp-15650 arg-exps-15651)
+ (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-15649
- fun-exp-15650
- arg-exps-15651)))
- (build-conditional-4454
- (lambda (source-15657
- test-exp-15658
- then-exp-15659
- else-exp-15660)
+ 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-15657
- test-exp-15658
- then-exp-15659
- else-exp-15660)))
- (build-dynlet-4455
- (lambda (source-15667 fluids-15668 vals-15669 body-15670)
+ 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-15667
- fluids-15668
- vals-15669
- body-15670)))
- (build-lexical-reference-4456
- (lambda (type-27178 source-27179 name-27180 var-27181)
+ 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-27179
- name-27180
- var-27181)))
- (build-lexical-assignment-4457
- (lambda (source-15677 name-15678 var-15679 exp-15680)
+ source-29321
+ name-29322
+ var-29323)))
+ (build-lexical-assignment-6520
+ (lambda (source-17743 name-17744 var-17745 exp-17746)
(begin
- (if (if (struct? exp-15680)
- (eq? (struct-vtable exp-15680)
+ (if (if (struct? exp-17746)
+ (eq? (struct-vtable exp-17746)
(vector-ref %expanded-vtables 13))
#f)
- (let ((meta-15696 (struct-ref exp-15680 1)))
- (if (not (assq 'name meta-15696))
- (let ((v-15703
- (cons (cons 'name name-15678) meta-15696)))
- (struct-set! exp-15680 1 v-15703)))))
+ (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-15677
- name-15678
- var-15679
- exp-15680))))
- (analyze-variable-4458
- (lambda (mod-27187
- var-27188
- modref-cont-27189
- bare-cont-27190)
- (if (not mod-27187)
- (bare-cont-27190 var-27188)
- (let ((kind-27191 (car mod-27187))
- (mod-27192 (cdr mod-27187)))
- (if (eqv? kind-27191 'public)
- (modref-cont-27189 mod-27192 var-27188 #t)
- (if (eqv? kind-27191 'private)
- (if (not (equal? mod-27192 (module-name (current-module))))
- (modref-cont-27189 mod-27192 var-27188 #f)
- (bare-cont-27190 var-27188))
- (if (eqv? kind-27191 'bare)
- (bare-cont-27190 var-27188)
- (if (eqv? kind-27191 'hygiene)
+ 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-27192
+ mod-29334
(module-name (current-module))))
(module-variable
- (resolve-module mod-27192)
- var-27188)
+ (resolve-module mod-29334)
+ var-29330)
#f)
- (modref-cont-27189 mod-27192 var-27188 #f)
- (bare-cont-27190 var-27188))
+ (modref-cont-29331 mod-29334 var-29330 #f)
+ (bare-cont-29332 var-29330))
(syntax-violation
#f
"bad module kind"
- var-27188
- mod-27192)))))))))
- (build-global-reference-4459
- (lambda (source-27207 var-27208 mod-27209)
- (analyze-variable-4458
- mod-27209
- var-27208
- (lambda (mod-27212 var-27213 public?-27214)
+ 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-27207
- mod-27212
- var-27213
- public?-27214))
- (lambda (var-27222)
+ source-29349
+ mod-29354
+ var-29355
+ public?-29356))
+ (lambda (var-29364)
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
- source-27207
- var-27222)))))
- (build-global-assignment-4460
- (lambda (source-15712 var-15713 exp-15714 mod-15715)
+ source-29349
+ var-29364)))))
+ (build-global-assignment-6523
+ (lambda (source-17778 var-17779 exp-17780 mod-17781)
(begin
- (if (if (struct? exp-15714)
- (eq? (struct-vtable exp-15714)
+ (if (if (struct? exp-17780)
+ (eq? (struct-vtable exp-17780)
(vector-ref %expanded-vtables 13))
#f)
- (let ((meta-15731 (struct-ref exp-15714 1)))
- (if (not (assq 'name meta-15731))
- (let ((v-15738
- (cons (cons 'name var-15713) meta-15731)))
- (struct-set! exp-15714 1 v-15738)))))
- (analyze-variable-4458
- mod-15715
- var-15713
- (lambda (mod-15743 var-15744 public?-15745)
+ (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-15712
- mod-15743
- var-15744
- public?-15745
- exp-15714))
- (lambda (var-15753)
+ source-17778
+ mod-17809
+ var-17810
+ public?-17811
+ exp-17780))
+ (lambda (var-17819)
(make-struct/no-tail
(vector-ref %expanded-vtables 8)
- source-15712
- var-15753
- exp-15714))))))
- (build-global-definition-4461
- (lambda (source-27228 var-27229 exp-27230)
+ source-17778
+ var-17819
+ exp-17780))))))
+ (build-global-definition-6524
+ (lambda (source-29370 var-29371 exp-29372)
(begin
- (if (if (struct? exp-27230)
- (eq? (struct-vtable exp-27230)
+ (if (if (struct? exp-29372)
+ (eq? (struct-vtable exp-29372)
(vector-ref %expanded-vtables 13))
#f)
- (let ((meta-27246 (struct-ref exp-27230 1)))
- (if (not (assq 'name meta-27246))
- (let ((v-27253
- (cons (cons 'name var-27229) meta-27246)))
- (struct-set! exp-27230 1 v-27253)))))
+ (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-27228
- var-27229
- exp-27230))))
- (build-simple-lambda-4462
- (lambda (src-15759
- req-15760
- rest-15761
- vars-15762
- meta-15763
- exp-15764)
- (let ((body-15770
+ 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-15759
- req-15760
+ src-17825
+ req-17826
#f
- rest-15761
+ rest-17827
#f
'()
- vars-15762
- exp-15764
+ vars-17828
+ exp-17830
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
- src-15759
- meta-15763
- body-15770))))
- (build-sequence-4467
- (lambda (src-27261 exps-27262)
- (if (null? (cdr exps-27262))
- (car exps-27262)
+ 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-27261
- exps-27262))))
- (build-let-4468
- (lambda (src-15782
- ids-15783
- vars-15784
- val-exps-15785
- body-exp-15786)
+ 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!-4451
- ids-15783
- val-exps-15785)
- (if (null? vars-15784)
- body-exp-15786
+ 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-15782
- ids-15783
- vars-15784
- val-exps-15785
- body-exp-15786)))))
- (build-named-let-4469
- (lambda (src-15810
- ids-15811
- vars-15812
- val-exps-15813
- body-exp-15814)
- (let ((f-15815 (car vars-15812))
- (f-name-15816 (car ids-15811))
- (vars-15817 (cdr vars-15812))
- (ids-15818 (cdr ids-15811)))
- (let ((proc-15819
- (let ((body-15839
+ 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-15810
- ids-15818
+ src-17876
+ ids-17884
#f
#f
#f
'()
- vars-15817
- body-exp-15814
+ vars-17883
+ body-exp-17880
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
- src-15810
+ src-17876
'()
- body-15839))))
+ body-17905))))
(begin
- (if (if (struct? proc-15819)
- (eq? (struct-vtable proc-15819)
+ (if (if (struct? proc-17885)
+ (eq? (struct-vtable proc-17885)
(vector-ref %expanded-vtables 13))
#f)
- (let ((meta-15863 (struct-ref proc-15819 1)))
- (if (not (assq 'name meta-15863))
- (let ((v-15870
- (cons (cons 'name f-name-15816) meta-15863)))
- (struct-set! proc-15819 1 v-15870)))))
+ (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!-4451
- ids-15818
- val-exps-15813)
- (let ((names-15894 (list f-name-15816))
- (gensyms-15895 (list f-15815))
- (vals-15896 (list proc-15819))
- (body-15897
- (let ((fun-exp-15901
+ 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-15810
- f-name-15816
- f-15815)))
+ src-17876
+ f-name-17882
+ f-17881)))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
- src-15810
- fun-exp-15901
- val-exps-15813))))
+ src-17876
+ fun-exp-17967
+ val-exps-17879))))
(make-struct/no-tail
(vector-ref %expanded-vtables 16)
- src-15810
+ src-17876
#f
- names-15894
- gensyms-15895
- vals-15896
- body-15897)))))))
- (build-letrec-4470
- (lambda (src-15917
- in-order?-15918
- ids-15919
- vars-15920
- val-exps-15921
- body-exp-15922)
- (if (null? vars-15920)
- body-exp-15922
+ 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!-4451
- ids-15919
- val-exps-15921)
+ maybe-name-value!-6514
+ ids-17985
+ val-exps-17987)
(make-struct/no-tail
(vector-ref %expanded-vtables 16)
- src-15917
- in-order?-15918
- ids-15919
- vars-15920
- val-exps-15921
- body-exp-15922)))))
- (source-annotation-4479
- (lambda (x-15948)
- (if (if (vector? x-15948)
- (if (= (vector-length x-15948) 4)
- (eq? (vector-ref x-15948 0) 'syntax-object)
+ 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-4479 (vector-ref x-15948 1))
- (if (pair? x-15948)
- (let ((props-15963 (source-properties x-15948)))
- (if (pair? props-15963) props-15963 #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-4480
- (lambda (labels-15965 bindings-15966 r-15967)
- (if (null? labels-15965)
- r-15967
- (extend-env-4480
- (cdr labels-15965)
- (cdr bindings-15966)
- (cons (cons (car labels-15965) (car bindings-15966))
- r-15967)))))
- (extend-var-env-4481
- (lambda (labels-15968 vars-15969 r-15970)
- (if (null? labels-15968)
- r-15970
- (extend-var-env-4481
- (cdr labels-15968)
- (cdr vars-15969)
- (cons (cons (car labels-15968)
- (cons 'lexical (car vars-15969)))
- r-15970)))))
- (macros-only-env-4482
- (lambda (r-15971)
- (if (null? r-15971)
+ (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-15972 (car r-15971)))
- (if (eq? (car (cdr a-15972)) 'macro)
- (cons a-15972
- (macros-only-env-4482 (cdr r-15971)))
- (macros-only-env-4482 (cdr r-15971)))))))
- (global-extend-4484
- (lambda (type-15974 sym-15975 val-15976)
+ (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-15975
+ sym-18041
(make-syntax-transformer
- sym-15975
- type-15974
- val-15976))))
- (id?-4486
- (lambda (x-9787)
- (if (symbol? x-9787)
+ sym-18041
+ type-18040
+ val-18042))))
+ (id?-6549
+ (lambda (x-11853)
+ (if (symbol? x-11853)
#t
- (if (if (vector? x-9787)
- (if (= (vector-length x-9787) 4)
- (eq? (vector-ref x-9787 0) 'syntax-object)
+ (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-9787 1))
+ (symbol? (vector-ref x-11853 1))
#f))))
- (gen-labels-4489
- (lambda (ls-15986)
- (if (null? ls-15986)
+ (gen-labels-6552
+ (lambda (ls-18052)
+ (if (null? ls-18052)
'()
(cons (string-append
"l-"
- (session-id-4447)
+ (session-id-6510)
(symbol->string (gensym "-")))
- (gen-labels-4489 (cdr ls-15986))))))
- (make-binding-wrap-4500
- (lambda (ids-15990 labels-15991 w-15992)
- (if (null? ids-15990)
- w-15992
- (cons (car w-15992)
- (cons (let ((labelvec-15993 (list->vector labels-15991)))
- (let ((n-15994 (vector-length labelvec-15993)))
- (let ((symnamevec-15995 (make-vector n-15994))
- (marksvec-15996 (make-vector n-15994)))
+ (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-15997
- (lambda (ids-16000 i-16001)
- (if (not (null? ids-16000))
+ ((f-18063
+ (lambda (ids-18066 i-18067)
+ (if (not (null? ids-18066))
(call-with-values
(lambda ()
- (let ((x-16004 (car ids-16000)))
- (if (if (vector? x-16004)
+ (let ((x-18070 (car ids-18066)))
+ (if (if (vector? x-18070)
(if (= (vector-length
- x-16004)
+ x-18070)
4)
(eq? (vector-ref
- x-16004
+ x-18070
0)
'syntax-object)
#f)
#f)
(values
- (vector-ref x-16004 1)
- (let ((m1-16020
- (car w-15992))
- (m2-16021
+ (vector-ref x-18070 1)
+ (let ((m1-18086
+ (car w-18058))
+ (m2-18087
(car (vector-ref
- x-16004
+ x-18070
2))))
- (if (null? m2-16021)
- m1-16020
+ (if (null? m2-18087)
+ m1-18086
(append
- m1-16020
- m2-16021))))
+ m1-18086
+ m2-18087))))
(values
- x-16004
- (car w-15992)))))
- (lambda (symname-16041 marks-16042)
+ x-18070
+ (car w-18058)))))
+ (lambda (symname-18107 marks-18108)
(begin
(vector-set!
- symnamevec-15995
- i-16001
- symname-16041)
+ symnamevec-18061
+ i-18067
+ symname-18107)
(vector-set!
- marksvec-15996
- i-16001
- marks-16042)
- (f-15997
- (cdr ids-16000)
- (#{1+}# i-16001)))))))))
- (f-15997 ids-15990 0))
+ marksvec-18062
+ i-18067
+ marks-18108)
+ (f-18063
+ (cdr ids-18066)
+ (#{1+}# i-18067)))))))))
+ (f-18063 ids-18056 0))
(vector
'ribcage
- symnamevec-15995
- marksvec-15996
- labelvec-15993)))))
- (cdr w-15992))))))
- (join-wraps-4502
- (lambda (w1-16051 w2-16052)
- (let ((m1-16053 (car w1-16051))
- (s1-16054 (cdr w1-16051)))
- (if (null? m1-16053)
- (if (null? s1-16054)
- w2-16052
- (cons (car w2-16052)
- (let ((m2-16061 (cdr w2-16052)))
- (if (null? m2-16061)
- s1-16054
- (append s1-16054 m2-16061)))))
- (cons (let ((m2-16070 (car w2-16052)))
- (if (null? m2-16070)
- m1-16053
- (append m1-16053 m2-16070)))
- (let ((m2-16079 (cdr w2-16052)))
- (if (null? m2-16079)
- s1-16054
- (append s1-16054 m2-16079))))))))
- (same-marks?-4504
- (lambda (x-16084 y-16085)
- (if (eq? x-16084 y-16085)
- (eq? x-16084 y-16085)
- (if (not (null? x-16084))
- (if (not (null? y-16085))
- (if (eq? (car x-16084) (car y-16085))
- (same-marks?-4504 (cdr x-16084) (cdr y-16085))
+ 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-4505
- (lambda (id-16093 w-16094)
+ (id-var-name-6568
+ (lambda (id-18159 w-18160)
(letrec*
- ((search-16095
- (lambda (sym-16156 subst-16157 marks-16158)
- (if (null? subst-16157)
- (values #f marks-16158)
- (let ((fst-16159 (car subst-16157)))
- (if (eq? fst-16159 'shift)
- (search-16095
- sym-16156
- (cdr subst-16157)
- (cdr marks-16158))
- (let ((symnames-16161 (vector-ref fst-16159 1)))
- (if (vector? symnames-16161)
- (let ((n-16173 (vector-length symnames-16161)))
+ ((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-16174
- (lambda (i-16176)
- (if (= i-16176 n-16173)
- (search-16095
- sym-16156
- (cdr subst-16157)
- marks-16158)
+ ((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-16161
- i-16176)
- sym-16156)
- (same-marks?-4504
- marks-16158
+ symnames-18227
+ i-18242)
+ sym-18222)
+ (same-marks?-6567
+ marks-18224
(vector-ref
- (vector-ref fst-16159 2)
- i-16176))
+ (vector-ref fst-18225 2)
+ i-18242))
#f)
(values
(vector-ref
- (vector-ref fst-16159 3)
- i-16176)
- marks-16158)
- (f-16174 (#{1+}# i-16176)))))))
- (f-16174 0)))
+ (vector-ref fst-18225 3)
+ i-18242)
+ marks-18224)
+ (f-18240 (#{1+}# i-18242)))))))
+ (f-18240 0)))
(letrec*
- ((f-16209
- (lambda (symnames-16211 i-16212)
- (if (null? symnames-16211)
- (search-16095
- sym-16156
- (cdr subst-16157)
- marks-16158)
- (if (if (eq? (car symnames-16211) sym-16156)
- (same-marks?-4504
- marks-16158
+ ((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-16159 2)
- i-16212))
+ (vector-ref fst-18225 2)
+ i-18278))
#f)
(values
(list-ref
- (vector-ref fst-16159 3)
- i-16212)
- marks-16158)
- (f-16209
- (cdr symnames-16211)
- (#{1+}# i-16212)))))))
- (f-16209 symnames-16161 0))))))))))
- (if (symbol? id-16093)
- (let ((t-16098
- (search-16095
- id-16093
- (cdr w-16094)
- (car w-16094))))
- (if t-16098 t-16098 id-16093))
- (if (if (vector? id-16093)
- (if (= (vector-length id-16093) 4)
- (eq? (vector-ref id-16093 0) 'syntax-object)
+ (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-16113 (vector-ref id-16093 1))
- (w1-16114 (vector-ref id-16093 2)))
- (let ((marks-16115
- (let ((m1-16125 (car w-16094))
- (m2-16126 (car w1-16114)))
- (if (null? m2-16126)
- m1-16125
- (append m1-16125 m2-16126)))))
+ (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-16095 id-16113 (cdr w-16094) marks-16115))
- (lambda (new-id-16142 marks-16143)
- (if new-id-16142
- new-id-16142
- (let ((t-16151
- (search-16095
- id-16113
- (cdr w1-16114)
- marks-16143)))
- (if t-16151 t-16151 id-16113)))))))
+ (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-16093))))))
- (locally-bound-identifiers-4506
- (lambda (w-16234 mod-16235)
+ id-18159))))))
+ (locally-bound-identifiers-6569
+ (lambda (w-18300 mod-18301)
(letrec*
- ((scan-16236
- (lambda (subst-16241 results-16242)
- (if (null? subst-16241)
- results-16242
- (let ((fst-16243 (car subst-16241)))
- (if (eq? fst-16243 'shift)
- (scan-16236 (cdr subst-16241) results-16242)
- (let ((symnames-16245 (vector-ref fst-16243 1))
- (marks-16246 (vector-ref fst-16243 2)))
- (if (vector? symnames-16245)
- (scan-vector-rib-16238
- subst-16241
- symnames-16245
- marks-16246
- results-16242)
- (scan-list-rib-16237
- subst-16241
- symnames-16245
- marks-16246
- results-16242))))))))
- (scan-list-rib-16237
- (lambda (subst-16344
- symnames-16345
- marks-16346
- results-16347)
+ ((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-16348
- (lambda (symnames-16448 marks-16449 results-16450)
- (if (null? symnames-16448)
- (scan-16236 (cdr subst-16344) results-16450)
- (f-16348
- (cdr symnames-16448)
- (cdr marks-16449)
- (cons (wrap-4515
- (car symnames-16448)
- (let ((w-16458
- (cons (car marks-16449)
- subst-16344)))
- (cons (cons #f (car w-16458))
- (cons 'shift (cdr w-16458))))
- mod-16235)
- results-16450))))))
- (f-16348
- symnames-16345
- marks-16346
- results-16347))))
- (scan-vector-rib-16238
- (lambda (subst-16459
- symnames-16460
- marks-16461
- results-16462)
- (let ((n-16463 (vector-length symnames-16460)))
+ ((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-16464
- (lambda (i-16547 results-16548)
- (if (= i-16547 n-16463)
- (scan-16236 (cdr subst-16459) results-16548)
- (f-16464
- (#{1+}# i-16547)
- (cons (wrap-4515
- (vector-ref symnames-16460 i-16547)
- (let ((w-16556
+ ((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-16461
- i-16547)
- subst-16459)))
- (cons (cons #f (car w-16556))
- (cons 'shift (cdr w-16556))))
- mod-16235)
- results-16548))))))
- (f-16464 0 results-16462))))))
- (scan-16236 (cdr w-16234) '()))))
- (valid-bound-ids?-4512
- (lambda (ids-16557)
+ 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?-16558
- (lambda (ids-16720)
- (if (null? ids-16720)
- (null? ids-16720)
- (if (let ((x-16731 (car ids-16720)))
- (if (symbol? x-16731)
+ ((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-16731)
- (if (= (vector-length x-16731) 4)
- (eq? (vector-ref x-16731 0)
+ (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-16731 1))
+ (symbol? (vector-ref x-18797 1))
#f)))
- (all-ids?-16558 (cdr ids-16720))
+ (all-ids?-18624 (cdr ids-18786))
#f)))))
- (all-ids?-16558 ids-16557))
- (distinct-bound-ids?-4513 ids-16557)
+ (all-ids?-18624 ids-18623))
+ (distinct-bound-ids?-6576 ids-18623)
#f)))
- (distinct-bound-ids?-4513
- (lambda (ids-16859)
+ (distinct-bound-ids?-6576
+ (lambda (ids-18925)
(letrec*
- ((distinct?-16860
- (lambda (ids-16972)
- (if (null? ids-16972)
- (null? ids-16972)
- (if (not (bound-id-member?-4514
- (car ids-16972)
- (cdr ids-16972)))
- (distinct?-16860 (cdr ids-16972))
+ ((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?-16860 ids-16859))))
- (bound-id-member?-4514
- (lambda (x-17182 list-17183)
- (if (not (null? list-17183))
- (let ((t-17184
- (let ((j-17265 (car list-17183)))
- (if (if (if (vector? x-17182)
- (if (= (vector-length x-17182) 4)
- (eq? (vector-ref x-17182 0) 'syntax-object)
+ (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-17265)
- (if (= (vector-length j-17265) 4)
- (eq? (vector-ref j-17265 0) 'syntax-object)
+ (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-17182 1)
- (vector-ref j-17265 1))
- (same-marks?-4504
- (car (vector-ref x-17182 2))
- (car (vector-ref j-17265 2)))
+ (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-17182 j-17265)))))
- (if t-17184
- t-17184
- (bound-id-member?-4514 x-17182 (cdr list-17183))))
+ (eq? x-19248 j-19331)))))
+ (if t-19250
+ t-19250
+ (bound-id-member?-6577 x-19248 (cdr list-19249))))
#f)))
- (wrap-4515
- (lambda (x-17309 w-17310 defmod-17311)
- (if (if (null? (car w-17310))
- (null? (cdr w-17310))
+ (wrap-6578
+ (lambda (x-19375 w-19376 defmod-19377)
+ (if (if (null? (car w-19376))
+ (null? (cdr w-19376))
#f)
- x-17309
- (if (if (vector? x-17309)
- (if (= (vector-length x-17309) 4)
- (eq? (vector-ref x-17309 0) 'syntax-object)
+ 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-17325 (vector-ref x-17309 1))
- (wrap-17326
- (join-wraps-4502 w-17310 (vector-ref x-17309 2)))
- (module-17327 (vector-ref x-17309 3)))
+ (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-17325
- wrap-17326
- module-17327))
- (if (null? x-17309)
- x-17309
+ expression-19391
+ wrap-19392
+ module-19393))
+ (if (null? x-19375)
+ x-19375
(vector
'syntax-object
- x-17309
- w-17310
- defmod-17311))))))
- (source-wrap-4516
- (lambda (x-17344 w-17345 s-17346 defmod-17347)
- (wrap-4515
+ 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-17344) s-17346 #f)
- (set-source-properties! x-17344 s-17346))
- x-17344)
- w-17345
- defmod-17347)))
- (expand-sequence-4517
- (lambda (body-27267 r-27268 w-27269 s-27270 mod-27271)
- (build-sequence-4467
- s-27270
+ (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-27351
- (lambda (body-27701 r-27702 w-27703 mod-27704)
- (if (null? body-27701)
+ ((dobody-29493
+ (lambda (body-29833 r-29834 w-29835 mod-29836)
+ (if (null? body-29833)
'()
- (let ((first-27705
- (let ((e-27709 (car body-27701)))
+ (let ((first-29837
+ (let ((e-29841 (car body-29833)))
(call-with-values
(lambda ()
- (syntax-type-4521
- e-27709
- r-27702
- w-27703
- (source-annotation-4479 e-27709)
+ (syntax-type-6584
+ e-29841
+ r-29834
+ w-29835
+ (source-annotation-6542 e-29841)
#f
- mod-27704
+ mod-29836
#f))
- (lambda (type-27716
- value-27717
- e-27718
- w-27719
- s-27720
- mod-27721)
- (expand-expr-4523
- type-27716
- value-27717
- e-27718
- r-27702
- w-27719
- s-27720
- mod-27721))))))
- (cons first-27705
- (dobody-27351
- (cdr body-27701)
- r-27702
- w-27703
- mod-27704)))))))
- (dobody-27351
- body-27267
- r-27268
- w-27269
- mod-27271)))))
- (expand-top-sequence-4518
- (lambda (body-17365
- r-17366
- w-17367
- s-17368
- m-17369
- esew-17370
- mod-17371)
+ (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-17372
- (lambda (body-17503
- r-17504
- w-17505
- s-17506
- m-17507
- esew-17508
- mod-17509
- exps-17510)
- (if (null? body-17503)
- exps-17510
+ ((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-17511 (car body-17503)))
- (syntax-type-4521
- e-17511
- r-17504
- w-17505
- (let ((t-17515 (source-annotation-4479 e-17511)))
- (if t-17515 t-17515 s-17506))
+ (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-17509
+ mod-19575
#f)))
- (lambda (type-17750
- value-17751
- e-17752
- w-17753
- s-17754
- mod-17755)
- (if (eqv? type-17750 'begin-form)
- (let ((tmp-17760 ($sc-dispatch e-17752 '(_))))
- (if tmp-17760
- (@apply (lambda () exps-17510) tmp-17760)
- (let ((tmp-17764
+ (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-17752
+ e-19819
'(_ any . each-any))))
- (if tmp-17764
+ (if tmp-19831
(@apply
- (lambda (e1-17768 e2-17769)
- (scan-17372
- (cons e1-17768 e2-17769)
- r-17504
- w-17753
- s-17754
- m-17507
- esew-17508
- mod-17755
- exps-17510))
- tmp-17764)
+ (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-17752)))))
- (if (eqv? type-17750 'local-syntax-form)
- (expand-local-syntax-4527
- value-17751
- e-17752
- r-17504
- w-17753
- s-17754
- mod-17755
- (lambda (body-17784
- r-17785
- w-17786
- s-17787
- mod-17788)
- (scan-17372
- body-17784
- r-17785
- w-17786
- s-17787
- m-17507
- esew-17508
- mod-17788
- exps-17510)))
- (if (eqv? type-17750 'eval-when-form)
- (let ((tmp-17793
+ 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-17752
+ e-19819
'(_ each-any any . each-any))))
- (if tmp-17793
+ (if tmp-19860
(@apply
- (lambda (x-17797 e1-17798 e2-17799)
- (let ((when-list-17800
- (parse-when-list-4520
- e-17752
- x-17797))
- (body-17801
- (cons e1-17798 e2-17799)))
- (if (eq? m-17507 'e)
- (if (memq 'eval when-list-17800)
- (scan-17372
- body-17801
- r-17504
- w-17753
- s-17754
+ (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-17800)
+ when-list-19867)
'c&e
'e)
'(eval)
- mod-17755
- exps-17510)
+ mod-19822
+ exps-19576)
(begin
(if (memq 'expand
- when-list-17800)
- (let ((x-17878
- (expand-top-sequence-4518
- body-17801
- r-17504
- w-17753
- s-17754
+ when-list-19867)
+ (let ((x-19945
+ (expand-top-sequence-6581
+ body-19868
+ r-19570
+ w-19820
+ s-19821
'e
'(eval)
- mod-17755)))
- (primitive-eval x-17878)))
- exps-17510))
- (if (memq 'load when-list-17800)
- (if (let ((t-17904
+ mod-19822)))
+ (primitive-eval x-19945)))
+ exps-19576))
+ (if (memq 'load when-list-19867)
+ (if (let ((t-19971
(memq 'compile
- when-list-17800)))
- (if t-17904
- t-17904
- (let ((t-17953
+ when-list-19867)))
+ (if t-19971
+ t-19971
+ (let ((t-20020
(memq 'expand
- when-list-17800)))
- (if t-17953
- t-17953
- (if (eq? m-17507
+ when-list-19867)))
+ (if t-20020
+ t-20020
+ (if (eq? m-19573
'c&e)
(memq 'eval
- when-list-17800)
+ when-list-19867)
#f)))))
- (scan-17372
- body-17801
- r-17504
- w-17753
- s-17754
+ (scan-19438
+ body-19868
+ r-19570
+ w-19820
+ s-19821
'c&e
'(compile load)
- mod-17755
- exps-17510)
- (if (if (eq? m-17507 'c)
+ mod-19822
+ exps-19576)
+ (if (if (eq? m-19573 'c)
#t
- (eq? m-17507 'c&e))
- (scan-17372
- body-17801
- r-17504
- w-17753
- s-17754
+ (eq? m-19573 'c&e))
+ (scan-19438
+ body-19868
+ r-19570
+ w-19820
+ s-19821
'c
'(load)
- mod-17755
- exps-17510)
- exps-17510))
- (if (let ((t-18082
+ mod-19822
+ exps-19576)
+ exps-19576))
+ (if (let ((t-20149
(memq 'compile
- when-list-17800)))
- (if t-18082
- t-18082
- (let ((t-18131
+ when-list-19867)))
+ (if t-20149
+ t-20149
+ (let ((t-20198
(memq 'expand
- when-list-17800)))
- (if t-18131
- t-18131
- (if (eq? m-17507
+ when-list-19867)))
+ (if t-20198
+ t-20198
+ (if (eq? m-19573
'c&e)
(memq 'eval
- when-list-17800)
+ when-list-19867)
#f)))))
(begin
- (let ((x-18255
- (expand-top-sequence-4518
- body-17801
- r-17504
- w-17753
- s-17754
+ (let ((x-20322
+ (expand-top-sequence-6581
+ body-19868
+ r-19570
+ w-19820
+ s-19821
'e
'(eval)
- mod-17755)))
- (primitive-eval x-18255))
- exps-17510)
- exps-17510)))))
- tmp-17793)
+ mod-19822)))
+ (primitive-eval x-20322))
+ exps-19576)
+ exps-19576)))))
+ tmp-19860)
(syntax-violation
#f
"source expression failed to match any pattern"
- e-17752)))
- (if (if (eqv? type-17750 'define-syntax-form)
+ e-19819)))
+ (if (if (eqv? type-19816 'define-syntax-form)
#t
- (eqv? type-17750
+ (eqv? type-19816
'define-syntax-parameter-form))
- (let ((n-18301
- (id-var-name-4505
- value-17751
- w-17753))
- (r-18302
- (macros-only-env-4482 r-17504)))
- (if (eqv? m-17507 'c)
- (if (memq 'compile esew-17508)
- (let ((e-18306
- (expand-install-global-4519
- n-18301
- (expand-4522
- e-17752
- r-18302
- w-17753
- mod-17755))))
+ (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-4445
- e-18306
- mod-17755)
- (if (memq 'load esew-17508)
- (cons e-18306 exps-17510)
- exps-17510)))
- (if (memq 'load esew-17508)
- (cons (expand-install-global-4519
- n-18301
- (expand-4522
- e-17752
- r-18302
- w-17753
- mod-17755))
- exps-17510)
- exps-17510))
- (if (eqv? m-17507 'c&e)
- (let ((e-18948
- (expand-install-global-4519
- n-18301
- (expand-4522
- e-17752
- r-18302
- w-17753
- mod-17755))))
+ (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-4445
- e-18948
- mod-17755)
- (cons e-18948 exps-17510)))
+ (top-level-eval-hook-6508
+ e-21015
+ mod-19822)
+ (cons e-21015 exps-19576)))
(begin
- (if (memq 'eval esew-17508)
- (top-level-eval-hook-4445
- (expand-install-global-4519
- n-18301
- (expand-4522
- e-17752
- r-18302
- w-17753
- mod-17755))
- mod-17755))
- exps-17510))))
- (if (eqv? type-17750 'define-form)
- (let ((n-19622
- (id-var-name-4505
- value-17751
- w-17753)))
- (let ((type-19623
- (car (let ((t-19630
- (assq n-19622
- r-17504)))
- (if t-19630
- (cdr t-19630)
- (if (symbol? n-19622)
- (let ((t-19636
- (get-global-definition-hook-4449
- n-19622
- mod-17755)))
- (if t-19636
- t-19636
+ (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-19623 'global)
+ (if (if (eqv? type-21690 'global)
#t
- (if (eqv? type-19623 'core)
+ (if (eqv? type-21690 'core)
#t
- (if (eqv? type-19623 'macro)
+ (if (eqv? type-21690 'macro)
#t
- (eqv? type-19623
+ (eqv? type-21690
'module-ref))))
(begin
- (if (if (if (eq? m-17507 'c)
+ (if (if (if (eq? m-19573 'c)
#t
- (eq? m-17507 'c&e))
+ (eq? m-19573 'c&e))
(if (not (module-local-variable
(current-module)
- n-19622))
+ n-21689))
(current-module)
#f)
#f)
- (let ((old-19667
+ (let ((old-21734
(module-variable
(current-module)
- n-19622)))
- (if (if (variable? old-19667)
+ n-21689)))
+ (if (if (variable? old-21734)
(variable-bound?
- old-19667)
+ old-21734)
#f)
(module-define!
(current-module)
- n-19622
- (variable-ref old-19667))
+ n-21689
+ (variable-ref old-21734))
(module-add!
(current-module)
- n-19622
+ n-21689
(make-undefined-variable)))))
- (cons (if (eq? m-17507 'c&e)
- (let ((x-20108
- (build-global-definition-4461
- s-17754
- n-19622
- (expand-4522
- e-17752
- r-17504
- w-17753
- mod-17755))))
+ (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-4445
- x-20108
- mod-17755)
- x-20108))
+ (top-level-eval-hook-6508
+ x-22175
+ mod-19822)
+ x-22175))
(lambda ()
- (build-global-definition-4461
- s-17754
- n-19622
- (expand-4522
- e-17752
- r-17504
- w-17753
- mod-17755))))
- exps-17510))
- (if (eqv? type-19623
+ (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"
- e-17752
- (wrap-4515
- value-17751
- w-17753
- mod-17755))
+ (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"
- e-17752
- (wrap-4515
- value-17751
- w-17753
- mod-17755))))))
- (cons (if (eq? m-17507 'c&e)
- (let ((x-20563
- (expand-expr-4523
- type-17750
- value-17751
- e-17752
- r-17504
- w-17753
- s-17754
- mod-17755)))
+ (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-20563)
- x-20563))
+ (primitive-eval x-22674)
+ x-22674))
(lambda ()
- (expand-expr-4523
- type-17750
- value-17751
- e-17752
- r-17504
- w-17753
- s-17754
- mod-17755)))
- exps-17510)))))))))
- (lambda (exps-20568)
- (scan-17372
- (cdr body-17503)
- r-17504
- w-17505
- s-17506
- m-17507
- esew-17508
- mod-17509
- exps-20568)))))))
+ (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-17372
- body-17365
- r-17366
- w-17367
- s-17368
- m-17369
- esew-17370
- mod-17371
+ (scan-19438
+ body-19431
+ r-19432
+ w-19433
+ s-19434
+ m-19435
+ esew-19436
+ mod-19437
'()))
- (lambda (exps-17375)
- (if (null? exps-17375)
+ (lambda (exps-19441)
+ (if (null? exps-19441)
(make-struct/no-tail
(vector-ref %expanded-vtables 0)
- s-17368)
- (build-sequence-4467
- s-17368
+ s-19434)
+ (build-sequence-6530
+ s-19434
(letrec*
- ((lp-17415
- (lambda (in-17499 out-17500)
- (if (null? in-17499)
- out-17500
- (let ((e-17501 (car in-17499)))
- (lp-17415
- (cdr in-17499)
- (cons (if (procedure? e-17501)
- (e-17501)
- e-17501)
- out-17500)))))))
- (lp-17415 exps-17375 '())))))))))
- (expand-install-global-4519
- (lambda (name-20569 e-20570)
- (let ((exp-20576
- (let ((fun-exp-20586
+ ((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)
@@ -1249,382 +1274,398 @@
'(guile)
'make-syntax-transformer
#f)))
- (arg-exps-20587
+ (arg-exps-22698
(list (make-struct/no-tail
(vector-ref %expanded-vtables 1)
#f
- name-20569)
+ name-22680)
(make-struct/no-tail
(vector-ref %expanded-vtables 1)
#f
'macro)
- e-20570)))
+ e-22681)))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
#f
- fun-exp-20586
- arg-exps-20587))))
+ fun-exp-22697
+ arg-exps-22698))))
(begin
- (if (if (struct? exp-20576)
- (eq? (struct-vtable exp-20576)
+ (if (if (struct? exp-22687)
+ (eq? (struct-vtable exp-22687)
(vector-ref %expanded-vtables 13))
#f)
- (let ((meta-20628 (struct-ref exp-20576 1)))
- (if (not (assq 'name meta-20628))
- (let ((v-20635
- (cons (cons 'name name-20569) meta-20628)))
- (struct-set! exp-20576 1 v-20635)))))
+ (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-20569
- exp-20576)))))
- (parse-when-list-4520
- (lambda (e-20646 when-list-20647)
- (let ((result-20648 (strip-4535 when-list-20647 '(()))))
+ name-22680
+ exp-22687)))))
+ (parse-when-list-6583
+ (lambda (e-22757 when-list-22758)
+ (let ((result-22759 (strip-6598 when-list-22758 '(()))))
(letrec*
- ((lp-20649
- (lambda (l-20703)
- (if (null? l-20703)
- result-20648
- (if (let ((t-20705 (car l-20703)))
- (if (eq? t-20705 'compile)
+ ((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-20705 'load)
+ (if (eq? t-22816 'load)
#t
- (if (eq? t-20705 'eval)
+ (if (eq? t-22816 'eval)
#t
- (eq? t-20705 'expand)))))
- (lp-20649 (cdr l-20703))
+ (eq? t-22816 'expand)))))
+ (lp-22760 (cdr l-22814))
(syntax-violation
'eval-when
"invalid situation"
- e-20646
- (car l-20703)))))))
- (lp-20649 result-20648)))))
- (syntax-type-4521
- (lambda (e-20707
- r-20708
- w-20709
- s-20710
- rib-20711
- mod-20712
- for-car?-20713)
- (if (symbol? e-20707)
- (let ((n-20714 (id-var-name-4505 e-20707 w-20709)))
- (let ((b-20715
- (let ((t-20723 (assq n-20714 r-20708)))
- (if t-20723
- (cdr t-20723)
- (if (symbol? n-20714)
- (let ((t-20729
- (get-global-definition-hook-4449
- n-20714
- mod-20712)))
- (if t-20729 t-20729 '(global)))
+ 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-20716 (car b-20715)))
- (if (eqv? type-20716 'lexical)
+ (let ((type-22827 (car b-22826)))
+ (if (eqv? type-22827 'lexical)
(values
- type-20716
- (cdr b-20715)
- e-20707
- w-20709
- s-20710
- mod-20712)
- (if (eqv? type-20716 'global)
+ type-22827
+ (cdr b-22826)
+ e-22818
+ e-22818
+ w-22820
+ s-22821
+ mod-22823)
+ (if (eqv? type-22827 'global)
(values
- type-20716
- n-20714
- e-20707
- w-20709
- s-20710
- mod-20712)
- (if (eqv? type-20716 'macro)
- (if for-car?-20713
+ 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-20716
- (cdr b-20715)
- e-20707
- w-20709
- s-20710
- mod-20712)
- (syntax-type-4521
- (expand-macro-4525
- (cdr b-20715)
- e-20707
- r-20708
- w-20709
- s-20710
- rib-20711
- mod-20712)
- r-20708
+ 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-20710
- rib-20711
- mod-20712
+ s-22821
+ rib-22822
+ mod-22823
#f))
(values
- type-20716
- (cdr b-20715)
- e-20707
- w-20709
- s-20710
- mod-20712)))))))
- (if (pair? e-20707)
- (let ((first-20749 (car e-20707)))
+ 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-4521
- first-20749
- r-20708
- w-20709
- s-20710
- rib-20711
- mod-20712
+ (syntax-type-6584
+ first-22860
+ r-22819
+ w-22820
+ s-22821
+ rib-22822
+ mod-22823
#t))
- (lambda (ftype-20751
- fval-20752
- fe-20753
- fw-20754
- fs-20755
- fmod-20756)
- (if (eqv? ftype-20751 'lexical)
+ (lambda (ftype-22862
+ fval-22863
+ fform-22864
+ fe-22865
+ fw-22866
+ fs-22867
+ fmod-22868)
+ (if (eqv? ftype-22862 'lexical)
(values
'lexical-call
- fval-20752
- e-20707
- w-20709
- s-20710
- mod-20712)
- (if (eqv? ftype-20751 'global)
+ fval-22863
+ e-22818
+ e-22818
+ w-22820
+ s-22821
+ mod-22823)
+ (if (eqv? ftype-22862 'global)
(values
'global-call
(vector
'syntax-object
- fval-20752
- w-20709
- fmod-20756)
- e-20707
- w-20709
- s-20710
- mod-20712)
- (if (eqv? ftype-20751 'macro)
- (syntax-type-4521
- (expand-macro-4525
- fval-20752
- e-20707
- r-20708
- w-20709
- s-20710
- rib-20711
- mod-20712)
- r-20708
+ 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-20710
- rib-20711
- mod-20712
- for-car?-20713)
- (if (eqv? ftype-20751 'module-ref)
+ s-22821
+ rib-22822
+ mod-22823
+ for-car?-22824)
+ (if (eqv? ftype-22862 'module-ref)
(call-with-values
- (lambda () (fval-20752 e-20707 r-20708 w-20709))
- (lambda (e-20777
- r-20778
- w-20779
- s-20780
- mod-20781)
- (syntax-type-4521
- e-20777
- r-20778
- w-20779
- s-20780
- rib-20711
- mod-20781
- for-car?-20713)))
- (if (eqv? ftype-20751 'core)
+ (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-20752
- e-20707
- w-20709
- s-20710
- mod-20712)
- (if (eqv? ftype-20751 'local-syntax)
+ fval-22863
+ e-22818
+ e-22818
+ w-22820
+ s-22821
+ mod-22823)
+ (if (eqv? ftype-22862 'local-syntax)
(values
'local-syntax-form
- fval-20752
- e-20707
- w-20709
- s-20710
- mod-20712)
- (if (eqv? ftype-20751 'begin)
+ fval-22863
+ e-22818
+ e-22818
+ w-22820
+ s-22821
+ mod-22823)
+ (if (eqv? ftype-22862 'begin)
(values
'begin-form
#f
- e-20707
- w-20709
- s-20710
- mod-20712)
- (if (eqv? ftype-20751 'eval-when)
+ e-22818
+ e-22818
+ w-22820
+ s-22821
+ mod-22823)
+ (if (eqv? ftype-22862 'eval-when)
(values
'eval-when-form
#f
- e-20707
- w-20709
- s-20710
- mod-20712)
- (if (eqv? ftype-20751 'define)
- (let ((tmp-20798
+ e-22818
+ e-22818
+ w-22820
+ s-22821
+ mod-22823)
+ (if (eqv? ftype-22862 'define)
+ (let ((tmp-22910
($sc-dispatch
- e-20707
+ e-22818
'(_ any any))))
- (if (if tmp-20798
+ (if (if tmp-22910
(@apply
- (lambda (name-20802 val-20803)
- (if (symbol? name-20802)
+ (lambda (name-22914 val-22915)
+ (if (symbol? name-22914)
#t
- (if (if (vector? name-20802)
+ (if (if (vector? name-22914)
(if (= (vector-length
- name-20802)
+ name-22914)
4)
(eq? (vector-ref
- name-20802
+ name-22914
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- name-20802
+ name-22914
1))
#f)))
- tmp-20798)
+ tmp-22910)
#f)
(@apply
- (lambda (name-20830 val-20831)
+ (lambda (name-22942 val-22943)
(values
'define-form
- name-20830
- val-20831
- w-20709
- s-20710
- mod-20712))
- tmp-20798)
- (let ((tmp-20832
+ name-22942
+ e-22818
+ val-22943
+ w-22820
+ s-22821
+ mod-22823))
+ tmp-22910)
+ (let ((tmp-22944
($sc-dispatch
- e-20707
+ e-22818
'(_ (any . any)
any
.
each-any))))
- (if (if tmp-20832
+ (if (if tmp-22944
(@apply
- (lambda (name-20836
- args-20837
- e1-20838
- e2-20839)
+ (lambda (name-22948
+ args-22949
+ e1-22950
+ e2-22951)
(if (if (symbol?
- name-20836)
+ name-22948)
#t
(if (if (vector?
- name-20836)
+ name-22948)
(if (= (vector-length
- name-20836)
+ name-22948)
4)
(eq? (vector-ref
- name-20836
+ name-22948
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- name-20836
+ name-22948
1))
#f))
- (valid-bound-ids?-4512
+ (valid-bound-ids?-6575
(letrec*
- ((lvl-20988
- (lambda (vars-20990
- ls-20991
- w-20992)
- (if (pair? vars-20990)
- (lvl-20988
- (cdr vars-20990)
- (cons (wrap-4515
- (car vars-20990)
- w-20992
+ ((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-20991)
- w-20992)
+ ls-23103)
+ w-23104)
(if (if (symbol?
- vars-20990)
+ vars-23102)
#t
(if (if (vector?
- vars-20990)
+ vars-23102)
(if (= (vector-length
- vars-20990)
+ vars-23102)
4)
(eq? (vector-ref
- vars-20990
+ vars-23102
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- vars-20990
+ vars-23102
1))
#f))
- (cons (wrap-4515
- vars-20990
- w-20992
+ (cons (wrap-6578
+ vars-23102
+ w-23104
#f)
- ls-20991)
- (if (null? vars-20990)
- ls-20991
+ ls-23103)
+ (if (null? vars-23102)
+ ls-23103
(if (if (vector?
- vars-20990)
+ vars-23102)
(if (= (vector-length
- vars-20990)
+ vars-23102)
4)
(eq? (vector-ref
- vars-20990
+ vars-23102
0)
'syntax-object)
#f)
#f)
- (lvl-20988
+ (lvl-23100
(vector-ref
- vars-20990
+ vars-23102
1)
- ls-20991
- (join-wraps-4502
- w-20992
+ ls-23103
+ (join-wraps-6565
+ w-23104
(vector-ref
- vars-20990
+ vars-23102
2)))
- (cons vars-20990
- ls-20991))))))))
- (lvl-20988
- args-20837
+ (cons vars-23102
+ ls-23103))))))))
+ (lvl-23100
+ args-22949
'()
'(()))))
#f))
- tmp-20832)
+ tmp-22944)
#f)
(@apply
- (lambda (name-21036
- args-21037
- e1-21038
- e2-21039)
+ (lambda (name-23148
+ args-23149
+ e1-23150
+ e2-23151)
(values
'define-form
- (wrap-4515
- name-21036
- w-20709
- mod-20712)
- (let ((e-21045
+ (wrap-6578
+ name-23148
+ w-22820
+ mod-22823)
+ (wrap-6578
+ e-22818
+ w-22820
+ mod-22823)
+ (let ((e-23159
(cons '#(syntax-object
lambda
((top)
@@ -1637,10 +1678,10 @@
(top)
(top)
(top))
- #("l-*-1954"
- "l-*-1955"
- "l-*-1956"
- "l-*-1957"))
+ #("l-*-4009"
+ "l-*-4010"
+ "l-*-4011"
+ "l-*-4012"))
#(ribcage
()
()
@@ -1652,6 +1693,7 @@
#(ribcage
#(ftype
fval
+ fform
fe
fw
fs
@@ -1661,13 +1703,15 @@
(top)
(top)
(top)
+ (top)
(top))
- #("l-*-1907"
- "l-*-1908"
- "l-*-1909"
- "l-*-1910"
- "l-*-1911"
- "l-*-1912"))
+ #("l-*-3961"
+ "l-*-3962"
+ "l-*-3963"
+ "l-*-3964"
+ "l-*-3965"
+ "l-*-3966"
+ "l-*-3967"))
#(ribcage
()
()
@@ -1675,7 +1719,7 @@
#(ribcage
#(first)
#((top))
- #("l-*-1899"))
+ #("l-*-3952"))
#(ribcage
()
()
@@ -1703,13 +1747,13 @@
(top)
(top)
(top))
- #("l-*-1871"
- "l-*-1872"
- "l-*-1873"
- "l-*-1874"
- "l-*-1875"
- "l-*-1876"
- "l-*-1877"))
+ #("l-*-3924"
+ "l-*-3925"
+ "l-*-3926"
+ "l-*-3927"
+ "l-*-3928"
+ "l-*-3929"
+ "l-*-3930"))
#(ribcage
(lambda-var-list
gen-var
@@ -1991,146 +2035,146 @@
(top)
(top)
(top))
- ("l-*-476"
- "l-*-474"
- "l-*-472"
- "l-*-470"
- "l-*-468"
- "l-*-466"
- "l-*-464"
- "l-*-462"
- "l-*-460"
- "l-*-458"
- "l-*-456"
- "l-*-454"
- "l-*-452"
- "l-*-450"
- "l-*-448"
- "l-*-446"
- "l-*-444"
- "l-*-442"
- "l-*-440"
- "l-*-438"
- "l-*-436"
- "l-*-434"
- "l-*-432"
- "l-*-430"
- "l-*-428"
- "l-*-426"
- "l-*-424"
- "l-*-422"
- "l-*-420"
- "l-*-418"
- "l-*-416"
- "l-*-414"
- "l-*-412"
- "l-*-410"
- "l-*-408"
- "l-*-406"
- "l-*-404"
- "l-*-402"
- "l-*-400"
- "l-*-399"
- "l-*-397"
- "l-*-394"
- "l-*-393"
- "l-*-392"
- "l-*-390"
- "l-*-389"
- "l-*-387"
- "l-*-385"
- "l-*-383"
- "l-*-381"
- "l-*-379"
- "l-*-377"
- "l-*-375"
- "l-*-373"
- "l-*-370"
- "l-*-368"
- "l-*-367"
- "l-*-365"
- "l-*-363"
- "l-*-361"
- "l-*-359"
- "l-*-358"
- "l-*-357"
- "l-*-356"
- "l-*-354"
- "l-*-353"
- "l-*-350"
- "l-*-348"
- "l-*-346"
- "l-*-344"
- "l-*-342"
- "l-*-340"
- "l-*-338"
- "l-*-337"
- "l-*-336"
- "l-*-334"
- "l-*-332"
- "l-*-331"
- "l-*-328"
- "l-*-327"
- "l-*-325"
- "l-*-323"
- "l-*-321"
- "l-*-319"
- "l-*-317"
- "l-*-315"
- "l-*-313"
- "l-*-311"
- "l-*-309"
- "l-*-306"
- "l-*-304"
- "l-*-302"
- "l-*-300"
- "l-*-298"
- "l-*-296"
- "l-*-294"
- "l-*-292"
- "l-*-290"
- "l-*-288"
- "l-*-286"
- "l-*-284"
- "l-*-282"
- "l-*-280"
- "l-*-278"
- "l-*-276"
- "l-*-274"
- "l-*-272"
- "l-*-270"
- "l-*-268"
- "l-*-266"
- "l-*-264"
- "l-*-262"
- "l-*-260"
- "l-*-258"
- "l-*-256"
- "l-*-255"
- "l-*-254"
- "l-*-253"
- "l-*-252"
- "l-*-250"
- "l-*-248"
- "l-*-246"
- "l-*-243"
- "l-*-241"
- "l-*-239"
- "l-*-237"
- "l-*-235"
- "l-*-233"
- "l-*-231"
- "l-*-229"
- "l-*-227"
- "l-*-225"
- "l-*-223"
- "l-*-221"
- "l-*-219"
- "l-*-217"
- "l-*-215"
- "l-*-213"
- "l-*-211"
- "l-*-209"))
+ ("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
@@ -2138,77 +2182,82 @@
((top)
(top)
(top))
- ("l-*-47"
- "l-*-46"
- "l-*-45")))
+ ("l-*-2098"
+ "l-*-2097"
+ "l-*-2096")))
(hygiene
guile))
- (wrap-4515
- (cons args-21037
- (cons e1-21038
- e2-21039))
- w-20709
- mod-20712))))
+ (wrap-6578
+ (cons args-23149
+ (cons e1-23150
+ e2-23151))
+ w-22820
+ mod-22823))))
(begin
- (if (if (pair? e-21045)
- s-20710
+ (if (if (pair? e-23159)
+ s-22821
#f)
(set-source-properties!
- e-21045
- s-20710))
- e-21045))
+ e-23159
+ s-22821))
+ e-23159))
'(())
- s-20710
- mod-20712))
- tmp-20832)
- (let ((tmp-21052
+ s-22821
+ mod-22823))
+ tmp-22944)
+ (let ((tmp-23166
($sc-dispatch
- e-20707
+ e-22818
'(_ any))))
- (if (if tmp-21052
+ (if (if tmp-23166
(@apply
- (lambda (name-21056)
+ (lambda (name-23170)
(if (symbol?
- name-21056)
+ name-23170)
#t
(if (if (vector?
- name-21056)
+ name-23170)
(if (= (vector-length
- name-21056)
+ name-23170)
4)
(eq? (vector-ref
- name-21056
+ name-23170
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- name-21056
+ name-23170
1))
#f)))
- tmp-21052)
+ tmp-23166)
#f)
(@apply
- (lambda (name-21083)
+ (lambda (name-23197)
(values
'define-form
- (wrap-4515
- name-21083
- w-20709
- mod-20712)
+ (wrap-6578
+ name-23197
+ w-22820
+ mod-22823)
+ (wrap-6578
+ e-22818
+ w-22820
+ mod-22823)
'(#(syntax-object
if
((top)
#(ribcage
#(name)
#((top))
- #("l-*-1967"))
+ #("l-*-4022"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(ftype
fval
+ fform
fe
fw
fs
@@ -2218,18 +2267,20 @@
(top)
(top)
(top)
+ (top)
(top))
- #("l-*-1907"
- "l-*-1908"
- "l-*-1909"
- "l-*-1910"
- "l-*-1911"
- "l-*-1912"))
+ #("l-*-3961"
+ "l-*-3962"
+ "l-*-3963"
+ "l-*-3964"
+ "l-*-3965"
+ "l-*-3966"
+ "l-*-3967"))
#(ribcage () () ())
#(ribcage
#(first)
#((top))
- #("l-*-1899"))
+ #("l-*-3952"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage () () ())
@@ -2248,13 +2299,13 @@
(top)
(top)
(top))
- #("l-*-1871"
- "l-*-1872"
- "l-*-1873"
- "l-*-1874"
- "l-*-1875"
- "l-*-1876"
- "l-*-1877"))
+ #("l-*-3924"
+ "l-*-3925"
+ "l-*-3926"
+ "l-*-3927"
+ "l-*-3928"
+ "l-*-3929"
+ "l-*-3930"))
#(ribcage
(lambda-var-list
gen-var
@@ -2536,146 +2587,146 @@
(top)
(top)
(top))
- ("l-*-476"
- "l-*-474"
- "l-*-472"
- "l-*-470"
- "l-*-468"
- "l-*-466"
- "l-*-464"
- "l-*-462"
- "l-*-460"
- "l-*-458"
- "l-*-456"
- "l-*-454"
- "l-*-452"
- "l-*-450"
- "l-*-448"
- "l-*-446"
- "l-*-444"
- "l-*-442"
- "l-*-440"
- "l-*-438"
- "l-*-436"
- "l-*-434"
- "l-*-432"
- "l-*-430"
- "l-*-428"
- "l-*-426"
- "l-*-424"
- "l-*-422"
- "l-*-420"
- "l-*-418"
- "l-*-416"
- "l-*-414"
- "l-*-412"
- "l-*-410"
- "l-*-408"
- "l-*-406"
- "l-*-404"
- "l-*-402"
- "l-*-400"
- "l-*-399"
- "l-*-397"
- "l-*-394"
- "l-*-393"
- "l-*-392"
- "l-*-390"
- "l-*-389"
- "l-*-387"
- "l-*-385"
- "l-*-383"
- "l-*-381"
- "l-*-379"
- "l-*-377"
- "l-*-375"
- "l-*-373"
- "l-*-370"
- "l-*-368"
- "l-*-367"
- "l-*-365"
- "l-*-363"
- "l-*-361"
- "l-*-359"
- "l-*-358"
- "l-*-357"
- "l-*-356"
- "l-*-354"
- "l-*-353"
- "l-*-350"
- "l-*-348"
- "l-*-346"
- "l-*-344"
- "l-*-342"
- "l-*-340"
- "l-*-338"
- "l-*-337"
- "l-*-336"
- "l-*-334"
- "l-*-332"
- "l-*-331"
- "l-*-328"
- "l-*-327"
- "l-*-325"
- "l-*-323"
- "l-*-321"
- "l-*-319"
- "l-*-317"
- "l-*-315"
- "l-*-313"
- "l-*-311"
- "l-*-309"
- "l-*-306"
- "l-*-304"
- "l-*-302"
- "l-*-300"
- "l-*-298"
- "l-*-296"
- "l-*-294"
- "l-*-292"
- "l-*-290"
- "l-*-288"
- "l-*-286"
- "l-*-284"
- "l-*-282"
- "l-*-280"
- "l-*-278"
- "l-*-276"
- "l-*-274"
- "l-*-272"
- "l-*-270"
- "l-*-268"
- "l-*-266"
- "l-*-264"
- "l-*-262"
- "l-*-260"
- "l-*-258"
- "l-*-256"
- "l-*-255"
- "l-*-254"
- "l-*-253"
- "l-*-252"
- "l-*-250"
- "l-*-248"
- "l-*-246"
- "l-*-243"
- "l-*-241"
- "l-*-239"
- "l-*-237"
- "l-*-235"
- "l-*-233"
- "l-*-231"
- "l-*-229"
- "l-*-227"
- "l-*-225"
- "l-*-223"
- "l-*-221"
- "l-*-219"
- "l-*-217"
- "l-*-215"
- "l-*-213"
- "l-*-211"
- "l-*-209"))
+ ("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
@@ -2683,9 +2734,9 @@
((top)
(top)
(top))
- ("l-*-47"
- "l-*-46"
- "l-*-45")))
+ ("l-*-2098"
+ "l-*-2097"
+ "l-*-2096")))
(hygiene guile))
#(syntax-object
#f
@@ -2693,12 +2744,13 @@
#(ribcage
#(name)
#((top))
- #("l-*-1967"))
+ #("l-*-4022"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(ftype
fval
+ fform
fe
fw
fs
@@ -2708,18 +2760,20 @@
(top)
(top)
(top)
+ (top)
(top))
- #("l-*-1907"
- "l-*-1908"
- "l-*-1909"
- "l-*-1910"
- "l-*-1911"
- "l-*-1912"))
+ #("l-*-3961"
+ "l-*-3962"
+ "l-*-3963"
+ "l-*-3964"
+ "l-*-3965"
+ "l-*-3966"
+ "l-*-3967"))
#(ribcage () () ())
#(ribcage
#(first)
#((top))
- #("l-*-1899"))
+ #("l-*-3952"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage () () ())
@@ -2738,13 +2792,13 @@
(top)
(top)
(top))
- #("l-*-1871"
- "l-*-1872"
- "l-*-1873"
- "l-*-1874"
- "l-*-1875"
- "l-*-1876"
- "l-*-1877"))
+ #("l-*-3924"
+ "l-*-3925"
+ "l-*-3926"
+ "l-*-3927"
+ "l-*-3928"
+ "l-*-3929"
+ "l-*-3930"))
#(ribcage
(lambda-var-list
gen-var
@@ -3026,146 +3080,146 @@
(top)
(top)
(top))
- ("l-*-476"
- "l-*-474"
- "l-*-472"
- "l-*-470"
- "l-*-468"
- "l-*-466"
- "l-*-464"
- "l-*-462"
- "l-*-460"
- "l-*-458"
- "l-*-456"
- "l-*-454"
- "l-*-452"
- "l-*-450"
- "l-*-448"
- "l-*-446"
- "l-*-444"
- "l-*-442"
- "l-*-440"
- "l-*-438"
- "l-*-436"
- "l-*-434"
- "l-*-432"
- "l-*-430"
- "l-*-428"
- "l-*-426"
- "l-*-424"
- "l-*-422"
- "l-*-420"
- "l-*-418"
- "l-*-416"
- "l-*-414"
- "l-*-412"
- "l-*-410"
- "l-*-408"
- "l-*-406"
- "l-*-404"
- "l-*-402"
- "l-*-400"
- "l-*-399"
- "l-*-397"
- "l-*-394"
- "l-*-393"
- "l-*-392"
- "l-*-390"
- "l-*-389"
- "l-*-387"
- "l-*-385"
- "l-*-383"
- "l-*-381"
- "l-*-379"
- "l-*-377"
- "l-*-375"
- "l-*-373"
- "l-*-370"
- "l-*-368"
- "l-*-367"
- "l-*-365"
- "l-*-363"
- "l-*-361"
- "l-*-359"
- "l-*-358"
- "l-*-357"
- "l-*-356"
- "l-*-354"
- "l-*-353"
- "l-*-350"
- "l-*-348"
- "l-*-346"
- "l-*-344"
- "l-*-342"
- "l-*-340"
- "l-*-338"
- "l-*-337"
- "l-*-336"
- "l-*-334"
- "l-*-332"
- "l-*-331"
- "l-*-328"
- "l-*-327"
- "l-*-325"
- "l-*-323"
- "l-*-321"
- "l-*-319"
- "l-*-317"
- "l-*-315"
- "l-*-313"
- "l-*-311"
- "l-*-309"
- "l-*-306"
- "l-*-304"
- "l-*-302"
- "l-*-300"
- "l-*-298"
- "l-*-296"
- "l-*-294"
- "l-*-292"
- "l-*-290"
- "l-*-288"
- "l-*-286"
- "l-*-284"
- "l-*-282"
- "l-*-280"
- "l-*-278"
- "l-*-276"
- "l-*-274"
- "l-*-272"
- "l-*-270"
- "l-*-268"
- "l-*-266"
- "l-*-264"
- "l-*-262"
- "l-*-260"
- "l-*-258"
- "l-*-256"
- "l-*-255"
- "l-*-254"
- "l-*-253"
- "l-*-252"
- "l-*-250"
- "l-*-248"
- "l-*-246"
- "l-*-243"
- "l-*-241"
- "l-*-239"
- "l-*-237"
- "l-*-235"
- "l-*-233"
- "l-*-231"
- "l-*-229"
- "l-*-227"
- "l-*-225"
- "l-*-223"
- "l-*-221"
- "l-*-219"
- "l-*-217"
- "l-*-215"
- "l-*-213"
- "l-*-211"
- "l-*-209"))
+ ("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
@@ -3173,9 +3227,9 @@
((top)
(top)
(top))
- ("l-*-47"
- "l-*-46"
- "l-*-45")))
+ ("l-*-2098"
+ "l-*-2097"
+ "l-*-2096")))
(hygiene guile))
#(syntax-object
#f
@@ -3183,12 +3237,13 @@
#(ribcage
#(name)
#((top))
- #("l-*-1967"))
+ #("l-*-4022"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(ftype
fval
+ fform
fe
fw
fs
@@ -3198,18 +3253,20 @@
(top)
(top)
(top)
+ (top)
(top))
- #("l-*-1907"
- "l-*-1908"
- "l-*-1909"
- "l-*-1910"
- "l-*-1911"
- "l-*-1912"))
+ #("l-*-3961"
+ "l-*-3962"
+ "l-*-3963"
+ "l-*-3964"
+ "l-*-3965"
+ "l-*-3966"
+ "l-*-3967"))
#(ribcage () () ())
#(ribcage
#(first)
#((top))
- #("l-*-1899"))
+ #("l-*-3952"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage () () ())
@@ -3228,13 +3285,13 @@
(top)
(top)
(top))
- #("l-*-1871"
- "l-*-1872"
- "l-*-1873"
- "l-*-1874"
- "l-*-1875"
- "l-*-1876"
- "l-*-1877"))
+ #("l-*-3924"
+ "l-*-3925"
+ "l-*-3926"
+ "l-*-3927"
+ "l-*-3928"
+ "l-*-3929"
+ "l-*-3930"))
#(ribcage
(lambda-var-list
gen-var
@@ -3516,146 +3573,146 @@
(top)
(top)
(top))
- ("l-*-476"
- "l-*-474"
- "l-*-472"
- "l-*-470"
- "l-*-468"
- "l-*-466"
- "l-*-464"
- "l-*-462"
- "l-*-460"
- "l-*-458"
- "l-*-456"
- "l-*-454"
- "l-*-452"
- "l-*-450"
- "l-*-448"
- "l-*-446"
- "l-*-444"
- "l-*-442"
- "l-*-440"
- "l-*-438"
- "l-*-436"
- "l-*-434"
- "l-*-432"
- "l-*-430"
- "l-*-428"
- "l-*-426"
- "l-*-424"
- "l-*-422"
- "l-*-420"
- "l-*-418"
- "l-*-416"
- "l-*-414"
- "l-*-412"
- "l-*-410"
- "l-*-408"
- "l-*-406"
- "l-*-404"
- "l-*-402"
- "l-*-400"
- "l-*-399"
- "l-*-397"
- "l-*-394"
- "l-*-393"
- "l-*-392"
- "l-*-390"
- "l-*-389"
- "l-*-387"
- "l-*-385"
- "l-*-383"
- "l-*-381"
- "l-*-379"
- "l-*-377"
- "l-*-375"
- "l-*-373"
- "l-*-370"
- "l-*-368"
- "l-*-367"
- "l-*-365"
- "l-*-363"
- "l-*-361"
- "l-*-359"
- "l-*-358"
- "l-*-357"
- "l-*-356"
- "l-*-354"
- "l-*-353"
- "l-*-350"
- "l-*-348"
- "l-*-346"
- "l-*-344"
- "l-*-342"
- "l-*-340"
- "l-*-338"
- "l-*-337"
- "l-*-336"
- "l-*-334"
- "l-*-332"
- "l-*-331"
- "l-*-328"
- "l-*-327"
- "l-*-325"
- "l-*-323"
- "l-*-321"
- "l-*-319"
- "l-*-317"
- "l-*-315"
- "l-*-313"
- "l-*-311"
- "l-*-309"
- "l-*-306"
- "l-*-304"
- "l-*-302"
- "l-*-300"
- "l-*-298"
- "l-*-296"
- "l-*-294"
- "l-*-292"
- "l-*-290"
- "l-*-288"
- "l-*-286"
- "l-*-284"
- "l-*-282"
- "l-*-280"
- "l-*-278"
- "l-*-276"
- "l-*-274"
- "l-*-272"
- "l-*-270"
- "l-*-268"
- "l-*-266"
- "l-*-264"
- "l-*-262"
- "l-*-260"
- "l-*-258"
- "l-*-256"
- "l-*-255"
- "l-*-254"
- "l-*-253"
- "l-*-252"
- "l-*-250"
- "l-*-248"
- "l-*-246"
- "l-*-243"
- "l-*-241"
- "l-*-239"
- "l-*-237"
- "l-*-235"
- "l-*-233"
- "l-*-231"
- "l-*-229"
- "l-*-227"
- "l-*-225"
- "l-*-223"
- "l-*-221"
- "l-*-219"
- "l-*-217"
- "l-*-215"
- "l-*-213"
- "l-*-211"
- "l-*-209"))
+ ("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
@@ -3663,295 +3720,303 @@
((top)
(top)
(top))
- ("l-*-47"
- "l-*-46"
- "l-*-45")))
+ ("l-*-2098"
+ "l-*-2097"
+ "l-*-2096")))
(hygiene guile)))
'(())
- s-20710
- mod-20712))
- tmp-21052)
+ s-22821
+ mod-22823))
+ tmp-23166)
(syntax-violation
#f
"source expression failed to match any pattern"
- e-20707)))))))
- (if (eqv? ftype-20751 'define-syntax)
- (let ((tmp-21102
+ e-22818)))))))
+ (if (eqv? ftype-22862 'define-syntax)
+ (let ((tmp-23218
($sc-dispatch
- e-20707
+ e-22818
'(_ any any))))
- (if (if tmp-21102
+ (if (if tmp-23218
(@apply
- (lambda (name-21106 val-21107)
- (if (symbol? name-21106)
+ (lambda (name-23222 val-23223)
+ (if (symbol? name-23222)
#t
(if (if (vector?
- name-21106)
+ name-23222)
(if (= (vector-length
- name-21106)
+ name-23222)
4)
(eq? (vector-ref
- name-21106
+ name-23222
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- name-21106
+ name-23222
1))
#f)))
- tmp-21102)
+ tmp-23218)
#f)
(@apply
- (lambda (name-21134 val-21135)
+ (lambda (name-23250 val-23251)
(values
'define-syntax-form
- name-21134
- val-21135
- w-20709
- s-20710
- mod-20712))
- tmp-21102)
+ 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-20707)))
- (if (eqv? ftype-20751
+ e-22818)))
+ (if (eqv? ftype-22862
'define-syntax-parameter)
- (let ((tmp-21146
+ (let ((tmp-23262
($sc-dispatch
- e-20707
+ e-22818
'(_ any any))))
- (if (if tmp-21146
+ (if (if tmp-23262
(@apply
- (lambda (name-21150
- val-21151)
- (if (symbol? name-21150)
+ (lambda (name-23266
+ val-23267)
+ (if (symbol? name-23266)
#t
(if (if (vector?
- name-21150)
+ name-23266)
(if (= (vector-length
- name-21150)
+ name-23266)
4)
(eq? (vector-ref
- name-21150
+ name-23266
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- name-21150
+ name-23266
1))
#f)))
- tmp-21146)
+ tmp-23262)
#f)
(@apply
- (lambda (name-21178 val-21179)
+ (lambda (name-23294 val-23295)
(values
'define-syntax-parameter-form
- name-21178
- val-21179
- w-20709
- s-20710
- mod-20712))
- tmp-21146)
+ 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-20707)))
+ e-22818)))
(values
'call
#f
- e-20707
- w-20709
- s-20710
- mod-20712)))))))))))))))
- (if (if (vector? e-20707)
- (if (= (vector-length e-20707) 4)
- (eq? (vector-ref e-20707 0) 'syntax-object)
+ 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-4521
- (vector-ref e-20707 1)
- r-20708
- (join-wraps-4502 w-20709 (vector-ref e-20707 2))
- (let ((t-21206 (source-annotation-4479 e-20707)))
- (if t-21206 t-21206 s-20710))
- rib-20711
- (let ((t-21441 (vector-ref e-20707 3)))
- (if t-21441 t-21441 mod-20712))
- for-car?-20713)
- (if (self-evaluating? e-20707)
+ (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-20707
- w-20709
- s-20710
- mod-20712)
+ e-22818
+ e-22818
+ w-22820
+ s-22821
+ mod-22823)
(values
'other
#f
- e-20707
- w-20709
- s-20710
- mod-20712)))))))
- (expand-4522
- (lambda (e-21450 r-21451 w-21452 mod-21453)
+ 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-4521
- e-21450
- r-21451
- w-21452
- (source-annotation-4479 e-21450)
+ (syntax-type-6584
+ e-23566
+ r-23567
+ w-23568
+ (source-annotation-6542 e-23566)
#f
- mod-21453
+ mod-23569
#f))
- (lambda (type-21608
- value-21609
- e-21610
- w-21611
- s-21612
- mod-21613)
- (expand-expr-4523
- type-21608
- value-21609
- e-21610
- r-21451
- w-21611
- s-21612
- mod-21613)))))
- (expand-expr-4523
- (lambda (type-21616
- value-21617
- e-21618
- r-21619
- w-21620
- s-21621
- mod-21622)
- (if (eqv? type-21616 'lexical)
+ (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-21621
- e-21618
- value-21617)
- (if (if (eqv? type-21616 'core)
+ s-23739
+ e-23736
+ value-23734)
+ (if (if (eqv? type-23733 'core)
#t
- (eqv? type-21616 'core-form))
- (value-21617
- e-21618
- r-21619
- w-21620
- s-21621
- mod-21622)
- (if (eqv? type-21616 'module-ref)
+ (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-21617 e-21618 r-21619 w-21620))
- (lambda (e-21648 r-21649 w-21650 s-21651 mod-21652)
- (expand-4522 e-21648 r-21649 w-21650 mod-21652)))
- (if (eqv? type-21616 'lexical-call)
- (expand-application-4524
- (let ((id-21727 (car e-21618)))
- (build-lexical-reference-4456
+ (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-4479 id-21727)
- (if (if (vector? id-21727)
- (if (= (vector-length id-21727) 4)
- (eq? (vector-ref id-21727 0) 'syntax-object)
+ (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-21727)
- id-21727)
- value-21617))
- e-21618
- r-21619
- w-21620
- s-21621
- mod-21622)
- (if (eqv? type-21616 'global-call)
- (expand-application-4524
- (build-global-reference-4459
- (source-annotation-4479 (car e-21618))
- (if (if (vector? value-21617)
- (if (= (vector-length value-21617) 4)
- (eq? (vector-ref value-21617 0) 'syntax-object)
+ (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-21617 1)
- value-21617)
- (if (if (vector? value-21617)
- (if (= (vector-length value-21617) 4)
- (eq? (vector-ref value-21617 0) 'syntax-object)
+ (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-21617 3)
- mod-21622))
- e-21618
- r-21619
- w-21620
- s-21621
- mod-21622)
- (if (eqv? type-21616 'constant)
- (let ((exp-22064
- (strip-4535
- (wrap-4515
+ (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-21618) s-21621 #f)
- (set-source-properties! e-21618 s-21621))
- e-21618)
- w-21620
- mod-21622)
+ (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-21621
- exp-22064))
- (if (eqv? type-21616 'global)
- (analyze-variable-4458
- mod-21622
- value-21617
- (lambda (mod-22100 var-22101 public?-22102)
+ 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-21621
- mod-22100
- var-22101
- public?-22102))
- (lambda (var-22111)
+ s-23739
+ mod-24218
+ var-24219
+ public?-24220))
+ (lambda (var-24229)
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
- s-21621
- var-22111)))
- (if (eqv? type-21616 'call)
- (expand-application-4524
- (expand-4522
- (car e-21618)
- r-21619
- w-21620
- mod-21622)
- e-21618
- r-21619
- w-21620
- s-21621
- mod-21622)
- (if (eqv? type-21616 'begin-form)
- (let ((tmp-22186
- ($sc-dispatch e-21618 '(_ any . each-any))))
- (if tmp-22186
+ 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-22190 e2-22191)
- (expand-sequence-4517
- (cons e1-22190 e2-22191)
- r-21619
- w-21620
- s-21621
- mod-21622))
- tmp-22186)
- (let ((tmp-22278 ($sc-dispatch e-21618 '(_))))
- (if tmp-22278
+ (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)
@@ -3964,787 +4029,801 @@
(syntax-violation
#f
"sequence of zero expressions"
- (wrap-4515
+ (wrap-6578
(begin
- (if (if (pair? e-21618)
- s-21621
+ (if (if (pair? e-23736)
+ s-23739
#f)
(set-source-properties!
- e-21618
- s-21621))
- e-21618)
- w-21620
- mod-21622))))
- tmp-22278)
+ e-23736
+ s-23739))
+ e-23736)
+ w-23738
+ mod-23740))))
+ tmp-24396)
(syntax-violation
#f
"source expression failed to match any pattern"
- e-21618)))))
- (if (eqv? type-21616 'local-syntax-form)
- (expand-local-syntax-4527
- value-21617
- e-21618
- r-21619
- w-21620
- s-21621
- mod-21622
- expand-sequence-4517)
- (if (eqv? type-21616 'eval-when-form)
- (let ((tmp-22389
+ 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-21618
+ e-23736
'(_ each-any any . each-any))))
- (if tmp-22389
+ (if tmp-24507
(@apply
- (lambda (x-22393 e1-22394 e2-22395)
- (let ((when-list-22396
- (parse-when-list-4520
- e-21618
- x-22393)))
- (if (memq 'eval when-list-22396)
- (expand-sequence-4517
- (cons e1-22394 e2-22395)
- r-21619
- w-21620
- s-21621
- mod-21622)
+ (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-22389)
+ tmp-24507)
(syntax-violation
#f
"source expression failed to match any pattern"
- e-21618)))
- (if (if (eqv? type-21616 'define-form)
+ e-23736)))
+ (if (if (eqv? type-23733 'define-form)
#t
- (if (eqv? type-21616 'define-syntax-form)
+ (if (eqv? type-23733 'define-syntax-form)
#t
- (eqv? type-21616
+ (eqv? type-23733
'define-syntax-parameter-form)))
(syntax-violation
#f
- "definition in expression context"
- e-21618
- (wrap-4515 value-21617 w-21620 mod-21622))
- (if (eqv? type-21616 'syntax)
+ "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-4515
+ (wrap-6578
(begin
- (if (if (pair? e-21618) s-21621 #f)
+ (if (if (pair? e-23736) s-23739 #f)
(set-source-properties!
- e-21618
- s-21621))
- e-21618)
- w-21620
- mod-21622))
- (if (eqv? type-21616 'displaced-lexical)
+ 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-4515
+ (wrap-6578
(begin
- (if (if (pair? e-21618) s-21621 #f)
+ (if (if (pair? e-23736) s-23739 #f)
(set-source-properties!
- e-21618
- s-21621))
- e-21618)
- w-21620
- mod-21622))
+ e-23736
+ s-23739))
+ e-23736)
+ w-23738
+ mod-23740))
(syntax-violation
#f
"unexpected syntax"
- (wrap-4515
+ (wrap-6578
(begin
- (if (if (pair? e-21618) s-21621 #f)
+ (if (if (pair? e-23736) s-23739 #f)
(set-source-properties!
- e-21618
- s-21621))
- e-21618)
- w-21620
- mod-21622))))))))))))))))))
- (expand-application-4524
- (lambda (x-22636
- e-22637
- r-22638
- w-22639
- s-22640
- mod-22641)
- (let ((tmp-22643
- ($sc-dispatch e-22637 '(any . each-any))))
- (if tmp-22643
+ 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-22647 e1-22648)
- (build-application-4453
- s-22640
- x-22636
- (map (lambda (e-22728)
- (expand-4522 e-22728 r-22638 w-22639 mod-22641))
- e1-22648)))
- tmp-22643)
+ (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-22637)))))
- (expand-macro-4525
- (lambda (p-22804
- e-22805
- r-22806
- w-22807
- s-22808
- rib-22809
- mod-22810)
+ e-24775)))))
+ (expand-macro-6588
+ (lambda (p-24942
+ e-24943
+ r-24944
+ w-24945
+ s-24946
+ rib-24947
+ mod-24948)
(letrec*
- ((rebuild-macro-output-22811
- (lambda (x-22844 m-22845)
- (if (pair? x-22844)
- (let ((e-22849
- (cons (rebuild-macro-output-22811
- (car x-22844)
- m-22845)
- (rebuild-macro-output-22811
- (cdr x-22844)
- m-22845))))
+ ((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-22849) s-22808 #f)
- (set-source-properties! e-22849 s-22808))
- e-22849))
- (if (if (vector? x-22844)
- (if (= (vector-length x-22844) 4)
- (eq? (vector-ref x-22844 0) 'syntax-object)
+ (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-22865 (vector-ref x-22844 2)))
- (let ((ms-22866 (car w-22865))
- (s-22867 (cdr w-22865)))
- (if (if (pair? ms-22866) (eq? (car ms-22866) #f) #f)
- (let ((expression-22875 (vector-ref x-22844 1))
- (wrap-22876
- (cons (cdr ms-22866)
- (if rib-22809
- (cons rib-22809 (cdr s-22867))
- (cdr s-22867))))
- (module-22877 (vector-ref x-22844 3)))
+ (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-22875
- wrap-22876
- module-22877))
- (let ((expression-22887
- (let ((e-22892 (vector-ref x-22844 1)))
+ expression-25013
+ wrap-25014
+ module-25015))
+ (let ((expression-25025
+ (let ((e-25030 (vector-ref x-24982 1)))
(begin
- (if (if (pair? e-22892) s-22867 #f)
+ (if (if (pair? e-25030) s-25005 #f)
(set-source-properties!
- e-22892
- s-22867))
- e-22892)))
- (wrap-22888
- (cons (cons m-22845 ms-22866)
- (if rib-22809
- (cons rib-22809
- (cons 'shift s-22867))
- (cons 'shift s-22867))))
- (module-22889 (vector-ref x-22844 3)))
+ 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-22887
- wrap-22888
- module-22889)))))
- (if (vector? x-22844)
- (let ((n-22904 (vector-length x-22844)))
- (let ((v-22905
- (let ((e-22913 (make-vector n-22904)))
+ 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-22913) x-22844 #f)
- (set-source-properties! e-22913 x-22844))
- e-22913))))
+ (if (if (pair? e-25051) x-24982 #f)
+ (set-source-properties! e-25051 x-24982))
+ e-25051))))
(letrec*
- ((loop-22906
- (lambda (i-22958)
- (if (= i-22958 n-22904)
- v-22905
+ ((loop-25044
+ (lambda (i-25096)
+ (if (= i-25096 n-25042)
+ v-25043
(begin
(vector-set!
- v-22905
- i-22958
- (rebuild-macro-output-22811
- (vector-ref x-22844 i-22958)
- m-22845))
- (loop-22906 (#{1+}# i-22958)))))))
- (loop-22906 0))))
- (if (symbol? x-22844)
+ 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-22964 (cdr w-22807)))
- (wrap-4515
+ (let ((s-25102 (cdr w-24945)))
+ (wrap-6578
(begin
- (if (if (pair? e-22805) s-22964 #f)
- (set-source-properties! e-22805 s-22964))
- e-22805)
- w-22807
- mod-22810))
- x-22844)
+ (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-22844) s-22808 #f)
- (set-source-properties! x-22844 s-22808))
- x-22844))))))))
+ (if (if (pair? x-24982) s-24946 #f)
+ (set-source-properties! x-24982 s-24946))
+ x-24982))))))))
(with-fluids
- ((transformer-environment-4508
- (lambda (k-22812)
- (k-22812
- e-22805
- r-22806
- w-22807
- s-22808
- rib-22809
- mod-22810))))
- (rebuild-macro-output-22811
- (p-22804
- (let ((w-22819
- (cons (cons #f (car w-22807))
- (cons 'shift (cdr w-22807)))))
- (wrap-4515
+ ((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-22805) s-22808 #f)
- (set-source-properties! e-22805 s-22808))
- e-22805)
- w-22819
- mod-22810)))
+ (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-4447) "-")))))))
- (expand-body-4526
- (lambda (body-22996
- outer-form-22997
- r-22998
- w-22999
- mod-23000)
- (let ((r-23001
- (cons '("placeholder" placeholder) r-22998)))
- (let ((ribcage-23002 (vector 'ribcage '() '() '())))
- (let ((w-23003
- (cons (car w-22999)
- (cons ribcage-23002 (cdr w-22999)))))
+ (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-23004
- (lambda (body-23017
- ids-23018
- labels-23019
- var-ids-23020
- vars-23021
- vals-23022
- bindings-23023)
- (if (null? body-23017)
+ ((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-22997)
- (let ((e-23024 (cdr (car body-23017)))
- (er-23025 (car (car body-23017))))
+ outer-form-25135)
+ (let ((e-25162 (cdr (car body-25155)))
+ (er-25163 (car (car body-25155))))
(call-with-values
(lambda ()
- (syntax-type-4521
- e-23024
- er-23025
+ (syntax-type-6584
+ e-25162
+ er-25163
'(())
- (source-annotation-4479 er-23025)
- ribcage-23002
- mod-23000
+ (source-annotation-6542 er-25163)
+ ribcage-25140
+ mod-25138
#f))
- (lambda (type-23182
- value-23183
- e-23184
- w-23185
- s-23186
- mod-23187)
- (if (eqv? type-23182 'define-form)
- (let ((id-23191
- (wrap-4515
- value-23183
- w-23185
- mod-23187))
- (label-23192
+ (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-4447)
+ (session-id-6510)
(symbol->string (gensym "-")))))
- (let ((var-23193
- (let ((id-23253
- (if (if (vector? id-23191)
+ (let ((var-25332
+ (let ((id-25392
+ (if (if (vector? id-25330)
(if (= (vector-length
- id-23191)
+ id-25330)
4)
(eq? (vector-ref
- id-23191
+ id-25330
0)
'syntax-object)
#f)
#f)
- (vector-ref id-23191 1)
- id-23191)))
+ (vector-ref id-25330 1)
+ id-25330)))
(gensym
(string-append
- (symbol->string id-23253)
+ (symbol->string id-25392)
"-")))))
(begin
- (let ((update-23243
- (cons (vector-ref id-23191 1)
+ (let ((update-25382
+ (cons (vector-ref id-25330 1)
(vector-ref
- ribcage-23002
+ ribcage-25140
1))))
(vector-set!
- ribcage-23002
+ ribcage-25140
1
- update-23243))
- (let ((update-23245
+ update-25382))
+ (let ((update-25384
(cons (car (vector-ref
- id-23191
+ id-25330
2))
(vector-ref
- ribcage-23002
+ ribcage-25140
2))))
(vector-set!
- ribcage-23002
+ ribcage-25140
2
- update-23245))
- (let ((update-23247
- (cons label-23192
+ update-25384))
+ (let ((update-25386
+ (cons label-25331
(vector-ref
- ribcage-23002
+ ribcage-25140
3))))
(vector-set!
- ribcage-23002
+ ribcage-25140
3
- update-23247))
- (parse-23004
- (cdr body-23017)
- (cons id-23191 ids-23018)
- (cons label-23192 labels-23019)
- (cons id-23191 var-ids-23020)
- (cons var-23193 vars-23021)
- (cons (cons er-23025
- (wrap-4515
- e-23184
- w-23185
- mod-23187))
- vals-23022)
- (cons (cons 'lexical var-23193)
- bindings-23023)))))
- (if (if (eqv? type-23182 'define-syntax-form)
+ 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-23182
+ (eqv? type-25320
'define-syntax-parameter-form))
- (let ((id-23286
- (wrap-4515
- value-23183
- w-23185
- mod-23187))
- (label-23287
+ (let ((id-25425
+ (wrap-6578
+ value-25321
+ w-25324
+ mod-25326))
+ (label-25426
(string-append
"l-"
- (session-id-4447)
+ (session-id-6510)
(symbol->string (gensym "-")))))
(begin
- (let ((update-23337
- (cons (vector-ref id-23286 1)
+ (let ((update-25476
+ (cons (vector-ref id-25425 1)
(vector-ref
- ribcage-23002
+ ribcage-25140
1))))
(vector-set!
- ribcage-23002
+ ribcage-25140
1
- update-23337))
- (let ((update-23339
+ update-25476))
+ (let ((update-25478
(cons (car (vector-ref
- id-23286
+ id-25425
2))
(vector-ref
- ribcage-23002
+ ribcage-25140
2))))
(vector-set!
- ribcage-23002
+ ribcage-25140
2
- update-23339))
- (let ((update-23341
- (cons label-23287
+ update-25478))
+ (let ((update-25480
+ (cons label-25426
(vector-ref
- ribcage-23002
+ ribcage-25140
3))))
(vector-set!
- ribcage-23002
+ ribcage-25140
3
- update-23341))
- (parse-23004
- (cdr body-23017)
- (cons id-23286 ids-23018)
- (cons label-23287 labels-23019)
- var-ids-23020
- vars-23021
- vals-23022
+ 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-23025
- (wrap-4515
- e-23184
- w-23185
- mod-23187)))
- bindings-23023))))
- (if (eqv? type-23182 'begin-form)
- (let ((tmp-23349
+ (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-23184
+ e-25323
'(_ . each-any))))
- (if tmp-23349
+ (if tmp-25488
(@apply
- (lambda (e1-23353)
- (parse-23004
+ (lambda (e1-25492)
+ (parse-25142
(letrec*
- ((f-23354
- (lambda (forms-23417)
- (if (null? forms-23417)
- (cdr body-23017)
- (cons (cons er-23025
- (wrap-4515
- (car forms-23417)
- w-23185
- mod-23187))
- (f-23354
- (cdr forms-23417)))))))
- (f-23354 e1-23353))
- ids-23018
- labels-23019
- var-ids-23020
- vars-23021
- vals-23022
- bindings-23023))
- tmp-23349)
+ ((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-23184)))
- (if (eqv? type-23182 'local-syntax-form)
- (expand-local-syntax-4527
- value-23183
- e-23184
- er-23025
- w-23185
- s-23186
- mod-23187
- (lambda (forms-23431
- er-23432
- w-23433
- s-23434
- mod-23435)
- (parse-23004
+ 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-23436
- (lambda (forms-23499)
- (if (null? forms-23499)
- (cdr body-23017)
- (cons (cons er-23432
- (wrap-4515
- (car forms-23499)
- w-23433
- mod-23435))
- (f-23436
- (cdr forms-23499)))))))
- (f-23436 forms-23431))
- ids-23018
- labels-23019
- var-ids-23020
- vars-23021
- vals-23022
- bindings-23023)))
- (if (null? ids-23018)
- (build-sequence-4467
+ ((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-23564)
- (let ((e-23568 (cdr x-23564))
- (r-23569 (car x-23564)))
+ (map (lambda (x-25703)
+ (let ((e-25707 (cdr x-25703))
+ (r-25708 (car x-25703)))
(call-with-values
(lambda ()
- (syntax-type-4521
- e-23568
- r-23569
+ (syntax-type-6584
+ e-25707
+ r-25708
'(())
- (source-annotation-4479
- e-23568)
+ (source-annotation-6542
+ e-25707)
#f
- mod-23187
+ mod-25326
#f))
- (lambda (type-23573
- value-23574
- e-23575
- w-23576
- s-23577
- mod-23578)
- (expand-expr-4523
- type-23573
- value-23574
- e-23575
- r-23569
- w-23576
- s-23577
- mod-23578)))))
- (cons (cons er-23025
- (wrap-4515
+ (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-23184)
- s-23186
+ (if (if (pair? e-25323)
+ s-25325
#f)
(set-source-properties!
- e-23184
- s-23186))
- e-23184)
- w-23185
- mod-23187))
- (cdr body-23017))))
+ e-25323
+ s-25325))
+ e-25323)
+ w-25324
+ mod-25326))
+ (cdr body-25155))))
(begin
- (if (not (valid-bound-ids?-4512
- ids-23018))
+ (if (not (valid-bound-ids?-6575
+ ids-25156))
(syntax-violation
#f
"invalid or duplicate identifier in definition"
- outer-form-22997))
+ outer-form-25135))
(letrec*
- ((loop-23679
- (lambda (bs-23682
- er-cache-23683
- r-cache-23684)
- (if (not (null? bs-23682))
- (let ((b-23685
- (car bs-23682)))
- (if (eq? (car b-23685)
+ ((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-23687
- (car (cdr b-23685))))
- (let ((r-cache-23688
- (if (eq? er-23687
- er-cache-23683)
- r-cache-23684
- (macros-only-env-4482
- er-23687))))
+ (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-23685
- (eval-local-transformer-4528
- (expand-4522
- (cdr (cdr b-23685))
- r-cache-23688
+ b-25825
+ (eval-local-transformer-6591
+ (expand-6585
+ (cdr (cdr b-25825))
+ r-cache-25828
'(())
- mod-23187)
- mod-23187))
- (loop-23679
- (cdr bs-23682)
- er-23687
- r-cache-23688))))
- (loop-23679
- (cdr bs-23682)
- er-cache-23683
- r-cache-23684)))))))
- (loop-23679 bindings-23023 #f #f))
+ 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-23001
- (extend-env-4480
- labels-23019
- bindings-23023
- (cdr r-23001)))
- (build-letrec-4470
+ r-25139
+ (extend-env-6543
+ labels-25157
+ bindings-25161
+ (cdr r-25139)))
+ (build-letrec-6533
#f
#t
(reverse
(map syntax->datum
- var-ids-23020))
- (reverse vars-23021)
- (map (lambda (x-24031)
- (let ((e-24035
- (cdr x-24031))
- (r-24036
- (car x-24031)))
+ 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-4521
- e-24035
- r-24036
+ (syntax-type-6584
+ e-26175
+ r-26176
'(())
- (source-annotation-4479
- e-24035)
+ (source-annotation-6542
+ e-26175)
#f
- mod-23187
+ mod-25326
#f))
- (lambda (type-24040
- value-24041
- e-24042
- w-24043
- s-24044
- mod-24045)
- (expand-expr-4523
- type-24040
- value-24041
- e-24042
- r-24036
- w-24043
- s-24044
- mod-24045)))))
- (reverse vals-23022))
- (let ((exps-24051
- (map (lambda (x-24052)
- (let ((e-24055
- (cdr x-24052))
- (r-24056
- (car x-24052)))
+ (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-4521
- e-24055
- r-24056
+ (syntax-type-6584
+ e-26196
+ r-26197
'(())
- (source-annotation-4479
- e-24055)
+ (source-annotation-6542
+ e-26196)
#f
- mod-23187
+ mod-25326
#f))
- (lambda (type-24060
- value-24061
- e-24062
- w-24063
- s-24064
- mod-24065)
- (expand-expr-4523
- type-24060
- value-24061
- e-24062
- r-24056
- w-24063
- s-24064
- mod-24065)))))
- (cons (cons er-23025
- (wrap-4515
+ (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-23184)
- s-23186
+ (if (if (pair? e-25323)
+ s-25325
#f)
(set-source-properties!
- e-23184
- s-23186))
- e-23184)
- w-23185
- mod-23187))
- (cdr body-23017)))))
- (if (null? (cdr exps-24051))
- (car exps-24051)
+ 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-24051)))))))))))))))))
- (parse-23004
- (map (lambda (x-23007)
- (cons r-23001
- (wrap-4515 x-23007 w-23003 mod-23000)))
- body-22996)
+ exps-26192)))))))))))))))))
+ (parse-25142
+ (map (lambda (x-25145)
+ (cons r-25139
+ (wrap-6578 x-25145 w-25141 mod-25138)))
+ body-25134)
'()
'()
'()
'()
'()
'())))))))
- (expand-local-syntax-4527
- (lambda (rec?-24091
- e-24092
- r-24093
- w-24094
- s-24095
- mod-24096
- k-24097)
- (let ((tmp-24099
+ (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-24092
+ e-26234
'(_ #(each (any any)) any . each-any))))
- (if tmp-24099
+ (if tmp-26241
(@apply
- (lambda (id-24103 val-24104 e1-24105 e2-24106)
- (if (not (valid-bound-ids?-4512 id-24103))
+ (lambda (id-26245 val-26246 e1-26247 e2-26248)
+ (if (not (valid-bound-ids?-6575 id-26245))
(syntax-violation
#f
"duplicate bound keyword"
- e-24092)
- (let ((labels-24196 (gen-labels-4489 id-24103)))
- (let ((new-w-24197
- (make-binding-wrap-4500
- id-24103
- labels-24196
- w-24094)))
- (k-24097
- (cons e1-24105 e2-24106)
- (extend-env-4480
- labels-24196
- (let ((trans-r-24233
- (macros-only-env-4482 r-24093)))
+ 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?-24091 new-w-24197 w-24094)
- (map (lambda (x-24234)
+ (if rec?-26233 new-w-26339 w-26236)
+ (map (lambda (x-26376)
(cons 'macro
- (eval-local-transformer-4528
- (expand-4522
- x-24234
- trans-r-24233
+ (eval-local-transformer-6591
+ (expand-6585
+ x-26376
+ trans-r-26375
(values
- (if rec?-24091
- new-w-24197
- w-24094))
- mod-24096)
- mod-24096)))
- val-24104)))
- r-24093)
- new-w-24197
- s-24095
- mod-24096)))))
- tmp-24099)
+ (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-4515
+ (wrap-6578
(begin
- (if (if (pair? e-24092) s-24095 #f)
- (set-source-properties! e-24092 s-24095))
- e-24092)
- w-24094
- mod-24096))))))
- (eval-local-transformer-4528
- (lambda (expanded-24514 mod-24515)
- (let ((p-24516 (primitive-eval expanded-24514)))
- (if (procedure? p-24516)
- p-24516
+ (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-24516)))))
- (ellipsis?-4530
- (lambda (x-5191)
- (if (if (if (vector? x-5191)
- (if (= (vector-length x-5191) 4)
- (eq? (vector-ref x-5191 0) 'syntax-object)
+ 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-5191 1))
+ (symbol? (vector-ref x-7254 1))
#f)
- (if (eq? (if (if (vector? x-5191)
- (if (= (vector-length x-5191) 4)
- (eq? (vector-ref x-5191 0) 'syntax-object)
+ (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-5191 1)
- x-5191)
+ (vector-ref x-7254 1)
+ x-7254)
(if (if (= (vector-length
'#(syntax-object
...
((top)
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-2343"))
+ #(ribcage #(x) #((top)) #("l-*-4404"))
#(ribcage
(lambda-var-list
gen-var
@@ -5026,152 +5105,152 @@
(top)
(top)
(top))
- ("l-*-476"
- "l-*-474"
- "l-*-472"
- "l-*-470"
- "l-*-468"
- "l-*-466"
- "l-*-464"
- "l-*-462"
- "l-*-460"
- "l-*-458"
- "l-*-456"
- "l-*-454"
- "l-*-452"
- "l-*-450"
- "l-*-448"
- "l-*-446"
- "l-*-444"
- "l-*-442"
- "l-*-440"
- "l-*-438"
- "l-*-436"
- "l-*-434"
- "l-*-432"
- "l-*-430"
- "l-*-428"
- "l-*-426"
- "l-*-424"
- "l-*-422"
- "l-*-420"
- "l-*-418"
- "l-*-416"
- "l-*-414"
- "l-*-412"
- "l-*-410"
- "l-*-408"
- "l-*-406"
- "l-*-404"
- "l-*-402"
- "l-*-400"
- "l-*-399"
- "l-*-397"
- "l-*-394"
- "l-*-393"
- "l-*-392"
- "l-*-390"
- "l-*-389"
- "l-*-387"
- "l-*-385"
- "l-*-383"
- "l-*-381"
- "l-*-379"
- "l-*-377"
- "l-*-375"
- "l-*-373"
- "l-*-370"
- "l-*-368"
- "l-*-367"
- "l-*-365"
- "l-*-363"
- "l-*-361"
- "l-*-359"
- "l-*-358"
- "l-*-357"
- "l-*-356"
- "l-*-354"
- "l-*-353"
- "l-*-350"
- "l-*-348"
- "l-*-346"
- "l-*-344"
- "l-*-342"
- "l-*-340"
- "l-*-338"
- "l-*-337"
- "l-*-336"
- "l-*-334"
- "l-*-332"
- "l-*-331"
- "l-*-328"
- "l-*-327"
- "l-*-325"
- "l-*-323"
- "l-*-321"
- "l-*-319"
- "l-*-317"
- "l-*-315"
- "l-*-313"
- "l-*-311"
- "l-*-309"
- "l-*-306"
- "l-*-304"
- "l-*-302"
- "l-*-300"
- "l-*-298"
- "l-*-296"
- "l-*-294"
- "l-*-292"
- "l-*-290"
- "l-*-288"
- "l-*-286"
- "l-*-284"
- "l-*-282"
- "l-*-280"
- "l-*-278"
- "l-*-276"
- "l-*-274"
- "l-*-272"
- "l-*-270"
- "l-*-268"
- "l-*-266"
- "l-*-264"
- "l-*-262"
- "l-*-260"
- "l-*-258"
- "l-*-256"
- "l-*-255"
- "l-*-254"
- "l-*-253"
- "l-*-252"
- "l-*-250"
- "l-*-248"
- "l-*-246"
- "l-*-243"
- "l-*-241"
- "l-*-239"
- "l-*-237"
- "l-*-235"
- "l-*-233"
- "l-*-231"
- "l-*-229"
- "l-*-227"
- "l-*-225"
- "l-*-223"
- "l-*-221"
- "l-*-219"
- "l-*-217"
- "l-*-215"
- "l-*-213"
- "l-*-211"
- "l-*-209"))
+ ("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-*-47" "l-*-46" "l-*-45")))
+ ("l-*-2098" "l-*-2097" "l-*-2096")))
(hygiene guile)))
4)
#t
@@ -5182,7 +5261,7 @@
((top)
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-2343"))
+ #(ribcage #(x) #((top)) #("l-*-4404"))
#(ribcage
(lambda-var-list
gen-var
@@ -5464,161 +5543,161 @@
(top)
(top)
(top))
- ("l-*-476"
- "l-*-474"
- "l-*-472"
- "l-*-470"
- "l-*-468"
- "l-*-466"
- "l-*-464"
- "l-*-462"
- "l-*-460"
- "l-*-458"
- "l-*-456"
- "l-*-454"
- "l-*-452"
- "l-*-450"
- "l-*-448"
- "l-*-446"
- "l-*-444"
- "l-*-442"
- "l-*-440"
- "l-*-438"
- "l-*-436"
- "l-*-434"
- "l-*-432"
- "l-*-430"
- "l-*-428"
- "l-*-426"
- "l-*-424"
- "l-*-422"
- "l-*-420"
- "l-*-418"
- "l-*-416"
- "l-*-414"
- "l-*-412"
- "l-*-410"
- "l-*-408"
- "l-*-406"
- "l-*-404"
- "l-*-402"
- "l-*-400"
- "l-*-399"
- "l-*-397"
- "l-*-394"
- "l-*-393"
- "l-*-392"
- "l-*-390"
- "l-*-389"
- "l-*-387"
- "l-*-385"
- "l-*-383"
- "l-*-381"
- "l-*-379"
- "l-*-377"
- "l-*-375"
- "l-*-373"
- "l-*-370"
- "l-*-368"
- "l-*-367"
- "l-*-365"
- "l-*-363"
- "l-*-361"
- "l-*-359"
- "l-*-358"
- "l-*-357"
- "l-*-356"
- "l-*-354"
- "l-*-353"
- "l-*-350"
- "l-*-348"
- "l-*-346"
- "l-*-344"
- "l-*-342"
- "l-*-340"
- "l-*-338"
- "l-*-337"
- "l-*-336"
- "l-*-334"
- "l-*-332"
- "l-*-331"
- "l-*-328"
- "l-*-327"
- "l-*-325"
- "l-*-323"
- "l-*-321"
- "l-*-319"
- "l-*-317"
- "l-*-315"
- "l-*-313"
- "l-*-311"
- "l-*-309"
- "l-*-306"
- "l-*-304"
- "l-*-302"
- "l-*-300"
- "l-*-298"
- "l-*-296"
- "l-*-294"
- "l-*-292"
- "l-*-290"
- "l-*-288"
- "l-*-286"
- "l-*-284"
- "l-*-282"
- "l-*-280"
- "l-*-278"
- "l-*-276"
- "l-*-274"
- "l-*-272"
- "l-*-270"
- "l-*-268"
- "l-*-266"
- "l-*-264"
- "l-*-262"
- "l-*-260"
- "l-*-258"
- "l-*-256"
- "l-*-255"
- "l-*-254"
- "l-*-253"
- "l-*-252"
- "l-*-250"
- "l-*-248"
- "l-*-246"
- "l-*-243"
- "l-*-241"
- "l-*-239"
- "l-*-237"
- "l-*-235"
- "l-*-233"
- "l-*-231"
- "l-*-229"
- "l-*-227"
- "l-*-225"
- "l-*-223"
- "l-*-221"
- "l-*-219"
- "l-*-217"
- "l-*-215"
- "l-*-213"
- "l-*-211"
- "l-*-209"))
+ ("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-*-47" "l-*-46" "l-*-45")))
+ ("l-*-2098" "l-*-2097" "l-*-2096")))
(hygiene guile))))
- (eq? (id-var-name-4505 x-5191 '(()))
- (id-var-name-4505
+ (eq? (id-var-name-6568 x-7254 '(()))
+ (id-var-name-6568
'#(syntax-object
...
((top)
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-2343"))
+ #(ribcage #(x) #((top)) #("l-*-4404"))
#(ribcage
(lambda-var-list
gen-var
@@ -5900,420 +5979,420 @@
(top)
(top)
(top))
- ("l-*-476"
- "l-*-474"
- "l-*-472"
- "l-*-470"
- "l-*-468"
- "l-*-466"
- "l-*-464"
- "l-*-462"
- "l-*-460"
- "l-*-458"
- "l-*-456"
- "l-*-454"
- "l-*-452"
- "l-*-450"
- "l-*-448"
- "l-*-446"
- "l-*-444"
- "l-*-442"
- "l-*-440"
- "l-*-438"
- "l-*-436"
- "l-*-434"
- "l-*-432"
- "l-*-430"
- "l-*-428"
- "l-*-426"
- "l-*-424"
- "l-*-422"
- "l-*-420"
- "l-*-418"
- "l-*-416"
- "l-*-414"
- "l-*-412"
- "l-*-410"
- "l-*-408"
- "l-*-406"
- "l-*-404"
- "l-*-402"
- "l-*-400"
- "l-*-399"
- "l-*-397"
- "l-*-394"
- "l-*-393"
- "l-*-392"
- "l-*-390"
- "l-*-389"
- "l-*-387"
- "l-*-385"
- "l-*-383"
- "l-*-381"
- "l-*-379"
- "l-*-377"
- "l-*-375"
- "l-*-373"
- "l-*-370"
- "l-*-368"
- "l-*-367"
- "l-*-365"
- "l-*-363"
- "l-*-361"
- "l-*-359"
- "l-*-358"
- "l-*-357"
- "l-*-356"
- "l-*-354"
- "l-*-353"
- "l-*-350"
- "l-*-348"
- "l-*-346"
- "l-*-344"
- "l-*-342"
- "l-*-340"
- "l-*-338"
- "l-*-337"
- "l-*-336"
- "l-*-334"
- "l-*-332"
- "l-*-331"
- "l-*-328"
- "l-*-327"
- "l-*-325"
- "l-*-323"
- "l-*-321"
- "l-*-319"
- "l-*-317"
- "l-*-315"
- "l-*-313"
- "l-*-311"
- "l-*-309"
- "l-*-306"
- "l-*-304"
- "l-*-302"
- "l-*-300"
- "l-*-298"
- "l-*-296"
- "l-*-294"
- "l-*-292"
- "l-*-290"
- "l-*-288"
- "l-*-286"
- "l-*-284"
- "l-*-282"
- "l-*-280"
- "l-*-278"
- "l-*-276"
- "l-*-274"
- "l-*-272"
- "l-*-270"
- "l-*-268"
- "l-*-266"
- "l-*-264"
- "l-*-262"
- "l-*-260"
- "l-*-258"
- "l-*-256"
- "l-*-255"
- "l-*-254"
- "l-*-253"
- "l-*-252"
- "l-*-250"
- "l-*-248"
- "l-*-246"
- "l-*-243"
- "l-*-241"
- "l-*-239"
- "l-*-237"
- "l-*-235"
- "l-*-233"
- "l-*-231"
- "l-*-229"
- "l-*-227"
- "l-*-225"
- "l-*-223"
- "l-*-221"
- "l-*-219"
- "l-*-217"
- "l-*-215"
- "l-*-213"
- "l-*-211"
- "l-*-209"))
+ ("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-*-47" "l-*-46" "l-*-45")))
+ ("l-*-2098" "l-*-2097" "l-*-2096")))
(hygiene guile))
'(())))
#f)
#f)))
- (lambda-formals-4531
- (lambda (orig-args-24521)
+ (lambda-formals-6594
+ (lambda (orig-args-26663)
(letrec*
- ((req-24522
- (lambda (args-24526 rreq-24527)
- (let ((tmp-24529 ($sc-dispatch args-24526 '())))
- (if tmp-24529
+ ((req-26664
+ (lambda (args-26668 rreq-26669)
+ (let ((tmp-26671 ($sc-dispatch args-26668 '())))
+ (if tmp-26671
(@apply
- (lambda () (check-24523 (reverse rreq-24527) #f))
- tmp-24529)
- (let ((tmp-24652
- ($sc-dispatch args-24526 '(any . any))))
- (if (if tmp-24652
+ (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-24656 b-24657)
- (if (symbol? a-24656)
+ (lambda (a-26798 b-26799)
+ (if (symbol? a-26798)
#t
- (if (if (vector? a-24656)
- (if (= (vector-length a-24656) 4)
- (eq? (vector-ref a-24656 0)
+ (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-24656 1))
+ (symbol? (vector-ref a-26798 1))
#f)))
- tmp-24652)
+ tmp-26794)
#f)
(@apply
- (lambda (a-24684 b-24685)
- (req-24522 b-24685 (cons a-24684 rreq-24527)))
- tmp-24652)
- (let ((tmp-24686 (list args-24526)))
+ (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-24688)
- (if (symbol? r-24688)
+ (lambda (r-26830)
+ (if (symbol? r-26830)
#t
- (if (if (vector? r-24688)
- (if (= (vector-length r-24688) 4)
- (eq? (vector-ref r-24688 0)
+ (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-24688 1))
+ (symbol? (vector-ref r-26830 1))
#f)))
- tmp-24686)
+ tmp-26828)
(@apply
- (lambda (r-24718)
- (check-24523 (reverse rreq-24527) r-24718))
- tmp-24686)
+ (lambda (r-26860)
+ (check-26665 (reverse rreq-26669) r-26860))
+ tmp-26828)
(syntax-violation
'lambda
"invalid argument list"
- orig-args-24521
- args-24526)))))))))
- (check-24523
- (lambda (req-24849 rest-24850)
- (if (distinct-bound-ids?-4513
- (if rest-24850
- (cons rest-24850 req-24849)
- req-24849))
- (values req-24849 #f rest-24850 #f)
+ 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-24521)))))
- (req-24522 orig-args-24521 '()))))
- (expand-simple-lambda-4532
- (lambda (e-24966
- r-24967
- w-24968
- s-24969
- mod-24970
- req-24971
- rest-24972
- meta-24973
- body-24974)
- (let ((ids-24975
- (if rest-24972
- (append req-24971 (list rest-24972))
- req-24971)))
- (let ((vars-24976 (map gen-var-4536 ids-24975)))
- (let ((labels-24977 (gen-labels-4489 ids-24975)))
- (build-simple-lambda-4462
- s-24969
- (map syntax->datum req-24971)
- (if rest-24972 (syntax->datum rest-24972) #f)
- vars-24976
- meta-24973
- (expand-body-4526
- body-24974
- (wrap-4515
+ 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-24966) s-24969 #f)
- (set-source-properties! e-24966 s-24969))
- e-24966)
- w-24968
- mod-24970)
- (extend-var-env-4481
- labels-24977
- vars-24976
- r-24967)
- (make-binding-wrap-4500
- ids-24975
- labels-24977
- w-24968)
- mod-24970)))))))
- (lambda*-formals-4533
- (lambda (orig-args-25257)
+ (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-25258
- (lambda (args-25265 rreq-25266)
- (let ((tmp-25268 ($sc-dispatch args-25265 '())))
- (if tmp-25268
+ ((req-27400
+ (lambda (args-27407 rreq-27408)
+ (let ((tmp-27410 ($sc-dispatch args-27407 '())))
+ (if tmp-27410
(@apply
(lambda ()
- (check-25262 (reverse rreq-25266) '() #f '()))
- tmp-25268)
- (let ((tmp-25274
- ($sc-dispatch args-25265 '(any . any))))
- (if (if tmp-25274
+ (check-27404 (reverse rreq-27408) '() #f '()))
+ tmp-27410)
+ (let ((tmp-27416
+ ($sc-dispatch args-27407 '(any . any))))
+ (if (if tmp-27416
(@apply
- (lambda (a-25278 b-25279)
- (if (symbol? a-25278)
+ (lambda (a-27420 b-27421)
+ (if (symbol? a-27420)
#t
- (if (if (vector? a-25278)
- (if (= (vector-length a-25278) 4)
- (eq? (vector-ref a-25278 0)
+ (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-25278 1))
+ (symbol? (vector-ref a-27420 1))
#f)))
- tmp-25274)
+ tmp-27416)
#f)
(@apply
- (lambda (a-25306 b-25307)
- (req-25258 b-25307 (cons a-25306 rreq-25266)))
- tmp-25274)
- (let ((tmp-25308
- ($sc-dispatch args-25265 '(any . any))))
- (if (if tmp-25308
+ (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-25312 b-25313)
- (eq? (syntax->datum a-25312) #:optional))
- tmp-25308)
+ (lambda (a-27454 b-27455)
+ (eq? (syntax->datum a-27454) #:optional))
+ tmp-27450)
#f)
(@apply
- (lambda (a-25314 b-25315)
- (opt-25259 b-25315 (reverse rreq-25266) '()))
- tmp-25308)
- (let ((tmp-25318
- ($sc-dispatch args-25265 '(any . any))))
- (if (if tmp-25318
+ (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-25322 b-25323)
- (eq? (syntax->datum a-25322) #:key))
- tmp-25318)
+ (lambda (a-27464 b-27465)
+ (eq? (syntax->datum a-27464) #:key))
+ tmp-27460)
#f)
(@apply
- (lambda (a-25324 b-25325)
- (key-25260
- b-25325
- (reverse rreq-25266)
+ (lambda (a-27466 b-27467)
+ (key-27402
+ b-27467
+ (reverse rreq-27408)
'()
'()))
- tmp-25318)
- (let ((tmp-25328
- ($sc-dispatch args-25265 '(any any))))
- (if (if tmp-25328
+ tmp-27460)
+ (let ((tmp-27470
+ ($sc-dispatch args-27407 '(any any))))
+ (if (if tmp-27470
(@apply
- (lambda (a-25332 b-25333)
- (eq? (syntax->datum a-25332)
+ (lambda (a-27474 b-27475)
+ (eq? (syntax->datum a-27474)
#:rest))
- tmp-25328)
+ tmp-27470)
#f)
(@apply
- (lambda (a-25334 b-25335)
- (rest-25261
- b-25335
- (reverse rreq-25266)
+ (lambda (a-27476 b-27477)
+ (rest-27403
+ b-27477
+ (reverse rreq-27408)
'()
'()))
- tmp-25328)
- (let ((tmp-25338 (list args-25265)))
+ tmp-27470)
+ (let ((tmp-27480 (list args-27407)))
(if (@apply
- (lambda (r-25340)
- (if (symbol? r-25340)
+ (lambda (r-27482)
+ (if (symbol? r-27482)
#t
- (if (if (vector? r-25340)
+ (if (if (vector? r-27482)
(if (= (vector-length
- r-25340)
+ r-27482)
4)
(eq? (vector-ref
- r-25340
+ r-27482
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref r-25340 1))
+ (vector-ref r-27482 1))
#f)))
- tmp-25338)
+ tmp-27480)
(@apply
- (lambda (r-25370)
- (rest-25261
- r-25370
- (reverse rreq-25266)
+ (lambda (r-27512)
+ (rest-27403
+ r-27512
+ (reverse rreq-27408)
'()
'()))
- tmp-25338)
+ tmp-27480)
(syntax-violation
'lambda*
"invalid argument list"
- orig-args-25257
- args-25265)))))))))))))))
- (opt-25259
- (lambda (args-25389 req-25390 ropt-25391)
- (let ((tmp-25393 ($sc-dispatch args-25389 '())))
- (if tmp-25393
+ 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-25262
- req-25390
- (reverse ropt-25391)
+ (check-27404
+ req-27532
+ (reverse ropt-27533)
#f
'()))
- tmp-25393)
- (let ((tmp-25399
- ($sc-dispatch args-25389 '(any . any))))
- (if (if tmp-25399
+ tmp-27535)
+ (let ((tmp-27541
+ ($sc-dispatch args-27531 '(any . any))))
+ (if (if tmp-27541
(@apply
- (lambda (a-25403 b-25404)
- (if (symbol? a-25403)
+ (lambda (a-27545 b-27546)
+ (if (symbol? a-27545)
#t
- (if (if (vector? a-25403)
- (if (= (vector-length a-25403) 4)
- (eq? (vector-ref a-25403 0)
+ (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-25403 1))
+ (symbol? (vector-ref a-27545 1))
#f)))
- tmp-25399)
+ tmp-27541)
#f)
(@apply
- (lambda (a-25431 b-25432)
- (opt-25259
- b-25432
- req-25390
- (cons (cons a-25431
+ (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-*-2482" "l-*-2483"))
+ #("l-*-4543" "l-*-4544"))
#(ribcage () () ())
#(ribcage
#(args req ropt)
#((top) (top) (top))
- #("l-*-2472"
- "l-*-2473"
- "l-*-2474"))
+ #("l-*-4533"
+ "l-*-4534"
+ "l-*-4535"))
#(ribcage
(check rest key opt req)
((top)
@@ -6321,15 +6400,15 @@
(top)
(top)
(top))
- ("l-*-2418"
- "l-*-2416"
- "l-*-2414"
- "l-*-2412"
- "l-*-2410"))
+ ("l-*-4479"
+ "l-*-4477"
+ "l-*-4475"
+ "l-*-4473"
+ "l-*-4471"))
#(ribcage
#(orig-args)
#((top))
- #("l-*-2409"))
+ #("l-*-4470"))
#(ribcage
(lambda-var-list
gen-var
@@ -6611,283 +6690,285 @@
(top)
(top)
(top))
- ("l-*-476"
- "l-*-474"
- "l-*-472"
- "l-*-470"
- "l-*-468"
- "l-*-466"
- "l-*-464"
- "l-*-462"
- "l-*-460"
- "l-*-458"
- "l-*-456"
- "l-*-454"
- "l-*-452"
- "l-*-450"
- "l-*-448"
- "l-*-446"
- "l-*-444"
- "l-*-442"
- "l-*-440"
- "l-*-438"
- "l-*-436"
- "l-*-434"
- "l-*-432"
- "l-*-430"
- "l-*-428"
- "l-*-426"
- "l-*-424"
- "l-*-422"
- "l-*-420"
- "l-*-418"
- "l-*-416"
- "l-*-414"
- "l-*-412"
- "l-*-410"
- "l-*-408"
- "l-*-406"
- "l-*-404"
- "l-*-402"
- "l-*-400"
- "l-*-399"
- "l-*-397"
- "l-*-394"
- "l-*-393"
- "l-*-392"
- "l-*-390"
- "l-*-389"
- "l-*-387"
- "l-*-385"
- "l-*-383"
- "l-*-381"
- "l-*-379"
- "l-*-377"
- "l-*-375"
- "l-*-373"
- "l-*-370"
- "l-*-368"
- "l-*-367"
- "l-*-365"
- "l-*-363"
- "l-*-361"
- "l-*-359"
- "l-*-358"
- "l-*-357"
- "l-*-356"
- "l-*-354"
- "l-*-353"
- "l-*-350"
- "l-*-348"
- "l-*-346"
- "l-*-344"
- "l-*-342"
- "l-*-340"
- "l-*-338"
- "l-*-337"
- "l-*-336"
- "l-*-334"
- "l-*-332"
- "l-*-331"
- "l-*-328"
- "l-*-327"
- "l-*-325"
- "l-*-323"
- "l-*-321"
- "l-*-319"
- "l-*-317"
- "l-*-315"
- "l-*-313"
- "l-*-311"
- "l-*-309"
- "l-*-306"
- "l-*-304"
- "l-*-302"
- "l-*-300"
- "l-*-298"
- "l-*-296"
- "l-*-294"
- "l-*-292"
- "l-*-290"
- "l-*-288"
- "l-*-286"
- "l-*-284"
- "l-*-282"
- "l-*-280"
- "l-*-278"
- "l-*-276"
- "l-*-274"
- "l-*-272"
- "l-*-270"
- "l-*-268"
- "l-*-266"
- "l-*-264"
- "l-*-262"
- "l-*-260"
- "l-*-258"
- "l-*-256"
- "l-*-255"
- "l-*-254"
- "l-*-253"
- "l-*-252"
- "l-*-250"
- "l-*-248"
- "l-*-246"
- "l-*-243"
- "l-*-241"
- "l-*-239"
- "l-*-237"
- "l-*-235"
- "l-*-233"
- "l-*-231"
- "l-*-229"
- "l-*-227"
- "l-*-225"
- "l-*-223"
- "l-*-221"
- "l-*-219"
- "l-*-217"
- "l-*-215"
- "l-*-213"
- "l-*-211"
- "l-*-209"))
+ ("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-*-47" "l-*-46" "l-*-45")))
+ ("l-*-2098"
+ "l-*-2097"
+ "l-*-2096")))
(hygiene guile))))
- ropt-25391)))
- tmp-25399)
- (let ((tmp-25433
- ($sc-dispatch args-25389 '((any any) . any))))
- (if (if tmp-25433
+ ropt-27533)))
+ tmp-27541)
+ (let ((tmp-27575
+ ($sc-dispatch args-27531 '((any any) . any))))
+ (if (if tmp-27575
(@apply
- (lambda (a-25437 init-25438 b-25439)
- (if (symbol? a-25437)
+ (lambda (a-27579 init-27580 b-27581)
+ (if (symbol? a-27579)
#t
- (if (if (vector? a-25437)
- (if (= (vector-length a-25437) 4)
- (eq? (vector-ref a-25437 0)
+ (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-25437 1))
+ (symbol? (vector-ref a-27579 1))
#f)))
- tmp-25433)
+ tmp-27575)
#f)
(@apply
- (lambda (a-25466 init-25467 b-25468)
- (opt-25259
- b-25468
- req-25390
- (cons (list a-25466 init-25467) ropt-25391)))
- tmp-25433)
- (let ((tmp-25469
- ($sc-dispatch args-25389 '(any . any))))
- (if (if tmp-25469
+ (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-25473 b-25474)
- (eq? (syntax->datum a-25473) #:key))
- tmp-25469)
+ (lambda (a-27615 b-27616)
+ (eq? (syntax->datum a-27615) #:key))
+ tmp-27611)
#f)
(@apply
- (lambda (a-25475 b-25476)
- (key-25260
- b-25476
- req-25390
- (reverse ropt-25391)
+ (lambda (a-27617 b-27618)
+ (key-27402
+ b-27618
+ req-27532
+ (reverse ropt-27533)
'()))
- tmp-25469)
- (let ((tmp-25479
- ($sc-dispatch args-25389 '(any any))))
- (if (if tmp-25479
+ tmp-27611)
+ (let ((tmp-27621
+ ($sc-dispatch args-27531 '(any any))))
+ (if (if tmp-27621
(@apply
- (lambda (a-25483 b-25484)
- (eq? (syntax->datum a-25483)
+ (lambda (a-27625 b-27626)
+ (eq? (syntax->datum a-27625)
#:rest))
- tmp-25479)
+ tmp-27621)
#f)
(@apply
- (lambda (a-25485 b-25486)
- (rest-25261
- b-25486
- req-25390
- (reverse ropt-25391)
+ (lambda (a-27627 b-27628)
+ (rest-27403
+ b-27628
+ req-27532
+ (reverse ropt-27533)
'()))
- tmp-25479)
- (let ((tmp-25489 (list args-25389)))
+ tmp-27621)
+ (let ((tmp-27631 (list args-27531)))
(if (@apply
- (lambda (r-25491)
- (if (symbol? r-25491)
+ (lambda (r-27633)
+ (if (symbol? r-27633)
#t
- (if (if (vector? r-25491)
+ (if (if (vector? r-27633)
(if (= (vector-length
- r-25491)
+ r-27633)
4)
(eq? (vector-ref
- r-25491
+ r-27633
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref r-25491 1))
+ (vector-ref r-27633 1))
#f)))
- tmp-25489)
+ tmp-27631)
(@apply
- (lambda (r-25521)
- (rest-25261
- r-25521
- req-25390
- (reverse ropt-25391)
+ (lambda (r-27663)
+ (rest-27403
+ r-27663
+ req-27532
+ (reverse ropt-27533)
'()))
- tmp-25489)
+ tmp-27631)
(syntax-violation
'lambda*
"invalid optional argument list"
- orig-args-25257
- args-25389)))))))))))))))
- (key-25260
- (lambda (args-25540 req-25541 opt-25542 rkey-25543)
- (let ((tmp-25545 ($sc-dispatch args-25540 '())))
- (if tmp-25545
+ 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-25262
- req-25541
- opt-25542
+ (check-27404
+ req-27683
+ opt-27684
#f
- (cons #f (reverse rkey-25543))))
- tmp-25545)
- (let ((tmp-25551
- ($sc-dispatch args-25540 '(any . any))))
- (if (if tmp-25551
+ (cons #f (reverse rkey-27685))))
+ tmp-27687)
+ (let ((tmp-27693
+ ($sc-dispatch args-27682 '(any . any))))
+ (if (if tmp-27693
(@apply
- (lambda (a-25555 b-25556)
- (if (symbol? a-25555)
+ (lambda (a-27697 b-27698)
+ (if (symbol? a-27697)
#t
- (if (if (vector? a-25555)
- (if (= (vector-length a-25555) 4)
- (eq? (vector-ref a-25555 0)
+ (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-25555 1))
+ (symbol? (vector-ref a-27697 1))
#f)))
- tmp-25551)
+ tmp-27693)
#f)
(@apply
- (lambda (a-25583 b-25584)
- (let ((tmp-25585
- (symbol->keyword (syntax->datum a-25583))))
- (key-25260
- b-25584
- req-25541
- opt-25542
- (cons (cons tmp-25585
- (cons a-25583
+ (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)
@@ -6895,12 +6976,12 @@
#(ribcage
#(k)
#((top))
- #("l-*-2545"))
+ #("l-*-4606"))
#(ribcage
#(a b)
#((top) (top))
- #("l-*-2539"
- "l-*-2540"))
+ #("l-*-4600"
+ "l-*-4601"))
#(ribcage () () ())
#(ribcage
#(args req opt rkey)
@@ -6908,10 +6989,10 @@
(top)
(top)
(top))
- #("l-*-2528"
- "l-*-2529"
- "l-*-2530"
- "l-*-2531"))
+ #("l-*-4589"
+ "l-*-4590"
+ "l-*-4591"
+ "l-*-4592"))
#(ribcage
(check rest
key
@@ -6922,15 +7003,15 @@
(top)
(top)
(top))
- ("l-*-2418"
- "l-*-2416"
- "l-*-2414"
- "l-*-2412"
- "l-*-2410"))
+ ("l-*-4479"
+ "l-*-4477"
+ "l-*-4475"
+ "l-*-4473"
+ "l-*-4471"))
#(ribcage
#(orig-args)
#((top))
- #("l-*-2409"))
+ #("l-*-4470"))
#(ribcage
(lambda-var-list
gen-var
@@ -7212,875 +7293,875 @@
(top)
(top)
(top))
- ("l-*-476"
- "l-*-474"
- "l-*-472"
- "l-*-470"
- "l-*-468"
- "l-*-466"
- "l-*-464"
- "l-*-462"
- "l-*-460"
- "l-*-458"
- "l-*-456"
- "l-*-454"
- "l-*-452"
- "l-*-450"
- "l-*-448"
- "l-*-446"
- "l-*-444"
- "l-*-442"
- "l-*-440"
- "l-*-438"
- "l-*-436"
- "l-*-434"
- "l-*-432"
- "l-*-430"
- "l-*-428"
- "l-*-426"
- "l-*-424"
- "l-*-422"
- "l-*-420"
- "l-*-418"
- "l-*-416"
- "l-*-414"
- "l-*-412"
- "l-*-410"
- "l-*-408"
- "l-*-406"
- "l-*-404"
- "l-*-402"
- "l-*-400"
- "l-*-399"
- "l-*-397"
- "l-*-394"
- "l-*-393"
- "l-*-392"
- "l-*-390"
- "l-*-389"
- "l-*-387"
- "l-*-385"
- "l-*-383"
- "l-*-381"
- "l-*-379"
- "l-*-377"
- "l-*-375"
- "l-*-373"
- "l-*-370"
- "l-*-368"
- "l-*-367"
- "l-*-365"
- "l-*-363"
- "l-*-361"
- "l-*-359"
- "l-*-358"
- "l-*-357"
- "l-*-356"
- "l-*-354"
- "l-*-353"
- "l-*-350"
- "l-*-348"
- "l-*-346"
- "l-*-344"
- "l-*-342"
- "l-*-340"
- "l-*-338"
- "l-*-337"
- "l-*-336"
- "l-*-334"
- "l-*-332"
- "l-*-331"
- "l-*-328"
- "l-*-327"
- "l-*-325"
- "l-*-323"
- "l-*-321"
- "l-*-319"
- "l-*-317"
- "l-*-315"
- "l-*-313"
- "l-*-311"
- "l-*-309"
- "l-*-306"
- "l-*-304"
- "l-*-302"
- "l-*-300"
- "l-*-298"
- "l-*-296"
- "l-*-294"
- "l-*-292"
- "l-*-290"
- "l-*-288"
- "l-*-286"
- "l-*-284"
- "l-*-282"
- "l-*-280"
- "l-*-278"
- "l-*-276"
- "l-*-274"
- "l-*-272"
- "l-*-270"
- "l-*-268"
- "l-*-266"
- "l-*-264"
- "l-*-262"
- "l-*-260"
- "l-*-258"
- "l-*-256"
- "l-*-255"
- "l-*-254"
- "l-*-253"
- "l-*-252"
- "l-*-250"
- "l-*-248"
- "l-*-246"
- "l-*-243"
- "l-*-241"
- "l-*-239"
- "l-*-237"
- "l-*-235"
- "l-*-233"
- "l-*-231"
- "l-*-229"
- "l-*-227"
- "l-*-225"
- "l-*-223"
- "l-*-221"
- "l-*-219"
- "l-*-217"
- "l-*-215"
- "l-*-213"
- "l-*-211"
- "l-*-209"))
+ ("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-*-47"
- "l-*-46"
- "l-*-45")))
+ ("l-*-2098"
+ "l-*-2097"
+ "l-*-2096")))
(hygiene guile)))))
- rkey-25543))))
- tmp-25551)
- (let ((tmp-25588
- ($sc-dispatch args-25540 '((any any) . any))))
- (if (if tmp-25588
+ rkey-27685))))
+ tmp-27693)
+ (let ((tmp-27730
+ ($sc-dispatch args-27682 '((any any) . any))))
+ (if (if tmp-27730
(@apply
- (lambda (a-25592 init-25593 b-25594)
- (if (symbol? a-25592)
+ (lambda (a-27734 init-27735 b-27736)
+ (if (symbol? a-27734)
#t
- (if (if (vector? a-25592)
- (if (= (vector-length a-25592) 4)
- (eq? (vector-ref a-25592 0)
+ (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-25592 1))
+ (symbol? (vector-ref a-27734 1))
#f)))
- tmp-25588)
+ tmp-27730)
#f)
(@apply
- (lambda (a-25621 init-25622 b-25623)
- (let ((tmp-25624
+ (lambda (a-27763 init-27764 b-27765)
+ (let ((tmp-27766
(symbol->keyword
- (syntax->datum a-25621))))
- (key-25260
- b-25623
- req-25541
- opt-25542
- (cons (list tmp-25624 a-25621 init-25622)
- rkey-25543))))
- tmp-25588)
- (let ((tmp-25627
+ (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-25540
+ args-27682
'((any any any) . any))))
- (if (if tmp-25627
+ (if (if tmp-27769
(@apply
- (lambda (a-25631
- init-25632
- k-25633
- b-25634)
- (if (if (symbol? a-25631)
+ (lambda (a-27773
+ init-27774
+ k-27775
+ b-27776)
+ (if (if (symbol? a-27773)
#t
- (if (if (vector? a-25631)
+ (if (if (vector? a-27773)
(if (= (vector-length
- a-25631)
+ a-27773)
4)
(eq? (vector-ref
- a-25631
+ a-27773
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref a-25631 1))
+ (vector-ref a-27773 1))
#f))
- (keyword? (syntax->datum k-25633))
+ (keyword? (syntax->datum k-27775))
#f))
- tmp-25627)
+ tmp-27769)
#f)
(@apply
- (lambda (a-25661 init-25662 k-25663 b-25664)
- (key-25260
- b-25664
- req-25541
- opt-25542
- (cons (list k-25663 a-25661 init-25662)
- rkey-25543)))
- tmp-25627)
- (let ((tmp-25665
- ($sc-dispatch args-25540 '(any))))
- (if (if tmp-25665
+ (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-25669)
- (eq? (syntax->datum aok-25669)
+ (lambda (aok-27811)
+ (eq? (syntax->datum aok-27811)
#:allow-other-keys))
- tmp-25665)
+ tmp-27807)
#f)
(@apply
- (lambda (aok-25670)
- (check-25262
- req-25541
- opt-25542
+ (lambda (aok-27812)
+ (check-27404
+ req-27683
+ opt-27684
#f
- (cons #t (reverse rkey-25543))))
- tmp-25665)
- (let ((tmp-25673
+ (cons #t (reverse rkey-27685))))
+ tmp-27807)
+ (let ((tmp-27815
($sc-dispatch
- args-25540
+ args-27682
'(any any any))))
- (if (if tmp-25673
+ (if (if tmp-27815
(@apply
- (lambda (aok-25677
- a-25678
- b-25679)
+ (lambda (aok-27819
+ a-27820
+ b-27821)
(if (eq? (syntax->datum
- aok-25677)
+ aok-27819)
#:allow-other-keys)
- (eq? (syntax->datum a-25678)
+ (eq? (syntax->datum a-27820)
#:rest)
#f))
- tmp-25673)
+ tmp-27815)
#f)
(@apply
- (lambda (aok-25680 a-25681 b-25682)
- (rest-25261
- b-25682
- req-25541
- opt-25542
- (cons #t (reverse rkey-25543))))
- tmp-25673)
- (let ((tmp-25685
+ (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-25540
+ args-27682
'(any . any))))
- (if (if tmp-25685
+ (if (if tmp-27827
(@apply
- (lambda (aok-25689 r-25690)
+ (lambda (aok-27831 r-27832)
(if (eq? (syntax->datum
- aok-25689)
+ aok-27831)
#:allow-other-keys)
- (if (symbol? r-25690)
+ (if (symbol? r-27832)
#t
(if (if (vector?
- r-25690)
+ r-27832)
(if (= (vector-length
- r-25690)
+ r-27832)
4)
(eq? (vector-ref
- r-25690
+ r-27832
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- r-25690
+ r-27832
1))
#f))
#f))
- tmp-25685)
+ tmp-27827)
#f)
(@apply
- (lambda (aok-25717 r-25718)
- (rest-25261
- r-25718
- req-25541
- opt-25542
+ (lambda (aok-27859 r-27860)
+ (rest-27403
+ r-27860
+ req-27683
+ opt-27684
(cons #t
- (reverse rkey-25543))))
- tmp-25685)
- (let ((tmp-25721
+ (reverse rkey-27685))))
+ tmp-27827)
+ (let ((tmp-27863
($sc-dispatch
- args-25540
+ args-27682
'(any any))))
- (if (if tmp-25721
+ (if (if tmp-27863
(@apply
- (lambda (a-25725 b-25726)
+ (lambda (a-27867 b-27868)
(eq? (syntax->datum
- a-25725)
+ a-27867)
#:rest))
- tmp-25721)
+ tmp-27863)
#f)
(@apply
- (lambda (a-25727 b-25728)
- (rest-25261
- b-25728
- req-25541
- opt-25542
+ (lambda (a-27869 b-27870)
+ (rest-27403
+ b-27870
+ req-27683
+ opt-27684
(cons #f
(reverse
- rkey-25543))))
- tmp-25721)
- (let ((tmp-25731
- (list args-25540)))
+ rkey-27685))))
+ tmp-27863)
+ (let ((tmp-27873
+ (list args-27682)))
(if (@apply
- (lambda (r-25733)
- (if (symbol? r-25733)
+ (lambda (r-27875)
+ (if (symbol? r-27875)
#t
(if (if (vector?
- r-25733)
+ r-27875)
(if (= (vector-length
- r-25733)
+ r-27875)
4)
(eq? (vector-ref
- r-25733
+ r-27875
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- r-25733
+ r-27875
1))
#f)))
- tmp-25731)
+ tmp-27873)
(@apply
- (lambda (r-25763)
- (rest-25261
- r-25763
- req-25541
- opt-25542
+ (lambda (r-27905)
+ (rest-27403
+ r-27905
+ req-27683
+ opt-27684
(cons #f
(reverse
- rkey-25543))))
- tmp-25731)
+ rkey-27685))))
+ tmp-27873)
(syntax-violation
'lambda*
"invalid keyword argument list"
- orig-args-25257
- args-25540)))))))))))))))))))))
- (rest-25261
- (lambda (args-25791 req-25792 opt-25793 kw-25794)
- (let ((tmp-25796 (list args-25791)))
+ 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-25798)
- (if (symbol? r-25798)
+ (lambda (r-27940)
+ (if (symbol? r-27940)
#t
- (if (if (vector? r-25798)
- (if (= (vector-length r-25798) 4)
- (eq? (vector-ref r-25798 0) 'syntax-object)
+ (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-25798 1))
+ (symbol? (vector-ref r-27940 1))
#f)))
- tmp-25796)
+ tmp-27938)
(@apply
- (lambda (r-25828)
- (check-25262
- req-25792
- opt-25793
- r-25828
- kw-25794))
- tmp-25796)
+ (lambda (r-27970)
+ (check-27404
+ req-27934
+ opt-27935
+ r-27970
+ kw-27936))
+ tmp-27938)
(syntax-violation
'lambda*
"invalid rest argument"
- orig-args-25257
- args-25791)))))
- (check-25262
- (lambda (req-25832 opt-25833 rest-25834 kw-25835)
- (if (distinct-bound-ids?-4513
+ orig-args-27399
+ args-27933)))))
+ (check-27404
+ (lambda (req-27974 opt-27975 rest-27976 kw-27977)
+ (if (distinct-bound-ids?-6576
(append
- req-25832
- (map car opt-25833)
- (if rest-25834 (list rest-25834) '())
- (if (pair? kw-25835)
- (map cadr (cdr kw-25835))
+ req-27974
+ (map car opt-27975)
+ (if rest-27976 (list rest-27976) '())
+ (if (pair? kw-27977)
+ (map cadr (cdr kw-27977))
'())))
- (values req-25832 opt-25833 rest-25834 kw-25835)
+ (values req-27974 opt-27975 rest-27976 kw-27977)
(syntax-violation
'lambda*
"duplicate identifier in argument list"
- orig-args-25257)))))
- (req-25258 orig-args-25257 '()))))
- (expand-lambda-case-4534
- (lambda (e-25951
- r-25952
- w-25953
- s-25954
- mod-25955
- get-formals-25956
- clauses-25957)
+ 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-25958
- (lambda (req-26089
- opt-26090
- rest-26091
- kw-26092
- body-26093)
- (let ((vars-26094 (map gen-var-4536 req-26089))
- (labels-26095 (gen-labels-4489 req-26089)))
- (let ((r*-26096
- (extend-var-env-4481
- labels-26095
- vars-26094
- r-25952))
- (w*-26097
- (make-binding-wrap-4500
- req-26089
- labels-26095
- w-25953)))
- (parse-opt-25959
- (map syntax->datum req-26089)
- opt-26090
- rest-26091
- kw-26092
- body-26093
- (reverse vars-26094)
- r*-26096
- w*-26097
+ ((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-25959
- (lambda (req-26283
- opt-26284
- rest-26285
- kw-26286
- body-26287
- vars-26288
- r*-26289
- w*-26290
- out-26291
- inits-26292)
- (if (pair? opt-26284)
- (let ((tmp-26293 (car opt-26284)))
- (let ((tmp-26294 ($sc-dispatch tmp-26293 '(any any))))
- (if tmp-26294
+ (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-26296 i-26297)
- (let ((v-26298
- (let ((id-26306
- (if (if (vector? id-26296)
+ (lambda (id-28438 i-28439)
+ (let ((v-28440
+ (let ((id-28448
+ (if (if (vector? id-28438)
(if (= (vector-length
- id-26296)
+ id-28438)
4)
(eq? (vector-ref
- id-26296
+ id-28438
0)
'syntax-object)
#f)
#f)
- (vector-ref id-26296 1)
- id-26296)))
+ (vector-ref id-28438 1)
+ id-28438)))
(gensym
(string-append
- (symbol->string id-26306)
+ (symbol->string id-28448)
"-")))))
- (let ((l-26299 (gen-labels-4489 (list v-26298))))
- (let ((r**-26300
- (extend-var-env-4481
- l-26299
- (list v-26298)
- r*-26289)))
- (let ((w**-26301
- (make-binding-wrap-4500
- (list id-26296)
- l-26299
- w*-26290)))
- (parse-opt-25959
- req-26283
- (cdr opt-26284)
- rest-26285
- kw-26286
- body-26287
- (cons v-26298 vars-26288)
- r**-26300
- w**-26301
- (cons (syntax->datum id-26296) out-26291)
- (cons (expand-4522
- i-26297
- r*-26289
- w*-26290
- mod-25955)
- inits-26292)))))))
- tmp-26294)
+ (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-26293))))
- (if rest-26285
- (let ((v-26544
- (let ((id-26554
- (if (if (vector? rest-26285)
- (if (= (vector-length rest-26285) 4)
- (eq? (vector-ref rest-26285 0)
+ 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-26285 1)
- rest-26285)))
+ (vector-ref rest-28427 1)
+ rest-28427)))
(gensym
(string-append
- (symbol->string id-26554)
+ (symbol->string id-28696)
"-")))))
- (let ((l-26545 (gen-labels-4489 (list v-26544))))
- (let ((r*-26546
- (extend-var-env-4481
- l-26545
- (list v-26544)
- r*-26289)))
- (let ((w*-26547
- (make-binding-wrap-4500
- (list rest-26285)
- l-26545
- w*-26290)))
- (parse-kw-25960
- req-26283
- (if (pair? out-26291) (reverse out-26291) #f)
- (syntax->datum rest-26285)
- (if (pair? kw-26286) (cdr kw-26286) kw-26286)
- body-26287
- (cons v-26544 vars-26288)
- r*-26546
- w*-26547
- (if (pair? kw-26286) (car kw-26286) #f)
+ (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-26292)))))
- (parse-kw-25960
- req-26283
- (if (pair? out-26291) (reverse out-26291) #f)
+ inits-28434)))))
+ (parse-kw-28102
+ req-28425
+ (if (pair? out-28433) (reverse out-28433) #f)
#f
- (if (pair? kw-26286) (cdr kw-26286) kw-26286)
- body-26287
- vars-26288
- r*-26289
- w*-26290
- (if (pair? kw-26286) (car kw-26286) #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-26292)))))
- (parse-kw-25960
- (lambda (req-26725
- opt-26726
- rest-26727
- kw-26728
- body-26729
- vars-26730
- r*-26731
- w*-26732
- aok-26733
- out-26734
- inits-26735)
- (if (pair? kw-26728)
- (let ((tmp-26736 (car kw-26728)))
- (let ((tmp-26737
- ($sc-dispatch tmp-26736 '(any any any))))
- (if tmp-26737
+ 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-26739 id-26740 i-26741)
- (let ((v-26742
- (let ((id-26750
- (if (if (vector? id-26740)
+ (lambda (k-28881 id-28882 i-28883)
+ (let ((v-28884
+ (let ((id-28892
+ (if (if (vector? id-28882)
(if (= (vector-length
- id-26740)
+ id-28882)
4)
(eq? (vector-ref
- id-26740
+ id-28882
0)
'syntax-object)
#f)
#f)
- (vector-ref id-26740 1)
- id-26740)))
+ (vector-ref id-28882 1)
+ id-28882)))
(gensym
(string-append
- (symbol->string id-26750)
+ (symbol->string id-28892)
"-")))))
- (let ((l-26743 (gen-labels-4489 (list v-26742))))
- (let ((r**-26744
- (extend-var-env-4481
- l-26743
- (list v-26742)
- r*-26731)))
- (let ((w**-26745
- (make-binding-wrap-4500
- (list id-26740)
- l-26743
- w*-26732)))
- (parse-kw-25960
- req-26725
- opt-26726
- rest-26727
- (cdr kw-26728)
- body-26729
- (cons v-26742 vars-26730)
- r**-26744
- w**-26745
- aok-26733
- (cons (list (syntax->datum k-26739)
- (syntax->datum id-26740)
- v-26742)
- out-26734)
- (cons (expand-4522
- i-26741
- r*-26731
- w*-26732
- mod-25955)
- inits-26735)))))))
- tmp-26737)
+ (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-26736))))
- (parse-body-25961
- req-26725
- opt-26726
- rest-26727
- (if (if aok-26733 aok-26733 (pair? out-26734))
- (cons aok-26733 (reverse out-26734))
+ 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-26729
- (reverse vars-26730)
- r*-26731
- w*-26732
- (reverse inits-26735)
+ body-28871
+ (reverse vars-28872)
+ r*-28873
+ w*-28874
+ (reverse inits-28877)
'()))))
- (parse-body-25961
- (lambda (req-26997
- opt-26998
- rest-26999
- kw-27000
- body-27001
- vars-27002
- r*-27003
- w*-27004
- inits-27005
- meta-27006)
- (let ((tmp-27008
- ($sc-dispatch body-27001 '(any any . each-any))))
- (if (if tmp-27008
+ (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-27012 e1-27013 e2-27014)
- (string? (syntax->datum docstring-27012)))
- tmp-27008)
+ (lambda (docstring-29154 e1-29155 e2-29156)
+ (string? (syntax->datum docstring-29154)))
+ tmp-29150)
#f)
(@apply
- (lambda (docstring-27015 e1-27016 e2-27017)
- (parse-body-25961
- req-26997
- opt-26998
- rest-26999
- kw-27000
- (cons e1-27016 e2-27017)
- vars-27002
- r*-27003
- w*-27004
- inits-27005
+ (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-27006
+ meta-29148
(list (cons 'documentation
- (syntax->datum docstring-27015))))))
- tmp-27008)
- (let ((tmp-27018
+ (syntax->datum docstring-29157))))))
+ tmp-29150)
+ (let ((tmp-29160
($sc-dispatch
- body-27001
+ body-29143
'(#(vector #(each (any . any)))
any
.
each-any))))
- (if tmp-27018
+ (if tmp-29160
(@apply
- (lambda (k-27022 v-27023 e1-27024 e2-27025)
- (parse-body-25961
- req-26997
- opt-26998
- rest-26999
- kw-27000
- (cons e1-27024 e2-27025)
- vars-27002
- r*-27003
- w*-27004
- inits-27005
+ (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-27006
- (syntax->datum (map cons k-27022 v-27023)))))
- tmp-27018)
- (let ((tmp-27026
- ($sc-dispatch body-27001 '(any . each-any))))
- (if tmp-27026
+ 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-27030 e2-27031)
+ (lambda (e1-29172 e2-29173)
(values
- meta-27006
- req-26997
- opt-26998
- rest-26999
- kw-27000
- inits-27005
- vars-27002
- (expand-body-4526
- (cons e1-27030 e2-27031)
- (wrap-4515
+ 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-25951) s-25954 #f)
+ (if (if (pair? e-28093) s-28096 #f)
(set-source-properties!
- e-25951
- s-25954))
- e-25951)
- w-25953
- mod-25955)
- r*-27003
- w*-27004
- mod-25955)))
- tmp-27026)
+ 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-27001))))))))))
- (let ((tmp-25963 ($sc-dispatch clauses-25957 '())))
- (if tmp-25963
- (@apply (lambda () (values '() #f)) tmp-25963)
- (let ((tmp-25967
+ body-29143))))))))))
+ (let ((tmp-28105 ($sc-dispatch clauses-28099 '())))
+ (if tmp-28105
+ (@apply (lambda () (values '() #f)) tmp-28105)
+ (let ((tmp-28109
($sc-dispatch
- clauses-25957
+ clauses-28099
'((any any . each-any)
.
#(each (any any . each-any))))))
- (if tmp-25967
+ (if tmp-28109
(@apply
- (lambda (args-25971
- e1-25972
- e2-25973
- args*-25974
- e1*-25975
- e2*-25976)
+ (lambda (args-28113
+ e1-28114
+ e2-28115
+ args*-28116
+ e1*-28117
+ e2*-28118)
(call-with-values
- (lambda () (get-formals-25956 args-25971))
- (lambda (req-25977 opt-25978 rest-25979 kw-25980)
+ (lambda () (get-formals-28098 args-28113))
+ (lambda (req-28119 opt-28120 rest-28121 kw-28122)
(call-with-values
(lambda ()
- (parse-req-25958
- req-25977
- opt-25978
- rest-25979
- kw-25980
- (cons e1-25972 e2-25973)))
- (lambda (meta-26045
- req-26046
- opt-26047
- rest-26048
- kw-26049
- inits-26050
- vars-26051
- body-26052)
+ (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-4534
- e-25951
- r-25952
- w-25953
- s-25954
- mod-25955
- get-formals-25956
- (map (lambda (tmp-2888-26053
- tmp-2887-26054
- tmp-2886-26055)
- (cons tmp-2886-26055
- (cons tmp-2887-26054
- tmp-2888-26053)))
- e2*-25976
- e1*-25975
- args*-25974)))
- (lambda (meta*-26056 else*-26057)
+ (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-26045 meta*-26056)
+ (append meta-28187 meta*-28198)
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
- s-25954
- req-26046
- opt-26047
- rest-26048
- kw-26049
- inits-26050
- vars-26051
- body-26052
- else*-26057)))))))))
- tmp-25967)
+ 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-25957))))))))
- (strip-4535
- (lambda (x-27068 w-27069)
- (if (memq 'top (car w-27069))
- x-27068
+ clauses-28099))))))))
+ (strip-6598
+ (lambda (x-29210 w-29211)
+ (if (memq 'top (car w-29211))
+ x-29210
(letrec*
- ((f-27070
- (lambda (x-27073)
- (if (if (vector? x-27073)
- (if (= (vector-length x-27073) 4)
- (eq? (vector-ref x-27073 0) 'syntax-object)
+ ((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-4535
- (vector-ref x-27073 1)
- (vector-ref x-27073 2))
- (if (pair? x-27073)
- (let ((a-27092 (f-27070 (car x-27073)))
- (d-27093 (f-27070 (cdr x-27073))))
- (if (if (eq? a-27092 (car x-27073))
- (eq? d-27093 (cdr x-27073))
+ (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-27073
- (cons a-27092 d-27093)))
- (if (vector? x-27073)
- (let ((old-27096 (vector->list x-27073)))
- (let ((new-27097 (map f-27070 old-27096)))
+ 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-27098
- (lambda (l1-27174 l2-27175)
- (if (null? l1-27174)
- x-27073
- (if (eq? (car l1-27174) (car l2-27175))
- (lp-27098 (cdr l1-27174) (cdr l2-27175))
- (list->vector new-27097))))))
- (lp-27098 old-27096 new-27097))))
- x-27073))))))
- (f-27070 x-27068)))))
- (gen-var-4536
- (lambda (id-26101)
- (let ((id-26102
- (if (if (vector? id-26101)
- (if (= (vector-length id-26101) 4)
- (eq? (vector-ref id-26101 0) 'syntax-object)
+ ((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-26101 1)
- id-26101)))
+ (vector-ref id-28243 1)
+ id-28243)))
(gensym
- (string-append (symbol->string id-26102) "-"))))))
+ (string-append (symbol->string id-28244) "-"))))))
(begin
- (set! session-id-4447
- (let ((v-15641
+ (set! session-id-6510
+ (let ((v-17707
(module-variable
(current-module)
'syntax-session-id)))
- (lambda () ((variable-ref v-15641)))))
- (set! transformer-environment-4508
+ (lambda () ((variable-ref v-17707)))))
+ (set! transformer-environment-6571
(make-fluid
- (lambda (k-14684)
+ (lambda (k-16750)
(error "called outside the dynamic extent of a syntax transformer"))))
(module-define!
(current-module)
@@ -8096,1119 +8177,1142 @@
'let-syntax
'local-syntax
#f))
- (global-extend-4484
+ (global-extend-6547
'core
'syntax-parameterize
- (lambda (e-4657 r-4658 w-4659 s-4660 mod-4661)
- (let ((tmp-4663
+ (lambda (e-6720 r-6721 w-6722 s-6723 mod-6724)
+ (let ((tmp-6726
($sc-dispatch
- e-4657
+ e-6720
'(_ #(each (any any)) any . each-any))))
- (if (if tmp-4663
+ (if (if tmp-6726
(@apply
- (lambda (var-4667 val-4668 e1-4669 e2-4670)
- (valid-bound-ids?-4512 var-4667))
- tmp-4663)
+ (lambda (var-6730 val-6731 e1-6732 e2-6733)
+ (valid-bound-ids?-6575 var-6730))
+ tmp-6726)
#f)
(@apply
- (lambda (var-4748 val-4749 e1-4750 e2-4751)
- (let ((names-4752
- (map (lambda (x-4802)
- (id-var-name-4505 x-4802 w-4659))
- var-4748)))
+ (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-4753 n-4754)
- (let ((atom-key-4755
- (car (let ((t-4762 (assq n-4754 r-4658)))
- (if t-4762
- (cdr t-4762)
- (if (symbol? n-4754)
- (let ((t-4767
- (get-global-definition-hook-4449
- n-4754
- mod-4661)))
- (if t-4767 t-4767 '(global)))
+ (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-4755 'displaced-lexical)
+ (if (eqv? atom-key-6818 'displaced-lexical)
(syntax-violation
'syntax-parameterize
"identifier out of context"
- e-4657
- (wrap-4515
+ e-6720
+ (wrap-6578
(begin
- (if (if (pair? id-4753) s-4660 #f)
- (set-source-properties! id-4753 s-4660))
- id-4753)
- w-4659
- mod-4661)))))
- var-4748
- names-4752)
- (expand-body-4526
- (cons e1-4750 e2-4751)
- (wrap-4515
+ (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-4657) s-4660 #f)
- (set-source-properties! e-4657 s-4660))
- e-4657)
- w-4659
- mod-4661)
- (extend-env-4480
- names-4752
- (let ((trans-r-4888 (macros-only-env-4482 r-4658)))
- (map (lambda (x-4889)
+ (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-4528
- (expand-4522
- x-4889
- trans-r-4888
- w-4659
- mod-4661)
- mod-4661)))
- val-4749))
- r-4658)
- w-4659
- mod-4661))))
- tmp-4663)
+ (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-4515
+ (wrap-6578
(begin
- (if (if (pair? e-4657) s-4660 #f)
- (set-source-properties! e-4657 s-4660))
- e-4657)
- w-4659
- mod-4661))))))
+ (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-5098 r-5099 w-5100 s-5101 mod-5102)
- (let ((tmp-5104 ($sc-dispatch e-5098 '(_ any))))
- (if tmp-5104
+ (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-5107)
- (let ((exp-5111 (strip-4535 e-5107 w-5100)))
+ (lambda (e-7170)
+ (let ((exp-7174 (strip-6598 e-7170 w-7163)))
(make-struct/no-tail
(vector-ref %expanded-vtables 1)
- s-5101
- exp-5111)))
- tmp-5104)
+ s-7164
+ exp-7174)))
+ tmp-7167)
(syntax-violation
'quote
"bad syntax"
- (wrap-4515
+ (wrap-6578
(begin
- (if (if (pair? e-5098) s-5101 #f)
- (set-source-properties! e-5098 s-5101))
- e-5098)
- w-5100
- mod-5102)))))))
- (global-extend-4484
+ (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-5331
- (lambda (src-5433
- e-5434
- r-5435
- maps-5436
- ellipsis?-5437
- mod-5438)
- (if (if (symbol? e-5434)
+ ((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-5434)
- (if (= (vector-length e-5434) 4)
- (eq? (vector-ref e-5434 0) 'syntax-object)
+ (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-5434 1))
+ (symbol? (vector-ref e-7497 1))
#f))
- (let ((label-5465 (id-var-name-4505 e-5434 '(()))))
- (let ((b-5466
- (let ((t-5473 (assq label-5465 r-5435)))
- (if t-5473
- (cdr t-5473)
- (if (symbol? label-5465)
- (let ((t-5479
- (get-global-definition-hook-4449
- label-5465
- mod-5438)))
- (if t-5479 t-5479 '(global)))
+ (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-5466) 'syntax)
+ (if (eq? (car b-7529) 'syntax)
(call-with-values
(lambda ()
- (let ((var.lev-5488 (cdr b-5466)))
- (gen-ref-5332
- src-5433
- (car var.lev-5488)
- (cdr var.lev-5488)
- maps-5436)))
- (lambda (var-5492 maps-5493)
- (values (list 'ref var-5492) maps-5493)))
- (if (ellipsis?-5437 e-5434)
+ (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-5433)
- (values (list 'quote e-5434) maps-5436)))))
- (let ((tmp-5495 ($sc-dispatch e-5434 '(any any))))
- (if (if tmp-5495
+ 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-5499 e-5500)
- (ellipsis?-5437 dots-5499))
- tmp-5495)
+ (lambda (dots-7562 e-7563)
+ (ellipsis?-7500 dots-7562))
+ tmp-7558)
#f)
(@apply
- (lambda (dots-5501 e-5502)
- (gen-syntax-5331
- src-5433
- e-5502
- r-5435
- maps-5436
- (lambda (x-5503) #f)
- mod-5438))
- tmp-5495)
- (let ((tmp-5504 ($sc-dispatch e-5434 '(any any . any))))
- (if (if tmp-5504
+ (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-5508 dots-5509 y-5510)
- (ellipsis?-5437 dots-5509))
- tmp-5504)
+ (lambda (x-7571 dots-7572 y-7573)
+ (ellipsis?-7500 dots-7572))
+ tmp-7567)
#f)
(@apply
- (lambda (x-5511 dots-5512 y-5513)
+ (lambda (x-7574 dots-7575 y-7576)
(letrec*
- ((f-5514
- (lambda (y-5522 k-5523)
- (let ((tmp-5525
+ ((f-7577
+ (lambda (y-7585 k-7586)
+ (let ((tmp-7588
($sc-dispatch
- y-5522
+ y-7585
'(any . any))))
- (if (if tmp-5525
+ (if (if tmp-7588
(@apply
- (lambda (dots-5529 y-5530)
- (ellipsis?-5437 dots-5529))
- tmp-5525)
+ (lambda (dots-7592 y-7593)
+ (ellipsis?-7500 dots-7592))
+ tmp-7588)
#f)
(@apply
- (lambda (dots-5531 y-5532)
- (f-5514
- y-5532
- (lambda (maps-5533)
+ (lambda (dots-7594 y-7595)
+ (f-7577
+ y-7595
+ (lambda (maps-7596)
(call-with-values
(lambda ()
- (k-5523
- (cons '() maps-5533)))
- (lambda (x-5534 maps-5535)
- (if (null? (car maps-5535))
+ (k-7586
+ (cons '() maps-7596)))
+ (lambda (x-7597 maps-7598)
+ (if (null? (car maps-7598))
(syntax-violation
'syntax
"extra ellipsis"
- src-5433)
+ src-7496)
(values
- (let ((map-env-5539
- (car maps-5535)))
+ (let ((map-env-7602
+ (car maps-7598)))
(list 'apply
'(primitive
append)
- (gen-map-5334
- x-5534
- map-env-5539)))
- (cdr maps-5535))))))))
- tmp-5525)
+ (gen-map-7397
+ x-7597
+ map-env-7602)))
+ (cdr maps-7598))))))))
+ tmp-7588)
(call-with-values
(lambda ()
- (gen-syntax-5331
- src-5433
- y-5522
- r-5435
- maps-5436
- ellipsis?-5437
- mod-5438))
- (lambda (y-5542 maps-5543)
+ (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-5523 maps-5543))
- (lambda (x-5544 maps-5545)
+ (lambda () (k-7586 maps-7606))
+ (lambda (x-7607 maps-7608)
(values
- (if (equal? y-5542 ''())
- x-5544
+ (if (equal? y-7605 ''())
+ x-7607
(list 'append
- x-5544
- y-5542))
- maps-5545))))))))))
- (f-5514
- y-5513
- (lambda (maps-5517)
+ x-7607
+ y-7605))
+ maps-7608))))))))))
+ (f-7577
+ y-7576
+ (lambda (maps-7580)
(call-with-values
(lambda ()
- (gen-syntax-5331
- src-5433
- x-5511
- r-5435
- (cons '() maps-5517)
- ellipsis?-5437
- mod-5438))
- (lambda (x-5518 maps-5519)
- (if (null? (car maps-5519))
+ (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-5433)
+ src-7496)
(values
- (gen-map-5334
- x-5518
- (car maps-5519))
- (cdr maps-5519)))))))))
- tmp-5504)
- (let ((tmp-5561 ($sc-dispatch e-5434 '(any . any))))
- (if tmp-5561
+ (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-5565 y-5566)
+ (lambda (x-7628 y-7629)
(call-with-values
(lambda ()
- (gen-syntax-5331
- src-5433
- x-5565
- r-5435
- maps-5436
- ellipsis?-5437
- mod-5438))
- (lambda (x-5567 maps-5568)
+ (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-5331
- src-5433
- y-5566
- r-5435
- maps-5568
- ellipsis?-5437
- mod-5438))
- (lambda (y-5569 maps-5570)
+ (gen-syntax-7394
+ src-7496
+ y-7629
+ r-7498
+ maps-7631
+ ellipsis?-7500
+ mod-7501))
+ (lambda (y-7632 maps-7633)
(values
- (let ((atom-key-5575 (car y-5569)))
- (if (eqv? atom-key-5575 'quote)
- (if (eq? (car x-5567) 'quote)
+ (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-5567))
- (car (cdr y-5569))))
- (if (eq? (car (cdr y-5569))
+ (cons (car (cdr x-7630))
+ (car (cdr y-7632))))
+ (if (eq? (car (cdr y-7632))
'())
- (list 'list x-5567)
- (list 'cons x-5567 y-5569)))
- (if (eqv? atom-key-5575 'list)
+ (list 'list x-7630)
+ (list 'cons x-7630 y-7632)))
+ (if (eqv? atom-key-7638 'list)
(cons 'list
- (cons x-5567
- (cdr y-5569)))
- (list 'cons x-5567 y-5569))))
- maps-5570))))))
- tmp-5561)
- (let ((tmp-5604
+ (cons x-7630
+ (cdr y-7632)))
+ (list 'cons x-7630 y-7632))))
+ maps-7633))))))
+ tmp-7624)
+ (let ((tmp-7667
($sc-dispatch
- e-5434
+ e-7497
'#(vector (any . each-any)))))
- (if tmp-5604
+ (if tmp-7667
(@apply
- (lambda (e1-5608 e2-5609)
+ (lambda (e1-7671 e2-7672)
(call-with-values
(lambda ()
- (gen-syntax-5331
- src-5433
- (cons e1-5608 e2-5609)
- r-5435
- maps-5436
- ellipsis?-5437
- mod-5438))
- (lambda (e-5610 maps-5611)
+ (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-5610) 'list)
- (cons 'vector (cdr e-5610))
- (if (eq? (car e-5610) 'quote)
+ (if (eq? (car e-7673) 'list)
+ (cons 'vector (cdr e-7673))
+ (if (eq? (car e-7673) 'quote)
(list 'quote
(list->vector
- (car (cdr e-5610))))
- (list 'list->vector e-5610)))
- maps-5611))))
- tmp-5604)
+ (car (cdr e-7673))))
+ (list 'list->vector e-7673)))
+ maps-7674))))
+ tmp-7667)
(values
- (list 'quote e-5434)
- maps-5436))))))))))))
- (gen-ref-5332
- (lambda (src-5638 var-5639 level-5640 maps-5641)
- (if (= level-5640 0)
- (values var-5639 maps-5641)
- (if (null? maps-5641)
+ (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-5638)
+ src-7701)
(call-with-values
(lambda ()
- (gen-ref-5332
- src-5638
- var-5639
- (#{1-}# level-5640)
- (cdr maps-5641)))
- (lambda (outer-var-5642 outer-maps-5643)
- (let ((b-5644 (assq outer-var-5642 (car maps-5641))))
- (if b-5644
- (values (cdr b-5644) maps-5641)
- (let ((inner-var-5646
+ (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-5646
- (cons (cons (cons outer-var-5642 inner-var-5646)
- (car maps-5641))
- outer-maps-5643)))))))))))
- (gen-map-5334
- (lambda (e-5660 map-env-5661)
- (let ((formals-5662 (map cdr map-env-5661))
- (actuals-5663
- (map (lambda (x-5665) (list 'ref (car x-5665)))
- map-env-5661)))
- (if (eq? (car e-5660) 'ref)
- (car actuals-5663)
+ 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-5666)
- (if (eq? (car x-5666) 'ref)
- (memq (car (cdr x-5666)) formals-5662)
+ (lambda (x-7729)
+ (if (eq? (car x-7729) 'ref)
+ (memq (car (cdr x-7729)) formals-7725)
#f))
- (cdr e-5660))
+ (cdr e-7723))
(cons 'map
- (cons (list 'primitive (car e-5660))
- (map (let ((r-5668
+ (cons (list 'primitive (car e-7723))
+ (map (let ((r-7731
(map cons
- formals-5662
- actuals-5663)))
- (lambda (x-5669)
- (cdr (assq (car (cdr x-5669))
- r-5668))))
- (cdr e-5660))))
+ formals-7725
+ actuals-7726)))
+ (lambda (x-7732)
+ (cdr (assq (car (cdr x-7732))
+ r-7731))))
+ (cdr e-7723))))
(cons 'map
- (cons (list 'lambda formals-5662 e-5660)
- actuals-5663)))))))
- (regen-5338
- (lambda (x-5671)
- (let ((atom-key-5672 (car x-5671)))
- (if (eqv? atom-key-5672 'ref)
- (let ((name-5682 (car (cdr x-5671)))
- (var-5683 (car (cdr x-5671))))
+ (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-5682
- var-5683))
- (if (eqv? atom-key-5672 'primitive)
- (let ((name-5695 (car (cdr x-5671))))
+ 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-5695)
+ name-7758)
(make-struct/no-tail
(vector-ref %expanded-vtables 5)
#f
'(guile)
- name-5695
+ name-7758
#f)))
- (if (eqv? atom-key-5672 'quote)
- (let ((exp-5713 (car (cdr x-5671))))
+ (if (eqv? atom-key-7735 'quote)
+ (let ((exp-7776 (car (cdr x-7734))))
(make-struct/no-tail
(vector-ref %expanded-vtables 1)
#f
- exp-5713))
- (if (eqv? atom-key-5672 'lambda)
- (if (list? (car (cdr x-5671)))
- (let ((req-5724 (car (cdr x-5671)))
- (vars-5726 (car (cdr x-5671)))
- (exp-5728
- (regen-5338 (car (cdr (cdr x-5671))))))
- (let ((body-5733
+ 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-5724
+ req-7787
#f
#f
#f
'()
- vars-5726
- exp-5728
+ vars-7789
+ exp-7791
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
#f
'()
- body-5733)))
- (error "how did we get here" x-5671))
- (let ((fun-exp-5749
- (let ((name-5758 (car x-5671)))
+ 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-5758)
+ name-7821)
(make-struct/no-tail
(vector-ref %expanded-vtables 5)
#f
'(guile)
- name-5758
+ name-7821
#f))))
- (arg-exps-5750 (map regen-5338 (cdr x-5671))))
+ (arg-exps-7813 (map regen-7401 (cdr x-7734))))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
#f
- fun-exp-5749
- arg-exps-5750))))))))))
- (lambda (e-5339 r-5340 w-5341 s-5342 mod-5343)
- (let ((e-5344
- (wrap-4515
+ 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-5339) s-5342 #f)
- (set-source-properties! e-5339 s-5342))
- e-5339)
- w-5341
- mod-5343)))
- (let ((tmp-5346 ($sc-dispatch e-5344 '(_ any))))
- (if tmp-5346
+ (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-5371)
+ (lambda (x-7434)
(call-with-values
(lambda ()
- (gen-syntax-5331
- e-5344
- x-5371
- r-5340
+ (gen-syntax-7394
+ e-7407
+ x-7434
+ r-7403
'()
- ellipsis?-4530
- mod-5343))
- (lambda (e-5425 maps-5426) (regen-5338 e-5425))))
- tmp-5346)
+ ellipsis?-6593
+ mod-7406))
+ (lambda (e-7488 maps-7489) (regen-7401 e-7488))))
+ tmp-7409)
(syntax-violation
'syntax
"bad `syntax' form"
- e-5344)))))))
- (global-extend-4484
+ e-7407)))))))
+ (global-extend-6547
'core
'lambda
- (lambda (e-5946 r-5947 w-5948 s-5949 mod-5950)
- (let ((tmp-5952
- ($sc-dispatch e-5946 '(_ any any . each-any))))
- (if tmp-5952
+ (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-5956 e1-5957 e2-5958)
+ (lambda (args-8019 e1-8020 e2-8021)
(call-with-values
- (lambda () (lambda-formals-4531 args-5956))
- (lambda (req-5961 opt-5962 rest-5963 kw-5964)
+ (lambda () (lambda-formals-6594 args-8019))
+ (lambda (req-8024 opt-8025 rest-8026 kw-8027)
(letrec*
- ((lp-5965
- (lambda (body-5968 meta-5969)
- (let ((tmp-5971
+ ((lp-8028
+ (lambda (body-8031 meta-8032)
+ (let ((tmp-8034
($sc-dispatch
- body-5968
+ body-8031
'(any any . each-any))))
- (if (if tmp-5971
+ (if (if tmp-8034
(@apply
- (lambda (docstring-5975 e1-5976 e2-5977)
+ (lambda (docstring-8038 e1-8039 e2-8040)
(string?
- (syntax->datum docstring-5975)))
- tmp-5971)
+ (syntax->datum docstring-8038)))
+ tmp-8034)
#f)
(@apply
- (lambda (docstring-5978 e1-5979 e2-5980)
- (lp-5965
- (cons e1-5979 e2-5980)
+ (lambda (docstring-8041 e1-8042 e2-8043)
+ (lp-8028
+ (cons e1-8042 e2-8043)
(append
- meta-5969
+ meta-8032
(list (cons 'documentation
(syntax->datum
- docstring-5978))))))
- tmp-5971)
- (let ((tmp-5981
+ docstring-8041))))))
+ tmp-8034)
+ (let ((tmp-8044
($sc-dispatch
- body-5968
+ body-8031
'(#(vector #(each (any . any)))
any
.
each-any))))
- (if tmp-5981
+ (if tmp-8044
(@apply
- (lambda (k-5985 v-5986 e1-5987 e2-5988)
- (lp-5965
- (cons e1-5987 e2-5988)
+ (lambda (k-8048 v-8049 e1-8050 e2-8051)
+ (lp-8028
+ (cons e1-8050 e2-8051)
(append
- meta-5969
+ meta-8032
(syntax->datum
- (map cons k-5985 v-5986)))))
- tmp-5981)
- (expand-simple-lambda-4532
- e-5946
- r-5947
- w-5948
- s-5949
- mod-5950
- req-5961
- rest-5963
- meta-5969
- body-5968))))))))
- (lp-5965 (cons e1-5957 e2-5958) '())))))
- tmp-5952)
- (syntax-violation 'lambda "bad lambda" e-5946)))))
- (global-extend-4484
+ (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-6277 r-6278 w-6279 s-6280 mod-6281)
- (let ((tmp-6283
- ($sc-dispatch e-6277 '(_ any any . each-any))))
- (if tmp-6283
+ (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-6287 e1-6288 e2-6289)
+ (lambda (args-8350 e1-8351 e2-8352)
(call-with-values
(lambda ()
- (expand-lambda-case-4534
- e-6277
- r-6278
- w-6279
- s-6280
- mod-6281
- lambda*-formals-4533
- (list (cons args-6287 (cons e1-6288 e2-6289)))))
- (lambda (meta-6292 lcase-6293)
+ (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-6280
- meta-6292
- lcase-6293))))
- tmp-6283)
- (syntax-violation 'lambda "bad lambda*" e-6277)))))
- (global-extend-4484
+ s-8343
+ meta-8355
+ lcase-8356))))
+ tmp-8346)
+ (syntax-violation 'lambda "bad lambda*" e-8340)))))
+ (global-extend-6547
'core
'case-lambda
- (lambda (e-6463 r-6464 w-6465 s-6466 mod-6467)
- (let ((tmp-6469
+ (lambda (e-8526 r-8527 w-8528 s-8529 mod-8530)
+ (let ((tmp-8532
($sc-dispatch
- e-6463
+ e-8526
'(_ (any any . each-any)
.
#(each (any any . each-any))))))
- (if tmp-6469
+ (if tmp-8532
(@apply
- (lambda (args-6473
- e1-6474
- e2-6475
- args*-6476
- e1*-6477
- e2*-6478)
+ (lambda (args-8536
+ e1-8537
+ e2-8538
+ args*-8539
+ e1*-8540
+ e2*-8541)
(call-with-values
(lambda ()
- (expand-lambda-case-4534
- e-6463
- r-6464
- w-6465
- s-6466
- mod-6467
- lambda-formals-4531
- (cons (cons args-6473 (cons e1-6474 e2-6475))
- (map (lambda (tmp-3387-6481
- tmp-3386-6482
- tmp-3385-6483)
- (cons tmp-3385-6483
- (cons tmp-3386-6482 tmp-3387-6481)))
- e2*-6478
- e1*-6477
- args*-6476))))
- (lambda (meta-6484 lcase-6485)
+ (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-6466
- meta-6484
- lcase-6485))))
- tmp-6469)
+ s-8529
+ meta-8547
+ lcase-8548))))
+ tmp-8532)
(syntax-violation
'case-lambda
"bad case-lambda"
- e-6463)))))
- (global-extend-4484
+ e-8526)))))
+ (global-extend-6547
'core
'case-lambda*
- (lambda (e-6647 r-6648 w-6649 s-6650 mod-6651)
- (let ((tmp-6653
+ (lambda (e-8710 r-8711 w-8712 s-8713 mod-8714)
+ (let ((tmp-8716
($sc-dispatch
- e-6647
+ e-8710
'(_ (any any . each-any)
.
#(each (any any . each-any))))))
- (if tmp-6653
+ (if tmp-8716
(@apply
- (lambda (args-6657
- e1-6658
- e2-6659
- args*-6660
- e1*-6661
- e2*-6662)
+ (lambda (args-8720
+ e1-8721
+ e2-8722
+ args*-8723
+ e1*-8724
+ e2*-8725)
(call-with-values
(lambda ()
- (expand-lambda-case-4534
- e-6647
- r-6648
- w-6649
- s-6650
- mod-6651
- lambda*-formals-4533
- (cons (cons args-6657 (cons e1-6658 e2-6659))
- (map (lambda (tmp-3422-6665
- tmp-3421-6666
- tmp-3420-6667)
- (cons tmp-3420-6667
- (cons tmp-3421-6666 tmp-3422-6665)))
- e2*-6662
- e1*-6661
- args*-6660))))
- (lambda (meta-6668 lcase-6669)
+ (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-6650
- meta-6668
- lcase-6669))))
- tmp-6653)
+ s-8713
+ meta-8731
+ lcase-8732))))
+ tmp-8716)
(syntax-violation
'case-lambda
"bad case-lambda*"
- e-6647)))))
- (global-extend-4484
+ e-8710)))))
+ (global-extend-6547
'core
'let
(letrec*
- ((expand-let-6860
- (lambda (e-7009
- r-7010
- w-7011
- s-7012
- mod-7013
- constructor-7014
- ids-7015
- vals-7016
- exps-7017)
- (if (not (valid-bound-ids?-4512 ids-7015))
+ ((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-7009)
- (let ((labels-7095 (gen-labels-4489 ids-7015))
- (new-vars-7096 (map gen-var-4536 ids-7015)))
- (let ((nw-7097
- (make-binding-wrap-4500
- ids-7015
- labels-7095
- w-7011))
- (nr-7098
- (extend-var-env-4481
- labels-7095
- new-vars-7096
- r-7010)))
- (constructor-7014
- s-7012
- (map syntax->datum ids-7015)
- new-vars-7096
- (map (lambda (x-7115)
- (expand-4522 x-7115 r-7010 w-7011 mod-7013))
- vals-7016)
- (expand-body-4526
- exps-7017
- (source-wrap-4516 e-7009 nw-7097 s-7012 mod-7013)
- nr-7098
- nw-7097
- mod-7013))))))))
- (lambda (e-6861 r-6862 w-6863 s-6864 mod-6865)
- (let ((tmp-6867
+ 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-6861
+ e-8924
'(_ #(each (any any)) any . each-any))))
- (if (if tmp-6867
+ (if (if tmp-8930
(@apply
- (lambda (id-6871 val-6872 e1-6873 e2-6874)
- (and-map id?-4486 id-6871))
- tmp-6867)
+ (lambda (id-8934 val-8935 e1-8936 e2-8937)
+ (and-map id?-6549 id-8934))
+ tmp-8930)
#f)
(@apply
- (lambda (id-6890 val-6891 e1-6892 e2-6893)
- (expand-let-6860
- e-6861
- r-6862
- w-6863
- s-6864
- mod-6865
- build-let-4468
- id-6890
- val-6891
- (cons e1-6892 e2-6893)))
- tmp-6867)
- (let ((tmp-6923
+ (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-6861
+ e-8924
'(_ any #(each (any any)) any . each-any))))
- (if (if tmp-6923
+ (if (if tmp-8986
(@apply
- (lambda (f-6927 id-6928 val-6929 e1-6930 e2-6931)
- (if (if (symbol? f-6927)
+ (lambda (f-8990 id-8991 val-8992 e1-8993 e2-8994)
+ (if (if (symbol? f-8990)
#t
- (if (if (vector? f-6927)
- (if (= (vector-length f-6927) 4)
- (eq? (vector-ref f-6927 0)
+ (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-6927 1))
+ (symbol? (vector-ref f-8990 1))
#f))
- (and-map id?-4486 id-6928)
+ (and-map id?-6549 id-8991)
#f))
- tmp-6923)
+ tmp-8986)
#f)
(@apply
- (lambda (f-6973 id-6974 val-6975 e1-6976 e2-6977)
- (expand-let-6860
- e-6861
- r-6862
- w-6863
- s-6864
- mod-6865
- build-named-let-4469
- (cons f-6973 id-6974)
- val-6975
- (cons e1-6976 e2-6977)))
- tmp-6923)
+ (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-4515
+ (wrap-6578
(begin
- (if (if (pair? e-6861) s-6864 #f)
- (set-source-properties! e-6861 s-6864))
- e-6861)
- w-6863
- mod-6865)))))))))
- (global-extend-4484
+ (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-7527 r-7528 w-7529 s-7530 mod-7531)
- (let ((tmp-7533
+ (lambda (e-9590 r-9591 w-9592 s-9593 mod-9594)
+ (let ((tmp-9596
($sc-dispatch
- e-7527
+ e-9590
'(_ #(each (any any)) any . each-any))))
- (if (if tmp-7533
+ (if (if tmp-9596
(@apply
- (lambda (id-7537 val-7538 e1-7539 e2-7540)
- (and-map id?-4486 id-7537))
- tmp-7533)
+ (lambda (id-9600 val-9601 e1-9602 e2-9603)
+ (and-map id?-6549 id-9600))
+ tmp-9596)
#f)
(@apply
- (lambda (id-7556 val-7557 e1-7558 e2-7559)
- (if (not (valid-bound-ids?-4512 id-7556))
+ (lambda (id-9619 val-9620 e1-9621 e2-9622)
+ (if (not (valid-bound-ids?-6575 id-9619))
(syntax-violation
'letrec
"duplicate bound variable"
- e-7527)
- (let ((labels-7649 (gen-labels-4489 id-7556))
- (new-vars-7650 (map gen-var-4536 id-7556)))
- (let ((w-7651
- (make-binding-wrap-4500
- id-7556
- labels-7649
- w-7529))
- (r-7652
- (extend-var-env-4481
- labels-7649
- new-vars-7650
- r-7528)))
- (build-letrec-4470
- s-7530
+ 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-7556)
- new-vars-7650
- (map (lambda (x-7737)
- (expand-4522 x-7737 r-7652 w-7651 mod-7531))
- val-7557)
- (expand-body-4526
- (cons e1-7558 e2-7559)
- (wrap-4515
+ (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-7527) s-7530 #f)
- (set-source-properties! e-7527 s-7530))
- e-7527)
- w-7651
- mod-7531)
- r-7652
- w-7651
- mod-7531))))))
- tmp-7533)
+ (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-4515
+ (wrap-6578
(begin
- (if (if (pair? e-7527) s-7530 #f)
- (set-source-properties! e-7527 s-7530))
- e-7527)
- w-7529
- mod-7531))))))
- (global-extend-4484
+ (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-8132 r-8133 w-8134 s-8135 mod-8136)
- (let ((tmp-8138
+ (lambda (e-10195 r-10196 w-10197 s-10198 mod-10199)
+ (let ((tmp-10201
($sc-dispatch
- e-8132
+ e-10195
'(_ #(each (any any)) any . each-any))))
- (if (if tmp-8138
+ (if (if tmp-10201
(@apply
- (lambda (id-8142 val-8143 e1-8144 e2-8145)
- (and-map id?-4486 id-8142))
- tmp-8138)
+ (lambda (id-10205 val-10206 e1-10207 e2-10208)
+ (and-map id?-6549 id-10205))
+ tmp-10201)
#f)
(@apply
- (lambda (id-8161 val-8162 e1-8163 e2-8164)
- (if (not (valid-bound-ids?-4512 id-8161))
+ (lambda (id-10224 val-10225 e1-10226 e2-10227)
+ (if (not (valid-bound-ids?-6575 id-10224))
(syntax-violation
'letrec*
"duplicate bound variable"
- e-8132)
- (let ((labels-8254 (gen-labels-4489 id-8161))
- (new-vars-8255 (map gen-var-4536 id-8161)))
- (let ((w-8256
- (make-binding-wrap-4500
- id-8161
- labels-8254
- w-8134))
- (r-8257
- (extend-var-env-4481
- labels-8254
- new-vars-8255
- r-8133)))
- (build-letrec-4470
- s-8135
+ 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-8161)
- new-vars-8255
- (map (lambda (x-8342)
- (expand-4522 x-8342 r-8257 w-8256 mod-8136))
- val-8162)
- (expand-body-4526
- (cons e1-8163 e2-8164)
- (wrap-4515
+ (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-8132) s-8135 #f)
- (set-source-properties! e-8132 s-8135))
- e-8132)
- w-8256
- mod-8136)
- r-8257
- w-8256
- mod-8136))))))
- tmp-8138)
+ (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-4515
+ (wrap-6578
(begin
- (if (if (pair? e-8132) s-8135 #f)
- (set-source-properties! e-8132 s-8135))
- e-8132)
- w-8134
- mod-8136))))))
- (global-extend-4484
+ (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-8776 r-8777 w-8778 s-8779 mod-8780)
- (let ((tmp-8782 ($sc-dispatch e-8776 '(_ any any))))
- (if (if tmp-8782
+ (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-8786 val-8787)
- (if (symbol? id-8786)
+ (lambda (id-10849 val-10850)
+ (if (symbol? id-10849)
#t
- (if (if (vector? id-8786)
- (if (= (vector-length id-8786) 4)
- (eq? (vector-ref id-8786 0) 'syntax-object)
+ (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-8786 1))
+ (symbol? (vector-ref id-10849 1))
#f)))
- tmp-8782)
+ tmp-10845)
#f)
(@apply
- (lambda (id-8814 val-8815)
- (let ((n-8816 (id-var-name-4505 id-8814 w-8778))
- (id-mod-8817
- (if (if (vector? id-8814)
- (if (= (vector-length id-8814) 4)
- (eq? (vector-ref id-8814 0) 'syntax-object)
+ (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-8814 3)
- mod-8780)))
- (let ((b-8818
- (let ((t-8859 (assq n-8816 r-8777)))
- (if t-8859
- (cdr t-8859)
- (if (symbol? n-8816)
- (let ((t-8864
- (get-global-definition-hook-4449
- n-8816
- id-mod-8817)))
- (if t-8864 t-8864 '(global)))
+ (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-8819 (car b-8818)))
- (if (eqv? atom-key-8819 'lexical)
- (build-lexical-assignment-4457
- s-8779
- (syntax->datum id-8814)
- (cdr b-8818)
- (expand-4522 val-8815 r-8777 w-8778 mod-8780))
- (if (eqv? atom-key-8819 'global)
- (build-global-assignment-4460
- s-8779
- n-8816
- (expand-4522 val-8815 r-8777 w-8778 mod-8780)
- id-mod-8817)
- (if (eqv? atom-key-8819 'macro)
- (let ((p-9178 (cdr b-8818)))
+ (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-9178
+ p-11241
'variable-transformer)
- (expand-4522
- (expand-macro-4525
- p-9178
- e-8776
- r-8777
- w-8778
- s-8779
+ (expand-6585
+ (expand-macro-6588
+ p-11241
+ e-10839
+ r-10840
+ w-10841
+ s-10842
#f
- mod-8780)
- r-8777
+ mod-10843)
+ r-10840
'(())
- mod-8780)
+ mod-10843)
(syntax-violation
'set!
"not a variable transformer"
- (wrap-4515 e-8776 w-8778 mod-8780)
- (wrap-4515 id-8814 w-8778 id-mod-8817))))
- (if (eqv? atom-key-8819 'displaced-lexical)
+ (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-4515 id-8814 w-8778 mod-8780))
+ (wrap-6578 id-10877 w-10841 mod-10843))
(syntax-violation
'set!
"bad set!"
- (wrap-4515
+ (wrap-6578
(begin
- (if (if (pair? e-8776) s-8779 #f)
- (set-source-properties! e-8776 s-8779))
- e-8776)
- w-8778
- mod-8780))))))))))
- tmp-8782)
- (let ((tmp-9273
- ($sc-dispatch e-8776 '(_ (any . each-any) any))))
- (if tmp-9273
+ (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-9277 tail-9278 val-9279)
+ (lambda (head-11340 tail-11341 val-11342)
(call-with-values
(lambda ()
- (syntax-type-4521
- head-9277
- r-8777
+ (syntax-type-6584
+ head-11340
+ r-10840
'(())
#f
#f
- mod-8780
+ mod-10843
#t))
- (lambda (type-9282
- value-9283
- ee-9284
- ww-9285
- ss-9286
- modmod-9287)
- (if (eqv? type-9282 'module-ref)
- (let ((val-9291
- (expand-4522
- val-9279
- r-8777
- w-8778
- mod-8780)))
+ (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-9283
- (cons head-9277 tail-9278)
- r-8777
- w-8778))
- (lambda (e-9292 r-9293 w-9294 s*-9295 mod-9296)
- (let ((tmp-9298 (list e-9292)))
+ (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-9300)
- (if (symbol? e-9300)
+ (lambda (e-11364)
+ (if (symbol? e-11364)
#t
- (if (if (vector? e-9300)
+ (if (if (vector? e-11364)
(if (= (vector-length
- e-9300)
+ e-11364)
4)
(eq? (vector-ref
- e-9300
+ e-11364
0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref e-9300 1))
+ (symbol?
+ (vector-ref e-11364 1))
#f)))
- tmp-9298)
+ tmp-11362)
(@apply
- (lambda (e-9330)
- (build-global-assignment-4460
- s-8779
- (syntax->datum e-9330)
- val-9291
- mod-9296))
- tmp-9298)
+ (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-9292))))))
- (build-application-4453
- s-8779
- (let ((e-9555
+ e-11356))))))
+ (build-application-6516
+ s-10842
+ (let ((e-11619
(list '#(syntax-object
setter
((top)
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
- #(type value ee ww ss modmod)
+ #(type
+ value
+ formform
+ ee
+ ww
+ ss
+ modmod)
#((top)
(top)
(top)
(top)
(top)
+ (top)
(top))
- #("l-*-3668"
- "l-*-3669"
- "l-*-3670"
- "l-*-3671"
- "l-*-3672"
- "l-*-3673"))
+ #("l-*-5730"
+ "l-*-5731"
+ "l-*-5732"
+ "l-*-5733"
+ "l-*-5734"
+ "l-*-5735"
+ "l-*-5736"))
#(ribcage
#(head tail val)
#((top) (top) (top))
- #("l-*-3654"
- "l-*-3655"
- "l-*-3656"))
+ #("l-*-5715"
+ "l-*-5716"
+ "l-*-5717"))
#(ribcage () () ())
#(ribcage
#(e r w s mod)
@@ -9217,11 +9321,11 @@
(top)
(top)
(top))
- #("l-*-3618"
- "l-*-3619"
- "l-*-3620"
- "l-*-3621"
- "l-*-3622"))
+ #("l-*-5679"
+ "l-*-5680"
+ "l-*-5681"
+ "l-*-5682"
+ "l-*-5683"))
#(ribcage
(lambda-var-list
gen-var
@@ -9503,248 +9607,253 @@
(top)
(top)
(top))
- ("l-*-476"
- "l-*-474"
- "l-*-472"
- "l-*-470"
- "l-*-468"
- "l-*-466"
- "l-*-464"
- "l-*-462"
- "l-*-460"
- "l-*-458"
- "l-*-456"
- "l-*-454"
- "l-*-452"
- "l-*-450"
- "l-*-448"
- "l-*-446"
- "l-*-444"
- "l-*-442"
- "l-*-440"
- "l-*-438"
- "l-*-436"
- "l-*-434"
- "l-*-432"
- "l-*-430"
- "l-*-428"
- "l-*-426"
- "l-*-424"
- "l-*-422"
- "l-*-420"
- "l-*-418"
- "l-*-416"
- "l-*-414"
- "l-*-412"
- "l-*-410"
- "l-*-408"
- "l-*-406"
- "l-*-404"
- "l-*-402"
- "l-*-400"
- "l-*-399"
- "l-*-397"
- "l-*-394"
- "l-*-393"
- "l-*-392"
- "l-*-390"
- "l-*-389"
- "l-*-387"
- "l-*-385"
- "l-*-383"
- "l-*-381"
- "l-*-379"
- "l-*-377"
- "l-*-375"
- "l-*-373"
- "l-*-370"
- "l-*-368"
- "l-*-367"
- "l-*-365"
- "l-*-363"
- "l-*-361"
- "l-*-359"
- "l-*-358"
- "l-*-357"
- "l-*-356"
- "l-*-354"
- "l-*-353"
- "l-*-350"
- "l-*-348"
- "l-*-346"
- "l-*-344"
- "l-*-342"
- "l-*-340"
- "l-*-338"
- "l-*-337"
- "l-*-336"
- "l-*-334"
- "l-*-332"
- "l-*-331"
- "l-*-328"
- "l-*-327"
- "l-*-325"
- "l-*-323"
- "l-*-321"
- "l-*-319"
- "l-*-317"
- "l-*-315"
- "l-*-313"
- "l-*-311"
- "l-*-309"
- "l-*-306"
- "l-*-304"
- "l-*-302"
- "l-*-300"
- "l-*-298"
- "l-*-296"
- "l-*-294"
- "l-*-292"
- "l-*-290"
- "l-*-288"
- "l-*-286"
- "l-*-284"
- "l-*-282"
- "l-*-280"
- "l-*-278"
- "l-*-276"
- "l-*-274"
- "l-*-272"
- "l-*-270"
- "l-*-268"
- "l-*-266"
- "l-*-264"
- "l-*-262"
- "l-*-260"
- "l-*-258"
- "l-*-256"
- "l-*-255"
- "l-*-254"
- "l-*-253"
- "l-*-252"
- "l-*-250"
- "l-*-248"
- "l-*-246"
- "l-*-243"
- "l-*-241"
- "l-*-239"
- "l-*-237"
- "l-*-235"
- "l-*-233"
- "l-*-231"
- "l-*-229"
- "l-*-227"
- "l-*-225"
- "l-*-223"
- "l-*-221"
- "l-*-219"
- "l-*-217"
- "l-*-215"
- "l-*-213"
- "l-*-211"
- "l-*-209"))
+ ("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-*-47"
- "l-*-46"
- "l-*-45")))
+ ("l-*-2098"
+ "l-*-2097"
+ "l-*-2096")))
(hygiene guile))
- head-9277)))
+ head-11340)))
(call-with-values
(lambda ()
- (syntax-type-4521
- e-9555
- r-8777
- w-8778
- (source-annotation-4479 e-9555)
+ (syntax-type-6584
+ e-11619
+ r-10840
+ w-10841
+ (source-annotation-6542 e-11619)
#f
- mod-8780
+ mod-10843
#f))
- (lambda (type-9562
- value-9563
- e-9564
- w-9565
- s-9566
- mod-9567)
- (expand-expr-4523
- type-9562
- value-9563
- e-9564
- r-8777
- w-9565
- s-9566
- mod-9567))))
- (map (lambda (e-9571)
+ (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-4521
- e-9571
- r-8777
- w-8778
- (source-annotation-4479 e-9571)
+ (syntax-type-6584
+ e-11636
+ r-10840
+ w-10841
+ (source-annotation-6542 e-11636)
#f
- mod-8780
+ mod-10843
#f))
- (lambda (type-9586
- value-9587
- e-9588
- w-9589
- s-9590
- mod-9591)
- (expand-expr-4523
- type-9586
- value-9587
- e-9588
- r-8777
- w-9589
- s-9590
- mod-9591))))
- (append tail-9278 (list val-9279))))))))
- tmp-9273)
+ (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-4515
+ (wrap-6578
(begin
- (if (if (pair? e-8776) s-8779 #f)
- (set-source-properties! e-8776 s-8779))
- e-8776)
- w-8778
- mod-8780))))))))
+ (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-9634 r-9635 w-9636)
- (let ((tmp-9638
- ($sc-dispatch e-9634 '(_ each-any any))))
- (if (if tmp-9638
+ (lambda (e-11700 r-11701 w-11702)
+ (let ((tmp-11704
+ ($sc-dispatch e-11700 '(_ each-any any))))
+ (if (if tmp-11704
(@apply
- (lambda (mod-9641 id-9642)
- (if (and-map id?-4486 mod-9641)
- (if (symbol? id-9642)
+ (lambda (mod-11707 id-11708)
+ (if (and-map id?-6549 mod-11707)
+ (if (symbol? id-11708)
#t
- (if (if (vector? id-9642)
- (if (= (vector-length id-9642) 4)
- (eq? (vector-ref id-9642 0) 'syntax-object)
+ (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-9642 1))
+ (symbol? (vector-ref id-11708 1))
#f))
#f))
- tmp-9638)
+ tmp-11704)
#f)
(@apply
- (lambda (mod-9682 id-9683)
+ (lambda (mod-11748 id-11749)
(values
- (syntax->datum id-9683)
- r-9635
- w-9636
+ (syntax->datum id-11749)
+ r-11701
+ w-11702
#f
(syntax->datum
(cons '#(syntax-object
@@ -9753,12 +9862,12 @@
#(ribcage
#(mod id)
#((top) (top))
- #("l-*-3715" "l-*-3716"))
+ #("l-*-5778" "l-*-5779"))
#(ribcage () () ())
#(ribcage
#(e r w)
#((top) (top) (top))
- #("l-*-3703" "l-*-3704" "l-*-3705"))
+ #("l-*-5766" "l-*-5767" "l-*-5768"))
#(ribcage
(lambda-var-list
gen-var
@@ -10040,211 +10149,213 @@
(top)
(top)
(top))
- ("l-*-476"
- "l-*-474"
- "l-*-472"
- "l-*-470"
- "l-*-468"
- "l-*-466"
- "l-*-464"
- "l-*-462"
- "l-*-460"
- "l-*-458"
- "l-*-456"
- "l-*-454"
- "l-*-452"
- "l-*-450"
- "l-*-448"
- "l-*-446"
- "l-*-444"
- "l-*-442"
- "l-*-440"
- "l-*-438"
- "l-*-436"
- "l-*-434"
- "l-*-432"
- "l-*-430"
- "l-*-428"
- "l-*-426"
- "l-*-424"
- "l-*-422"
- "l-*-420"
- "l-*-418"
- "l-*-416"
- "l-*-414"
- "l-*-412"
- "l-*-410"
- "l-*-408"
- "l-*-406"
- "l-*-404"
- "l-*-402"
- "l-*-400"
- "l-*-399"
- "l-*-397"
- "l-*-394"
- "l-*-393"
- "l-*-392"
- "l-*-390"
- "l-*-389"
- "l-*-387"
- "l-*-385"
- "l-*-383"
- "l-*-381"
- "l-*-379"
- "l-*-377"
- "l-*-375"
- "l-*-373"
- "l-*-370"
- "l-*-368"
- "l-*-367"
- "l-*-365"
- "l-*-363"
- "l-*-361"
- "l-*-359"
- "l-*-358"
- "l-*-357"
- "l-*-356"
- "l-*-354"
- "l-*-353"
- "l-*-350"
- "l-*-348"
- "l-*-346"
- "l-*-344"
- "l-*-342"
- "l-*-340"
- "l-*-338"
- "l-*-337"
- "l-*-336"
- "l-*-334"
- "l-*-332"
- "l-*-331"
- "l-*-328"
- "l-*-327"
- "l-*-325"
- "l-*-323"
- "l-*-321"
- "l-*-319"
- "l-*-317"
- "l-*-315"
- "l-*-313"
- "l-*-311"
- "l-*-309"
- "l-*-306"
- "l-*-304"
- "l-*-302"
- "l-*-300"
- "l-*-298"
- "l-*-296"
- "l-*-294"
- "l-*-292"
- "l-*-290"
- "l-*-288"
- "l-*-286"
- "l-*-284"
- "l-*-282"
- "l-*-280"
- "l-*-278"
- "l-*-276"
- "l-*-274"
- "l-*-272"
- "l-*-270"
- "l-*-268"
- "l-*-266"
- "l-*-264"
- "l-*-262"
- "l-*-260"
- "l-*-258"
- "l-*-256"
- "l-*-255"
- "l-*-254"
- "l-*-253"
- "l-*-252"
- "l-*-250"
- "l-*-248"
- "l-*-246"
- "l-*-243"
- "l-*-241"
- "l-*-239"
- "l-*-237"
- "l-*-235"
- "l-*-233"
- "l-*-231"
- "l-*-229"
- "l-*-227"
- "l-*-225"
- "l-*-223"
- "l-*-221"
- "l-*-219"
- "l-*-217"
- "l-*-215"
- "l-*-213"
- "l-*-211"
- "l-*-209"))
+ ("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-*-47" "l-*-46" "l-*-45")))
+ ("l-*-2098" "l-*-2097" "l-*-2096")))
(hygiene guile))
- mod-9682))))
- tmp-9638)
+ mod-11748))))
+ tmp-11704)
(syntax-violation
#f
"source expression failed to match any pattern"
- e-9634))))))
- (global-extend-4484
+ e-11700))))))
+ (global-extend-6547
'module-ref
'@@
- (lambda (e-9775 r-9776 w-9777)
+ (lambda (e-11841 r-11842 w-11843)
(letrec*
- ((remodulate-9778
- (lambda (x-9813 mod-9814)
- (if (pair? x-9813)
- (cons (remodulate-9778 (car x-9813) mod-9814)
- (remodulate-9778 (cdr x-9813) mod-9814))
- (if (if (vector? x-9813)
- (if (= (vector-length x-9813) 4)
- (eq? (vector-ref x-9813 0) 'syntax-object)
+ ((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-9828
- (remodulate-9778 (vector-ref x-9813 1) mod-9814))
- (wrap-9829 (vector-ref x-9813 2)))
+ (let ((expression-11894
+ (remodulate-11844
+ (vector-ref x-11879 1)
+ mod-11880))
+ (wrap-11895 (vector-ref x-11879 2)))
(vector
'syntax-object
- expression-9828
- wrap-9829
- mod-9814))
- (if (vector? x-9813)
- (let ((n-9837 (vector-length x-9813)))
- (let ((v-9838 (make-vector n-9837)))
+ 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-9839
- (lambda (i-9886)
- (if (= i-9886 n-9837)
- v-9838
+ ((loop-11905
+ (lambda (i-11952)
+ (if (= i-11952 n-11903)
+ v-11904
(begin
(vector-set!
- v-9838
- i-9886
- (remodulate-9778
- (vector-ref x-9813 i-9886)
- mod-9814))
- (loop-9839 (#{1+}# i-9886)))))))
- (loop-9839 0))))
- x-9813))))))
- (let ((tmp-9780
- ($sc-dispatch e-9775 '(_ each-any any))))
- (if (if tmp-9780
+ 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-9784 exp-9785)
- (and-map id?-4486 mod-9784))
- tmp-9780)
+ (lambda (mod-11850 exp-11851)
+ (and-map id?-6549 mod-11850))
+ tmp-11846)
#f)
(@apply
- (lambda (mod-9801 exp-9802)
- (let ((mod-9803
+ (lambda (mod-11867 exp-11868)
+ (let ((mod-11869
(syntax->datum
(cons '#(syntax-object
private
@@ -10252,15 +10363,15 @@
#(ribcage
#(mod exp)
#((top) (top))
- #("l-*-3759" "l-*-3760"))
+ #("l-*-5822" "l-*-5823"))
#(ribcage
(remodulate)
((top))
- ("l-*-3726"))
+ ("l-*-5789"))
#(ribcage
#(e r w)
#((top) (top) (top))
- #("l-*-3723" "l-*-3724" "l-*-3725"))
+ #("l-*-5786" "l-*-5787" "l-*-5788"))
#(ribcage
(lambda-var-list
gen-var
@@ -10542,232 +10653,252 @@
(top)
(top)
(top))
- ("l-*-476"
- "l-*-474"
- "l-*-472"
- "l-*-470"
- "l-*-468"
- "l-*-466"
- "l-*-464"
- "l-*-462"
- "l-*-460"
- "l-*-458"
- "l-*-456"
- "l-*-454"
- "l-*-452"
- "l-*-450"
- "l-*-448"
- "l-*-446"
- "l-*-444"
- "l-*-442"
- "l-*-440"
- "l-*-438"
- "l-*-436"
- "l-*-434"
- "l-*-432"
- "l-*-430"
- "l-*-428"
- "l-*-426"
- "l-*-424"
- "l-*-422"
- "l-*-420"
- "l-*-418"
- "l-*-416"
- "l-*-414"
- "l-*-412"
- "l-*-410"
- "l-*-408"
- "l-*-406"
- "l-*-404"
- "l-*-402"
- "l-*-400"
- "l-*-399"
- "l-*-397"
- "l-*-394"
- "l-*-393"
- "l-*-392"
- "l-*-390"
- "l-*-389"
- "l-*-387"
- "l-*-385"
- "l-*-383"
- "l-*-381"
- "l-*-379"
- "l-*-377"
- "l-*-375"
- "l-*-373"
- "l-*-370"
- "l-*-368"
- "l-*-367"
- "l-*-365"
- "l-*-363"
- "l-*-361"
- "l-*-359"
- "l-*-358"
- "l-*-357"
- "l-*-356"
- "l-*-354"
- "l-*-353"
- "l-*-350"
- "l-*-348"
- "l-*-346"
- "l-*-344"
- "l-*-342"
- "l-*-340"
- "l-*-338"
- "l-*-337"
- "l-*-336"
- "l-*-334"
- "l-*-332"
- "l-*-331"
- "l-*-328"
- "l-*-327"
- "l-*-325"
- "l-*-323"
- "l-*-321"
- "l-*-319"
- "l-*-317"
- "l-*-315"
- "l-*-313"
- "l-*-311"
- "l-*-309"
- "l-*-306"
- "l-*-304"
- "l-*-302"
- "l-*-300"
- "l-*-298"
- "l-*-296"
- "l-*-294"
- "l-*-292"
- "l-*-290"
- "l-*-288"
- "l-*-286"
- "l-*-284"
- "l-*-282"
- "l-*-280"
- "l-*-278"
- "l-*-276"
- "l-*-274"
- "l-*-272"
- "l-*-270"
- "l-*-268"
- "l-*-266"
- "l-*-264"
- "l-*-262"
- "l-*-260"
- "l-*-258"
- "l-*-256"
- "l-*-255"
- "l-*-254"
- "l-*-253"
- "l-*-252"
- "l-*-250"
- "l-*-248"
- "l-*-246"
- "l-*-243"
- "l-*-241"
- "l-*-239"
- "l-*-237"
- "l-*-235"
- "l-*-233"
- "l-*-231"
- "l-*-229"
- "l-*-227"
- "l-*-225"
- "l-*-223"
- "l-*-221"
- "l-*-219"
- "l-*-217"
- "l-*-215"
- "l-*-213"
- "l-*-211"
- "l-*-209"))
+ ("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-*-47" "l-*-46" "l-*-45")))
+ ("l-*-2098" "l-*-2097" "l-*-2096")))
(hygiene guile))
- mod-9801))))
+ mod-11867))))
(values
- (remodulate-9778 exp-9802 mod-9803)
- r-9776
- w-9777
- (source-annotation-4479 exp-9802)
- mod-9803)))
- tmp-9780)
+ (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-9775))))))
- (global-extend-4484
+ e-11841))))))
+ (global-extend-6547
'core
'if
- (lambda (e-9987 r-9988 w-9989 s-9990 mod-9991)
- (let ((tmp-9993 ($sc-dispatch e-9987 '(_ any any))))
- (if tmp-9993
+ (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-9997 then-9998)
- (build-conditional-4454
- s-9990
- (expand-4522 test-9997 r-9988 w-9989 mod-9991)
- (expand-4522 then-9998 r-9988 w-9989 mod-9991)
+ (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-9993)
- (let ((tmp-10223
- ($sc-dispatch e-9987 '(_ any any any))))
- (if tmp-10223
+ tmp-12059)
+ (let ((tmp-12289
+ ($sc-dispatch e-12053 '(_ any any any))))
+ (if tmp-12289
(@apply
- (lambda (test-10227 then-10228 else-10229)
- (build-conditional-4454
- s-9990
- (expand-4522 test-10227 r-9988 w-9989 mod-9991)
- (expand-4522 then-10228 r-9988 w-9989 mod-9991)
- (expand-4522 else-10229 r-9988 w-9989 mod-9991)))
- tmp-10223)
+ (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-9987)))))))
- (global-extend-4484
+ e-12053)))))))
+ (global-extend-6547
'core
'with-fluids
- (lambda (e-10628 r-10629 w-10630 s-10631 mod-10632)
- (let ((tmp-10634
+ (lambda (e-12694 r-12695 w-12696 s-12697 mod-12698)
+ (let ((tmp-12700
($sc-dispatch
- e-10628
+ e-12694
'(_ #(each (any any)) any . each-any))))
- (if tmp-10634
+ (if tmp-12700
(@apply
- (lambda (fluid-10638 val-10639 b-10640 b*-10641)
- (build-dynlet-4455
- s-10631
- (map (lambda (x-10722)
- (expand-4522 x-10722 r-10629 w-10630 mod-10632))
- fluid-10638)
- (map (lambda (x-10792)
- (expand-4522 x-10792 r-10629 w-10630 mod-10632))
- val-10639)
- (expand-body-4526
- (cons b-10640 b*-10641)
- (wrap-4515
+ (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-10628) s-10631 #f)
- (set-source-properties! e-10628 s-10631))
- e-10628)
- w-10630
- mod-10632)
- r-10629
- w-10630
- mod-10632)))
- tmp-10634)
+ (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-10628)))))
+ e-12694)))))
(module-define!
(current-module)
'begin
@@ -10797,60 +10928,60 @@
'eval-when
'eval-when
'()))
- (global-extend-4484
+ (global-extend-6547
'core
'syntax-case
(letrec*
- ((convert-pattern-11160
- (lambda (pattern-12757 keys-12758)
+ ((convert-pattern-13226
+ (lambda (pattern-14823 keys-14824)
(letrec*
- ((cvt*-12759
- (lambda (p*-13383 n-13384 ids-13385)
- (if (not (pair? p*-13383))
- (cvt-12761 p*-13383 n-13384 ids-13385)
+ ((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*-12759 (cdr p*-13383) n-13384 ids-13385))
- (lambda (y-13388 ids-13389)
+ (cvt*-14825 (cdr p*-15449) n-15450 ids-15451))
+ (lambda (y-15454 ids-15455)
(call-with-values
(lambda ()
- (cvt-12761 (car p*-13383) n-13384 ids-13389))
- (lambda (x-13392 ids-13393)
+ (cvt-14827 (car p*-15449) n-15450 ids-15455))
+ (lambda (x-15458 ids-15459)
(values
- (cons x-13392 y-13388)
- ids-13393))))))))
- (v-reverse-12760
- (lambda (x-13394)
+ (cons x-15458 y-15454)
+ ids-15459))))))))
+ (v-reverse-14826
+ (lambda (x-15460)
(letrec*
- ((loop-13395
- (lambda (r-13475 x-13476)
- (if (not (pair? x-13476))
- (values r-13475 x-13476)
- (loop-13395
- (cons (car x-13476) r-13475)
- (cdr x-13476))))))
- (loop-13395 '() x-13394))))
- (cvt-12761
- (lambda (p-12764 n-12765 ids-12766)
- (if (if (symbol? p-12764)
+ ((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-12764)
- (if (= (vector-length p-12764) 4)
- (eq? (vector-ref p-12764 0) 'syntax-object)
+ (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-12764 1))
+ (symbol? (vector-ref p-14830 1))
#f))
- (if (bound-id-member?-4514 p-12764 keys-12758)
- (values (vector 'free-id p-12764) ids-12766)
- (if (if (eq? (if (if (vector? p-12764)
- (if (= (vector-length p-12764) 4)
- (eq? (vector-ref p-12764 0)
+ (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-12764 1)
- p-12764)
+ (vector-ref p-14830 1)
+ p-14830)
(if (if (= (vector-length
'#(syntax-object
_
@@ -10859,20 +10990,20 @@
#(ribcage
#(p n ids)
#((top) (top) (top))
- #("l-*-3860"
- "l-*-3861"
- "l-*-3862"))
+ #("l-*-5923"
+ "l-*-5924"
+ "l-*-5925"))
#(ribcage
(cvt v-reverse cvt*)
((top) (top) (top))
- ("l-*-3833"
- "l-*-3831"
- "l-*-3829"))
+ ("l-*-5896"
+ "l-*-5894"
+ "l-*-5892"))
#(ribcage
#(pattern keys)
#((top) (top))
- #("l-*-3827"
- "l-*-3828"))
+ #("l-*-5890"
+ "l-*-5891"))
#(ribcage
(gen-syntax-case
gen-clause
@@ -10882,10 +11013,10 @@
(top)
(top)
(top))
- ("l-*-3823"
- "l-*-3821"
- "l-*-3819"
- "l-*-3817"))
+ ("l-*-5886"
+ "l-*-5884"
+ "l-*-5882"
+ "l-*-5880"))
#(ribcage
(lambda-var-list
gen-var
@@ -11167,154 +11298,154 @@
(top)
(top)
(top))
- ("l-*-476"
- "l-*-474"
- "l-*-472"
- "l-*-470"
- "l-*-468"
- "l-*-466"
- "l-*-464"
- "l-*-462"
- "l-*-460"
- "l-*-458"
- "l-*-456"
- "l-*-454"
- "l-*-452"
- "l-*-450"
- "l-*-448"
- "l-*-446"
- "l-*-444"
- "l-*-442"
- "l-*-440"
- "l-*-438"
- "l-*-436"
- "l-*-434"
- "l-*-432"
- "l-*-430"
- "l-*-428"
- "l-*-426"
- "l-*-424"
- "l-*-422"
- "l-*-420"
- "l-*-418"
- "l-*-416"
- "l-*-414"
- "l-*-412"
- "l-*-410"
- "l-*-408"
- "l-*-406"
- "l-*-404"
- "l-*-402"
- "l-*-400"
- "l-*-399"
- "l-*-397"
- "l-*-394"
- "l-*-393"
- "l-*-392"
- "l-*-390"
- "l-*-389"
- "l-*-387"
- "l-*-385"
- "l-*-383"
- "l-*-381"
- "l-*-379"
- "l-*-377"
- "l-*-375"
- "l-*-373"
- "l-*-370"
- "l-*-368"
- "l-*-367"
- "l-*-365"
- "l-*-363"
- "l-*-361"
- "l-*-359"
- "l-*-358"
- "l-*-357"
- "l-*-356"
- "l-*-354"
- "l-*-353"
- "l-*-350"
- "l-*-348"
- "l-*-346"
- "l-*-344"
- "l-*-342"
- "l-*-340"
- "l-*-338"
- "l-*-337"
- "l-*-336"
- "l-*-334"
- "l-*-332"
- "l-*-331"
- "l-*-328"
- "l-*-327"
- "l-*-325"
- "l-*-323"
- "l-*-321"
- "l-*-319"
- "l-*-317"
- "l-*-315"
- "l-*-313"
- "l-*-311"
- "l-*-309"
- "l-*-306"
- "l-*-304"
- "l-*-302"
- "l-*-300"
- "l-*-298"
- "l-*-296"
- "l-*-294"
- "l-*-292"
- "l-*-290"
- "l-*-288"
- "l-*-286"
- "l-*-284"
- "l-*-282"
- "l-*-280"
- "l-*-278"
- "l-*-276"
- "l-*-274"
- "l-*-272"
- "l-*-270"
- "l-*-268"
- "l-*-266"
- "l-*-264"
- "l-*-262"
- "l-*-260"
- "l-*-258"
- "l-*-256"
- "l-*-255"
- "l-*-254"
- "l-*-253"
- "l-*-252"
- "l-*-250"
- "l-*-248"
- "l-*-246"
- "l-*-243"
- "l-*-241"
- "l-*-239"
- "l-*-237"
- "l-*-235"
- "l-*-233"
- "l-*-231"
- "l-*-229"
- "l-*-227"
- "l-*-225"
- "l-*-223"
- "l-*-221"
- "l-*-219"
- "l-*-217"
- "l-*-215"
- "l-*-213"
- "l-*-211"
- "l-*-209"))
+ ("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-*-47"
- "l-*-46"
- "l-*-45")))
+ ("l-*-2098"
+ "l-*-2097"
+ "l-*-2096")))
(hygiene guile)))
4)
#t
@@ -11327,29 +11458,29 @@
#(ribcage
#(p n ids)
#((top) (top) (top))
- #("l-*-3860"
- "l-*-3861"
- "l-*-3862"))
+ #("l-*-5923"
+ "l-*-5924"
+ "l-*-5925"))
#(ribcage
(cvt v-reverse cvt*)
((top) (top) (top))
- ("l-*-3833"
- "l-*-3831"
- "l-*-3829"))
+ ("l-*-5896"
+ "l-*-5894"
+ "l-*-5892"))
#(ribcage
#(pattern keys)
#((top) (top))
- #("l-*-3827" "l-*-3828"))
+ #("l-*-5890" "l-*-5891"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("l-*-3823"
- "l-*-3821"
- "l-*-3819"
- "l-*-3817"))
+ ("l-*-5886"
+ "l-*-5884"
+ "l-*-5882"
+ "l-*-5880"))
#(ribcage
(lambda-var-list
gen-var
@@ -11631,155 +11762,157 @@
(top)
(top)
(top))
- ("l-*-476"
- "l-*-474"
- "l-*-472"
- "l-*-470"
- "l-*-468"
- "l-*-466"
- "l-*-464"
- "l-*-462"
- "l-*-460"
- "l-*-458"
- "l-*-456"
- "l-*-454"
- "l-*-452"
- "l-*-450"
- "l-*-448"
- "l-*-446"
- "l-*-444"
- "l-*-442"
- "l-*-440"
- "l-*-438"
- "l-*-436"
- "l-*-434"
- "l-*-432"
- "l-*-430"
- "l-*-428"
- "l-*-426"
- "l-*-424"
- "l-*-422"
- "l-*-420"
- "l-*-418"
- "l-*-416"
- "l-*-414"
- "l-*-412"
- "l-*-410"
- "l-*-408"
- "l-*-406"
- "l-*-404"
- "l-*-402"
- "l-*-400"
- "l-*-399"
- "l-*-397"
- "l-*-394"
- "l-*-393"
- "l-*-392"
- "l-*-390"
- "l-*-389"
- "l-*-387"
- "l-*-385"
- "l-*-383"
- "l-*-381"
- "l-*-379"
- "l-*-377"
- "l-*-375"
- "l-*-373"
- "l-*-370"
- "l-*-368"
- "l-*-367"
- "l-*-365"
- "l-*-363"
- "l-*-361"
- "l-*-359"
- "l-*-358"
- "l-*-357"
- "l-*-356"
- "l-*-354"
- "l-*-353"
- "l-*-350"
- "l-*-348"
- "l-*-346"
- "l-*-344"
- "l-*-342"
- "l-*-340"
- "l-*-338"
- "l-*-337"
- "l-*-336"
- "l-*-334"
- "l-*-332"
- "l-*-331"
- "l-*-328"
- "l-*-327"
- "l-*-325"
- "l-*-323"
- "l-*-321"
- "l-*-319"
- "l-*-317"
- "l-*-315"
- "l-*-313"
- "l-*-311"
- "l-*-309"
- "l-*-306"
- "l-*-304"
- "l-*-302"
- "l-*-300"
- "l-*-298"
- "l-*-296"
- "l-*-294"
- "l-*-292"
- "l-*-290"
- "l-*-288"
- "l-*-286"
- "l-*-284"
- "l-*-282"
- "l-*-280"
- "l-*-278"
- "l-*-276"
- "l-*-274"
- "l-*-272"
- "l-*-270"
- "l-*-268"
- "l-*-266"
- "l-*-264"
- "l-*-262"
- "l-*-260"
- "l-*-258"
- "l-*-256"
- "l-*-255"
- "l-*-254"
- "l-*-253"
- "l-*-252"
- "l-*-250"
- "l-*-248"
- "l-*-246"
- "l-*-243"
- "l-*-241"
- "l-*-239"
- "l-*-237"
- "l-*-235"
- "l-*-233"
- "l-*-231"
- "l-*-229"
- "l-*-227"
- "l-*-225"
- "l-*-223"
- "l-*-221"
- "l-*-219"
- "l-*-217"
- "l-*-215"
- "l-*-213"
- "l-*-211"
- "l-*-209"))
+ ("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-*-47" "l-*-46" "l-*-45")))
+ ("l-*-2098"
+ "l-*-2097"
+ "l-*-2096")))
(hygiene guile))))
- (eq? (id-var-name-4505 p-12764 '(()))
- (id-var-name-4505
+ (eq? (id-var-name-6568 p-14830 '(()))
+ (id-var-name-6568
'#(syntax-object
_
((top)
@@ -11787,29 +11920,29 @@
#(ribcage
#(p n ids)
#((top) (top) (top))
- #("l-*-3860"
- "l-*-3861"
- "l-*-3862"))
+ #("l-*-5923"
+ "l-*-5924"
+ "l-*-5925"))
#(ribcage
(cvt v-reverse cvt*)
((top) (top) (top))
- ("l-*-3833"
- "l-*-3831"
- "l-*-3829"))
+ ("l-*-5896"
+ "l-*-5894"
+ "l-*-5892"))
#(ribcage
#(pattern keys)
#((top) (top))
- #("l-*-3827" "l-*-3828"))
+ #("l-*-5890" "l-*-5891"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("l-*-3823"
- "l-*-3821"
- "l-*-3819"
- "l-*-3817"))
+ ("l-*-5886"
+ "l-*-5884"
+ "l-*-5882"
+ "l-*-5880"))
#(ribcage
(lambda-var-list
gen-var
@@ -12091,184 +12224,186 @@
(top)
(top)
(top))
- ("l-*-476"
- "l-*-474"
- "l-*-472"
- "l-*-470"
- "l-*-468"
- "l-*-466"
- "l-*-464"
- "l-*-462"
- "l-*-460"
- "l-*-458"
- "l-*-456"
- "l-*-454"
- "l-*-452"
- "l-*-450"
- "l-*-448"
- "l-*-446"
- "l-*-444"
- "l-*-442"
- "l-*-440"
- "l-*-438"
- "l-*-436"
- "l-*-434"
- "l-*-432"
- "l-*-430"
- "l-*-428"
- "l-*-426"
- "l-*-424"
- "l-*-422"
- "l-*-420"
- "l-*-418"
- "l-*-416"
- "l-*-414"
- "l-*-412"
- "l-*-410"
- "l-*-408"
- "l-*-406"
- "l-*-404"
- "l-*-402"
- "l-*-400"
- "l-*-399"
- "l-*-397"
- "l-*-394"
- "l-*-393"
- "l-*-392"
- "l-*-390"
- "l-*-389"
- "l-*-387"
- "l-*-385"
- "l-*-383"
- "l-*-381"
- "l-*-379"
- "l-*-377"
- "l-*-375"
- "l-*-373"
- "l-*-370"
- "l-*-368"
- "l-*-367"
- "l-*-365"
- "l-*-363"
- "l-*-361"
- "l-*-359"
- "l-*-358"
- "l-*-357"
- "l-*-356"
- "l-*-354"
- "l-*-353"
- "l-*-350"
- "l-*-348"
- "l-*-346"
- "l-*-344"
- "l-*-342"
- "l-*-340"
- "l-*-338"
- "l-*-337"
- "l-*-336"
- "l-*-334"
- "l-*-332"
- "l-*-331"
- "l-*-328"
- "l-*-327"
- "l-*-325"
- "l-*-323"
- "l-*-321"
- "l-*-319"
- "l-*-317"
- "l-*-315"
- "l-*-313"
- "l-*-311"
- "l-*-309"
- "l-*-306"
- "l-*-304"
- "l-*-302"
- "l-*-300"
- "l-*-298"
- "l-*-296"
- "l-*-294"
- "l-*-292"
- "l-*-290"
- "l-*-288"
- "l-*-286"
- "l-*-284"
- "l-*-282"
- "l-*-280"
- "l-*-278"
- "l-*-276"
- "l-*-274"
- "l-*-272"
- "l-*-270"
- "l-*-268"
- "l-*-266"
- "l-*-264"
- "l-*-262"
- "l-*-260"
- "l-*-258"
- "l-*-256"
- "l-*-255"
- "l-*-254"
- "l-*-253"
- "l-*-252"
- "l-*-250"
- "l-*-248"
- "l-*-246"
- "l-*-243"
- "l-*-241"
- "l-*-239"
- "l-*-237"
- "l-*-235"
- "l-*-233"
- "l-*-231"
- "l-*-229"
- "l-*-227"
- "l-*-225"
- "l-*-223"
- "l-*-221"
- "l-*-219"
- "l-*-217"
- "l-*-215"
- "l-*-213"
- "l-*-211"
- "l-*-209"))
+ ("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-*-47" "l-*-46" "l-*-45")))
+ ("l-*-2098"
+ "l-*-2097"
+ "l-*-2096")))
(hygiene guile))
'(())))
#f)
- (values '_ ids-12766)
+ (values '_ ids-14832)
(values
'any
- (cons (cons p-12764 n-12765) ids-12766))))
- (let ((tmp-13086 ($sc-dispatch p-12764 '(any any))))
- (if (if tmp-13086
+ (cons (cons p-14830 n-14831) ids-14832))))
+ (let ((tmp-15152 ($sc-dispatch p-14830 '(any any))))
+ (if (if tmp-15152
(@apply
- (lambda (x-13090 dots-13091)
- (if (if (if (vector? dots-13091)
- (if (= (vector-length dots-13091)
+ (lambda (x-15156 dots-15157)
+ (if (if (if (vector? dots-15157)
+ (if (= (vector-length dots-15157)
4)
- (eq? (vector-ref dots-13091 0)
+ (eq? (vector-ref dots-15157 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref dots-13091 1))
+ (symbol? (vector-ref dots-15157 1))
#f)
- (if (eq? (if (if (vector? dots-13091)
+ (if (eq? (if (if (vector? dots-15157)
(if (= (vector-length
- dots-13091)
+ dots-15157)
4)
(eq? (vector-ref
- dots-13091
+ dots-15157
0)
'syntax-object)
#f)
#f)
- (vector-ref dots-13091 1)
- dots-13091)
+ (vector-ref dots-15157 1)
+ dots-15157)
(if (if (= (vector-length
'#(syntax-object
...
@@ -12284,7 +12419,7 @@
#(ribcage
#(x)
#((top))
- #("l-*-2343"))
+ #("l-*-4404"))
#(ribcage
(lambda-var-list
gen-var
@@ -12566,146 +12701,146 @@
(top)
(top)
(top))
- ("l-*-476"
- "l-*-474"
- "l-*-472"
- "l-*-470"
- "l-*-468"
- "l-*-466"
- "l-*-464"
- "l-*-462"
- "l-*-460"
- "l-*-458"
- "l-*-456"
- "l-*-454"
- "l-*-452"
- "l-*-450"
- "l-*-448"
- "l-*-446"
- "l-*-444"
- "l-*-442"
- "l-*-440"
- "l-*-438"
- "l-*-436"
- "l-*-434"
- "l-*-432"
- "l-*-430"
- "l-*-428"
- "l-*-426"
- "l-*-424"
- "l-*-422"
- "l-*-420"
- "l-*-418"
- "l-*-416"
- "l-*-414"
- "l-*-412"
- "l-*-410"
- "l-*-408"
- "l-*-406"
- "l-*-404"
- "l-*-402"
- "l-*-400"
- "l-*-399"
- "l-*-397"
- "l-*-394"
- "l-*-393"
- "l-*-392"
- "l-*-390"
- "l-*-389"
- "l-*-387"
- "l-*-385"
- "l-*-383"
- "l-*-381"
- "l-*-379"
- "l-*-377"
- "l-*-375"
- "l-*-373"
- "l-*-370"
- "l-*-368"
- "l-*-367"
- "l-*-365"
- "l-*-363"
- "l-*-361"
- "l-*-359"
- "l-*-358"
- "l-*-357"
- "l-*-356"
- "l-*-354"
- "l-*-353"
- "l-*-350"
- "l-*-348"
- "l-*-346"
- "l-*-344"
- "l-*-342"
- "l-*-340"
- "l-*-338"
- "l-*-337"
- "l-*-336"
- "l-*-334"
- "l-*-332"
- "l-*-331"
- "l-*-328"
- "l-*-327"
- "l-*-325"
- "l-*-323"
- "l-*-321"
- "l-*-319"
- "l-*-317"
- "l-*-315"
- "l-*-313"
- "l-*-311"
- "l-*-309"
- "l-*-306"
- "l-*-304"
- "l-*-302"
- "l-*-300"
- "l-*-298"
- "l-*-296"
- "l-*-294"
- "l-*-292"
- "l-*-290"
- "l-*-288"
- "l-*-286"
- "l-*-284"
- "l-*-282"
- "l-*-280"
- "l-*-278"
- "l-*-276"
- "l-*-274"
- "l-*-272"
- "l-*-270"
- "l-*-268"
- "l-*-266"
- "l-*-264"
- "l-*-262"
- "l-*-260"
- "l-*-258"
- "l-*-256"
- "l-*-255"
- "l-*-254"
- "l-*-253"
- "l-*-252"
- "l-*-250"
- "l-*-248"
- "l-*-246"
- "l-*-243"
- "l-*-241"
- "l-*-239"
- "l-*-237"
- "l-*-235"
- "l-*-233"
- "l-*-231"
- "l-*-229"
- "l-*-227"
- "l-*-225"
- "l-*-223"
- "l-*-221"
- "l-*-219"
- "l-*-217"
- "l-*-215"
- "l-*-213"
- "l-*-211"
- "l-*-209"))
+ ("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
@@ -12713,9 +12848,9 @@
((top)
(top)
(top))
- ("l-*-47"
- "l-*-46"
- "l-*-45")))
+ ("l-*-2098"
+ "l-*-2097"
+ "l-*-2096")))
(hygiene
guile)))
4)
@@ -12730,7 +12865,7 @@
#(ribcage
#(x)
#((top))
- #("l-*-2343"))
+ #("l-*-4404"))
#(ribcage
(lambda-var-list
gen-var
@@ -13012,159 +13147,159 @@
(top)
(top)
(top))
- ("l-*-476"
- "l-*-474"
- "l-*-472"
- "l-*-470"
- "l-*-468"
- "l-*-466"
- "l-*-464"
- "l-*-462"
- "l-*-460"
- "l-*-458"
- "l-*-456"
- "l-*-454"
- "l-*-452"
- "l-*-450"
- "l-*-448"
- "l-*-446"
- "l-*-444"
- "l-*-442"
- "l-*-440"
- "l-*-438"
- "l-*-436"
- "l-*-434"
- "l-*-432"
- "l-*-430"
- "l-*-428"
- "l-*-426"
- "l-*-424"
- "l-*-422"
- "l-*-420"
- "l-*-418"
- "l-*-416"
- "l-*-414"
- "l-*-412"
- "l-*-410"
- "l-*-408"
- "l-*-406"
- "l-*-404"
- "l-*-402"
- "l-*-400"
- "l-*-399"
- "l-*-397"
- "l-*-394"
- "l-*-393"
- "l-*-392"
- "l-*-390"
- "l-*-389"
- "l-*-387"
- "l-*-385"
- "l-*-383"
- "l-*-381"
- "l-*-379"
- "l-*-377"
- "l-*-375"
- "l-*-373"
- "l-*-370"
- "l-*-368"
- "l-*-367"
- "l-*-365"
- "l-*-363"
- "l-*-361"
- "l-*-359"
- "l-*-358"
- "l-*-357"
- "l-*-356"
- "l-*-354"
- "l-*-353"
- "l-*-350"
- "l-*-348"
- "l-*-346"
- "l-*-344"
- "l-*-342"
- "l-*-340"
- "l-*-338"
- "l-*-337"
- "l-*-336"
- "l-*-334"
- "l-*-332"
- "l-*-331"
- "l-*-328"
- "l-*-327"
- "l-*-325"
- "l-*-323"
- "l-*-321"
- "l-*-319"
- "l-*-317"
- "l-*-315"
- "l-*-313"
- "l-*-311"
- "l-*-309"
- "l-*-306"
- "l-*-304"
- "l-*-302"
- "l-*-300"
- "l-*-298"
- "l-*-296"
- "l-*-294"
- "l-*-292"
- "l-*-290"
- "l-*-288"
- "l-*-286"
- "l-*-284"
- "l-*-282"
- "l-*-280"
- "l-*-278"
- "l-*-276"
- "l-*-274"
- "l-*-272"
- "l-*-270"
- "l-*-268"
- "l-*-266"
- "l-*-264"
- "l-*-262"
- "l-*-260"
- "l-*-258"
- "l-*-256"
- "l-*-255"
- "l-*-254"
- "l-*-253"
- "l-*-252"
- "l-*-250"
- "l-*-248"
- "l-*-246"
- "l-*-243"
- "l-*-241"
- "l-*-239"
- "l-*-237"
- "l-*-235"
- "l-*-233"
- "l-*-231"
- "l-*-229"
- "l-*-227"
- "l-*-225"
- "l-*-223"
- "l-*-221"
- "l-*-219"
- "l-*-217"
- "l-*-215"
- "l-*-213"
- "l-*-211"
- "l-*-209"))
+ ("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-*-47"
- "l-*-46"
- "l-*-45")))
+ ("l-*-2098"
+ "l-*-2097"
+ "l-*-2096")))
(hygiene guile))))
- (eq? (id-var-name-4505
- dots-13091
+ (eq? (id-var-name-6568
+ dots-15157
'(()))
- (id-var-name-4505
+ (id-var-name-6568
'#(syntax-object
...
((top)
@@ -13173,7 +13308,7 @@
#(ribcage
#(x)
#((top))
- #("l-*-2343"))
+ #("l-*-4404"))
#(ribcage
(lambda-var-list
gen-var
@@ -13455,205 +13590,205 @@
(top)
(top)
(top))
- ("l-*-476"
- "l-*-474"
- "l-*-472"
- "l-*-470"
- "l-*-468"
- "l-*-466"
- "l-*-464"
- "l-*-462"
- "l-*-460"
- "l-*-458"
- "l-*-456"
- "l-*-454"
- "l-*-452"
- "l-*-450"
- "l-*-448"
- "l-*-446"
- "l-*-444"
- "l-*-442"
- "l-*-440"
- "l-*-438"
- "l-*-436"
- "l-*-434"
- "l-*-432"
- "l-*-430"
- "l-*-428"
- "l-*-426"
- "l-*-424"
- "l-*-422"
- "l-*-420"
- "l-*-418"
- "l-*-416"
- "l-*-414"
- "l-*-412"
- "l-*-410"
- "l-*-408"
- "l-*-406"
- "l-*-404"
- "l-*-402"
- "l-*-400"
- "l-*-399"
- "l-*-397"
- "l-*-394"
- "l-*-393"
- "l-*-392"
- "l-*-390"
- "l-*-389"
- "l-*-387"
- "l-*-385"
- "l-*-383"
- "l-*-381"
- "l-*-379"
- "l-*-377"
- "l-*-375"
- "l-*-373"
- "l-*-370"
- "l-*-368"
- "l-*-367"
- "l-*-365"
- "l-*-363"
- "l-*-361"
- "l-*-359"
- "l-*-358"
- "l-*-357"
- "l-*-356"
- "l-*-354"
- "l-*-353"
- "l-*-350"
- "l-*-348"
- "l-*-346"
- "l-*-344"
- "l-*-342"
- "l-*-340"
- "l-*-338"
- "l-*-337"
- "l-*-336"
- "l-*-334"
- "l-*-332"
- "l-*-331"
- "l-*-328"
- "l-*-327"
- "l-*-325"
- "l-*-323"
- "l-*-321"
- "l-*-319"
- "l-*-317"
- "l-*-315"
- "l-*-313"
- "l-*-311"
- "l-*-309"
- "l-*-306"
- "l-*-304"
- "l-*-302"
- "l-*-300"
- "l-*-298"
- "l-*-296"
- "l-*-294"
- "l-*-292"
- "l-*-290"
- "l-*-288"
- "l-*-286"
- "l-*-284"
- "l-*-282"
- "l-*-280"
- "l-*-278"
- "l-*-276"
- "l-*-274"
- "l-*-272"
- "l-*-270"
- "l-*-268"
- "l-*-266"
- "l-*-264"
- "l-*-262"
- "l-*-260"
- "l-*-258"
- "l-*-256"
- "l-*-255"
- "l-*-254"
- "l-*-253"
- "l-*-252"
- "l-*-250"
- "l-*-248"
- "l-*-246"
- "l-*-243"
- "l-*-241"
- "l-*-239"
- "l-*-237"
- "l-*-235"
- "l-*-233"
- "l-*-231"
- "l-*-229"
- "l-*-227"
- "l-*-225"
- "l-*-223"
- "l-*-221"
- "l-*-219"
- "l-*-217"
- "l-*-215"
- "l-*-213"
- "l-*-211"
- "l-*-209"))
+ ("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-*-47"
- "l-*-46"
- "l-*-45")))
+ ("l-*-2098"
+ "l-*-2097"
+ "l-*-2096")))
(hygiene guile))
'(())))
#f)
#f))
- tmp-13086)
+ tmp-15152)
#f)
(@apply
- (lambda (x-13191 dots-13192)
+ (lambda (x-15257 dots-15258)
(call-with-values
(lambda ()
- (cvt-12761
- x-13191
- (#{1+}# n-12765)
- ids-12766))
- (lambda (p-13193 ids-13194)
+ (cvt-14827
+ x-15257
+ (#{1+}# n-14831)
+ ids-14832))
+ (lambda (p-15259 ids-15260)
(values
- (if (eq? p-13193 'any)
+ (if (eq? p-15259 'any)
'each-any
- (vector 'each p-13193))
- ids-13194))))
- tmp-13086)
- (let ((tmp-13195
- ($sc-dispatch p-12764 '(any any . any))))
- (if (if tmp-13195
+ (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-13199 dots-13200 ys-13201)
- (if (if (if (vector? dots-13200)
+ (lambda (x-15265 dots-15266 ys-15267)
+ (if (if (if (vector? dots-15266)
(if (= (vector-length
- dots-13200)
+ dots-15266)
4)
(eq? (vector-ref
- dots-13200
+ dots-15266
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref dots-13200 1))
+ (vector-ref dots-15266 1))
#f)
- (if (eq? (if (if (vector? dots-13200)
+ (if (eq? (if (if (vector? dots-15266)
(if (= (vector-length
- dots-13200)
+ dots-15266)
4)
(eq? (vector-ref
- dots-13200
+ dots-15266
0)
'syntax-object)
#f)
#f)
- (vector-ref dots-13200 1)
- dots-13200)
+ (vector-ref dots-15266 1)
+ dots-15266)
(if (if (= (vector-length
'#(syntax-object
...
@@ -13669,7 +13804,7 @@
#(ribcage
#(x)
#((top))
- #("l-*-2343"))
+ #("l-*-4404"))
#(ribcage
(lambda-var-list
gen-var
@@ -13951,146 +14086,146 @@
(top)
(top)
(top))
- ("l-*-476"
- "l-*-474"
- "l-*-472"
- "l-*-470"
- "l-*-468"
- "l-*-466"
- "l-*-464"
- "l-*-462"
- "l-*-460"
- "l-*-458"
- "l-*-456"
- "l-*-454"
- "l-*-452"
- "l-*-450"
- "l-*-448"
- "l-*-446"
- "l-*-444"
- "l-*-442"
- "l-*-440"
- "l-*-438"
- "l-*-436"
- "l-*-434"
- "l-*-432"
- "l-*-430"
- "l-*-428"
- "l-*-426"
- "l-*-424"
- "l-*-422"
- "l-*-420"
- "l-*-418"
- "l-*-416"
- "l-*-414"
- "l-*-412"
- "l-*-410"
- "l-*-408"
- "l-*-406"
- "l-*-404"
- "l-*-402"
- "l-*-400"
- "l-*-399"
- "l-*-397"
- "l-*-394"
- "l-*-393"
- "l-*-392"
- "l-*-390"
- "l-*-389"
- "l-*-387"
- "l-*-385"
- "l-*-383"
- "l-*-381"
- "l-*-379"
- "l-*-377"
- "l-*-375"
- "l-*-373"
- "l-*-370"
- "l-*-368"
- "l-*-367"
- "l-*-365"
- "l-*-363"
- "l-*-361"
- "l-*-359"
- "l-*-358"
- "l-*-357"
- "l-*-356"
- "l-*-354"
- "l-*-353"
- "l-*-350"
- "l-*-348"
- "l-*-346"
- "l-*-344"
- "l-*-342"
- "l-*-340"
- "l-*-338"
- "l-*-337"
- "l-*-336"
- "l-*-334"
- "l-*-332"
- "l-*-331"
- "l-*-328"
- "l-*-327"
- "l-*-325"
- "l-*-323"
- "l-*-321"
- "l-*-319"
- "l-*-317"
- "l-*-315"
- "l-*-313"
- "l-*-311"
- "l-*-309"
- "l-*-306"
- "l-*-304"
- "l-*-302"
- "l-*-300"
- "l-*-298"
- "l-*-296"
- "l-*-294"
- "l-*-292"
- "l-*-290"
- "l-*-288"
- "l-*-286"
- "l-*-284"
- "l-*-282"
- "l-*-280"
- "l-*-278"
- "l-*-276"
- "l-*-274"
- "l-*-272"
- "l-*-270"
- "l-*-268"
- "l-*-266"
- "l-*-264"
- "l-*-262"
- "l-*-260"
- "l-*-258"
- "l-*-256"
- "l-*-255"
- "l-*-254"
- "l-*-253"
- "l-*-252"
- "l-*-250"
- "l-*-248"
- "l-*-246"
- "l-*-243"
- "l-*-241"
- "l-*-239"
- "l-*-237"
- "l-*-235"
- "l-*-233"
- "l-*-231"
- "l-*-229"
- "l-*-227"
- "l-*-225"
- "l-*-223"
- "l-*-221"
- "l-*-219"
- "l-*-217"
- "l-*-215"
- "l-*-213"
- "l-*-211"
- "l-*-209"))
+ ("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
@@ -14098,9 +14233,9 @@
((top)
(top)
(top))
- ("l-*-47"
- "l-*-46"
- "l-*-45")))
+ ("l-*-2098"
+ "l-*-2097"
+ "l-*-2096")))
(hygiene
guile)))
4)
@@ -14115,7 +14250,7 @@
#(ribcage
#(x)
#((top))
- #("l-*-2343"))
+ #("l-*-4404"))
#(ribcage
(lambda-var-list
gen-var
@@ -14397,159 +14532,159 @@
(top)
(top)
(top))
- ("l-*-476"
- "l-*-474"
- "l-*-472"
- "l-*-470"
- "l-*-468"
- "l-*-466"
- "l-*-464"
- "l-*-462"
- "l-*-460"
- "l-*-458"
- "l-*-456"
- "l-*-454"
- "l-*-452"
- "l-*-450"
- "l-*-448"
- "l-*-446"
- "l-*-444"
- "l-*-442"
- "l-*-440"
- "l-*-438"
- "l-*-436"
- "l-*-434"
- "l-*-432"
- "l-*-430"
- "l-*-428"
- "l-*-426"
- "l-*-424"
- "l-*-422"
- "l-*-420"
- "l-*-418"
- "l-*-416"
- "l-*-414"
- "l-*-412"
- "l-*-410"
- "l-*-408"
- "l-*-406"
- "l-*-404"
- "l-*-402"
- "l-*-400"
- "l-*-399"
- "l-*-397"
- "l-*-394"
- "l-*-393"
- "l-*-392"
- "l-*-390"
- "l-*-389"
- "l-*-387"
- "l-*-385"
- "l-*-383"
- "l-*-381"
- "l-*-379"
- "l-*-377"
- "l-*-375"
- "l-*-373"
- "l-*-370"
- "l-*-368"
- "l-*-367"
- "l-*-365"
- "l-*-363"
- "l-*-361"
- "l-*-359"
- "l-*-358"
- "l-*-357"
- "l-*-356"
- "l-*-354"
- "l-*-353"
- "l-*-350"
- "l-*-348"
- "l-*-346"
- "l-*-344"
- "l-*-342"
- "l-*-340"
- "l-*-338"
- "l-*-337"
- "l-*-336"
- "l-*-334"
- "l-*-332"
- "l-*-331"
- "l-*-328"
- "l-*-327"
- "l-*-325"
- "l-*-323"
- "l-*-321"
- "l-*-319"
- "l-*-317"
- "l-*-315"
- "l-*-313"
- "l-*-311"
- "l-*-309"
- "l-*-306"
- "l-*-304"
- "l-*-302"
- "l-*-300"
- "l-*-298"
- "l-*-296"
- "l-*-294"
- "l-*-292"
- "l-*-290"
- "l-*-288"
- "l-*-286"
- "l-*-284"
- "l-*-282"
- "l-*-280"
- "l-*-278"
- "l-*-276"
- "l-*-274"
- "l-*-272"
- "l-*-270"
- "l-*-268"
- "l-*-266"
- "l-*-264"
- "l-*-262"
- "l-*-260"
- "l-*-258"
- "l-*-256"
- "l-*-255"
- "l-*-254"
- "l-*-253"
- "l-*-252"
- "l-*-250"
- "l-*-248"
- "l-*-246"
- "l-*-243"
- "l-*-241"
- "l-*-239"
- "l-*-237"
- "l-*-235"
- "l-*-233"
- "l-*-231"
- "l-*-229"
- "l-*-227"
- "l-*-225"
- "l-*-223"
- "l-*-221"
- "l-*-219"
- "l-*-217"
- "l-*-215"
- "l-*-213"
- "l-*-211"
- "l-*-209"))
+ ("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-*-47"
- "l-*-46"
- "l-*-45")))
+ ("l-*-2098"
+ "l-*-2097"
+ "l-*-2096")))
(hygiene guile))))
- (eq? (id-var-name-4505
- dots-13200
+ (eq? (id-var-name-6568
+ dots-15266
'(()))
- (id-var-name-4505
+ (id-var-name-6568
'#(syntax-object
...
((top)
@@ -14558,7 +14693,7 @@
#(ribcage
#(x)
#((top))
- #("l-*-2343"))
+ #("l-*-4404"))
#(ribcage
(lambda-var-list
gen-var
@@ -14840,249 +14975,249 @@
(top)
(top)
(top))
- ("l-*-476"
- "l-*-474"
- "l-*-472"
- "l-*-470"
- "l-*-468"
- "l-*-466"
- "l-*-464"
- "l-*-462"
- "l-*-460"
- "l-*-458"
- "l-*-456"
- "l-*-454"
- "l-*-452"
- "l-*-450"
- "l-*-448"
- "l-*-446"
- "l-*-444"
- "l-*-442"
- "l-*-440"
- "l-*-438"
- "l-*-436"
- "l-*-434"
- "l-*-432"
- "l-*-430"
- "l-*-428"
- "l-*-426"
- "l-*-424"
- "l-*-422"
- "l-*-420"
- "l-*-418"
- "l-*-416"
- "l-*-414"
- "l-*-412"
- "l-*-410"
- "l-*-408"
- "l-*-406"
- "l-*-404"
- "l-*-402"
- "l-*-400"
- "l-*-399"
- "l-*-397"
- "l-*-394"
- "l-*-393"
- "l-*-392"
- "l-*-390"
- "l-*-389"
- "l-*-387"
- "l-*-385"
- "l-*-383"
- "l-*-381"
- "l-*-379"
- "l-*-377"
- "l-*-375"
- "l-*-373"
- "l-*-370"
- "l-*-368"
- "l-*-367"
- "l-*-365"
- "l-*-363"
- "l-*-361"
- "l-*-359"
- "l-*-358"
- "l-*-357"
- "l-*-356"
- "l-*-354"
- "l-*-353"
- "l-*-350"
- "l-*-348"
- "l-*-346"
- "l-*-344"
- "l-*-342"
- "l-*-340"
- "l-*-338"
- "l-*-337"
- "l-*-336"
- "l-*-334"
- "l-*-332"
- "l-*-331"
- "l-*-328"
- "l-*-327"
- "l-*-325"
- "l-*-323"
- "l-*-321"
- "l-*-319"
- "l-*-317"
- "l-*-315"
- "l-*-313"
- "l-*-311"
- "l-*-309"
- "l-*-306"
- "l-*-304"
- "l-*-302"
- "l-*-300"
- "l-*-298"
- "l-*-296"
- "l-*-294"
- "l-*-292"
- "l-*-290"
- "l-*-288"
- "l-*-286"
- "l-*-284"
- "l-*-282"
- "l-*-280"
- "l-*-278"
- "l-*-276"
- "l-*-274"
- "l-*-272"
- "l-*-270"
- "l-*-268"
- "l-*-266"
- "l-*-264"
- "l-*-262"
- "l-*-260"
- "l-*-258"
- "l-*-256"
- "l-*-255"
- "l-*-254"
- "l-*-253"
- "l-*-252"
- "l-*-250"
- "l-*-248"
- "l-*-246"
- "l-*-243"
- "l-*-241"
- "l-*-239"
- "l-*-237"
- "l-*-235"
- "l-*-233"
- "l-*-231"
- "l-*-229"
- "l-*-227"
- "l-*-225"
- "l-*-223"
- "l-*-221"
- "l-*-219"
- "l-*-217"
- "l-*-215"
- "l-*-213"
- "l-*-211"
- "l-*-209"))
+ ("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-*-47"
- "l-*-46"
- "l-*-45")))
+ ("l-*-2098"
+ "l-*-2097"
+ "l-*-2096")))
(hygiene guile))
'(())))
#f)
#f))
- tmp-13195)
+ tmp-15261)
#f)
(@apply
- (lambda (x-13301 dots-13302 ys-13303)
+ (lambda (x-15367 dots-15368 ys-15369)
(call-with-values
(lambda ()
- (cvt*-12759
- ys-13303
- n-12765
- ids-12766))
- (lambda (ys-13306 ids-13307)
+ (cvt*-14825
+ ys-15369
+ n-14831
+ ids-14832))
+ (lambda (ys-15372 ids-15373)
(call-with-values
(lambda ()
- (cvt-12761
- x-13301
- (#{1+}# n-12765)
- ids-13307))
- (lambda (x-13308 ids-13309)
+ (cvt-14827
+ x-15367
+ (#{1+}# n-14831)
+ ids-15373))
+ (lambda (x-15374 ids-15375)
(call-with-values
(lambda ()
- (v-reverse-12760 ys-13306))
- (lambda (ys-13342 e-13343)
+ (v-reverse-14826 ys-15372))
+ (lambda (ys-15408 e-15409)
(values
(vector
'each+
- x-13308
- ys-13342
- e-13343)
- ids-13309))))))))
- tmp-13195)
- (let ((tmp-13344
- ($sc-dispatch p-12764 '(any . any))))
- (if tmp-13344
+ 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-13348 y-13349)
+ (lambda (x-15414 y-15415)
(call-with-values
(lambda ()
- (cvt-12761
- y-13349
- n-12765
- ids-12766))
- (lambda (y-13350 ids-13351)
+ (cvt-14827
+ y-15415
+ n-14831
+ ids-14832))
+ (lambda (y-15416 ids-15417)
(call-with-values
(lambda ()
- (cvt-12761
- x-13348
- n-12765
- ids-13351))
- (lambda (x-13352 ids-13353)
+ (cvt-14827
+ x-15414
+ n-14831
+ ids-15417))
+ (lambda (x-15418 ids-15419)
(values
- (cons x-13352 y-13350)
- ids-13353))))))
- tmp-13344)
- (let ((tmp-13354
- ($sc-dispatch p-12764 '())))
- (if tmp-13354
+ (cons x-15418 y-15416)
+ ids-15419))))))
+ tmp-15410)
+ (let ((tmp-15420
+ ($sc-dispatch p-14830 '())))
+ (if tmp-15420
(@apply
- (lambda () (values '() ids-12766))
- tmp-13354)
- (let ((tmp-13358
+ (lambda () (values '() ids-14832))
+ tmp-15420)
+ (let ((tmp-15424
($sc-dispatch
- p-12764
+ p-14830
'#(vector each-any))))
- (if tmp-13358
+ (if tmp-15424
(@apply
- (lambda (x-13362)
+ (lambda (x-15428)
(call-with-values
(lambda ()
- (cvt-12761
- x-13362
- n-12765
- ids-12766))
- (lambda (p-13363 ids-13364)
+ (cvt-14827
+ x-15428
+ n-14831
+ ids-14832))
+ (lambda (p-15429 ids-15430)
(values
- (vector 'vector p-13363)
- ids-13364))))
- tmp-13358)
+ (vector 'vector p-15429)
+ ids-15430))))
+ tmp-15424)
(values
(vector
'atom
- (strip-4535 p-12764 '(())))
- ids-12766)))))))))))))))
- (cvt-12761 pattern-12757 0 '()))))
- (build-dispatch-call-11161
- (lambda (pvars-13477 exp-13478 y-13479 r-13480 mod-13481)
- (let ((ids-13482 (map car pvars-13477)))
+ (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-13477)
- (let ((labels-13484 (gen-labels-4489 ids-13482))
- (new-vars-13485 (map gen-var-4536 ids-13482)))
- (build-application-4453
+ (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
@@ -15095,73 +15230,73 @@
'(guile)
'apply
#f))
- (list (build-simple-lambda-4462
+ (list (build-simple-lambda-6525
#f
- (map syntax->datum ids-13482)
+ (map syntax->datum ids-15548)
#f
- new-vars-13485
+ new-vars-15551
'()
- (expand-4522
- exp-13478
- (extend-env-4480
- labels-13484
- (map (lambda (var-13808 level-13809)
+ (expand-6585
+ exp-15544
+ (extend-env-6543
+ labels-15550
+ (map (lambda (var-15874 level-15875)
(cons 'syntax
- (cons var-13808 level-13809)))
- new-vars-13485
- (map cdr pvars-13477))
- r-13480)
- (make-binding-wrap-4500
- ids-13482
- labels-13484
+ (cons var-15874 level-15875)))
+ new-vars-15551
+ (map cdr pvars-15543))
+ r-15546)
+ (make-binding-wrap-6563
+ ids-15548
+ labels-15550
'(()))
- mod-13481))
- y-13479)))))))
- (gen-clause-11162
- (lambda (x-12129
- keys-12130
- clauses-12131
- r-12132
- pat-12133
- fender-12134
- exp-12135
- mod-12136)
+ 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-11160 pat-12133 keys-12130))
- (lambda (p-12291 pvars-12292)
- (if (not (distinct-bound-ids?-4513 (map car pvars-12292)))
+ (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-12133)
+ pat-14199)
(if (not (and-map
- (lambda (x-12408)
- (not (let ((x-12412 (car x-12408)))
- (if (if (if (vector? x-12412)
+ (lambda (x-14474)
+ (not (let ((x-14478 (car x-14474)))
+ (if (if (if (vector? x-14478)
(if (= (vector-length
- x-12412)
+ x-14478)
4)
(eq? (vector-ref
- x-12412
+ x-14478
0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref x-12412 1))
+ (symbol? (vector-ref x-14478 1))
#f)
- (if (eq? (if (if (vector? x-12412)
+ (if (eq? (if (if (vector? x-14478)
(if (= (vector-length
- x-12412)
+ x-14478)
4)
(eq? (vector-ref
- x-12412
+ x-14478
0)
'syntax-object)
#f)
#f)
- (vector-ref x-12412 1)
- x-12412)
+ (vector-ref x-14478 1)
+ x-14478)
(if (if (= (vector-length
'#(syntax-object
...
@@ -15177,7 +15312,7 @@
#(ribcage
#(x)
#((top))
- #("l-*-2343"))
+ #("l-*-4404"))
#(ribcage
(lambda-var-list
gen-var
@@ -15459,146 +15594,146 @@
(top)
(top)
(top))
- ("l-*-476"
- "l-*-474"
- "l-*-472"
- "l-*-470"
- "l-*-468"
- "l-*-466"
- "l-*-464"
- "l-*-462"
- "l-*-460"
- "l-*-458"
- "l-*-456"
- "l-*-454"
- "l-*-452"
- "l-*-450"
- "l-*-448"
- "l-*-446"
- "l-*-444"
- "l-*-442"
- "l-*-440"
- "l-*-438"
- "l-*-436"
- "l-*-434"
- "l-*-432"
- "l-*-430"
- "l-*-428"
- "l-*-426"
- "l-*-424"
- "l-*-422"
- "l-*-420"
- "l-*-418"
- "l-*-416"
- "l-*-414"
- "l-*-412"
- "l-*-410"
- "l-*-408"
- "l-*-406"
- "l-*-404"
- "l-*-402"
- "l-*-400"
- "l-*-399"
- "l-*-397"
- "l-*-394"
- "l-*-393"
- "l-*-392"
- "l-*-390"
- "l-*-389"
- "l-*-387"
- "l-*-385"
- "l-*-383"
- "l-*-381"
- "l-*-379"
- "l-*-377"
- "l-*-375"
- "l-*-373"
- "l-*-370"
- "l-*-368"
- "l-*-367"
- "l-*-365"
- "l-*-363"
- "l-*-361"
- "l-*-359"
- "l-*-358"
- "l-*-357"
- "l-*-356"
- "l-*-354"
- "l-*-353"
- "l-*-350"
- "l-*-348"
- "l-*-346"
- "l-*-344"
- "l-*-342"
- "l-*-340"
- "l-*-338"
- "l-*-337"
- "l-*-336"
- "l-*-334"
- "l-*-332"
- "l-*-331"
- "l-*-328"
- "l-*-327"
- "l-*-325"
- "l-*-323"
- "l-*-321"
- "l-*-319"
- "l-*-317"
- "l-*-315"
- "l-*-313"
- "l-*-311"
- "l-*-309"
- "l-*-306"
- "l-*-304"
- "l-*-302"
- "l-*-300"
- "l-*-298"
- "l-*-296"
- "l-*-294"
- "l-*-292"
- "l-*-290"
- "l-*-288"
- "l-*-286"
- "l-*-284"
- "l-*-282"
- "l-*-280"
- "l-*-278"
- "l-*-276"
- "l-*-274"
- "l-*-272"
- "l-*-270"
- "l-*-268"
- "l-*-266"
- "l-*-264"
- "l-*-262"
- "l-*-260"
- "l-*-258"
- "l-*-256"
- "l-*-255"
- "l-*-254"
- "l-*-253"
- "l-*-252"
- "l-*-250"
- "l-*-248"
- "l-*-246"
- "l-*-243"
- "l-*-241"
- "l-*-239"
- "l-*-237"
- "l-*-235"
- "l-*-233"
- "l-*-231"
- "l-*-229"
- "l-*-227"
- "l-*-225"
- "l-*-223"
- "l-*-221"
- "l-*-219"
- "l-*-217"
- "l-*-215"
- "l-*-213"
- "l-*-211"
- "l-*-209"))
+ ("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
@@ -15606,9 +15741,9 @@
((top)
(top)
(top))
- ("l-*-47"
- "l-*-46"
- "l-*-45")))
+ ("l-*-2098"
+ "l-*-2097"
+ "l-*-2096")))
(hygiene
guile)))
4)
@@ -15623,7 +15758,7 @@
#(ribcage
#(x)
#((top))
- #("l-*-2343"))
+ #("l-*-4404"))
#(ribcage
(lambda-var-list
gen-var
@@ -15905,159 +16040,159 @@
(top)
(top)
(top))
- ("l-*-476"
- "l-*-474"
- "l-*-472"
- "l-*-470"
- "l-*-468"
- "l-*-466"
- "l-*-464"
- "l-*-462"
- "l-*-460"
- "l-*-458"
- "l-*-456"
- "l-*-454"
- "l-*-452"
- "l-*-450"
- "l-*-448"
- "l-*-446"
- "l-*-444"
- "l-*-442"
- "l-*-440"
- "l-*-438"
- "l-*-436"
- "l-*-434"
- "l-*-432"
- "l-*-430"
- "l-*-428"
- "l-*-426"
- "l-*-424"
- "l-*-422"
- "l-*-420"
- "l-*-418"
- "l-*-416"
- "l-*-414"
- "l-*-412"
- "l-*-410"
- "l-*-408"
- "l-*-406"
- "l-*-404"
- "l-*-402"
- "l-*-400"
- "l-*-399"
- "l-*-397"
- "l-*-394"
- "l-*-393"
- "l-*-392"
- "l-*-390"
- "l-*-389"
- "l-*-387"
- "l-*-385"
- "l-*-383"
- "l-*-381"
- "l-*-379"
- "l-*-377"
- "l-*-375"
- "l-*-373"
- "l-*-370"
- "l-*-368"
- "l-*-367"
- "l-*-365"
- "l-*-363"
- "l-*-361"
- "l-*-359"
- "l-*-358"
- "l-*-357"
- "l-*-356"
- "l-*-354"
- "l-*-353"
- "l-*-350"
- "l-*-348"
- "l-*-346"
- "l-*-344"
- "l-*-342"
- "l-*-340"
- "l-*-338"
- "l-*-337"
- "l-*-336"
- "l-*-334"
- "l-*-332"
- "l-*-331"
- "l-*-328"
- "l-*-327"
- "l-*-325"
- "l-*-323"
- "l-*-321"
- "l-*-319"
- "l-*-317"
- "l-*-315"
- "l-*-313"
- "l-*-311"
- "l-*-309"
- "l-*-306"
- "l-*-304"
- "l-*-302"
- "l-*-300"
- "l-*-298"
- "l-*-296"
- "l-*-294"
- "l-*-292"
- "l-*-290"
- "l-*-288"
- "l-*-286"
- "l-*-284"
- "l-*-282"
- "l-*-280"
- "l-*-278"
- "l-*-276"
- "l-*-274"
- "l-*-272"
- "l-*-270"
- "l-*-268"
- "l-*-266"
- "l-*-264"
- "l-*-262"
- "l-*-260"
- "l-*-258"
- "l-*-256"
- "l-*-255"
- "l-*-254"
- "l-*-253"
- "l-*-252"
- "l-*-250"
- "l-*-248"
- "l-*-246"
- "l-*-243"
- "l-*-241"
- "l-*-239"
- "l-*-237"
- "l-*-235"
- "l-*-233"
- "l-*-231"
- "l-*-229"
- "l-*-227"
- "l-*-225"
- "l-*-223"
- "l-*-221"
- "l-*-219"
- "l-*-217"
- "l-*-215"
- "l-*-213"
- "l-*-211"
- "l-*-209"))
+ ("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-*-47"
- "l-*-46"
- "l-*-45")))
+ ("l-*-2098"
+ "l-*-2097"
+ "l-*-2096")))
(hygiene guile))))
- (eq? (id-var-name-4505
- x-12412
+ (eq? (id-var-name-6568
+ x-14478
'(()))
- (id-var-name-4505
+ (id-var-name-6568
'#(syntax-object
...
((top)
@@ -16066,7 +16201,7 @@
#(ribcage
#(x)
#((top))
- #("l-*-2343"))
+ #("l-*-4404"))
#(ribcage
(lambda-var-list
gen-var
@@ -16348,194 +16483,194 @@
(top)
(top)
(top))
- ("l-*-476"
- "l-*-474"
- "l-*-472"
- "l-*-470"
- "l-*-468"
- "l-*-466"
- "l-*-464"
- "l-*-462"
- "l-*-460"
- "l-*-458"
- "l-*-456"
- "l-*-454"
- "l-*-452"
- "l-*-450"
- "l-*-448"
- "l-*-446"
- "l-*-444"
- "l-*-442"
- "l-*-440"
- "l-*-438"
- "l-*-436"
- "l-*-434"
- "l-*-432"
- "l-*-430"
- "l-*-428"
- "l-*-426"
- "l-*-424"
- "l-*-422"
- "l-*-420"
- "l-*-418"
- "l-*-416"
- "l-*-414"
- "l-*-412"
- "l-*-410"
- "l-*-408"
- "l-*-406"
- "l-*-404"
- "l-*-402"
- "l-*-400"
- "l-*-399"
- "l-*-397"
- "l-*-394"
- "l-*-393"
- "l-*-392"
- "l-*-390"
- "l-*-389"
- "l-*-387"
- "l-*-385"
- "l-*-383"
- "l-*-381"
- "l-*-379"
- "l-*-377"
- "l-*-375"
- "l-*-373"
- "l-*-370"
- "l-*-368"
- "l-*-367"
- "l-*-365"
- "l-*-363"
- "l-*-361"
- "l-*-359"
- "l-*-358"
- "l-*-357"
- "l-*-356"
- "l-*-354"
- "l-*-353"
- "l-*-350"
- "l-*-348"
- "l-*-346"
- "l-*-344"
- "l-*-342"
- "l-*-340"
- "l-*-338"
- "l-*-337"
- "l-*-336"
- "l-*-334"
- "l-*-332"
- "l-*-331"
- "l-*-328"
- "l-*-327"
- "l-*-325"
- "l-*-323"
- "l-*-321"
- "l-*-319"
- "l-*-317"
- "l-*-315"
- "l-*-313"
- "l-*-311"
- "l-*-309"
- "l-*-306"
- "l-*-304"
- "l-*-302"
- "l-*-300"
- "l-*-298"
- "l-*-296"
- "l-*-294"
- "l-*-292"
- "l-*-290"
- "l-*-288"
- "l-*-286"
- "l-*-284"
- "l-*-282"
- "l-*-280"
- "l-*-278"
- "l-*-276"
- "l-*-274"
- "l-*-272"
- "l-*-270"
- "l-*-268"
- "l-*-266"
- "l-*-264"
- "l-*-262"
- "l-*-260"
- "l-*-258"
- "l-*-256"
- "l-*-255"
- "l-*-254"
- "l-*-253"
- "l-*-252"
- "l-*-250"
- "l-*-248"
- "l-*-246"
- "l-*-243"
- "l-*-241"
- "l-*-239"
- "l-*-237"
- "l-*-235"
- "l-*-233"
- "l-*-231"
- "l-*-229"
- "l-*-227"
- "l-*-225"
- "l-*-223"
- "l-*-221"
- "l-*-219"
- "l-*-217"
- "l-*-215"
- "l-*-213"
- "l-*-211"
- "l-*-209"))
+ ("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-*-47"
- "l-*-46"
- "l-*-45")))
+ ("l-*-2098"
+ "l-*-2097"
+ "l-*-2096")))
(hygiene guile))
'(())))
#f)
#f))))
- pvars-12292))
+ pvars-14358))
(syntax-violation
'syntax-case
"misplaced ellipsis"
- pat-12133)
- (let ((y-12488
+ pat-14199)
+ (let ((y-14554
(gensym
(string-append (symbol->string 'tmp) "-"))))
- (build-application-4453
+ (build-application-6516
#f
- (let ((req-12631 (list 'tmp))
- (vars-12633 (list y-12488))
- (exp-12635
- (let ((y-12652
+ (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-12488)))
- (let ((test-exp-12656
- (let ((tmp-12665
+ y-14554)))
+ (let ((test-exp-14722
+ (let ((tmp-14731
($sc-dispatch
- fender-12134
+ fender-14200
'#(atom #t))))
- (if tmp-12665
+ (if tmp-14731
(@apply
- (lambda () y-12652)
- tmp-12665)
- (let ((then-exp-12683
- (build-dispatch-call-11161
- pvars-12292
- fender-12134
- y-12652
- r-12132
- mod-12136))
- (else-exp-12684
+ (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
@@ -16547,48 +16682,48 @@
%expanded-vtables
10)
#f
- y-12652
- then-exp-12683
- else-exp-12684)))))
- (then-exp-12657
- (build-dispatch-call-11161
- pvars-12292
- exp-12135
- y-12652
- r-12132
- mod-12136))
- (else-exp-12658
- (gen-syntax-case-11163
- x-12129
- keys-12130
- clauses-12131
- r-12132
- mod-12136)))
+ 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-12656
- then-exp-12657
- else-exp-12658)))))
- (let ((body-12640
+ test-exp-14722
+ then-exp-14723
+ else-exp-14724)))))
+ (let ((body-14706
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
#f
- req-12631
+ req-14697
#f
#f
#f
'()
- vars-12633
- exp-12635
+ vars-14699
+ exp-14701
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
#f
'()
- body-12640)))
- (list (if (eq? p-12291 'any)
- (let ((fun-exp-12706
+ body-14706)))
+ (list (if (eq? p-14357 'any)
+ (let ((fun-exp-14772
(if (equal?
(module-name (current-module))
'(guile))
@@ -16602,13 +16737,13 @@
'(guile)
'list
#f)))
- (arg-exps-12707 (list x-12129)))
+ (arg-exps-14773 (list x-14195)))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
#f
- fun-exp-12706
- arg-exps-12707))
- (let ((fun-exp-12730
+ fun-exp-14772
+ arg-exps-14773))
+ (let ((fun-exp-14796
(if (equal?
(module-name (current-module))
'(guile))
@@ -16622,27 +16757,27 @@
'(guile)
'$sc-dispatch
#f)))
- (arg-exps-12731
- (list x-12129
+ (arg-exps-14797
+ (list x-14195
(make-struct/no-tail
(vector-ref
%expanded-vtables
1)
#f
- p-12291))))
+ p-14357))))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
#f
- fun-exp-12730
- arg-exps-12731))))))))))))
- (gen-syntax-case-11163
- (lambda (x-11562
- keys-11563
- clauses-11564
- r-11565
- mod-11566)
- (if (null? clauses-11564)
- (let ((fun-exp-11571
+ 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)
@@ -16654,7 +16789,7 @@
'(guile)
'syntax-violation
#f)))
- (arg-exps-11572
+ (arg-exps-13638
(list (make-struct/no-tail
(vector-ref %expanded-vtables 1)
#f
@@ -16663,58 +16798,58 @@
(vector-ref %expanded-vtables 1)
#f
"source expression failed to match any pattern")
- x-11562)))
+ x-13628)))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
#f
- fun-exp-11571
- arg-exps-11572))
- (let ((tmp-11605 (car clauses-11564)))
- (let ((tmp-11606 ($sc-dispatch tmp-11605 '(any any))))
- (if tmp-11606
+ 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-11608 exp-11609)
- (if (if (if (symbol? pat-11608)
+ (lambda (pat-13674 exp-13675)
+ (if (if (if (symbol? pat-13674)
#t
- (if (if (vector? pat-11608)
- (if (= (vector-length pat-11608) 4)
- (eq? (vector-ref pat-11608 0)
+ (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-11608 1))
+ (symbol? (vector-ref pat-13674 1))
#f))
(and-map
- (lambda (x-11636)
- (not (if (eq? (if (if (vector? pat-11608)
+ (lambda (x-13702)
+ (not (if (eq? (if (if (vector? pat-13674)
(if (= (vector-length
- pat-11608)
+ pat-13674)
4)
(eq? (vector-ref
- pat-11608
+ pat-13674
0)
'syntax-object)
#f)
#f)
- (vector-ref pat-11608 1)
- pat-11608)
- (if (if (vector? x-11636)
+ (vector-ref pat-13674 1)
+ pat-13674)
+ (if (if (vector? x-13702)
(if (= (vector-length
- x-11636)
+ x-13702)
4)
(eq? (vector-ref
- x-11636
+ x-13702
0)
'syntax-object)
#f)
#f)
- (vector-ref x-11636 1)
- x-11636))
- (eq? (id-var-name-4505
- pat-11608
+ (vector-ref x-13702 1)
+ x-13702))
+ (eq? (id-var-name-6568
+ pat-13674
'(()))
- (id-var-name-4505
- x-11636
+ (id-var-name-6568
+ x-13702
'(())))
#f)))
(cons '#(syntax-object
@@ -16723,26 +16858,26 @@
#(ribcage
#(pat exp)
#((top) (top))
- #("l-*-4024" "l-*-4025"))
+ #("l-*-6087" "l-*-6088"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
#((top) (top) (top) (top) (top))
- #("l-*-4013"
- "l-*-4014"
- "l-*-4015"
- "l-*-4016"
- "l-*-4017"))
+ #("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-*-3823"
- "l-*-3821"
- "l-*-3819"
- "l-*-3817"))
+ ("l-*-5886"
+ "l-*-5884"
+ "l-*-5882"
+ "l-*-5880"))
#(ribcage
(lambda-var-list
gen-var
@@ -17024,154 +17159,156 @@
(top)
(top)
(top))
- ("l-*-476"
- "l-*-474"
- "l-*-472"
- "l-*-470"
- "l-*-468"
- "l-*-466"
- "l-*-464"
- "l-*-462"
- "l-*-460"
- "l-*-458"
- "l-*-456"
- "l-*-454"
- "l-*-452"
- "l-*-450"
- "l-*-448"
- "l-*-446"
- "l-*-444"
- "l-*-442"
- "l-*-440"
- "l-*-438"
- "l-*-436"
- "l-*-434"
- "l-*-432"
- "l-*-430"
- "l-*-428"
- "l-*-426"
- "l-*-424"
- "l-*-422"
- "l-*-420"
- "l-*-418"
- "l-*-416"
- "l-*-414"
- "l-*-412"
- "l-*-410"
- "l-*-408"
- "l-*-406"
- "l-*-404"
- "l-*-402"
- "l-*-400"
- "l-*-399"
- "l-*-397"
- "l-*-394"
- "l-*-393"
- "l-*-392"
- "l-*-390"
- "l-*-389"
- "l-*-387"
- "l-*-385"
- "l-*-383"
- "l-*-381"
- "l-*-379"
- "l-*-377"
- "l-*-375"
- "l-*-373"
- "l-*-370"
- "l-*-368"
- "l-*-367"
- "l-*-365"
- "l-*-363"
- "l-*-361"
- "l-*-359"
- "l-*-358"
- "l-*-357"
- "l-*-356"
- "l-*-354"
- "l-*-353"
- "l-*-350"
- "l-*-348"
- "l-*-346"
- "l-*-344"
- "l-*-342"
- "l-*-340"
- "l-*-338"
- "l-*-337"
- "l-*-336"
- "l-*-334"
- "l-*-332"
- "l-*-331"
- "l-*-328"
- "l-*-327"
- "l-*-325"
- "l-*-323"
- "l-*-321"
- "l-*-319"
- "l-*-317"
- "l-*-315"
- "l-*-313"
- "l-*-311"
- "l-*-309"
- "l-*-306"
- "l-*-304"
- "l-*-302"
- "l-*-300"
- "l-*-298"
- "l-*-296"
- "l-*-294"
- "l-*-292"
- "l-*-290"
- "l-*-288"
- "l-*-286"
- "l-*-284"
- "l-*-282"
- "l-*-280"
- "l-*-278"
- "l-*-276"
- "l-*-274"
- "l-*-272"
- "l-*-270"
- "l-*-268"
- "l-*-266"
- "l-*-264"
- "l-*-262"
- "l-*-260"
- "l-*-258"
- "l-*-256"
- "l-*-255"
- "l-*-254"
- "l-*-253"
- "l-*-252"
- "l-*-250"
- "l-*-248"
- "l-*-246"
- "l-*-243"
- "l-*-241"
- "l-*-239"
- "l-*-237"
- "l-*-235"
- "l-*-233"
- "l-*-231"
- "l-*-229"
- "l-*-227"
- "l-*-225"
- "l-*-223"
- "l-*-221"
- "l-*-219"
- "l-*-217"
- "l-*-215"
- "l-*-213"
- "l-*-211"
- "l-*-209"))
+ ("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-*-47" "l-*-46" "l-*-45")))
+ ("l-*-2098"
+ "l-*-2097"
+ "l-*-2096")))
(hygiene guile))
- keys-11563))
+ keys-13629))
#f)
(if (if (eq? (if (if (= (vector-length
'#(syntax-object
@@ -17180,8 +17317,8 @@
#(ribcage
#(pat exp)
#((top) (top))
- #("l-*-4024"
- "l-*-4025"))
+ #("l-*-6087"
+ "l-*-6088"))
#(ribcage () () ())
#(ribcage
#(x
@@ -17194,11 +17331,11 @@
(top)
(top)
(top))
- #("l-*-4013"
- "l-*-4014"
- "l-*-4015"
- "l-*-4016"
- "l-*-4017"))
+ #("l-*-6076"
+ "l-*-6077"
+ "l-*-6078"
+ "l-*-6079"
+ "l-*-6080"))
#(ribcage
(gen-syntax-case
gen-clause
@@ -17208,10 +17345,10 @@
(top)
(top)
(top))
- ("l-*-3823"
- "l-*-3821"
- "l-*-3819"
- "l-*-3817"))
+ ("l-*-5886"
+ "l-*-5884"
+ "l-*-5882"
+ "l-*-5880"))
#(ribcage
(lambda-var-list
gen-var
@@ -17493,146 +17630,146 @@
(top)
(top)
(top))
- ("l-*-476"
- "l-*-474"
- "l-*-472"
- "l-*-470"
- "l-*-468"
- "l-*-466"
- "l-*-464"
- "l-*-462"
- "l-*-460"
- "l-*-458"
- "l-*-456"
- "l-*-454"
- "l-*-452"
- "l-*-450"
- "l-*-448"
- "l-*-446"
- "l-*-444"
- "l-*-442"
- "l-*-440"
- "l-*-438"
- "l-*-436"
- "l-*-434"
- "l-*-432"
- "l-*-430"
- "l-*-428"
- "l-*-426"
- "l-*-424"
- "l-*-422"
- "l-*-420"
- "l-*-418"
- "l-*-416"
- "l-*-414"
- "l-*-412"
- "l-*-410"
- "l-*-408"
- "l-*-406"
- "l-*-404"
- "l-*-402"
- "l-*-400"
- "l-*-399"
- "l-*-397"
- "l-*-394"
- "l-*-393"
- "l-*-392"
- "l-*-390"
- "l-*-389"
- "l-*-387"
- "l-*-385"
- "l-*-383"
- "l-*-381"
- "l-*-379"
- "l-*-377"
- "l-*-375"
- "l-*-373"
- "l-*-370"
- "l-*-368"
- "l-*-367"
- "l-*-365"
- "l-*-363"
- "l-*-361"
- "l-*-359"
- "l-*-358"
- "l-*-357"
- "l-*-356"
- "l-*-354"
- "l-*-353"
- "l-*-350"
- "l-*-348"
- "l-*-346"
- "l-*-344"
- "l-*-342"
- "l-*-340"
- "l-*-338"
- "l-*-337"
- "l-*-336"
- "l-*-334"
- "l-*-332"
- "l-*-331"
- "l-*-328"
- "l-*-327"
- "l-*-325"
- "l-*-323"
- "l-*-321"
- "l-*-319"
- "l-*-317"
- "l-*-315"
- "l-*-313"
- "l-*-311"
- "l-*-309"
- "l-*-306"
- "l-*-304"
- "l-*-302"
- "l-*-300"
- "l-*-298"
- "l-*-296"
- "l-*-294"
- "l-*-292"
- "l-*-290"
- "l-*-288"
- "l-*-286"
- "l-*-284"
- "l-*-282"
- "l-*-280"
- "l-*-278"
- "l-*-276"
- "l-*-274"
- "l-*-272"
- "l-*-270"
- "l-*-268"
- "l-*-266"
- "l-*-264"
- "l-*-262"
- "l-*-260"
- "l-*-258"
- "l-*-256"
- "l-*-255"
- "l-*-254"
- "l-*-253"
- "l-*-252"
- "l-*-250"
- "l-*-248"
- "l-*-246"
- "l-*-243"
- "l-*-241"
- "l-*-239"
- "l-*-237"
- "l-*-235"
- "l-*-233"
- "l-*-231"
- "l-*-229"
- "l-*-227"
- "l-*-225"
- "l-*-223"
- "l-*-221"
- "l-*-219"
- "l-*-217"
- "l-*-215"
- "l-*-213"
- "l-*-211"
- "l-*-209"))
+ ("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
@@ -17640,9 +17777,9 @@
((top)
(top)
(top))
- ("l-*-47"
- "l-*-46"
- "l-*-45")))
+ ("l-*-2098"
+ "l-*-2097"
+ "l-*-2096")))
(hygiene guile)))
4)
#t
@@ -17654,7 +17791,7 @@
#(ribcage
#(pat exp)
#((top) (top))
- #("l-*-4024" "l-*-4025"))
+ #("l-*-6087" "l-*-6088"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
@@ -17663,21 +17800,21 @@
(top)
(top)
(top))
- #("l-*-4013"
- "l-*-4014"
- "l-*-4015"
- "l-*-4016"
- "l-*-4017"))
+ #("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-*-3823"
- "l-*-3821"
- "l-*-3819"
- "l-*-3817"))
+ ("l-*-5886"
+ "l-*-5884"
+ "l-*-5882"
+ "l-*-5880"))
#(ribcage
(lambda-var-list
gen-var
@@ -17959,154 +18096,154 @@
(top)
(top)
(top))
- ("l-*-476"
- "l-*-474"
- "l-*-472"
- "l-*-470"
- "l-*-468"
- "l-*-466"
- "l-*-464"
- "l-*-462"
- "l-*-460"
- "l-*-458"
- "l-*-456"
- "l-*-454"
- "l-*-452"
- "l-*-450"
- "l-*-448"
- "l-*-446"
- "l-*-444"
- "l-*-442"
- "l-*-440"
- "l-*-438"
- "l-*-436"
- "l-*-434"
- "l-*-432"
- "l-*-430"
- "l-*-428"
- "l-*-426"
- "l-*-424"
- "l-*-422"
- "l-*-420"
- "l-*-418"
- "l-*-416"
- "l-*-414"
- "l-*-412"
- "l-*-410"
- "l-*-408"
- "l-*-406"
- "l-*-404"
- "l-*-402"
- "l-*-400"
- "l-*-399"
- "l-*-397"
- "l-*-394"
- "l-*-393"
- "l-*-392"
- "l-*-390"
- "l-*-389"
- "l-*-387"
- "l-*-385"
- "l-*-383"
- "l-*-381"
- "l-*-379"
- "l-*-377"
- "l-*-375"
- "l-*-373"
- "l-*-370"
- "l-*-368"
- "l-*-367"
- "l-*-365"
- "l-*-363"
- "l-*-361"
- "l-*-359"
- "l-*-358"
- "l-*-357"
- "l-*-356"
- "l-*-354"
- "l-*-353"
- "l-*-350"
- "l-*-348"
- "l-*-346"
- "l-*-344"
- "l-*-342"
- "l-*-340"
- "l-*-338"
- "l-*-337"
- "l-*-336"
- "l-*-334"
- "l-*-332"
- "l-*-331"
- "l-*-328"
- "l-*-327"
- "l-*-325"
- "l-*-323"
- "l-*-321"
- "l-*-319"
- "l-*-317"
- "l-*-315"
- "l-*-313"
- "l-*-311"
- "l-*-309"
- "l-*-306"
- "l-*-304"
- "l-*-302"
- "l-*-300"
- "l-*-298"
- "l-*-296"
- "l-*-294"
- "l-*-292"
- "l-*-290"
- "l-*-288"
- "l-*-286"
- "l-*-284"
- "l-*-282"
- "l-*-280"
- "l-*-278"
- "l-*-276"
- "l-*-274"
- "l-*-272"
- "l-*-270"
- "l-*-268"
- "l-*-266"
- "l-*-264"
- "l-*-262"
- "l-*-260"
- "l-*-258"
- "l-*-256"
- "l-*-255"
- "l-*-254"
- "l-*-253"
- "l-*-252"
- "l-*-250"
- "l-*-248"
- "l-*-246"
- "l-*-243"
- "l-*-241"
- "l-*-239"
- "l-*-237"
- "l-*-235"
- "l-*-233"
- "l-*-231"
- "l-*-229"
- "l-*-227"
- "l-*-225"
- "l-*-223"
- "l-*-221"
- "l-*-219"
- "l-*-217"
- "l-*-215"
- "l-*-213"
- "l-*-211"
- "l-*-209"))
+ ("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-*-47"
- "l-*-46"
- "l-*-45")))
+ ("l-*-2098"
+ "l-*-2097"
+ "l-*-2096")))
(hygiene guile)))
(if (if (= (vector-length
'#(syntax-object
@@ -18115,8 +18252,8 @@
#(ribcage
#(pat exp)
#((top) (top))
- #("l-*-4024"
- "l-*-4025"))
+ #("l-*-6087"
+ "l-*-6088"))
#(ribcage () () ())
#(ribcage
#(x
@@ -18129,11 +18266,11 @@
(top)
(top)
(top))
- #("l-*-4013"
- "l-*-4014"
- "l-*-4015"
- "l-*-4016"
- "l-*-4017"))
+ #("l-*-6076"
+ "l-*-6077"
+ "l-*-6078"
+ "l-*-6079"
+ "l-*-6080"))
#(ribcage
(gen-syntax-case
gen-clause
@@ -18143,10 +18280,10 @@
(top)
(top)
(top))
- ("l-*-3823"
- "l-*-3821"
- "l-*-3819"
- "l-*-3817"))
+ ("l-*-5886"
+ "l-*-5884"
+ "l-*-5882"
+ "l-*-5880"))
#(ribcage
(lambda-var-list
gen-var
@@ -18428,146 +18565,146 @@
(top)
(top)
(top))
- ("l-*-476"
- "l-*-474"
- "l-*-472"
- "l-*-470"
- "l-*-468"
- "l-*-466"
- "l-*-464"
- "l-*-462"
- "l-*-460"
- "l-*-458"
- "l-*-456"
- "l-*-454"
- "l-*-452"
- "l-*-450"
- "l-*-448"
- "l-*-446"
- "l-*-444"
- "l-*-442"
- "l-*-440"
- "l-*-438"
- "l-*-436"
- "l-*-434"
- "l-*-432"
- "l-*-430"
- "l-*-428"
- "l-*-426"
- "l-*-424"
- "l-*-422"
- "l-*-420"
- "l-*-418"
- "l-*-416"
- "l-*-414"
- "l-*-412"
- "l-*-410"
- "l-*-408"
- "l-*-406"
- "l-*-404"
- "l-*-402"
- "l-*-400"
- "l-*-399"
- "l-*-397"
- "l-*-394"
- "l-*-393"
- "l-*-392"
- "l-*-390"
- "l-*-389"
- "l-*-387"
- "l-*-385"
- "l-*-383"
- "l-*-381"
- "l-*-379"
- "l-*-377"
- "l-*-375"
- "l-*-373"
- "l-*-370"
- "l-*-368"
- "l-*-367"
- "l-*-365"
- "l-*-363"
- "l-*-361"
- "l-*-359"
- "l-*-358"
- "l-*-357"
- "l-*-356"
- "l-*-354"
- "l-*-353"
- "l-*-350"
- "l-*-348"
- "l-*-346"
- "l-*-344"
- "l-*-342"
- "l-*-340"
- "l-*-338"
- "l-*-337"
- "l-*-336"
- "l-*-334"
- "l-*-332"
- "l-*-331"
- "l-*-328"
- "l-*-327"
- "l-*-325"
- "l-*-323"
- "l-*-321"
- "l-*-319"
- "l-*-317"
- "l-*-315"
- "l-*-313"
- "l-*-311"
- "l-*-309"
- "l-*-306"
- "l-*-304"
- "l-*-302"
- "l-*-300"
- "l-*-298"
- "l-*-296"
- "l-*-294"
- "l-*-292"
- "l-*-290"
- "l-*-288"
- "l-*-286"
- "l-*-284"
- "l-*-282"
- "l-*-280"
- "l-*-278"
- "l-*-276"
- "l-*-274"
- "l-*-272"
- "l-*-270"
- "l-*-268"
- "l-*-266"
- "l-*-264"
- "l-*-262"
- "l-*-260"
- "l-*-258"
- "l-*-256"
- "l-*-255"
- "l-*-254"
- "l-*-253"
- "l-*-252"
- "l-*-250"
- "l-*-248"
- "l-*-246"
- "l-*-243"
- "l-*-241"
- "l-*-239"
- "l-*-237"
- "l-*-235"
- "l-*-233"
- "l-*-231"
- "l-*-229"
- "l-*-227"
- "l-*-225"
- "l-*-223"
- "l-*-221"
- "l-*-219"
- "l-*-217"
- "l-*-215"
- "l-*-213"
- "l-*-211"
- "l-*-209"))
+ ("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
@@ -18575,9 +18712,9 @@
((top)
(top)
(top))
- ("l-*-47"
- "l-*-46"
- "l-*-45")))
+ ("l-*-2098"
+ "l-*-2097"
+ "l-*-2096")))
(hygiene guile)))
4)
#t
@@ -18589,7 +18726,7 @@
#(ribcage
#(pat exp)
#((top) (top))
- #("l-*-4024" "l-*-4025"))
+ #("l-*-6087" "l-*-6088"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
@@ -18598,21 +18735,21 @@
(top)
(top)
(top))
- #("l-*-4013"
- "l-*-4014"
- "l-*-4015"
- "l-*-4016"
- "l-*-4017"))
+ #("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-*-3823"
- "l-*-3821"
- "l-*-3819"
- "l-*-3817"))
+ ("l-*-5886"
+ "l-*-5884"
+ "l-*-5882"
+ "l-*-5880"))
#(ribcage
(lambda-var-list
gen-var
@@ -18894,163 +19031,163 @@
(top)
(top)
(top))
- ("l-*-476"
- "l-*-474"
- "l-*-472"
- "l-*-470"
- "l-*-468"
- "l-*-466"
- "l-*-464"
- "l-*-462"
- "l-*-460"
- "l-*-458"
- "l-*-456"
- "l-*-454"
- "l-*-452"
- "l-*-450"
- "l-*-448"
- "l-*-446"
- "l-*-444"
- "l-*-442"
- "l-*-440"
- "l-*-438"
- "l-*-436"
- "l-*-434"
- "l-*-432"
- "l-*-430"
- "l-*-428"
- "l-*-426"
- "l-*-424"
- "l-*-422"
- "l-*-420"
- "l-*-418"
- "l-*-416"
- "l-*-414"
- "l-*-412"
- "l-*-410"
- "l-*-408"
- "l-*-406"
- "l-*-404"
- "l-*-402"
- "l-*-400"
- "l-*-399"
- "l-*-397"
- "l-*-394"
- "l-*-393"
- "l-*-392"
- "l-*-390"
- "l-*-389"
- "l-*-387"
- "l-*-385"
- "l-*-383"
- "l-*-381"
- "l-*-379"
- "l-*-377"
- "l-*-375"
- "l-*-373"
- "l-*-370"
- "l-*-368"
- "l-*-367"
- "l-*-365"
- "l-*-363"
- "l-*-361"
- "l-*-359"
- "l-*-358"
- "l-*-357"
- "l-*-356"
- "l-*-354"
- "l-*-353"
- "l-*-350"
- "l-*-348"
- "l-*-346"
- "l-*-344"
- "l-*-342"
- "l-*-340"
- "l-*-338"
- "l-*-337"
- "l-*-336"
- "l-*-334"
- "l-*-332"
- "l-*-331"
- "l-*-328"
- "l-*-327"
- "l-*-325"
- "l-*-323"
- "l-*-321"
- "l-*-319"
- "l-*-317"
- "l-*-315"
- "l-*-313"
- "l-*-311"
- "l-*-309"
- "l-*-306"
- "l-*-304"
- "l-*-302"
- "l-*-300"
- "l-*-298"
- "l-*-296"
- "l-*-294"
- "l-*-292"
- "l-*-290"
- "l-*-288"
- "l-*-286"
- "l-*-284"
- "l-*-282"
- "l-*-280"
- "l-*-278"
- "l-*-276"
- "l-*-274"
- "l-*-272"
- "l-*-270"
- "l-*-268"
- "l-*-266"
- "l-*-264"
- "l-*-262"
- "l-*-260"
- "l-*-258"
- "l-*-256"
- "l-*-255"
- "l-*-254"
- "l-*-253"
- "l-*-252"
- "l-*-250"
- "l-*-248"
- "l-*-246"
- "l-*-243"
- "l-*-241"
- "l-*-239"
- "l-*-237"
- "l-*-235"
- "l-*-233"
- "l-*-231"
- "l-*-229"
- "l-*-227"
- "l-*-225"
- "l-*-223"
- "l-*-221"
- "l-*-219"
- "l-*-217"
- "l-*-215"
- "l-*-213"
- "l-*-211"
- "l-*-209"))
+ ("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-*-47"
- "l-*-46"
- "l-*-45")))
+ ("l-*-2098"
+ "l-*-2097"
+ "l-*-2096")))
(hygiene guile))))
- (eq? (id-var-name-4505
+ (eq? (id-var-name-6568
'#(syntax-object
pad
((top)
#(ribcage
#(pat exp)
#((top) (top))
- #("l-*-4024" "l-*-4025"))
+ #("l-*-6087" "l-*-6088"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
@@ -19059,21 +19196,21 @@
(top)
(top)
(top))
- #("l-*-4013"
- "l-*-4014"
- "l-*-4015"
- "l-*-4016"
- "l-*-4017"))
+ #("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-*-3823"
- "l-*-3821"
- "l-*-3819"
- "l-*-3817"))
+ ("l-*-5886"
+ "l-*-5884"
+ "l-*-5882"
+ "l-*-5880"))
#(ribcage
(lambda-var-list
gen-var
@@ -19355,162 +19492,164 @@
(top)
(top)
(top))
- ("l-*-476"
- "l-*-474"
- "l-*-472"
- "l-*-470"
- "l-*-468"
- "l-*-466"
- "l-*-464"
- "l-*-462"
- "l-*-460"
- "l-*-458"
- "l-*-456"
- "l-*-454"
- "l-*-452"
- "l-*-450"
- "l-*-448"
- "l-*-446"
- "l-*-444"
- "l-*-442"
- "l-*-440"
- "l-*-438"
- "l-*-436"
- "l-*-434"
- "l-*-432"
- "l-*-430"
- "l-*-428"
- "l-*-426"
- "l-*-424"
- "l-*-422"
- "l-*-420"
- "l-*-418"
- "l-*-416"
- "l-*-414"
- "l-*-412"
- "l-*-410"
- "l-*-408"
- "l-*-406"
- "l-*-404"
- "l-*-402"
- "l-*-400"
- "l-*-399"
- "l-*-397"
- "l-*-394"
- "l-*-393"
- "l-*-392"
- "l-*-390"
- "l-*-389"
- "l-*-387"
- "l-*-385"
- "l-*-383"
- "l-*-381"
- "l-*-379"
- "l-*-377"
- "l-*-375"
- "l-*-373"
- "l-*-370"
- "l-*-368"
- "l-*-367"
- "l-*-365"
- "l-*-363"
- "l-*-361"
- "l-*-359"
- "l-*-358"
- "l-*-357"
- "l-*-356"
- "l-*-354"
- "l-*-353"
- "l-*-350"
- "l-*-348"
- "l-*-346"
- "l-*-344"
- "l-*-342"
- "l-*-340"
- "l-*-338"
- "l-*-337"
- "l-*-336"
- "l-*-334"
- "l-*-332"
- "l-*-331"
- "l-*-328"
- "l-*-327"
- "l-*-325"
- "l-*-323"
- "l-*-321"
- "l-*-319"
- "l-*-317"
- "l-*-315"
- "l-*-313"
- "l-*-311"
- "l-*-309"
- "l-*-306"
- "l-*-304"
- "l-*-302"
- "l-*-300"
- "l-*-298"
- "l-*-296"
- "l-*-294"
- "l-*-292"
- "l-*-290"
- "l-*-288"
- "l-*-286"
- "l-*-284"
- "l-*-282"
- "l-*-280"
- "l-*-278"
- "l-*-276"
- "l-*-274"
- "l-*-272"
- "l-*-270"
- "l-*-268"
- "l-*-266"
- "l-*-264"
- "l-*-262"
- "l-*-260"
- "l-*-258"
- "l-*-256"
- "l-*-255"
- "l-*-254"
- "l-*-253"
- "l-*-252"
- "l-*-250"
- "l-*-248"
- "l-*-246"
- "l-*-243"
- "l-*-241"
- "l-*-239"
- "l-*-237"
- "l-*-235"
- "l-*-233"
- "l-*-231"
- "l-*-229"
- "l-*-227"
- "l-*-225"
- "l-*-223"
- "l-*-221"
- "l-*-219"
- "l-*-217"
- "l-*-215"
- "l-*-213"
- "l-*-211"
- "l-*-209"))
+ ("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-*-47" "l-*-46" "l-*-45")))
+ ("l-*-2098"
+ "l-*-2097"
+ "l-*-2096")))
(hygiene guile))
'(()))
- (id-var-name-4505
+ (id-var-name-6568
'#(syntax-object
_
((top)
#(ribcage
#(pat exp)
#((top) (top))
- #("l-*-4024" "l-*-4025"))
+ #("l-*-6087" "l-*-6088"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
@@ -19519,21 +19658,21 @@
(top)
(top)
(top))
- #("l-*-4013"
- "l-*-4014"
- "l-*-4015"
- "l-*-4016"
- "l-*-4017"))
+ #("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-*-3823"
- "l-*-3821"
- "l-*-3819"
- "l-*-3817"))
+ ("l-*-5886"
+ "l-*-5884"
+ "l-*-5882"
+ "l-*-5880"))
#(ribcage
(lambda-var-list
gen-var
@@ -19815,278 +19954,280 @@
(top)
(top)
(top))
- ("l-*-476"
- "l-*-474"
- "l-*-472"
- "l-*-470"
- "l-*-468"
- "l-*-466"
- "l-*-464"
- "l-*-462"
- "l-*-460"
- "l-*-458"
- "l-*-456"
- "l-*-454"
- "l-*-452"
- "l-*-450"
- "l-*-448"
- "l-*-446"
- "l-*-444"
- "l-*-442"
- "l-*-440"
- "l-*-438"
- "l-*-436"
- "l-*-434"
- "l-*-432"
- "l-*-430"
- "l-*-428"
- "l-*-426"
- "l-*-424"
- "l-*-422"
- "l-*-420"
- "l-*-418"
- "l-*-416"
- "l-*-414"
- "l-*-412"
- "l-*-410"
- "l-*-408"
- "l-*-406"
- "l-*-404"
- "l-*-402"
- "l-*-400"
- "l-*-399"
- "l-*-397"
- "l-*-394"
- "l-*-393"
- "l-*-392"
- "l-*-390"
- "l-*-389"
- "l-*-387"
- "l-*-385"
- "l-*-383"
- "l-*-381"
- "l-*-379"
- "l-*-377"
- "l-*-375"
- "l-*-373"
- "l-*-370"
- "l-*-368"
- "l-*-367"
- "l-*-365"
- "l-*-363"
- "l-*-361"
- "l-*-359"
- "l-*-358"
- "l-*-357"
- "l-*-356"
- "l-*-354"
- "l-*-353"
- "l-*-350"
- "l-*-348"
- "l-*-346"
- "l-*-344"
- "l-*-342"
- "l-*-340"
- "l-*-338"
- "l-*-337"
- "l-*-336"
- "l-*-334"
- "l-*-332"
- "l-*-331"
- "l-*-328"
- "l-*-327"
- "l-*-325"
- "l-*-323"
- "l-*-321"
- "l-*-319"
- "l-*-317"
- "l-*-315"
- "l-*-313"
- "l-*-311"
- "l-*-309"
- "l-*-306"
- "l-*-304"
- "l-*-302"
- "l-*-300"
- "l-*-298"
- "l-*-296"
- "l-*-294"
- "l-*-292"
- "l-*-290"
- "l-*-288"
- "l-*-286"
- "l-*-284"
- "l-*-282"
- "l-*-280"
- "l-*-278"
- "l-*-276"
- "l-*-274"
- "l-*-272"
- "l-*-270"
- "l-*-268"
- "l-*-266"
- "l-*-264"
- "l-*-262"
- "l-*-260"
- "l-*-258"
- "l-*-256"
- "l-*-255"
- "l-*-254"
- "l-*-253"
- "l-*-252"
- "l-*-250"
- "l-*-248"
- "l-*-246"
- "l-*-243"
- "l-*-241"
- "l-*-239"
- "l-*-237"
- "l-*-235"
- "l-*-233"
- "l-*-231"
- "l-*-229"
- "l-*-227"
- "l-*-225"
- "l-*-223"
- "l-*-221"
- "l-*-219"
- "l-*-217"
- "l-*-215"
- "l-*-213"
- "l-*-211"
- "l-*-209"))
+ ("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-*-47" "l-*-46" "l-*-45")))
+ ("l-*-2098"
+ "l-*-2097"
+ "l-*-2096")))
(hygiene guile))
'(())))
#f)
- (expand-4522 exp-11609 r-11565 '(()) mod-11566)
- (let ((labels-11812
+ (expand-6585 exp-13675 r-13631 '(()) mod-13632)
+ (let ((labels-13878
(list (string-append
"l-"
- (session-id-4447)
+ (session-id-6510)
(symbol->string (gensym "-")))))
- (var-11813
- (let ((id-11851
- (if (if (vector? pat-11608)
+ (var-13879
+ (let ((id-13917
+ (if (if (vector? pat-13674)
(if (= (vector-length
- pat-11608)
+ pat-13674)
4)
(eq? (vector-ref
- pat-11608
+ pat-13674
0)
'syntax-object)
#f)
#f)
- (vector-ref pat-11608 1)
- pat-11608)))
+ (vector-ref pat-13674 1)
+ pat-13674)))
(gensym
(string-append
- (symbol->string id-11851)
+ (symbol->string id-13917)
"-")))))
- (build-application-4453
+ (build-application-6516
#f
- (build-simple-lambda-4462
+ (build-simple-lambda-6525
#f
- (list (syntax->datum pat-11608))
+ (list (syntax->datum pat-13674))
#f
- (list var-11813)
+ (list var-13879)
'()
- (expand-4522
- exp-11609
- (extend-env-4480
- labels-11812
+ (expand-6585
+ exp-13675
+ (extend-env-6543
+ labels-13878
(list (cons 'syntax
- (cons var-11813 0)))
- r-11565)
- (make-binding-wrap-4500
- (list pat-11608)
- labels-11812
+ (cons var-13879 0)))
+ r-13631)
+ (make-binding-wrap-6563
+ (list pat-13674)
+ labels-13878
'(()))
- mod-11566))
- (list x-11562))))
- (gen-clause-11162
- x-11562
- keys-11563
- (cdr clauses-11564)
- r-11565
- pat-11608
+ mod-13632))
+ (list x-13628))))
+ (gen-clause-13228
+ x-13628
+ keys-13629
+ (cdr clauses-13630)
+ r-13631
+ pat-13674
#t
- exp-11609
- mod-11566)))
- tmp-11606)
- (let ((tmp-12121
- ($sc-dispatch tmp-11605 '(any any any))))
- (if tmp-12121
+ exp-13675
+ mod-13632)))
+ tmp-13672)
+ (let ((tmp-14187
+ ($sc-dispatch tmp-13671 '(any any any))))
+ (if tmp-14187
(@apply
- (lambda (pat-12123 fender-12124 exp-12125)
- (gen-clause-11162
- x-11562
- keys-11563
- (cdr clauses-11564)
- r-11565
- pat-12123
- fender-12124
- exp-12125
- mod-11566))
- tmp-12121)
+ (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-11564)))))))))))
- (lambda (e-11164 r-11165 w-11166 s-11167 mod-11168)
- (let ((e-11169
- (wrap-4515
+ (car clauses-13630)))))))))))
+ (lambda (e-13230 r-13231 w-13232 s-13233 mod-13234)
+ (let ((e-13235
+ (wrap-6578
(begin
- (if (if (pair? e-11164) s-11167 #f)
- (set-source-properties! e-11164 s-11167))
- e-11164)
- w-11166
- mod-11168)))
- (let ((tmp-11171
+ (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-11169
+ e-13235
'(_ any each-any . each-any))))
- (if tmp-11171
+ (if tmp-13237
(@apply
- (lambda (val-11196 key-11197 m-11198)
+ (lambda (val-13262 key-13263 m-13264)
(if (and-map
- (lambda (x-11199)
- (if (if (symbol? x-11199)
+ (lambda (x-13265)
+ (if (if (symbol? x-13265)
#t
- (if (if (vector? x-11199)
- (if (= (vector-length x-11199) 4)
- (eq? (vector-ref x-11199 0)
+ (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-11199 1))
+ (symbol? (vector-ref x-13265 1))
#f))
- (not (if (if (if (vector? x-11199)
- (if (= (vector-length x-11199)
+ (not (if (if (if (vector? x-13265)
+ (if (= (vector-length x-13265)
4)
- (eq? (vector-ref x-11199 0)
+ (eq? (vector-ref x-13265 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref x-11199 1))
+ (symbol? (vector-ref x-13265 1))
#f)
- (if (eq? (if (if (vector? x-11199)
+ (if (eq? (if (if (vector? x-13265)
(if (= (vector-length
- x-11199)
+ x-13265)
4)
(eq? (vector-ref
- x-11199
+ x-13265
0)
'syntax-object)
#f)
#f)
- (vector-ref x-11199 1)
- x-11199)
+ (vector-ref x-13265 1)
+ x-13265)
(if (if (= (vector-length
'#(syntax-object
...
@@ -20102,7 +20243,7 @@
#(ribcage
#(x)
#((top))
- #("l-*-2343"))
+ #("l-*-4404"))
#(ribcage
(lambda-var-list
gen-var
@@ -20384,146 +20525,146 @@
(top)
(top)
(top))
- ("l-*-476"
- "l-*-474"
- "l-*-472"
- "l-*-470"
- "l-*-468"
- "l-*-466"
- "l-*-464"
- "l-*-462"
- "l-*-460"
- "l-*-458"
- "l-*-456"
- "l-*-454"
- "l-*-452"
- "l-*-450"
- "l-*-448"
- "l-*-446"
- "l-*-444"
- "l-*-442"
- "l-*-440"
- "l-*-438"
- "l-*-436"
- "l-*-434"
- "l-*-432"
- "l-*-430"
- "l-*-428"
- "l-*-426"
- "l-*-424"
- "l-*-422"
- "l-*-420"
- "l-*-418"
- "l-*-416"
- "l-*-414"
- "l-*-412"
- "l-*-410"
- "l-*-408"
- "l-*-406"
- "l-*-404"
- "l-*-402"
- "l-*-400"
- "l-*-399"
- "l-*-397"
- "l-*-394"
- "l-*-393"
- "l-*-392"
- "l-*-390"
- "l-*-389"
- "l-*-387"
- "l-*-385"
- "l-*-383"
- "l-*-381"
- "l-*-379"
- "l-*-377"
- "l-*-375"
- "l-*-373"
- "l-*-370"
- "l-*-368"
- "l-*-367"
- "l-*-365"
- "l-*-363"
- "l-*-361"
- "l-*-359"
- "l-*-358"
- "l-*-357"
- "l-*-356"
- "l-*-354"
- "l-*-353"
- "l-*-350"
- "l-*-348"
- "l-*-346"
- "l-*-344"
- "l-*-342"
- "l-*-340"
- "l-*-338"
- "l-*-337"
- "l-*-336"
- "l-*-334"
- "l-*-332"
- "l-*-331"
- "l-*-328"
- "l-*-327"
- "l-*-325"
- "l-*-323"
- "l-*-321"
- "l-*-319"
- "l-*-317"
- "l-*-315"
- "l-*-313"
- "l-*-311"
- "l-*-309"
- "l-*-306"
- "l-*-304"
- "l-*-302"
- "l-*-300"
- "l-*-298"
- "l-*-296"
- "l-*-294"
- "l-*-292"
- "l-*-290"
- "l-*-288"
- "l-*-286"
- "l-*-284"
- "l-*-282"
- "l-*-280"
- "l-*-278"
- "l-*-276"
- "l-*-274"
- "l-*-272"
- "l-*-270"
- "l-*-268"
- "l-*-266"
- "l-*-264"
- "l-*-262"
- "l-*-260"
- "l-*-258"
- "l-*-256"
- "l-*-255"
- "l-*-254"
- "l-*-253"
- "l-*-252"
- "l-*-250"
- "l-*-248"
- "l-*-246"
- "l-*-243"
- "l-*-241"
- "l-*-239"
- "l-*-237"
- "l-*-235"
- "l-*-233"
- "l-*-231"
- "l-*-229"
- "l-*-227"
- "l-*-225"
- "l-*-223"
- "l-*-221"
- "l-*-219"
- "l-*-217"
- "l-*-215"
- "l-*-213"
- "l-*-211"
- "l-*-209"))
+ ("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
@@ -20531,9 +20672,9 @@
((top)
(top)
(top))
- ("l-*-47"
- "l-*-46"
- "l-*-45")))
+ ("l-*-2098"
+ "l-*-2097"
+ "l-*-2096")))
(hygiene
guile)))
4)
@@ -20548,7 +20689,7 @@
#(ribcage
#(x)
#((top))
- #("l-*-2343"))
+ #("l-*-4404"))
#(ribcage
(lambda-var-list
gen-var
@@ -20830,157 +20971,157 @@
(top)
(top)
(top))
- ("l-*-476"
- "l-*-474"
- "l-*-472"
- "l-*-470"
- "l-*-468"
- "l-*-466"
- "l-*-464"
- "l-*-462"
- "l-*-460"
- "l-*-458"
- "l-*-456"
- "l-*-454"
- "l-*-452"
- "l-*-450"
- "l-*-448"
- "l-*-446"
- "l-*-444"
- "l-*-442"
- "l-*-440"
- "l-*-438"
- "l-*-436"
- "l-*-434"
- "l-*-432"
- "l-*-430"
- "l-*-428"
- "l-*-426"
- "l-*-424"
- "l-*-422"
- "l-*-420"
- "l-*-418"
- "l-*-416"
- "l-*-414"
- "l-*-412"
- "l-*-410"
- "l-*-408"
- "l-*-406"
- "l-*-404"
- "l-*-402"
- "l-*-400"
- "l-*-399"
- "l-*-397"
- "l-*-394"
- "l-*-393"
- "l-*-392"
- "l-*-390"
- "l-*-389"
- "l-*-387"
- "l-*-385"
- "l-*-383"
- "l-*-381"
- "l-*-379"
- "l-*-377"
- "l-*-375"
- "l-*-373"
- "l-*-370"
- "l-*-368"
- "l-*-367"
- "l-*-365"
- "l-*-363"
- "l-*-361"
- "l-*-359"
- "l-*-358"
- "l-*-357"
- "l-*-356"
- "l-*-354"
- "l-*-353"
- "l-*-350"
- "l-*-348"
- "l-*-346"
- "l-*-344"
- "l-*-342"
- "l-*-340"
- "l-*-338"
- "l-*-337"
- "l-*-336"
- "l-*-334"
- "l-*-332"
- "l-*-331"
- "l-*-328"
- "l-*-327"
- "l-*-325"
- "l-*-323"
- "l-*-321"
- "l-*-319"
- "l-*-317"
- "l-*-315"
- "l-*-313"
- "l-*-311"
- "l-*-309"
- "l-*-306"
- "l-*-304"
- "l-*-302"
- "l-*-300"
- "l-*-298"
- "l-*-296"
- "l-*-294"
- "l-*-292"
- "l-*-290"
- "l-*-288"
- "l-*-286"
- "l-*-284"
- "l-*-282"
- "l-*-280"
- "l-*-278"
- "l-*-276"
- "l-*-274"
- "l-*-272"
- "l-*-270"
- "l-*-268"
- "l-*-266"
- "l-*-264"
- "l-*-262"
- "l-*-260"
- "l-*-258"
- "l-*-256"
- "l-*-255"
- "l-*-254"
- "l-*-253"
- "l-*-252"
- "l-*-250"
- "l-*-248"
- "l-*-246"
- "l-*-243"
- "l-*-241"
- "l-*-239"
- "l-*-237"
- "l-*-235"
- "l-*-233"
- "l-*-231"
- "l-*-229"
- "l-*-227"
- "l-*-225"
- "l-*-223"
- "l-*-221"
- "l-*-219"
- "l-*-217"
- "l-*-215"
- "l-*-213"
- "l-*-211"
- "l-*-209"))
+ ("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-*-47"
- "l-*-46"
- "l-*-45")))
+ ("l-*-2098"
+ "l-*-2097"
+ "l-*-2096")))
(hygiene guile))))
- (eq? (id-var-name-4505 x-11199 '(()))
- (id-var-name-4505
+ (eq? (id-var-name-6568 x-13265 '(()))
+ (id-var-name-6568
'#(syntax-object
...
((top)
@@ -20989,7 +21130,7 @@
#(ribcage
#(x)
#((top))
- #("l-*-2343"))
+ #("l-*-4404"))
#(ribcage
(lambda-var-list
gen-var
@@ -21271,911 +21412,911 @@
(top)
(top)
(top))
- ("l-*-476"
- "l-*-474"
- "l-*-472"
- "l-*-470"
- "l-*-468"
- "l-*-466"
- "l-*-464"
- "l-*-462"
- "l-*-460"
- "l-*-458"
- "l-*-456"
- "l-*-454"
- "l-*-452"
- "l-*-450"
- "l-*-448"
- "l-*-446"
- "l-*-444"
- "l-*-442"
- "l-*-440"
- "l-*-438"
- "l-*-436"
- "l-*-434"
- "l-*-432"
- "l-*-430"
- "l-*-428"
- "l-*-426"
- "l-*-424"
- "l-*-422"
- "l-*-420"
- "l-*-418"
- "l-*-416"
- "l-*-414"
- "l-*-412"
- "l-*-410"
- "l-*-408"
- "l-*-406"
- "l-*-404"
- "l-*-402"
- "l-*-400"
- "l-*-399"
- "l-*-397"
- "l-*-394"
- "l-*-393"
- "l-*-392"
- "l-*-390"
- "l-*-389"
- "l-*-387"
- "l-*-385"
- "l-*-383"
- "l-*-381"
- "l-*-379"
- "l-*-377"
- "l-*-375"
- "l-*-373"
- "l-*-370"
- "l-*-368"
- "l-*-367"
- "l-*-365"
- "l-*-363"
- "l-*-361"
- "l-*-359"
- "l-*-358"
- "l-*-357"
- "l-*-356"
- "l-*-354"
- "l-*-353"
- "l-*-350"
- "l-*-348"
- "l-*-346"
- "l-*-344"
- "l-*-342"
- "l-*-340"
- "l-*-338"
- "l-*-337"
- "l-*-336"
- "l-*-334"
- "l-*-332"
- "l-*-331"
- "l-*-328"
- "l-*-327"
- "l-*-325"
- "l-*-323"
- "l-*-321"
- "l-*-319"
- "l-*-317"
- "l-*-315"
- "l-*-313"
- "l-*-311"
- "l-*-309"
- "l-*-306"
- "l-*-304"
- "l-*-302"
- "l-*-300"
- "l-*-298"
- "l-*-296"
- "l-*-294"
- "l-*-292"
- "l-*-290"
- "l-*-288"
- "l-*-286"
- "l-*-284"
- "l-*-282"
- "l-*-280"
- "l-*-278"
- "l-*-276"
- "l-*-274"
- "l-*-272"
- "l-*-270"
- "l-*-268"
- "l-*-266"
- "l-*-264"
- "l-*-262"
- "l-*-260"
- "l-*-258"
- "l-*-256"
- "l-*-255"
- "l-*-254"
- "l-*-253"
- "l-*-252"
- "l-*-250"
- "l-*-248"
- "l-*-246"
- "l-*-243"
- "l-*-241"
- "l-*-239"
- "l-*-237"
- "l-*-235"
- "l-*-233"
- "l-*-231"
- "l-*-229"
- "l-*-227"
- "l-*-225"
- "l-*-223"
- "l-*-221"
- "l-*-219"
- "l-*-217"
- "l-*-215"
- "l-*-213"
- "l-*-211"
- "l-*-209"))
+ ("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-*-47"
- "l-*-46"
- "l-*-45")))
+ ("l-*-2098"
+ "l-*-2097"
+ "l-*-2096")))
(hygiene guile))
'(())))
#f)
#f))
#f))
- key-11197)
- (let ((x-11325
+ key-13263)
+ (let ((x-13391
(gensym
(string-append (symbol->string 'tmp) "-"))))
- (build-application-4453
- s-11167
- (let ((req-11455 (list 'tmp))
- (vars-11457 (list x-11325))
- (exp-11459
- (gen-syntax-case-11163
+ (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-11325)
- key-11197
- m-11198
- r-11165
- mod-11168)))
- (let ((body-11464
+ x-13391)
+ key-13263
+ m-13264
+ r-13231
+ mod-13234)))
+ (let ((body-13530
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
#f
- req-11455
+ req-13521
#f
#f
#f
'()
- vars-11457
- exp-11459
+ vars-13523
+ exp-13525
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
#f
'()
- body-11464)))
- (list (expand-4522
- val-11196
- r-11165
+ body-13530)))
+ (list (expand-6585
+ val-13262
+ r-13231
'(())
- mod-11168))))
+ mod-13234))))
(syntax-violation
'syntax-case
"invalid literals list"
- e-11169)))
- tmp-11171)
+ e-13235)))
+ tmp-13237)
(syntax-violation
#f
"source expression failed to match any pattern"
- e-11169)))))))
+ e-13235)))))))
(set! macroexpand
(lambda*
- (x-13882
+ (x-15948
#:optional
- (m-13883 'e)
- (esew-13884 '(eval)))
- (expand-top-sequence-4518
- (list x-13882)
+ (m-15949 'e)
+ (esew-15950 '(eval)))
+ (expand-top-sequence-6581
+ (list x-15948)
'()
'((top))
#f
- m-13883
- esew-13884
+ m-15949
+ esew-15950
(cons 'hygiene (module-name (current-module))))))
(set! identifier?
- (lambda (x-13887)
- (if (if (vector? x-13887)
- (if (= (vector-length x-13887) 4)
- (eq? (vector-ref x-13887 0) 'syntax-object)
+ (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-13887 1))
+ (symbol? (vector-ref x-15953 1))
#f)))
(set! datum->syntax
- (lambda (id-13912 datum-13913)
- (let ((wrap-13918 (vector-ref id-13912 2))
- (module-13919 (vector-ref id-13912 3)))
+ (lambda (id-15978 datum-15979)
+ (let ((wrap-15984 (vector-ref id-15978 2))
+ (module-15985 (vector-ref id-15978 3)))
(vector
'syntax-object
- datum-13913
- wrap-13918
- module-13919))))
+ datum-15979
+ wrap-15984
+ module-15985))))
(set! syntax->datum
- (lambda (x-13926) (strip-4535 x-13926 '(()))))
+ (lambda (x-15992) (strip-6598 x-15992 '(()))))
(set! syntax-source
- (lambda (x-13929)
- (source-annotation-4479 x-13929)))
+ (lambda (x-15995)
+ (source-annotation-6542 x-15995)))
(set! generate-temporaries
- (lambda (ls-14082)
+ (lambda (ls-16148)
(begin
- (if (not (list? ls-14082))
+ (if (not (list? ls-16148))
(syntax-violation
'generate-temporaries
"invalid argument"
- ls-14082))
- (let ((mod-14090
+ ls-16148))
+ (let ((mod-16156
(cons 'hygiene (module-name (current-module)))))
- (map (lambda (x-14091)
- (wrap-4515 (gensym "t-") '((top)) mod-14090))
- ls-14082)))))
+ (map (lambda (x-16157)
+ (wrap-6578 (gensym "t-") '((top)) mod-16156))
+ ls-16148)))))
(set! free-identifier=?
- (lambda (x-14095 y-14096)
+ (lambda (x-16161 y-16162)
(begin
- (if (not (if (if (vector? x-14095)
- (if (= (vector-length x-14095) 4)
- (eq? (vector-ref x-14095 0) 'syntax-object)
+ (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-14095 1))
+ (symbol? (vector-ref x-16161 1))
#f))
(syntax-violation
'free-identifier=?
"invalid argument"
- x-14095))
- (if (not (if (if (vector? y-14096)
- (if (= (vector-length y-14096) 4)
- (eq? (vector-ref y-14096 0) 'syntax-object)
+ 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-14096 1))
+ (symbol? (vector-ref y-16162 1))
#f))
(syntax-violation
'free-identifier=?
"invalid argument"
- y-14096))
- (if (eq? (if (if (vector? x-14095)
- (if (= (vector-length x-14095) 4)
- (eq? (vector-ref x-14095 0) 'syntax-object)
+ 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-14095 1)
- x-14095)
- (if (if (vector? y-14096)
- (if (= (vector-length y-14096) 4)
- (eq? (vector-ref y-14096 0) 'syntax-object)
+ (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-14096 1)
- y-14096))
- (eq? (id-var-name-4505 x-14095 '(()))
- (id-var-name-4505 y-14096 '(())))
+ (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-14246 y-14247)
+ (lambda (x-16312 y-16313)
(begin
- (if (not (if (if (vector? x-14246)
- (if (= (vector-length x-14246) 4)
- (eq? (vector-ref x-14246 0) 'syntax-object)
+ (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-14246 1))
+ (symbol? (vector-ref x-16312 1))
#f))
(syntax-violation
'bound-identifier=?
"invalid argument"
- x-14246))
- (if (not (if (if (vector? y-14247)
- (if (= (vector-length y-14247) 4)
- (eq? (vector-ref y-14247 0) 'syntax-object)
+ 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-14247 1))
+ (symbol? (vector-ref y-16313 1))
#f))
(syntax-violation
'bound-identifier=?
"invalid argument"
- y-14247))
- (if (if (if (vector? x-14246)
- (if (= (vector-length x-14246) 4)
- (eq? (vector-ref x-14246 0) 'syntax-object)
+ 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-14247)
- (if (= (vector-length y-14247) 4)
- (eq? (vector-ref y-14247 0) 'syntax-object)
+ (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-14246 1)
- (vector-ref y-14247 1))
- (same-marks?-4504
- (car (vector-ref x-14246 2))
- (car (vector-ref y-14247 2)))
+ (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-14246 y-14247)))))
+ (eq? x-16312 y-16313)))))
(set! syntax-violation
(lambda*
- (who-14380
- message-14381
- form-14382
+ (who-16446
+ message-16447
+ form-16448
#:optional
- (subform-14383 #f))
+ (subform-16449 #f))
(begin
- (if (not (if (not who-14380)
- (not who-14380)
- (let ((t-14401 (string? who-14380)))
- (if t-14401 t-14401 (symbol? who-14380)))))
+ (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-14380))
- (if (not (string? message-14381))
+ who-16446))
+ (if (not (string? message-16447))
(syntax-violation
'syntax-violation
"invalid argument"
- message-14381))
+ message-16447))
(throw 'syntax-error
- who-14380
- message-14381
- (source-annotation-4479
- (if form-14382 form-14382 subform-14383))
- (strip-4535 form-14382 '(()))
- (if subform-14383
- (strip-4535 subform-14383 '(()))
+ 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-14605
- (lambda (id-14738)
+ ((syntax-local-binding-16671
+ (lambda (id-16804)
(begin
- (if (not (if (if (vector? id-14738)
- (if (= (vector-length id-14738) 4)
- (eq? (vector-ref id-14738 0) 'syntax-object)
+ (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-14738 1))
+ (symbol? (vector-ref id-16804 1))
#f))
(syntax-violation
'syntax-local-binding
"invalid argument"
- id-14738))
- ((fluid-ref transformer-environment-4508)
- (lambda (e-14778
- r-14779
- w-14780
- s-14781
- rib-14782
- mod-14783)
+ 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-14786 (vector-ref id-14738 1))
- (w-14787
- (let ((w-14798 (vector-ref id-14738 2)))
- (let ((ms-14799 (car w-14798))
- (s-14800 (cdr w-14798)))
- (if (if (pair? ms-14799)
- (eq? (car ms-14799) #f)
+ (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-14799)
- (if rib-14782
- (cons rib-14782 (cdr s-14800))
- (cdr s-14800)))
- (cons ms-14799
- (if rib-14782
- (cons rib-14782 s-14800)
- s-14800))))))
- (mod-14789 (vector-ref id-14738 3)))
- (let ((n-14792 (id-var-name-4505 id-14786 w-14787)))
- (if (symbol? n-14792)
- (let ((mod-14806
- (if (if (vector? id-14786)
- (if (= (vector-length id-14786) 4)
- (eq? (vector-ref id-14786 0)
+ (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-14786 3)
- mod-14789)))
- (let ((b-14807
- (let ((t-14808
- (get-global-definition-hook-4449
- n-14792
- mod-14806)))
- (if t-14808 t-14808 '(global)))))
- (if (eq? (car b-14807) 'global)
- (values 'global n-14792 mod-14806)
+ (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-14807)
- (cdr b-14807)
- mod-14806))))
- (if (string? n-14792)
- (let ((mod-14834
- (if (if (vector? id-14786)
- (if (= (vector-length id-14786) 4)
- (eq? (vector-ref id-14786 0)
+ (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-14786 3)
- mod-14789)))
- (let ((b-14835
- (let ((t-14836
- (assq-ref r-14779 n-14792)))
- (if t-14836
- t-14836
+ (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-14835)
- (cdr b-14835)
- mod-14834)))
+ (car b-16901)
+ (cdr b-16901)
+ mod-16900)))
(error "unexpected id-var-name"
- id-14786
- w-14787
- n-14792))))))
- (lambda (type-14849 value-14850 mod-14851)
- (if (eqv? type-14849 'lexical)
- (values 'lexical value-14850)
- (if (eqv? type-14849 'macro)
- (values 'macro value-14850)
- (if (eqv? type-14849 'syntax)
- (values 'pattern-variable value-14850)
- (if (eqv? type-14849 'displaced-lexical)
+ 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-14849 'global)
+ (if (eqv? type-16915 'global)
(values
'global
- (cons value-14850 (cdr mod-14851)))
+ (cons value-16916 (cdr mod-16917)))
(values 'other #f)))))))))))))
- (syntax-locally-bound-identifiers-14606
- (lambda (id-14862)
+ (syntax-locally-bound-identifiers-16672
+ (lambda (id-16928)
(begin
- (if (not (if (if (vector? id-14862)
- (if (= (vector-length id-14862) 4)
- (eq? (vector-ref id-14862 0) 'syntax-object)
+ (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-14862 1))
+ (symbol? (vector-ref id-16928 1))
#f))
(syntax-violation
'syntax-locally-bound-identifiers
"invalid argument"
- id-14862))
- (locally-bound-identifiers-4506
- (vector-ref id-14862 2)
- (vector-ref id-14862 3))))))
+ id-16928))
+ (locally-bound-identifiers-6569
+ (vector-ref id-16928 2)
+ (vector-ref id-16928 3))))))
(begin
(define!
'syntax-module
- (lambda (id-14608)
+ (lambda (id-16674)
(begin
- (if (not (if (if (vector? id-14608)
- (if (= (vector-length id-14608) 4)
- (eq? (vector-ref id-14608 0) 'syntax-object)
+ (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-14608 1))
+ (symbol? (vector-ref id-16674 1))
#f))
(syntax-violation
'syntax-module
"invalid argument"
- id-14608))
- (cdr (vector-ref id-14608 3)))))
+ id-16674))
+ (cdr (vector-ref id-16674 3)))))
(define!
'syntax-local-binding
- syntax-local-binding-14605)
+ syntax-local-binding-16671)
(define!
'syntax-locally-bound-identifiers
- syntax-locally-bound-identifiers-14606)))
+ syntax-locally-bound-identifiers-16672)))
(letrec*
- ((match-each-14969
- (lambda (e-15556 p-15557 w-15558 mod-15559)
- (if (pair? e-15556)
- (let ((first-15560
- (match-14975
- (car e-15556)
- p-15557
- w-15558
+ ((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-15559)))
- (if first-15560
- (let ((rest-15563
- (match-each-14969
- (cdr e-15556)
- p-15557
- w-15558
- mod-15559)))
- (if rest-15563 (cons first-15560 rest-15563) #f))
+ 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-15556)
+ (if (null? e-17622)
'()
- (if (if (vector? e-15556)
- (if (= (vector-length e-15556) 4)
- (eq? (vector-ref e-15556 0) 'syntax-object)
+ (if (if (vector? e-17622)
+ (if (= (vector-length e-17622) 4)
+ (eq? (vector-ref e-17622 0) 'syntax-object)
#f)
#f)
- (match-each-14969
- (vector-ref e-15556 1)
- p-15557
- (join-wraps-4502 w-15558 (vector-ref e-15556 2))
- (vector-ref e-15556 3))
+ (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-14971
- (lambda (e-15591 w-15592 mod-15593)
- (if (pair? e-15591)
- (let ((l-15594
- (match-each-any-14971
- (cdr e-15591)
- w-15592
- mod-15593)))
- (if l-15594
- (cons (wrap-4515 (car e-15591) w-15592 mod-15593)
- l-15594)
+ (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-15591)
+ (if (null? e-17657)
'()
- (if (if (vector? e-15591)
- (if (= (vector-length e-15591) 4)
- (eq? (vector-ref e-15591 0) 'syntax-object)
+ (if (if (vector? e-17657)
+ (if (= (vector-length e-17657) 4)
+ (eq? (vector-ref e-17657 0) 'syntax-object)
#f)
#f)
- (match-each-any-14971
- (vector-ref e-15591 1)
- (join-wraps-4502 w-15592 (vector-ref e-15591 2))
- mod-15593)
+ (match-each-any-17037
+ (vector-ref e-17657 1)
+ (join-wraps-6565 w-17658 (vector-ref e-17657 2))
+ mod-17659)
#f)))))
- (match-empty-14972
- (lambda (p-15618 r-15619)
- (if (null? p-15618)
- r-15619
- (if (eq? p-15618 '_)
- r-15619
- (if (eq? p-15618 'any)
- (cons '() r-15619)
- (if (pair? p-15618)
- (match-empty-14972
- (car p-15618)
- (match-empty-14972 (cdr p-15618) r-15619))
- (if (eq? p-15618 'each-any)
- (cons '() r-15619)
- (let ((atom-key-15620 (vector-ref p-15618 0)))
- (if (eqv? atom-key-15620 'each)
- (match-empty-14972
- (vector-ref p-15618 1)
- r-15619)
- (if (eqv? atom-key-15620 'each+)
- (match-empty-14972
- (vector-ref p-15618 1)
- (match-empty-14972
- (reverse (vector-ref p-15618 2))
- (match-empty-14972
- (vector-ref p-15618 3)
- r-15619)))
- (if (if (eqv? atom-key-15620 'free-id)
+ (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-15620 'atom))
- r-15619
- (if (eqv? atom-key-15620 'vector)
- (match-empty-14972
- (vector-ref p-15618 1)
- r-15619)))))))))))))
- (combine-14973
- (lambda (r*-15639 r-15640)
- (if (null? (car r*-15639))
- r-15640
- (cons (map car r*-15639)
- (combine-14973 (map cdr r*-15639) r-15640)))))
- (match*-14974
- (lambda (e-15004 p-15005 w-15006 r-15007 mod-15008)
- (if (null? p-15005)
- (if (null? e-15004) r-15007 #f)
- (if (pair? p-15005)
- (if (pair? e-15004)
- (match-14975
- (car e-15004)
- (car p-15005)
- w-15006
- (match-14975
- (cdr e-15004)
- (cdr p-15005)
- w-15006
- r-15007
- mod-15008)
- mod-15008)
+ (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-15005 'each-any)
- (let ((l-15013
- (match-each-any-14971 e-15004 w-15006 mod-15008)))
- (if l-15013 (cons l-15013 r-15007) #f))
- (let ((atom-key-15018 (vector-ref p-15005 0)))
- (if (eqv? atom-key-15018 'each)
- (if (null? e-15004)
- (match-empty-14972
- (vector-ref p-15005 1)
- r-15007)
- (let ((l-15025
- (match-each-14969
- e-15004
- (vector-ref p-15005 1)
- w-15006
- mod-15008)))
- (if l-15025
+ (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-15028
- (lambda (l-15079)
- (if (null? (car l-15079))
- r-15007
- (cons (map car l-15079)
- (collect-15028
- (map cdr l-15079)))))))
- (collect-15028 l-15025))
+ ((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-15018 'each+)
+ (if (eqv? atom-key-17084 'each+)
(call-with-values
(lambda ()
- (let ((x-pat-15088 (vector-ref p-15005 1))
- (y-pat-15089 (vector-ref p-15005 2))
- (z-pat-15090 (vector-ref p-15005 3)))
+ (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-15094
- (lambda (e-15096 w-15097)
- (if (pair? e-15096)
+ ((f-17160
+ (lambda (e-17162 w-17163)
+ (if (pair? e-17162)
(call-with-values
(lambda ()
- (f-15094 (cdr e-15096) w-15097))
- (lambda (xr*-15098
- y-pat-15099
- r-15100)
- (if r-15100
- (if (null? y-pat-15099)
- (let ((xr-15101
- (match-14975
- (car e-15096)
- x-pat-15088
- w-15097
+ (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-15008)))
- (if xr-15101
+ mod-17074)))
+ (if xr-17167
(values
- (cons xr-15101 xr*-15098)
- y-pat-15099
- r-15100)
+ (cons xr-17167 xr*-17164)
+ y-pat-17165
+ r-17166)
(values #f #f #f)))
(values
'()
- (cdr y-pat-15099)
- (match-14975
- (car e-15096)
- (car y-pat-15099)
- w-15097
- r-15100
- mod-15008)))
+ (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-15096)
- (if (= (vector-length e-15096) 4)
- (eq? (vector-ref e-15096 0)
+ (if (if (vector? e-17162)
+ (if (= (vector-length e-17162) 4)
+ (eq? (vector-ref e-17162 0)
'syntax-object)
#f)
#f)
- (f-15094
- (vector-ref e-15096 1)
- (join-wraps-4502 w-15097 e-15096))
+ (f-17160
+ (vector-ref e-17162 1)
+ (join-wraps-6565 w-17163 e-17162))
(values
'()
- y-pat-15089
- (match-14975
- e-15096
- z-pat-15090
- w-15097
- r-15007
- mod-15008)))))))
- (f-15094 e-15004 w-15006))))
- (lambda (xr*-15127 y-pat-15128 r-15129)
- (if r-15129
- (if (null? y-pat-15128)
- (if (null? xr*-15127)
- (match-empty-14972
- (vector-ref p-15005 1)
- r-15129)
- (combine-14973 xr*-15127 r-15129))
+ 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-15018 'free-id)
- (if (if (symbol? e-15004)
+ (if (eqv? atom-key-17084 'free-id)
+ (if (if (symbol? e-17070)
#t
- (if (if (vector? e-15004)
- (if (= (vector-length e-15004) 4)
- (eq? (vector-ref e-15004 0)
+ (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-15004 1))
+ (symbol? (vector-ref e-17070 1))
#f))
- (if (let ((i-15460
- (wrap-4515 e-15004 w-15006 mod-15008))
- (j-15461 (vector-ref p-15005 1)))
- (if (eq? (if (if (vector? i-15460)
+ (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-15460)
+ i-17526)
4)
- (eq? (vector-ref i-15460 0)
+ (eq? (vector-ref i-17526 0)
'syntax-object)
#f)
#f)
- (vector-ref i-15460 1)
- i-15460)
- (if (if (vector? j-15461)
+ (vector-ref i-17526 1)
+ i-17526)
+ (if (if (vector? j-17527)
(if (= (vector-length
- j-15461)
+ j-17527)
4)
- (eq? (vector-ref j-15461 0)
+ (eq? (vector-ref j-17527 0)
'syntax-object)
#f)
#f)
- (vector-ref j-15461 1)
- j-15461))
- (eq? (id-var-name-4505 i-15460 '(()))
- (id-var-name-4505 j-15461 '(())))
+ (vector-ref j-17527 1)
+ j-17527))
+ (eq? (id-var-name-6568 i-17526 '(()))
+ (id-var-name-6568 j-17527 '(())))
#f))
- r-15007
+ r-17073
#f)
#f)
- (if (eqv? atom-key-15018 'atom)
+ (if (eqv? atom-key-17084 'atom)
(if (equal?
- (vector-ref p-15005 1)
- (strip-4535 e-15004 w-15006))
- r-15007
+ (vector-ref p-17071 1)
+ (strip-6598 e-17070 w-17072))
+ r-17073
#f)
- (if (eqv? atom-key-15018 'vector)
- (if (vector? e-15004)
- (match-14975
- (vector->list e-15004)
- (vector-ref p-15005 1)
- w-15006
- r-15007
- mod-15008)
+ (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-14975
- (lambda (e-15521 p-15522 w-15523 r-15524 mod-15525)
- (if (not r-15524)
+ (match-17041
+ (lambda (e-17587 p-17588 w-17589 r-17590 mod-17591)
+ (if (not r-17590)
#f
- (if (eq? p-15522 '_)
- r-15524
- (if (eq? p-15522 'any)
- (cons (wrap-4515 e-15521 w-15523 mod-15525)
- r-15524)
- (if (if (vector? e-15521)
- (if (= (vector-length e-15521) 4)
- (eq? (vector-ref e-15521 0) 'syntax-object)
+ (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*-14974
- (vector-ref e-15521 1)
- p-15522
- (join-wraps-4502 w-15523 (vector-ref e-15521 2))
- r-15524
- (vector-ref e-15521 3))
- (match*-14974
- e-15521
- p-15522
- w-15523
- r-15524
- mod-15525))))))))
+ (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-14976 p-14977)
- (if (eq? p-14977 'any)
- (list e-14976)
- (if (eq? p-14977 '_)
+ (lambda (e-17042 p-17043)
+ (if (eq? p-17043 'any)
+ (list e-17042)
+ (if (eq? p-17043 '_)
'()
- (if (if (vector? e-14976)
- (if (= (vector-length e-14976) 4)
- (eq? (vector-ref e-14976 0) 'syntax-object)
+ (if (if (vector? e-17042)
+ (if (= (vector-length e-17042) 4)
+ (eq? (vector-ref e-17042 0) 'syntax-object)
#f)
#f)
- (match*-14974
- (vector-ref e-14976 1)
- p-14977
- (vector-ref e-14976 2)
+ (match*-17040
+ (vector-ref e-17042 1)
+ p-17043
+ (vector-ref e-17042 2)
'()
- (vector-ref e-14976 3))
- (match*-14974 e-14976 p-14977 '(()) '() #f))))))))))
+ (vector-ref e-17042 3))
+ (match*-17040 e-17042 p-17043 '(()) '() #f))))))))))
(define with-syntax
(make-syntax-transformer
'with-syntax
'macro
- (lambda (x-27756)
- (let ((tmp-27758
- ($sc-dispatch x-27756 '(_ () any . each-any))))
- (if tmp-27758
+ (lambda (x-29889)
+ (let ((tmp-29891
+ ($sc-dispatch x-29889 '(_ () any . each-any))))
+ (if tmp-29891
(@apply
- (lambda (e1-27762 e2-27763)
+ (lambda (e1-29895 e2-29896)
(cons '#(syntax-object
let
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("l-*-27729" "l-*-27730"))
+ #("l-*-29862" "l-*-29863"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-27726")))
+ #(ribcage #(x) #((top)) #("l-*-29859")))
(hygiene guile))
- (cons '() (cons e1-27762 e2-27763))))
- tmp-27758)
- (let ((tmp-27764
+ (cons '() (cons e1-29895 e2-29896))))
+ tmp-29891)
+ (let ((tmp-29897
($sc-dispatch
- x-27756
+ x-29889
'(_ ((any any)) any . each-any))))
- (if tmp-27764
+ (if tmp-29897
(@apply
- (lambda (out-27768 in-27769 e1-27770 e2-27771)
+ (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-*-27735"
- "l-*-27736"
- "l-*-27737"
- "l-*-27738"))
+ #("l-*-29868"
+ "l-*-29869"
+ "l-*-29870"
+ "l-*-29871"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-27726")))
+ #(ribcage #(x) #((top)) #("l-*-29859")))
(hygiene guile))
- in-27769
+ in-29902
'()
- (list out-27768
+ (list out-29901
(cons '#(syntax-object
let
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("l-*-27735"
- "l-*-27736"
- "l-*-27737"
- "l-*-27738"))
+ #("l-*-29868"
+ "l-*-29869"
+ "l-*-29870"
+ "l-*-29871"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-27726")))
+ #("l-*-29859")))
(hygiene guile))
- (cons '() (cons e1-27770 e2-27771))))))
- tmp-27764)
- (let ((tmp-27772
+ (cons '() (cons e1-29903 e2-29904))))))
+ tmp-29897)
+ (let ((tmp-29905
($sc-dispatch
- x-27756
+ x-29889
'(_ #(each (any any)) any . each-any))))
- (if tmp-27772
+ (if tmp-29905
(@apply
- (lambda (out-27776 in-27777 e1-27778 e2-27779)
+ (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-*-27745"
- "l-*-27746"
- "l-*-27747"
- "l-*-27748"))
+ #("l-*-29878"
+ "l-*-29879"
+ "l-*-29880"
+ "l-*-29881"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-27726")))
+ #(ribcage #(x) #((top)) #("l-*-29859")))
(hygiene guile))
(cons '#(syntax-object
list
@@ -22183,66 +22324,66 @@
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("l-*-27745"
- "l-*-27746"
- "l-*-27747"
- "l-*-27748"))
+ #("l-*-29878"
+ "l-*-29879"
+ "l-*-29880"
+ "l-*-29881"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-27726")))
+ #(ribcage #(x) #((top)) #("l-*-29859")))
(hygiene guile))
- in-27777)
+ in-29910)
'()
- (list out-27776
+ (list out-29909
(cons '#(syntax-object
let
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("l-*-27745"
- "l-*-27746"
- "l-*-27747"
- "l-*-27748"))
+ #("l-*-29878"
+ "l-*-29879"
+ "l-*-29880"
+ "l-*-29881"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-27726")))
+ #("l-*-29859")))
(hygiene guile))
- (cons '() (cons e1-27778 e2-27779))))))
- tmp-27772)
+ (cons '() (cons e1-29911 e2-29912))))))
+ tmp-29905)
(syntax-violation
#f
"source expression failed to match any pattern"
- x-27756))))))))))
+ x-29889))))))))))
(define syntax-rules
(make-syntax-transformer
'syntax-rules
'macro
- (lambda (x-27833)
- (let ((tmp-27835
+ (lambda (x-29966)
+ (let ((tmp-29968
($sc-dispatch
- x-27833
+ x-29966
'(_ each-any . #(each ((any . any) any))))))
- (if tmp-27835
+ (if tmp-29968
(@apply
- (lambda (k-27839
- keyword-27840
- pattern-27841
- template-27842)
+ (lambda (k-29972
+ keyword-29973
+ pattern-29974
+ template-29975)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("l-*-27796"
- "l-*-27797"
- "l-*-27798"
- "l-*-27799"))
+ #("l-*-29929"
+ "l-*-29930"
+ "l-*-29931"
+ "l-*-29932"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-27793")))
+ #(ribcage #(x) #((top)) #("l-*-29926")))
(hygiene guile))
'(#(syntax-object
x
@@ -22250,12 +22391,12 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("l-*-27796"
- "l-*-27797"
- "l-*-27798"
- "l-*-27799"))
+ #("l-*-29929"
+ "l-*-29930"
+ "l-*-29931"
+ "l-*-29932"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-27793")))
+ #(ribcage #(x) #((top)) #("l-*-29926")))
(hygiene guile)))
(vector
'(#(syntax-object
@@ -22264,12 +22405,12 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("l-*-27796"
- "l-*-27797"
- "l-*-27798"
- "l-*-27799"))
+ #("l-*-29929"
+ "l-*-29930"
+ "l-*-29931"
+ "l-*-29932"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-27793")))
+ #(ribcage #(x) #((top)) #("l-*-29926")))
(hygiene guile))
.
#(syntax-object
@@ -22278,12 +22419,12 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("l-*-27796"
- "l-*-27797"
- "l-*-27798"
- "l-*-27799"))
+ #("l-*-29929"
+ "l-*-29930"
+ "l-*-29931"
+ "l-*-29932"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-27793")))
+ #(ribcage #(x) #((top)) #("l-*-29926")))
(hygiene guile)))
(cons '#(syntax-object
patterns
@@ -22291,26 +22432,26 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("l-*-27796"
- "l-*-27797"
- "l-*-27798"
- "l-*-27799"))
+ #("l-*-29929"
+ "l-*-29930"
+ "l-*-29931"
+ "l-*-29932"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-27793")))
+ #(ribcage #(x) #((top)) #("l-*-29926")))
(hygiene guile))
- pattern-27841))
+ pattern-29974))
(cons '#(syntax-object
syntax-case
((top)
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("l-*-27796"
- "l-*-27797"
- "l-*-27798"
- "l-*-27799"))
+ #("l-*-29929"
+ "l-*-29930"
+ "l-*-29931"
+ "l-*-29932"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-27793")))
+ #(ribcage #(x) #((top)) #("l-*-29926")))
(hygiene guile))
(cons '#(syntax-object
x
@@ -22318,16 +22459,16 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("l-*-27796"
- "l-*-27797"
- "l-*-27798"
- "l-*-27799"))
+ #("l-*-29929"
+ "l-*-29930"
+ "l-*-29931"
+ "l-*-29932"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-27793")))
+ #(ribcage #(x) #((top)) #("l-*-29926")))
(hygiene guile))
- (cons k-27839
- (map (lambda (tmp-27807-27843
- tmp-27806-27844)
+ (cons k-29972
+ (map (lambda (tmp-29940-29976
+ tmp-29939-29977)
(list (cons '#(syntax-object
dummy
((top)
@@ -22340,10 +22481,10 @@
(top)
(top)
(top))
- #("l-*-27796"
- "l-*-27797"
- "l-*-27798"
- "l-*-27799"))
+ #("l-*-29929"
+ "l-*-29930"
+ "l-*-29931"
+ "l-*-29932"))
#(ribcage
()
()
@@ -22351,9 +22492,9 @@
#(ribcage
#(x)
#((top))
- #("l-*-27793")))
+ #("l-*-29926")))
(hygiene guile))
- tmp-27806-27844)
+ tmp-29939-29977)
(list '#(syntax-object
syntax
((top)
@@ -22366,10 +22507,10 @@
(top)
(top)
(top))
- #("l-*-27796"
- "l-*-27797"
- "l-*-27798"
- "l-*-27799"))
+ #("l-*-29929"
+ "l-*-29930"
+ "l-*-29931"
+ "l-*-29932"))
#(ribcage
()
()
@@ -22377,45 +22518,45 @@
#(ribcage
#(x)
#((top))
- #("l-*-27793")))
+ #("l-*-29926")))
(hygiene guile))
- tmp-27807-27843)))
- template-27842
- pattern-27841))))))
- tmp-27835)
- (let ((tmp-27845
+ tmp-29940-29976)))
+ template-29975
+ pattern-29974))))))
+ tmp-29968)
+ (let ((tmp-29978
($sc-dispatch
- x-27833
+ x-29966
'(_ each-any any . #(each ((any . any) any))))))
- (if (if tmp-27845
+ (if (if tmp-29978
(@apply
- (lambda (k-27849
- docstring-27850
- keyword-27851
- pattern-27852
- template-27853)
- (string? (syntax->datum docstring-27850)))
- tmp-27845)
+ (lambda (k-29982
+ docstring-29983
+ keyword-29984
+ pattern-29985
+ template-29986)
+ (string? (syntax->datum docstring-29983)))
+ tmp-29978)
#f)
(@apply
- (lambda (k-27854
- docstring-27855
- keyword-27856
- pattern-27857
- template-27858)
+ (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-*-27819"
- "l-*-27820"
- "l-*-27821"
- "l-*-27822"
- "l-*-27823"))
+ #("l-*-29952"
+ "l-*-29953"
+ "l-*-29954"
+ "l-*-29955"
+ "l-*-29956"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-27793")))
+ #(ribcage #(x) #((top)) #("l-*-29926")))
(hygiene guile))
'(#(syntax-object
x
@@ -22423,15 +22564,15 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("l-*-27819"
- "l-*-27820"
- "l-*-27821"
- "l-*-27822"
- "l-*-27823"))
+ #("l-*-29952"
+ "l-*-29953"
+ "l-*-29954"
+ "l-*-29955"
+ "l-*-29956"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-27793")))
+ #(ribcage #(x) #((top)) #("l-*-29926")))
(hygiene guile)))
- docstring-27855
+ docstring-29988
(vector
'(#(syntax-object
macro-type
@@ -22439,13 +22580,13 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("l-*-27819"
- "l-*-27820"
- "l-*-27821"
- "l-*-27822"
- "l-*-27823"))
+ #("l-*-29952"
+ "l-*-29953"
+ "l-*-29954"
+ "l-*-29955"
+ "l-*-29956"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-27793")))
+ #(ribcage #(x) #((top)) #("l-*-29926")))
(hygiene guile))
.
#(syntax-object
@@ -22454,13 +22595,13 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("l-*-27819"
- "l-*-27820"
- "l-*-27821"
- "l-*-27822"
- "l-*-27823"))
+ #("l-*-29952"
+ "l-*-29953"
+ "l-*-29954"
+ "l-*-29955"
+ "l-*-29956"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-27793")))
+ #(ribcage #(x) #((top)) #("l-*-29926")))
(hygiene guile)))
(cons '#(syntax-object
patterns
@@ -22468,28 +22609,28 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("l-*-27819"
- "l-*-27820"
- "l-*-27821"
- "l-*-27822"
- "l-*-27823"))
+ #("l-*-29952"
+ "l-*-29953"
+ "l-*-29954"
+ "l-*-29955"
+ "l-*-29956"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-27793")))
+ #(ribcage #(x) #((top)) #("l-*-29926")))
(hygiene guile))
- pattern-27857))
+ pattern-29990))
(cons '#(syntax-object
syntax-case
((top)
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("l-*-27819"
- "l-*-27820"
- "l-*-27821"
- "l-*-27822"
- "l-*-27823"))
+ #("l-*-29952"
+ "l-*-29953"
+ "l-*-29954"
+ "l-*-29955"
+ "l-*-29956"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-27793")))
+ #(ribcage #(x) #((top)) #("l-*-29926")))
(hygiene guile))
(cons '#(syntax-object
x
@@ -22501,20 +22642,20 @@
pattern
template)
#((top) (top) (top) (top) (top))
- #("l-*-27819"
- "l-*-27820"
- "l-*-27821"
- "l-*-27822"
- "l-*-27823"))
+ #("l-*-29952"
+ "l-*-29953"
+ "l-*-29954"
+ "l-*-29955"
+ "l-*-29956"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-27793")))
+ #("l-*-29926")))
(hygiene guile))
- (cons k-27854
- (map (lambda (tmp-27832-27859
- tmp-27831-27860)
+ (cons k-29987
+ (map (lambda (tmp-29965-29992
+ tmp-29964-29993)
(list (cons '#(syntax-object
dummy
((top)
@@ -22529,11 +22670,11 @@
(top)
(top)
(top))
- #("l-*-27819"
- "l-*-27820"
- "l-*-27821"
- "l-*-27822"
- "l-*-27823"))
+ #("l-*-29952"
+ "l-*-29953"
+ "l-*-29954"
+ "l-*-29955"
+ "l-*-29956"))
#(ribcage
()
()
@@ -22541,10 +22682,10 @@
#(ribcage
#(x)
#((top))
- #("l-*-27793")))
+ #("l-*-29926")))
(hygiene
guile))
- tmp-27831-27860)
+ tmp-29964-29993)
(list '#(syntax-object
syntax
((top)
@@ -22559,11 +22700,11 @@
(top)
(top)
(top))
- #("l-*-27819"
- "l-*-27820"
- "l-*-27821"
- "l-*-27822"
- "l-*-27823"))
+ #("l-*-29952"
+ "l-*-29953"
+ "l-*-29954"
+ "l-*-29955"
+ "l-*-29956"))
#(ribcage
()
()
@@ -22571,48 +22712,48 @@
#(ribcage
#(x)
#((top))
- #("l-*-27793")))
+ #("l-*-29926")))
(hygiene
guile))
- tmp-27832-27859)))
- template-27858
- pattern-27857))))))
- tmp-27845)
+ tmp-29965-29992)))
+ template-29991
+ pattern-29990))))))
+ tmp-29978)
(syntax-violation
#f
"source expression failed to match any pattern"
- x-27833))))))))
+ x-29966))))))))
(define define-syntax-rule
(make-syntax-transformer
'define-syntax-rule
'macro
- (lambda (x-27897)
- (let ((tmp-27899
- ($sc-dispatch x-27897 '(_ (any . any) any))))
- (if tmp-27899
+ (lambda (x-30030)
+ (let ((tmp-30032
+ ($sc-dispatch x-30030 '(_ (any . any) any))))
+ (if tmp-30032
(@apply
- (lambda (name-27903 pattern-27904 template-27905)
+ (lambda (name-30036 pattern-30037 template-30038)
(list '#(syntax-object
define-syntax
((top)
#(ribcage
#(name pattern template)
#((top) (top) (top))
- #("l-*-27874" "l-*-27875" "l-*-27876"))
+ #("l-*-30007" "l-*-30008" "l-*-30009"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-27871")))
+ #(ribcage #(x) #((top)) #("l-*-30004")))
(hygiene guile))
- name-27903
+ name-30036
(list '#(syntax-object
syntax-rules
((top)
#(ribcage
#(name pattern template)
#((top) (top) (top))
- #("l-*-27874" "l-*-27875" "l-*-27876"))
+ #("l-*-30007" "l-*-30008" "l-*-30009"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-27871")))
+ #(ribcage #(x) #((top)) #("l-*-30004")))
(hygiene guile))
'()
(list (cons '#(syntax-object
@@ -22621,63 +22762,63 @@
#(ribcage
#(name pattern template)
#((top) (top) (top))
- #("l-*-27874"
- "l-*-27875"
- "l-*-27876"))
+ #("l-*-30007"
+ "l-*-30008"
+ "l-*-30009"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-27871")))
+ #("l-*-30004")))
(hygiene guile))
- pattern-27904)
- template-27905))))
- tmp-27899)
- (let ((tmp-27906
- ($sc-dispatch x-27897 '(_ (any . any) any any))))
- (if (if tmp-27906
+ pattern-30037)
+ template-30038))))
+ tmp-30032)
+ (let ((tmp-30039
+ ($sc-dispatch x-30030 '(_ (any . any) any any))))
+ (if (if tmp-30039
(@apply
- (lambda (name-27910
- pattern-27911
- docstring-27912
- template-27913)
- (string? (syntax->datum docstring-27912)))
- tmp-27906)
+ (lambda (name-30043
+ pattern-30044
+ docstring-30045
+ template-30046)
+ (string? (syntax->datum docstring-30045)))
+ tmp-30039)
#f)
(@apply
- (lambda (name-27914
- pattern-27915
- docstring-27916
- template-27917)
+ (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-*-27889"
- "l-*-27890"
- "l-*-27891"
- "l-*-27892"))
+ #("l-*-30022"
+ "l-*-30023"
+ "l-*-30024"
+ "l-*-30025"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-27871")))
+ #(ribcage #(x) #((top)) #("l-*-30004")))
(hygiene guile))
- name-27914
+ name-30047
(list '#(syntax-object
syntax-rules
((top)
#(ribcage
#(name pattern docstring template)
#((top) (top) (top) (top))
- #("l-*-27889"
- "l-*-27890"
- "l-*-27891"
- "l-*-27892"))
+ #("l-*-30022"
+ "l-*-30023"
+ "l-*-30024"
+ "l-*-30025"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-27871")))
+ #(ribcage #(x) #((top)) #("l-*-30004")))
(hygiene guile))
'()
- docstring-27916
+ docstring-30049
(list (cons '#(syntax-object
_
((top)
@@ -22687,45 +22828,45 @@
docstring
template)
#((top) (top) (top) (top))
- #("l-*-27889"
- "l-*-27890"
- "l-*-27891"
- "l-*-27892"))
+ #("l-*-30022"
+ "l-*-30023"
+ "l-*-30024"
+ "l-*-30025"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-27871")))
+ #("l-*-30004")))
(hygiene guile))
- pattern-27915)
- template-27917))))
- tmp-27906)
+ pattern-30048)
+ template-30050))))
+ tmp-30039)
(syntax-violation
#f
"source expression failed to match any pattern"
- x-27897))))))))
+ x-30030))))))))
(define let*
(make-syntax-transformer
'let*
'macro
- (lambda (x-27966)
- (let ((tmp-27968
+ (lambda (x-30099)
+ (let ((tmp-30101
($sc-dispatch
- x-27966
+ x-30099
'(any #(each (any any)) any . each-any))))
- (if (if tmp-27968
+ (if (if tmp-30101
(@apply
- (lambda (let*-27972 x-27973 v-27974 e1-27975 e2-27976)
- (and-map identifier? x-27973))
- tmp-27968)
+ (lambda (let*-30105 x-30106 v-30107 e1-30108 e2-30109)
+ (and-map identifier? x-30106))
+ tmp-30101)
#f)
(@apply
- (lambda (let*-27977 x-27978 v-27979 e1-27980 e2-27981)
+ (lambda (let*-30110 x-30111 v-30112 e1-30113 e2-30114)
(letrec*
- ((f-27982
- (lambda (bindings-27985)
- (if (null? bindings-27985)
+ ((f-30115
+ (lambda (bindings-30118)
+ (if (null? bindings-30118)
(cons '#(syntax-object
let
((top)
@@ -22733,26 +22874,26 @@
#(ribcage
#(f bindings)
#((top) (top))
- #("l-*-27952" "l-*-27953"))
+ #("l-*-30085" "l-*-30086"))
#(ribcage
#(let* x v e1 e2)
#((top) (top) (top) (top) (top))
- #("l-*-27942"
- "l-*-27943"
- "l-*-27944"
- "l-*-27945"
- "l-*-27946"))
+ #("l-*-30075"
+ "l-*-30076"
+ "l-*-30077"
+ "l-*-30078"
+ "l-*-30079"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-27928")))
+ #(ribcage #(x) #((top)) #("l-*-30061")))
(hygiene guile))
- (cons '() (cons e1-27980 e2-27981)))
- (let ((tmp-27986
- (list (f-27982 (cdr bindings-27985))
- (car bindings-27985))))
- (let ((tmp-27987 ($sc-dispatch tmp-27986 '(any any))))
- (if tmp-27987
+ (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-27989 binding-27990)
+ (lambda (body-30122 binding-30123)
(list '#(syntax-object
let
((top)
@@ -22760,84 +22901,84 @@
#(ribcage
#(body binding)
#((top) (top))
- #("l-*-27962" "l-*-27963"))
+ #("l-*-30095" "l-*-30096"))
#(ribcage () () ())
#(ribcage
#(f bindings)
#((top) (top))
- #("l-*-27952" "l-*-27953"))
+ #("l-*-30085" "l-*-30086"))
#(ribcage
#(let* x v e1 e2)
#((top) (top) (top) (top) (top))
- #("l-*-27942"
- "l-*-27943"
- "l-*-27944"
- "l-*-27945"
- "l-*-27946"))
+ #("l-*-30075"
+ "l-*-30076"
+ "l-*-30077"
+ "l-*-30078"
+ "l-*-30079"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-27928")))
+ #("l-*-30061")))
(hygiene guile))
- (list binding-27990)
- body-27989))
- tmp-27987)
+ (list binding-30123)
+ body-30122))
+ tmp-30120)
(syntax-violation
#f
"source expression failed to match any pattern"
- tmp-27986))))))))
- (f-27982 (map list x-27978 v-27979))))
- tmp-27968)
+ tmp-30119))))))))
+ (f-30115 (map list x-30111 v-30112))))
+ tmp-30101)
(syntax-violation
#f
"source expression failed to match any pattern"
- x-27966))))))
+ x-30099))))))
(define do
(make-syntax-transformer
'do
'macro
- (lambda (orig-x-28048)
- (let ((tmp-28050
+ (lambda (orig-x-30181)
+ (let ((tmp-30183
($sc-dispatch
- orig-x-28048
+ orig-x-30181
'(_ #(each (any any . any))
(any . each-any)
.
each-any))))
- (if tmp-28050
+ (if tmp-30183
(@apply
- (lambda (var-28054
- init-28055
- step-28056
- e0-28057
- e1-28058
- c-28059)
- (let ((tmp-28060
- (map (lambda (v-28063 s-28064)
- (let ((tmp-28066 ($sc-dispatch s-28064 '())))
- (if tmp-28066
- (@apply (lambda () v-28063) tmp-28066)
- (let ((tmp-28069
- ($sc-dispatch s-28064 '(any))))
- (if tmp-28069
+ (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-28072) e-28072)
- tmp-28069)
+ (lambda (e-30205) e-30205)
+ tmp-30202)
(syntax-violation
'do
"bad step expression"
- orig-x-28048
- s-28064))))))
- var-28054
- step-28056)))
- (let ((tmp-28061 ($sc-dispatch tmp-28060 'each-any)))
- (if tmp-28061
+ orig-x-30181
+ s-30197))))))
+ var-30187
+ step-30189)))
+ (let ((tmp-30194 ($sc-dispatch tmp-30193 'each-any)))
+ (if tmp-30194
(@apply
- (lambda (step-28078)
- (let ((tmp-28080 ($sc-dispatch e1-28058 '())))
- (if tmp-28080
+ (lambda (step-30211)
+ (let ((tmp-30213 ($sc-dispatch e1-30191 '())))
+ (if tmp-30213
(@apply
(lambda ()
(list '#(syntax-object
@@ -22847,7 +22988,7 @@
#(ribcage
#(step)
#((top))
- #("l-*-28016"))
+ #("l-*-30149"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -22856,17 +22997,17 @@
(top)
(top)
(top))
- #("l-*-28001"
- "l-*-28002"
- "l-*-28003"
- "l-*-28004"
- "l-*-28005"
- "l-*-28006"))
+ #("l-*-30134"
+ "l-*-30135"
+ "l-*-30136"
+ "l-*-30137"
+ "l-*-30138"
+ "l-*-30139"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("l-*-27998")))
+ #("l-*-30131")))
(hygiene guile))
'#(syntax-object
doloop
@@ -22875,7 +23016,7 @@
#(ribcage
#(step)
#((top))
- #("l-*-28016"))
+ #("l-*-30149"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -22884,19 +23025,19 @@
(top)
(top)
(top))
- #("l-*-28001"
- "l-*-28002"
- "l-*-28003"
- "l-*-28004"
- "l-*-28005"
- "l-*-28006"))
+ #("l-*-30134"
+ "l-*-30135"
+ "l-*-30136"
+ "l-*-30137"
+ "l-*-30138"
+ "l-*-30139"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("l-*-27998")))
+ #("l-*-30131")))
(hygiene guile))
- (map list var-28054 init-28055)
+ (map list var-30187 init-30188)
(list '#(syntax-object
if
((top)
@@ -22904,7 +23045,7 @@
#(ribcage
#(step)
#((top))
- #("l-*-28016"))
+ #("l-*-30149"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -22913,17 +23054,17 @@
(top)
(top)
(top))
- #("l-*-28001"
- "l-*-28002"
- "l-*-28003"
- "l-*-28004"
- "l-*-28005"
- "l-*-28006"))
+ #("l-*-30134"
+ "l-*-30135"
+ "l-*-30136"
+ "l-*-30137"
+ "l-*-30138"
+ "l-*-30139"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("l-*-27998")))
+ #("l-*-30131")))
(hygiene guile))
(list '#(syntax-object
not
@@ -22932,7 +23073,7 @@
#(ribcage
#(step)
#((top))
- #("l-*-28016"))
+ #("l-*-30149"))
#(ribcage
#(var
init
@@ -22946,19 +23087,19 @@
(top)
(top)
(top))
- #("l-*-28001"
- "l-*-28002"
- "l-*-28003"
- "l-*-28004"
- "l-*-28005"
- "l-*-28006"))
+ #("l-*-30134"
+ "l-*-30135"
+ "l-*-30136"
+ "l-*-30137"
+ "l-*-30138"
+ "l-*-30139"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("l-*-27998")))
+ #("l-*-30131")))
(hygiene guile))
- e0-28057)
+ e0-30190)
(cons '#(syntax-object
begin
((top)
@@ -22966,7 +23107,7 @@
#(ribcage
#(step)
#((top))
- #("l-*-28016"))
+ #("l-*-30149"))
#(ribcage
#(var
init
@@ -22980,20 +23121,20 @@
(top)
(top)
(top))
- #("l-*-28001"
- "l-*-28002"
- "l-*-28003"
- "l-*-28004"
- "l-*-28005"
- "l-*-28006"))
+ #("l-*-30134"
+ "l-*-30135"
+ "l-*-30136"
+ "l-*-30137"
+ "l-*-30138"
+ "l-*-30139"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("l-*-27998")))
+ #("l-*-30131")))
(hygiene guile))
(append
- c-28059
+ c-30192
(list (cons '#(syntax-object
doloop
((top)
@@ -23004,7 +23145,7 @@
#(ribcage
#(step)
#((top))
- #("l-*-28016"))
+ #("l-*-30149"))
#(ribcage
#(var
init
@@ -23018,12 +23159,12 @@
(top)
(top)
(top))
- #("l-*-28001"
- "l-*-28002"
- "l-*-28003"
- "l-*-28004"
- "l-*-28005"
- "l-*-28006"))
+ #("l-*-30134"
+ "l-*-30135"
+ "l-*-30136"
+ "l-*-30137"
+ "l-*-30138"
+ "l-*-30139"))
#(ribcage
()
()
@@ -23031,28 +23172,28 @@
#(ribcage
#(orig-x)
#((top))
- #("l-*-27998")))
+ #("l-*-30131")))
(hygiene
guile))
- step-28078)))))))
- tmp-28080)
- (let ((tmp-28084
- ($sc-dispatch e1-28058 '(any . each-any))))
- (if tmp-28084
+ step-30211)))))))
+ tmp-30213)
+ (let ((tmp-30217
+ ($sc-dispatch e1-30191 '(any . each-any))))
+ (if tmp-30217
(@apply
- (lambda (e1-28088 e2-28089)
+ (lambda (e1-30221 e2-30222)
(list '#(syntax-object
let
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("l-*-28025" "l-*-28026"))
+ #("l-*-30158" "l-*-30159"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("l-*-28016"))
+ #("l-*-30149"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -23061,17 +23202,17 @@
(top)
(top)
(top))
- #("l-*-28001"
- "l-*-28002"
- "l-*-28003"
- "l-*-28004"
- "l-*-28005"
- "l-*-28006"))
+ #("l-*-30134"
+ "l-*-30135"
+ "l-*-30136"
+ "l-*-30137"
+ "l-*-30138"
+ "l-*-30139"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("l-*-27998")))
+ #("l-*-30131")))
(hygiene guile))
'#(syntax-object
doloop
@@ -23079,12 +23220,12 @@
#(ribcage
#(e1 e2)
#((top) (top))
- #("l-*-28025" "l-*-28026"))
+ #("l-*-30158" "l-*-30159"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("l-*-28016"))
+ #("l-*-30149"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -23093,32 +23234,32 @@
(top)
(top)
(top))
- #("l-*-28001"
- "l-*-28002"
- "l-*-28003"
- "l-*-28004"
- "l-*-28005"
- "l-*-28006"))
+ #("l-*-30134"
+ "l-*-30135"
+ "l-*-30136"
+ "l-*-30137"
+ "l-*-30138"
+ "l-*-30139"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("l-*-27998")))
+ #("l-*-30131")))
(hygiene guile))
- (map list var-28054 init-28055)
+ (map list var-30187 init-30188)
(list '#(syntax-object
if
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("l-*-28025"
- "l-*-28026"))
+ #("l-*-30158"
+ "l-*-30159"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("l-*-28016"))
+ #("l-*-30149"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -23127,32 +23268,32 @@
(top)
(top)
(top))
- #("l-*-28001"
- "l-*-28002"
- "l-*-28003"
- "l-*-28004"
- "l-*-28005"
- "l-*-28006"))
+ #("l-*-30134"
+ "l-*-30135"
+ "l-*-30136"
+ "l-*-30137"
+ "l-*-30138"
+ "l-*-30139"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("l-*-27998")))
+ #("l-*-30131")))
(hygiene guile))
- e0-28057
+ e0-30190
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("l-*-28025"
- "l-*-28026"))
+ #("l-*-30158"
+ "l-*-30159"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("l-*-28016"))
+ #("l-*-30149"))
#(ribcage
#(var
init
@@ -23166,32 +23307,32 @@
(top)
(top)
(top))
- #("l-*-28001"
- "l-*-28002"
- "l-*-28003"
- "l-*-28004"
- "l-*-28005"
- "l-*-28006"))
+ #("l-*-30134"
+ "l-*-30135"
+ "l-*-30136"
+ "l-*-30137"
+ "l-*-30138"
+ "l-*-30139"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("l-*-27998")))
+ #("l-*-30131")))
(hygiene guile))
- (cons e1-28088 e2-28089))
+ (cons e1-30221 e2-30222))
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("l-*-28025"
- "l-*-28026"))
+ #("l-*-30158"
+ "l-*-30159"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("l-*-28016"))
+ #("l-*-30149"))
#(ribcage
#(var
init
@@ -23205,20 +23346,20 @@
(top)
(top)
(top))
- #("l-*-28001"
- "l-*-28002"
- "l-*-28003"
- "l-*-28004"
- "l-*-28005"
- "l-*-28006"))
+ #("l-*-30134"
+ "l-*-30135"
+ "l-*-30136"
+ "l-*-30137"
+ "l-*-30138"
+ "l-*-30139"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("l-*-27998")))
+ #("l-*-30131")))
(hygiene guile))
(append
- c-28059
+ c-30192
(list (cons '#(syntax-object
doloop
((top)
@@ -23227,8 +23368,8 @@
e2)
#((top)
(top))
- #("l-*-28025"
- "l-*-28026"))
+ #("l-*-30158"
+ "l-*-30159"))
#(ribcage
()
()
@@ -23236,7 +23377,7 @@
#(ribcage
#(step)
#((top))
- #("l-*-28016"))
+ #("l-*-30149"))
#(ribcage
#(var
init
@@ -23250,12 +23391,12 @@
(top)
(top)
(top))
- #("l-*-28001"
- "l-*-28002"
- "l-*-28003"
- "l-*-28004"
- "l-*-28005"
- "l-*-28006"))
+ #("l-*-30134"
+ "l-*-30135"
+ "l-*-30136"
+ "l-*-30137"
+ "l-*-30138"
+ "l-*-30139"))
#(ribcage
()
()
@@ -23263,36 +23404,36 @@
#(ribcage
#(orig-x)
#((top))
- #("l-*-27998")))
+ #("l-*-30131")))
(hygiene
guile))
- step-28078)))))))
- tmp-28084)
+ step-30211)))))))
+ tmp-30217)
(syntax-violation
#f
"source expression failed to match any pattern"
- e1-28058))))))
- tmp-28061)
+ e1-30191))))))
+ tmp-30194)
(syntax-violation
#f
"source expression failed to match any pattern"
- tmp-28060)))))
- tmp-28050)
+ tmp-30193)))))
+ tmp-30183)
(syntax-violation
#f
"source expression failed to match any pattern"
- orig-x-28048))))))
+ orig-x-30181))))))
(define quasiquote
(make-syntax-transformer
'quasiquote
'macro
(letrec*
- ((quasi-28375
- (lambda (p-28399 lev-28400)
- (let ((tmp-28402
+ ((quasi-30508
+ (lambda (p-30532 lev-30533)
+ (let ((tmp-30535
($sc-dispatch
- p-28399
+ p-30532
'(#(free-id
#(syntax-object
unquote
@@ -23301,7 +23442,7 @@
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-28121" "l-*-28122"))
+ #("l-*-30254" "l-*-30255"))
#(ribcage
(emit quasivector
quasilist*
@@ -23310,28 +23451,28 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("l-*-28117"
- "l-*-28115"
- "l-*-28113"
- "l-*-28111"
- "l-*-28109"
- "l-*-28107"
- "l-*-28105")))
+ ("l-*-30250"
+ "l-*-30248"
+ "l-*-30246"
+ "l-*-30244"
+ "l-*-30242"
+ "l-*-30240"
+ "l-*-30238")))
(hygiene guile)))
any))))
- (if tmp-28402
+ (if tmp-30535
(@apply
- (lambda (p-28406)
- (if (= lev-28400 0)
+ (lambda (p-30539)
+ (if (= lev-30533 0)
(list '#(syntax-object
"value"
((top)
- #(ribcage #(p) #((top)) #("l-*-28125"))
+ #(ribcage #(p) #((top)) #("l-*-30258"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-28121" "l-*-28122"))
+ #("l-*-30254" "l-*-30255"))
#(ribcage
(emit quasivector
quasilist*
@@ -23340,25 +23481,25 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("l-*-28117"
- "l-*-28115"
- "l-*-28113"
- "l-*-28111"
- "l-*-28109"
- "l-*-28107"
- "l-*-28105")))
+ ("l-*-30250"
+ "l-*-30248"
+ "l-*-30246"
+ "l-*-30244"
+ "l-*-30242"
+ "l-*-30240"
+ "l-*-30238")))
(hygiene guile))
- p-28406)
- (quasicons-28377
+ p-30539)
+ (quasicons-30510
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("l-*-28125"))
+ #(ribcage #(p) #((top)) #("l-*-30258"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-28121" "l-*-28122"))
+ #("l-*-30254" "l-*-30255"))
#(ribcage
(emit quasivector
quasilist*
@@ -23367,23 +23508,23 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("l-*-28117"
- "l-*-28115"
- "l-*-28113"
- "l-*-28111"
- "l-*-28109"
- "l-*-28107"
- "l-*-28105")))
+ ("l-*-30250"
+ "l-*-30248"
+ "l-*-30246"
+ "l-*-30244"
+ "l-*-30242"
+ "l-*-30240"
+ "l-*-30238")))
(hygiene guile))
#(syntax-object
unquote
((top)
- #(ribcage #(p) #((top)) #("l-*-28125"))
+ #(ribcage #(p) #((top)) #("l-*-30258"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-28121" "l-*-28122"))
+ #("l-*-30254" "l-*-30255"))
#(ribcage
(emit quasivector
quasilist*
@@ -23392,19 +23533,19 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("l-*-28117"
- "l-*-28115"
- "l-*-28113"
- "l-*-28111"
- "l-*-28109"
- "l-*-28107"
- "l-*-28105")))
+ ("l-*-30250"
+ "l-*-30248"
+ "l-*-30246"
+ "l-*-30244"
+ "l-*-30242"
+ "l-*-30240"
+ "l-*-30238")))
(hygiene guile)))
- (quasi-28375 (list p-28406) (#{1-}# lev-28400)))))
- tmp-28402)
- (let ((tmp-28409
+ (quasi-30508 (list p-30539) (#{1-}# lev-30533)))))
+ tmp-30535)
+ (let ((tmp-30542
($sc-dispatch
- p-28399
+ p-30532
'(#(free-id
#(syntax-object
quasiquote
@@ -23413,7 +23554,7 @@
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-28121" "l-*-28122"))
+ #("l-*-30254" "l-*-30255"))
#(ribcage
(emit quasivector
quasilist*
@@ -23422,28 +23563,28 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("l-*-28117"
- "l-*-28115"
- "l-*-28113"
- "l-*-28111"
- "l-*-28109"
- "l-*-28107"
- "l-*-28105")))
+ ("l-*-30250"
+ "l-*-30248"
+ "l-*-30246"
+ "l-*-30244"
+ "l-*-30242"
+ "l-*-30240"
+ "l-*-30238")))
(hygiene guile)))
any))))
- (if tmp-28409
+ (if tmp-30542
(@apply
- (lambda (p-28413)
- (quasicons-28377
+ (lambda (p-30546)
+ (quasicons-30510
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("l-*-28128"))
+ #(ribcage #(p) #((top)) #("l-*-30261"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-28121" "l-*-28122"))
+ #("l-*-30254" "l-*-30255"))
#(ribcage
(emit quasivector
quasilist*
@@ -23452,23 +23593,23 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("l-*-28117"
- "l-*-28115"
- "l-*-28113"
- "l-*-28111"
- "l-*-28109"
- "l-*-28107"
- "l-*-28105")))
+ ("l-*-30250"
+ "l-*-30248"
+ "l-*-30246"
+ "l-*-30244"
+ "l-*-30242"
+ "l-*-30240"
+ "l-*-30238")))
(hygiene guile))
#(syntax-object
quasiquote
((top)
- #(ribcage #(p) #((top)) #("l-*-28128"))
+ #(ribcage #(p) #((top)) #("l-*-30261"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-28121" "l-*-28122"))
+ #("l-*-30254" "l-*-30255"))
#(ribcage
(emit quasivector
quasilist*
@@ -23477,23 +23618,23 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("l-*-28117"
- "l-*-28115"
- "l-*-28113"
- "l-*-28111"
- "l-*-28109"
- "l-*-28107"
- "l-*-28105")))
+ ("l-*-30250"
+ "l-*-30248"
+ "l-*-30246"
+ "l-*-30244"
+ "l-*-30242"
+ "l-*-30240"
+ "l-*-30238")))
(hygiene guile)))
- (quasi-28375 (list p-28413) (#{1+}# lev-28400))))
- tmp-28409)
- (let ((tmp-28416 ($sc-dispatch p-28399 '(any . any))))
- (if tmp-28416
+ (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-28420 q-28421)
- (let ((tmp-28423
+ (lambda (p-30553 q-30554)
+ (let ((tmp-30556
($sc-dispatch
- p-28420
+ p-30553
'(#(free-id
#(syntax-object
unquote
@@ -23501,12 +23642,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("l-*-28131" "l-*-28132"))
+ #("l-*-30264" "l-*-30265"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-28121" "l-*-28122"))
+ #("l-*-30254" "l-*-30255"))
#(ribcage
(emit quasivector
quasilist*
@@ -23521,40 +23662,40 @@
(top)
(top)
(top))
- ("l-*-28117"
- "l-*-28115"
- "l-*-28113"
- "l-*-28111"
- "l-*-28109"
- "l-*-28107"
- "l-*-28105")))
+ ("l-*-30250"
+ "l-*-30248"
+ "l-*-30246"
+ "l-*-30244"
+ "l-*-30242"
+ "l-*-30240"
+ "l-*-30238")))
(hygiene guile)))
.
each-any))))
- (if tmp-28423
+ (if tmp-30556
(@apply
- (lambda (p-28427)
- (if (= lev-28400 0)
- (quasilist*-28379
- (map (lambda (tmp-28139-28463)
+ (lambda (p-30560)
+ (if (= lev-30533 0)
+ (quasilist*-30512
+ (map (lambda (tmp-30272-30596)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("l-*-28137"))
+ #("l-*-30270"))
#(ribcage
#(p q)
#((top) (top))
- #("l-*-28131"
- "l-*-28132"))
+ #("l-*-30264"
+ "l-*-30265"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-28121"
- "l-*-28122"))
+ #("l-*-30254"
+ "l-*-30255"))
#(ribcage
(emit quasivector
quasilist*
@@ -23569,35 +23710,35 @@
(top)
(top)
(top))
- ("l-*-28117"
- "l-*-28115"
- "l-*-28113"
- "l-*-28111"
- "l-*-28109"
- "l-*-28107"
- "l-*-28105")))
+ ("l-*-30250"
+ "l-*-30248"
+ "l-*-30246"
+ "l-*-30244"
+ "l-*-30242"
+ "l-*-30240"
+ "l-*-30238")))
(hygiene guile))
- tmp-28139-28463))
- p-28427)
- (quasi-28375 q-28421 lev-28400))
- (quasicons-28377
- (quasicons-28377
+ tmp-30272-30596))
+ p-30560)
+ (quasi-30508 q-30554 lev-30533))
+ (quasicons-30510
+ (quasicons-30510
'(#(syntax-object
"quote"
((top)
#(ribcage
#(p)
#((top))
- #("l-*-28137"))
+ #("l-*-30270"))
#(ribcage
#(p q)
#((top) (top))
- #("l-*-28131" "l-*-28132"))
+ #("l-*-30264" "l-*-30265"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-28121" "l-*-28122"))
+ #("l-*-30254" "l-*-30255"))
#(ribcage
(emit quasivector
quasilist*
@@ -23612,13 +23753,13 @@
(top)
(top)
(top))
- ("l-*-28117"
- "l-*-28115"
- "l-*-28113"
- "l-*-28111"
- "l-*-28109"
- "l-*-28107"
- "l-*-28105")))
+ ("l-*-30250"
+ "l-*-30248"
+ "l-*-30246"
+ "l-*-30244"
+ "l-*-30242"
+ "l-*-30240"
+ "l-*-30238")))
(hygiene guile))
#(syntax-object
unquote
@@ -23626,16 +23767,16 @@
#(ribcage
#(p)
#((top))
- #("l-*-28137"))
+ #("l-*-30270"))
#(ribcage
#(p q)
#((top) (top))
- #("l-*-28131" "l-*-28132"))
+ #("l-*-30264" "l-*-30265"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-28121" "l-*-28122"))
+ #("l-*-30254" "l-*-30255"))
#(ribcage
(emit quasivector
quasilist*
@@ -23650,22 +23791,22 @@
(top)
(top)
(top))
- ("l-*-28117"
- "l-*-28115"
- "l-*-28113"
- "l-*-28111"
- "l-*-28109"
- "l-*-28107"
- "l-*-28105")))
+ ("l-*-30250"
+ "l-*-30248"
+ "l-*-30246"
+ "l-*-30244"
+ "l-*-30242"
+ "l-*-30240"
+ "l-*-30238")))
(hygiene guile)))
- (quasi-28375
- p-28427
- (#{1-}# lev-28400)))
- (quasi-28375 q-28421 lev-28400))))
- tmp-28423)
- (let ((tmp-28468
+ (quasi-30508
+ p-30560
+ (#{1-}# lev-30533)))
+ (quasi-30508 q-30554 lev-30533))))
+ tmp-30556)
+ (let ((tmp-30601
($sc-dispatch
- p-28420
+ p-30553
'(#(free-id
#(syntax-object
unquote-splicing
@@ -23673,12 +23814,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("l-*-28131" "l-*-28132"))
+ #("l-*-30264" "l-*-30265"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-28121" "l-*-28122"))
+ #("l-*-30254" "l-*-30255"))
#(ribcage
(emit quasivector
quasilist*
@@ -23693,40 +23834,40 @@
(top)
(top)
(top))
- ("l-*-28117"
- "l-*-28115"
- "l-*-28113"
- "l-*-28111"
- "l-*-28109"
- "l-*-28107"
- "l-*-28105")))
+ ("l-*-30250"
+ "l-*-30248"
+ "l-*-30246"
+ "l-*-30244"
+ "l-*-30242"
+ "l-*-30240"
+ "l-*-30238")))
(hygiene guile)))
.
each-any))))
- (if tmp-28468
+ (if tmp-30601
(@apply
- (lambda (p-28472)
- (if (= lev-28400 0)
- (quasiappend-28378
- (map (lambda (tmp-28144-28475)
+ (lambda (p-30605)
+ (if (= lev-30533 0)
+ (quasiappend-30511
+ (map (lambda (tmp-30277-30608)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("l-*-28142"))
+ #("l-*-30275"))
#(ribcage
#(p q)
#((top) (top))
- #("l-*-28131"
- "l-*-28132"))
+ #("l-*-30264"
+ "l-*-30265"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-28121"
- "l-*-28122"))
+ #("l-*-30254"
+ "l-*-30255"))
#(ribcage
(emit quasivector
quasilist*
@@ -23741,35 +23882,35 @@
(top)
(top)
(top))
- ("l-*-28117"
- "l-*-28115"
- "l-*-28113"
- "l-*-28111"
- "l-*-28109"
- "l-*-28107"
- "l-*-28105")))
+ ("l-*-30250"
+ "l-*-30248"
+ "l-*-30246"
+ "l-*-30244"
+ "l-*-30242"
+ "l-*-30240"
+ "l-*-30238")))
(hygiene guile))
- tmp-28144-28475))
- p-28472)
- (quasi-28375 q-28421 lev-28400))
- (quasicons-28377
- (quasicons-28377
+ tmp-30277-30608))
+ p-30605)
+ (quasi-30508 q-30554 lev-30533))
+ (quasicons-30510
+ (quasicons-30510
'(#(syntax-object
"quote"
((top)
#(ribcage
#(p)
#((top))
- #("l-*-28142"))
+ #("l-*-30275"))
#(ribcage
#(p q)
#((top) (top))
- #("l-*-28131" "l-*-28132"))
+ #("l-*-30264" "l-*-30265"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-28121" "l-*-28122"))
+ #("l-*-30254" "l-*-30255"))
#(ribcage
(emit quasivector
quasilist*
@@ -23784,13 +23925,13 @@
(top)
(top)
(top))
- ("l-*-28117"
- "l-*-28115"
- "l-*-28113"
- "l-*-28111"
- "l-*-28109"
- "l-*-28107"
- "l-*-28105")))
+ ("l-*-30250"
+ "l-*-30248"
+ "l-*-30246"
+ "l-*-30244"
+ "l-*-30242"
+ "l-*-30240"
+ "l-*-30238")))
(hygiene guile))
#(syntax-object
unquote-splicing
@@ -23798,16 +23939,16 @@
#(ribcage
#(p)
#((top))
- #("l-*-28142"))
+ #("l-*-30275"))
#(ribcage
#(p q)
#((top) (top))
- #("l-*-28131" "l-*-28132"))
+ #("l-*-30264" "l-*-30265"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-28121" "l-*-28122"))
+ #("l-*-30254" "l-*-30255"))
#(ribcage
(emit quasivector
quasilist*
@@ -23822,49 +23963,49 @@
(top)
(top)
(top))
- ("l-*-28117"
- "l-*-28115"
- "l-*-28113"
- "l-*-28111"
- "l-*-28109"
- "l-*-28107"
- "l-*-28105")))
+ ("l-*-30250"
+ "l-*-30248"
+ "l-*-30246"
+ "l-*-30244"
+ "l-*-30242"
+ "l-*-30240"
+ "l-*-30238")))
(hygiene guile)))
- (quasi-28375
- p-28472
- (#{1-}# lev-28400)))
- (quasi-28375 q-28421 lev-28400))))
- tmp-28468)
- (quasicons-28377
- (quasi-28375 p-28420 lev-28400)
- (quasi-28375 q-28421 lev-28400)))))))
- tmp-28416)
- (let ((tmp-28489
- ($sc-dispatch p-28399 '#(vector each-any))))
- (if tmp-28489
+ (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-28493)
- (let ((x-28496
- (vquasi-28376 x-28493 lev-28400)))
- (let ((tmp-28498
+ (lambda (x-30626)
+ (let ((x-30629
+ (vquasi-30509 x-30626 lev-30533)))
+ (let ((tmp-30631
($sc-dispatch
- x-28496
+ x-30629
'(#(atom "quote") each-any))))
- (if tmp-28498
+ (if tmp-30631
(@apply
- (lambda (x-28502)
+ (lambda (x-30635)
(list '#(syntax-object
"quote"
((top)
#(ribcage
#(x)
#((top))
- #("l-*-28249"))
+ #("l-*-30382"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-28246"))
+ #("l-*-30379"))
#(ribcage
(emit quasivector
quasilist*
@@ -23879,36 +24020,36 @@
(top)
(top)
(top))
- ("l-*-28117"
- "l-*-28115"
- "l-*-28113"
- "l-*-28111"
- "l-*-28109"
- "l-*-28107"
- "l-*-28105")))
+ ("l-*-30250"
+ "l-*-30248"
+ "l-*-30246"
+ "l-*-30244"
+ "l-*-30242"
+ "l-*-30240"
+ "l-*-30238")))
(hygiene guile))
- (list->vector x-28502)))
- tmp-28498)
+ (list->vector x-30635)))
+ tmp-30631)
(letrec*
- ((f-28504
- (lambda (y-28516 k-28517)
- (let ((tmp-28519
+ ((f-30637
+ (lambda (y-30649 k-30650)
+ (let ((tmp-30652
($sc-dispatch
- y-28516
+ y-30649
'(#(atom "quote")
each-any))))
- (if tmp-28519
+ (if tmp-30652
(@apply
- (lambda (y-28522)
- (k-28517
- (map (lambda (tmp-28274-28523)
+ (lambda (y-30655)
+ (k-30650
+ (map (lambda (tmp-30407-30656)
(list '#(syntax-object
"quote"
((top)
#(ribcage
#(y)
#((top))
- #("l-*-28272"))
+ #("l-*-30405"))
#(ribcage
()
()
@@ -23920,13 +24061,13 @@
#((top)
(top)
(top))
- #("l-*-28254"
- "l-*-28255"
- "l-*-28256"))
+ #("l-*-30387"
+ "l-*-30388"
+ "l-*-30389"))
#(ribcage
#(_)
#((top))
- #("l-*-28252"))
+ #("l-*-30385"))
#(ribcage
()
()
@@ -23934,7 +24075,7 @@
#(ribcage
#(x)
#((top))
- #("l-*-28246"))
+ #("l-*-30379"))
#(ribcage
(emit quasivector
quasilist*
@@ -23949,50 +24090,50 @@
(top)
(top)
(top))
- ("l-*-28117"
- "l-*-28115"
- "l-*-28113"
- "l-*-28111"
- "l-*-28109"
- "l-*-28107"
- "l-*-28105")))
+ ("l-*-30250"
+ "l-*-30248"
+ "l-*-30246"
+ "l-*-30244"
+ "l-*-30242"
+ "l-*-30240"
+ "l-*-30238")))
(hygiene
guile))
- tmp-28274-28523))
- y-28522)))
- tmp-28519)
- (let ((tmp-28524
+ tmp-30407-30656))
+ y-30655)))
+ tmp-30652)
+ (let ((tmp-30657
($sc-dispatch
- y-28516
+ y-30649
'(#(atom "list")
.
each-any))))
- (if tmp-28524
+ (if tmp-30657
(@apply
- (lambda (y-28527)
- (k-28517 y-28527))
- tmp-28524)
- (let ((tmp-28528
+ (lambda (y-30660)
+ (k-30650 y-30660))
+ tmp-30657)
+ (let ((tmp-30661
($sc-dispatch
- y-28516
+ y-30649
'(#(atom "list*")
.
#(each+
any
(any)
())))))
- (if tmp-28528
+ (if tmp-30661
(@apply
- (lambda (y-28531
- z-28532)
- (f-28504
- z-28532
- (lambda (ls-28533)
- (k-28517
+ (lambda (y-30664
+ z-30665)
+ (f-30637
+ z-30665
+ (lambda (ls-30666)
+ (k-30650
(append
- y-28531
- ls-28533)))))
- tmp-28528)
+ y-30664
+ ls-30666)))))
+ tmp-30661)
(list '#(syntax-object
"list->vector"
((top)
@@ -24001,14 +24142,14 @@
()
())
#(ribcage
- #(t-28289)
- #((m-*-28290
+ #(t-30422)
+ #((m-*-30423
top))
- #("l-*-28293"))
+ #("l-*-30426"))
#(ribcage
#(else)
#((top))
- #("l-*-28287"))
+ #("l-*-30420"))
#(ribcage
()
()
@@ -24018,13 +24159,13 @@
#((top)
(top)
(top))
- #("l-*-28254"
- "l-*-28255"
- "l-*-28256"))
+ #("l-*-30387"
+ "l-*-30388"
+ "l-*-30389"))
#(ribcage
#(_)
#((top))
- #("l-*-28252"))
+ #("l-*-30385"))
#(ribcage
()
()
@@ -24032,7 +24173,7 @@
#(ribcage
#(x)
#((top))
- #("l-*-28246"))
+ #("l-*-30379"))
#(ribcage
(emit quasivector
quasilist*
@@ -24047,26 +24188,26 @@
(top)
(top)
(top))
- ("l-*-28117"
- "l-*-28115"
- "l-*-28113"
- "l-*-28111"
- "l-*-28109"
- "l-*-28107"
- "l-*-28105")))
+ ("l-*-30250"
+ "l-*-30248"
+ "l-*-30246"
+ "l-*-30244"
+ "l-*-30242"
+ "l-*-30240"
+ "l-*-30238")))
(hygiene
guile))
- x-28496))))))))))
- (f-28504
- x-28496
- (lambda (ls-28506)
- (let ((tmp-28508
+ x-30629))))))))))
+ (f-30637
+ x-30629
+ (lambda (ls-30639)
+ (let ((tmp-30641
($sc-dispatch
- ls-28506
+ ls-30639
'each-any)))
- (if tmp-28508
+ (if tmp-30641
(@apply
- (lambda (t-28262-28511)
+ (lambda (t-30395-30644)
(cons '#(syntax-object
"vector"
((top)
@@ -24075,10 +24216,10 @@
()
())
#(ribcage
- #(t-28262)
- #((m-*-28263
+ #(t-30395)
+ #((m-*-30396
top))
- #("l-*-28267"))
+ #("l-*-30400"))
#(ribcage
()
()
@@ -24094,11 +24235,11 @@
#(ribcage
#(ls)
#((top))
- #("l-*-28261"))
+ #("l-*-30394"))
#(ribcage
#(_)
#((top))
- #("l-*-28252"))
+ #("l-*-30385"))
#(ribcage
()
()
@@ -24106,7 +24247,7 @@
#(ribcage
#(x)
#((top))
- #("l-*-28246"))
+ #("l-*-30379"))
#(ribcage
(emit quasivector
quasilist*
@@ -24121,30 +24262,30 @@
(top)
(top)
(top))
- ("l-*-28117"
- "l-*-28115"
- "l-*-28113"
- "l-*-28111"
- "l-*-28109"
- "l-*-28107"
- "l-*-28105")))
+ ("l-*-30250"
+ "l-*-30248"
+ "l-*-30246"
+ "l-*-30244"
+ "l-*-30242"
+ "l-*-30240"
+ "l-*-30238")))
(hygiene guile))
- t-28262-28511))
- tmp-28508)
+ t-30395-30644))
+ tmp-30641)
(syntax-violation
#f
"source expression failed to match any pattern"
- ls-28506))))))))))
- tmp-28489)
+ ls-30639))))))))))
+ tmp-30622)
(list '#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("l-*-28152"))
+ #(ribcage #(p) #((top)) #("l-*-30285"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-28121" "l-*-28122"))
+ #("l-*-30254" "l-*-30255"))
#(ribcage
(emit quasivector
quasilist*
@@ -24159,24 +24300,24 @@
(top)
(top)
(top))
- ("l-*-28117"
- "l-*-28115"
- "l-*-28113"
- "l-*-28111"
- "l-*-28109"
- "l-*-28107"
- "l-*-28105")))
+ ("l-*-30250"
+ "l-*-30248"
+ "l-*-30246"
+ "l-*-30244"
+ "l-*-30242"
+ "l-*-30240"
+ "l-*-30238")))
(hygiene guile))
- p-28399)))))))))))
- (vquasi-28376
- (lambda (p-28561 lev-28562)
- (let ((tmp-28564 ($sc-dispatch p-28561 '(any . any))))
- (if tmp-28564
+ p-30532)))))))))))
+ (vquasi-30509
+ (lambda (p-30694 lev-30695)
+ (let ((tmp-30697 ($sc-dispatch p-30694 '(any . any))))
+ (if tmp-30697
(@apply
- (lambda (p-28568 q-28569)
- (let ((tmp-28571
+ (lambda (p-30701 q-30702)
+ (let ((tmp-30704
($sc-dispatch
- p-28568
+ p-30701
'(#(free-id
#(syntax-object
unquote
@@ -24184,12 +24325,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("l-*-28160" "l-*-28161"))
+ #("l-*-30293" "l-*-30294"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-28156" "l-*-28157"))
+ #("l-*-30289" "l-*-30290"))
#(ribcage
(emit quasivector
quasilist*
@@ -24204,38 +24345,38 @@
(top)
(top)
(top))
- ("l-*-28117"
- "l-*-28115"
- "l-*-28113"
- "l-*-28111"
- "l-*-28109"
- "l-*-28107"
- "l-*-28105")))
+ ("l-*-30250"
+ "l-*-30248"
+ "l-*-30246"
+ "l-*-30244"
+ "l-*-30242"
+ "l-*-30240"
+ "l-*-30238")))
(hygiene guile)))
.
each-any))))
- (if tmp-28571
+ (if tmp-30704
(@apply
- (lambda (p-28575)
- (if (= lev-28562 0)
- (quasilist*-28379
- (map (lambda (tmp-28168-28611)
+ (lambda (p-30708)
+ (if (= lev-30695 0)
+ (quasilist*-30512
+ (map (lambda (tmp-30301-30744)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("l-*-28166"))
+ #("l-*-30299"))
#(ribcage
#(p q)
#((top) (top))
- #("l-*-28160" "l-*-28161"))
+ #("l-*-30293" "l-*-30294"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-28156" "l-*-28157"))
+ #("l-*-30289" "l-*-30290"))
#(ribcage
(emit quasivector
quasilist*
@@ -24250,32 +24391,32 @@
(top)
(top)
(top))
- ("l-*-28117"
- "l-*-28115"
- "l-*-28113"
- "l-*-28111"
- "l-*-28109"
- "l-*-28107"
- "l-*-28105")))
+ ("l-*-30250"
+ "l-*-30248"
+ "l-*-30246"
+ "l-*-30244"
+ "l-*-30242"
+ "l-*-30240"
+ "l-*-30238")))
(hygiene guile))
- tmp-28168-28611))
- p-28575)
- (vquasi-28376 q-28569 lev-28562))
- (quasicons-28377
- (quasicons-28377
+ tmp-30301-30744))
+ p-30708)
+ (vquasi-30509 q-30702 lev-30695))
+ (quasicons-30510
+ (quasicons-30510
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("l-*-28166"))
+ #(ribcage #(p) #((top)) #("l-*-30299"))
#(ribcage
#(p q)
#((top) (top))
- #("l-*-28160" "l-*-28161"))
+ #("l-*-30293" "l-*-30294"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-28156" "l-*-28157"))
+ #("l-*-30289" "l-*-30290"))
#(ribcage
(emit quasivector
quasilist*
@@ -24290,27 +24431,27 @@
(top)
(top)
(top))
- ("l-*-28117"
- "l-*-28115"
- "l-*-28113"
- "l-*-28111"
- "l-*-28109"
- "l-*-28107"
- "l-*-28105")))
+ ("l-*-30250"
+ "l-*-30248"
+ "l-*-30246"
+ "l-*-30244"
+ "l-*-30242"
+ "l-*-30240"
+ "l-*-30238")))
(hygiene guile))
#(syntax-object
unquote
((top)
- #(ribcage #(p) #((top)) #("l-*-28166"))
+ #(ribcage #(p) #((top)) #("l-*-30299"))
#(ribcage
#(p q)
#((top) (top))
- #("l-*-28160" "l-*-28161"))
+ #("l-*-30293" "l-*-30294"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-28156" "l-*-28157"))
+ #("l-*-30289" "l-*-30290"))
#(ribcage
(emit quasivector
quasilist*
@@ -24325,20 +24466,20 @@
(top)
(top)
(top))
- ("l-*-28117"
- "l-*-28115"
- "l-*-28113"
- "l-*-28111"
- "l-*-28109"
- "l-*-28107"
- "l-*-28105")))
+ ("l-*-30250"
+ "l-*-30248"
+ "l-*-30246"
+ "l-*-30244"
+ "l-*-30242"
+ "l-*-30240"
+ "l-*-30238")))
(hygiene guile)))
- (quasi-28375 p-28575 (#{1-}# lev-28562)))
- (vquasi-28376 q-28569 lev-28562))))
- tmp-28571)
- (let ((tmp-28618
+ (quasi-30508 p-30708 (#{1-}# lev-30695)))
+ (vquasi-30509 q-30702 lev-30695))))
+ tmp-30704)
+ (let ((tmp-30751
($sc-dispatch
- p-28568
+ p-30701
'(#(free-id
#(syntax-object
unquote-splicing
@@ -24346,12 +24487,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("l-*-28160" "l-*-28161"))
+ #("l-*-30293" "l-*-30294"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-28156" "l-*-28157"))
+ #("l-*-30289" "l-*-30290"))
#(ribcage
(emit quasivector
quasilist*
@@ -24366,40 +24507,40 @@
(top)
(top)
(top))
- ("l-*-28117"
- "l-*-28115"
- "l-*-28113"
- "l-*-28111"
- "l-*-28109"
- "l-*-28107"
- "l-*-28105")))
+ ("l-*-30250"
+ "l-*-30248"
+ "l-*-30246"
+ "l-*-30244"
+ "l-*-30242"
+ "l-*-30240"
+ "l-*-30238")))
(hygiene guile)))
.
each-any))))
- (if tmp-28618
+ (if tmp-30751
(@apply
- (lambda (p-28622)
- (if (= lev-28562 0)
- (quasiappend-28378
- (map (lambda (tmp-28173-28625)
+ (lambda (p-30755)
+ (if (= lev-30695 0)
+ (quasiappend-30511
+ (map (lambda (tmp-30306-30758)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("l-*-28171"))
+ #("l-*-30304"))
#(ribcage
#(p q)
#((top) (top))
- #("l-*-28160"
- "l-*-28161"))
+ #("l-*-30293"
+ "l-*-30294"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-28156"
- "l-*-28157"))
+ #("l-*-30289"
+ "l-*-30290"))
#(ribcage
(emit quasivector
quasilist*
@@ -24414,35 +24555,35 @@
(top)
(top)
(top))
- ("l-*-28117"
- "l-*-28115"
- "l-*-28113"
- "l-*-28111"
- "l-*-28109"
- "l-*-28107"
- "l-*-28105")))
+ ("l-*-30250"
+ "l-*-30248"
+ "l-*-30246"
+ "l-*-30244"
+ "l-*-30242"
+ "l-*-30240"
+ "l-*-30238")))
(hygiene guile))
- tmp-28173-28625))
- p-28622)
- (vquasi-28376 q-28569 lev-28562))
- (quasicons-28377
- (quasicons-28377
+ tmp-30306-30758))
+ p-30755)
+ (vquasi-30509 q-30702 lev-30695))
+ (quasicons-30510
+ (quasicons-30510
'(#(syntax-object
"quote"
((top)
#(ribcage
#(p)
#((top))
- #("l-*-28171"))
+ #("l-*-30304"))
#(ribcage
#(p q)
#((top) (top))
- #("l-*-28160" "l-*-28161"))
+ #("l-*-30293" "l-*-30294"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-28156" "l-*-28157"))
+ #("l-*-30289" "l-*-30290"))
#(ribcage
(emit quasivector
quasilist*
@@ -24457,13 +24598,13 @@
(top)
(top)
(top))
- ("l-*-28117"
- "l-*-28115"
- "l-*-28113"
- "l-*-28111"
- "l-*-28109"
- "l-*-28107"
- "l-*-28105")))
+ ("l-*-30250"
+ "l-*-30248"
+ "l-*-30246"
+ "l-*-30244"
+ "l-*-30242"
+ "l-*-30240"
+ "l-*-30238")))
(hygiene guile))
#(syntax-object
unquote-splicing
@@ -24471,16 +24612,16 @@
#(ribcage
#(p)
#((top))
- #("l-*-28171"))
+ #("l-*-30304"))
#(ribcage
#(p q)
#((top) (top))
- #("l-*-28160" "l-*-28161"))
+ #("l-*-30293" "l-*-30294"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-28156" "l-*-28157"))
+ #("l-*-30289" "l-*-30290"))
#(ribcage
(emit quasivector
quasilist*
@@ -24495,23 +24636,23 @@
(top)
(top)
(top))
- ("l-*-28117"
- "l-*-28115"
- "l-*-28113"
- "l-*-28111"
- "l-*-28109"
- "l-*-28107"
- "l-*-28105")))
+ ("l-*-30250"
+ "l-*-30248"
+ "l-*-30246"
+ "l-*-30244"
+ "l-*-30242"
+ "l-*-30240"
+ "l-*-30238")))
(hygiene guile)))
- (quasi-28375 p-28622 (#{1-}# lev-28562)))
- (vquasi-28376 q-28569 lev-28562))))
- tmp-28618)
- (quasicons-28377
- (quasi-28375 p-28568 lev-28562)
- (vquasi-28376 q-28569 lev-28562)))))))
- tmp-28564)
- (let ((tmp-28643 ($sc-dispatch p-28561 '())))
- (if tmp-28643
+ (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
@@ -24521,7 +24662,7 @@
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-28156" "l-*-28157"))
+ #("l-*-30289" "l-*-30290"))
#(ribcage
(emit quasivector
quasilist*
@@ -24530,61 +24671,61 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("l-*-28117"
- "l-*-28115"
- "l-*-28113"
- "l-*-28111"
- "l-*-28109"
- "l-*-28107"
- "l-*-28105")))
+ ("l-*-30250"
+ "l-*-30248"
+ "l-*-30246"
+ "l-*-30244"
+ "l-*-30242"
+ "l-*-30240"
+ "l-*-30238")))
(hygiene guile))
()))
- tmp-28643)
+ tmp-30776)
(syntax-violation
#f
"source expression failed to match any pattern"
- p-28561)))))))
- (quasicons-28377
- (lambda (x-28656 y-28657)
- (let ((tmp-28658 (list x-28656 y-28657)))
- (let ((tmp-28659 ($sc-dispatch tmp-28658 '(any any))))
- (if tmp-28659
+ 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-28661 y-28662)
- (let ((tmp-28664
- ($sc-dispatch y-28662 '(#(atom "quote") any))))
- (if tmp-28664
+ (lambda (x-30794 y-30795)
+ (let ((tmp-30797
+ ($sc-dispatch y-30795 '(#(atom "quote") any))))
+ (if tmp-30797
(@apply
- (lambda (dy-28668)
- (let ((tmp-28670
+ (lambda (dy-30801)
+ (let ((tmp-30803
($sc-dispatch
- x-28661
+ x-30794
'(#(atom "quote") any))))
- (if tmp-28670
+ (if tmp-30803
(@apply
- (lambda (dx-28674)
+ (lambda (dx-30807)
(list '#(syntax-object
"quote"
((top)
#(ribcage
#(dx)
#((top))
- #("l-*-28195"))
+ #("l-*-30328"))
#(ribcage
#(dy)
#((top))
- #("l-*-28191"))
+ #("l-*-30324"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("l-*-28185" "l-*-28186"))
+ #("l-*-30318" "l-*-30319"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("l-*-28180" "l-*-28181"))
+ #("l-*-30313" "l-*-30314"))
#(ribcage
(emit quasivector
quasilist*
@@ -24599,39 +24740,39 @@
(top)
(top)
(top))
- ("l-*-28117"
- "l-*-28115"
- "l-*-28113"
- "l-*-28111"
- "l-*-28109"
- "l-*-28107"
- "l-*-28105")))
+ ("l-*-30250"
+ "l-*-30248"
+ "l-*-30246"
+ "l-*-30244"
+ "l-*-30242"
+ "l-*-30240"
+ "l-*-30238")))
(hygiene guile))
- (cons dx-28674 dy-28668)))
- tmp-28670)
- (if (null? dy-28668)
+ (cons dx-30807 dy-30801)))
+ tmp-30803)
+ (if (null? dy-30801)
(list '#(syntax-object
"list"
((top)
#(ribcage
#(_)
#((top))
- #("l-*-28197"))
+ #("l-*-30330"))
#(ribcage
#(dy)
#((top))
- #("l-*-28191"))
+ #("l-*-30324"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("l-*-28185" "l-*-28186"))
+ #("l-*-30318" "l-*-30319"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("l-*-28180" "l-*-28181"))
+ #("l-*-30313" "l-*-30314"))
#(ribcage
(emit quasivector
quasilist*
@@ -24646,37 +24787,37 @@
(top)
(top)
(top))
- ("l-*-28117"
- "l-*-28115"
- "l-*-28113"
- "l-*-28111"
- "l-*-28109"
- "l-*-28107"
- "l-*-28105")))
+ ("l-*-30250"
+ "l-*-30248"
+ "l-*-30246"
+ "l-*-30244"
+ "l-*-30242"
+ "l-*-30240"
+ "l-*-30238")))
(hygiene guile))
- x-28661)
+ x-30794)
(list '#(syntax-object
"list*"
((top)
#(ribcage
#(_)
#((top))
- #("l-*-28197"))
+ #("l-*-30330"))
#(ribcage
#(dy)
#((top))
- #("l-*-28191"))
+ #("l-*-30324"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("l-*-28185" "l-*-28186"))
+ #("l-*-30318" "l-*-30319"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("l-*-28180" "l-*-28181"))
+ #("l-*-30313" "l-*-30314"))
#(ribcage
(emit quasivector
quasilist*
@@ -24691,42 +24832,42 @@
(top)
(top)
(top))
- ("l-*-28117"
- "l-*-28115"
- "l-*-28113"
- "l-*-28111"
- "l-*-28109"
- "l-*-28107"
- "l-*-28105")))
+ ("l-*-30250"
+ "l-*-30248"
+ "l-*-30246"
+ "l-*-30244"
+ "l-*-30242"
+ "l-*-30240"
+ "l-*-30238")))
(hygiene guile))
- x-28661
- y-28662)))))
- tmp-28664)
- (let ((tmp-28679
+ x-30794
+ y-30795)))))
+ tmp-30797)
+ (let ((tmp-30812
($sc-dispatch
- y-28662
+ y-30795
'(#(atom "list") . any))))
- (if tmp-28679
+ (if tmp-30812
(@apply
- (lambda (stuff-28683)
+ (lambda (stuff-30816)
(cons '#(syntax-object
"list"
((top)
#(ribcage
#(stuff)
#((top))
- #("l-*-28200"))
+ #("l-*-30333"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("l-*-28185" "l-*-28186"))
+ #("l-*-30318" "l-*-30319"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("l-*-28180" "l-*-28181"))
+ #("l-*-30313" "l-*-30314"))
#(ribcage
(emit quasivector
quasilist*
@@ -24741,41 +24882,41 @@
(top)
(top)
(top))
- ("l-*-28117"
- "l-*-28115"
- "l-*-28113"
- "l-*-28111"
- "l-*-28109"
- "l-*-28107"
- "l-*-28105")))
+ ("l-*-30250"
+ "l-*-30248"
+ "l-*-30246"
+ "l-*-30244"
+ "l-*-30242"
+ "l-*-30240"
+ "l-*-30238")))
(hygiene guile))
- (cons x-28661 stuff-28683)))
- tmp-28679)
- (let ((tmp-28684
+ (cons x-30794 stuff-30816)))
+ tmp-30812)
+ (let ((tmp-30817
($sc-dispatch
- y-28662
+ y-30795
'(#(atom "list*") . any))))
- (if tmp-28684
+ (if tmp-30817
(@apply
- (lambda (stuff-28688)
+ (lambda (stuff-30821)
(cons '#(syntax-object
"list*"
((top)
#(ribcage
#(stuff)
#((top))
- #("l-*-28203"))
+ #("l-*-30336"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("l-*-28185" "l-*-28186"))
+ #("l-*-30318" "l-*-30319"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("l-*-28180" "l-*-28181"))
+ #("l-*-30313" "l-*-30314"))
#(ribcage
(emit quasivector
quasilist*
@@ -24790,34 +24931,34 @@
(top)
(top)
(top))
- ("l-*-28117"
- "l-*-28115"
- "l-*-28113"
- "l-*-28111"
- "l-*-28109"
- "l-*-28107"
- "l-*-28105")))
+ ("l-*-30250"
+ "l-*-30248"
+ "l-*-30246"
+ "l-*-30244"
+ "l-*-30242"
+ "l-*-30240"
+ "l-*-30238")))
(hygiene guile))
- (cons x-28661 stuff-28688)))
- tmp-28684)
+ (cons x-30794 stuff-30821)))
+ tmp-30817)
(list '#(syntax-object
"list*"
((top)
#(ribcage
#(_)
#((top))
- #("l-*-28205"))
+ #("l-*-30338"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("l-*-28185" "l-*-28186"))
+ #("l-*-30318" "l-*-30319"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("l-*-28180" "l-*-28181"))
+ #("l-*-30313" "l-*-30314"))
#(ribcage
(emit quasivector
quasilist*
@@ -24832,29 +24973,29 @@
(top)
(top)
(top))
- ("l-*-28117"
- "l-*-28115"
- "l-*-28113"
- "l-*-28111"
- "l-*-28109"
- "l-*-28107"
- "l-*-28105")))
+ ("l-*-30250"
+ "l-*-30248"
+ "l-*-30246"
+ "l-*-30244"
+ "l-*-30242"
+ "l-*-30240"
+ "l-*-30238")))
(hygiene guile))
- x-28661
- y-28662))))))))
- tmp-28659)
+ x-30794
+ y-30795))))))))
+ tmp-30792)
(syntax-violation
#f
"source expression failed to match any pattern"
- tmp-28658))))))
- (quasiappend-28378
- (lambda (x-28699 y-28700)
- (let ((tmp-28702
- ($sc-dispatch y-28700 '(#(atom "quote") ()))))
- (if tmp-28702
+ 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-28699)
+ (if (null? x-30832)
'(#(syntax-object
"quote"
((top)
@@ -24862,7 +25003,7 @@
#(ribcage
#(x y)
#((top) (top))
- #("l-*-28209" "l-*-28210"))
+ #("l-*-30342" "l-*-30343"))
#(ribcage
(emit quasivector
quasilist*
@@ -24871,21 +25012,21 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("l-*-28117"
- "l-*-28115"
- "l-*-28113"
- "l-*-28111"
- "l-*-28109"
- "l-*-28107"
- "l-*-28105")))
+ ("l-*-30250"
+ "l-*-30248"
+ "l-*-30246"
+ "l-*-30244"
+ "l-*-30242"
+ "l-*-30240"
+ "l-*-30238")))
(hygiene guile))
())
- (if (null? (cdr x-28699))
- (car x-28699)
- (let ((tmp-28707 ($sc-dispatch x-28699 'each-any)))
- (if tmp-28707
+ (if (null? (cdr x-30832))
+ (car x-30832)
+ (let ((tmp-30840 ($sc-dispatch x-30832 'each-any)))
+ (if tmp-30840
(@apply
- (lambda (p-28711)
+ (lambda (p-30844)
(cons '#(syntax-object
"append"
((top)
@@ -24893,12 +25034,12 @@
#(ribcage
#(p)
#((top))
- #("l-*-28221"))
+ #("l-*-30354"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("l-*-28209" "l-*-28210"))
+ #("l-*-30342" "l-*-30343"))
#(ribcage
(emit quasivector
quasilist*
@@ -24913,29 +25054,29 @@
(top)
(top)
(top))
- ("l-*-28117"
- "l-*-28115"
- "l-*-28113"
- "l-*-28111"
- "l-*-28109"
- "l-*-28107"
- "l-*-28105")))
+ ("l-*-30250"
+ "l-*-30248"
+ "l-*-30246"
+ "l-*-30244"
+ "l-*-30242"
+ "l-*-30240"
+ "l-*-30238")))
(hygiene guile))
- p-28711))
- tmp-28707)
+ p-30844))
+ tmp-30840)
(syntax-violation
#f
"source expression failed to match any pattern"
- x-28699))))))
- tmp-28702)
- (if (null? x-28699)
- y-28700
- (let ((tmp-28719 (list x-28699 y-28700)))
- (let ((tmp-28720
- ($sc-dispatch tmp-28719 '(each-any any))))
- (if tmp-28720
+ 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-28722 y-28723)
+ (lambda (p-30855 y-30856)
(cons '#(syntax-object
"append"
((top)
@@ -24943,13 +25084,13 @@
#(ribcage
#(p y)
#((top) (top))
- #("l-*-28232" "l-*-28233"))
- #(ribcage #(_) #((top)) #("l-*-28224"))
+ #("l-*-30365" "l-*-30366"))
+ #(ribcage #(_) #((top)) #("l-*-30357"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("l-*-28209" "l-*-28210"))
+ #("l-*-30342" "l-*-30343"))
#(ribcage
(emit quasivector
quasilist*
@@ -24964,44 +25105,44 @@
(top)
(top)
(top))
- ("l-*-28117"
- "l-*-28115"
- "l-*-28113"
- "l-*-28111"
- "l-*-28109"
- "l-*-28107"
- "l-*-28105")))
+ ("l-*-30250"
+ "l-*-30248"
+ "l-*-30246"
+ "l-*-30244"
+ "l-*-30242"
+ "l-*-30240"
+ "l-*-30238")))
(hygiene guile))
- (append p-28722 (list y-28723))))
- tmp-28720)
+ (append p-30855 (list y-30856))))
+ tmp-30853)
(syntax-violation
#f
"source expression failed to match any pattern"
- tmp-28719)))))))))
- (quasilist*-28379
- (lambda (x-28727 y-28728)
+ tmp-30852)))))))))
+ (quasilist*-30512
+ (lambda (x-30860 y-30861)
(letrec*
- ((f-28729
- (lambda (x-28818)
- (if (null? x-28818)
- y-28728
- (quasicons-28377
- (car x-28818)
- (f-28729 (cdr x-28818)))))))
- (f-28729 x-28727))))
- (emit-28381
- (lambda (x-28821)
- (let ((tmp-28823
- ($sc-dispatch x-28821 '(#(atom "quote") any))))
- (if tmp-28823
+ ((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-28827)
+ (lambda (x-30960)
(list '#(syntax-object
quote
((top)
- #(ribcage #(x) #((top)) #("l-*-28299"))
+ #(ribcage #(x) #((top)) #("l-*-30432"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-28296"))
+ #(ribcage #(x) #((top)) #("l-*-30429"))
#(ribcage
(emit quasivector
quasilist*
@@ -25010,45 +25151,45 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("l-*-28117"
- "l-*-28115"
- "l-*-28113"
- "l-*-28111"
- "l-*-28109"
- "l-*-28107"
- "l-*-28105")))
+ ("l-*-30250"
+ "l-*-30248"
+ "l-*-30246"
+ "l-*-30244"
+ "l-*-30242"
+ "l-*-30240"
+ "l-*-30238")))
(hygiene guile))
- x-28827))
- tmp-28823)
- (let ((tmp-28828
+ x-30960))
+ tmp-30956)
+ (let ((tmp-30961
($sc-dispatch
- x-28821
+ x-30954
'(#(atom "list") . each-any))))
- (if tmp-28828
+ (if tmp-30961
(@apply
- (lambda (x-28832)
- (let ((tmp-28833 (map emit-28381 x-28832)))
- (let ((tmp-28834 ($sc-dispatch tmp-28833 'each-any)))
- (if tmp-28834
+ (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-28304-28836)
+ (lambda (t-30437-30969)
(cons '#(syntax-object
list
((top)
#(ribcage () () ())
#(ribcage
- #(t-28304)
- #((m-*-28305 top))
- #("l-*-28309"))
+ #(t-30437)
+ #((m-*-30438 top))
+ #("l-*-30442"))
#(ribcage
#(x)
#((top))
- #("l-*-28302"))
+ #("l-*-30435"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-28296"))
+ #("l-*-30429"))
#(ribcage
(emit quasivector
quasilist*
@@ -25063,70 +25204,70 @@
(top)
(top)
(top))
- ("l-*-28117"
- "l-*-28115"
- "l-*-28113"
- "l-*-28111"
- "l-*-28109"
- "l-*-28107"
- "l-*-28105")))
+ ("l-*-30250"
+ "l-*-30248"
+ "l-*-30246"
+ "l-*-30244"
+ "l-*-30242"
+ "l-*-30240"
+ "l-*-30238")))
(hygiene guile))
- t-28304-28836))
- tmp-28834)
+ t-30437-30969))
+ tmp-30967)
(syntax-violation
#f
"source expression failed to match any pattern"
- tmp-28833)))))
- tmp-28828)
- (let ((tmp-28837
+ tmp-30966)))))
+ tmp-30961)
+ (let ((tmp-30970
($sc-dispatch
- x-28821
+ x-30954
'(#(atom "list*") . #(each+ any (any) ())))))
- (if tmp-28837
+ (if tmp-30970
(@apply
- (lambda (x-28841 y-28842)
+ (lambda (x-30974 y-30975)
(letrec*
- ((f-28843
- (lambda (x*-28846)
- (if (null? x*-28846)
- (emit-28381 y-28842)
- (let ((tmp-28847
- (list (emit-28381 (car x*-28846))
- (f-28843 (cdr x*-28846)))))
- (let ((tmp-28848
+ ((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-28847
+ tmp-30980
'(any any))))
- (if tmp-28848
+ (if tmp-30981
(@apply
- (lambda (t-28324-28850
- t-28323-28851)
+ (lambda (t-30457-30983
+ t-30456-30984)
(list '#(syntax-object
cons
((top)
#(ribcage () () ())
#(ribcage
- #(t-28324 t-28323)
- #((m-*-28325 top)
- (m-*-28325 top))
- #("l-*-28329"
- "l-*-28330"))
+ #(t-30457 t-30456)
+ #((m-*-30458 top)
+ (m-*-30458 top))
+ #("l-*-30462"
+ "l-*-30463"))
#(ribcage () () ())
#(ribcage
#(f x*)
#((top) (top))
- #("l-*-28318"
- "l-*-28319"))
+ #("l-*-30451"
+ "l-*-30452"))
#(ribcage
#(x y)
#((top) (top))
- #("l-*-28314"
- "l-*-28315"))
+ #("l-*-30447"
+ "l-*-30448"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-28296"))
+ #("l-*-30429"))
#(ribcage
(emit quasivector
quasilist*
@@ -25141,53 +25282,53 @@
(top)
(top)
(top))
- ("l-*-28117"
- "l-*-28115"
- "l-*-28113"
- "l-*-28111"
- "l-*-28109"
- "l-*-28107"
- "l-*-28105")))
+ ("l-*-30250"
+ "l-*-30248"
+ "l-*-30246"
+ "l-*-30244"
+ "l-*-30242"
+ "l-*-30240"
+ "l-*-30238")))
(hygiene guile))
- t-28324-28850
- t-28323-28851))
- tmp-28848)
+ t-30457-30983
+ t-30456-30984))
+ tmp-30981)
(syntax-violation
#f
"source expression failed to match any pattern"
- tmp-28847))))))))
- (f-28843 x-28841)))
- tmp-28837)
- (let ((tmp-28852
+ tmp-30980))))))))
+ (f-30976 x-30974)))
+ tmp-30970)
+ (let ((tmp-30985
($sc-dispatch
- x-28821
+ x-30954
'(#(atom "append") . each-any))))
- (if tmp-28852
+ (if tmp-30985
(@apply
- (lambda (x-28856)
- (let ((tmp-28857 (map emit-28381 x-28856)))
- (let ((tmp-28858
- ($sc-dispatch tmp-28857 'each-any)))
- (if tmp-28858
+ (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-28336-28860)
+ (lambda (t-30469-30993)
(cons '#(syntax-object
append
((top)
#(ribcage () () ())
#(ribcage
- #(t-28336)
- #((m-*-28337 top))
- #("l-*-28341"))
+ #(t-30469)
+ #((m-*-30470 top))
+ #("l-*-30474"))
#(ribcage
#(x)
#((top))
- #("l-*-28334"))
+ #("l-*-30467"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-28296"))
+ #("l-*-30429"))
#(ribcage
(emit quasivector
quasilist*
@@ -25202,53 +25343,53 @@
(top)
(top)
(top))
- ("l-*-28117"
- "l-*-28115"
- "l-*-28113"
- "l-*-28111"
- "l-*-28109"
- "l-*-28107"
- "l-*-28105")))
+ ("l-*-30250"
+ "l-*-30248"
+ "l-*-30246"
+ "l-*-30244"
+ "l-*-30242"
+ "l-*-30240"
+ "l-*-30238")))
(hygiene guile))
- t-28336-28860))
- tmp-28858)
+ t-30469-30993))
+ tmp-30991)
(syntax-violation
#f
"source expression failed to match any pattern"
- tmp-28857)))))
- tmp-28852)
- (let ((tmp-28861
+ tmp-30990)))))
+ tmp-30985)
+ (let ((tmp-30994
($sc-dispatch
- x-28821
+ x-30954
'(#(atom "vector") . each-any))))
- (if tmp-28861
+ (if tmp-30994
(@apply
- (lambda (x-28865)
- (let ((tmp-28866 (map emit-28381 x-28865)))
- (let ((tmp-28867
+ (lambda (x-30998)
+ (let ((tmp-30999 (map emit-30514 x-30998)))
+ (let ((tmp-31000
($sc-dispatch
- tmp-28866
+ tmp-30999
'each-any)))
- (if tmp-28867
+ (if tmp-31000
(@apply
- (lambda (t-28348-28869)
+ (lambda (t-30481-31002)
(cons '#(syntax-object
vector
((top)
#(ribcage () () ())
#(ribcage
- #(t-28348)
- #((m-*-28349 top))
- #("l-*-28353"))
+ #(t-30481)
+ #((m-*-30482 top))
+ #("l-*-30486"))
#(ribcage
#(x)
#((top))
- #("l-*-28346"))
+ #("l-*-30479"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-28296"))
+ #("l-*-30429"))
#(ribcage
(emit quasivector
quasilist*
@@ -25263,46 +25404,46 @@
(top)
(top)
(top))
- ("l-*-28117"
- "l-*-28115"
- "l-*-28113"
- "l-*-28111"
- "l-*-28109"
- "l-*-28107"
- "l-*-28105")))
+ ("l-*-30250"
+ "l-*-30248"
+ "l-*-30246"
+ "l-*-30244"
+ "l-*-30242"
+ "l-*-30240"
+ "l-*-30238")))
(hygiene guile))
- t-28348-28869))
- tmp-28867)
+ t-30481-31002))
+ tmp-31000)
(syntax-violation
#f
"source expression failed to match any pattern"
- tmp-28866)))))
- tmp-28861)
- (let ((tmp-28870
+ tmp-30999)))))
+ tmp-30994)
+ (let ((tmp-31003
($sc-dispatch
- x-28821
+ x-30954
'(#(atom "list->vector") any))))
- (if tmp-28870
+ (if tmp-31003
(@apply
- (lambda (x-28874)
- (let ((tmp-28875 (emit-28381 x-28874)))
+ (lambda (x-31007)
+ (let ((tmp-31008 (emit-30514 x-31007)))
(list '#(syntax-object
list->vector
((top)
#(ribcage () () ())
#(ribcage
- #(t-28360)
- #((m-*-28361 top))
- #("l-*-28364"))
+ #(t-30493)
+ #((m-*-30494 top))
+ #("l-*-30497"))
#(ribcage
#(x)
#((top))
- #("l-*-28358"))
+ #("l-*-30491"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-28296"))
+ #("l-*-30429"))
#(ribcage
(emit quasivector
quasilist*
@@ -25317,183 +25458,183 @@
(top)
(top)
(top))
- ("l-*-28117"
- "l-*-28115"
- "l-*-28113"
- "l-*-28111"
- "l-*-28109"
- "l-*-28107"
- "l-*-28105")))
+ ("l-*-30250"
+ "l-*-30248"
+ "l-*-30246"
+ "l-*-30244"
+ "l-*-30242"
+ "l-*-30240"
+ "l-*-30238")))
(hygiene guile))
- tmp-28875)))
- tmp-28870)
- (let ((tmp-28878
+ tmp-31008)))
+ tmp-31003)
+ (let ((tmp-31011
($sc-dispatch
- x-28821
+ x-30954
'(#(atom "value") any))))
- (if tmp-28878
+ (if tmp-31011
(@apply
- (lambda (x-28882) x-28882)
- tmp-28878)
+ (lambda (x-31015) x-31015)
+ tmp-31011)
(syntax-violation
#f
"source expression failed to match any pattern"
- x-28821))))))))))))))))))
- (lambda (x-28382)
- (let ((tmp-28384 ($sc-dispatch x-28382 '(_ any))))
- (if tmp-28384
+ x-30954))))))))))))))))))
+ (lambda (x-30515)
+ (let ((tmp-30517 ($sc-dispatch x-30515 '(_ any))))
+ (if tmp-30517
(@apply
- (lambda (e-28388)
- (emit-28381 (quasi-28375 e-28388 0)))
- tmp-28384)
+ (lambda (e-30521)
+ (emit-30514 (quasi-30508 e-30521 0)))
+ tmp-30517)
(syntax-violation
#f
"source expression failed to match any pattern"
- x-28382)))))))
+ x-30515)))))))
(define include
(make-syntax-transformer
'include
'macro
- (lambda (x-28937)
+ (lambda (x-31070)
(letrec*
- ((read-file-28938
- (lambda (fn-29047 k-29048)
- (let ((p-29049 (open-input-file fn-29047)))
+ ((read-file-31071
+ (lambda (fn-31180 k-31181)
+ (let ((p-31182 (open-input-file fn-31180)))
(letrec*
- ((f-29050
- (lambda (x-29104 result-29105)
- (if (eof-object? x-29104)
+ ((f-31183
+ (lambda (x-31237 result-31238)
+ (if (eof-object? x-31237)
(begin
- (close-input-port p-29049)
- (reverse result-29105))
- (f-29050
- (read p-29049)
- (cons (datum->syntax k-29048 x-29104)
- result-29105))))))
- (f-29050 (read p-29049) '()))))))
- (let ((tmp-28940 ($sc-dispatch x-28937 '(any any))))
- (if tmp-28940
+ (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-28944 filename-28945)
- (let ((fn-28946 (syntax->datum filename-28945)))
- (let ((tmp-28947
- (read-file-28938 fn-28946 filename-28945)))
- (let ((tmp-28948 ($sc-dispatch tmp-28947 'each-any)))
- (if tmp-28948
+ (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-28966)
+ (lambda (exp-31099)
(cons '#(syntax-object
begin
((top)
#(ribcage () () ())
- #(ribcage #(exp) #((top)) #("l-*-28934"))
+ #(ribcage #(exp) #((top)) #("l-*-31067"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("l-*-28929"))
+ #(ribcage #(fn) #((top)) #("l-*-31062"))
#(ribcage
#(k filename)
#((top) (top))
- #("l-*-28925" "l-*-28926"))
+ #("l-*-31058" "l-*-31059"))
#(ribcage
(read-file)
((top))
- ("l-*-28909"))
- #(ribcage #(x) #((top)) #("l-*-28908")))
+ ("l-*-31042"))
+ #(ribcage #(x) #((top)) #("l-*-31041")))
(hygiene guile))
- exp-28966))
- tmp-28948)
+ exp-31099))
+ tmp-31081)
(syntax-violation
#f
"source expression failed to match any pattern"
- tmp-28947))))))
- tmp-28940)
+ tmp-31080))))))
+ tmp-31073)
(syntax-violation
#f
"source expression failed to match any pattern"
- x-28937)))))))
+ x-31070)))))))
(define include-from-path
(make-syntax-transformer
'include-from-path
'macro
- (lambda (x-29124)
- (let ((tmp-29126 ($sc-dispatch x-29124 '(any any))))
- (if tmp-29126
+ (lambda (x-31257)
+ (let ((tmp-31259 ($sc-dispatch x-31257 '(any any))))
+ (if tmp-31259
(@apply
- (lambda (k-29130 filename-29131)
- (let ((fn-29132 (syntax->datum filename-29131)))
- (let ((tmp-29133
+ (lambda (k-31263 filename-31264)
+ (let ((fn-31265 (syntax->datum filename-31264)))
+ (let ((tmp-31266
(datum->syntax
- filename-29131
- (let ((t-29136 (%search-load-path fn-29132)))
- (if t-29136
- t-29136
+ 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-29124
- filename-29131))))))
+ x-31257
+ filename-31264))))))
(list '#(syntax-object
include
((top)
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("l-*-29118"))
+ #(ribcage #(fn) #((top)) #("l-*-31251"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("l-*-29114"))
+ #(ribcage #(fn) #((top)) #("l-*-31247"))
#(ribcage
#(k filename)
#((top) (top))
- #("l-*-29110" "l-*-29111"))
+ #("l-*-31243" "l-*-31244"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-29107")))
+ #(ribcage #(x) #((top)) #("l-*-31240")))
(hygiene guile))
- tmp-29133))))
- tmp-29126)
+ tmp-31266))))
+ tmp-31259)
(syntax-violation
#f
"source expression failed to match any pattern"
- x-29124))))))
+ x-31257))))))
(define unquote
(make-syntax-transformer
'unquote
'macro
- (lambda (x-29145)
+ (lambda (x-31278)
(syntax-violation
'unquote
"expression not valid outside of quasiquote"
- x-29145))))
+ x-31278))))
(define unquote-splicing
(make-syntax-transformer
'unquote-splicing
'macro
- (lambda (x-29148)
+ (lambda (x-31281)
(syntax-violation
'unquote-splicing
"expression not valid outside of quasiquote"
- x-29148))))
+ x-31281))))
(define case
(make-syntax-transformer
'case
'macro
- (lambda (x-29204)
- (let ((tmp-29206
- ($sc-dispatch x-29204 '(_ any any . each-any))))
- (if tmp-29206
+ (lambda (x-31337)
+ (let ((tmp-31339
+ ($sc-dispatch x-31337 '(_ any any . each-any))))
+ (if tmp-31339
(@apply
- (lambda (e-29210 m1-29211 m2-29212)
- (let ((tmp-29213
+ (lambda (e-31343 m1-31344 m2-31345)
+ (let ((tmp-31346
(letrec*
- ((f-29255
- (lambda (clause-29258 clauses-29259)
- (if (null? clauses-29259)
- (let ((tmp-29261
+ ((f-31388
+ (lambda (clause-31391 clauses-31392)
+ (if (null? clauses-31392)
+ (let ((tmp-31394
($sc-dispatch
- clause-29258
+ clause-31391
'(#(free-id
#(syntax-object
else
@@ -25502,89 +25643,89 @@
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("l-*-29163"
- "l-*-29164"
- "l-*-29165"))
+ #("l-*-31296"
+ "l-*-31297"
+ "l-*-31298"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("l-*-29153"
- "l-*-29154"
- "l-*-29155"))
+ #("l-*-31286"
+ "l-*-31287"
+ "l-*-31288"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-29150")))
+ #("l-*-31283")))
(hygiene guile)))
any
.
each-any))))
- (if tmp-29261
+ (if tmp-31394
(@apply
- (lambda (e1-29265 e2-29266)
+ (lambda (e1-31398 e2-31399)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("l-*-29172" "l-*-29173"))
+ #("l-*-31305" "l-*-31306"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("l-*-29163"
- "l-*-29164"
- "l-*-29165"))
+ #("l-*-31296"
+ "l-*-31297"
+ "l-*-31298"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("l-*-29153"
- "l-*-29154"
- "l-*-29155"))
+ #("l-*-31286"
+ "l-*-31287"
+ "l-*-31288"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-29150")))
+ #("l-*-31283")))
(hygiene guile))
- (cons e1-29265 e2-29266)))
- tmp-29261)
- (let ((tmp-29267
+ (cons e1-31398 e2-31399)))
+ tmp-31394)
+ (let ((tmp-31400
($sc-dispatch
- clause-29258
+ clause-31391
'(each-any any . each-any))))
- (if tmp-29267
+ (if tmp-31400
(@apply
- (lambda (k-29271 e1-29272 e2-29273)
+ (lambda (k-31404 e1-31405 e2-31406)
(list '#(syntax-object
if
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("l-*-29178"
- "l-*-29179"
- "l-*-29180"))
+ #("l-*-31311"
+ "l-*-31312"
+ "l-*-31313"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("l-*-29163"
- "l-*-29164"
- "l-*-29165"))
+ #("l-*-31296"
+ "l-*-31297"
+ "l-*-31298"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("l-*-29153"
- "l-*-29154"
- "l-*-29155"))
+ #("l-*-31286"
+ "l-*-31287"
+ "l-*-31288"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-29150")))
+ #("l-*-31283")))
(hygiene guile))
(list '#(syntax-object
memv
@@ -25594,9 +25735,9 @@
#((top)
(top)
(top))
- #("l-*-29178"
- "l-*-29179"
- "l-*-29180"))
+ #("l-*-31311"
+ "l-*-31312"
+ "l-*-31313"))
#(ribcage () () ())
#(ribcage
#(f
@@ -25605,22 +25746,22 @@
#((top)
(top)
(top))
- #("l-*-29163"
- "l-*-29164"
- "l-*-29165"))
+ #("l-*-31296"
+ "l-*-31297"
+ "l-*-31298"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("l-*-29153"
- "l-*-29154"
- "l-*-29155"))
+ #("l-*-31286"
+ "l-*-31287"
+ "l-*-31288"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-29150")))
+ #("l-*-31283")))
(hygiene guile))
'#(syntax-object
t
@@ -25630,9 +25771,9 @@
#((top)
(top)
(top))
- #("l-*-29178"
- "l-*-29179"
- "l-*-29180"))
+ #("l-*-31311"
+ "l-*-31312"
+ "l-*-31313"))
#(ribcage () () ())
#(ribcage
#(f
@@ -25641,22 +25782,22 @@
#((top)
(top)
(top))
- #("l-*-29163"
- "l-*-29164"
- "l-*-29165"))
+ #("l-*-31296"
+ "l-*-31297"
+ "l-*-31298"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("l-*-29153"
- "l-*-29154"
- "l-*-29155"))
+ #("l-*-31286"
+ "l-*-31287"
+ "l-*-31288"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-29150")))
+ #("l-*-31283")))
(hygiene guile))
(list '#(syntax-object
quote
@@ -25666,9 +25807,9 @@
#((top)
(top)
(top))
- #("l-*-29178"
- "l-*-29179"
- "l-*-29180"))
+ #("l-*-31311"
+ "l-*-31312"
+ "l-*-31313"))
#(ribcage
()
()
@@ -25680,17 +25821,17 @@
#((top)
(top)
(top))
- #("l-*-29163"
- "l-*-29164"
- "l-*-29165"))
+ #("l-*-31296"
+ "l-*-31297"
+ "l-*-31298"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("l-*-29153"
- "l-*-29154"
- "l-*-29155"))
+ #("l-*-31286"
+ "l-*-31287"
+ "l-*-31288"))
#(ribcage
()
()
@@ -25698,10 +25839,10 @@
#(ribcage
#(x)
#((top))
- #("l-*-29150")))
+ #("l-*-31283")))
(hygiene
guile))
- k-29271))
+ k-31404))
(cons '#(syntax-object
begin
((top)
@@ -25710,9 +25851,9 @@
#((top)
(top)
(top))
- #("l-*-29178"
- "l-*-29179"
- "l-*-29180"))
+ #("l-*-31311"
+ "l-*-31312"
+ "l-*-31313"))
#(ribcage () () ())
#(ribcage
#(f
@@ -25721,74 +25862,74 @@
#((top)
(top)
(top))
- #("l-*-29163"
- "l-*-29164"
- "l-*-29165"))
+ #("l-*-31296"
+ "l-*-31297"
+ "l-*-31298"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("l-*-29153"
- "l-*-29154"
- "l-*-29155"))
+ #("l-*-31286"
+ "l-*-31287"
+ "l-*-31288"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-29150")))
+ #("l-*-31283")))
(hygiene guile))
- (cons e1-29272
- e2-29273))))
- tmp-29267)
+ (cons e1-31405
+ e2-31406))))
+ tmp-31400)
(syntax-violation
'case
"bad clause"
- x-29204
- clause-29258)))))
- (let ((tmp-29281
- (f-29255
- (car clauses-29259)
- (cdr clauses-29259))))
- (let ((tmp-29284
+ x-31337
+ clause-31391)))))
+ (let ((tmp-31414
+ (f-31388
+ (car clauses-31392)
+ (cdr clauses-31392))))
+ (let ((tmp-31417
($sc-dispatch
- clause-29258
+ clause-31391
'(each-any any . each-any))))
- (if tmp-29284
+ (if tmp-31417
(@apply
- (lambda (k-29288 e1-29289 e2-29290)
+ (lambda (k-31421 e1-31422 e2-31423)
(list '#(syntax-object
if
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("l-*-29194"
- "l-*-29195"
- "l-*-29196"))
+ #("l-*-31327"
+ "l-*-31328"
+ "l-*-31329"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("l-*-29190"))
+ #("l-*-31323"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("l-*-29163"
- "l-*-29164"
- "l-*-29165"))
+ #("l-*-31296"
+ "l-*-31297"
+ "l-*-31298"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("l-*-29153"
- "l-*-29154"
- "l-*-29155"))
+ #("l-*-31286"
+ "l-*-31287"
+ "l-*-31288"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-29150")))
+ #("l-*-31283")))
(hygiene guile))
(list '#(syntax-object
memv
@@ -25796,32 +25937,32 @@
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("l-*-29194"
- "l-*-29195"
- "l-*-29196"))
+ #("l-*-31327"
+ "l-*-31328"
+ "l-*-31329"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("l-*-29190"))
+ #("l-*-31323"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("l-*-29163"
- "l-*-29164"
- "l-*-29165"))
+ #("l-*-31296"
+ "l-*-31297"
+ "l-*-31298"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("l-*-29153"
- "l-*-29154"
- "l-*-29155"))
+ #("l-*-31286"
+ "l-*-31287"
+ "l-*-31288"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-29150")))
+ #("l-*-31283")))
(hygiene guile))
'#(syntax-object
t
@@ -25829,32 +25970,32 @@
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("l-*-29194"
- "l-*-29195"
- "l-*-29196"))
+ #("l-*-31327"
+ "l-*-31328"
+ "l-*-31329"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("l-*-29190"))
+ #("l-*-31323"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("l-*-29163"
- "l-*-29164"
- "l-*-29165"))
+ #("l-*-31296"
+ "l-*-31297"
+ "l-*-31298"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("l-*-29153"
- "l-*-29154"
- "l-*-29155"))
+ #("l-*-31286"
+ "l-*-31287"
+ "l-*-31288"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-29150")))
+ #("l-*-31283")))
(hygiene guile))
(list '#(syntax-object
quote
@@ -25864,9 +26005,9 @@
#((top)
(top)
(top))
- #("l-*-29194"
- "l-*-29195"
- "l-*-29196"))
+ #("l-*-31327"
+ "l-*-31328"
+ "l-*-31329"))
#(ribcage
()
()
@@ -25874,7 +26015,7 @@
#(ribcage
#(rest)
#((top))
- #("l-*-29190"))
+ #("l-*-31323"))
#(ribcage
()
()
@@ -25886,17 +26027,17 @@
#((top)
(top)
(top))
- #("l-*-29163"
- "l-*-29164"
- "l-*-29165"))
+ #("l-*-31296"
+ "l-*-31297"
+ "l-*-31298"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("l-*-29153"
- "l-*-29154"
- "l-*-29155"))
+ #("l-*-31286"
+ "l-*-31287"
+ "l-*-31288"))
#(ribcage
()
()
@@ -25904,63 +26045,63 @@
#(ribcage
#(x)
#((top))
- #("l-*-29150")))
+ #("l-*-31283")))
(hygiene guile))
- k-29288))
+ k-31421))
(cons '#(syntax-object
begin
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("l-*-29194"
- "l-*-29195"
- "l-*-29196"))
+ #("l-*-31327"
+ "l-*-31328"
+ "l-*-31329"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("l-*-29190"))
+ #("l-*-31323"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("l-*-29163"
- "l-*-29164"
- "l-*-29165"))
+ #("l-*-31296"
+ "l-*-31297"
+ "l-*-31298"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("l-*-29153"
- "l-*-29154"
- "l-*-29155"))
+ #("l-*-31286"
+ "l-*-31287"
+ "l-*-31288"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-29150")))
+ #("l-*-31283")))
(hygiene guile))
- (cons e1-29289 e2-29290))
- tmp-29281))
- tmp-29284)
+ (cons e1-31422 e2-31423))
+ tmp-31414))
+ tmp-31417)
(syntax-violation
'case
"bad clause"
- x-29204
- clause-29258))))))))
- (f-29255 m1-29211 m2-29212))))
- (let ((body-29214 tmp-29213))
+ 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-*-29161"))
+ #(ribcage #(body) #((top)) #("l-*-31294"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("l-*-29153" "l-*-29154" "l-*-29155"))
+ #("l-*-31286" "l-*-31287" "l-*-31288"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-29150")))
+ #(ribcage #(x) #((top)) #("l-*-31283")))
(hygiene guile))
(list (list '#(syntax-object
t
@@ -25969,122 +26110,122 @@
#(ribcage
#(body)
#((top))
- #("l-*-29161"))
+ #("l-*-31294"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("l-*-29153"
- "l-*-29154"
- "l-*-29155"))
+ #("l-*-31286"
+ "l-*-31287"
+ "l-*-31288"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-29150")))
+ #("l-*-31283")))
(hygiene guile))
- e-29210))
- body-29214))))
- tmp-29206)
+ e-31343))
+ body-31347))))
+ tmp-31339)
(syntax-violation
#f
"source expression failed to match any pattern"
- x-29204))))))
+ x-31337))))))
(define make-variable-transformer
- (lambda (proc-29308)
- (if (procedure? proc-29308)
+ (lambda (proc-31441)
+ (if (procedure? proc-31441)
(letrec*
- ((trans-29309
- (lambda (x-29315) (proc-29308 x-29315))))
+ ((trans-31442
+ (lambda (x-31448) (proc-31441 x-31448))))
(begin
(set-procedure-property!
- trans-29309
+ trans-31442
'variable-transformer
#t)
- trans-29309))
+ trans-31442))
(error "variable transformer not a procedure"
- proc-29308))))
+ proc-31441))))
(define identifier-syntax
(make-syntax-transformer
'identifier-syntax
'macro
- (lambda (x-29347)
- (let ((tmp-29349 ($sc-dispatch x-29347 '(_ any))))
- (if tmp-29349
+ (lambda (x-31480)
+ (let ((tmp-31482 ($sc-dispatch x-31480 '(_ any))))
+ (if tmp-31482
(@apply
- (lambda (e-29353)
+ (lambda (e-31486)
(list '#(syntax-object
lambda
((top)
- #(ribcage #(e) #((top)) #("l-*-29322"))
+ #(ribcage #(e) #((top)) #("l-*-31455"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-29319")))
+ #(ribcage #(x) #((top)) #("l-*-31452")))
(hygiene guile))
'(#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("l-*-29322"))
+ #(ribcage #(e) #((top)) #("l-*-31455"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-29319")))
+ #(ribcage #(x) #((top)) #("l-*-31452")))
(hygiene guile)))
'#((#(syntax-object
macro-type
((top)
- #(ribcage #(e) #((top)) #("l-*-29322"))
+ #(ribcage #(e) #((top)) #("l-*-31455"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-29319")))
+ #(ribcage #(x) #((top)) #("l-*-31452")))
(hygiene guile))
.
#(syntax-object
identifier-syntax
((top)
- #(ribcage #(e) #((top)) #("l-*-29322"))
+ #(ribcage #(e) #((top)) #("l-*-31455"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-29319")))
+ #(ribcage #(x) #((top)) #("l-*-31452")))
(hygiene guile))))
(list '#(syntax-object
syntax-case
((top)
- #(ribcage #(e) #((top)) #("l-*-29322"))
+ #(ribcage #(e) #((top)) #("l-*-31455"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-29319")))
+ #(ribcage #(x) #((top)) #("l-*-31452")))
(hygiene guile))
'#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("l-*-29322"))
+ #(ribcage #(e) #((top)) #("l-*-31455"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-29319")))
+ #(ribcage #(x) #((top)) #("l-*-31452")))
(hygiene guile))
'()
(list '#(syntax-object
id
((top)
- #(ribcage #(e) #((top)) #("l-*-29322"))
+ #(ribcage #(e) #((top)) #("l-*-31455"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-29319")))
+ #(ribcage #(x) #((top)) #("l-*-31452")))
(hygiene guile))
'(#(syntax-object
identifier?
((top)
- #(ribcage #(e) #((top)) #("l-*-29322"))
+ #(ribcage #(e) #((top)) #("l-*-31455"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-29319")))
+ #(ribcage #(x) #((top)) #("l-*-31452")))
(hygiene guile))
(#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("l-*-29322"))
+ #(ribcage #(e) #((top)) #("l-*-31455"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-29319")))
+ #(ribcage #(x) #((top)) #("l-*-31452")))
(hygiene guile))
#(syntax-object
id
((top)
- #(ribcage #(e) #((top)) #("l-*-29322"))
+ #(ribcage #(e) #((top)) #("l-*-31455"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-29319")))
+ #(ribcage #(x) #((top)) #("l-*-31452")))
(hygiene guile))))
(list '#(syntax-object
syntax
@@ -26092,34 +26233,34 @@
#(ribcage
#(e)
#((top))
- #("l-*-29322"))
+ #("l-*-31455"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-29319")))
+ #("l-*-31452")))
(hygiene guile))
- e-29353))
+ e-31486))
(list '(#(syntax-object
_
((top)
- #(ribcage #(e) #((top)) #("l-*-29322"))
+ #(ribcage #(e) #((top)) #("l-*-31455"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-29319")))
+ #(ribcage #(x) #((top)) #("l-*-31452")))
(hygiene guile))
#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("l-*-29322"))
+ #(ribcage #(e) #((top)) #("l-*-31455"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-29319")))
+ #(ribcage #(x) #((top)) #("l-*-31452")))
(hygiene guile))
#(syntax-object
...
((top)
- #(ribcage #(e) #((top)) #("l-*-29322"))
+ #(ribcage #(e) #((top)) #("l-*-31455"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-29319")))
+ #(ribcage #(x) #((top)) #("l-*-31452")))
(hygiene guile)))
(list '#(syntax-object
syntax
@@ -26127,26 +26268,26 @@
#(ribcage
#(e)
#((top))
- #("l-*-29322"))
+ #("l-*-31455"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-29319")))
+ #("l-*-31452")))
(hygiene guile))
- (cons e-29353
+ (cons e-31486
'(#(syntax-object
x
((top)
#(ribcage
#(e)
#((top))
- #("l-*-29322"))
+ #("l-*-31455"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-29319")))
+ #("l-*-31452")))
(hygiene guile))
#(syntax-object
...
@@ -26154,59 +26295,59 @@
#(ribcage
#(e)
#((top))
- #("l-*-29322"))
+ #("l-*-31455"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-29319")))
+ #("l-*-31452")))
(hygiene guile)))))))))
- tmp-29349)
- (let ((tmp-29354
+ tmp-31482)
+ (let ((tmp-31487
($sc-dispatch
- x-29347
+ x-31480
'(_ (any any)
((#(free-id
#(syntax-object
set!
((top)
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-29319")))
+ #(ribcage #(x) #((top)) #("l-*-31452")))
(hygiene guile)))
any
any)
any)))))
- (if (if tmp-29354
+ (if (if tmp-31487
(@apply
- (lambda (id-29358
- exp1-29359
- var-29360
- val-29361
- exp2-29362)
- (if (identifier? id-29358)
- (identifier? var-29360)
+ (lambda (id-31491
+ exp1-31492
+ var-31493
+ val-31494
+ exp2-31495)
+ (if (identifier? id-31491)
+ (identifier? var-31493)
#f))
- tmp-29354)
+ tmp-31487)
#f)
(@apply
- (lambda (id-29363
- exp1-29364
- var-29365
- val-29366
- exp2-29367)
+ (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-*-29337"
- "l-*-29338"
- "l-*-29339"
- "l-*-29340"
- "l-*-29341"))
+ #("l-*-31470"
+ "l-*-31471"
+ "l-*-31472"
+ "l-*-31473"
+ "l-*-31474"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-29319")))
+ #(ribcage #(x) #((top)) #("l-*-31452")))
(hygiene guile))
(list '#(syntax-object
lambda
@@ -26214,13 +26355,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("l-*-29337"
- "l-*-29338"
- "l-*-29339"
- "l-*-29340"
- "l-*-29341"))
+ #("l-*-31470"
+ "l-*-31471"
+ "l-*-31472"
+ "l-*-31473"
+ "l-*-31474"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-29319")))
+ #(ribcage #(x) #((top)) #("l-*-31452")))
(hygiene guile))
'(#(syntax-object
x
@@ -26228,13 +26369,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("l-*-29337"
- "l-*-29338"
- "l-*-29339"
- "l-*-29340"
- "l-*-29341"))
+ #("l-*-31470"
+ "l-*-31471"
+ "l-*-31472"
+ "l-*-31473"
+ "l-*-31474"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-29319")))
+ #(ribcage #(x) #((top)) #("l-*-31452")))
(hygiene guile)))
'#((#(syntax-object
macro-type
@@ -26242,13 +26383,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("l-*-29337"
- "l-*-29338"
- "l-*-29339"
- "l-*-29340"
- "l-*-29341"))
+ #("l-*-31470"
+ "l-*-31471"
+ "l-*-31472"
+ "l-*-31473"
+ "l-*-31474"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-29319")))
+ #(ribcage #(x) #((top)) #("l-*-31452")))
(hygiene guile))
.
#(syntax-object
@@ -26257,13 +26398,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("l-*-29337"
- "l-*-29338"
- "l-*-29339"
- "l-*-29340"
- "l-*-29341"))
+ #("l-*-31470"
+ "l-*-31471"
+ "l-*-31472"
+ "l-*-31473"
+ "l-*-31474"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-29319")))
+ #(ribcage #(x) #((top)) #("l-*-31452")))
(hygiene guile))))
(list '#(syntax-object
syntax-case
@@ -26271,16 +26412,16 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("l-*-29337"
- "l-*-29338"
- "l-*-29339"
- "l-*-29340"
- "l-*-29341"))
+ #("l-*-31470"
+ "l-*-31471"
+ "l-*-31472"
+ "l-*-31473"
+ "l-*-31474"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-29319")))
+ #("l-*-31452")))
(hygiene guile))
'#(syntax-object
x
@@ -26288,16 +26429,16 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("l-*-29337"
- "l-*-29338"
- "l-*-29339"
- "l-*-29340"
- "l-*-29341"))
+ #("l-*-31470"
+ "l-*-31471"
+ "l-*-31472"
+ "l-*-31473"
+ "l-*-31474"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-29319")))
+ #("l-*-31452")))
(hygiene guile))
'(#(syntax-object
set!
@@ -26305,16 +26446,16 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("l-*-29337"
- "l-*-29338"
- "l-*-29339"
- "l-*-29340"
- "l-*-29341"))
+ #("l-*-31470"
+ "l-*-31471"
+ "l-*-31472"
+ "l-*-31473"
+ "l-*-31474"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-29319")))
+ #("l-*-31452")))
(hygiene guile)))
(list (list '#(syntax-object
set!
@@ -26326,19 +26467,19 @@
(top)
(top)
(top))
- #("l-*-29337"
- "l-*-29338"
- "l-*-29339"
- "l-*-29340"
- "l-*-29341"))
+ #("l-*-31470"
+ "l-*-31471"
+ "l-*-31472"
+ "l-*-31473"
+ "l-*-31474"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-29319")))
+ #("l-*-31452")))
(hygiene guile))
- var-29365
- val-29366)
+ var-31498
+ val-31499)
(list '#(syntax-object
syntax
((top)
@@ -26349,19 +26490,19 @@
(top)
(top)
(top))
- #("l-*-29337"
- "l-*-29338"
- "l-*-29339"
- "l-*-29340"
- "l-*-29341"))
+ #("l-*-31470"
+ "l-*-31471"
+ "l-*-31472"
+ "l-*-31473"
+ "l-*-31474"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-29319")))
+ #("l-*-31452")))
(hygiene guile))
- exp2-29367))
- (list (cons id-29363
+ exp2-31500))
+ (list (cons id-31496
'(#(syntax-object
x
((top)
@@ -26372,16 +26513,16 @@
(top)
(top)
(top))
- #("l-*-29337"
- "l-*-29338"
- "l-*-29339"
- "l-*-29340"
- "l-*-29341"))
+ #("l-*-31470"
+ "l-*-31471"
+ "l-*-31472"
+ "l-*-31473"
+ "l-*-31474"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-29319")))
+ #("l-*-31452")))
(hygiene guile))
#(syntax-object
...
@@ -26393,16 +26534,16 @@
(top)
(top)
(top))
- #("l-*-29337"
- "l-*-29338"
- "l-*-29339"
- "l-*-29340"
- "l-*-29341"))
+ #("l-*-31470"
+ "l-*-31471"
+ "l-*-31472"
+ "l-*-31473"
+ "l-*-31474"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-29319")))
+ #("l-*-31452")))
(hygiene guile))))
(list '#(syntax-object
syntax
@@ -26414,18 +26555,18 @@
(top)
(top)
(top))
- #("l-*-29337"
- "l-*-29338"
- "l-*-29339"
- "l-*-29340"
- "l-*-29341"))
+ #("l-*-31470"
+ "l-*-31471"
+ "l-*-31472"
+ "l-*-31473"
+ "l-*-31474"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-29319")))
+ #("l-*-31452")))
(hygiene guile))
- (cons exp1-29364
+ (cons exp1-31497
'(#(syntax-object
x
((top)
@@ -26440,16 +26581,16 @@
(top)
(top)
(top))
- #("l-*-29337"
- "l-*-29338"
- "l-*-29339"
- "l-*-29340"
- "l-*-29341"))
+ #("l-*-31470"
+ "l-*-31471"
+ "l-*-31472"
+ "l-*-31473"
+ "l-*-31474"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-29319")))
+ #("l-*-31452")))
(hygiene guile))
#(syntax-object
...
@@ -26465,18 +26606,18 @@
(top)
(top)
(top))
- #("l-*-29337"
- "l-*-29338"
- "l-*-29339"
- "l-*-29340"
- "l-*-29341"))
+ #("l-*-31470"
+ "l-*-31471"
+ "l-*-31472"
+ "l-*-31473"
+ "l-*-31474"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-29319")))
+ #("l-*-31452")))
(hygiene guile))))))
- (list id-29363
+ (list id-31496
(list '#(syntax-object
identifier?
((top)
@@ -26487,16 +26628,16 @@
(top)
(top)
(top))
- #("l-*-29337"
- "l-*-29338"
- "l-*-29339"
- "l-*-29340"
- "l-*-29341"))
+ #("l-*-31470"
+ "l-*-31471"
+ "l-*-31472"
+ "l-*-31473"
+ "l-*-31474"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-29319")))
+ #("l-*-31452")))
(hygiene guile))
(list '#(syntax-object
syntax
@@ -26512,18 +26653,18 @@
(top)
(top)
(top))
- #("l-*-29337"
- "l-*-29338"
- "l-*-29339"
- "l-*-29340"
- "l-*-29341"))
+ #("l-*-31470"
+ "l-*-31471"
+ "l-*-31472"
+ "l-*-31473"
+ "l-*-31474"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-29319")))
+ #("l-*-31452")))
(hygiene guile))
- id-29363))
+ id-31496))
(list '#(syntax-object
syntax
((top)
@@ -26534,69 +26675,69 @@
(top)
(top)
(top))
- #("l-*-29337"
- "l-*-29338"
- "l-*-29339"
- "l-*-29340"
- "l-*-29341"))
+ #("l-*-31470"
+ "l-*-31471"
+ "l-*-31472"
+ "l-*-31473"
+ "l-*-31474"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-29319")))
+ #("l-*-31452")))
(hygiene guile))
- exp1-29364))))))
- tmp-29354)
+ exp1-31497))))))
+ tmp-31487)
(syntax-violation
#f
"source expression failed to match any pattern"
- x-29347))))))))
+ x-31480))))))))
(define define*
(make-syntax-transformer
'define*
'macro
- (lambda (x-29399)
- (let ((tmp-29401
+ (lambda (x-31532)
+ (let ((tmp-31534
($sc-dispatch
- x-29399
+ x-31532
'(_ (any . any) any . each-any))))
- (if tmp-29401
+ (if tmp-31534
(@apply
- (lambda (id-29405 args-29406 b0-29407 b1-29408)
+ (lambda (id-31538 args-31539 b0-31540 b1-31541)
(list '#(syntax-object
define
((top)
#(ribcage
#(id args b0 b1)
#((top) (top) (top) (top))
- #("l-*-29381"
- "l-*-29382"
- "l-*-29383"
- "l-*-29384"))
+ #("l-*-31514"
+ "l-*-31515"
+ "l-*-31516"
+ "l-*-31517"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-29378")))
+ #(ribcage #(x) #((top)) #("l-*-31511")))
(hygiene guile))
- id-29405
+ id-31538
(cons '#(syntax-object
lambda*
((top)
#(ribcage
#(id args b0 b1)
#((top) (top) (top) (top))
- #("l-*-29381"
- "l-*-29382"
- "l-*-29383"
- "l-*-29384"))
+ #("l-*-31514"
+ "l-*-31515"
+ "l-*-31516"
+ "l-*-31517"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-29378")))
+ #(ribcage #(x) #((top)) #("l-*-31511")))
(hygiene guile))
- (cons args-29406 (cons b0-29407 b1-29408)))))
- tmp-29401)
- (let ((tmp-29409 ($sc-dispatch x-29399 '(_ any any))))
- (if (if tmp-29409
+ (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-29413 val-29414)
+ (lambda (id-31546 val-31547)
(identifier?
'#(syntax-object
x
@@ -26604,29 +26745,29 @@
#(ribcage
#(id val)
#((top) (top))
- #("l-*-29391" "l-*-29392"))
+ #("l-*-31524" "l-*-31525"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-29378")))
+ #(ribcage #(x) #((top)) #("l-*-31511")))
(hygiene guile))))
- tmp-29409)
+ tmp-31542)
#f)
(@apply
- (lambda (id-29415 val-29416)
+ (lambda (id-31548 val-31549)
(list '#(syntax-object
define
((top)
#(ribcage
#(id val)
#((top) (top))
- #("l-*-29395" "l-*-29396"))
+ #("l-*-31528" "l-*-31529"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-29378")))
+ #(ribcage #(x) #((top)) #("l-*-31511")))
(hygiene guile))
- id-29415
- val-29416))
- tmp-29409)
+ id-31548
+ val-31549))
+ tmp-31542)
(syntax-violation
#f
"source expression failed to match any pattern"
- x-29399))))))))
+ x-31532))))))))
diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm
index 20ea8ebcf..728ab1254 100644
--- a/module/ice-9/psyntax.scm
+++ b/module/ice-9/psyntax.scm
@@ -982,7 +982,7 @@
(lambda ()
(let ((e (car body)))
(syntax-type e r w (or (source-annotation e) s) #f mod #f)))
- (lambda (type value e w s mod)
+ (lambda (type value form e w s mod)
(case type
((begin-form)
(syntax-case e ()
@@ -1079,18 +1079,20 @@
exps)))
((displaced-lexical)
(syntax-violation #f "identifier out of context"
- e (wrap value w mod)))
+ (source-wrap form w s mod)
+ (wrap value w mod)))
(else
(syntax-violation #f "cannot define keyword at top level"
- e (wrap value w mod))))))
+ (source-wrap form w s mod)
+ (wrap value w mod))))))
(else
(values (cons
(if (eq? m 'c&e)
- (let ((x (expand-expr type value e r w s mod)))
+ (let ((x (expand-expr type value form e r w s mod)))
(top-level-eval-hook x mod)
x)
(lambda ()
- (expand-expr type value e r w s mod)))
+ (expand-expr type value form e r w s mod)))
exps)))))))
(lambda (exps)
(scan (cdr body) r w s m esew mod exps))))))
@@ -1132,8 +1134,8 @@
(syntax-violation 'eval-when "invalid situation" e
(car l))))))))
- ;; syntax-type returns six values: type, value, e, w, s, and mod. The
- ;; first two are described in the table below.
+ ;; syntax-type returns seven values: type, value, form, e, w, s, and
+ ;; mod. The first two are described in the table below.
;;
;; type value explanation
;; -------------------------------------------------------------------
@@ -1162,10 +1164,11 @@
;; constant none self-evaluating datum
;; other none anything else
;;
- ;; For definition forms (define-form, define-syntax-parameter-form,
- ;; and define-syntax-form), e is the rhs expression. For all
- ;; others, e is the entire form. w is the wrap for e. s is the
- ;; source for the entire form. mod is the module for e.
+ ;; form is the entire form. For definition forms (define-form,
+ ;; define-syntax-form, and define-syntax-parameter-form), e is the
+ ;; rhs expression. For all others, e is the entire form. w is the
+ ;; wrap for both form and e. s is the source for the entire form.
+ ;; mod is the module for both form and e.
;;
;; syntax-type expands macros and unwraps as necessary to get to one
;; of the forms above. It also parses definition forms, although
@@ -1179,28 +1182,28 @@
(b (lookup n r mod))
(type (binding-type b)))
(case type
- ((lexical) (values type (binding-value b) e w s mod))
- ((global) (values type n e w s mod))
+ ((lexical) (values type (binding-value b) e e w s mod))
+ ((global) (values type n e e w s mod))
((macro)
(if for-car?
- (values type (binding-value b) e w s mod)
+ (values type (binding-value b) e e w s mod)
(syntax-type (expand-macro (binding-value b) e r w s rib mod)
r empty-wrap s rib mod #f)))
- (else (values type (binding-value b) e w s mod)))))
+ (else (values type (binding-value b) e e w s mod)))))
((pair? e)
(let ((first (car e)))
(call-with-values
(lambda () (syntax-type first r w s rib mod #t))
- (lambda (ftype fval fe fw fs fmod)
+ (lambda (ftype fval fform fe fw fs fmod)
(case ftype
((lexical)
- (values 'lexical-call fval e w s mod))
+ (values 'lexical-call fval e e w s mod))
((global)
;; If we got here via an (@@ ...) expansion, we need to
;; make sure the fmod information is propagated back
;; correctly -- hence this consing.
(values 'global-call (make-syntax-object fval w fmod)
- e w s mod))
+ e e w s mod))
((macro)
(syntax-type (expand-macro fval e r w s rib mod)
r empty-wrap s rib mod for-car?))
@@ -1209,23 +1212,24 @@
(lambda (e r w s mod)
(syntax-type e r w s rib mod for-car?))))
((core)
- (values 'core-form fval e w s mod))
+ (values 'core-form fval e e w s mod))
((local-syntax)
- (values 'local-syntax-form fval e w s mod))
+ (values 'local-syntax-form fval e e w s mod))
((begin)
- (values 'begin-form #f e w s mod))
+ (values 'begin-form #f e e w s mod))
((eval-when)
- (values 'eval-when-form #f e w s mod))
+ (values 'eval-when-form #f e e w s mod))
((define)
(syntax-case e ()
((_ name val)
(id? #'name)
- (values 'define-form #'name #'val w s mod))
+ (values 'define-form #'name e #'val w s mod))
((_ (name . args) e1 e2 ...)
(and (id? #'name)
(valid-bound-ids? (lambda-var-list #'args)))
;; need lambda here...
(values 'define-form (wrap #'name w mod)
+ (wrap e w mod)
(decorate-source
(cons #'lambda (wrap #'(args e1 e2 ...) w mod))
s)
@@ -1233,38 +1237,39 @@
((_ name)
(id? #'name)
(values 'define-form (wrap #'name w mod)
+ (wrap e w mod)
#'(if #f #f)
empty-wrap s mod))))
((define-syntax)
(syntax-case e ()
((_ name val)
(id? #'name)
- (values 'define-syntax-form #'name #'val w s mod))))
+ (values 'define-syntax-form #'name e #'val w s mod))))
((define-syntax-parameter)
(syntax-case e ()
((_ name val)
(id? #'name)
- (values 'define-syntax-parameter-form #'name #'val w s mod))))
+ (values 'define-syntax-parameter-form #'name e #'val w s mod))))
(else
- (values 'call #f e w s mod)))))))
+ (values 'call #f e e w s mod)))))))
((syntax-object? e)
(syntax-type (syntax-object-expression e)
r
(join-wraps w (syntax-object-wrap e))
(or (source-annotation e) s) rib
(or (syntax-object-module e) mod) for-car?))
- ((self-evaluating? e) (values 'constant #f e w s mod))
- (else (values 'other #f e w s mod)))))
+ ((self-evaluating? e) (values 'constant #f e e w s mod))
+ (else (values 'other #f e e w s mod)))))
(define expand
(lambda (e r w mod)
(call-with-values
(lambda () (syntax-type e r w (source-annotation e) #f mod #f))
- (lambda (type value e w s mod)
- (expand-expr type value e r w s mod)))))
+ (lambda (type value form e w s mod)
+ (expand-expr type value form e r w s mod)))))
(define expand-expr
- (lambda (type value e r w s mod)
+ (lambda (type value form e r w s mod)
(case type
((lexical)
(build-lexical-reference 'value s e value))
@@ -1318,8 +1323,8 @@
(expand-sequence #'(e1 e2 ...) r w s mod)
(expand-void))))))
((define-form define-syntax-form define-syntax-parameter-form)
- (syntax-violation #f "definition in expression context"
- e (wrap value w mod)))
+ (syntax-violation #f "definition in expression context, where definitions are not allowed,"
+ (source-wrap form w s mod)))
((syntax)
(syntax-violation #f "reference to pattern variable outside syntax form"
(source-wrap e w s mod)))
@@ -1463,7 +1468,7 @@
(let ((e (cdar body)) (er (caar body)))
(call-with-values
(lambda () (syntax-type e er empty-wrap (source-annotation er) ribcage mod #f))
- (lambda (type value e w s mod)
+ (lambda (type value form e w s mod)
(case type
((define-form)
(let ((id (wrap value w mod)) (label (gen-label)))
@@ -2222,7 +2227,7 @@
((_ (head tail ...) val)
(call-with-values
(lambda () (syntax-type #'head r empty-wrap no-source #f mod #t))
- (lambda (type value ee ww ss modmod)
+ (lambda (type value formform ee ww ss modmod)
(case type
((module-ref)
(let ((val (expand #'val r w mod)))