summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--module/ice-9/psyntax-pp.scm13138
-rw-r--r--module/ice-9/psyntax.scm10
2 files changed, 6585 insertions, 6563 deletions
diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm
index 24343d8c8..43b273c36 100644
--- a/module/ice-9/psyntax-pp.scm
+++ b/module/ice-9/psyntax-pp.scm
@@ -1,1268 +1,1268 @@
(eval-when (compile) (set-current-module (resolve-module (quote (guile)))))
(if #f #f)
-(let ((session-id-6510 (if #f #f))
- (transformer-environment-6571 (if #f #f)))
+(let ((session-id-6306 (if #f #f))
+ (transformer-environment-6367 (if #f #f)))
(letrec*
- ((top-level-eval-hook-6508
- (lambda (x-29318 mod-29319)
- (primitive-eval x-29318)))
- (get-global-definition-hook-6512
- (lambda (symbol-17709 module-17710)
+ ((top-level-eval-hook-6304
+ (lambda (x-29255 mod-29256)
+ (primitive-eval x-29255)))
+ (get-global-definition-hook-6308
+ (lambda (symbol-17518 module-17519)
(begin
- (if (if (not module-17710) (current-module) #f)
+ (if (if (not module-17519) (current-module) #f)
(warn "module system is booted, we should have a module"
- symbol-17709))
- (let ((v-17711
+ symbol-17518))
+ (let ((v-17520
(module-variable
- (if module-17710
- (resolve-module (cdr module-17710))
+ (if module-17519
+ (resolve-module (cdr module-17519))
(current-module))
- symbol-17709)))
- (if v-17711
- (if (variable-bound? v-17711)
- (let ((val-17713 (variable-ref v-17711)))
- (if (macro? val-17713)
- (if (macro-type val-17713)
- (cons (macro-type val-17713)
- (macro-binding val-17713))
+ symbol-17518)))
+ (if v-17520
+ (if (variable-bound? v-17520)
+ (let ((val-17522 (variable-ref v-17520)))
+ (if (macro? val-17522)
+ (if (macro-type val-17522)
+ (cons (macro-type val-17522)
+ (macro-binding val-17522))
#f)
#f))
#f)
#f)))))
- (maybe-name-value!-6514
- (lambda (name-17990 val-17991)
- (if (if (struct? val-17991)
- (eq? (struct-vtable val-17991)
+ (maybe-name-value!-6310
+ (lambda (name-17799 val-17800)
+ (if (if (struct? val-17800)
+ (eq? (struct-vtable val-17800)
(vector-ref %expanded-vtables 13))
#f)
- (let ((meta-17998 (struct-ref val-17991 1)))
- (if (not (assq 'name meta-17998))
- (let ((v-18003
- (cons (cons 'name name-17990) meta-17998)))
- (struct-set! val-17991 1 v-18003)))))))
- (build-application-6516
- (lambda (source-17715 fun-exp-17716 arg-exps-17717)
+ (let ((meta-17807 (struct-ref val-17800 1)))
+ (if (not (assq 'name meta-17807))
+ (let ((v-17812
+ (cons (cons 'name name-17799) meta-17807)))
+ (struct-set! val-17800 1 v-17812)))))))
+ (build-application-6312
+ (lambda (source-17524 fun-exp-17525 arg-exps-17526)
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
- source-17715
- fun-exp-17716
- arg-exps-17717)))
- (build-conditional-6517
- (lambda (source-17723
- test-exp-17724
- then-exp-17725
- else-exp-17726)
+ source-17524
+ fun-exp-17525
+ arg-exps-17526)))
+ (build-conditional-6313
+ (lambda (source-17532
+ test-exp-17533
+ then-exp-17534
+ else-exp-17535)
(make-struct/no-tail
(vector-ref %expanded-vtables 10)
- source-17723
- test-exp-17724
- then-exp-17725
- else-exp-17726)))
- (build-dynlet-6518
- (lambda (source-17733 fluids-17734 vals-17735 body-17736)
+ source-17532
+ test-exp-17533
+ then-exp-17534
+ else-exp-17535)))
+ (build-dynlet-6314
+ (lambda (source-17542 fluids-17543 vals-17544 body-17545)
(make-struct/no-tail
(vector-ref %expanded-vtables 17)
- source-17733
- fluids-17734
- vals-17735
- body-17736)))
- (build-lexical-reference-6519
- (lambda (type-29320 source-29321 name-29322 var-29323)
+ source-17542
+ fluids-17543
+ vals-17544
+ body-17545)))
+ (build-lexical-reference-6315
+ (lambda (type-29257 source-29258 name-29259 var-29260)
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
- source-29321
- name-29322
- var-29323)))
- (build-lexical-assignment-6520
- (lambda (source-17743 name-17744 var-17745 exp-17746)
+ source-29258
+ name-29259
+ var-29260)))
+ (build-lexical-assignment-6316
+ (lambda (source-17552 name-17553 var-17554 exp-17555)
(begin
- (if (if (struct? exp-17746)
- (eq? (struct-vtable exp-17746)
+ (if (if (struct? exp-17555)
+ (eq? (struct-vtable exp-17555)
(vector-ref %expanded-vtables 13))
#f)
- (let ((meta-17762 (struct-ref exp-17746 1)))
- (if (not (assq 'name meta-17762))
- (let ((v-17769
- (cons (cons 'name name-17744) meta-17762)))
- (struct-set! exp-17746 1 v-17769)))))
+ (let ((meta-17571 (struct-ref exp-17555 1)))
+ (if (not (assq 'name meta-17571))
+ (let ((v-17578
+ (cons (cons 'name name-17553) meta-17571)))
+ (struct-set! exp-17555 1 v-17578)))))
(make-struct/no-tail
(vector-ref %expanded-vtables 4)
- source-17743
- name-17744
- var-17745
- exp-17746))))
- (analyze-variable-6521
- (lambda (mod-29329
- var-29330
- modref-cont-29331
- bare-cont-29332)
- (if (not mod-29329)
- (bare-cont-29332 var-29330)
- (let ((kind-29333 (car mod-29329))
- (mod-29334 (cdr mod-29329)))
- (if (eqv? kind-29333 'public)
- (modref-cont-29331 mod-29334 var-29330 #t)
- (if (eqv? kind-29333 'private)
- (if (not (equal? mod-29334 (module-name (current-module))))
- (modref-cont-29331 mod-29334 var-29330 #f)
- (bare-cont-29332 var-29330))
- (if (eqv? kind-29333 'bare)
- (bare-cont-29332 var-29330)
- (if (eqv? kind-29333 'hygiene)
+ source-17552
+ name-17553
+ var-17554
+ exp-17555))))
+ (analyze-variable-6317
+ (lambda (mod-29266
+ var-29267
+ modref-cont-29268
+ bare-cont-29269)
+ (if (not mod-29266)
+ (bare-cont-29269 var-29267)
+ (let ((kind-29270 (car mod-29266))
+ (mod-29271 (cdr mod-29266)))
+ (if (eqv? kind-29270 'public)
+ (modref-cont-29268 mod-29271 var-29267 #t)
+ (if (eqv? kind-29270 'private)
+ (if (not (equal? mod-29271 (module-name (current-module))))
+ (modref-cont-29268 mod-29271 var-29267 #f)
+ (bare-cont-29269 var-29267))
+ (if (eqv? kind-29270 'bare)
+ (bare-cont-29269 var-29267)
+ (if (eqv? kind-29270 'hygiene)
(if (if (not (equal?
- mod-29334
+ mod-29271
(module-name (current-module))))
(module-variable
- (resolve-module mod-29334)
- var-29330)
+ (resolve-module mod-29271)
+ var-29267)
#f)
- (modref-cont-29331 mod-29334 var-29330 #f)
- (bare-cont-29332 var-29330))
+ (modref-cont-29268 mod-29271 var-29267 #f)
+ (bare-cont-29269 var-29267))
(syntax-violation
#f
"bad module kind"
- var-29330
- mod-29334)))))))))
- (build-global-reference-6522
- (lambda (source-29349 var-29350 mod-29351)
- (analyze-variable-6521
- mod-29351
- var-29350
- (lambda (mod-29354 var-29355 public?-29356)
+ var-29267
+ mod-29271)))))))))
+ (build-global-reference-6318
+ (lambda (source-29298 var-29299 mod-29300)
+ (analyze-variable-6317
+ mod-29300
+ var-29299
+ (lambda (mod-29303 var-29304 public?-29305)
(make-struct/no-tail
(vector-ref %expanded-vtables 5)
- source-29349
- mod-29354
- var-29355
- public?-29356))
- (lambda (var-29364)
+ source-29298
+ mod-29303
+ var-29304
+ public?-29305))
+ (lambda (var-29313)
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
- source-29349
- var-29364)))))
- (build-global-assignment-6523
- (lambda (source-17778 var-17779 exp-17780 mod-17781)
+ source-29298
+ var-29313)))))
+ (build-global-assignment-6319
+ (lambda (source-17587 var-17588 exp-17589 mod-17590)
(begin
- (if (if (struct? exp-17780)
- (eq? (struct-vtable exp-17780)
+ (if (if (struct? exp-17589)
+ (eq? (struct-vtable exp-17589)
(vector-ref %expanded-vtables 13))
#f)
- (let ((meta-17797 (struct-ref exp-17780 1)))
- (if (not (assq 'name meta-17797))
- (let ((v-17804
- (cons (cons 'name var-17779) meta-17797)))
- (struct-set! exp-17780 1 v-17804)))))
- (analyze-variable-6521
- mod-17781
- var-17779
- (lambda (mod-17809 var-17810 public?-17811)
+ (let ((meta-17606 (struct-ref exp-17589 1)))
+ (if (not (assq 'name meta-17606))
+ (let ((v-17613
+ (cons (cons 'name var-17588) meta-17606)))
+ (struct-set! exp-17589 1 v-17613)))))
+ (analyze-variable-6317
+ mod-17590
+ var-17588
+ (lambda (mod-17618 var-17619 public?-17620)
(make-struct/no-tail
(vector-ref %expanded-vtables 6)
- source-17778
- mod-17809
- var-17810
- public?-17811
- exp-17780))
- (lambda (var-17819)
+ source-17587
+ mod-17618
+ var-17619
+ public?-17620
+ exp-17589))
+ (lambda (var-17628)
(make-struct/no-tail
(vector-ref %expanded-vtables 8)
- source-17778
- var-17819
- exp-17780))))))
- (build-global-definition-6524
- (lambda (source-29370 var-29371 exp-29372)
+ source-17587
+ var-17628
+ exp-17589))))))
+ (build-global-definition-6320
+ (lambda (source-29319 var-29320 exp-29321)
(begin
- (if (if (struct? exp-29372)
- (eq? (struct-vtable exp-29372)
+ (if (if (struct? exp-29321)
+ (eq? (struct-vtable exp-29321)
(vector-ref %expanded-vtables 13))
#f)
- (let ((meta-29388 (struct-ref exp-29372 1)))
- (if (not (assq 'name meta-29388))
- (let ((v-29395
- (cons (cons 'name var-29371) meta-29388)))
- (struct-set! exp-29372 1 v-29395)))))
+ (let ((meta-29337 (struct-ref exp-29321 1)))
+ (if (not (assq 'name meta-29337))
+ (let ((v-29344
+ (cons (cons 'name var-29320) meta-29337)))
+ (struct-set! exp-29321 1 v-29344)))))
(make-struct/no-tail
(vector-ref %expanded-vtables 9)
- source-29370
- var-29371
- exp-29372))))
- (build-simple-lambda-6525
- (lambda (src-17825
- req-17826
- rest-17827
- vars-17828
- meta-17829
- exp-17830)
- (let ((body-17836
+ source-29319
+ var-29320
+ exp-29321))))
+ (build-simple-lambda-6321
+ (lambda (src-17634
+ req-17635
+ rest-17636
+ vars-17637
+ meta-17638
+ exp-17639)
+ (let ((body-17645
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
- src-17825
- req-17826
+ src-17634
+ req-17635
#f
- rest-17827
+ rest-17636
#f
'()
- vars-17828
- exp-17830
+ vars-17637
+ exp-17639
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
- src-17825
- meta-17829
- body-17836))))
- (build-sequence-6530
- (lambda (src-29403 exps-29404)
- (if (null? (cdr exps-29404))
- (car exps-29404)
+ src-17634
+ meta-17638
+ body-17645))))
+ (build-sequence-6326
+ (lambda (src-29352 exps-29353)
+ (if (null? (cdr exps-29353))
+ (car exps-29353)
(make-struct/no-tail
(vector-ref %expanded-vtables 12)
- src-29403
- exps-29404))))
- (build-let-6531
- (lambda (src-17848
- ids-17849
- vars-17850
- val-exps-17851
- body-exp-17852)
+ src-29352
+ exps-29353))))
+ (build-let-6327
+ (lambda (src-17657
+ ids-17658
+ vars-17659
+ val-exps-17660
+ body-exp-17661)
(begin
(for-each
- maybe-name-value!-6514
- ids-17849
- val-exps-17851)
- (if (null? vars-17850)
- body-exp-17852
+ maybe-name-value!-6310
+ ids-17658
+ val-exps-17660)
+ (if (null? vars-17659)
+ body-exp-17661
(make-struct/no-tail
(vector-ref %expanded-vtables 15)
- src-17848
- ids-17849
- vars-17850
- val-exps-17851
- body-exp-17852)))))
- (build-named-let-6532
- (lambda (src-17876
- ids-17877
- vars-17878
- val-exps-17879
- body-exp-17880)
- (let ((f-17881 (car vars-17878))
- (f-name-17882 (car ids-17877))
- (vars-17883 (cdr vars-17878))
- (ids-17884 (cdr ids-17877)))
- (let ((proc-17885
- (let ((body-17905
+ src-17657
+ ids-17658
+ vars-17659
+ val-exps-17660
+ body-exp-17661)))))
+ (build-named-let-6328
+ (lambda (src-17685
+ ids-17686
+ vars-17687
+ val-exps-17688
+ body-exp-17689)
+ (let ((f-17690 (car vars-17687))
+ (f-name-17691 (car ids-17686))
+ (vars-17692 (cdr vars-17687))
+ (ids-17693 (cdr ids-17686)))
+ (let ((proc-17694
+ (let ((body-17714
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
- src-17876
- ids-17884
+ src-17685
+ ids-17693
#f
#f
#f
'()
- vars-17883
- body-exp-17880
+ vars-17692
+ body-exp-17689
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
- src-17876
+ src-17685
'()
- body-17905))))
+ body-17714))))
(begin
- (if (if (struct? proc-17885)
- (eq? (struct-vtable proc-17885)
+ (if (if (struct? proc-17694)
+ (eq? (struct-vtable proc-17694)
(vector-ref %expanded-vtables 13))
#f)
- (let ((meta-17929 (struct-ref proc-17885 1)))
- (if (not (assq 'name meta-17929))
- (let ((v-17936
- (cons (cons 'name f-name-17882) meta-17929)))
- (struct-set! proc-17885 1 v-17936)))))
+ (let ((meta-17738 (struct-ref proc-17694 1)))
+ (if (not (assq 'name meta-17738))
+ (let ((v-17745
+ (cons (cons 'name f-name-17691) meta-17738)))
+ (struct-set! proc-17694 1 v-17745)))))
(for-each
- maybe-name-value!-6514
- ids-17884
- val-exps-17879)
- (let ((names-17960 (list f-name-17882))
- (gensyms-17961 (list f-17881))
- (vals-17962 (list proc-17885))
- (body-17963
- (let ((fun-exp-17967
+ maybe-name-value!-6310
+ ids-17693
+ val-exps-17688)
+ (let ((names-17769 (list f-name-17691))
+ (gensyms-17770 (list f-17690))
+ (vals-17771 (list proc-17694))
+ (body-17772
+ (let ((fun-exp-17776
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
- src-17876
- f-name-17882
- f-17881)))
+ src-17685
+ f-name-17691
+ f-17690)))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
- src-17876
- fun-exp-17967
- val-exps-17879))))
+ src-17685
+ fun-exp-17776
+ val-exps-17688))))
(make-struct/no-tail
(vector-ref %expanded-vtables 16)
- src-17876
+ src-17685
#f
- names-17960
- gensyms-17961
- vals-17962
- body-17963)))))))
- (build-letrec-6533
- (lambda (src-17983
- in-order?-17984
- ids-17985
- vars-17986
- val-exps-17987
- body-exp-17988)
- (if (null? vars-17986)
- body-exp-17988
+ names-17769
+ gensyms-17770
+ vals-17771
+ body-17772)))))))
+ (build-letrec-6329
+ (lambda (src-17792
+ in-order?-17793
+ ids-17794
+ vars-17795
+ val-exps-17796
+ body-exp-17797)
+ (if (null? vars-17795)
+ body-exp-17797
(begin
(for-each
- maybe-name-value!-6514
- ids-17985
- val-exps-17987)
+ maybe-name-value!-6310
+ ids-17794
+ val-exps-17796)
(make-struct/no-tail
(vector-ref %expanded-vtables 16)
- src-17983
- in-order?-17984
- ids-17985
- vars-17986
- val-exps-17987
- body-exp-17988)))))
- (source-annotation-6542
- (lambda (x-18014)
- (if (if (vector? x-18014)
- (if (= (vector-length x-18014) 4)
- (eq? (vector-ref x-18014 0) 'syntax-object)
+ src-17792
+ in-order?-17793
+ ids-17794
+ vars-17795
+ val-exps-17796
+ body-exp-17797)))))
+ (source-annotation-6338
+ (lambda (x-17823)
+ (if (if (vector? x-17823)
+ (if (= (vector-length x-17823) 4)
+ (eq? (vector-ref x-17823 0) 'syntax-object)
#f)
#f)
- (source-annotation-6542 (vector-ref x-18014 1))
- (if (pair? x-18014)
- (let ((props-18029 (source-properties x-18014)))
- (if (pair? props-18029) props-18029 #f))
+ (source-annotation-6338 (vector-ref x-17823 1))
+ (if (pair? x-17823)
+ (let ((props-17838 (source-properties x-17823)))
+ (if (pair? props-17838) props-17838 #f))
#f))))
- (extend-env-6543
- (lambda (labels-18031 bindings-18032 r-18033)
- (if (null? labels-18031)
- r-18033
- (extend-env-6543
- (cdr labels-18031)
- (cdr bindings-18032)
- (cons (cons (car labels-18031) (car bindings-18032))
- r-18033)))))
- (extend-var-env-6544
- (lambda (labels-18034 vars-18035 r-18036)
- (if (null? labels-18034)
- r-18036
- (extend-var-env-6544
- (cdr labels-18034)
- (cdr vars-18035)
- (cons (cons (car labels-18034)
- (cons 'lexical (car vars-18035)))
- r-18036)))))
- (macros-only-env-6545
- (lambda (r-18037)
- (if (null? r-18037)
+ (extend-env-6339
+ (lambda (labels-17840 bindings-17841 r-17842)
+ (if (null? labels-17840)
+ r-17842
+ (extend-env-6339
+ (cdr labels-17840)
+ (cdr bindings-17841)
+ (cons (cons (car labels-17840) (car bindings-17841))
+ r-17842)))))
+ (extend-var-env-6340
+ (lambda (labels-17843 vars-17844 r-17845)
+ (if (null? labels-17843)
+ r-17845
+ (extend-var-env-6340
+ (cdr labels-17843)
+ (cdr vars-17844)
+ (cons (cons (car labels-17843)
+ (cons 'lexical (car vars-17844)))
+ r-17845)))))
+ (macros-only-env-6341
+ (lambda (r-17846)
+ (if (null? r-17846)
'()
- (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)
+ (let ((a-17847 (car r-17846)))
+ (if (eq? (car (cdr a-17847)) 'macro)
+ (cons a-17847
+ (macros-only-env-6341 (cdr r-17846)))
+ (macros-only-env-6341 (cdr r-17846)))))))
+ (global-extend-6343
+ (lambda (type-17849 sym-17850 val-17851)
(module-define!
(current-module)
- sym-18041
+ sym-17850
(make-syntax-transformer
- sym-18041
- type-18040
- val-18042))))
- (id?-6549
- (lambda (x-11853)
- (if (symbol? x-11853)
+ sym-17850
+ type-17849
+ val-17851))))
+ (id?-6345
+ (lambda (x-11651)
+ (if (symbol? x-11651)
#t
- (if (if (vector? x-11853)
- (if (= (vector-length x-11853) 4)
- (eq? (vector-ref x-11853 0) 'syntax-object)
+ (if (if (vector? x-11651)
+ (if (= (vector-length x-11651) 4)
+ (eq? (vector-ref x-11651 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref x-11853 1))
+ (symbol? (vector-ref x-11651 1))
#f))))
- (gen-labels-6552
- (lambda (ls-18052)
- (if (null? ls-18052)
+ (gen-labels-6348
+ (lambda (ls-17861)
+ (if (null? ls-17861)
'()
(cons (string-append
"l-"
- (session-id-6510)
+ (session-id-6306)
(symbol->string (gensym "-")))
- (gen-labels-6552 (cdr ls-18052))))))
- (make-binding-wrap-6563
- (lambda (ids-18056 labels-18057 w-18058)
- (if (null? ids-18056)
- w-18058
- (cons (car w-18058)
- (cons (let ((labelvec-18059 (list->vector labels-18057)))
- (let ((n-18060 (vector-length labelvec-18059)))
- (let ((symnamevec-18061 (make-vector n-18060))
- (marksvec-18062 (make-vector n-18060)))
+ (gen-labels-6348 (cdr ls-17861))))))
+ (make-binding-wrap-6359
+ (lambda (ids-17865 labels-17866 w-17867)
+ (if (null? ids-17865)
+ w-17867
+ (cons (car w-17867)
+ (cons (let ((labelvec-17868 (list->vector labels-17866)))
+ (let ((n-17869 (vector-length labelvec-17868)))
+ (let ((symnamevec-17870 (make-vector n-17869))
+ (marksvec-17871 (make-vector n-17869)))
(begin
(letrec*
- ((f-18063
- (lambda (ids-18066 i-18067)
- (if (not (null? ids-18066))
+ ((f-17872
+ (lambda (ids-17875 i-17876)
+ (if (not (null? ids-17875))
(call-with-values
(lambda ()
- (let ((x-18070 (car ids-18066)))
- (if (if (vector? x-18070)
+ (let ((x-17879 (car ids-17875)))
+ (if (if (vector? x-17879)
(if (= (vector-length
- x-18070)
+ x-17879)
4)
(eq? (vector-ref
- x-18070
+ x-17879
0)
'syntax-object)
#f)
#f)
(values
- (vector-ref x-18070 1)
- (let ((m1-18086
- (car w-18058))
- (m2-18087
+ (vector-ref x-17879 1)
+ (let ((m1-17895
+ (car w-17867))
+ (m2-17896
(car (vector-ref
- x-18070
+ x-17879
2))))
- (if (null? m2-18087)
- m1-18086
+ (if (null? m2-17896)
+ m1-17895
(append
- m1-18086
- m2-18087))))
+ m1-17895
+ m2-17896))))
(values
- x-18070
- (car w-18058)))))
- (lambda (symname-18107 marks-18108)
+ x-17879
+ (car w-17867)))))
+ (lambda (symname-17916 marks-17917)
(begin
(vector-set!
- symnamevec-18061
- i-18067
- symname-18107)
+ symnamevec-17870
+ i-17876
+ symname-17916)
(vector-set!
- marksvec-18062
- i-18067
- marks-18108)
- (f-18063
- (cdr ids-18066)
- (#{1+}# i-18067)))))))))
- (f-18063 ids-18056 0))
+ marksvec-17871
+ i-17876
+ marks-17917)
+ (f-17872
+ (cdr ids-17875)
+ (#{1+}# i-17876)))))))))
+ (f-17872 ids-17865 0))
(vector
'ribcage
- symnamevec-18061
- marksvec-18062
- labelvec-18059)))))
- (cdr w-18058))))))
- (join-wraps-6565
- (lambda (w1-18117 w2-18118)
- (let ((m1-18119 (car w1-18117))
- (s1-18120 (cdr w1-18117)))
- (if (null? m1-18119)
- (if (null? s1-18120)
- w2-18118
- (cons (car w2-18118)
- (let ((m2-18127 (cdr w2-18118)))
- (if (null? m2-18127)
- s1-18120
- (append s1-18120 m2-18127)))))
- (cons (let ((m2-18136 (car w2-18118)))
- (if (null? m2-18136)
- m1-18119
- (append m1-18119 m2-18136)))
- (let ((m2-18145 (cdr w2-18118)))
- (if (null? m2-18145)
- s1-18120
- (append s1-18120 m2-18145))))))))
- (same-marks?-6567
- (lambda (x-18150 y-18151)
- (if (eq? x-18150 y-18151)
- (eq? x-18150 y-18151)
- (if (not (null? x-18150))
- (if (not (null? y-18151))
- (if (eq? (car x-18150) (car y-18151))
- (same-marks?-6567 (cdr x-18150) (cdr y-18151))
+ symnamevec-17870
+ marksvec-17871
+ labelvec-17868)))))
+ (cdr w-17867))))))
+ (join-wraps-6361
+ (lambda (w1-17926 w2-17927)
+ (let ((m1-17928 (car w1-17926))
+ (s1-17929 (cdr w1-17926)))
+ (if (null? m1-17928)
+ (if (null? s1-17929)
+ w2-17927
+ (cons (car w2-17927)
+ (let ((m2-17936 (cdr w2-17927)))
+ (if (null? m2-17936)
+ s1-17929
+ (append s1-17929 m2-17936)))))
+ (cons (let ((m2-17945 (car w2-17927)))
+ (if (null? m2-17945)
+ m1-17928
+ (append m1-17928 m2-17945)))
+ (let ((m2-17954 (cdr w2-17927)))
+ (if (null? m2-17954)
+ s1-17929
+ (append s1-17929 m2-17954))))))))
+ (same-marks?-6363
+ (lambda (x-17959 y-17960)
+ (if (eq? x-17959 y-17960)
+ (eq? x-17959 y-17960)
+ (if (not (null? x-17959))
+ (if (not (null? y-17960))
+ (if (eq? (car x-17959) (car y-17960))
+ (same-marks?-6363 (cdr x-17959) (cdr y-17960))
#f)
#f)
#f))))
- (id-var-name-6568
- (lambda (id-18159 w-18160)
+ (id-var-name-6364
+ (lambda (id-17968 w-17969)
(letrec*
- ((search-18161
- (lambda (sym-18222 subst-18223 marks-18224)
- (if (null? subst-18223)
- (values #f marks-18224)
- (let ((fst-18225 (car subst-18223)))
- (if (eq? fst-18225 'shift)
- (search-18161
- sym-18222
- (cdr subst-18223)
- (cdr marks-18224))
- (let ((symnames-18227 (vector-ref fst-18225 1)))
- (if (vector? symnames-18227)
- (let ((n-18239 (vector-length symnames-18227)))
+ ((search-17970
+ (lambda (sym-18031 subst-18032 marks-18033)
+ (if (null? subst-18032)
+ (values #f marks-18033)
+ (let ((fst-18034 (car subst-18032)))
+ (if (eq? fst-18034 'shift)
+ (search-17970
+ sym-18031
+ (cdr subst-18032)
+ (cdr marks-18033))
+ (let ((symnames-18036 (vector-ref fst-18034 1)))
+ (if (vector? symnames-18036)
+ (let ((n-18048 (vector-length symnames-18036)))
(letrec*
- ((f-18240
- (lambda (i-18242)
- (if (= i-18242 n-18239)
- (search-18161
- sym-18222
- (cdr subst-18223)
- marks-18224)
+ ((f-18049
+ (lambda (i-18051)
+ (if (= i-18051 n-18048)
+ (search-17970
+ sym-18031
+ (cdr subst-18032)
+ marks-18033)
(if (if (eq? (vector-ref
- symnames-18227
- i-18242)
- sym-18222)
- (same-marks?-6567
- marks-18224
+ symnames-18036
+ i-18051)
+ sym-18031)
+ (same-marks?-6363
+ marks-18033
(vector-ref
- (vector-ref fst-18225 2)
- i-18242))
+ (vector-ref fst-18034 2)
+ i-18051))
#f)
(values
(vector-ref
- (vector-ref fst-18225 3)
- i-18242)
- marks-18224)
- (f-18240 (#{1+}# i-18242)))))))
- (f-18240 0)))
+ (vector-ref fst-18034 3)
+ i-18051)
+ marks-18033)
+ (f-18049 (#{1+}# i-18051)))))))
+ (f-18049 0)))
(letrec*
- ((f-18275
- (lambda (symnames-18277 i-18278)
- (if (null? symnames-18277)
- (search-18161
- sym-18222
- (cdr subst-18223)
- marks-18224)
- (if (if (eq? (car symnames-18277) sym-18222)
- (same-marks?-6567
- marks-18224
+ ((f-18084
+ (lambda (symnames-18086 i-18087)
+ (if (null? symnames-18086)
+ (search-17970
+ sym-18031
+ (cdr subst-18032)
+ marks-18033)
+ (if (if (eq? (car symnames-18086) sym-18031)
+ (same-marks?-6363
+ marks-18033
(list-ref
- (vector-ref fst-18225 2)
- i-18278))
+ (vector-ref fst-18034 2)
+ i-18087))
#f)
(values
(list-ref
- (vector-ref fst-18225 3)
- i-18278)
- marks-18224)
- (f-18275
- (cdr symnames-18277)
- (#{1+}# i-18278)))))))
- (f-18275 symnames-18227 0))))))))))
- (if (symbol? id-18159)
- (let ((t-18164
- (search-18161
- id-18159
- (cdr w-18160)
- (car w-18160))))
- (if t-18164 t-18164 id-18159))
- (if (if (vector? id-18159)
- (if (= (vector-length id-18159) 4)
- (eq? (vector-ref id-18159 0) 'syntax-object)
+ (vector-ref fst-18034 3)
+ i-18087)
+ marks-18033)
+ (f-18084
+ (cdr symnames-18086)
+ (#{1+}# i-18087)))))))
+ (f-18084 symnames-18036 0))))))))))
+ (if (symbol? id-17968)
+ (let ((t-17973
+ (search-17970
+ id-17968
+ (cdr w-17969)
+ (car w-17969))))
+ (if t-17973 t-17973 id-17968))
+ (if (if (vector? id-17968)
+ (if (= (vector-length id-17968) 4)
+ (eq? (vector-ref id-17968 0) 'syntax-object)
#f)
#f)
- (let ((id-18179 (vector-ref id-18159 1))
- (w1-18180 (vector-ref id-18159 2)))
- (let ((marks-18181
- (let ((m1-18191 (car w-18160))
- (m2-18192 (car w1-18180)))
- (if (null? m2-18192)
- m1-18191
- (append m1-18191 m2-18192)))))
+ (let ((id-17988 (vector-ref id-17968 1))
+ (w1-17989 (vector-ref id-17968 2)))
+ (let ((marks-17990
+ (let ((m1-18000 (car w-17969))
+ (m2-18001 (car w1-17989)))
+ (if (null? m2-18001)
+ m1-18000
+ (append m1-18000 m2-18001)))))
(call-with-values
(lambda ()
- (search-18161 id-18179 (cdr w-18160) marks-18181))
- (lambda (new-id-18208 marks-18209)
- (if new-id-18208
- new-id-18208
- (let ((t-18217
- (search-18161
- id-18179
- (cdr w1-18180)
- marks-18209)))
- (if t-18217 t-18217 id-18179)))))))
+ (search-17970 id-17988 (cdr w-17969) marks-17990))
+ (lambda (new-id-18017 marks-18018)
+ (if new-id-18017
+ new-id-18017
+ (let ((t-18026
+ (search-17970
+ id-17988
+ (cdr w1-17989)
+ marks-18018)))
+ (if t-18026 t-18026 id-17988)))))))
(syntax-violation
'id-var-name
"invalid id"
- id-18159))))))
- (locally-bound-identifiers-6569
- (lambda (w-18300 mod-18301)
+ id-17968))))))
+ (locally-bound-identifiers-6365
+ (lambda (w-18109 mod-18110)
(letrec*
- ((scan-18302
- (lambda (subst-18307 results-18308)
- (if (null? subst-18307)
- results-18308
- (let ((fst-18309 (car subst-18307)))
- (if (eq? fst-18309 'shift)
- (scan-18302 (cdr subst-18307) results-18308)
- (let ((symnames-18311 (vector-ref fst-18309 1))
- (marks-18312 (vector-ref fst-18309 2)))
- (if (vector? symnames-18311)
- (scan-vector-rib-18304
- subst-18307
- symnames-18311
- marks-18312
- results-18308)
- (scan-list-rib-18303
- subst-18307
- symnames-18311
- marks-18312
- results-18308))))))))
- (scan-list-rib-18303
- (lambda (subst-18410
- symnames-18411
- marks-18412
- results-18413)
+ ((scan-18111
+ (lambda (subst-18116 results-18117)
+ (if (null? subst-18116)
+ results-18117
+ (let ((fst-18118 (car subst-18116)))
+ (if (eq? fst-18118 'shift)
+ (scan-18111 (cdr subst-18116) results-18117)
+ (let ((symnames-18120 (vector-ref fst-18118 1))
+ (marks-18121 (vector-ref fst-18118 2)))
+ (if (vector? symnames-18120)
+ (scan-vector-rib-18113
+ subst-18116
+ symnames-18120
+ marks-18121
+ results-18117)
+ (scan-list-rib-18112
+ subst-18116
+ symnames-18120
+ marks-18121
+ results-18117))))))))
+ (scan-list-rib-18112
+ (lambda (subst-18219
+ symnames-18220
+ marks-18221
+ results-18222)
(letrec*
- ((f-18414
- (lambda (symnames-18514 marks-18515 results-18516)
- (if (null? symnames-18514)
- (scan-18302 (cdr subst-18410) results-18516)
- (f-18414
- (cdr symnames-18514)
- (cdr marks-18515)
- (cons (wrap-6578
- (car symnames-18514)
- (let ((w-18524
- (cons (car marks-18515)
- subst-18410)))
- (cons (cons #f (car w-18524))
- (cons 'shift (cdr w-18524))))
- mod-18301)
- results-18516))))))
- (f-18414
- symnames-18411
- marks-18412
- results-18413))))
- (scan-vector-rib-18304
- (lambda (subst-18525
- symnames-18526
- marks-18527
- results-18528)
- (let ((n-18529 (vector-length symnames-18526)))
+ ((f-18223
+ (lambda (symnames-18323 marks-18324 results-18325)
+ (if (null? symnames-18323)
+ (scan-18111 (cdr subst-18219) results-18325)
+ (f-18223
+ (cdr symnames-18323)
+ (cdr marks-18324)
+ (cons (wrap-6374
+ (car symnames-18323)
+ (let ((w-18333
+ (cons (car marks-18324)
+ subst-18219)))
+ (cons (cons #f (car w-18333))
+ (cons 'shift (cdr w-18333))))
+ mod-18110)
+ results-18325))))))
+ (f-18223
+ symnames-18220
+ marks-18221
+ results-18222))))
+ (scan-vector-rib-18113
+ (lambda (subst-18334
+ symnames-18335
+ marks-18336
+ results-18337)
+ (let ((n-18338 (vector-length symnames-18335)))
(letrec*
- ((f-18530
- (lambda (i-18613 results-18614)
- (if (= i-18613 n-18529)
- (scan-18302 (cdr subst-18525) results-18614)
- (f-18530
- (#{1+}# i-18613)
- (cons (wrap-6578
- (vector-ref symnames-18526 i-18613)
- (let ((w-18622
+ ((f-18339
+ (lambda (i-18422 results-18423)
+ (if (= i-18422 n-18338)
+ (scan-18111 (cdr subst-18334) results-18423)
+ (f-18339
+ (#{1+}# i-18422)
+ (cons (wrap-6374
+ (vector-ref symnames-18335 i-18422)
+ (let ((w-18431
(cons (vector-ref
- marks-18527
- i-18613)
- subst-18525)))
- (cons (cons #f (car w-18622))
- (cons 'shift (cdr w-18622))))
- mod-18301)
- results-18614))))))
- (f-18530 0 results-18528))))))
- (scan-18302 (cdr w-18300) '()))))
- (valid-bound-ids?-6575
- (lambda (ids-18623)
+ marks-18336
+ i-18422)
+ subst-18334)))
+ (cons (cons #f (car w-18431))
+ (cons 'shift (cdr w-18431))))
+ mod-18110)
+ results-18423))))))
+ (f-18339 0 results-18337))))))
+ (scan-18111 (cdr w-18109) '()))))
+ (valid-bound-ids?-6371
+ (lambda (ids-18432)
(if (letrec*
- ((all-ids?-18624
- (lambda (ids-18786)
- (if (null? ids-18786)
- (null? ids-18786)
- (if (let ((x-18797 (car ids-18786)))
- (if (symbol? x-18797)
+ ((all-ids?-18433
+ (lambda (ids-18595)
+ (if (null? ids-18595)
+ (null? ids-18595)
+ (if (let ((x-18606 (car ids-18595)))
+ (if (symbol? x-18606)
#t
- (if (if (vector? x-18797)
- (if (= (vector-length x-18797) 4)
- (eq? (vector-ref x-18797 0)
+ (if (if (vector? x-18606)
+ (if (= (vector-length x-18606) 4)
+ (eq? (vector-ref x-18606 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref x-18797 1))
+ (symbol? (vector-ref x-18606 1))
#f)))
- (all-ids?-18624 (cdr ids-18786))
+ (all-ids?-18433 (cdr ids-18595))
#f)))))
- (all-ids?-18624 ids-18623))
- (distinct-bound-ids?-6576 ids-18623)
+ (all-ids?-18433 ids-18432))
+ (distinct-bound-ids?-6372 ids-18432)
#f)))
- (distinct-bound-ids?-6576
- (lambda (ids-18925)
+ (distinct-bound-ids?-6372
+ (lambda (ids-18734)
(letrec*
- ((distinct?-18926
- (lambda (ids-19038)
- (if (null? ids-19038)
- (null? ids-19038)
- (if (not (bound-id-member?-6577
- (car ids-19038)
- (cdr ids-19038)))
- (distinct?-18926 (cdr ids-19038))
+ ((distinct?-18735
+ (lambda (ids-18847)
+ (if (null? ids-18847)
+ (null? ids-18847)
+ (if (not (bound-id-member?-6373
+ (car ids-18847)
+ (cdr ids-18847)))
+ (distinct?-18735 (cdr ids-18847))
#f)))))
- (distinct?-18926 ids-18925))))
- (bound-id-member?-6577
- (lambda (x-19248 list-19249)
- (if (not (null? list-19249))
- (let ((t-19250
- (let ((j-19331 (car list-19249)))
- (if (if (if (vector? x-19248)
- (if (= (vector-length x-19248) 4)
- (eq? (vector-ref x-19248 0) 'syntax-object)
+ (distinct?-18735 ids-18734))))
+ (bound-id-member?-6373
+ (lambda (x-19057 list-19058)
+ (if (not (null? list-19058))
+ (let ((t-19059
+ (let ((j-19140 (car list-19058)))
+ (if (if (if (vector? x-19057)
+ (if (= (vector-length x-19057) 4)
+ (eq? (vector-ref x-19057 0) 'syntax-object)
#f)
#f)
- (if (vector? j-19331)
- (if (= (vector-length j-19331) 4)
- (eq? (vector-ref j-19331 0) 'syntax-object)
+ (if (vector? j-19140)
+ (if (= (vector-length j-19140) 4)
+ (eq? (vector-ref j-19140 0) 'syntax-object)
#f)
#f)
#f)
- (if (eq? (vector-ref x-19248 1)
- (vector-ref j-19331 1))
- (same-marks?-6567
- (car (vector-ref x-19248 2))
- (car (vector-ref j-19331 2)))
+ (if (eq? (vector-ref x-19057 1)
+ (vector-ref j-19140 1))
+ (same-marks?-6363
+ (car (vector-ref x-19057 2))
+ (car (vector-ref j-19140 2)))
#f)
- (eq? x-19248 j-19331)))))
- (if t-19250
- t-19250
- (bound-id-member?-6577 x-19248 (cdr list-19249))))
+ (eq? x-19057 j-19140)))))
+ (if t-19059
+ t-19059
+ (bound-id-member?-6373 x-19057 (cdr list-19058))))
#f)))
- (wrap-6578
- (lambda (x-19375 w-19376 defmod-19377)
- (if (if (null? (car w-19376))
- (null? (cdr w-19376))
+ (wrap-6374
+ (lambda (x-19184 w-19185 defmod-19186)
+ (if (if (null? (car w-19185))
+ (null? (cdr w-19185))
#f)
- x-19375
- (if (if (vector? x-19375)
- (if (= (vector-length x-19375) 4)
- (eq? (vector-ref x-19375 0) 'syntax-object)
+ x-19184
+ (if (if (vector? x-19184)
+ (if (= (vector-length x-19184) 4)
+ (eq? (vector-ref x-19184 0) 'syntax-object)
#f)
#f)
- (let ((expression-19391 (vector-ref x-19375 1))
- (wrap-19392
- (join-wraps-6565 w-19376 (vector-ref x-19375 2)))
- (module-19393 (vector-ref x-19375 3)))
+ (let ((expression-19200 (vector-ref x-19184 1))
+ (wrap-19201
+ (join-wraps-6361 w-19185 (vector-ref x-19184 2)))
+ (module-19202 (vector-ref x-19184 3)))
(vector
'syntax-object
- expression-19391
- wrap-19392
- module-19393))
- (if (null? x-19375)
- x-19375
+ expression-19200
+ wrap-19201
+ module-19202))
+ (if (null? x-19184)
+ x-19184
(vector
'syntax-object
- x-19375
- w-19376
- defmod-19377))))))
- (source-wrap-6579
- (lambda (x-19410 w-19411 s-19412 defmod-19413)
- (wrap-6578
+ x-19184
+ w-19185
+ defmod-19186))))))
+ (source-wrap-6375
+ (lambda (x-19219 w-19220 s-19221 defmod-19222)
+ (wrap-6374
(begin
- (if (if (pair? x-19410) s-19412 #f)
- (set-source-properties! x-19410 s-19412))
- x-19410)
- w-19411
- defmod-19413)))
- (expand-sequence-6580
- (lambda (body-29409 r-29410 w-29411 s-29412 mod-29413)
- (build-sequence-6530
- s-29412
+ (if (if (pair? x-19219) s-19221 #f)
+ (set-source-properties! x-19219 s-19221))
+ x-19219)
+ w-19220
+ defmod-19222)))
+ (expand-sequence-6376
+ (lambda (body-29358 r-29359 w-29360 s-29361 mod-29362)
+ (build-sequence-6326
+ s-29361
(letrec*
- ((dobody-29493
- (lambda (body-29833 r-29834 w-29835 mod-29836)
- (if (null? body-29833)
+ ((dobody-29442
+ (lambda (body-29782 r-29783 w-29784 mod-29785)
+ (if (null? body-29782)
'()
- (let ((first-29837
- (let ((e-29841 (car body-29833)))
+ (let ((first-29786
+ (let ((e-29790 (car body-29782)))
(call-with-values
(lambda ()
- (syntax-type-6584
- e-29841
- r-29834
- w-29835
- (source-annotation-6542 e-29841)
+ (syntax-type-6380
+ e-29790
+ r-29783
+ w-29784
+ (source-annotation-6338 e-29790)
#f
- mod-29836
+ mod-29785
#f))
- (lambda (type-29848
- value-29849
- form-29850
- e-29851
- w-29852
- s-29853
- mod-29854)
- (expand-expr-6586
- type-29848
- value-29849
- form-29850
- e-29851
- r-29834
- w-29852
- s-29853
- mod-29854))))))
- (cons first-29837
- (dobody-29493
- (cdr body-29833)
- r-29834
- w-29835
- mod-29836)))))))
- (dobody-29493
- body-29409
- r-29410
- w-29411
- mod-29413)))))
- (expand-top-sequence-6581
- (lambda (body-19431
- r-19432
- w-19433
- s-19434
- m-19435
- esew-19436
- mod-19437)
+ (lambda (type-29797
+ value-29798
+ form-29799
+ e-29800
+ w-29801
+ s-29802
+ mod-29803)
+ (expand-expr-6382
+ type-29797
+ value-29798
+ form-29799
+ e-29800
+ r-29783
+ w-29801
+ s-29802
+ mod-29803))))))
+ (cons first-29786
+ (dobody-29442
+ (cdr body-29782)
+ r-29783
+ w-29784
+ mod-29785)))))))
+ (dobody-29442
+ body-29358
+ r-29359
+ w-29360
+ mod-29362)))))
+ (expand-top-sequence-6377
+ (lambda (body-19240
+ r-19241
+ w-19242
+ s-19243
+ m-19244
+ esew-19245
+ mod-19246)
(letrec*
- ((scan-19438
- (lambda (body-19569
- r-19570
- w-19571
- s-19572
- m-19573
- esew-19574
- mod-19575
- exps-19576)
- (if (null? body-19569)
- exps-19576
+ ((scan-19247
+ (lambda (body-19378
+ r-19379
+ w-19380
+ s-19381
+ m-19382
+ esew-19383
+ mod-19384
+ exps-19385)
+ (if (null? body-19378)
+ exps-19385
(call-with-values
(lambda ()
(call-with-values
(lambda ()
- (let ((e-19577 (car body-19569)))
- (syntax-type-6584
- e-19577
- r-19570
- w-19571
- (let ((t-19581 (source-annotation-6542 e-19577)))
- (if t-19581 t-19581 s-19572))
+ (let ((e-19386 (car body-19378)))
+ (syntax-type-6380
+ e-19386
+ r-19379
+ w-19380
+ (let ((t-19390 (source-annotation-6338 e-19386)))
+ (if t-19390 t-19390 s-19381))
#f
- mod-19575
+ mod-19384
#f)))
- (lambda (type-19816
- value-19817
- form-19818
- e-19819
- w-19820
- s-19821
- mod-19822)
- (if (eqv? type-19816 'begin-form)
- (let ((tmp-19827 ($sc-dispatch e-19819 '(_))))
- (if tmp-19827
- (@apply (lambda () exps-19576) tmp-19827)
- (let ((tmp-19831
+ (lambda (type-19625
+ value-19626
+ form-19627
+ e-19628
+ w-19629
+ s-19630
+ mod-19631)
+ (if (eqv? type-19625 'begin-form)
+ (let ((tmp-19640 ($sc-dispatch e-19628 '(_))))
+ (if tmp-19640
+ (@apply (lambda () exps-19385) tmp-19640)
+ (let ((tmp-19644
($sc-dispatch
- e-19819
+ e-19628
'(_ any . each-any))))
- (if tmp-19831
+ (if tmp-19644
(@apply
- (lambda (e1-19835 e2-19836)
- (scan-19438
- (cons e1-19835 e2-19836)
- r-19570
- w-19820
- s-19821
- m-19573
- esew-19574
- mod-19822
- exps-19576))
- tmp-19831)
+ (lambda (e1-19648 e2-19649)
+ (scan-19247
+ (cons e1-19648 e2-19649)
+ r-19379
+ w-19629
+ s-19630
+ m-19382
+ esew-19383
+ mod-19631
+ exps-19385))
+ tmp-19644)
(syntax-violation
#f
"source expression failed to match any pattern"
- e-19819)))))
- (if (eqv? type-19816 'local-syntax-form)
- (expand-local-syntax-6590
- value-19817
- e-19819
- r-19570
- w-19820
- s-19821
- mod-19822
- (lambda (body-19851
- r-19852
- w-19853
- s-19854
- mod-19855)
- (scan-19438
- body-19851
- r-19852
- w-19853
- s-19854
- m-19573
- esew-19574
- mod-19855
- exps-19576)))
- (if (eqv? type-19816 'eval-when-form)
- (let ((tmp-19860
+ e-19628)))))
+ (if (eqv? type-19625 'local-syntax-form)
+ (expand-local-syntax-6386
+ value-19626
+ e-19628
+ r-19379
+ w-19629
+ s-19630
+ mod-19631
+ (lambda (body-19667
+ r-19668
+ w-19669
+ s-19670
+ mod-19671)
+ (scan-19247
+ body-19667
+ r-19668
+ w-19669
+ s-19670
+ m-19382
+ esew-19383
+ mod-19671
+ exps-19385)))
+ (if (eqv? type-19625 'eval-when-form)
+ (let ((tmp-19679
($sc-dispatch
- e-19819
+ e-19628
'(_ each-any any . each-any))))
- (if tmp-19860
+ (if tmp-19679
(@apply
- (lambda (x-19864 e1-19865 e2-19866)
- (let ((when-list-19867
- (parse-when-list-6583
- e-19819
- x-19864))
- (body-19868
- (cons e1-19865 e2-19866)))
- (if (eq? m-19573 'e)
- (if (memq 'eval when-list-19867)
- (scan-19438
- body-19868
- r-19570
- w-19820
- s-19821
+ (lambda (x-19683 e1-19684 e2-19685)
+ (let ((when-list-19686
+ (parse-when-list-6379
+ e-19628
+ x-19683))
+ (body-19687
+ (cons e1-19684 e2-19685)))
+ (if (eq? m-19382 'e)
+ (if (memq 'eval when-list-19686)
+ (scan-19247
+ body-19687
+ r-19379
+ w-19629
+ s-19630
(if (memq 'expand
- when-list-19867)
+ when-list-19686)
'c&e
'e)
'(eval)
- mod-19822
- exps-19576)
+ mod-19631
+ exps-19385)
(begin
(if (memq 'expand
- when-list-19867)
- (let ((x-19945
- (expand-top-sequence-6581
- body-19868
- r-19570
- w-19820
- s-19821
+ when-list-19686)
+ (let ((x-19764
+ (expand-top-sequence-6377
+ body-19687
+ r-19379
+ w-19629
+ s-19630
'e
'(eval)
- mod-19822)))
- (primitive-eval x-19945)))
- exps-19576))
- (if (memq 'load when-list-19867)
- (if (let ((t-19971
+ mod-19631)))
+ (primitive-eval x-19764)))
+ exps-19385))
+ (if (memq 'load when-list-19686)
+ (if (let ((t-19790
(memq 'compile
- when-list-19867)))
- (if t-19971
- t-19971
- (let ((t-20020
+ when-list-19686)))
+ (if t-19790
+ t-19790
+ (let ((t-19839
(memq 'expand
- when-list-19867)))
- (if t-20020
- t-20020
- (if (eq? m-19573
+ when-list-19686)))
+ (if t-19839
+ t-19839
+ (if (eq? m-19382
'c&e)
(memq 'eval
- when-list-19867)
+ when-list-19686)
#f)))))
- (scan-19438
- body-19868
- r-19570
- w-19820
- s-19821
+ (scan-19247
+ body-19687
+ r-19379
+ w-19629
+ s-19630
'c&e
'(compile load)
- mod-19822
- exps-19576)
- (if (if (eq? m-19573 'c)
+ mod-19631
+ exps-19385)
+ (if (if (eq? m-19382 'c)
#t
- (eq? m-19573 'c&e))
- (scan-19438
- body-19868
- r-19570
- w-19820
- s-19821
+ (eq? m-19382 'c&e))
+ (scan-19247
+ body-19687
+ r-19379
+ w-19629
+ s-19630
'c
'(load)
- mod-19822
- exps-19576)
- exps-19576))
- (if (let ((t-20149
+ mod-19631
+ exps-19385)
+ exps-19385))
+ (if (let ((t-19968
(memq 'compile
- when-list-19867)))
- (if t-20149
- t-20149
- (let ((t-20198
+ when-list-19686)))
+ (if t-19968
+ t-19968
+ (let ((t-20017
(memq 'expand
- when-list-19867)))
- (if t-20198
- t-20198
- (if (eq? m-19573
+ when-list-19686)))
+ (if t-20017
+ t-20017
+ (if (eq? m-19382
'c&e)
(memq 'eval
- when-list-19867)
+ when-list-19686)
#f)))))
(begin
- (let ((x-20322
- (expand-top-sequence-6581
- body-19868
- r-19570
- w-19820
- s-19821
+ (let ((x-20141
+ (expand-top-sequence-6377
+ body-19687
+ r-19379
+ w-19629
+ s-19630
'e
'(eval)
- mod-19822)))
- (primitive-eval x-20322))
- exps-19576)
- exps-19576)))))
- tmp-19860)
+ mod-19631)))
+ (primitive-eval x-20141))
+ exps-19385)
+ exps-19385)))))
+ tmp-19679)
(syntax-violation
#f
"source expression failed to match any pattern"
- e-19819)))
- (if (if (eqv? type-19816 'define-syntax-form)
+ e-19628)))
+ (if (if (eqv? type-19625 'define-syntax-form)
#t
- (eqv? type-19816
+ (eqv? type-19625
'define-syntax-parameter-form))
- (let ((n-20368
- (id-var-name-6568
- value-19817
- w-19820))
- (r-20369
- (macros-only-env-6545 r-19570)))
- (if (eqv? m-19573 'c)
- (if (memq 'compile esew-19574)
- (let ((e-20373
- (expand-install-global-6582
- n-20368
- (expand-6585
- e-19819
- r-20369
- w-19820
- mod-19822))))
+ (let ((n-20190
+ (id-var-name-6364
+ value-19626
+ w-19629))
+ (r-20191
+ (macros-only-env-6341 r-19379)))
+ (if (eqv? m-19382 'c)
+ (if (memq 'compile esew-19383)
+ (let ((e-20199
+ (expand-install-global-6378
+ n-20190
+ (expand-6381
+ e-19628
+ r-20191
+ w-19629
+ mod-19631))))
(begin
- (top-level-eval-hook-6508
- e-20373
- mod-19822)
- (if (memq 'load esew-19574)
- (cons e-20373 exps-19576)
- exps-19576)))
- (if (memq 'load esew-19574)
- (cons (expand-install-global-6582
- n-20368
- (expand-6585
- e-19819
- r-20369
- w-19820
- mod-19822))
- exps-19576)
- exps-19576))
- (if (eqv? m-19573 'c&e)
- (let ((e-21015
- (expand-install-global-6582
- n-20368
- (expand-6585
- e-19819
- r-20369
- w-19820
- mod-19822))))
+ (top-level-eval-hook-6304
+ e-20199
+ mod-19631)
+ (if (memq 'load esew-19383)
+ (cons e-20199 exps-19385)
+ exps-19385)))
+ (if (memq 'load esew-19383)
+ (cons (expand-install-global-6378
+ n-20190
+ (expand-6381
+ e-19628
+ r-20191
+ w-19629
+ mod-19631))
+ exps-19385)
+ exps-19385))
+ (if (eqv? m-19382 'c&e)
+ (let ((e-20844
+ (expand-install-global-6378
+ n-20190
+ (expand-6381
+ e-19628
+ r-20191
+ w-19629
+ mod-19631))))
(begin
- (top-level-eval-hook-6508
- e-21015
- mod-19822)
- (cons e-21015 exps-19576)))
+ (top-level-eval-hook-6304
+ e-20844
+ mod-19631)
+ (cons e-20844 exps-19385)))
(begin
- (if (memq 'eval esew-19574)
- (top-level-eval-hook-6508
- (expand-install-global-6582
- n-20368
- (expand-6585
- e-19819
- r-20369
- w-19820
- mod-19822))
- mod-19822))
- exps-19576))))
- (if (eqv? type-19816 'define-form)
- (let ((n-21689
- (id-var-name-6568
- value-19817
- w-19820)))
- (let ((type-21690
- (car (let ((t-21697
- (assq n-21689
- r-19570)))
- (if t-21697
- (cdr t-21697)
- (if (symbol? n-21689)
- (let ((t-21703
- (get-global-definition-hook-6512
- n-21689
- mod-19822)))
- (if t-21703
- t-21703
+ (if (memq 'eval esew-19383)
+ (top-level-eval-hook-6304
+ (expand-install-global-6378
+ n-20190
+ (expand-6381
+ e-19628
+ r-20191
+ w-19629
+ mod-19631))
+ mod-19631))
+ exps-19385))))
+ (if (eqv? type-19625 'define-form)
+ (let ((n-21521
+ (id-var-name-6364
+ value-19626
+ w-19629)))
+ (let ((type-21522
+ (car (let ((t-21530
+ (assq n-21521
+ r-19379)))
+ (if t-21530
+ (cdr t-21530)
+ (if (symbol? n-21521)
+ (let ((t-21536
+ (get-global-definition-hook-6308
+ n-21521
+ mod-19631)))
+ (if t-21536
+ t-21536
'(global)))
'(displaced-lexical)))))))
- (if (if (eqv? type-21690 'global)
+ (if (if (eqv? type-21522 'global)
#t
- (if (eqv? type-21690 'core)
+ (if (eqv? type-21522 'core)
#t
- (if (eqv? type-21690 'macro)
+ (if (eqv? type-21522 'macro)
#t
- (eqv? type-21690
+ (eqv? type-21522
'module-ref))))
(begin
- (if (if (if (eq? m-19573 'c)
+ (if (if (if (eq? m-19382 'c)
#t
- (eq? m-19573 'c&e))
+ (eq? m-19382 'c&e))
(if (not (module-local-variable
(current-module)
- n-21689))
+ n-21521))
(current-module)
#f)
#f)
- (let ((old-21734
+ (let ((old-21569
(module-variable
(current-module)
- n-21689)))
- (if (if (variable? old-21734)
+ n-21521)))
+ (if (if (variable? old-21569)
(variable-bound?
- old-21734)
+ old-21569)
#f)
(module-define!
(current-module)
- n-21689
- (variable-ref old-21734))
+ n-21521
+ (variable-ref old-21569))
(module-add!
(current-module)
- n-21689
+ n-21521
(make-undefined-variable)))))
- (cons (if (eq? m-19573 'c&e)
- (let ((x-22175
- (build-global-definition-6524
- s-19821
- n-21689
- (expand-6585
- e-19819
- r-19570
- w-19820
- mod-19822))))
+ (cons (if (eq? m-19382 'c&e)
+ (let ((x-22010
+ (build-global-definition-6320
+ s-19630
+ n-21521
+ (expand-6381
+ e-19628
+ r-19379
+ w-19629
+ mod-19631))))
(begin
- (top-level-eval-hook-6508
- x-22175
- mod-19822)
- x-22175))
+ (top-level-eval-hook-6304
+ x-22010
+ mod-19631)
+ x-22010))
(lambda ()
- (build-global-definition-6524
- s-19821
- n-21689
- (expand-6585
- e-19819
- r-19570
- w-19820
- mod-19822))))
- exps-19576))
- (if (eqv? type-21690
+ (build-global-definition-6320
+ s-19630
+ n-21521
+ (expand-6381
+ e-19628
+ r-19379
+ w-19629
+ mod-19631))))
+ exps-19385))
+ (if (eqv? type-21522
'displaced-lexical)
(syntax-violation
#f
"identifier out of context"
- (wrap-6578
+ (wrap-6374
(begin
- (if (if (pair? form-19818)
- s-19821
+ (if (if (pair? form-19627)
+ s-19630
#f)
(set-source-properties!
- form-19818
- s-19821))
- form-19818)
- w-19820
- mod-19822)
- (wrap-6578
- value-19817
- w-19820
- mod-19822))
+ form-19627
+ s-19630))
+ form-19627)
+ w-19629
+ mod-19631)
+ (wrap-6374
+ value-19626
+ w-19629
+ mod-19631))
(syntax-violation
#f
"cannot define keyword at top level"
- (wrap-6578
+ (wrap-6374
(begin
- (if (if (pair? form-19818)
- s-19821
+ (if (if (pair? form-19627)
+ s-19630
#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)))
+ form-19627
+ s-19630))
+ form-19627)
+ w-19629
+ mod-19631)
+ (wrap-6374
+ value-19626
+ w-19629
+ mod-19631))))))
+ (cons (if (eq? m-19382 'c&e)
+ (let ((x-22512
+ (expand-expr-6382
+ type-19625
+ value-19626
+ form-19627
+ e-19628
+ r-19379
+ w-19629
+ s-19630
+ mod-19631)))
(begin
- (primitive-eval x-22674)
- x-22674))
+ (primitive-eval x-22512)
+ x-22512))
(lambda ()
- (expand-expr-6586
- type-19816
- value-19817
- form-19818
- e-19819
- r-19570
- w-19820
- s-19821
- mod-19822)))
- exps-19576)))))))))
- (lambda (exps-22679)
- (scan-19438
- (cdr body-19569)
- r-19570
- w-19571
- s-19572
- m-19573
- esew-19574
- mod-19575
- exps-22679)))))))
+ (expand-expr-6382
+ type-19625
+ value-19626
+ form-19627
+ e-19628
+ r-19379
+ w-19629
+ s-19630
+ mod-19631)))
+ exps-19385)))))))))
+ (lambda (exps-22517)
+ (scan-19247
+ (cdr body-19378)
+ r-19379
+ w-19380
+ s-19381
+ m-19382
+ esew-19383
+ mod-19384
+ exps-22517)))))))
(call-with-values
(lambda ()
- (scan-19438
- body-19431
- r-19432
- w-19433
- s-19434
- m-19435
- esew-19436
- mod-19437
+ (scan-19247
+ body-19240
+ r-19241
+ w-19242
+ s-19243
+ m-19244
+ esew-19245
+ mod-19246
'()))
- (lambda (exps-19441)
- (if (null? exps-19441)
+ (lambda (exps-19250)
+ (if (null? exps-19250)
(make-struct/no-tail
(vector-ref %expanded-vtables 0)
- s-19434)
- (build-sequence-6530
- s-19434
+ s-19243)
+ (build-sequence-6326
+ s-19243
(letrec*
- ((lp-19481
- (lambda (in-19565 out-19566)
- (if (null? in-19565)
- out-19566
- (let ((e-19567 (car in-19565)))
- (lp-19481
- (cdr in-19565)
- (cons (if (procedure? e-19567)
- (e-19567)
- e-19567)
- out-19566)))))))
- (lp-19481 exps-19441 '())))))))))
- (expand-install-global-6582
- (lambda (name-22680 e-22681)
- (let ((exp-22687
- (let ((fun-exp-22697
+ ((lp-19290
+ (lambda (in-19374 out-19375)
+ (if (null? in-19374)
+ out-19375
+ (let ((e-19376 (car in-19374)))
+ (lp-19290
+ (cdr in-19374)
+ (cons (if (procedure? e-19376)
+ (e-19376)
+ e-19376)
+ out-19375)))))))
+ (lp-19290 exps-19250 '())))))))))
+ (expand-install-global-6378
+ (lambda (name-22518 e-22519)
+ (let ((exp-22525
+ (let ((fun-exp-22535
(if (equal? (module-name (current-module)) '(guile))
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
@@ -1274,398 +1274,398 @@
'(guile)
'make-syntax-transformer
#f)))
- (arg-exps-22698
+ (arg-exps-22536
(list (make-struct/no-tail
(vector-ref %expanded-vtables 1)
#f
- name-22680)
+ name-22518)
(make-struct/no-tail
(vector-ref %expanded-vtables 1)
#f
'macro)
- e-22681)))
+ e-22519)))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
#f
- fun-exp-22697
- arg-exps-22698))))
+ fun-exp-22535
+ arg-exps-22536))))
(begin
- (if (if (struct? exp-22687)
- (eq? (struct-vtable exp-22687)
+ (if (if (struct? exp-22525)
+ (eq? (struct-vtable exp-22525)
(vector-ref %expanded-vtables 13))
#f)
- (let ((meta-22739 (struct-ref exp-22687 1)))
- (if (not (assq 'name meta-22739))
- (let ((v-22746
- (cons (cons 'name name-22680) meta-22739)))
- (struct-set! exp-22687 1 v-22746)))))
+ (let ((meta-22577 (struct-ref exp-22525 1)))
+ (if (not (assq 'name meta-22577))
+ (let ((v-22584
+ (cons (cons 'name name-22518) meta-22577)))
+ (struct-set! exp-22525 1 v-22584)))))
(make-struct/no-tail
(vector-ref %expanded-vtables 9)
#f
- name-22680
- exp-22687)))))
- (parse-when-list-6583
- (lambda (e-22757 when-list-22758)
- (let ((result-22759 (strip-6598 when-list-22758 '(()))))
+ name-22518
+ exp-22525)))))
+ (parse-when-list-6379
+ (lambda (e-22595 when-list-22596)
+ (let ((result-22597 (strip-6394 when-list-22596 '(()))))
(letrec*
- ((lp-22760
- (lambda (l-22814)
- (if (null? l-22814)
- result-22759
- (if (let ((t-22816 (car l-22814)))
- (if (eq? t-22816 'compile)
+ ((lp-22598
+ (lambda (l-22652)
+ (if (null? l-22652)
+ result-22597
+ (if (let ((t-22654 (car l-22652)))
+ (if (eq? t-22654 'compile)
#t
- (if (eq? t-22816 'load)
+ (if (eq? t-22654 'load)
#t
- (if (eq? t-22816 'eval)
+ (if (eq? t-22654 'eval)
#t
- (eq? t-22816 'expand)))))
- (lp-22760 (cdr l-22814))
+ (eq? t-22654 'expand)))))
+ (lp-22598 (cdr l-22652))
(syntax-violation
'eval-when
"invalid situation"
- e-22757
- (car l-22814)))))))
- (lp-22760 result-22759)))))
- (syntax-type-6584
- (lambda (e-22818
- r-22819
- w-22820
- s-22821
- rib-22822
- mod-22823
- for-car?-22824)
- (if (symbol? e-22818)
- (let ((n-22825 (id-var-name-6568 e-22818 w-22820)))
- (let ((b-22826
- (let ((t-22834 (assq n-22825 r-22819)))
- (if t-22834
- (cdr t-22834)
- (if (symbol? n-22825)
- (let ((t-22840
- (get-global-definition-hook-6512
- n-22825
- mod-22823)))
- (if t-22840 t-22840 '(global)))
+ e-22595
+ (car l-22652)))))))
+ (lp-22598 result-22597)))))
+ (syntax-type-6380
+ (lambda (e-22656
+ r-22657
+ w-22658
+ s-22659
+ rib-22660
+ mod-22661
+ for-car?-22662)
+ (if (symbol? e-22656)
+ (let ((n-22663 (id-var-name-6364 e-22656 w-22658)))
+ (let ((b-22664
+ (let ((t-22673 (assq n-22663 r-22657)))
+ (if t-22673
+ (cdr t-22673)
+ (if (symbol? n-22663)
+ (let ((t-22679
+ (get-global-definition-hook-6308
+ n-22663
+ mod-22661)))
+ (if t-22679 t-22679 '(global)))
'(displaced-lexical))))))
- (let ((type-22827 (car b-22826)))
- (if (eqv? type-22827 'lexical)
+ (let ((type-22665 (car b-22664)))
+ (if (eqv? type-22665 'lexical)
(values
- type-22827
- (cdr b-22826)
- e-22818
- e-22818
- w-22820
- s-22821
- mod-22823)
- (if (eqv? type-22827 'global)
+ type-22665
+ (cdr b-22664)
+ e-22656
+ e-22656
+ w-22658
+ s-22659
+ mod-22661)
+ (if (eqv? type-22665 'global)
(values
- type-22827
- n-22825
- e-22818
- e-22818
- w-22820
- s-22821
- mod-22823)
- (if (eqv? type-22827 'macro)
- (if for-car?-22824
+ type-22665
+ n-22663
+ e-22656
+ e-22656
+ w-22658
+ s-22659
+ mod-22661)
+ (if (eqv? type-22665 'macro)
+ (if for-car?-22662
(values
- type-22827
- (cdr b-22826)
- e-22818
- e-22818
- w-22820
- s-22821
- mod-22823)
- (syntax-type-6584
- (expand-macro-6588
- (cdr b-22826)
- e-22818
- r-22819
- w-22820
- s-22821
- rib-22822
- mod-22823)
- r-22819
+ type-22665
+ (cdr b-22664)
+ e-22656
+ e-22656
+ w-22658
+ s-22659
+ mod-22661)
+ (syntax-type-6380
+ (expand-macro-6384
+ (cdr b-22664)
+ e-22656
+ r-22657
+ w-22658
+ s-22659
+ rib-22660
+ mod-22661)
+ r-22657
'(())
- s-22821
- rib-22822
- mod-22823
+ s-22659
+ rib-22660
+ mod-22661
#f))
(values
- type-22827
- (cdr b-22826)
- e-22818
- e-22818
- w-22820
- s-22821
- mod-22823)))))))
- (if (pair? e-22818)
- (let ((first-22860 (car e-22818)))
+ type-22665
+ (cdr b-22664)
+ e-22656
+ e-22656
+ w-22658
+ s-22659
+ mod-22661)))))))
+ (if (pair? e-22656)
+ (let ((first-22707 (car e-22656)))
(call-with-values
(lambda ()
- (syntax-type-6584
- first-22860
- r-22819
- w-22820
- s-22821
- rib-22822
- mod-22823
+ (syntax-type-6380
+ first-22707
+ r-22657
+ w-22658
+ s-22659
+ rib-22660
+ mod-22661
#t))
- (lambda (ftype-22862
- fval-22863
- fform-22864
- fe-22865
- fw-22866
- fs-22867
- fmod-22868)
- (if (eqv? ftype-22862 'lexical)
+ (lambda (ftype-22709
+ fval-22710
+ fform-22711
+ fe-22712
+ fw-22713
+ fs-22714
+ fmod-22715)
+ (if (eqv? ftype-22709 'lexical)
(values
'lexical-call
- fval-22863
- e-22818
- e-22818
- w-22820
- s-22821
- mod-22823)
- (if (eqv? ftype-22862 'global)
+ fval-22710
+ e-22656
+ e-22656
+ w-22658
+ s-22659
+ mod-22661)
+ (if (eqv? ftype-22709 'global)
(values
'global-call
(vector
'syntax-object
- fval-22863
- w-22820
- fmod-22868)
- e-22818
- e-22818
- w-22820
- s-22821
- mod-22823)
- (if (eqv? ftype-22862 'macro)
- (syntax-type-6584
- (expand-macro-6588
- fval-22863
- e-22818
- r-22819
- w-22820
- s-22821
- rib-22822
- mod-22823)
- r-22819
+ fval-22710
+ w-22658
+ fmod-22715)
+ e-22656
+ e-22656
+ w-22658
+ s-22659
+ mod-22661)
+ (if (eqv? ftype-22709 'macro)
+ (syntax-type-6380
+ (expand-macro-6384
+ fval-22710
+ e-22656
+ r-22657
+ w-22658
+ s-22659
+ rib-22660
+ mod-22661)
+ r-22657
'(())
- s-22821
- rib-22822
- mod-22823
- for-car?-22824)
- (if (eqv? ftype-22862 'module-ref)
+ s-22659
+ rib-22660
+ mod-22661
+ for-car?-22662)
+ (if (eqv? ftype-22709 'module-ref)
(call-with-values
- (lambda () (fval-22863 e-22818 r-22819 w-22820))
- (lambda (e-22889
- r-22890
- w-22891
- s-22892
- mod-22893)
- (syntax-type-6584
- e-22889
- r-22890
- w-22891
- s-22892
- rib-22822
- mod-22893
- for-car?-22824)))
- (if (eqv? ftype-22862 'core)
+ (lambda () (fval-22710 e-22656 r-22657 w-22658))
+ (lambda (e-22749
+ r-22750
+ w-22751
+ s-22752
+ mod-22753)
+ (syntax-type-6380
+ e-22749
+ r-22750
+ w-22751
+ s-22752
+ rib-22660
+ mod-22753
+ for-car?-22662)))
+ (if (eqv? ftype-22709 'core)
(values
'core-form
- fval-22863
- e-22818
- e-22818
- w-22820
- s-22821
- mod-22823)
- (if (eqv? ftype-22862 'local-syntax)
+ fval-22710
+ e-22656
+ e-22656
+ w-22658
+ s-22659
+ mod-22661)
+ (if (eqv? ftype-22709 'local-syntax)
(values
'local-syntax-form
- fval-22863
- e-22818
- e-22818
- w-22820
- s-22821
- mod-22823)
- (if (eqv? ftype-22862 'begin)
+ fval-22710
+ e-22656
+ e-22656
+ w-22658
+ s-22659
+ mod-22661)
+ (if (eqv? ftype-22709 'begin)
(values
'begin-form
#f
- e-22818
- e-22818
- w-22820
- s-22821
- mod-22823)
- (if (eqv? ftype-22862 'eval-when)
+ e-22656
+ e-22656
+ w-22658
+ s-22659
+ mod-22661)
+ (if (eqv? ftype-22709 'eval-when)
(values
'eval-when-form
#f
- e-22818
- e-22818
- w-22820
- s-22821
- mod-22823)
- (if (eqv? ftype-22862 'define)
- (let ((tmp-22910
+ e-22656
+ e-22656
+ w-22658
+ s-22659
+ mod-22661)
+ (if (eqv? ftype-22709 'define)
+ (let ((tmp-22785
($sc-dispatch
- e-22818
+ e-22656
'(_ any any))))
- (if (if tmp-22910
+ (if (if tmp-22785
(@apply
- (lambda (name-22914 val-22915)
- (if (symbol? name-22914)
+ (lambda (name-22789 val-22790)
+ (if (symbol? name-22789)
#t
- (if (if (vector? name-22914)
+ (if (if (vector? name-22789)
(if (= (vector-length
- name-22914)
+ name-22789)
4)
(eq? (vector-ref
- name-22914
+ name-22789
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- name-22914
+ name-22789
1))
#f)))
- tmp-22910)
+ tmp-22785)
#f)
(@apply
- (lambda (name-22942 val-22943)
+ (lambda (name-22817 val-22818)
(values
'define-form
- name-22942
- e-22818
- val-22943
- w-22820
- s-22821
- mod-22823))
- tmp-22910)
- (let ((tmp-22944
+ name-22817
+ e-22656
+ val-22818
+ w-22658
+ s-22659
+ mod-22661))
+ tmp-22785)
+ (let ((tmp-22819
($sc-dispatch
- e-22818
+ e-22656
'(_ (any . any)
any
.
each-any))))
- (if (if tmp-22944
+ (if (if tmp-22819
(@apply
- (lambda (name-22948
- args-22949
- e1-22950
- e2-22951)
+ (lambda (name-22823
+ args-22824
+ e1-22825
+ e2-22826)
(if (if (symbol?
- name-22948)
+ name-22823)
#t
(if (if (vector?
- name-22948)
+ name-22823)
(if (= (vector-length
- name-22948)
+ name-22823)
4)
(eq? (vector-ref
- name-22948
+ name-22823
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- name-22948
+ name-22823
1))
#f))
- (valid-bound-ids?-6575
+ (valid-bound-ids?-6371
(letrec*
- ((lvl-23100
- (lambda (vars-23102
- ls-23103
- w-23104)
- (if (pair? vars-23102)
- (lvl-23100
- (cdr vars-23102)
- (cons (wrap-6578
- (car vars-23102)
- w-23104
+ ((lvl-22975
+ (lambda (vars-22977
+ ls-22978
+ w-22979)
+ (if (pair? vars-22977)
+ (lvl-22975
+ (cdr vars-22977)
+ (cons (wrap-6374
+ (car vars-22977)
+ w-22979
#f)
- ls-23103)
- w-23104)
+ ls-22978)
+ w-22979)
(if (if (symbol?
- vars-23102)
+ vars-22977)
#t
(if (if (vector?
- vars-23102)
+ vars-22977)
(if (= (vector-length
- vars-23102)
+ vars-22977)
4)
(eq? (vector-ref
- vars-23102
+ vars-22977
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- vars-23102
+ vars-22977
1))
#f))
- (cons (wrap-6578
- vars-23102
- w-23104
+ (cons (wrap-6374
+ vars-22977
+ w-22979
#f)
- ls-23103)
- (if (null? vars-23102)
- ls-23103
+ ls-22978)
+ (if (null? vars-22977)
+ ls-22978
(if (if (vector?
- vars-23102)
+ vars-22977)
(if (= (vector-length
- vars-23102)
+ vars-22977)
4)
(eq? (vector-ref
- vars-23102
+ vars-22977
0)
'syntax-object)
#f)
#f)
- (lvl-23100
+ (lvl-22975
(vector-ref
- vars-23102
+ vars-22977
1)
- ls-23103
- (join-wraps-6565
- w-23104
+ ls-22978
+ (join-wraps-6361
+ w-22979
(vector-ref
- vars-23102
+ vars-22977
2)))
- (cons vars-23102
- ls-23103))))))))
- (lvl-23100
- args-22949
+ (cons vars-22977
+ ls-22978))))))))
+ (lvl-22975
+ args-22824
'()
'(()))))
#f))
- tmp-22944)
+ tmp-22819)
#f)
(@apply
- (lambda (name-23148
- args-23149
- e1-23150
- e2-23151)
+ (lambda (name-23023
+ args-23024
+ e1-23025
+ e2-23026)
(values
'define-form
- (wrap-6578
- name-23148
- w-22820
- mod-22823)
- (wrap-6578
- e-22818
- w-22820
- mod-22823)
- (let ((e-23159
+ (wrap-6374
+ name-23023
+ w-22658
+ mod-22661)
+ (wrap-6374
+ e-22656
+ w-22658
+ mod-22661)
+ (let ((e-23034
(cons '#(syntax-object
lambda
((top)
@@ -1678,10 +1678,19 @@
(top)
(top)
(top))
- #("l-*-4009"
- "l-*-4010"
- "l-*-4011"
- "l-*-4012"))
+ #("l-*-3952"
+ "l-*-3953"
+ "l-*-3954"
+ "l-*-3955"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(key)
+ #((m-*-3917
+ top))
+ #("l-*-3918"))
#(ribcage
()
()
@@ -1705,13 +1714,13 @@
(top)
(top)
(top))
- #("l-*-3961"
- "l-*-3962"
- "l-*-3963"
- "l-*-3964"
- "l-*-3965"
- "l-*-3966"
- "l-*-3967"))
+ #("l-*-3910"
+ "l-*-3911"
+ "l-*-3912"
+ "l-*-3913"
+ "l-*-3914"
+ "l-*-3915"
+ "l-*-3916"))
#(ribcage
()
()
@@ -1719,11 +1728,7 @@
#(ribcage
#(first)
#((top))
- #("l-*-3952"))
- #(ribcage
- ()
- ()
- ())
+ #("l-*-3901"))
#(ribcage
()
()
@@ -1747,13 +1752,13 @@
(top)
(top)
(top))
- #("l-*-3924"
- "l-*-3925"
- "l-*-3926"
- "l-*-3927"
- "l-*-3928"
- "l-*-3929"
- "l-*-3930"))
+ #("l-*-3877"
+ "l-*-3878"
+ "l-*-3879"
+ "l-*-3880"
+ "l-*-3881"
+ "l-*-3882"
+ "l-*-3883"))
#(ribcage
(lambda-var-list
gen-var
@@ -2187,71 +2192,76 @@
"l-*-2096")))
(hygiene
guile))
- (wrap-6578
- (cons args-23149
- (cons e1-23150
- e2-23151))
- w-22820
- mod-22823))))
+ (wrap-6374
+ (cons args-23024
+ (cons e1-23025
+ e2-23026))
+ w-22658
+ mod-22661))))
(begin
- (if (if (pair? e-23159)
- s-22821
+ (if (if (pair? e-23034)
+ s-22659
#f)
(set-source-properties!
- e-23159
- s-22821))
- e-23159))
+ e-23034
+ s-22659))
+ e-23034))
'(())
- s-22821
- mod-22823))
- tmp-22944)
- (let ((tmp-23166
+ s-22659
+ mod-22661))
+ tmp-22819)
+ (let ((tmp-23041
($sc-dispatch
- e-22818
+ e-22656
'(_ any))))
- (if (if tmp-23166
+ (if (if tmp-23041
(@apply
- (lambda (name-23170)
+ (lambda (name-23045)
(if (symbol?
- name-23170)
+ name-23045)
#t
(if (if (vector?
- name-23170)
+ name-23045)
(if (= (vector-length
- name-23170)
+ name-23045)
4)
(eq? (vector-ref
- name-23170
+ name-23045
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- name-23170
+ name-23045
1))
#f)))
- tmp-23166)
+ tmp-23041)
#f)
(@apply
- (lambda (name-23197)
+ (lambda (name-23072)
(values
'define-form
- (wrap-6578
- name-23197
- w-22820
- mod-22823)
- (wrap-6578
- e-22818
- w-22820
- mod-22823)
+ (wrap-6374
+ name-23072
+ w-22658
+ mod-22661)
+ (wrap-6374
+ e-22656
+ w-22658
+ mod-22661)
'(#(syntax-object
if
((top)
#(ribcage
#(name)
#((top))
- #("l-*-4022"))
+ #("l-*-3965"))
+ #(ribcage () () ())
+ #(ribcage
+ #(key)
+ #((m-*-3917 top))
+ #("l-*-3918"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
@@ -2269,19 +2279,18 @@
(top)
(top)
(top))
- #("l-*-3961"
- "l-*-3962"
- "l-*-3963"
- "l-*-3964"
- "l-*-3965"
- "l-*-3966"
- "l-*-3967"))
+ #("l-*-3910"
+ "l-*-3911"
+ "l-*-3912"
+ "l-*-3913"
+ "l-*-3914"
+ "l-*-3915"
+ "l-*-3916"))
#(ribcage () () ())
#(ribcage
#(first)
#((top))
- #("l-*-3952"))
- #(ribcage () () ())
+ #("l-*-3901"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
@@ -2299,13 +2308,13 @@
(top)
(top)
(top))
- #("l-*-3924"
- "l-*-3925"
- "l-*-3926"
- "l-*-3927"
- "l-*-3928"
- "l-*-3929"
- "l-*-3930"))
+ #("l-*-3877"
+ "l-*-3878"
+ "l-*-3879"
+ "l-*-3880"
+ "l-*-3881"
+ "l-*-3882"
+ "l-*-3883"))
#(ribcage
(lambda-var-list
gen-var
@@ -2744,7 +2753,12 @@
#(ribcage
#(name)
#((top))
- #("l-*-4022"))
+ #("l-*-3965"))
+ #(ribcage () () ())
+ #(ribcage
+ #(key)
+ #((m-*-3917 top))
+ #("l-*-3918"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
@@ -2762,19 +2776,18 @@
(top)
(top)
(top))
- #("l-*-3961"
- "l-*-3962"
- "l-*-3963"
- "l-*-3964"
- "l-*-3965"
- "l-*-3966"
- "l-*-3967"))
+ #("l-*-3910"
+ "l-*-3911"
+ "l-*-3912"
+ "l-*-3913"
+ "l-*-3914"
+ "l-*-3915"
+ "l-*-3916"))
#(ribcage () () ())
#(ribcage
#(first)
#((top))
- #("l-*-3952"))
- #(ribcage () () ())
+ #("l-*-3901"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
@@ -2792,13 +2805,13 @@
(top)
(top)
(top))
- #("l-*-3924"
- "l-*-3925"
- "l-*-3926"
- "l-*-3927"
- "l-*-3928"
- "l-*-3929"
- "l-*-3930"))
+ #("l-*-3877"
+ "l-*-3878"
+ "l-*-3879"
+ "l-*-3880"
+ "l-*-3881"
+ "l-*-3882"
+ "l-*-3883"))
#(ribcage
(lambda-var-list
gen-var
@@ -3237,7 +3250,12 @@
#(ribcage
#(name)
#((top))
- #("l-*-4022"))
+ #("l-*-3965"))
+ #(ribcage () () ())
+ #(ribcage
+ #(key)
+ #((m-*-3917 top))
+ #("l-*-3918"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
@@ -3255,19 +3273,18 @@
(top)
(top)
(top))
- #("l-*-3961"
- "l-*-3962"
- "l-*-3963"
- "l-*-3964"
- "l-*-3965"
- "l-*-3966"
- "l-*-3967"))
+ #("l-*-3910"
+ "l-*-3911"
+ "l-*-3912"
+ "l-*-3913"
+ "l-*-3914"
+ "l-*-3915"
+ "l-*-3916"))
#(ribcage () () ())
#(ribcage
#(first)
#((top))
- #("l-*-3952"))
- #(ribcage () () ())
+ #("l-*-3901"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
@@ -3285,13 +3302,13 @@
(top)
(top)
(top))
- #("l-*-3924"
- "l-*-3925"
- "l-*-3926"
- "l-*-3927"
- "l-*-3928"
- "l-*-3929"
- "l-*-3930"))
+ #("l-*-3877"
+ "l-*-3878"
+ "l-*-3879"
+ "l-*-3880"
+ "l-*-3881"
+ "l-*-3882"
+ "l-*-3883"))
#(ribcage
(lambda-var-list
gen-var
@@ -3725,298 +3742,298 @@
"l-*-2096")))
(hygiene guile)))
'(())
- s-22821
- mod-22823))
- tmp-23166)
+ s-22659
+ mod-22661))
+ tmp-23041)
(syntax-violation
#f
"source expression failed to match any pattern"
- e-22818)))))))
- (if (eqv? ftype-22862 'define-syntax)
- (let ((tmp-23218
+ e-22656)))))))
+ (if (eqv? ftype-22709 'define-syntax)
+ (let ((tmp-23096
($sc-dispatch
- e-22818
+ e-22656
'(_ any any))))
- (if (if tmp-23218
+ (if (if tmp-23096
(@apply
- (lambda (name-23222 val-23223)
- (if (symbol? name-23222)
+ (lambda (name-23100 val-23101)
+ (if (symbol? name-23100)
#t
(if (if (vector?
- name-23222)
+ name-23100)
(if (= (vector-length
- name-23222)
+ name-23100)
4)
(eq? (vector-ref
- name-23222
+ name-23100
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- name-23222
+ name-23100
1))
#f)))
- tmp-23218)
+ tmp-23096)
#f)
(@apply
- (lambda (name-23250 val-23251)
+ (lambda (name-23128 val-23129)
(values
'define-syntax-form
- name-23250
- e-22818
- val-23251
- w-22820
- s-22821
- mod-22823))
- tmp-23218)
+ name-23128
+ e-22656
+ val-23129
+ w-22658
+ s-22659
+ mod-22661))
+ tmp-23096)
(syntax-violation
#f
"source expression failed to match any pattern"
- e-22818)))
- (if (eqv? ftype-22862
+ e-22656)))
+ (if (eqv? ftype-22709
'define-syntax-parameter)
- (let ((tmp-23262
+ (let ((tmp-23143
($sc-dispatch
- e-22818
+ e-22656
'(_ any any))))
- (if (if tmp-23262
+ (if (if tmp-23143
(@apply
- (lambda (name-23266
- val-23267)
- (if (symbol? name-23266)
+ (lambda (name-23147
+ val-23148)
+ (if (symbol? name-23147)
#t
(if (if (vector?
- name-23266)
+ name-23147)
(if (= (vector-length
- name-23266)
+ name-23147)
4)
(eq? (vector-ref
- name-23266
+ name-23147
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- name-23266
+ name-23147
1))
#f)))
- tmp-23262)
+ tmp-23143)
#f)
(@apply
- (lambda (name-23294 val-23295)
+ (lambda (name-23175 val-23176)
(values
'define-syntax-parameter-form
- name-23294
- e-22818
- val-23295
- w-22820
- s-22821
- mod-22823))
- tmp-23262)
+ name-23175
+ e-22656
+ val-23176
+ w-22658
+ s-22659
+ mod-22661))
+ tmp-23143)
(syntax-violation
#f
"source expression failed to match any pattern"
- e-22818)))
+ e-22656)))
(values
'call
#f
- e-22818
- e-22818
- w-22820
- s-22821
- mod-22823)))))))))))))))
- (if (if (vector? e-22818)
- (if (= (vector-length e-22818) 4)
- (eq? (vector-ref e-22818 0) 'syntax-object)
+ e-22656
+ e-22656
+ w-22658
+ s-22659
+ mod-22661)))))))))))))))
+ (if (if (vector? e-22656)
+ (if (= (vector-length e-22656) 4)
+ (eq? (vector-ref e-22656 0) 'syntax-object)
#f)
#f)
- (syntax-type-6584
- (vector-ref e-22818 1)
- r-22819
- (join-wraps-6565 w-22820 (vector-ref e-22818 2))
- (let ((t-23322 (source-annotation-6542 e-22818)))
- (if t-23322 t-23322 s-22821))
- rib-22822
- (let ((t-23557 (vector-ref e-22818 3)))
- (if t-23557 t-23557 mod-22823))
- for-car?-22824)
- (if (self-evaluating? e-22818)
+ (syntax-type-6380
+ (vector-ref e-22656 1)
+ r-22657
+ (join-wraps-6361 w-22658 (vector-ref e-22656 2))
+ (let ((t-23203 (source-annotation-6338 e-22656)))
+ (if t-23203 t-23203 s-22659))
+ rib-22660
+ (let ((t-23438 (vector-ref e-22656 3)))
+ (if t-23438 t-23438 mod-22661))
+ for-car?-22662)
+ (if (self-evaluating? e-22656)
(values
'constant
#f
- e-22818
- e-22818
- w-22820
- s-22821
- mod-22823)
+ e-22656
+ e-22656
+ w-22658
+ s-22659
+ mod-22661)
(values
'other
#f
- e-22818
- e-22818
- w-22820
- s-22821
- mod-22823)))))))
- (expand-6585
- (lambda (e-23566 r-23567 w-23568 mod-23569)
+ e-22656
+ e-22656
+ w-22658
+ s-22659
+ mod-22661)))))))
+ (expand-6381
+ (lambda (e-23447 r-23448 w-23449 mod-23450)
(call-with-values
(lambda ()
- (syntax-type-6584
- e-23566
- r-23567
- w-23568
- (source-annotation-6542 e-23566)
+ (syntax-type-6380
+ e-23447
+ r-23448
+ w-23449
+ (source-annotation-6338 e-23447)
#f
- mod-23569
+ mod-23450
#f))
- (lambda (type-23724
- value-23725
- form-23726
- e-23727
- w-23728
- s-23729
- mod-23730)
- (expand-expr-6586
- type-23724
- value-23725
- form-23726
- e-23727
- r-23567
- w-23728
- s-23729
- mod-23730)))))
- (expand-expr-6586
- (lambda (type-23733
- value-23734
- form-23735
- e-23736
- r-23737
- w-23738
- s-23739
- mod-23740)
- (if (eqv? type-23733 'lexical)
+ (lambda (type-23605
+ value-23606
+ form-23607
+ e-23608
+ w-23609
+ s-23610
+ mod-23611)
+ (expand-expr-6382
+ type-23605
+ value-23606
+ form-23607
+ e-23608
+ r-23448
+ w-23609
+ s-23610
+ mod-23611)))))
+ (expand-expr-6382
+ (lambda (type-23614
+ value-23615
+ form-23616
+ e-23617
+ r-23618
+ w-23619
+ s-23620
+ mod-23621)
+ (if (eqv? type-23614 'lexical)
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
- s-23739
- e-23736
- value-23734)
- (if (if (eqv? type-23733 'core)
+ s-23620
+ e-23617
+ value-23615)
+ (if (if (eqv? type-23614 'core)
#t
- (eqv? type-23733 'core-form))
- (value-23734
- e-23736
- r-23737
- w-23738
- s-23739
- mod-23740)
- (if (eqv? type-23733 'module-ref)
+ (eqv? type-23614 'core-form))
+ (value-23615
+ e-23617
+ r-23618
+ w-23619
+ s-23620
+ mod-23621)
+ (if (eqv? type-23614 'module-ref)
(call-with-values
- (lambda () (value-23734 e-23736 r-23737 w-23738))
- (lambda (e-23766 r-23767 w-23768 s-23769 mod-23770)
- (expand-6585 e-23766 r-23767 w-23768 mod-23770)))
- (if (eqv? type-23733 'lexical-call)
- (expand-application-6587
- (let ((id-23845 (car e-23736)))
- (build-lexical-reference-6519
+ (lambda () (value-23615 e-23617 r-23618 w-23619))
+ (lambda (e-23657 r-23658 w-23659 s-23660 mod-23661)
+ (expand-6381 e-23657 r-23658 w-23659 mod-23661)))
+ (if (eqv? type-23614 'lexical-call)
+ (expand-application-6383
+ (let ((id-23739 (car e-23617)))
+ (build-lexical-reference-6315
'fun
- (source-annotation-6542 id-23845)
- (if (if (vector? id-23845)
- (if (= (vector-length id-23845) 4)
- (eq? (vector-ref id-23845 0) 'syntax-object)
+ (source-annotation-6338 id-23739)
+ (if (if (vector? id-23739)
+ (if (= (vector-length id-23739) 4)
+ (eq? (vector-ref id-23739 0) 'syntax-object)
#f)
#f)
- (syntax->datum id-23845)
- id-23845)
- value-23734))
- e-23736
- r-23737
- w-23738
- s-23739
- mod-23740)
- (if (eqv? type-23733 'global-call)
- (expand-application-6587
- (build-global-reference-6522
- (source-annotation-6542 (car e-23736))
- (if (if (vector? value-23734)
- (if (= (vector-length value-23734) 4)
- (eq? (vector-ref value-23734 0) 'syntax-object)
+ (syntax->datum id-23739)
+ id-23739)
+ value-23615))
+ e-23617
+ r-23618
+ w-23619
+ s-23620
+ mod-23621)
+ (if (eqv? type-23614 'global-call)
+ (expand-application-6383
+ (build-global-reference-6318
+ (source-annotation-6338 (car e-23617))
+ (if (if (vector? value-23615)
+ (if (= (vector-length value-23615) 4)
+ (eq? (vector-ref value-23615 0) 'syntax-object)
#f)
#f)
- (vector-ref value-23734 1)
- value-23734)
- (if (if (vector? value-23734)
- (if (= (vector-length value-23734) 4)
- (eq? (vector-ref value-23734 0) 'syntax-object)
+ (vector-ref value-23615 1)
+ value-23615)
+ (if (if (vector? value-23615)
+ (if (= (vector-length value-23615) 4)
+ (eq? (vector-ref value-23615 0) 'syntax-object)
#f)
#f)
- (vector-ref value-23734 3)
- mod-23740))
- e-23736
- r-23737
- w-23738
- s-23739
- mod-23740)
- (if (eqv? type-23733 'constant)
- (let ((exp-24182
- (strip-6598
- (wrap-6578
+ (vector-ref value-23615 3)
+ mod-23621))
+ e-23617
+ r-23618
+ w-23619
+ s-23620
+ mod-23621)
+ (if (eqv? type-23614 'constant)
+ (let ((exp-24082
+ (strip-6394
+ (wrap-6374
(begin
- (if (if (pair? e-23736) s-23739 #f)
- (set-source-properties! e-23736 s-23739))
- e-23736)
- w-23738
- mod-23740)
+ (if (if (pair? e-23617) s-23620 #f)
+ (set-source-properties! e-23617 s-23620))
+ e-23617)
+ w-23619
+ mod-23621)
'(()))))
(make-struct/no-tail
(vector-ref %expanded-vtables 1)
- s-23739
- exp-24182))
- (if (eqv? type-23733 'global)
- (analyze-variable-6521
- mod-23740
- value-23734
- (lambda (mod-24218 var-24219 public?-24220)
+ s-23620
+ exp-24082))
+ (if (eqv? type-23614 'global)
+ (analyze-variable-6317
+ mod-23621
+ value-23615
+ (lambda (mod-24121 var-24122 public?-24123)
(make-struct/no-tail
(vector-ref %expanded-vtables 5)
- s-23739
- mod-24218
- var-24219
- public?-24220))
- (lambda (var-24229)
+ s-23620
+ mod-24121
+ var-24122
+ public?-24123))
+ (lambda (var-24132)
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
- s-23739
- var-24229)))
- (if (eqv? type-23733 'call)
- (expand-application-6587
- (expand-6585
- (car e-23736)
- r-23737
- w-23738
- mod-23740)
- e-23736
- r-23737
- w-23738
- s-23739
- mod-23740)
- (if (eqv? type-23733 'begin-form)
- (let ((tmp-24304
- ($sc-dispatch e-23736 '(_ any . each-any))))
- (if tmp-24304
+ s-23620
+ var-24132)))
+ (if (eqv? type-23614 'call)
+ (expand-application-6383
+ (expand-6381
+ (car e-23617)
+ r-23618
+ w-23619
+ mod-23621)
+ e-23617
+ r-23618
+ w-23619
+ s-23620
+ mod-23621)
+ (if (eqv? type-23614 'begin-form)
+ (let ((tmp-24213
+ ($sc-dispatch e-23617 '(_ any . each-any))))
+ (if tmp-24213
(@apply
- (lambda (e1-24308 e2-24309)
- (expand-sequence-6580
- (cons e1-24308 e2-24309)
- r-23737
- w-23738
- s-23739
- mod-23740))
- tmp-24304)
- (let ((tmp-24396 ($sc-dispatch e-23736 '(_))))
- (if tmp-24396
+ (lambda (e1-24217 e2-24218)
+ (expand-sequence-6376
+ (cons e1-24217 e2-24218)
+ r-23618
+ w-23619
+ s-23620
+ mod-23621))
+ tmp-24213)
+ (let ((tmp-24305 ($sc-dispatch e-23617 '(_))))
+ (if tmp-24305
(@apply
(lambda ()
(if (include-deprecated-features)
@@ -4029,801 +4046,801 @@
(syntax-violation
#f
"sequence of zero expressions"
- (wrap-6578
+ (wrap-6374
(begin
- (if (if (pair? e-23736)
- s-23739
+ (if (if (pair? e-23617)
+ s-23620
#f)
(set-source-properties!
- e-23736
- s-23739))
- e-23736)
- w-23738
- mod-23740))))
- tmp-24396)
+ e-23617
+ s-23620))
+ e-23617)
+ w-23619
+ mod-23621))))
+ tmp-24305)
(syntax-violation
#f
"source expression failed to match any pattern"
- e-23736)))))
- (if (eqv? type-23733 'local-syntax-form)
- (expand-local-syntax-6590
- value-23734
- e-23736
- r-23737
- w-23738
- s-23739
- mod-23740
- expand-sequence-6580)
- (if (eqv? type-23733 'eval-when-form)
- (let ((tmp-24507
+ e-23617)))))
+ (if (eqv? type-23614 'local-syntax-form)
+ (expand-local-syntax-6386
+ value-23615
+ e-23617
+ r-23618
+ w-23619
+ s-23620
+ mod-23621
+ expand-sequence-6376)
+ (if (eqv? type-23614 'eval-when-form)
+ (let ((tmp-24422
($sc-dispatch
- e-23736
+ e-23617
'(_ each-any any . each-any))))
- (if tmp-24507
+ (if tmp-24422
(@apply
- (lambda (x-24511 e1-24512 e2-24513)
- (let ((when-list-24514
- (parse-when-list-6583
- e-23736
- x-24511)))
- (if (memq 'eval when-list-24514)
- (expand-sequence-6580
- (cons e1-24512 e2-24513)
- r-23737
- w-23738
- s-23739
- mod-23740)
+ (lambda (x-24426 e1-24427 e2-24428)
+ (let ((when-list-24429
+ (parse-when-list-6379
+ e-23617
+ x-24426)))
+ (if (memq 'eval when-list-24429)
+ (expand-sequence-6376
+ (cons e1-24427 e2-24428)
+ r-23618
+ w-23619
+ s-23620
+ mod-23621)
(make-struct/no-tail
(vector-ref %expanded-vtables 0)
#f))))
- tmp-24507)
+ tmp-24422)
(syntax-violation
#f
"source expression failed to match any pattern"
- e-23736)))
- (if (if (eqv? type-23733 'define-form)
+ e-23617)))
+ (if (if (eqv? type-23614 'define-form)
#t
- (if (eqv? type-23733 'define-syntax-form)
+ (if (eqv? type-23614 'define-syntax-form)
#t
- (eqv? type-23733
+ (eqv? type-23614
'define-syntax-parameter-form)))
(syntax-violation
#f
"definition in expression context, where definitions are not allowed,"
- (wrap-6578
+ (wrap-6374
(begin
- (if (if (pair? form-23735) s-23739 #f)
+ (if (if (pair? form-23616) s-23620 #f)
(set-source-properties!
- form-23735
- s-23739))
- form-23735)
- w-23738
- mod-23740))
- (if (eqv? type-23733 'syntax)
+ form-23616
+ s-23620))
+ form-23616)
+ w-23619
+ mod-23621))
+ (if (eqv? type-23614 'syntax)
(syntax-violation
#f
"reference to pattern variable outside syntax form"
- (wrap-6578
+ (wrap-6374
(begin
- (if (if (pair? e-23736) s-23739 #f)
+ (if (if (pair? e-23617) s-23620 #f)
(set-source-properties!
- e-23736
- s-23739))
- e-23736)
- w-23738
- mod-23740))
- (if (eqv? type-23733 'displaced-lexical)
+ e-23617
+ s-23620))
+ e-23617)
+ w-23619
+ mod-23621))
+ (if (eqv? type-23614 'displaced-lexical)
(syntax-violation
#f
"reference to identifier outside its scope"
- (wrap-6578
+ (wrap-6374
(begin
- (if (if (pair? e-23736) s-23739 #f)
+ (if (if (pair? e-23617) s-23620 #f)
(set-source-properties!
- e-23736
- s-23739))
- e-23736)
- w-23738
- mod-23740))
+ e-23617
+ s-23620))
+ e-23617)
+ w-23619
+ mod-23621))
(syntax-violation
#f
"unexpected syntax"
- (wrap-6578
+ (wrap-6374
(begin
- (if (if (pair? e-23736) s-23739 #f)
+ (if (if (pair? e-23617) s-23620 #f)
(set-source-properties!
- e-23736
- s-23739))
- e-23736)
- w-23738
- mod-23740))))))))))))))))))
- (expand-application-6587
- (lambda (x-24774
- e-24775
- r-24776
- w-24777
- s-24778
- mod-24779)
- (let ((tmp-24781
- ($sc-dispatch e-24775 '(any . each-any))))
- (if tmp-24781
+ e-23617
+ s-23620))
+ e-23617)
+ w-23619
+ mod-23621))))))))))))))))))
+ (expand-application-6383
+ (lambda (x-24698
+ e-24699
+ r-24700
+ w-24701
+ s-24702
+ mod-24703)
+ (let ((tmp-24705
+ ($sc-dispatch e-24699 '(any . each-any))))
+ (if tmp-24705
(@apply
- (lambda (e0-24785 e1-24786)
- (build-application-6516
- s-24778
- x-24774
- (map (lambda (e-24866)
- (expand-6585 e-24866 r-24776 w-24777 mod-24779))
- e1-24786)))
- tmp-24781)
+ (lambda (e0-24709 e1-24710)
+ (build-application-6312
+ s-24702
+ x-24698
+ (map (lambda (e-24790)
+ (expand-6381 e-24790 r-24700 w-24701 mod-24703))
+ e1-24710)))
+ tmp-24705)
(syntax-violation
#f
"source expression failed to match any pattern"
- e-24775)))))
- (expand-macro-6588
- (lambda (p-24942
- e-24943
- r-24944
- w-24945
- s-24946
- rib-24947
- mod-24948)
+ e-24699)))))
+ (expand-macro-6384
+ (lambda (p-24866
+ e-24867
+ r-24868
+ w-24869
+ s-24870
+ rib-24871
+ mod-24872)
(letrec*
- ((rebuild-macro-output-24949
- (lambda (x-24982 m-24983)
- (if (pair? x-24982)
- (let ((e-24987
- (cons (rebuild-macro-output-24949
- (car x-24982)
- m-24983)
- (rebuild-macro-output-24949
- (cdr x-24982)
- m-24983))))
+ ((rebuild-macro-output-24873
+ (lambda (x-24906 m-24907)
+ (if (pair? x-24906)
+ (let ((e-24911
+ (cons (rebuild-macro-output-24873
+ (car x-24906)
+ m-24907)
+ (rebuild-macro-output-24873
+ (cdr x-24906)
+ m-24907))))
(begin
- (if (if (pair? e-24987) s-24946 #f)
- (set-source-properties! e-24987 s-24946))
- e-24987))
- (if (if (vector? x-24982)
- (if (= (vector-length x-24982) 4)
- (eq? (vector-ref x-24982 0) 'syntax-object)
+ (if (if (pair? e-24911) s-24870 #f)
+ (set-source-properties! e-24911 s-24870))
+ e-24911))
+ (if (if (vector? x-24906)
+ (if (= (vector-length x-24906) 4)
+ (eq? (vector-ref x-24906 0) 'syntax-object)
#f)
#f)
- (let ((w-25003 (vector-ref x-24982 2)))
- (let ((ms-25004 (car w-25003))
- (s-25005 (cdr w-25003)))
- (if (if (pair? ms-25004) (eq? (car ms-25004) #f) #f)
- (let ((expression-25013 (vector-ref x-24982 1))
- (wrap-25014
- (cons (cdr ms-25004)
- (if rib-24947
- (cons rib-24947 (cdr s-25005))
- (cdr s-25005))))
- (module-25015 (vector-ref x-24982 3)))
+ (let ((w-24927 (vector-ref x-24906 2)))
+ (let ((ms-24928 (car w-24927))
+ (ss-24929 (cdr w-24927)))
+ (if (if (pair? ms-24928) (eq? (car ms-24928) #f) #f)
+ (let ((expression-24937 (vector-ref x-24906 1))
+ (wrap-24938
+ (cons (cdr ms-24928)
+ (if rib-24871
+ (cons rib-24871 (cdr ss-24929))
+ (cdr ss-24929))))
+ (module-24939 (vector-ref x-24906 3)))
(vector
'syntax-object
- expression-25013
- wrap-25014
- module-25015))
- (let ((expression-25025
- (let ((e-25030 (vector-ref x-24982 1)))
+ expression-24937
+ wrap-24938
+ module-24939))
+ (let ((expression-24949
+ (let ((e-24954 (vector-ref x-24906 1)))
(begin
- (if (if (pair? e-25030) s-25005 #f)
+ (if (if (pair? e-24954) s-24870 #f)
(set-source-properties!
- e-25030
- s-25005))
- e-25030)))
- (wrap-25026
- (cons (cons m-24983 ms-25004)
- (if rib-24947
- (cons rib-24947
- (cons 'shift s-25005))
- (cons 'shift s-25005))))
- (module-25027 (vector-ref x-24982 3)))
+ e-24954
+ s-24870))
+ e-24954)))
+ (wrap-24950
+ (cons (cons m-24907 ms-24928)
+ (if rib-24871
+ (cons rib-24871
+ (cons 'shift ss-24929))
+ (cons 'shift ss-24929))))
+ (module-24951 (vector-ref x-24906 3)))
(vector
'syntax-object
- expression-25025
- wrap-25026
- module-25027)))))
- (if (vector? x-24982)
- (let ((n-25042 (vector-length x-24982)))
- (let ((v-25043
- (let ((e-25051 (make-vector n-25042)))
+ expression-24949
+ wrap-24950
+ module-24951)))))
+ (if (vector? x-24906)
+ (let ((n-24966 (vector-length x-24906)))
+ (let ((v-24967
+ (let ((e-24975 (make-vector n-24966)))
(begin
- (if (if (pair? e-25051) x-24982 #f)
- (set-source-properties! e-25051 x-24982))
- e-25051))))
+ (if (if (pair? e-24975) s-24870 #f)
+ (set-source-properties! e-24975 s-24870))
+ e-24975))))
(letrec*
- ((loop-25044
- (lambda (i-25096)
- (if (= i-25096 n-25042)
- v-25043
+ ((loop-24968
+ (lambda (i-25020)
+ (if (= i-25020 n-24966)
+ v-24967
(begin
(vector-set!
- v-25043
- i-25096
- (rebuild-macro-output-24949
- (vector-ref x-24982 i-25096)
- m-24983))
- (loop-25044 (#{1+}# i-25096)))))))
- (loop-25044 0))))
- (if (symbol? x-24982)
+ v-24967
+ i-25020
+ (rebuild-macro-output-24873
+ (vector-ref x-24906 i-25020)
+ m-24907))
+ (loop-24968 (#{1+}# i-25020)))))))
+ (loop-24968 0))))
+ (if (symbol? x-24906)
(syntax-violation
#f
"encountered raw symbol in macro output"
- (let ((s-25102 (cdr w-24945)))
- (wrap-6578
+ (let ((s-25026 (cdr w-24869)))
+ (wrap-6374
(begin
- (if (if (pair? e-24943) s-25102 #f)
- (set-source-properties! e-24943 s-25102))
- e-24943)
- w-24945
- mod-24948))
- x-24982)
+ (if (if (pair? e-24867) s-25026 #f)
+ (set-source-properties! e-24867 s-25026))
+ e-24867)
+ w-24869
+ mod-24872))
+ x-24906)
(begin
- (if (if (pair? x-24982) s-24946 #f)
- (set-source-properties! x-24982 s-24946))
- x-24982))))))))
+ (if (if (pair? x-24906) s-24870 #f)
+ (set-source-properties! x-24906 s-24870))
+ x-24906))))))))
(with-fluids
- ((transformer-environment-6571
- (lambda (k-24950)
- (k-24950
- e-24943
- r-24944
- w-24945
- s-24946
- rib-24947
- mod-24948))))
- (rebuild-macro-output-24949
- (p-24942
- (let ((w-24957
- (cons (cons #f (car w-24945))
- (cons 'shift (cdr w-24945)))))
- (wrap-6578
+ ((transformer-environment-6367
+ (lambda (k-24874)
+ (k-24874
+ e-24867
+ r-24868
+ w-24869
+ s-24870
+ rib-24871
+ mod-24872))))
+ (rebuild-macro-output-24873
+ (p-24866
+ (let ((w-24881
+ (cons (cons #f (car w-24869))
+ (cons 'shift (cdr w-24869)))))
+ (wrap-6374
(begin
- (if (if (pair? e-24943) s-24946 #f)
- (set-source-properties! e-24943 s-24946))
- e-24943)
- w-24957
- mod-24948)))
+ (if (if (pair? e-24867) s-24870 #f)
+ (set-source-properties! e-24867 s-24870))
+ e-24867)
+ w-24881
+ mod-24872)))
(gensym
- (string-append "m-" (session-id-6510) "-")))))))
- (expand-body-6589
- (lambda (body-25134
- outer-form-25135
- r-25136
- w-25137
- mod-25138)
- (let ((r-25139
- (cons '("placeholder" placeholder) r-25136)))
- (let ((ribcage-25140 (vector 'ribcage '() '() '())))
- (let ((w-25141
- (cons (car w-25137)
- (cons ribcage-25140 (cdr w-25137)))))
+ (string-append "m-" (session-id-6306) "-")))))))
+ (expand-body-6385
+ (lambda (body-25058
+ outer-form-25059
+ r-25060
+ w-25061
+ mod-25062)
+ (let ((r-25063
+ (cons '("placeholder" placeholder) r-25060)))
+ (let ((ribcage-25064 (vector 'ribcage '() '() '())))
+ (let ((w-25065
+ (cons (car w-25061)
+ (cons ribcage-25064 (cdr w-25061)))))
(letrec*
- ((parse-25142
- (lambda (body-25155
- ids-25156
- labels-25157
- var-ids-25158
- vars-25159
- vals-25160
- bindings-25161)
- (if (null? body-25155)
+ ((parse-25066
+ (lambda (body-25079
+ ids-25080
+ labels-25081
+ var-ids-25082
+ vars-25083
+ vals-25084
+ bindings-25085)
+ (if (null? body-25079)
(syntax-violation
#f
"no expressions in body"
- outer-form-25135)
- (let ((e-25162 (cdr (car body-25155)))
- (er-25163 (car (car body-25155))))
+ outer-form-25059)
+ (let ((e-25086 (cdr (car body-25079)))
+ (er-25087 (car (car body-25079))))
(call-with-values
(lambda ()
- (syntax-type-6584
- e-25162
- er-25163
+ (syntax-type-6380
+ e-25086
+ er-25087
'(())
- (source-annotation-6542 er-25163)
- ribcage-25140
- mod-25138
+ (source-annotation-6338 er-25087)
+ ribcage-25064
+ mod-25062
#f))
- (lambda (type-25320
- value-25321
- form-25322
- e-25323
- w-25324
- s-25325
- mod-25326)
- (if (eqv? type-25320 'define-form)
- (let ((id-25330
- (wrap-6578
- value-25321
- w-25324
- mod-25326))
- (label-25331
+ (lambda (type-25244
+ value-25245
+ form-25246
+ e-25247
+ w-25248
+ s-25249
+ mod-25250)
+ (if (eqv? type-25244 'define-form)
+ (let ((id-25258
+ (wrap-6374
+ value-25245
+ w-25248
+ mod-25250))
+ (label-25259
(string-append
"l-"
- (session-id-6510)
+ (session-id-6306)
(symbol->string (gensym "-")))))
- (let ((var-25332
- (let ((id-25392
- (if (if (vector? id-25330)
+ (let ((var-25260
+ (let ((id-25320
+ (if (if (vector? id-25258)
(if (= (vector-length
- id-25330)
+ id-25258)
4)
(eq? (vector-ref
- id-25330
+ id-25258
0)
'syntax-object)
#f)
#f)
- (vector-ref id-25330 1)
- id-25330)))
+ (vector-ref id-25258 1)
+ id-25258)))
(gensym
(string-append
- (symbol->string id-25392)
+ (symbol->string id-25320)
"-")))))
(begin
- (let ((update-25382
- (cons (vector-ref id-25330 1)
+ (let ((update-25310
+ (cons (vector-ref id-25258 1)
(vector-ref
- ribcage-25140
+ ribcage-25064
1))))
(vector-set!
- ribcage-25140
+ ribcage-25064
1
- update-25382))
- (let ((update-25384
+ update-25310))
+ (let ((update-25312
(cons (car (vector-ref
- id-25330
+ id-25258
2))
(vector-ref
- ribcage-25140
+ ribcage-25064
2))))
(vector-set!
- ribcage-25140
+ ribcage-25064
2
- update-25384))
- (let ((update-25386
- (cons label-25331
+ update-25312))
+ (let ((update-25314
+ (cons label-25259
(vector-ref
- ribcage-25140
+ ribcage-25064
3))))
(vector-set!
- ribcage-25140
+ ribcage-25064
3
- update-25386))
- (parse-25142
- (cdr body-25155)
- (cons id-25330 ids-25156)
- (cons label-25331 labels-25157)
- (cons id-25330 var-ids-25158)
- (cons var-25332 vars-25159)
- (cons (cons er-25163
- (wrap-6578
- e-25323
- w-25324
- mod-25326))
- vals-25160)
- (cons (cons 'lexical var-25332)
- bindings-25161)))))
- (if (if (eqv? type-25320 'define-syntax-form)
+ update-25314))
+ (parse-25066
+ (cdr body-25079)
+ (cons id-25258 ids-25080)
+ (cons label-25259 labels-25081)
+ (cons id-25258 var-ids-25082)
+ (cons var-25260 vars-25083)
+ (cons (cons er-25087
+ (wrap-6374
+ e-25247
+ w-25248
+ mod-25250))
+ vals-25084)
+ (cons (cons 'lexical var-25260)
+ bindings-25085)))))
+ (if (if (eqv? type-25244 'define-syntax-form)
#t
- (eqv? type-25320
+ (eqv? type-25244
'define-syntax-parameter-form))
- (let ((id-25425
- (wrap-6578
- value-25321
- w-25324
- mod-25326))
- (label-25426
+ (let ((id-25356
+ (wrap-6374
+ value-25245
+ w-25248
+ mod-25250))
+ (label-25357
(string-append
"l-"
- (session-id-6510)
+ (session-id-6306)
(symbol->string (gensym "-")))))
(begin
- (let ((update-25476
- (cons (vector-ref id-25425 1)
+ (let ((update-25407
+ (cons (vector-ref id-25356 1)
(vector-ref
- ribcage-25140
+ ribcage-25064
1))))
(vector-set!
- ribcage-25140
+ ribcage-25064
1
- update-25476))
- (let ((update-25478
+ update-25407))
+ (let ((update-25409
(cons (car (vector-ref
- id-25425
+ id-25356
2))
(vector-ref
- ribcage-25140
+ ribcage-25064
2))))
(vector-set!
- ribcage-25140
+ ribcage-25064
2
- update-25478))
- (let ((update-25480
- (cons label-25426
+ update-25409))
+ (let ((update-25411
+ (cons label-25357
(vector-ref
- ribcage-25140
+ ribcage-25064
3))))
(vector-set!
- ribcage-25140
+ ribcage-25064
3
- update-25480))
- (parse-25142
- (cdr body-25155)
- (cons id-25425 ids-25156)
- (cons label-25426 labels-25157)
- var-ids-25158
- vars-25159
- vals-25160
+ update-25411))
+ (parse-25066
+ (cdr body-25079)
+ (cons id-25356 ids-25080)
+ (cons label-25357 labels-25081)
+ var-ids-25082
+ vars-25083
+ vals-25084
(cons (cons 'macro
- (cons er-25163
- (wrap-6578
- e-25323
- w-25324
- mod-25326)))
- bindings-25161))))
- (if (eqv? type-25320 'begin-form)
- (let ((tmp-25488
+ (cons er-25087
+ (wrap-6374
+ e-25247
+ w-25248
+ mod-25250)))
+ bindings-25085))))
+ (if (eqv? type-25244 'begin-form)
+ (let ((tmp-25422
($sc-dispatch
- e-25323
+ e-25247
'(_ . each-any))))
- (if tmp-25488
+ (if tmp-25422
(@apply
- (lambda (e1-25492)
- (parse-25142
+ (lambda (e1-25426)
+ (parse-25066
(letrec*
- ((f-25493
- (lambda (forms-25556)
- (if (null? forms-25556)
- (cdr body-25155)
- (cons (cons er-25163
- (wrap-6578
- (car forms-25556)
- w-25324
- mod-25326))
- (f-25493
- (cdr forms-25556)))))))
- (f-25493 e1-25492))
- ids-25156
- labels-25157
- var-ids-25158
- vars-25159
- vals-25160
- bindings-25161))
- tmp-25488)
+ ((f-25427
+ (lambda (forms-25490)
+ (if (null? forms-25490)
+ (cdr body-25079)
+ (cons (cons er-25087
+ (wrap-6374
+ (car forms-25490)
+ w-25248
+ mod-25250))
+ (f-25427
+ (cdr forms-25490)))))))
+ (f-25427 e1-25426))
+ ids-25080
+ labels-25081
+ var-ids-25082
+ vars-25083
+ vals-25084
+ bindings-25085))
+ tmp-25422)
(syntax-violation
#f
"source expression failed to match any pattern"
- e-25323)))
- (if (eqv? type-25320 'local-syntax-form)
- (expand-local-syntax-6590
- value-25321
- e-25323
- er-25163
- w-25324
- s-25325
- mod-25326
- (lambda (forms-25570
- er-25571
- w-25572
- s-25573
- mod-25574)
- (parse-25142
+ e-25247)))
+ (if (eqv? type-25244 'local-syntax-form)
+ (expand-local-syntax-6386
+ value-25245
+ e-25247
+ er-25087
+ w-25248
+ s-25249
+ mod-25250
+ (lambda (forms-25507
+ er-25508
+ w-25509
+ s-25510
+ mod-25511)
+ (parse-25066
(letrec*
- ((f-25575
- (lambda (forms-25638)
- (if (null? forms-25638)
- (cdr body-25155)
- (cons (cons er-25571
- (wrap-6578
- (car forms-25638)
- w-25572
- mod-25574))
- (f-25575
- (cdr forms-25638)))))))
- (f-25575 forms-25570))
- ids-25156
- labels-25157
- var-ids-25158
- vars-25159
- vals-25160
- bindings-25161)))
- (if (null? ids-25156)
- (build-sequence-6530
+ ((f-25512
+ (lambda (forms-25575)
+ (if (null? forms-25575)
+ (cdr body-25079)
+ (cons (cons er-25508
+ (wrap-6374
+ (car forms-25575)
+ w-25509
+ mod-25511))
+ (f-25512
+ (cdr forms-25575)))))))
+ (f-25512 forms-25507))
+ ids-25080
+ labels-25081
+ var-ids-25082
+ vars-25083
+ vals-25084
+ bindings-25085)))
+ (if (null? ids-25080)
+ (build-sequence-6326
#f
- (map (lambda (x-25703)
- (let ((e-25707 (cdr x-25703))
- (r-25708 (car x-25703)))
+ (map (lambda (x-25640)
+ (let ((e-25644 (cdr x-25640))
+ (r-25645 (car x-25640)))
(call-with-values
(lambda ()
- (syntax-type-6584
- e-25707
- r-25708
+ (syntax-type-6380
+ e-25644
+ r-25645
'(())
- (source-annotation-6542
- e-25707)
+ (source-annotation-6338
+ e-25644)
#f
- mod-25326
+ mod-25250
#f))
- (lambda (type-25712
- value-25713
- form-25714
- e-25715
- w-25716
- s-25717
- mod-25718)
- (expand-expr-6586
- type-25712
- value-25713
- form-25714
- e-25715
- r-25708
- w-25716
- s-25717
- mod-25718)))))
- (cons (cons er-25163
- (wrap-6578
+ (lambda (type-25649
+ value-25650
+ form-25651
+ e-25652
+ w-25653
+ s-25654
+ mod-25655)
+ (expand-expr-6382
+ type-25649
+ value-25650
+ form-25651
+ e-25652
+ r-25645
+ w-25653
+ s-25654
+ mod-25655)))))
+ (cons (cons er-25087
+ (wrap-6374
(begin
- (if (if (pair? e-25323)
- s-25325
+ (if (if (pair? e-25247)
+ s-25249
#f)
(set-source-properties!
- e-25323
- s-25325))
- e-25323)
- w-25324
- mod-25326))
- (cdr body-25155))))
+ e-25247
+ s-25249))
+ e-25247)
+ w-25248
+ mod-25250))
+ (cdr body-25079))))
(begin
- (if (not (valid-bound-ids?-6575
- ids-25156))
+ (if (not (valid-bound-ids?-6371
+ ids-25080))
(syntax-violation
#f
"invalid or duplicate identifier in definition"
- outer-form-25135))
+ outer-form-25059))
(letrec*
- ((loop-25819
- (lambda (bs-25822
- er-cache-25823
- r-cache-25824)
- (if (not (null? bs-25822))
- (let ((b-25825
- (car bs-25822)))
- (if (eq? (car b-25825)
+ ((loop-25756
+ (lambda (bs-25759
+ er-cache-25760
+ r-cache-25761)
+ (if (not (null? bs-25759))
+ (let ((b-25762
+ (car bs-25759)))
+ (if (eq? (car b-25762)
'macro)
- (let ((er-25827
- (car (cdr b-25825))))
- (let ((r-cache-25828
- (if (eq? er-25827
- er-cache-25823)
- r-cache-25824
- (macros-only-env-6545
- er-25827))))
+ (let ((er-25764
+ (car (cdr b-25762))))
+ (let ((r-cache-25765
+ (if (eq? er-25764
+ er-cache-25760)
+ r-cache-25761
+ (macros-only-env-6341
+ er-25764))))
(begin
(set-cdr!
- b-25825
- (eval-local-transformer-6591
- (expand-6585
- (cdr (cdr b-25825))
- r-cache-25828
+ b-25762
+ (eval-local-transformer-6387
+ (expand-6381
+ (cdr (cdr b-25762))
+ r-cache-25765
'(())
- 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))
+ mod-25250)
+ mod-25250))
+ (loop-25756
+ (cdr bs-25759)
+ er-25764
+ r-cache-25765))))
+ (loop-25756
+ (cdr bs-25759)
+ er-cache-25760
+ r-cache-25761)))))))
+ (loop-25756 bindings-25085 #f #f))
(set-cdr!
- r-25139
- (extend-env-6543
- labels-25157
- bindings-25161
- (cdr r-25139)))
- (build-letrec-6533
+ r-25063
+ (extend-env-6339
+ labels-25081
+ bindings-25085
+ (cdr r-25063)))
+ (build-letrec-6329
#f
#t
(reverse
(map syntax->datum
- var-ids-25158))
- (reverse vars-25159)
- (map (lambda (x-26171)
- (let ((e-26175
- (cdr x-26171))
- (r-26176
- (car x-26171)))
+ var-ids-25082))
+ (reverse vars-25083)
+ (map (lambda (x-26108)
+ (let ((e-26112
+ (cdr x-26108))
+ (r-26113
+ (car x-26108)))
(call-with-values
(lambda ()
- (syntax-type-6584
- e-26175
- r-26176
+ (syntax-type-6380
+ e-26112
+ r-26113
'(())
- (source-annotation-6542
- e-26175)
+ (source-annotation-6338
+ e-26112)
#f
- mod-25326
+ mod-25250
#f))
- (lambda (type-26180
- value-26181
- form-26182
- e-26183
- w-26184
- s-26185
- mod-26186)
- (expand-expr-6586
- type-26180
- value-26181
- form-26182
- e-26183
- r-26176
- w-26184
- s-26185
- mod-26186)))))
- (reverse vals-25160))
- (let ((exps-26192
- (map (lambda (x-26193)
- (let ((e-26196
- (cdr x-26193))
- (r-26197
- (car x-26193)))
+ (lambda (type-26117
+ value-26118
+ form-26119
+ e-26120
+ w-26121
+ s-26122
+ mod-26123)
+ (expand-expr-6382
+ type-26117
+ value-26118
+ form-26119
+ e-26120
+ r-26113
+ w-26121
+ s-26122
+ mod-26123)))))
+ (reverse vals-25084))
+ (let ((exps-26129
+ (map (lambda (x-26130)
+ (let ((e-26133
+ (cdr x-26130))
+ (r-26134
+ (car x-26130)))
(call-with-values
(lambda ()
- (syntax-type-6584
- e-26196
- r-26197
+ (syntax-type-6380
+ e-26133
+ r-26134
'(())
- (source-annotation-6542
- e-26196)
+ (source-annotation-6338
+ e-26133)
#f
- mod-25326
+ mod-25250
#f))
- (lambda (type-26201
- value-26202
- form-26203
- e-26204
- w-26205
- s-26206
- mod-26207)
- (expand-expr-6586
- type-26201
- value-26202
- form-26203
- e-26204
- r-26197
- w-26205
- s-26206
- mod-26207)))))
- (cons (cons er-25163
- (wrap-6578
+ (lambda (type-26138
+ value-26139
+ form-26140
+ e-26141
+ w-26142
+ s-26143
+ mod-26144)
+ (expand-expr-6382
+ type-26138
+ value-26139
+ form-26140
+ e-26141
+ r-26134
+ w-26142
+ s-26143
+ mod-26144)))))
+ (cons (cons er-25087
+ (wrap-6374
(begin
- (if (if (pair? e-25323)
- s-25325
+ (if (if (pair? e-25247)
+ s-25249
#f)
(set-source-properties!
- e-25323
- s-25325))
- e-25323)
- w-25324
- mod-25326))
- (cdr body-25155)))))
- (if (null? (cdr exps-26192))
- (car exps-26192)
+ e-25247
+ s-25249))
+ e-25247)
+ w-25248
+ mod-25250))
+ (cdr body-25079)))))
+ (if (null? (cdr exps-26129))
+ (car exps-26129)
(make-struct/no-tail
(vector-ref
%expanded-vtables
12)
#f
- exps-26192)))))))))))))))))
- (parse-25142
- (map (lambda (x-25145)
- (cons r-25139
- (wrap-6578 x-25145 w-25141 mod-25138)))
- body-25134)
+ exps-26129)))))))))))))))))
+ (parse-25066
+ (map (lambda (x-25069)
+ (cons r-25063
+ (wrap-6374 x-25069 w-25065 mod-25062)))
+ body-25058)
'()
'()
'()
'()
'()
'())))))))
- (expand-local-syntax-6590
- (lambda (rec?-26233
- e-26234
- r-26235
- w-26236
- s-26237
- mod-26238
- k-26239)
- (let ((tmp-26241
+ (expand-local-syntax-6386
+ (lambda (rec?-26170
+ e-26171
+ r-26172
+ w-26173
+ s-26174
+ mod-26175
+ k-26176)
+ (let ((tmp-26178
($sc-dispatch
- e-26234
+ e-26171
'(_ #(each (any any)) any . each-any))))
- (if tmp-26241
+ (if tmp-26178
(@apply
- (lambda (id-26245 val-26246 e1-26247 e2-26248)
- (if (not (valid-bound-ids?-6575 id-26245))
+ (lambda (id-26182 val-26183 e1-26184 e2-26185)
+ (if (not (valid-bound-ids?-6371 id-26182))
(syntax-violation
#f
"duplicate bound keyword"
- e-26234)
- (let ((labels-26338 (gen-labels-6552 id-26245)))
- (let ((new-w-26339
- (make-binding-wrap-6563
- id-26245
- labels-26338
- w-26236)))
- (k-26239
- (cons e1-26247 e2-26248)
- (extend-env-6543
- labels-26338
- (let ((trans-r-26375
- (macros-only-env-6545 r-26235)))
+ e-26171)
+ (let ((labels-26275 (gen-labels-6348 id-26182)))
+ (let ((new-w-26276
+ (make-binding-wrap-6359
+ id-26182
+ labels-26275
+ w-26173)))
+ (k-26176
+ (cons e1-26184 e2-26185)
+ (extend-env-6339
+ labels-26275
+ (let ((trans-r-26312
+ (macros-only-env-6341 r-26172)))
(begin
- (if rec?-26233 new-w-26339 w-26236)
- (map (lambda (x-26376)
+ (if rec?-26170 new-w-26276 w-26173)
+ (map (lambda (x-26313)
(cons 'macro
- (eval-local-transformer-6591
- (expand-6585
- x-26376
- trans-r-26375
+ (eval-local-transformer-6387
+ (expand-6381
+ x-26313
+ trans-r-26312
(values
- (if rec?-26233
- new-w-26339
- w-26236))
- mod-26238)
- mod-26238)))
- val-26246)))
- r-26235)
- new-w-26339
- s-26237
- mod-26238)))))
- tmp-26241)
+ (if rec?-26170
+ new-w-26276
+ w-26173))
+ mod-26175)
+ mod-26175)))
+ val-26183)))
+ r-26172)
+ new-w-26276
+ s-26174
+ mod-26175)))))
+ tmp-26178)
(syntax-violation
#f
"bad local syntax definition"
- (wrap-6578
+ (wrap-6374
(begin
- (if (if (pair? e-26234) s-26237 #f)
- (set-source-properties! e-26234 s-26237))
- e-26234)
- w-26236
- mod-26238))))))
- (eval-local-transformer-6591
- (lambda (expanded-26656 mod-26657)
- (let ((p-26658 (primitive-eval expanded-26656)))
- (if (procedure? p-26658)
- p-26658
+ (if (if (pair? e-26171) s-26174 #f)
+ (set-source-properties! e-26171 s-26174))
+ e-26171)
+ w-26173
+ mod-26175))))))
+ (eval-local-transformer-6387
+ (lambda (expanded-26593 mod-26594)
+ (let ((p-26595 (primitive-eval expanded-26593)))
+ (if (procedure? p-26595)
+ p-26595
(syntax-violation
#f
"nonprocedure transformer"
- p-26658)))))
- (ellipsis?-6593
- (lambda (x-7254)
- (if (if (if (vector? x-7254)
- (if (= (vector-length x-7254) 4)
- (eq? (vector-ref x-7254 0) 'syntax-object)
+ p-26595)))))
+ (ellipsis?-6389
+ (lambda (x-7050)
+ (if (if (if (vector? x-7050)
+ (if (= (vector-length x-7050) 4)
+ (eq? (vector-ref x-7050 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref x-7254 1))
+ (symbol? (vector-ref x-7050 1))
#f)
- (if (eq? (if (if (vector? x-7254)
- (if (= (vector-length x-7254) 4)
- (eq? (vector-ref x-7254 0) 'syntax-object)
+ (if (eq? (if (if (vector? x-7050)
+ (if (= (vector-length x-7050) 4)
+ (eq? (vector-ref x-7050 0) 'syntax-object)
#f)
#f)
- (vector-ref x-7254 1)
- x-7254)
+ (vector-ref x-7050 1)
+ x-7050)
(if (if (= (vector-length
'#(syntax-object
...
((top)
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-4404"))
+ #(ribcage #(x) #((top)) #("l-*-4317"))
#(ribcage
(lambda-var-list
gen-var
@@ -5261,7 +5278,7 @@
((top)
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-4404"))
+ #(ribcage #(x) #((top)) #("l-*-4317"))
#(ribcage
(lambda-var-list
gen-var
@@ -5690,14 +5707,14 @@
((top) (top) (top))
("l-*-2098" "l-*-2097" "l-*-2096")))
(hygiene guile))))
- (eq? (id-var-name-6568 x-7254 '(()))
- (id-var-name-6568
+ (eq? (id-var-name-6364 x-7050 '(()))
+ (id-var-name-6364
'#(syntax-object
...
((top)
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-4404"))
+ #(ribcage #(x) #((top)) #("l-*-4317"))
#(ribcage
(lambda-var-list
gen-var
@@ -6129,270 +6146,270 @@
'(())))
#f)
#f)))
- (lambda-formals-6594
- (lambda (orig-args-26663)
+ (lambda-formals-6390
+ (lambda (orig-args-26600)
(letrec*
- ((req-26664
- (lambda (args-26668 rreq-26669)
- (let ((tmp-26671 ($sc-dispatch args-26668 '())))
- (if tmp-26671
+ ((req-26601
+ (lambda (args-26605 rreq-26606)
+ (let ((tmp-26608 ($sc-dispatch args-26605 '())))
+ (if tmp-26608
(@apply
- (lambda () (check-26665 (reverse rreq-26669) #f))
- tmp-26671)
- (let ((tmp-26794
- ($sc-dispatch args-26668 '(any . any))))
- (if (if tmp-26794
+ (lambda () (check-26602 (reverse rreq-26606) #f))
+ tmp-26608)
+ (let ((tmp-26731
+ ($sc-dispatch args-26605 '(any . any))))
+ (if (if tmp-26731
(@apply
- (lambda (a-26798 b-26799)
- (if (symbol? a-26798)
+ (lambda (a-26735 b-26736)
+ (if (symbol? a-26735)
#t
- (if (if (vector? a-26798)
- (if (= (vector-length a-26798) 4)
- (eq? (vector-ref a-26798 0)
+ (if (if (vector? a-26735)
+ (if (= (vector-length a-26735) 4)
+ (eq? (vector-ref a-26735 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref a-26798 1))
+ (symbol? (vector-ref a-26735 1))
#f)))
- tmp-26794)
+ tmp-26731)
#f)
(@apply
- (lambda (a-26826 b-26827)
- (req-26664 b-26827 (cons a-26826 rreq-26669)))
- tmp-26794)
- (let ((tmp-26828 (list args-26668)))
+ (lambda (a-26763 b-26764)
+ (req-26601 b-26764 (cons a-26763 rreq-26606)))
+ tmp-26731)
+ (let ((tmp-26765 (list args-26605)))
(if (@apply
- (lambda (r-26830)
- (if (symbol? r-26830)
+ (lambda (r-26767)
+ (if (symbol? r-26767)
#t
- (if (if (vector? r-26830)
- (if (= (vector-length r-26830) 4)
- (eq? (vector-ref r-26830 0)
+ (if (if (vector? r-26767)
+ (if (= (vector-length r-26767) 4)
+ (eq? (vector-ref r-26767 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref r-26830 1))
+ (symbol? (vector-ref r-26767 1))
#f)))
- tmp-26828)
+ tmp-26765)
(@apply
- (lambda (r-26860)
- (check-26665 (reverse rreq-26669) r-26860))
- tmp-26828)
+ (lambda (r-26797)
+ (check-26602 (reverse rreq-26606) r-26797))
+ tmp-26765)
(syntax-violation
'lambda
"invalid argument list"
- orig-args-26663
- args-26668)))))))))
- (check-26665
- (lambda (req-26991 rest-26992)
- (if (distinct-bound-ids?-6576
- (if rest-26992
- (cons rest-26992 req-26991)
- req-26991))
- (values req-26991 #f rest-26992 #f)
+ orig-args-26600
+ args-26605)))))))))
+ (check-26602
+ (lambda (req-26928 rest-26929)
+ (if (distinct-bound-ids?-6372
+ (if rest-26929
+ (cons rest-26929 req-26928)
+ req-26928))
+ (values req-26928 #f rest-26929 #f)
(syntax-violation
'lambda
"duplicate identifier in argument list"
- orig-args-26663)))))
- (req-26664 orig-args-26663 '()))))
- (expand-simple-lambda-6595
- (lambda (e-27108
- r-27109
- w-27110
- s-27111
- mod-27112
- req-27113
- rest-27114
- meta-27115
- body-27116)
- (let ((ids-27117
- (if rest-27114
- (append req-27113 (list rest-27114))
- req-27113)))
- (let ((vars-27118 (map gen-var-6599 ids-27117)))
- (let ((labels-27119 (gen-labels-6552 ids-27117)))
- (build-simple-lambda-6525
- s-27111
- (map syntax->datum req-27113)
- (if rest-27114 (syntax->datum rest-27114) #f)
- vars-27118
- meta-27115
- (expand-body-6589
- body-27116
- (wrap-6578
+ orig-args-26600)))))
+ (req-26601 orig-args-26600 '()))))
+ (expand-simple-lambda-6391
+ (lambda (e-27045
+ r-27046
+ w-27047
+ s-27048
+ mod-27049
+ req-27050
+ rest-27051
+ meta-27052
+ body-27053)
+ (let ((ids-27054
+ (if rest-27051
+ (append req-27050 (list rest-27051))
+ req-27050)))
+ (let ((vars-27055 (map gen-var-6395 ids-27054)))
+ (let ((labels-27056 (gen-labels-6348 ids-27054)))
+ (build-simple-lambda-6321
+ s-27048
+ (map syntax->datum req-27050)
+ (if rest-27051 (syntax->datum rest-27051) #f)
+ vars-27055
+ meta-27052
+ (expand-body-6385
+ body-27053
+ (wrap-6374
(begin
- (if (if (pair? e-27108) s-27111 #f)
- (set-source-properties! e-27108 s-27111))
- e-27108)
- w-27110
- mod-27112)
- (extend-var-env-6544
- labels-27119
- vars-27118
- r-27109)
- (make-binding-wrap-6563
- ids-27117
- labels-27119
- w-27110)
- mod-27112)))))))
- (lambda*-formals-6596
- (lambda (orig-args-27399)
+ (if (if (pair? e-27045) s-27048 #f)
+ (set-source-properties! e-27045 s-27048))
+ e-27045)
+ w-27047
+ mod-27049)
+ (extend-var-env-6340
+ labels-27056
+ vars-27055
+ r-27046)
+ (make-binding-wrap-6359
+ ids-27054
+ labels-27056
+ w-27047)
+ mod-27049)))))))
+ (lambda*-formals-6392
+ (lambda (orig-args-27336)
(letrec*
- ((req-27400
- (lambda (args-27407 rreq-27408)
- (let ((tmp-27410 ($sc-dispatch args-27407 '())))
- (if tmp-27410
+ ((req-27337
+ (lambda (args-27344 rreq-27345)
+ (let ((tmp-27347 ($sc-dispatch args-27344 '())))
+ (if tmp-27347
(@apply
(lambda ()
- (check-27404 (reverse rreq-27408) '() #f '()))
- tmp-27410)
- (let ((tmp-27416
- ($sc-dispatch args-27407 '(any . any))))
- (if (if tmp-27416
+ (check-27341 (reverse rreq-27345) '() #f '()))
+ tmp-27347)
+ (let ((tmp-27353
+ ($sc-dispatch args-27344 '(any . any))))
+ (if (if tmp-27353
(@apply
- (lambda (a-27420 b-27421)
- (if (symbol? a-27420)
+ (lambda (a-27357 b-27358)
+ (if (symbol? a-27357)
#t
- (if (if (vector? a-27420)
- (if (= (vector-length a-27420) 4)
- (eq? (vector-ref a-27420 0)
+ (if (if (vector? a-27357)
+ (if (= (vector-length a-27357) 4)
+ (eq? (vector-ref a-27357 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref a-27420 1))
+ (symbol? (vector-ref a-27357 1))
#f)))
- tmp-27416)
+ tmp-27353)
#f)
(@apply
- (lambda (a-27448 b-27449)
- (req-27400 b-27449 (cons a-27448 rreq-27408)))
- tmp-27416)
- (let ((tmp-27450
- ($sc-dispatch args-27407 '(any . any))))
- (if (if tmp-27450
+ (lambda (a-27385 b-27386)
+ (req-27337 b-27386 (cons a-27385 rreq-27345)))
+ tmp-27353)
+ (let ((tmp-27387
+ ($sc-dispatch args-27344 '(any . any))))
+ (if (if tmp-27387
(@apply
- (lambda (a-27454 b-27455)
- (eq? (syntax->datum a-27454) #:optional))
- tmp-27450)
+ (lambda (a-27391 b-27392)
+ (eq? (syntax->datum a-27391) #:optional))
+ tmp-27387)
#f)
(@apply
- (lambda (a-27456 b-27457)
- (opt-27401 b-27457 (reverse rreq-27408) '()))
- tmp-27450)
- (let ((tmp-27460
- ($sc-dispatch args-27407 '(any . any))))
- (if (if tmp-27460
+ (lambda (a-27393 b-27394)
+ (opt-27338 b-27394 (reverse rreq-27345) '()))
+ tmp-27387)
+ (let ((tmp-27397
+ ($sc-dispatch args-27344 '(any . any))))
+ (if (if tmp-27397
(@apply
- (lambda (a-27464 b-27465)
- (eq? (syntax->datum a-27464) #:key))
- tmp-27460)
+ (lambda (a-27401 b-27402)
+ (eq? (syntax->datum a-27401) #:key))
+ tmp-27397)
#f)
(@apply
- (lambda (a-27466 b-27467)
- (key-27402
- b-27467
- (reverse rreq-27408)
+ (lambda (a-27403 b-27404)
+ (key-27339
+ b-27404
+ (reverse rreq-27345)
'()
'()))
- tmp-27460)
- (let ((tmp-27470
- ($sc-dispatch args-27407 '(any any))))
- (if (if tmp-27470
+ tmp-27397)
+ (let ((tmp-27407
+ ($sc-dispatch args-27344 '(any any))))
+ (if (if tmp-27407
(@apply
- (lambda (a-27474 b-27475)
- (eq? (syntax->datum a-27474)
+ (lambda (a-27411 b-27412)
+ (eq? (syntax->datum a-27411)
#:rest))
- tmp-27470)
+ tmp-27407)
#f)
(@apply
- (lambda (a-27476 b-27477)
- (rest-27403
- b-27477
- (reverse rreq-27408)
+ (lambda (a-27413 b-27414)
+ (rest-27340
+ b-27414
+ (reverse rreq-27345)
'()
'()))
- tmp-27470)
- (let ((tmp-27480 (list args-27407)))
+ tmp-27407)
+ (let ((tmp-27417 (list args-27344)))
(if (@apply
- (lambda (r-27482)
- (if (symbol? r-27482)
+ (lambda (r-27419)
+ (if (symbol? r-27419)
#t
- (if (if (vector? r-27482)
+ (if (if (vector? r-27419)
(if (= (vector-length
- r-27482)
+ r-27419)
4)
(eq? (vector-ref
- r-27482
+ r-27419
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref r-27482 1))
+ (vector-ref r-27419 1))
#f)))
- tmp-27480)
+ tmp-27417)
(@apply
- (lambda (r-27512)
- (rest-27403
- r-27512
- (reverse rreq-27408)
+ (lambda (r-27449)
+ (rest-27340
+ r-27449
+ (reverse rreq-27345)
'()
'()))
- tmp-27480)
+ tmp-27417)
(syntax-violation
'lambda*
"invalid argument list"
- orig-args-27399
- args-27407)))))))))))))))
- (opt-27401
- (lambda (args-27531 req-27532 ropt-27533)
- (let ((tmp-27535 ($sc-dispatch args-27531 '())))
- (if tmp-27535
+ orig-args-27336
+ args-27344)))))))))))))))
+ (opt-27338
+ (lambda (args-27468 req-27469 ropt-27470)
+ (let ((tmp-27472 ($sc-dispatch args-27468 '())))
+ (if tmp-27472
(@apply
(lambda ()
- (check-27404
- req-27532
- (reverse ropt-27533)
+ (check-27341
+ req-27469
+ (reverse ropt-27470)
#f
'()))
- tmp-27535)
- (let ((tmp-27541
- ($sc-dispatch args-27531 '(any . any))))
- (if (if tmp-27541
+ tmp-27472)
+ (let ((tmp-27478
+ ($sc-dispatch args-27468 '(any . any))))
+ (if (if tmp-27478
(@apply
- (lambda (a-27545 b-27546)
- (if (symbol? a-27545)
+ (lambda (a-27482 b-27483)
+ (if (symbol? a-27482)
#t
- (if (if (vector? a-27545)
- (if (= (vector-length a-27545) 4)
- (eq? (vector-ref a-27545 0)
+ (if (if (vector? a-27482)
+ (if (= (vector-length a-27482) 4)
+ (eq? (vector-ref a-27482 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref a-27545 1))
+ (symbol? (vector-ref a-27482 1))
#f)))
- tmp-27541)
+ tmp-27478)
#f)
(@apply
- (lambda (a-27573 b-27574)
- (opt-27401
- b-27574
- req-27532
- (cons (cons a-27573
+ (lambda (a-27510 b-27511)
+ (opt-27338
+ b-27511
+ req-27469
+ (cons (cons a-27510
'(#(syntax-object
#f
((top)
#(ribcage
#(a b)
#((top) (top))
- #("l-*-4543" "l-*-4544"))
+ #("l-*-4454" "l-*-4455"))
#(ribcage () () ())
#(ribcage
#(args req ropt)
#((top) (top) (top))
- #("l-*-4533"
- "l-*-4534"
- "l-*-4535"))
+ #("l-*-4444"
+ "l-*-4445"
+ "l-*-4446"))
#(ribcage
(check rest key opt req)
((top)
@@ -6400,15 +6417,15 @@
(top)
(top)
(top))
- ("l-*-4479"
- "l-*-4477"
- "l-*-4475"
- "l-*-4473"
- "l-*-4471"))
+ ("l-*-4390"
+ "l-*-4388"
+ "l-*-4386"
+ "l-*-4384"
+ "l-*-4382"))
#(ribcage
#(orig-args)
#((top))
- #("l-*-4470"))
+ #("l-*-4381"))
#(ribcage
(lambda-var-list
gen-var
@@ -6839,136 +6856,136 @@
"l-*-2097"
"l-*-2096")))
(hygiene guile))))
- ropt-27533)))
- tmp-27541)
- (let ((tmp-27575
- ($sc-dispatch args-27531 '((any any) . any))))
- (if (if tmp-27575
+ ropt-27470)))
+ tmp-27478)
+ (let ((tmp-27512
+ ($sc-dispatch args-27468 '((any any) . any))))
+ (if (if tmp-27512
(@apply
- (lambda (a-27579 init-27580 b-27581)
- (if (symbol? a-27579)
+ (lambda (a-27516 init-27517 b-27518)
+ (if (symbol? a-27516)
#t
- (if (if (vector? a-27579)
- (if (= (vector-length a-27579) 4)
- (eq? (vector-ref a-27579 0)
+ (if (if (vector? a-27516)
+ (if (= (vector-length a-27516) 4)
+ (eq? (vector-ref a-27516 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref a-27579 1))
+ (symbol? (vector-ref a-27516 1))
#f)))
- tmp-27575)
+ tmp-27512)
#f)
(@apply
- (lambda (a-27608 init-27609 b-27610)
- (opt-27401
- b-27610
- req-27532
- (cons (list a-27608 init-27609) ropt-27533)))
- tmp-27575)
- (let ((tmp-27611
- ($sc-dispatch args-27531 '(any . any))))
- (if (if tmp-27611
+ (lambda (a-27545 init-27546 b-27547)
+ (opt-27338
+ b-27547
+ req-27469
+ (cons (list a-27545 init-27546) ropt-27470)))
+ tmp-27512)
+ (let ((tmp-27548
+ ($sc-dispatch args-27468 '(any . any))))
+ (if (if tmp-27548
(@apply
- (lambda (a-27615 b-27616)
- (eq? (syntax->datum a-27615) #:key))
- tmp-27611)
+ (lambda (a-27552 b-27553)
+ (eq? (syntax->datum a-27552) #:key))
+ tmp-27548)
#f)
(@apply
- (lambda (a-27617 b-27618)
- (key-27402
- b-27618
- req-27532
- (reverse ropt-27533)
+ (lambda (a-27554 b-27555)
+ (key-27339
+ b-27555
+ req-27469
+ (reverse ropt-27470)
'()))
- tmp-27611)
- (let ((tmp-27621
- ($sc-dispatch args-27531 '(any any))))
- (if (if tmp-27621
+ tmp-27548)
+ (let ((tmp-27558
+ ($sc-dispatch args-27468 '(any any))))
+ (if (if tmp-27558
(@apply
- (lambda (a-27625 b-27626)
- (eq? (syntax->datum a-27625)
+ (lambda (a-27562 b-27563)
+ (eq? (syntax->datum a-27562)
#:rest))
- tmp-27621)
+ tmp-27558)
#f)
(@apply
- (lambda (a-27627 b-27628)
- (rest-27403
- b-27628
- req-27532
- (reverse ropt-27533)
+ (lambda (a-27564 b-27565)
+ (rest-27340
+ b-27565
+ req-27469
+ (reverse ropt-27470)
'()))
- tmp-27621)
- (let ((tmp-27631 (list args-27531)))
+ tmp-27558)
+ (let ((tmp-27568 (list args-27468)))
(if (@apply
- (lambda (r-27633)
- (if (symbol? r-27633)
+ (lambda (r-27570)
+ (if (symbol? r-27570)
#t
- (if (if (vector? r-27633)
+ (if (if (vector? r-27570)
(if (= (vector-length
- r-27633)
+ r-27570)
4)
(eq? (vector-ref
- r-27633
+ r-27570
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref r-27633 1))
+ (vector-ref r-27570 1))
#f)))
- tmp-27631)
+ tmp-27568)
(@apply
- (lambda (r-27663)
- (rest-27403
- r-27663
- req-27532
- (reverse ropt-27533)
+ (lambda (r-27600)
+ (rest-27340
+ r-27600
+ req-27469
+ (reverse ropt-27470)
'()))
- tmp-27631)
+ tmp-27568)
(syntax-violation
'lambda*
"invalid optional argument list"
- orig-args-27399
- args-27531)))))))))))))))
- (key-27402
- (lambda (args-27682 req-27683 opt-27684 rkey-27685)
- (let ((tmp-27687 ($sc-dispatch args-27682 '())))
- (if tmp-27687
+ orig-args-27336
+ args-27468)))))))))))))))
+ (key-27339
+ (lambda (args-27619 req-27620 opt-27621 rkey-27622)
+ (let ((tmp-27624 ($sc-dispatch args-27619 '())))
+ (if tmp-27624
(@apply
(lambda ()
- (check-27404
- req-27683
- opt-27684
+ (check-27341
+ req-27620
+ opt-27621
#f
- (cons #f (reverse rkey-27685))))
- tmp-27687)
- (let ((tmp-27693
- ($sc-dispatch args-27682 '(any . any))))
- (if (if tmp-27693
+ (cons #f (reverse rkey-27622))))
+ tmp-27624)
+ (let ((tmp-27630
+ ($sc-dispatch args-27619 '(any . any))))
+ (if (if tmp-27630
(@apply
- (lambda (a-27697 b-27698)
- (if (symbol? a-27697)
+ (lambda (a-27634 b-27635)
+ (if (symbol? a-27634)
#t
- (if (if (vector? a-27697)
- (if (= (vector-length a-27697) 4)
- (eq? (vector-ref a-27697 0)
+ (if (if (vector? a-27634)
+ (if (= (vector-length a-27634) 4)
+ (eq? (vector-ref a-27634 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref a-27697 1))
+ (symbol? (vector-ref a-27634 1))
#f)))
- tmp-27693)
+ tmp-27630)
#f)
(@apply
- (lambda (a-27725 b-27726)
- (let ((tmp-27727
- (symbol->keyword (syntax->datum a-27725))))
- (key-27402
- b-27726
- req-27683
- opt-27684
- (cons (cons tmp-27727
- (cons a-27725
+ (lambda (a-27662 b-27663)
+ (let ((tmp-27664
+ (symbol->keyword (syntax->datum a-27662))))
+ (key-27339
+ b-27663
+ req-27620
+ opt-27621
+ (cons (cons tmp-27664
+ (cons a-27662
'(#(syntax-object
#f
((top)
@@ -6976,12 +6993,12 @@
#(ribcage
#(k)
#((top))
- #("l-*-4606"))
+ #("l-*-4517"))
#(ribcage
#(a b)
#((top) (top))
- #("l-*-4600"
- "l-*-4601"))
+ #("l-*-4511"
+ "l-*-4512"))
#(ribcage () () ())
#(ribcage
#(args req opt rkey)
@@ -6989,10 +7006,10 @@
(top)
(top)
(top))
- #("l-*-4589"
- "l-*-4590"
- "l-*-4591"
- "l-*-4592"))
+ #("l-*-4500"
+ "l-*-4501"
+ "l-*-4502"
+ "l-*-4503"))
#(ribcage
(check rest
key
@@ -7003,15 +7020,15 @@
(top)
(top)
(top))
- ("l-*-4479"
- "l-*-4477"
- "l-*-4475"
- "l-*-4473"
- "l-*-4471"))
+ ("l-*-4390"
+ "l-*-4388"
+ "l-*-4386"
+ "l-*-4384"
+ "l-*-4382"))
#(ribcage
#(orig-args)
#((top))
- #("l-*-4470"))
+ #("l-*-4381"))
#(ribcage
(lambda-var-list
gen-var
@@ -7442,726 +7459,726 @@
"l-*-2097"
"l-*-2096")))
(hygiene guile)))))
- rkey-27685))))
- tmp-27693)
- (let ((tmp-27730
- ($sc-dispatch args-27682 '((any any) . any))))
- (if (if tmp-27730
+ rkey-27622))))
+ tmp-27630)
+ (let ((tmp-27667
+ ($sc-dispatch args-27619 '((any any) . any))))
+ (if (if tmp-27667
(@apply
- (lambda (a-27734 init-27735 b-27736)
- (if (symbol? a-27734)
+ (lambda (a-27671 init-27672 b-27673)
+ (if (symbol? a-27671)
#t
- (if (if (vector? a-27734)
- (if (= (vector-length a-27734) 4)
- (eq? (vector-ref a-27734 0)
+ (if (if (vector? a-27671)
+ (if (= (vector-length a-27671) 4)
+ (eq? (vector-ref a-27671 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref a-27734 1))
+ (symbol? (vector-ref a-27671 1))
#f)))
- tmp-27730)
+ tmp-27667)
#f)
(@apply
- (lambda (a-27763 init-27764 b-27765)
- (let ((tmp-27766
+ (lambda (a-27700 init-27701 b-27702)
+ (let ((tmp-27703
(symbol->keyword
- (syntax->datum a-27763))))
- (key-27402
- b-27765
- req-27683
- opt-27684
- (cons (list tmp-27766 a-27763 init-27764)
- rkey-27685))))
- tmp-27730)
- (let ((tmp-27769
+ (syntax->datum a-27700))))
+ (key-27339
+ b-27702
+ req-27620
+ opt-27621
+ (cons (list tmp-27703 a-27700 init-27701)
+ rkey-27622))))
+ tmp-27667)
+ (let ((tmp-27706
($sc-dispatch
- args-27682
+ args-27619
'((any any any) . any))))
- (if (if tmp-27769
+ (if (if tmp-27706
(@apply
- (lambda (a-27773
- init-27774
- k-27775
- b-27776)
- (if (if (symbol? a-27773)
+ (lambda (a-27710
+ init-27711
+ k-27712
+ b-27713)
+ (if (if (symbol? a-27710)
#t
- (if (if (vector? a-27773)
+ (if (if (vector? a-27710)
(if (= (vector-length
- a-27773)
+ a-27710)
4)
(eq? (vector-ref
- a-27773
+ a-27710
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref a-27773 1))
+ (vector-ref a-27710 1))
#f))
- (keyword? (syntax->datum k-27775))
+ (keyword? (syntax->datum k-27712))
#f))
- tmp-27769)
+ tmp-27706)
#f)
(@apply
- (lambda (a-27803 init-27804 k-27805 b-27806)
- (key-27402
- b-27806
- req-27683
- opt-27684
- (cons (list k-27805 a-27803 init-27804)
- rkey-27685)))
- tmp-27769)
- (let ((tmp-27807
- ($sc-dispatch args-27682 '(any))))
- (if (if tmp-27807
+ (lambda (a-27740 init-27741 k-27742 b-27743)
+ (key-27339
+ b-27743
+ req-27620
+ opt-27621
+ (cons (list k-27742 a-27740 init-27741)
+ rkey-27622)))
+ tmp-27706)
+ (let ((tmp-27744
+ ($sc-dispatch args-27619 '(any))))
+ (if (if tmp-27744
(@apply
- (lambda (aok-27811)
- (eq? (syntax->datum aok-27811)
+ (lambda (aok-27748)
+ (eq? (syntax->datum aok-27748)
#:allow-other-keys))
- tmp-27807)
+ tmp-27744)
#f)
(@apply
- (lambda (aok-27812)
- (check-27404
- req-27683
- opt-27684
+ (lambda (aok-27749)
+ (check-27341
+ req-27620
+ opt-27621
#f
- (cons #t (reverse rkey-27685))))
- tmp-27807)
- (let ((tmp-27815
+ (cons #t (reverse rkey-27622))))
+ tmp-27744)
+ (let ((tmp-27752
($sc-dispatch
- args-27682
+ args-27619
'(any any any))))
- (if (if tmp-27815
+ (if (if tmp-27752
(@apply
- (lambda (aok-27819
- a-27820
- b-27821)
+ (lambda (aok-27756
+ a-27757
+ b-27758)
(if (eq? (syntax->datum
- aok-27819)
+ aok-27756)
#:allow-other-keys)
- (eq? (syntax->datum a-27820)
+ (eq? (syntax->datum a-27757)
#:rest)
#f))
- tmp-27815)
+ tmp-27752)
#f)
(@apply
- (lambda (aok-27822 a-27823 b-27824)
- (rest-27403
- b-27824
- req-27683
- opt-27684
- (cons #t (reverse rkey-27685))))
- tmp-27815)
- (let ((tmp-27827
+ (lambda (aok-27759 a-27760 b-27761)
+ (rest-27340
+ b-27761
+ req-27620
+ opt-27621
+ (cons #t (reverse rkey-27622))))
+ tmp-27752)
+ (let ((tmp-27764
($sc-dispatch
- args-27682
+ args-27619
'(any . any))))
- (if (if tmp-27827
+ (if (if tmp-27764
(@apply
- (lambda (aok-27831 r-27832)
+ (lambda (aok-27768 r-27769)
(if (eq? (syntax->datum
- aok-27831)
+ aok-27768)
#:allow-other-keys)
- (if (symbol? r-27832)
+ (if (symbol? r-27769)
#t
(if (if (vector?
- r-27832)
+ r-27769)
(if (= (vector-length
- r-27832)
+ r-27769)
4)
(eq? (vector-ref
- r-27832
+ r-27769
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- r-27832
+ r-27769
1))
#f))
#f))
- tmp-27827)
+ tmp-27764)
#f)
(@apply
- (lambda (aok-27859 r-27860)
- (rest-27403
- r-27860
- req-27683
- opt-27684
+ (lambda (aok-27796 r-27797)
+ (rest-27340
+ r-27797
+ req-27620
+ opt-27621
(cons #t
- (reverse rkey-27685))))
- tmp-27827)
- (let ((tmp-27863
+ (reverse rkey-27622))))
+ tmp-27764)
+ (let ((tmp-27800
($sc-dispatch
- args-27682
+ args-27619
'(any any))))
- (if (if tmp-27863
+ (if (if tmp-27800
(@apply
- (lambda (a-27867 b-27868)
+ (lambda (a-27804 b-27805)
(eq? (syntax->datum
- a-27867)
+ a-27804)
#:rest))
- tmp-27863)
+ tmp-27800)
#f)
(@apply
- (lambda (a-27869 b-27870)
- (rest-27403
- b-27870
- req-27683
- opt-27684
+ (lambda (a-27806 b-27807)
+ (rest-27340
+ b-27807
+ req-27620
+ opt-27621
(cons #f
(reverse
- rkey-27685))))
- tmp-27863)
- (let ((tmp-27873
- (list args-27682)))
+ rkey-27622))))
+ tmp-27800)
+ (let ((tmp-27810
+ (list args-27619)))
(if (@apply
- (lambda (r-27875)
- (if (symbol? r-27875)
+ (lambda (r-27812)
+ (if (symbol? r-27812)
#t
(if (if (vector?
- r-27875)
+ r-27812)
(if (= (vector-length
- r-27875)
+ r-27812)
4)
(eq? (vector-ref
- r-27875
+ r-27812
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- r-27875
+ r-27812
1))
#f)))
- tmp-27873)
+ tmp-27810)
(@apply
- (lambda (r-27905)
- (rest-27403
- r-27905
- req-27683
- opt-27684
+ (lambda (r-27842)
+ (rest-27340
+ r-27842
+ req-27620
+ opt-27621
(cons #f
(reverse
- rkey-27685))))
- tmp-27873)
+ rkey-27622))))
+ tmp-27810)
(syntax-violation
'lambda*
"invalid keyword argument list"
- orig-args-27399
- args-27682)))))))))))))))))))))
- (rest-27403
- (lambda (args-27933 req-27934 opt-27935 kw-27936)
- (let ((tmp-27938 (list args-27933)))
+ orig-args-27336
+ args-27619)))))))))))))))))))))
+ (rest-27340
+ (lambda (args-27870 req-27871 opt-27872 kw-27873)
+ (let ((tmp-27875 (list args-27870)))
(if (@apply
- (lambda (r-27940)
- (if (symbol? r-27940)
+ (lambda (r-27877)
+ (if (symbol? r-27877)
#t
- (if (if (vector? r-27940)
- (if (= (vector-length r-27940) 4)
- (eq? (vector-ref r-27940 0) 'syntax-object)
+ (if (if (vector? r-27877)
+ (if (= (vector-length r-27877) 4)
+ (eq? (vector-ref r-27877 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref r-27940 1))
+ (symbol? (vector-ref r-27877 1))
#f)))
- tmp-27938)
+ tmp-27875)
(@apply
- (lambda (r-27970)
- (check-27404
- req-27934
- opt-27935
- r-27970
- kw-27936))
- tmp-27938)
+ (lambda (r-27907)
+ (check-27341
+ req-27871
+ opt-27872
+ r-27907
+ kw-27873))
+ tmp-27875)
(syntax-violation
'lambda*
"invalid rest argument"
- orig-args-27399
- args-27933)))))
- (check-27404
- (lambda (req-27974 opt-27975 rest-27976 kw-27977)
- (if (distinct-bound-ids?-6576
+ orig-args-27336
+ args-27870)))))
+ (check-27341
+ (lambda (req-27911 opt-27912 rest-27913 kw-27914)
+ (if (distinct-bound-ids?-6372
(append
- req-27974
- (map car opt-27975)
- (if rest-27976 (list rest-27976) '())
- (if (pair? kw-27977)
- (map cadr (cdr kw-27977))
+ req-27911
+ (map car opt-27912)
+ (if rest-27913 (list rest-27913) '())
+ (if (pair? kw-27914)
+ (map cadr (cdr kw-27914))
'())))
- (values req-27974 opt-27975 rest-27976 kw-27977)
+ (values req-27911 opt-27912 rest-27913 kw-27914)
(syntax-violation
'lambda*
"duplicate identifier in argument list"
- orig-args-27399)))))
- (req-27400 orig-args-27399 '()))))
- (expand-lambda-case-6597
- (lambda (e-28093
- r-28094
- w-28095
- s-28096
- mod-28097
- get-formals-28098
- clauses-28099)
+ orig-args-27336)))))
+ (req-27337 orig-args-27336 '()))))
+ (expand-lambda-case-6393
+ (lambda (e-28030
+ r-28031
+ w-28032
+ s-28033
+ mod-28034
+ get-formals-28035
+ clauses-28036)
(letrec*
- ((parse-req-28100
- (lambda (req-28231
- opt-28232
- rest-28233
- kw-28234
- body-28235)
- (let ((vars-28236 (map gen-var-6599 req-28231))
- (labels-28237 (gen-labels-6552 req-28231)))
- (let ((r*-28238
- (extend-var-env-6544
- labels-28237
- vars-28236
- r-28094))
- (w*-28239
- (make-binding-wrap-6563
- req-28231
- labels-28237
- w-28095)))
- (parse-opt-28101
- (map syntax->datum req-28231)
- opt-28232
- rest-28233
- kw-28234
- body-28235
- (reverse vars-28236)
- r*-28238
- w*-28239
+ ((parse-req-28037
+ (lambda (req-28168
+ opt-28169
+ rest-28170
+ kw-28171
+ body-28172)
+ (let ((vars-28173 (map gen-var-6395 req-28168))
+ (labels-28174 (gen-labels-6348 req-28168)))
+ (let ((r*-28175
+ (extend-var-env-6340
+ labels-28174
+ vars-28173
+ r-28031))
+ (w*-28176
+ (make-binding-wrap-6359
+ req-28168
+ labels-28174
+ w-28032)))
+ (parse-opt-28038
+ (map syntax->datum req-28168)
+ opt-28169
+ rest-28170
+ kw-28171
+ body-28172
+ (reverse vars-28173)
+ r*-28175
+ w*-28176
'()
'())))))
- (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
+ (parse-opt-28038
+ (lambda (req-28362
+ opt-28363
+ rest-28364
+ kw-28365
+ body-28366
+ vars-28367
+ r*-28368
+ w*-28369
+ out-28370
+ inits-28371)
+ (if (pair? opt-28363)
+ (let ((tmp-28372 (car opt-28363)))
+ (let ((tmp-28373 ($sc-dispatch tmp-28372 '(any any))))
+ (if tmp-28373
(@apply
- (lambda (id-28438 i-28439)
- (let ((v-28440
- (let ((id-28448
- (if (if (vector? id-28438)
+ (lambda (id-28375 i-28376)
+ (let ((v-28377
+ (let ((id-28385
+ (if (if (vector? id-28375)
(if (= (vector-length
- id-28438)
+ id-28375)
4)
(eq? (vector-ref
- id-28438
+ id-28375
0)
'syntax-object)
#f)
#f)
- (vector-ref id-28438 1)
- id-28438)))
+ (vector-ref id-28375 1)
+ id-28375)))
(gensym
(string-append
- (symbol->string id-28448)
+ (symbol->string id-28385)
"-")))))
- (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)
+ (let ((l-28378 (gen-labels-6348 (list v-28377))))
+ (let ((r**-28379
+ (extend-var-env-6340
+ l-28378
+ (list v-28377)
+ r*-28368)))
+ (let ((w**-28380
+ (make-binding-wrap-6359
+ (list id-28375)
+ l-28378
+ w*-28369)))
+ (parse-opt-28038
+ req-28362
+ (cdr opt-28363)
+ rest-28364
+ kw-28365
+ body-28366
+ (cons v-28377 vars-28367)
+ r**-28379
+ w**-28380
+ (cons (syntax->datum id-28375) out-28370)
+ (cons (expand-6381
+ i-28376
+ r*-28368
+ w*-28369
+ mod-28034)
+ inits-28371)))))))
+ tmp-28373)
(syntax-violation
#f
"source expression failed to match any pattern"
- tmp-28435))))
- (if rest-28427
- (let ((v-28686
- (let ((id-28696
- (if (if (vector? rest-28427)
- (if (= (vector-length rest-28427) 4)
- (eq? (vector-ref rest-28427 0)
+ tmp-28372))))
+ (if rest-28364
+ (let ((v-28623
+ (let ((id-28633
+ (if (if (vector? rest-28364)
+ (if (= (vector-length rest-28364) 4)
+ (eq? (vector-ref rest-28364 0)
'syntax-object)
#f)
#f)
- (vector-ref rest-28427 1)
- rest-28427)))
+ (vector-ref rest-28364 1)
+ rest-28364)))
(gensym
(string-append
- (symbol->string id-28696)
+ (symbol->string id-28633)
"-")))))
- (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)
+ (let ((l-28624 (gen-labels-6348 (list v-28623))))
+ (let ((r*-28625
+ (extend-var-env-6340
+ l-28624
+ (list v-28623)
+ r*-28368)))
+ (let ((w*-28626
+ (make-binding-wrap-6359
+ (list rest-28364)
+ l-28624
+ w*-28369)))
+ (parse-kw-28039
+ req-28362
+ (if (pair? out-28370) (reverse out-28370) #f)
+ (syntax->datum rest-28364)
+ (if (pair? kw-28365) (cdr kw-28365) kw-28365)
+ body-28366
+ (cons v-28623 vars-28367)
+ r*-28625
+ w*-28626
+ (if (pair? kw-28365) (car kw-28365) #f)
'()
- inits-28434)))))
- (parse-kw-28102
- req-28425
- (if (pair? out-28433) (reverse out-28433) #f)
+ inits-28371)))))
+ (parse-kw-28039
+ req-28362
+ (if (pair? out-28370) (reverse out-28370) #f)
#f
- (if (pair? kw-28428) (cdr kw-28428) kw-28428)
- body-28429
- vars-28430
- r*-28431
- w*-28432
- (if (pair? kw-28428) (car kw-28428) #f)
+ (if (pair? kw-28365) (cdr kw-28365) kw-28365)
+ body-28366
+ vars-28367
+ r*-28368
+ w*-28369
+ (if (pair? kw-28365) (car kw-28365) #f)
'()
- inits-28434)))))
- (parse-kw-28102
- (lambda (req-28867
- opt-28868
- rest-28869
- kw-28870
- body-28871
- vars-28872
- r*-28873
- w*-28874
- aok-28875
- out-28876
- inits-28877)
- (if (pair? kw-28870)
- (let ((tmp-28878 (car kw-28870)))
- (let ((tmp-28879
- ($sc-dispatch tmp-28878 '(any any any))))
- (if tmp-28879
+ inits-28371)))))
+ (parse-kw-28039
+ (lambda (req-28804
+ opt-28805
+ rest-28806
+ kw-28807
+ body-28808
+ vars-28809
+ r*-28810
+ w*-28811
+ aok-28812
+ out-28813
+ inits-28814)
+ (if (pair? kw-28807)
+ (let ((tmp-28815 (car kw-28807)))
+ (let ((tmp-28816
+ ($sc-dispatch tmp-28815 '(any any any))))
+ (if tmp-28816
(@apply
- (lambda (k-28881 id-28882 i-28883)
- (let ((v-28884
- (let ((id-28892
- (if (if (vector? id-28882)
+ (lambda (k-28818 id-28819 i-28820)
+ (let ((v-28821
+ (let ((id-28829
+ (if (if (vector? id-28819)
(if (= (vector-length
- id-28882)
+ id-28819)
4)
(eq? (vector-ref
- id-28882
+ id-28819
0)
'syntax-object)
#f)
#f)
- (vector-ref id-28882 1)
- id-28882)))
+ (vector-ref id-28819 1)
+ id-28819)))
(gensym
(string-append
- (symbol->string id-28892)
+ (symbol->string id-28829)
"-")))))
- (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)
+ (let ((l-28822 (gen-labels-6348 (list v-28821))))
+ (let ((r**-28823
+ (extend-var-env-6340
+ l-28822
+ (list v-28821)
+ r*-28810)))
+ (let ((w**-28824
+ (make-binding-wrap-6359
+ (list id-28819)
+ l-28822
+ w*-28811)))
+ (parse-kw-28039
+ req-28804
+ opt-28805
+ rest-28806
+ (cdr kw-28807)
+ body-28808
+ (cons v-28821 vars-28809)
+ r**-28823
+ w**-28824
+ aok-28812
+ (cons (list (syntax->datum k-28818)
+ (syntax->datum id-28819)
+ v-28821)
+ out-28813)
+ (cons (expand-6381
+ i-28820
+ r*-28810
+ w*-28811
+ mod-28034)
+ inits-28814)))))))
+ tmp-28816)
(syntax-violation
#f
"source expression failed to match any pattern"
- tmp-28878))))
- (parse-body-28103
- req-28867
- opt-28868
- rest-28869
- (if (if aok-28875 aok-28875 (pair? out-28876))
- (cons aok-28875 (reverse out-28876))
+ tmp-28815))))
+ (parse-body-28040
+ req-28804
+ opt-28805
+ rest-28806
+ (if (if aok-28812 aok-28812 (pair? out-28813))
+ (cons aok-28812 (reverse out-28813))
#f)
- body-28871
- (reverse vars-28872)
- r*-28873
- w*-28874
- (reverse inits-28877)
+ body-28808
+ (reverse vars-28809)
+ r*-28810
+ w*-28811
+ (reverse inits-28814)
'()))))
- (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
+ (parse-body-28040
+ (lambda (req-29076
+ opt-29077
+ rest-29078
+ kw-29079
+ body-29080
+ vars-29081
+ r*-29082
+ w*-29083
+ inits-29084
+ meta-29085)
+ (let ((tmp-29087
+ ($sc-dispatch body-29080 '(any any . each-any))))
+ (if (if tmp-29087
(@apply
- (lambda (docstring-29154 e1-29155 e2-29156)
- (string? (syntax->datum docstring-29154)))
- tmp-29150)
+ (lambda (docstring-29091 e1-29092 e2-29093)
+ (string? (syntax->datum docstring-29091)))
+ tmp-29087)
#f)
(@apply
- (lambda (docstring-29157 e1-29158 e2-29159)
- (parse-body-28103
- req-29139
- opt-29140
- rest-29141
- kw-29142
- (cons e1-29158 e2-29159)
- vars-29144
- r*-29145
- w*-29146
- inits-29147
+ (lambda (docstring-29094 e1-29095 e2-29096)
+ (parse-body-28040
+ req-29076
+ opt-29077
+ rest-29078
+ kw-29079
+ (cons e1-29095 e2-29096)
+ vars-29081
+ r*-29082
+ w*-29083
+ inits-29084
(append
- meta-29148
+ meta-29085
(list (cons 'documentation
- (syntax->datum docstring-29157))))))
- tmp-29150)
- (let ((tmp-29160
+ (syntax->datum docstring-29094))))))
+ tmp-29087)
+ (let ((tmp-29097
($sc-dispatch
- body-29143
+ body-29080
'(#(vector #(each (any . any)))
any
.
each-any))))
- (if tmp-29160
+ (if tmp-29097
(@apply
- (lambda (k-29164 v-29165 e1-29166 e2-29167)
- (parse-body-28103
- req-29139
- opt-29140
- rest-29141
- kw-29142
- (cons e1-29166 e2-29167)
- vars-29144
- r*-29145
- w*-29146
- inits-29147
+ (lambda (k-29101 v-29102 e1-29103 e2-29104)
+ (parse-body-28040
+ req-29076
+ opt-29077
+ rest-29078
+ kw-29079
+ (cons e1-29103 e2-29104)
+ vars-29081
+ r*-29082
+ w*-29083
+ inits-29084
(append
- meta-29148
- (syntax->datum (map cons k-29164 v-29165)))))
- tmp-29160)
- (let ((tmp-29168
- ($sc-dispatch body-29143 '(any . each-any))))
- (if tmp-29168
+ meta-29085
+ (syntax->datum (map cons k-29101 v-29102)))))
+ tmp-29097)
+ (let ((tmp-29105
+ ($sc-dispatch body-29080 '(any . each-any))))
+ (if tmp-29105
(@apply
- (lambda (e1-29172 e2-29173)
+ (lambda (e1-29109 e2-29110)
(values
- meta-29148
- req-29139
- opt-29140
- rest-29141
- kw-29142
- inits-29147
- vars-29144
- (expand-body-6589
- (cons e1-29172 e2-29173)
- (wrap-6578
+ meta-29085
+ req-29076
+ opt-29077
+ rest-29078
+ kw-29079
+ inits-29084
+ vars-29081
+ (expand-body-6385
+ (cons e1-29109 e2-29110)
+ (wrap-6374
(begin
- (if (if (pair? e-28093) s-28096 #f)
+ (if (if (pair? e-28030) s-28033 #f)
(set-source-properties!
- e-28093
- s-28096))
- e-28093)
- w-28095
- mod-28097)
- r*-29145
- w*-29146
- mod-28097)))
- tmp-29168)
+ e-28030
+ s-28033))
+ e-28030)
+ w-28032
+ mod-28034)
+ r*-29082
+ w*-29083
+ mod-28034)))
+ tmp-29105)
(syntax-violation
#f
"source expression failed to match any pattern"
- body-29143))))))))))
- (let ((tmp-28105 ($sc-dispatch clauses-28099 '())))
- (if tmp-28105
- (@apply (lambda () (values '() #f)) tmp-28105)
- (let ((tmp-28109
+ body-29080))))))))))
+ (let ((tmp-28042 ($sc-dispatch clauses-28036 '())))
+ (if tmp-28042
+ (@apply (lambda () (values '() #f)) tmp-28042)
+ (let ((tmp-28046
($sc-dispatch
- clauses-28099
+ clauses-28036
'((any any . each-any)
.
#(each (any any . each-any))))))
- (if tmp-28109
+ (if tmp-28046
(@apply
- (lambda (args-28113
- e1-28114
- e2-28115
- args*-28116
- e1*-28117
- e2*-28118)
+ (lambda (args-28050
+ e1-28051
+ e2-28052
+ args*-28053
+ e1*-28054
+ e2*-28055)
(call-with-values
- (lambda () (get-formals-28098 args-28113))
- (lambda (req-28119 opt-28120 rest-28121 kw-28122)
+ (lambda () (get-formals-28035 args-28050))
+ (lambda (req-28056 opt-28057 rest-28058 kw-28059)
(call-with-values
(lambda ()
- (parse-req-28100
- req-28119
- opt-28120
- rest-28121
- kw-28122
- (cons e1-28114 e2-28115)))
- (lambda (meta-28187
- req-28188
- opt-28189
- rest-28190
- kw-28191
- inits-28192
- vars-28193
- body-28194)
+ (parse-req-28037
+ req-28056
+ opt-28057
+ rest-28058
+ kw-28059
+ (cons e1-28051 e2-28052)))
+ (lambda (meta-28124
+ req-28125
+ opt-28126
+ rest-28127
+ kw-28128
+ inits-28129
+ vars-28130
+ body-28131)
(call-with-values
(lambda ()
- (expand-lambda-case-6597
- e-28093
- r-28094
- w-28095
- s-28096
- mod-28097
- get-formals-28098
- (map (lambda (tmp-4949-28195
- tmp-4948-28196
- tmp-4947-28197)
- (cons tmp-4947-28197
- (cons tmp-4948-28196
- tmp-4949-28195)))
- e2*-28118
- e1*-28117
- args*-28116)))
- (lambda (meta*-28198 else*-28199)
+ (expand-lambda-case-6393
+ e-28030
+ r-28031
+ w-28032
+ s-28033
+ mod-28034
+ get-formals-28035
+ (map (lambda (tmp-4852-28132
+ tmp-4851-28133
+ tmp-4850-28134)
+ (cons tmp-4850-28134
+ (cons tmp-4851-28133
+ tmp-4852-28132)))
+ e2*-28055
+ e1*-28054
+ args*-28053)))
+ (lambda (meta*-28135 else*-28136)
(values
- (append meta-28187 meta*-28198)
+ (append meta-28124 meta*-28135)
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
- s-28096
- req-28188
- opt-28189
- rest-28190
- kw-28191
- inits-28192
- vars-28193
- body-28194
- else*-28199)))))))))
- tmp-28109)
+ s-28033
+ req-28125
+ opt-28126
+ rest-28127
+ kw-28128
+ inits-28129
+ vars-28130
+ body-28131
+ else*-28136)))))))))
+ tmp-28046)
(syntax-violation
#f
"source expression failed to match any pattern"
- clauses-28099))))))))
- (strip-6598
- (lambda (x-29210 w-29211)
- (if (memq 'top (car w-29211))
- x-29210
+ clauses-28036))))))))
+ (strip-6394
+ (lambda (x-29147 w-29148)
+ (if (memq 'top (car w-29148))
+ x-29147
(letrec*
- ((f-29212
- (lambda (x-29215)
- (if (if (vector? x-29215)
- (if (= (vector-length x-29215) 4)
- (eq? (vector-ref x-29215 0) 'syntax-object)
+ ((f-29149
+ (lambda (x-29152)
+ (if (if (vector? x-29152)
+ (if (= (vector-length x-29152) 4)
+ (eq? (vector-ref x-29152 0) 'syntax-object)
#f)
#f)
- (strip-6598
- (vector-ref x-29215 1)
- (vector-ref x-29215 2))
- (if (pair? x-29215)
- (let ((a-29234 (f-29212 (car x-29215)))
- (d-29235 (f-29212 (cdr x-29215))))
- (if (if (eq? a-29234 (car x-29215))
- (eq? d-29235 (cdr x-29215))
+ (strip-6394
+ (vector-ref x-29152 1)
+ (vector-ref x-29152 2))
+ (if (pair? x-29152)
+ (let ((a-29171 (f-29149 (car x-29152)))
+ (d-29172 (f-29149 (cdr x-29152))))
+ (if (if (eq? a-29171 (car x-29152))
+ (eq? d-29172 (cdr x-29152))
#f)
- x-29215
- (cons a-29234 d-29235)))
- (if (vector? x-29215)
- (let ((old-29238 (vector->list x-29215)))
- (let ((new-29239 (map f-29212 old-29238)))
+ x-29152
+ (cons a-29171 d-29172)))
+ (if (vector? x-29152)
+ (let ((old-29175 (vector->list x-29152)))
+ (let ((new-29176 (map f-29149 old-29175)))
(letrec*
- ((lp-29240
- (lambda (l1-29316 l2-29317)
- (if (null? l1-29316)
- x-29215
- (if (eq? (car l1-29316) (car l2-29317))
- (lp-29240 (cdr l1-29316) (cdr l2-29317))
- (list->vector new-29239))))))
- (lp-29240 old-29238 new-29239))))
- x-29215))))))
- (f-29212 x-29210)))))
- (gen-var-6599
- (lambda (id-28243)
- (let ((id-28244
- (if (if (vector? id-28243)
- (if (= (vector-length id-28243) 4)
- (eq? (vector-ref id-28243 0) 'syntax-object)
+ ((lp-29177
+ (lambda (l1-29253 l2-29254)
+ (if (null? l1-29253)
+ x-29152
+ (if (eq? (car l1-29253) (car l2-29254))
+ (lp-29177 (cdr l1-29253) (cdr l2-29254))
+ (list->vector new-29176))))))
+ (lp-29177 old-29175 new-29176))))
+ x-29152))))))
+ (f-29149 x-29147)))))
+ (gen-var-6395
+ (lambda (id-28180)
+ (let ((id-28181
+ (if (if (vector? id-28180)
+ (if (= (vector-length id-28180) 4)
+ (eq? (vector-ref id-28180 0) 'syntax-object)
#f)
#f)
- (vector-ref id-28243 1)
- id-28243)))
+ (vector-ref id-28180 1)
+ id-28180)))
(gensym
- (string-append (symbol->string id-28244) "-"))))))
+ (string-append (symbol->string id-28181) "-"))))))
(begin
- (set! session-id-6510
- (let ((v-17707
+ (set! session-id-6306
+ (let ((v-17516
(module-variable
(current-module)
'syntax-session-id)))
- (lambda () ((variable-ref v-17707)))))
- (set! transformer-environment-6571
+ (lambda () ((variable-ref v-17516)))))
+ (set! transformer-environment-6367
(make-fluid
- (lambda (k-16750)
+ (lambda (k-16548)
(error "called outside the dynamic extent of a syntax transformer"))))
(module-define!
(current-module)
@@ -8177,1113 +8194,1118 @@
'let-syntax
'local-syntax
#f))
- (global-extend-6547
+ (global-extend-6343
'core
'syntax-parameterize
- (lambda (e-6720 r-6721 w-6722 s-6723 mod-6724)
- (let ((tmp-6726
+ (lambda (e-6516 r-6517 w-6518 s-6519 mod-6520)
+ (let ((tmp-6522
($sc-dispatch
- e-6720
+ e-6516
'(_ #(each (any any)) any . each-any))))
- (if (if tmp-6726
+ (if (if tmp-6522
(@apply
- (lambda (var-6730 val-6731 e1-6732 e2-6733)
- (valid-bound-ids?-6575 var-6730))
- tmp-6726)
+ (lambda (var-6526 val-6527 e1-6528 e2-6529)
+ (valid-bound-ids?-6371 var-6526))
+ tmp-6522)
#f)
(@apply
- (lambda (var-6811 val-6812 e1-6813 e2-6814)
- (let ((names-6815
- (map (lambda (x-6865)
- (id-var-name-6568 x-6865 w-6722))
- var-6811)))
+ (lambda (var-6607 val-6608 e1-6609 e2-6610)
+ (let ((names-6611
+ (map (lambda (x-6661)
+ (id-var-name-6364 x-6661 w-6518))
+ var-6607)))
(begin
(for-each
- (lambda (id-6816 n-6817)
- (let ((atom-key-6818
- (car (let ((t-6825 (assq n-6817 r-6721)))
- (if t-6825
- (cdr t-6825)
- (if (symbol? n-6817)
- (let ((t-6830
- (get-global-definition-hook-6512
- n-6817
- mod-6724)))
- (if t-6830 t-6830 '(global)))
+ (lambda (id-6612 n-6613)
+ (let ((key-6614
+ (car (let ((t-6621 (assq n-6613 r-6517)))
+ (if t-6621
+ (cdr t-6621)
+ (if (symbol? n-6613)
+ (let ((t-6626
+ (get-global-definition-hook-6308
+ n-6613
+ mod-6520)))
+ (if t-6626 t-6626 '(global)))
'(displaced-lexical)))))))
- (if (eqv? atom-key-6818 'displaced-lexical)
+ (if (eqv? key-6614 'displaced-lexical)
(syntax-violation
'syntax-parameterize
"identifier out of context"
- e-6720
- (wrap-6578
+ e-6516
+ (wrap-6374
(begin
- (if (if (pair? id-6816) s-6723 #f)
- (set-source-properties! id-6816 s-6723))
- id-6816)
- w-6722
- mod-6724)))))
- var-6811
- names-6815)
- (expand-body-6589
- (cons e1-6813 e2-6814)
- (wrap-6578
+ (if (if (pair? id-6612) s-6519 #f)
+ (set-source-properties! id-6612 s-6519))
+ id-6612)
+ w-6518
+ mod-6520)))))
+ var-6607
+ names-6611)
+ (expand-body-6385
+ (cons e1-6609 e2-6610)
+ (wrap-6374
(begin
- (if (if (pair? e-6720) s-6723 #f)
- (set-source-properties! e-6720 s-6723))
- e-6720)
- w-6722
- mod-6724)
- (extend-env-6543
- names-6815
- (let ((trans-r-6951 (macros-only-env-6545 r-6721)))
- (map (lambda (x-6952)
+ (if (if (pair? e-6516) s-6519 #f)
+ (set-source-properties! e-6516 s-6519))
+ e-6516)
+ w-6518
+ mod-6520)
+ (extend-env-6339
+ names-6611
+ (let ((trans-r-6747 (macros-only-env-6341 r-6517)))
+ (map (lambda (x-6748)
(cons 'macro
- (eval-local-transformer-6591
- (expand-6585
- x-6952
- trans-r-6951
- w-6722
- mod-6724)
- mod-6724)))
- val-6812))
- r-6721)
- w-6722
- mod-6724))))
- tmp-6726)
+ (eval-local-transformer-6387
+ (expand-6381
+ x-6748
+ trans-r-6747
+ w-6518
+ mod-6520)
+ mod-6520)))
+ val-6608))
+ r-6517)
+ w-6518
+ mod-6520))))
+ tmp-6522)
(syntax-violation
'syntax-parameterize
"bad syntax"
- (wrap-6578
+ (wrap-6374
(begin
- (if (if (pair? e-6720) s-6723 #f)
- (set-source-properties! e-6720 s-6723))
- e-6720)
- w-6722
- mod-6724))))))
+ (if (if (pair? e-6516) s-6519 #f)
+ (set-source-properties! e-6516 s-6519))
+ e-6516)
+ w-6518
+ mod-6520))))))
(module-define!
(current-module)
'quote
(make-syntax-transformer
'quote
'core
- (lambda (e-7161 r-7162 w-7163 s-7164 mod-7165)
- (let ((tmp-7167 ($sc-dispatch e-7161 '(_ any))))
- (if tmp-7167
+ (lambda (e-6957 r-6958 w-6959 s-6960 mod-6961)
+ (let ((tmp-6963 ($sc-dispatch e-6957 '(_ any))))
+ (if tmp-6963
(@apply
- (lambda (e-7170)
- (let ((exp-7174 (strip-6598 e-7170 w-7163)))
+ (lambda (e-6966)
+ (let ((exp-6970 (strip-6394 e-6966 w-6959)))
(make-struct/no-tail
(vector-ref %expanded-vtables 1)
- s-7164
- exp-7174)))
- tmp-7167)
+ s-6960
+ exp-6970)))
+ tmp-6963)
(syntax-violation
'quote
"bad syntax"
- (wrap-6578
+ (wrap-6374
(begin
- (if (if (pair? e-7161) s-7164 #f)
- (set-source-properties! e-7161 s-7164))
- e-7161)
- w-7163
- mod-7165)))))))
- (global-extend-6547
+ (if (if (pair? e-6957) s-6960 #f)
+ (set-source-properties! e-6957 s-6960))
+ e-6957)
+ w-6959
+ mod-6961)))))))
+ (global-extend-6343
'core
'syntax
(letrec*
- ((gen-syntax-7394
- (lambda (src-7496
- e-7497
- r-7498
- maps-7499
- ellipsis?-7500
- mod-7501)
- (if (if (symbol? e-7497)
+ ((gen-syntax-7190
+ (lambda (src-7292
+ e-7293
+ r-7294
+ maps-7295
+ ellipsis?-7296
+ mod-7297)
+ (if (if (symbol? e-7293)
#t
- (if (if (vector? e-7497)
- (if (= (vector-length e-7497) 4)
- (eq? (vector-ref e-7497 0) 'syntax-object)
+ (if (if (vector? e-7293)
+ (if (= (vector-length e-7293) 4)
+ (eq? (vector-ref e-7293 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref e-7497 1))
+ (symbol? (vector-ref e-7293 1))
#f))
- (let ((label-7528 (id-var-name-6568 e-7497 '(()))))
- (let ((b-7529
- (let ((t-7536 (assq label-7528 r-7498)))
- (if t-7536
- (cdr t-7536)
- (if (symbol? label-7528)
- (let ((t-7542
- (get-global-definition-hook-6512
- label-7528
- mod-7501)))
- (if t-7542 t-7542 '(global)))
+ (let ((label-7324 (id-var-name-6364 e-7293 '(()))))
+ (let ((b-7325
+ (let ((t-7332 (assq label-7324 r-7294)))
+ (if t-7332
+ (cdr t-7332)
+ (if (symbol? label-7324)
+ (let ((t-7338
+ (get-global-definition-hook-6308
+ label-7324
+ mod-7297)))
+ (if t-7338 t-7338 '(global)))
'(displaced-lexical))))))
- (if (eq? (car b-7529) 'syntax)
+ (if (eq? (car b-7325) 'syntax)
(call-with-values
(lambda ()
- (let ((var.lev-7551 (cdr b-7529)))
- (gen-ref-7395
- src-7496
- (car var.lev-7551)
- (cdr var.lev-7551)
- maps-7499)))
- (lambda (var-7555 maps-7556)
- (values (list 'ref var-7555) maps-7556)))
- (if (ellipsis?-7500 e-7497)
+ (let ((var.lev-7347 (cdr b-7325)))
+ (gen-ref-7191
+ src-7292
+ (car var.lev-7347)
+ (cdr var.lev-7347)
+ maps-7295)))
+ (lambda (var-7351 maps-7352)
+ (values (list 'ref var-7351) maps-7352)))
+ (if (ellipsis?-7296 e-7293)
(syntax-violation
'syntax
"misplaced ellipsis"
- src-7496)
- (values (list 'quote e-7497) maps-7499)))))
- (let ((tmp-7558 ($sc-dispatch e-7497 '(any any))))
- (if (if tmp-7558
+ src-7292)
+ (values (list 'quote e-7293) maps-7295)))))
+ (let ((tmp-7354 ($sc-dispatch e-7293 '(any any))))
+ (if (if tmp-7354
(@apply
- (lambda (dots-7562 e-7563)
- (ellipsis?-7500 dots-7562))
- tmp-7558)
+ (lambda (dots-7358 e-7359)
+ (ellipsis?-7296 dots-7358))
+ tmp-7354)
#f)
(@apply
- (lambda (dots-7564 e-7565)
- (gen-syntax-7394
- src-7496
- e-7565
- r-7498
- maps-7499
- (lambda (x-7566) #f)
- mod-7501))
- tmp-7558)
- (let ((tmp-7567 ($sc-dispatch e-7497 '(any any . any))))
- (if (if tmp-7567
+ (lambda (dots-7360 e-7361)
+ (gen-syntax-7190
+ src-7292
+ e-7361
+ r-7294
+ maps-7295
+ (lambda (x-7362) #f)
+ mod-7297))
+ tmp-7354)
+ (let ((tmp-7363 ($sc-dispatch e-7293 '(any any . any))))
+ (if (if tmp-7363
(@apply
- (lambda (x-7571 dots-7572 y-7573)
- (ellipsis?-7500 dots-7572))
- tmp-7567)
+ (lambda (x-7367 dots-7368 y-7369)
+ (ellipsis?-7296 dots-7368))
+ tmp-7363)
#f)
(@apply
- (lambda (x-7574 dots-7575 y-7576)
+ (lambda (x-7370 dots-7371 y-7372)
(letrec*
- ((f-7577
- (lambda (y-7585 k-7586)
- (let ((tmp-7588
+ ((f-7373
+ (lambda (y-7381 k-7382)
+ (let ((tmp-7384
($sc-dispatch
- y-7585
+ y-7381
'(any . any))))
- (if (if tmp-7588
+ (if (if tmp-7384
(@apply
- (lambda (dots-7592 y-7593)
- (ellipsis?-7500 dots-7592))
- tmp-7588)
+ (lambda (dots-7388 y-7389)
+ (ellipsis?-7296 dots-7388))
+ tmp-7384)
#f)
(@apply
- (lambda (dots-7594 y-7595)
- (f-7577
- y-7595
- (lambda (maps-7596)
+ (lambda (dots-7390 y-7391)
+ (f-7373
+ y-7391
+ (lambda (maps-7392)
(call-with-values
(lambda ()
- (k-7586
- (cons '() maps-7596)))
- (lambda (x-7597 maps-7598)
- (if (null? (car maps-7598))
+ (k-7382
+ (cons '() maps-7392)))
+ (lambda (x-7393 maps-7394)
+ (if (null? (car maps-7394))
(syntax-violation
'syntax
"extra ellipsis"
- src-7496)
+ src-7292)
(values
- (let ((map-env-7602
- (car maps-7598)))
+ (let ((map-env-7398
+ (car maps-7394)))
(list 'apply
'(primitive
append)
- (gen-map-7397
- x-7597
- map-env-7602)))
- (cdr maps-7598))))))))
- tmp-7588)
+ (gen-map-7193
+ x-7393
+ map-env-7398)))
+ (cdr maps-7394))))))))
+ tmp-7384)
(call-with-values
(lambda ()
- (gen-syntax-7394
- src-7496
- y-7585
- r-7498
- maps-7499
- ellipsis?-7500
- mod-7501))
- (lambda (y-7605 maps-7606)
+ (gen-syntax-7190
+ src-7292
+ y-7381
+ r-7294
+ maps-7295
+ ellipsis?-7296
+ mod-7297))
+ (lambda (y-7401 maps-7402)
(call-with-values
- (lambda () (k-7586 maps-7606))
- (lambda (x-7607 maps-7608)
+ (lambda () (k-7382 maps-7402))
+ (lambda (x-7403 maps-7404)
(values
- (if (equal? y-7605 ''())
- x-7607
+ (if (equal? y-7401 ''())
+ x-7403
(list 'append
- x-7607
- y-7605))
- maps-7608))))))))))
- (f-7577
- y-7576
- (lambda (maps-7580)
+ x-7403
+ y-7401))
+ maps-7404))))))))))
+ (f-7373
+ y-7372
+ (lambda (maps-7376)
(call-with-values
(lambda ()
- (gen-syntax-7394
- src-7496
- x-7574
- r-7498
- (cons '() maps-7580)
- ellipsis?-7500
- mod-7501))
- (lambda (x-7581 maps-7582)
- (if (null? (car maps-7582))
+ (gen-syntax-7190
+ src-7292
+ x-7370
+ r-7294
+ (cons '() maps-7376)
+ ellipsis?-7296
+ mod-7297))
+ (lambda (x-7377 maps-7378)
+ (if (null? (car maps-7378))
(syntax-violation
'syntax
"extra ellipsis"
- src-7496)
+ src-7292)
(values
- (gen-map-7397
- x-7581
- (car maps-7582))
- (cdr maps-7582)))))))))
- tmp-7567)
- (let ((tmp-7624 ($sc-dispatch e-7497 '(any . any))))
- (if tmp-7624
+ (gen-map-7193
+ x-7377
+ (car maps-7378))
+ (cdr maps-7378)))))))))
+ tmp-7363)
+ (let ((tmp-7420 ($sc-dispatch e-7293 '(any . any))))
+ (if tmp-7420
(@apply
- (lambda (x-7628 y-7629)
+ (lambda (x-7424 y-7425)
(call-with-values
(lambda ()
- (gen-syntax-7394
- src-7496
- x-7628
- r-7498
- maps-7499
- ellipsis?-7500
- mod-7501))
- (lambda (x-7630 maps-7631)
+ (gen-syntax-7190
+ src-7292
+ x-7424
+ r-7294
+ maps-7295
+ ellipsis?-7296
+ mod-7297))
+ (lambda (x-7426 maps-7427)
(call-with-values
(lambda ()
- (gen-syntax-7394
- src-7496
- y-7629
- r-7498
- maps-7631
- ellipsis?-7500
- mod-7501))
- (lambda (y-7632 maps-7633)
+ (gen-syntax-7190
+ src-7292
+ y-7425
+ r-7294
+ maps-7427
+ ellipsis?-7296
+ mod-7297))
+ (lambda (y-7428 maps-7429)
(values
- (let ((atom-key-7638 (car y-7632)))
- (if (eqv? atom-key-7638 'quote)
- (if (eq? (car x-7630) 'quote)
+ (let ((key-7434 (car y-7428)))
+ (if (eqv? key-7434 'quote)
+ (if (eq? (car x-7426) 'quote)
(list 'quote
- (cons (car (cdr x-7630))
- (car (cdr y-7632))))
- (if (eq? (car (cdr y-7632))
+ (cons (car (cdr x-7426))
+ (car (cdr y-7428))))
+ (if (eq? (car (cdr y-7428))
'())
- (list 'list x-7630)
- (list 'cons x-7630 y-7632)))
- (if (eqv? atom-key-7638 'list)
+ (list 'list x-7426)
+ (list 'cons x-7426 y-7428)))
+ (if (eqv? key-7434 'list)
(cons 'list
- (cons x-7630
- (cdr y-7632)))
- (list 'cons x-7630 y-7632))))
- maps-7633))))))
- tmp-7624)
- (let ((tmp-7667
+ (cons x-7426
+ (cdr y-7428)))
+ (list 'cons x-7426 y-7428))))
+ maps-7429))))))
+ tmp-7420)
+ (let ((tmp-7463
($sc-dispatch
- e-7497
+ e-7293
'#(vector (any . each-any)))))
- (if tmp-7667
+ (if tmp-7463
(@apply
- (lambda (e1-7671 e2-7672)
+ (lambda (e1-7467 e2-7468)
(call-with-values
(lambda ()
- (gen-syntax-7394
- src-7496
- (cons e1-7671 e2-7672)
- r-7498
- maps-7499
- ellipsis?-7500
- mod-7501))
- (lambda (e-7673 maps-7674)
+ (gen-syntax-7190
+ src-7292
+ (cons e1-7467 e2-7468)
+ r-7294
+ maps-7295
+ ellipsis?-7296
+ mod-7297))
+ (lambda (e-7469 maps-7470)
(values
- (if (eq? (car e-7673) 'list)
- (cons 'vector (cdr e-7673))
- (if (eq? (car e-7673) 'quote)
+ (if (eq? (car e-7469) 'list)
+ (cons 'vector (cdr e-7469))
+ (if (eq? (car e-7469) 'quote)
(list 'quote
(list->vector
- (car (cdr e-7673))))
- (list 'list->vector e-7673)))
- maps-7674))))
- tmp-7667)
+ (car (cdr e-7469))))
+ (list 'list->vector e-7469)))
+ maps-7470))))
+ tmp-7463)
(values
- (list 'quote e-7497)
- maps-7499))))))))))))
- (gen-ref-7395
- (lambda (src-7701 var-7702 level-7703 maps-7704)
- (if (= level-7703 0)
- (values var-7702 maps-7704)
- (if (null? maps-7704)
+ (list 'quote e-7293)
+ maps-7295))))))))))))
+ (gen-ref-7191
+ (lambda (src-7497 var-7498 level-7499 maps-7500)
+ (if (= level-7499 0)
+ (values var-7498 maps-7500)
+ (if (null? maps-7500)
(syntax-violation
'syntax
"missing ellipsis"
- src-7701)
+ src-7497)
(call-with-values
(lambda ()
- (gen-ref-7395
- src-7701
- var-7702
- (#{1-}# level-7703)
- (cdr maps-7704)))
- (lambda (outer-var-7705 outer-maps-7706)
- (let ((b-7707 (assq outer-var-7705 (car maps-7704))))
- (if b-7707
- (values (cdr b-7707) maps-7704)
- (let ((inner-var-7709
+ (gen-ref-7191
+ src-7497
+ var-7498
+ (#{1-}# level-7499)
+ (cdr maps-7500)))
+ (lambda (outer-var-7501 outer-maps-7502)
+ (let ((b-7503 (assq outer-var-7501 (car maps-7500))))
+ (if b-7503
+ (values (cdr b-7503) maps-7500)
+ (let ((inner-var-7505
(gensym
(string-append
(symbol->string 'tmp)
"-"))))
(values
- inner-var-7709
- (cons (cons (cons outer-var-7705 inner-var-7709)
- (car maps-7704))
- outer-maps-7706)))))))))))
- (gen-map-7397
- (lambda (e-7723 map-env-7724)
- (let ((formals-7725 (map cdr map-env-7724))
- (actuals-7726
- (map (lambda (x-7728) (list 'ref (car x-7728)))
- map-env-7724)))
- (if (eq? (car e-7723) 'ref)
- (car actuals-7726)
+ inner-var-7505
+ (cons (cons (cons outer-var-7501 inner-var-7505)
+ (car maps-7500))
+ outer-maps-7502)))))))))))
+ (gen-map-7193
+ (lambda (e-7519 map-env-7520)
+ (let ((formals-7521 (map cdr map-env-7520))
+ (actuals-7522
+ (map (lambda (x-7524) (list 'ref (car x-7524)))
+ map-env-7520)))
+ (if (eq? (car e-7519) 'ref)
+ (car actuals-7522)
(if (and-map
- (lambda (x-7729)
- (if (eq? (car x-7729) 'ref)
- (memq (car (cdr x-7729)) formals-7725)
+ (lambda (x-7525)
+ (if (eq? (car x-7525) 'ref)
+ (memq (car (cdr x-7525)) formals-7521)
#f))
- (cdr e-7723))
+ (cdr e-7519))
(cons 'map
- (cons (list 'primitive (car e-7723))
- (map (let ((r-7731
+ (cons (list 'primitive (car e-7519))
+ (map (let ((r-7527
(map cons
- formals-7725
- actuals-7726)))
- (lambda (x-7732)
- (cdr (assq (car (cdr x-7732))
- r-7731))))
- (cdr e-7723))))
+ formals-7521
+ actuals-7522)))
+ (lambda (x-7528)
+ (cdr (assq (car (cdr x-7528))
+ r-7527))))
+ (cdr e-7519))))
(cons 'map
- (cons (list 'lambda formals-7725 e-7723)
- actuals-7726)))))))
- (regen-7401
- (lambda (x-7734)
- (let ((atom-key-7735 (car x-7734)))
- (if (eqv? atom-key-7735 'ref)
- (let ((name-7745 (car (cdr x-7734)))
- (var-7746 (car (cdr x-7734))))
+ (cons (list 'lambda formals-7521 e-7519)
+ actuals-7522)))))))
+ (regen-7197
+ (lambda (x-7530)
+ (let ((key-7531 (car x-7530)))
+ (if (eqv? key-7531 'ref)
+ (let ((name-7541 (car (cdr x-7530)))
+ (var-7542 (car (cdr x-7530))))
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
#f
- name-7745
- var-7746))
- (if (eqv? atom-key-7735 'primitive)
- (let ((name-7758 (car (cdr x-7734))))
+ name-7541
+ var-7542))
+ (if (eqv? key-7531 'primitive)
+ (let ((name-7554 (car (cdr x-7530))))
(if (equal? (module-name (current-module)) '(guile))
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
#f
- name-7758)
+ name-7554)
(make-struct/no-tail
(vector-ref %expanded-vtables 5)
#f
'(guile)
- name-7758
+ name-7554
#f)))
- (if (eqv? atom-key-7735 'quote)
- (let ((exp-7776 (car (cdr x-7734))))
+ (if (eqv? key-7531 'quote)
+ (let ((exp-7572 (car (cdr x-7530))))
(make-struct/no-tail
(vector-ref %expanded-vtables 1)
#f
- exp-7776))
- (if (eqv? atom-key-7735 'lambda)
- (if (list? (car (cdr x-7734)))
- (let ((req-7787 (car (cdr x-7734)))
- (vars-7789 (car (cdr x-7734)))
- (exp-7791
- (regen-7401 (car (cdr (cdr x-7734))))))
- (let ((body-7796
+ exp-7572))
+ (if (eqv? key-7531 'lambda)
+ (if (list? (car (cdr x-7530)))
+ (let ((req-7583 (car (cdr x-7530)))
+ (vars-7585 (car (cdr x-7530)))
+ (exp-7587
+ (regen-7197 (car (cdr (cdr x-7530))))))
+ (let ((body-7592
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
#f
- req-7787
+ req-7583
#f
#f
#f
'()
- vars-7789
- exp-7791
+ vars-7585
+ exp-7587
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
#f
'()
- body-7796)))
- (error "how did we get here" x-7734))
- (let ((fun-exp-7812
- (let ((name-7821 (car x-7734)))
+ body-7592)))
+ (error "how did we get here" x-7530))
+ (let ((fun-exp-7608
+ (let ((name-7617 (car x-7530)))
(if (equal?
(module-name (current-module))
'(guile))
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
#f
- name-7821)
+ name-7617)
(make-struct/no-tail
(vector-ref %expanded-vtables 5)
#f
'(guile)
- name-7821
+ name-7617
#f))))
- (arg-exps-7813 (map regen-7401 (cdr x-7734))))
+ (arg-exps-7609 (map regen-7197 (cdr x-7530))))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
#f
- fun-exp-7812
- arg-exps-7813))))))))))
- (lambda (e-7402 r-7403 w-7404 s-7405 mod-7406)
- (let ((e-7407
- (wrap-6578
+ fun-exp-7608
+ arg-exps-7609))))))))))
+ (lambda (e-7198 r-7199 w-7200 s-7201 mod-7202)
+ (let ((e-7203
+ (wrap-6374
(begin
- (if (if (pair? e-7402) s-7405 #f)
- (set-source-properties! e-7402 s-7405))
- e-7402)
- w-7404
- mod-7406)))
- (let ((tmp-7409 ($sc-dispatch e-7407 '(_ any))))
- (if tmp-7409
+ (if (if (pair? e-7198) s-7201 #f)
+ (set-source-properties! e-7198 s-7201))
+ e-7198)
+ w-7200
+ mod-7202)))
+ (let ((tmp-7205 ($sc-dispatch e-7203 '(_ any))))
+ (if tmp-7205
(@apply
- (lambda (x-7434)
+ (lambda (x-7230)
(call-with-values
(lambda ()
- (gen-syntax-7394
- e-7407
- x-7434
- r-7403
+ (gen-syntax-7190
+ e-7203
+ x-7230
+ r-7199
'()
- ellipsis?-6593
- mod-7406))
- (lambda (e-7488 maps-7489) (regen-7401 e-7488))))
- tmp-7409)
+ ellipsis?-6389
+ mod-7202))
+ (lambda (e-7284 maps-7285) (regen-7197 e-7284))))
+ tmp-7205)
(syntax-violation
'syntax
"bad `syntax' form"
- e-7407)))))))
- (global-extend-6547
+ e-7203)))))))
+ (global-extend-6343
'core
'lambda
- (lambda (e-8009 r-8010 w-8011 s-8012 mod-8013)
- (let ((tmp-8015
- ($sc-dispatch e-8009 '(_ any any . each-any))))
- (if tmp-8015
+ (lambda (e-7805 r-7806 w-7807 s-7808 mod-7809)
+ (let ((tmp-7811
+ ($sc-dispatch e-7805 '(_ any any . each-any))))
+ (if tmp-7811
(@apply
- (lambda (args-8019 e1-8020 e2-8021)
+ (lambda (args-7815 e1-7816 e2-7817)
(call-with-values
- (lambda () (lambda-formals-6594 args-8019))
- (lambda (req-8024 opt-8025 rest-8026 kw-8027)
+ (lambda () (lambda-formals-6390 args-7815))
+ (lambda (req-7820 opt-7821 rest-7822 kw-7823)
(letrec*
- ((lp-8028
- (lambda (body-8031 meta-8032)
- (let ((tmp-8034
+ ((lp-7824
+ (lambda (body-7827 meta-7828)
+ (let ((tmp-7830
($sc-dispatch
- body-8031
+ body-7827
'(any any . each-any))))
- (if (if tmp-8034
+ (if (if tmp-7830
(@apply
- (lambda (docstring-8038 e1-8039 e2-8040)
+ (lambda (docstring-7834 e1-7835 e2-7836)
(string?
- (syntax->datum docstring-8038)))
- tmp-8034)
+ (syntax->datum docstring-7834)))
+ tmp-7830)
#f)
(@apply
- (lambda (docstring-8041 e1-8042 e2-8043)
- (lp-8028
- (cons e1-8042 e2-8043)
+ (lambda (docstring-7837 e1-7838 e2-7839)
+ (lp-7824
+ (cons e1-7838 e2-7839)
(append
- meta-8032
+ meta-7828
(list (cons 'documentation
(syntax->datum
- docstring-8041))))))
- tmp-8034)
- (let ((tmp-8044
+ docstring-7837))))))
+ tmp-7830)
+ (let ((tmp-7840
($sc-dispatch
- body-8031
+ body-7827
'(#(vector #(each (any . any)))
any
.
each-any))))
- (if tmp-8044
+ (if tmp-7840
(@apply
- (lambda (k-8048 v-8049 e1-8050 e2-8051)
- (lp-8028
- (cons e1-8050 e2-8051)
+ (lambda (k-7844 v-7845 e1-7846 e2-7847)
+ (lp-7824
+ (cons e1-7846 e2-7847)
(append
- meta-8032
+ meta-7828
(syntax->datum
- (map cons k-8048 v-8049)))))
- tmp-8044)
- (expand-simple-lambda-6595
- e-8009
- r-8010
- w-8011
- s-8012
- mod-8013
- req-8024
- rest-8026
- meta-8032
- body-8031))))))))
- (lp-8028 (cons e1-8020 e2-8021) '())))))
- tmp-8015)
- (syntax-violation 'lambda "bad lambda" e-8009)))))
- (global-extend-6547
+ (map cons k-7844 v-7845)))))
+ tmp-7840)
+ (expand-simple-lambda-6391
+ e-7805
+ r-7806
+ w-7807
+ s-7808
+ mod-7809
+ req-7820
+ rest-7822
+ meta-7828
+ body-7827))))))))
+ (lp-7824 (cons e1-7816 e2-7817) '())))))
+ tmp-7811)
+ (syntax-violation 'lambda "bad lambda" e-7805)))))
+ (global-extend-6343
'core
'lambda*
- (lambda (e-8340 r-8341 w-8342 s-8343 mod-8344)
- (let ((tmp-8346
- ($sc-dispatch e-8340 '(_ any any . each-any))))
- (if tmp-8346
+ (lambda (e-8136 r-8137 w-8138 s-8139 mod-8140)
+ (let ((tmp-8142
+ ($sc-dispatch e-8136 '(_ any any . each-any))))
+ (if tmp-8142
(@apply
- (lambda (args-8350 e1-8351 e2-8352)
+ (lambda (args-8146 e1-8147 e2-8148)
(call-with-values
(lambda ()
- (expand-lambda-case-6597
- e-8340
- r-8341
- w-8342
- s-8343
- mod-8344
- lambda*-formals-6596
- (list (cons args-8350 (cons e1-8351 e2-8352)))))
- (lambda (meta-8355 lcase-8356)
+ (expand-lambda-case-6393
+ e-8136
+ r-8137
+ w-8138
+ s-8139
+ mod-8140
+ lambda*-formals-6392
+ (list (cons args-8146 (cons e1-8147 e2-8148)))))
+ (lambda (meta-8151 lcase-8152)
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
- s-8343
- meta-8355
- lcase-8356))))
- tmp-8346)
- (syntax-violation 'lambda "bad lambda*" e-8340)))))
- (global-extend-6547
+ s-8139
+ meta-8151
+ lcase-8152))))
+ tmp-8142)
+ (syntax-violation 'lambda "bad lambda*" e-8136)))))
+ (global-extend-6343
'core
'case-lambda
- (lambda (e-8526 r-8527 w-8528 s-8529 mod-8530)
- (let ((tmp-8532
+ (lambda (e-8322 r-8323 w-8324 s-8325 mod-8326)
+ (let ((tmp-8328
($sc-dispatch
- e-8526
+ e-8322
'(_ (any any . each-any)
.
#(each (any any . each-any))))))
- (if tmp-8532
+ (if tmp-8328
(@apply
- (lambda (args-8536
- e1-8537
- e2-8538
- args*-8539
- e1*-8540
- e2*-8541)
+ (lambda (args-8332
+ e1-8333
+ e2-8334
+ args*-8335
+ e1*-8336
+ e2*-8337)
(call-with-values
(lambda ()
- (expand-lambda-case-6597
- e-8526
- r-8527
- w-8528
- s-8529
- mod-8530
- lambda-formals-6594
- (cons (cons args-8536 (cons e1-8537 e2-8538))
- (map (lambda (tmp-5448-8544
- tmp-5447-8545
- tmp-5446-8546)
- (cons tmp-5446-8546
- (cons tmp-5447-8545 tmp-5448-8544)))
- e2*-8541
- e1*-8540
- args*-8539))))
- (lambda (meta-8547 lcase-8548)
+ (expand-lambda-case-6393
+ e-8322
+ r-8323
+ w-8324
+ s-8325
+ mod-8326
+ lambda-formals-6390
+ (cons (cons args-8332 (cons e1-8333 e2-8334))
+ (map (lambda (tmp-5320-8340
+ tmp-5319-8341
+ tmp-5318-8342)
+ (cons tmp-5318-8342
+ (cons tmp-5319-8341 tmp-5320-8340)))
+ e2*-8337
+ e1*-8336
+ args*-8335))))
+ (lambda (meta-8343 lcase-8344)
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
- s-8529
- meta-8547
- lcase-8548))))
- tmp-8532)
+ s-8325
+ meta-8343
+ lcase-8344))))
+ tmp-8328)
(syntax-violation
'case-lambda
"bad case-lambda"
- e-8526)))))
- (global-extend-6547
+ e-8322)))))
+ (global-extend-6343
'core
'case-lambda*
- (lambda (e-8710 r-8711 w-8712 s-8713 mod-8714)
- (let ((tmp-8716
+ (lambda (e-8506 r-8507 w-8508 s-8509 mod-8510)
+ (let ((tmp-8512
($sc-dispatch
- e-8710
+ e-8506
'(_ (any any . each-any)
.
#(each (any any . each-any))))))
- (if tmp-8716
+ (if tmp-8512
(@apply
- (lambda (args-8720
- e1-8721
- e2-8722
- args*-8723
- e1*-8724
- e2*-8725)
+ (lambda (args-8516
+ e1-8517
+ e2-8518
+ args*-8519
+ e1*-8520
+ e2*-8521)
(call-with-values
(lambda ()
- (expand-lambda-case-6597
- e-8710
- r-8711
- w-8712
- s-8713
- mod-8714
- lambda*-formals-6596
- (cons (cons args-8720 (cons e1-8721 e2-8722))
- (map (lambda (tmp-5483-8728
- tmp-5482-8729
- tmp-5481-8730)
- (cons tmp-5481-8730
- (cons tmp-5482-8729 tmp-5483-8728)))
- e2*-8725
- e1*-8724
- args*-8723))))
- (lambda (meta-8731 lcase-8732)
+ (expand-lambda-case-6393
+ e-8506
+ r-8507
+ w-8508
+ s-8509
+ mod-8510
+ lambda*-formals-6392
+ (cons (cons args-8516 (cons e1-8517 e2-8518))
+ (map (lambda (tmp-5355-8524
+ tmp-5354-8525
+ tmp-5353-8526)
+ (cons tmp-5353-8526
+ (cons tmp-5354-8525 tmp-5355-8524)))
+ e2*-8521
+ e1*-8520
+ args*-8519))))
+ (lambda (meta-8527 lcase-8528)
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
- s-8713
- meta-8731
- lcase-8732))))
- tmp-8716)
+ s-8509
+ meta-8527
+ lcase-8528))))
+ tmp-8512)
(syntax-violation
'case-lambda
"bad case-lambda*"
- e-8710)))))
- (global-extend-6547
+ e-8506)))))
+ (global-extend-6343
'core
'let
(letrec*
- ((expand-let-8923
- (lambda (e-9072
- r-9073
- w-9074
- s-9075
- mod-9076
- constructor-9077
- ids-9078
- vals-9079
- exps-9080)
- (if (not (valid-bound-ids?-6575 ids-9078))
+ ((expand-let-8719
+ (lambda (e-8868
+ r-8869
+ w-8870
+ s-8871
+ mod-8872
+ constructor-8873
+ ids-8874
+ vals-8875
+ exps-8876)
+ (if (not (valid-bound-ids?-6371 ids-8874))
(syntax-violation
'let
"duplicate bound variable"
- e-9072)
- (let ((labels-9158 (gen-labels-6552 ids-9078))
- (new-vars-9159 (map gen-var-6599 ids-9078)))
- (let ((nw-9160
- (make-binding-wrap-6563
- ids-9078
- labels-9158
- w-9074))
- (nr-9161
- (extend-var-env-6544
- labels-9158
- new-vars-9159
- r-9073)))
- (constructor-9077
- s-9075
- (map syntax->datum ids-9078)
- new-vars-9159
- (map (lambda (x-9178)
- (expand-6585 x-9178 r-9073 w-9074 mod-9076))
- vals-9079)
- (expand-body-6589
- exps-9080
- (source-wrap-6579 e-9072 nw-9160 s-9075 mod-9076)
- nr-9161
- nw-9160
- mod-9076))))))))
- (lambda (e-8924 r-8925 w-8926 s-8927 mod-8928)
- (let ((tmp-8930
+ e-8868)
+ (let ((labels-8954 (gen-labels-6348 ids-8874))
+ (new-vars-8955 (map gen-var-6395 ids-8874)))
+ (let ((nw-8956
+ (make-binding-wrap-6359
+ ids-8874
+ labels-8954
+ w-8870))
+ (nr-8957
+ (extend-var-env-6340
+ labels-8954
+ new-vars-8955
+ r-8869)))
+ (constructor-8873
+ s-8871
+ (map syntax->datum ids-8874)
+ new-vars-8955
+ (map (lambda (x-8974)
+ (expand-6381 x-8974 r-8869 w-8870 mod-8872))
+ vals-8875)
+ (expand-body-6385
+ exps-8876
+ (source-wrap-6375 e-8868 nw-8956 s-8871 mod-8872)
+ nr-8957
+ nw-8956
+ mod-8872))))))))
+ (lambda (e-8720 r-8721 w-8722 s-8723 mod-8724)
+ (let ((tmp-8726
($sc-dispatch
- e-8924
+ e-8720
'(_ #(each (any any)) any . each-any))))
- (if (if tmp-8930
+ (if (if tmp-8726
(@apply
- (lambda (id-8934 val-8935 e1-8936 e2-8937)
- (and-map id?-6549 id-8934))
- tmp-8930)
+ (lambda (id-8730 val-8731 e1-8732 e2-8733)
+ (and-map id?-6345 id-8730))
+ tmp-8726)
#f)
(@apply
- (lambda (id-8953 val-8954 e1-8955 e2-8956)
- (expand-let-8923
- e-8924
- r-8925
- w-8926
- s-8927
- mod-8928
- build-let-6531
- id-8953
- val-8954
- (cons e1-8955 e2-8956)))
- tmp-8930)
- (let ((tmp-8986
+ (lambda (id-8749 val-8750 e1-8751 e2-8752)
+ (expand-let-8719
+ e-8720
+ r-8721
+ w-8722
+ s-8723
+ mod-8724
+ build-let-6327
+ id-8749
+ val-8750
+ (cons e1-8751 e2-8752)))
+ tmp-8726)
+ (let ((tmp-8782
($sc-dispatch
- e-8924
+ e-8720
'(_ any #(each (any any)) any . each-any))))
- (if (if tmp-8986
+ (if (if tmp-8782
(@apply
- (lambda (f-8990 id-8991 val-8992 e1-8993 e2-8994)
- (if (if (symbol? f-8990)
+ (lambda (f-8786 id-8787 val-8788 e1-8789 e2-8790)
+ (if (if (symbol? f-8786)
#t
- (if (if (vector? f-8990)
- (if (= (vector-length f-8990) 4)
- (eq? (vector-ref f-8990 0)
+ (if (if (vector? f-8786)
+ (if (= (vector-length f-8786) 4)
+ (eq? (vector-ref f-8786 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref f-8990 1))
+ (symbol? (vector-ref f-8786 1))
#f))
- (and-map id?-6549 id-8991)
+ (and-map id?-6345 id-8787)
#f))
- tmp-8986)
+ tmp-8782)
#f)
(@apply
- (lambda (f-9036 id-9037 val-9038 e1-9039 e2-9040)
- (expand-let-8923
- e-8924
- r-8925
- w-8926
- s-8927
- mod-8928
- build-named-let-6532
- (cons f-9036 id-9037)
- val-9038
- (cons e1-9039 e2-9040)))
- tmp-8986)
+ (lambda (f-8832 id-8833 val-8834 e1-8835 e2-8836)
+ (expand-let-8719
+ e-8720
+ r-8721
+ w-8722
+ s-8723
+ mod-8724
+ build-named-let-6328
+ (cons f-8832 id-8833)
+ val-8834
+ (cons e1-8835 e2-8836)))
+ tmp-8782)
(syntax-violation
'let
"bad let"
- (wrap-6578
+ (wrap-6374
(begin
- (if (if (pair? e-8924) s-8927 #f)
- (set-source-properties! e-8924 s-8927))
- e-8924)
- w-8926
- mod-8928)))))))))
- (global-extend-6547
+ (if (if (pair? e-8720) s-8723 #f)
+ (set-source-properties! e-8720 s-8723))
+ e-8720)
+ w-8722
+ mod-8724)))))))))
+ (global-extend-6343
'core
'letrec
- (lambda (e-9590 r-9591 w-9592 s-9593 mod-9594)
- (let ((tmp-9596
+ (lambda (e-9386 r-9387 w-9388 s-9389 mod-9390)
+ (let ((tmp-9392
($sc-dispatch
- e-9590
+ e-9386
'(_ #(each (any any)) any . each-any))))
- (if (if tmp-9596
+ (if (if tmp-9392
(@apply
- (lambda (id-9600 val-9601 e1-9602 e2-9603)
- (and-map id?-6549 id-9600))
- tmp-9596)
+ (lambda (id-9396 val-9397 e1-9398 e2-9399)
+ (and-map id?-6345 id-9396))
+ tmp-9392)
#f)
(@apply
- (lambda (id-9619 val-9620 e1-9621 e2-9622)
- (if (not (valid-bound-ids?-6575 id-9619))
+ (lambda (id-9415 val-9416 e1-9417 e2-9418)
+ (if (not (valid-bound-ids?-6371 id-9415))
(syntax-violation
'letrec
"duplicate bound variable"
- e-9590)
- (let ((labels-9712 (gen-labels-6552 id-9619))
- (new-vars-9713 (map gen-var-6599 id-9619)))
- (let ((w-9714
- (make-binding-wrap-6563
- id-9619
- labels-9712
- w-9592))
- (r-9715
- (extend-var-env-6544
- labels-9712
- new-vars-9713
- r-9591)))
- (build-letrec-6533
- s-9593
+ e-9386)
+ (let ((labels-9508 (gen-labels-6348 id-9415))
+ (new-vars-9509 (map gen-var-6395 id-9415)))
+ (let ((w-9510
+ (make-binding-wrap-6359
+ id-9415
+ labels-9508
+ w-9388))
+ (r-9511
+ (extend-var-env-6340
+ labels-9508
+ new-vars-9509
+ r-9387)))
+ (build-letrec-6329
+ s-9389
#f
- (map syntax->datum id-9619)
- new-vars-9713
- (map (lambda (x-9800)
- (expand-6585 x-9800 r-9715 w-9714 mod-9594))
- val-9620)
- (expand-body-6589
- (cons e1-9621 e2-9622)
- (wrap-6578
+ (map syntax->datum id-9415)
+ new-vars-9509
+ (map (lambda (x-9596)
+ (expand-6381 x-9596 r-9511 w-9510 mod-9390))
+ val-9416)
+ (expand-body-6385
+ (cons e1-9417 e2-9418)
+ (wrap-6374
(begin
- (if (if (pair? e-9590) s-9593 #f)
- (set-source-properties! e-9590 s-9593))
- e-9590)
- w-9714
- mod-9594)
- r-9715
- w-9714
- mod-9594))))))
- tmp-9596)
+ (if (if (pair? e-9386) s-9389 #f)
+ (set-source-properties! e-9386 s-9389))
+ e-9386)
+ w-9510
+ mod-9390)
+ r-9511
+ w-9510
+ mod-9390))))))
+ tmp-9392)
(syntax-violation
'letrec
"bad letrec"
- (wrap-6578
+ (wrap-6374
(begin
- (if (if (pair? e-9590) s-9593 #f)
- (set-source-properties! e-9590 s-9593))
- e-9590)
- w-9592
- mod-9594))))))
- (global-extend-6547
+ (if (if (pair? e-9386) s-9389 #f)
+ (set-source-properties! e-9386 s-9389))
+ e-9386)
+ w-9388
+ mod-9390))))))
+ (global-extend-6343
'core
'letrec*
- (lambda (e-10195 r-10196 w-10197 s-10198 mod-10199)
- (let ((tmp-10201
+ (lambda (e-9991 r-9992 w-9993 s-9994 mod-9995)
+ (let ((tmp-9997
($sc-dispatch
- e-10195
+ e-9991
'(_ #(each (any any)) any . each-any))))
- (if (if tmp-10201
+ (if (if tmp-9997
(@apply
- (lambda (id-10205 val-10206 e1-10207 e2-10208)
- (and-map id?-6549 id-10205))
- tmp-10201)
+ (lambda (id-10001 val-10002 e1-10003 e2-10004)
+ (and-map id?-6345 id-10001))
+ tmp-9997)
#f)
(@apply
- (lambda (id-10224 val-10225 e1-10226 e2-10227)
- (if (not (valid-bound-ids?-6575 id-10224))
+ (lambda (id-10020 val-10021 e1-10022 e2-10023)
+ (if (not (valid-bound-ids?-6371 id-10020))
(syntax-violation
'letrec*
"duplicate bound variable"
- e-10195)
- (let ((labels-10317 (gen-labels-6552 id-10224))
- (new-vars-10318 (map gen-var-6599 id-10224)))
- (let ((w-10319
- (make-binding-wrap-6563
- id-10224
- labels-10317
- w-10197))
- (r-10320
- (extend-var-env-6544
- labels-10317
- new-vars-10318
- r-10196)))
- (build-letrec-6533
- s-10198
+ e-9991)
+ (let ((labels-10113 (gen-labels-6348 id-10020))
+ (new-vars-10114 (map gen-var-6395 id-10020)))
+ (let ((w-10115
+ (make-binding-wrap-6359
+ id-10020
+ labels-10113
+ w-9993))
+ (r-10116
+ (extend-var-env-6340
+ labels-10113
+ new-vars-10114
+ r-9992)))
+ (build-letrec-6329
+ s-9994
#t
- (map syntax->datum id-10224)
- new-vars-10318
- (map (lambda (x-10405)
- (expand-6585
- x-10405
- r-10320
- w-10319
- mod-10199))
- val-10225)
- (expand-body-6589
- (cons e1-10226 e2-10227)
- (wrap-6578
+ (map syntax->datum id-10020)
+ new-vars-10114
+ (map (lambda (x-10201)
+ (expand-6381
+ x-10201
+ r-10116
+ w-10115
+ mod-9995))
+ val-10021)
+ (expand-body-6385
+ (cons e1-10022 e2-10023)
+ (wrap-6374
(begin
- (if (if (pair? e-10195) s-10198 #f)
- (set-source-properties! e-10195 s-10198))
- e-10195)
- w-10319
- mod-10199)
- r-10320
- w-10319
- mod-10199))))))
- tmp-10201)
+ (if (if (pair? e-9991) s-9994 #f)
+ (set-source-properties! e-9991 s-9994))
+ e-9991)
+ w-10115
+ mod-9995)
+ r-10116
+ w-10115
+ mod-9995))))))
+ tmp-9997)
(syntax-violation
'letrec*
"bad letrec*"
- (wrap-6578
+ (wrap-6374
(begin
- (if (if (pair? e-10195) s-10198 #f)
- (set-source-properties! e-10195 s-10198))
- e-10195)
- w-10197
- mod-10199))))))
- (global-extend-6547
+ (if (if (pair? e-9991) s-9994 #f)
+ (set-source-properties! e-9991 s-9994))
+ e-9991)
+ w-9993
+ mod-9995))))))
+ (global-extend-6343
'core
'set!
- (lambda (e-10839 r-10840 w-10841 s-10842 mod-10843)
- (let ((tmp-10845 ($sc-dispatch e-10839 '(_ any any))))
- (if (if tmp-10845
+ (lambda (e-10635 r-10636 w-10637 s-10638 mod-10639)
+ (let ((tmp-10641 ($sc-dispatch e-10635 '(_ any any))))
+ (if (if tmp-10641
(@apply
- (lambda (id-10849 val-10850)
- (if (symbol? id-10849)
+ (lambda (id-10645 val-10646)
+ (if (symbol? id-10645)
#t
- (if (if (vector? id-10849)
- (if (= (vector-length id-10849) 4)
- (eq? (vector-ref id-10849 0) 'syntax-object)
+ (if (if (vector? id-10645)
+ (if (= (vector-length id-10645) 4)
+ (eq? (vector-ref id-10645 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref id-10849 1))
+ (symbol? (vector-ref id-10645 1))
#f)))
- tmp-10845)
+ tmp-10641)
#f)
(@apply
- (lambda (id-10877 val-10878)
- (let ((n-10879 (id-var-name-6568 id-10877 w-10841))
- (id-mod-10880
- (if (if (vector? id-10877)
- (if (= (vector-length id-10877) 4)
- (eq? (vector-ref id-10877 0) 'syntax-object)
+ (lambda (id-10673 val-10674)
+ (let ((n-10675 (id-var-name-6364 id-10673 w-10637))
+ (id-mod-10676
+ (if (if (vector? id-10673)
+ (if (= (vector-length id-10673) 4)
+ (eq? (vector-ref id-10673 0) 'syntax-object)
#f)
#f)
- (vector-ref id-10877 3)
- mod-10843)))
- (let ((b-10881
- (let ((t-10922 (assq n-10879 r-10840)))
- (if t-10922
- (cdr t-10922)
- (if (symbol? n-10879)
- (let ((t-10927
- (get-global-definition-hook-6512
- n-10879
- id-mod-10880)))
- (if t-10927 t-10927 '(global)))
+ (vector-ref id-10673 3)
+ mod-10639)))
+ (let ((b-10677
+ (let ((t-10718 (assq n-10675 r-10636)))
+ (if t-10718
+ (cdr t-10718)
+ (if (symbol? n-10675)
+ (let ((t-10723
+ (get-global-definition-hook-6308
+ n-10675
+ id-mod-10676)))
+ (if t-10723 t-10723 '(global)))
'(displaced-lexical))))))
- (let ((atom-key-10882 (car b-10881)))
- (if (eqv? atom-key-10882 'lexical)
- (build-lexical-assignment-6520
- s-10842
- (syntax->datum id-10877)
- (cdr b-10881)
- (expand-6585 val-10878 r-10840 w-10841 mod-10843))
- (if (eqv? atom-key-10882 'global)
- (build-global-assignment-6523
- s-10842
- n-10879
- (expand-6585 val-10878 r-10840 w-10841 mod-10843)
- id-mod-10880)
- (if (eqv? atom-key-10882 'macro)
- (let ((p-11241 (cdr b-10881)))
+ (let ((key-10678 (car b-10677)))
+ (if (eqv? key-10678 'lexical)
+ (build-lexical-assignment-6316
+ s-10638
+ (syntax->datum id-10673)
+ (cdr b-10677)
+ (expand-6381 val-10674 r-10636 w-10637 mod-10639))
+ (if (eqv? key-10678 'global)
+ (build-global-assignment-6319
+ s-10638
+ n-10675
+ (expand-6381 val-10674 r-10636 w-10637 mod-10639)
+ id-mod-10676)
+ (if (eqv? key-10678 'macro)
+ (let ((p-11037 (cdr b-10677)))
(if (procedure-property
- p-11241
+ p-11037
'variable-transformer)
- (expand-6585
- (expand-macro-6588
- p-11241
- e-10839
- r-10840
- w-10841
- s-10842
+ (expand-6381
+ (expand-macro-6384
+ p-11037
+ e-10635
+ r-10636
+ w-10637
+ s-10638
#f
- mod-10843)
- r-10840
+ mod-10639)
+ r-10636
'(())
- mod-10843)
+ mod-10639)
(syntax-violation
'set!
"not a variable transformer"
- (wrap-6578 e-10839 w-10841 mod-10843)
- (wrap-6578
- id-10877
- w-10841
- id-mod-10880))))
- (if (eqv? atom-key-10882 'displaced-lexical)
+ (wrap-6374 e-10635 w-10637 mod-10639)
+ (wrap-6374
+ id-10673
+ w-10637
+ id-mod-10676))))
+ (if (eqv? key-10678 'displaced-lexical)
(syntax-violation
'set!
"identifier out of context"
- (wrap-6578 id-10877 w-10841 mod-10843))
+ (wrap-6374 id-10673 w-10637 mod-10639))
(syntax-violation
'set!
"bad set!"
- (wrap-6578
+ (wrap-6374
(begin
- (if (if (pair? e-10839) s-10842 #f)
+ (if (if (pair? e-10635) s-10638 #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
+ e-10635
+ s-10638))
+ e-10635)
+ w-10637
+ mod-10639))))))))))
+ tmp-10641)
+ (let ((tmp-11132
+ ($sc-dispatch e-10635 '(_ (any . each-any) any))))
+ (if tmp-11132
(@apply
- (lambda (head-11340 tail-11341 val-11342)
+ (lambda (head-11136 tail-11137 val-11138)
(call-with-values
(lambda ()
- (syntax-type-6584
- head-11340
- r-10840
+ (syntax-type-6380
+ head-11136
+ r-10636
'(())
#f
#f
- mod-10843
+ mod-10639
#t))
- (lambda (type-11345
- value-11346
- formform-11347
- ee-11348
- ww-11349
- ss-11350
- modmod-11351)
- (if (eqv? type-11345 'module-ref)
- (let ((val-11355
- (expand-6585
- val-11342
- r-10840
- w-10841
- mod-10843)))
+ (lambda (type-11141
+ value-11142
+ formform-11143
+ ee-11144
+ ww-11145
+ ss-11146
+ modmod-11147)
+ (if (eqv? type-11141 'module-ref)
+ (let ((val-11153
+ (expand-6381
+ val-11138
+ r-10636
+ w-10637
+ mod-10639)))
(call-with-values
(lambda ()
- (value-11346
- (cons head-11340 tail-11341)
- r-10840
- w-10841))
- (lambda (e-11356
- r-11357
- w-11358
- s*-11359
- mod-11360)
- (let ((tmp-11362 (list e-11356)))
+ (value-11142
+ (cons head-11136 tail-11137)
+ r-10636
+ w-10637))
+ (lambda (e-11154
+ r-11155
+ w-11156
+ s*-11157
+ mod-11158)
+ (let ((tmp-11160 (list e-11154)))
(if (@apply
- (lambda (e-11364)
- (if (symbol? e-11364)
+ (lambda (e-11162)
+ (if (symbol? e-11162)
#t
- (if (if (vector? e-11364)
+ (if (if (vector? e-11162)
(if (= (vector-length
- e-11364)
+ e-11162)
4)
(eq? (vector-ref
- e-11364
+ e-11162
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref e-11364 1))
+ (vector-ref e-11162 1))
#f)))
- tmp-11362)
+ tmp-11160)
(@apply
- (lambda (e-11394)
- (build-global-assignment-6523
- s-10842
- (syntax->datum e-11394)
- val-11355
- mod-11360))
- tmp-11362)
+ (lambda (e-11192)
+ (build-global-assignment-6319
+ s-10638
+ (syntax->datum e-11192)
+ val-11153
+ mod-11158))
+ tmp-11160)
(syntax-violation
#f
"source expression failed to match any pattern"
- e-11356))))))
- (build-application-6516
- s-10842
- (let ((e-11619
+ e-11154))))))
+ (build-application-6312
+ s-10638
+ (let ((e-11417
(list '#(syntax-object
setter
((top)
#(ribcage () () ())
+ #(ribcage
+ #(key)
+ #((m-*-5604 top))
+ #("l-*-5605"))
+ #(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(type
@@ -9300,19 +9322,19 @@
(top)
(top)
(top))
- #("l-*-5730"
- "l-*-5731"
- "l-*-5732"
- "l-*-5733"
- "l-*-5734"
- "l-*-5735"
- "l-*-5736"))
+ #("l-*-5597"
+ "l-*-5598"
+ "l-*-5599"
+ "l-*-5600"
+ "l-*-5601"
+ "l-*-5602"
+ "l-*-5603"))
#(ribcage
#(head tail val)
#((top) (top) (top))
- #("l-*-5715"
- "l-*-5716"
- "l-*-5717"))
+ #("l-*-5582"
+ "l-*-5583"
+ "l-*-5584"))
#(ribcage () () ())
#(ribcage
#(e r w s mod)
@@ -9321,11 +9343,11 @@
(top)
(top)
(top))
- #("l-*-5679"
- "l-*-5680"
- "l-*-5681"
- "l-*-5682"
- "l-*-5683"))
+ #("l-*-5551"
+ "l-*-5552"
+ "l-*-5553"
+ "l-*-5554"
+ "l-*-5555"))
#(ribcage
(lambda-var-list
gen-var
@@ -9756,104 +9778,104 @@
"l-*-2097"
"l-*-2096")))
(hygiene guile))
- head-11340)))
+ head-11136)))
(call-with-values
(lambda ()
- (syntax-type-6584
- e-11619
- r-10840
- w-10841
- (source-annotation-6542 e-11619)
+ (syntax-type-6380
+ e-11417
+ r-10636
+ w-10637
+ (source-annotation-6338 e-11417)
#f
- mod-10843
+ mod-10639
#f))
- (lambda (type-11626
- value-11627
- form-11628
- e-11629
- w-11630
- s-11631
- mod-11632)
- (expand-expr-6586
- type-11626
- value-11627
- form-11628
- e-11629
- r-10840
- w-11630
- s-11631
- mod-11632))))
- (map (lambda (e-11636)
+ (lambda (type-11424
+ value-11425
+ form-11426
+ e-11427
+ w-11428
+ s-11429
+ mod-11430)
+ (expand-expr-6382
+ type-11424
+ value-11425
+ form-11426
+ e-11427
+ r-10636
+ w-11428
+ s-11429
+ mod-11430))))
+ (map (lambda (e-11434)
(call-with-values
(lambda ()
- (syntax-type-6584
- e-11636
- r-10840
- w-10841
- (source-annotation-6542 e-11636)
+ (syntax-type-6380
+ e-11434
+ r-10636
+ w-10637
+ (source-annotation-6338 e-11434)
#f
- mod-10843
+ mod-10639
#f))
- (lambda (type-11651
- value-11652
- form-11653
- e-11654
- w-11655
- s-11656
- mod-11657)
- (expand-expr-6586
- type-11651
- value-11652
- form-11653
- e-11654
- r-10840
- w-11655
- s-11656
- mod-11657))))
- (append tail-11341 (list val-11342))))))))
- tmp-11336)
+ (lambda (type-11449
+ value-11450
+ form-11451
+ e-11452
+ w-11453
+ s-11454
+ mod-11455)
+ (expand-expr-6382
+ type-11449
+ value-11450
+ form-11451
+ e-11452
+ r-10636
+ w-11453
+ s-11454
+ mod-11455))))
+ (append tail-11137 (list val-11138))))))))
+ tmp-11132)
(syntax-violation
'set!
"bad set!"
- (wrap-6578
+ (wrap-6374
(begin
- (if (if (pair? e-10839) s-10842 #f)
- (set-source-properties! e-10839 s-10842))
- e-10839)
- w-10841
- mod-10843))))))))
+ (if (if (pair? e-10635) s-10638 #f)
+ (set-source-properties! e-10635 s-10638))
+ e-10635)
+ w-10637
+ mod-10639))))))))
(module-define!
(current-module)
'@
(make-syntax-transformer
'@
'module-ref
- (lambda (e-11700 r-11701 w-11702)
- (let ((tmp-11704
- ($sc-dispatch e-11700 '(_ each-any any))))
- (if (if tmp-11704
+ (lambda (e-11498 r-11499 w-11500)
+ (let ((tmp-11502
+ ($sc-dispatch e-11498 '(_ each-any any))))
+ (if (if tmp-11502
(@apply
- (lambda (mod-11707 id-11708)
- (if (and-map id?-6549 mod-11707)
- (if (symbol? id-11708)
+ (lambda (mod-11505 id-11506)
+ (if (and-map id?-6345 mod-11505)
+ (if (symbol? id-11506)
#t
- (if (if (vector? id-11708)
- (if (= (vector-length id-11708) 4)
- (eq? (vector-ref id-11708 0)
+ (if (if (vector? id-11506)
+ (if (= (vector-length id-11506) 4)
+ (eq? (vector-ref id-11506 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref id-11708 1))
+ (symbol? (vector-ref id-11506 1))
#f))
#f))
- tmp-11704)
+ tmp-11502)
#f)
(@apply
- (lambda (mod-11748 id-11749)
+ (lambda (mod-11546 id-11547)
(values
- (syntax->datum id-11749)
- r-11701
- w-11702
+ (syntax->datum id-11547)
+ r-11499
+ w-11500
#f
(syntax->datum
(cons '#(syntax-object
@@ -9862,12 +9884,12 @@
#(ribcage
#(mod id)
#((top) (top))
- #("l-*-5778" "l-*-5779"))
+ #("l-*-5646" "l-*-5647"))
#(ribcage () () ())
#(ribcage
#(e r w)
#((top) (top) (top))
- #("l-*-5766" "l-*-5767" "l-*-5768"))
+ #("l-*-5634" "l-*-5635" "l-*-5636"))
#(ribcage
(lambda-var-list
gen-var
@@ -10296,66 +10318,66 @@
((top) (top) (top))
("l-*-2098" "l-*-2097" "l-*-2096")))
(hygiene guile))
- mod-11748))))
- tmp-11704)
+ mod-11546))))
+ tmp-11502)
(syntax-violation
#f
"source expression failed to match any pattern"
- e-11700))))))
- (global-extend-6547
+ e-11498))))))
+ (global-extend-6343
'module-ref
'@@
- (lambda (e-11841 r-11842 w-11843)
+ (lambda (e-11639 r-11640 w-11641)
(letrec*
- ((remodulate-11844
- (lambda (x-11879 mod-11880)
- (if (pair? x-11879)
- (cons (remodulate-11844 (car x-11879) mod-11880)
- (remodulate-11844 (cdr x-11879) mod-11880))
- (if (if (vector? x-11879)
- (if (= (vector-length x-11879) 4)
- (eq? (vector-ref x-11879 0) 'syntax-object)
+ ((remodulate-11642
+ (lambda (x-11677 mod-11678)
+ (if (pair? x-11677)
+ (cons (remodulate-11642 (car x-11677) mod-11678)
+ (remodulate-11642 (cdr x-11677) mod-11678))
+ (if (if (vector? x-11677)
+ (if (= (vector-length x-11677) 4)
+ (eq? (vector-ref x-11677 0) 'syntax-object)
#f)
#f)
- (let ((expression-11894
- (remodulate-11844
- (vector-ref x-11879 1)
- mod-11880))
- (wrap-11895 (vector-ref x-11879 2)))
+ (let ((expression-11692
+ (remodulate-11642
+ (vector-ref x-11677 1)
+ mod-11678))
+ (wrap-11693 (vector-ref x-11677 2)))
(vector
'syntax-object
- expression-11894
- wrap-11895
- mod-11880))
- (if (vector? x-11879)
- (let ((n-11903 (vector-length x-11879)))
- (let ((v-11904 (make-vector n-11903)))
+ expression-11692
+ wrap-11693
+ mod-11678))
+ (if (vector? x-11677)
+ (let ((n-11701 (vector-length x-11677)))
+ (let ((v-11702 (make-vector n-11701)))
(letrec*
- ((loop-11905
- (lambda (i-11952)
- (if (= i-11952 n-11903)
- v-11904
+ ((loop-11703
+ (lambda (i-11750)
+ (if (= i-11750 n-11701)
+ v-11702
(begin
(vector-set!
- v-11904
- i-11952
- (remodulate-11844
- (vector-ref x-11879 i-11952)
- mod-11880))
- (loop-11905 (#{1+}# i-11952)))))))
- (loop-11905 0))))
- x-11879))))))
- (let ((tmp-11846
- ($sc-dispatch e-11841 '(_ each-any any))))
- (if (if tmp-11846
+ v-11702
+ i-11750
+ (remodulate-11642
+ (vector-ref x-11677 i-11750)
+ mod-11678))
+ (loop-11703 (#{1+}# i-11750)))))))
+ (loop-11703 0))))
+ x-11677))))))
+ (let ((tmp-11644
+ ($sc-dispatch e-11639 '(_ each-any any))))
+ (if (if tmp-11644
(@apply
- (lambda (mod-11850 exp-11851)
- (and-map id?-6549 mod-11850))
- tmp-11846)
+ (lambda (mod-11648 exp-11649)
+ (and-map id?-6345 mod-11648))
+ tmp-11644)
#f)
(@apply
- (lambda (mod-11867 exp-11868)
- (let ((mod-11869
+ (lambda (mod-11665 exp-11666)
+ (let ((mod-11667
(syntax->datum
(cons '#(syntax-object
private
@@ -10363,15 +10385,15 @@
#(ribcage
#(mod exp)
#((top) (top))
- #("l-*-5822" "l-*-5823"))
+ #("l-*-5684" "l-*-5685"))
#(ribcage
(remodulate)
((top))
- ("l-*-5789"))
+ ("l-*-5657"))
#(ribcage
#(e r w)
#((top) (top) (top))
- #("l-*-5786" "l-*-5787" "l-*-5788"))
+ #("l-*-5654" "l-*-5655" "l-*-5656"))
#(ribcage
(lambda-var-list
gen-var
@@ -10800,105 +10822,105 @@
((top) (top) (top))
("l-*-2098" "l-*-2097" "l-*-2096")))
(hygiene guile))
- mod-11867))))
+ mod-11665))))
(values
- (remodulate-11844 exp-11868 mod-11869)
- r-11842
- w-11843
- (source-annotation-6542 exp-11868)
- mod-11869)))
- tmp-11846)
+ (remodulate-11642 exp-11666 mod-11667)
+ r-11640
+ w-11641
+ (source-annotation-6338 exp-11666)
+ mod-11667)))
+ tmp-11644)
(syntax-violation
#f
"source expression failed to match any pattern"
- e-11841))))))
- (global-extend-6547
+ e-11639))))))
+ (global-extend-6343
'core
'if
- (lambda (e-12053 r-12054 w-12055 s-12056 mod-12057)
- (let ((tmp-12059 ($sc-dispatch e-12053 '(_ any any))))
- (if tmp-12059
+ (lambda (e-11851 r-11852 w-11853 s-11854 mod-11855)
+ (let ((tmp-11857 ($sc-dispatch e-11851 '(_ any any))))
+ (if tmp-11857
(@apply
- (lambda (test-12063 then-12064)
- (build-conditional-6517
- s-12056
- (expand-6585
- test-12063
- r-12054
- w-12055
- mod-12057)
- (expand-6585
- then-12064
- r-12054
- w-12055
- mod-12057)
+ (lambda (test-11861 then-11862)
+ (build-conditional-6313
+ s-11854
+ (expand-6381
+ test-11861
+ r-11852
+ w-11853
+ mod-11855)
+ (expand-6381
+ then-11862
+ r-11852
+ w-11853
+ mod-11855)
(make-struct/no-tail
(vector-ref %expanded-vtables 0)
#f)))
- tmp-12059)
- (let ((tmp-12289
- ($sc-dispatch e-12053 '(_ any any any))))
- (if tmp-12289
+ tmp-11857)
+ (let ((tmp-12087
+ ($sc-dispatch e-11851 '(_ any any any))))
+ (if tmp-12087
(@apply
- (lambda (test-12293 then-12294 else-12295)
- (build-conditional-6517
- s-12056
- (expand-6585
- test-12293
- r-12054
- w-12055
- mod-12057)
- (expand-6585
- then-12294
- r-12054
- w-12055
- mod-12057)
- (expand-6585
- else-12295
- r-12054
- w-12055
- mod-12057)))
- tmp-12289)
+ (lambda (test-12091 then-12092 else-12093)
+ (build-conditional-6313
+ s-11854
+ (expand-6381
+ test-12091
+ r-11852
+ w-11853
+ mod-11855)
+ (expand-6381
+ then-12092
+ r-11852
+ w-11853
+ mod-11855)
+ (expand-6381
+ else-12093
+ r-11852
+ w-11853
+ mod-11855)))
+ tmp-12087)
(syntax-violation
#f
"source expression failed to match any pattern"
- e-12053)))))))
- (global-extend-6547
+ e-11851)))))))
+ (global-extend-6343
'core
'with-fluids
- (lambda (e-12694 r-12695 w-12696 s-12697 mod-12698)
- (let ((tmp-12700
+ (lambda (e-12492 r-12493 w-12494 s-12495 mod-12496)
+ (let ((tmp-12498
($sc-dispatch
- e-12694
+ e-12492
'(_ #(each (any any)) any . each-any))))
- (if tmp-12700
+ (if tmp-12498
(@apply
- (lambda (fluid-12704 val-12705 b-12706 b*-12707)
- (build-dynlet-6518
- s-12697
- (map (lambda (x-12788)
- (expand-6585 x-12788 r-12695 w-12696 mod-12698))
- fluid-12704)
- (map (lambda (x-12858)
- (expand-6585 x-12858 r-12695 w-12696 mod-12698))
- val-12705)
- (expand-body-6589
- (cons b-12706 b*-12707)
- (wrap-6578
+ (lambda (fluid-12502 val-12503 b-12504 b*-12505)
+ (build-dynlet-6314
+ s-12495
+ (map (lambda (x-12586)
+ (expand-6381 x-12586 r-12493 w-12494 mod-12496))
+ fluid-12502)
+ (map (lambda (x-12656)
+ (expand-6381 x-12656 r-12493 w-12494 mod-12496))
+ val-12503)
+ (expand-body-6385
+ (cons b-12504 b*-12505)
+ (wrap-6374
(begin
- (if (if (pair? e-12694) s-12697 #f)
- (set-source-properties! e-12694 s-12697))
- e-12694)
- w-12696
- mod-12698)
- r-12695
- w-12696
- mod-12698)))
- tmp-12700)
+ (if (if (pair? e-12492) s-12495 #f)
+ (set-source-properties! e-12492 s-12495))
+ e-12492)
+ w-12494
+ mod-12496)
+ r-12493
+ w-12494
+ mod-12496)))
+ tmp-12498)
(syntax-violation
#f
"source expression failed to match any pattern"
- e-12694)))))
+ e-12492)))))
(module-define!
(current-module)
'begin
@@ -10928,60 +10950,60 @@
'eval-when
'eval-when
'()))
- (global-extend-6547
+ (global-extend-6343
'core
'syntax-case
(letrec*
- ((convert-pattern-13226
- (lambda (pattern-14823 keys-14824)
+ ((convert-pattern-13024
+ (lambda (pattern-14621 keys-14622)
(letrec*
- ((cvt*-14825
- (lambda (p*-15449 n-15450 ids-15451)
- (if (not (pair? p*-15449))
- (cvt-14827 p*-15449 n-15450 ids-15451)
+ ((cvt*-14623
+ (lambda (p*-15247 n-15248 ids-15249)
+ (if (not (pair? p*-15247))
+ (cvt-14625 p*-15247 n-15248 ids-15249)
(call-with-values
(lambda ()
- (cvt*-14825 (cdr p*-15449) n-15450 ids-15451))
- (lambda (y-15454 ids-15455)
+ (cvt*-14623 (cdr p*-15247) n-15248 ids-15249))
+ (lambda (y-15252 ids-15253)
(call-with-values
(lambda ()
- (cvt-14827 (car p*-15449) n-15450 ids-15455))
- (lambda (x-15458 ids-15459)
+ (cvt-14625 (car p*-15247) n-15248 ids-15253))
+ (lambda (x-15256 ids-15257)
(values
- (cons x-15458 y-15454)
- ids-15459))))))))
- (v-reverse-14826
- (lambda (x-15460)
+ (cons x-15256 y-15252)
+ ids-15257))))))))
+ (v-reverse-14624
+ (lambda (x-15258)
(letrec*
- ((loop-15461
- (lambda (r-15541 x-15542)
- (if (not (pair? x-15542))
- (values r-15541 x-15542)
- (loop-15461
- (cons (car x-15542) r-15541)
- (cdr x-15542))))))
- (loop-15461 '() x-15460))))
- (cvt-14827
- (lambda (p-14830 n-14831 ids-14832)
- (if (if (symbol? p-14830)
+ ((loop-15259
+ (lambda (r-15339 x-15340)
+ (if (not (pair? x-15340))
+ (values r-15339 x-15340)
+ (loop-15259
+ (cons (car x-15340) r-15339)
+ (cdr x-15340))))))
+ (loop-15259 '() x-15258))))
+ (cvt-14625
+ (lambda (p-14628 n-14629 ids-14630)
+ (if (if (symbol? p-14628)
#t
- (if (if (vector? p-14830)
- (if (= (vector-length p-14830) 4)
- (eq? (vector-ref p-14830 0) 'syntax-object)
+ (if (if (vector? p-14628)
+ (if (= (vector-length p-14628) 4)
+ (eq? (vector-ref p-14628 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref p-14830 1))
+ (symbol? (vector-ref p-14628 1))
#f))
- (if (bound-id-member?-6577 p-14830 keys-14824)
- (values (vector 'free-id p-14830) ids-14832)
- (if (if (eq? (if (if (vector? p-14830)
- (if (= (vector-length p-14830) 4)
- (eq? (vector-ref p-14830 0)
+ (if (bound-id-member?-6373 p-14628 keys-14622)
+ (values (vector 'free-id p-14628) ids-14630)
+ (if (if (eq? (if (if (vector? p-14628)
+ (if (= (vector-length p-14628) 4)
+ (eq? (vector-ref p-14628 0)
'syntax-object)
#f)
#f)
- (vector-ref p-14830 1)
- p-14830)
+ (vector-ref p-14628 1)
+ p-14628)
(if (if (= (vector-length
'#(syntax-object
_
@@ -10990,20 +11012,20 @@
#(ribcage
#(p n ids)
#((top) (top) (top))
- #("l-*-5923"
- "l-*-5924"
- "l-*-5925"))
+ #("l-*-5785"
+ "l-*-5786"
+ "l-*-5787"))
#(ribcage
(cvt v-reverse cvt*)
((top) (top) (top))
- ("l-*-5896"
- "l-*-5894"
- "l-*-5892"))
+ ("l-*-5758"
+ "l-*-5756"
+ "l-*-5754"))
#(ribcage
#(pattern keys)
#((top) (top))
- #("l-*-5890"
- "l-*-5891"))
+ #("l-*-5752"
+ "l-*-5753"))
#(ribcage
(gen-syntax-case
gen-clause
@@ -11013,10 +11035,10 @@
(top)
(top)
(top))
- ("l-*-5886"
- "l-*-5884"
- "l-*-5882"
- "l-*-5880"))
+ ("l-*-5748"
+ "l-*-5746"
+ "l-*-5744"
+ "l-*-5742"))
#(ribcage
(lambda-var-list
gen-var
@@ -11458,29 +11480,29 @@
#(ribcage
#(p n ids)
#((top) (top) (top))
- #("l-*-5923"
- "l-*-5924"
- "l-*-5925"))
+ #("l-*-5785"
+ "l-*-5786"
+ "l-*-5787"))
#(ribcage
(cvt v-reverse cvt*)
((top) (top) (top))
- ("l-*-5896"
- "l-*-5894"
- "l-*-5892"))
+ ("l-*-5758"
+ "l-*-5756"
+ "l-*-5754"))
#(ribcage
#(pattern keys)
#((top) (top))
- #("l-*-5890" "l-*-5891"))
+ #("l-*-5752" "l-*-5753"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("l-*-5886"
- "l-*-5884"
- "l-*-5882"
- "l-*-5880"))
+ ("l-*-5748"
+ "l-*-5746"
+ "l-*-5744"
+ "l-*-5742"))
#(ribcage
(lambda-var-list
gen-var
@@ -11911,8 +11933,8 @@
"l-*-2097"
"l-*-2096")))
(hygiene guile))))
- (eq? (id-var-name-6568 p-14830 '(()))
- (id-var-name-6568
+ (eq? (id-var-name-6364 p-14628 '(()))
+ (id-var-name-6364
'#(syntax-object
_
((top)
@@ -11920,29 +11942,29 @@
#(ribcage
#(p n ids)
#((top) (top) (top))
- #("l-*-5923"
- "l-*-5924"
- "l-*-5925"))
+ #("l-*-5785"
+ "l-*-5786"
+ "l-*-5787"))
#(ribcage
(cvt v-reverse cvt*)
((top) (top) (top))
- ("l-*-5896"
- "l-*-5894"
- "l-*-5892"))
+ ("l-*-5758"
+ "l-*-5756"
+ "l-*-5754"))
#(ribcage
#(pattern keys)
#((top) (top))
- #("l-*-5890" "l-*-5891"))
+ #("l-*-5752" "l-*-5753"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("l-*-5886"
- "l-*-5884"
- "l-*-5882"
- "l-*-5880"))
+ ("l-*-5748"
+ "l-*-5746"
+ "l-*-5744"
+ "l-*-5742"))
#(ribcage
(lambda-var-list
gen-var
@@ -12375,35 +12397,35 @@
(hygiene guile))
'(())))
#f)
- (values '_ ids-14832)
+ (values '_ ids-14630)
(values
'any
- (cons (cons p-14830 n-14831) ids-14832))))
- (let ((tmp-15152 ($sc-dispatch p-14830 '(any any))))
- (if (if tmp-15152
+ (cons (cons p-14628 n-14629) ids-14630))))
+ (let ((tmp-14950 ($sc-dispatch p-14628 '(any any))))
+ (if (if tmp-14950
(@apply
- (lambda (x-15156 dots-15157)
- (if (if (if (vector? dots-15157)
- (if (= (vector-length dots-15157)
+ (lambda (x-14954 dots-14955)
+ (if (if (if (vector? dots-14955)
+ (if (= (vector-length dots-14955)
4)
- (eq? (vector-ref dots-15157 0)
+ (eq? (vector-ref dots-14955 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref dots-15157 1))
+ (symbol? (vector-ref dots-14955 1))
#f)
- (if (eq? (if (if (vector? dots-15157)
+ (if (eq? (if (if (vector? dots-14955)
(if (= (vector-length
- dots-15157)
+ dots-14955)
4)
(eq? (vector-ref
- dots-15157
+ dots-14955
0)
'syntax-object)
#f)
#f)
- (vector-ref dots-15157 1)
- dots-15157)
+ (vector-ref dots-14955 1)
+ dots-14955)
(if (if (= (vector-length
'#(syntax-object
...
@@ -12419,7 +12441,7 @@
#(ribcage
#(x)
#((top))
- #("l-*-4404"))
+ #("l-*-4317"))
#(ribcage
(lambda-var-list
gen-var
@@ -12865,7 +12887,7 @@
#(ribcage
#(x)
#((top))
- #("l-*-4404"))
+ #("l-*-4317"))
#(ribcage
(lambda-var-list
gen-var
@@ -13296,10 +13318,10 @@
"l-*-2097"
"l-*-2096")))
(hygiene guile))))
- (eq? (id-var-name-6568
- dots-15157
+ (eq? (id-var-name-6364
+ dots-14955
'(()))
- (id-var-name-6568
+ (id-var-name-6364
'#(syntax-object
...
((top)
@@ -13308,7 +13330,7 @@
#(ribcage
#(x)
#((top))
- #("l-*-4404"))
+ #("l-*-4317"))
#(ribcage
(lambda-var-list
gen-var
@@ -13742,53 +13764,53 @@
'(())))
#f)
#f))
- tmp-15152)
+ tmp-14950)
#f)
(@apply
- (lambda (x-15257 dots-15258)
+ (lambda (x-15055 dots-15056)
(call-with-values
(lambda ()
- (cvt-14827
- x-15257
- (#{1+}# n-14831)
- ids-14832))
- (lambda (p-15259 ids-15260)
+ (cvt-14625
+ x-15055
+ (#{1+}# n-14629)
+ ids-14630))
+ (lambda (p-15057 ids-15058)
(values
- (if (eq? p-15259 'any)
+ (if (eq? p-15057 'any)
'each-any
- (vector 'each p-15259))
- ids-15260))))
- tmp-15152)
- (let ((tmp-15261
- ($sc-dispatch p-14830 '(any any . any))))
- (if (if tmp-15261
+ (vector 'each p-15057))
+ ids-15058))))
+ tmp-14950)
+ (let ((tmp-15059
+ ($sc-dispatch p-14628 '(any any . any))))
+ (if (if tmp-15059
(@apply
- (lambda (x-15265 dots-15266 ys-15267)
- (if (if (if (vector? dots-15266)
+ (lambda (x-15063 dots-15064 ys-15065)
+ (if (if (if (vector? dots-15064)
(if (= (vector-length
- dots-15266)
+ dots-15064)
4)
(eq? (vector-ref
- dots-15266
+ dots-15064
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref dots-15266 1))
+ (vector-ref dots-15064 1))
#f)
- (if (eq? (if (if (vector? dots-15266)
+ (if (eq? (if (if (vector? dots-15064)
(if (= (vector-length
- dots-15266)
+ dots-15064)
4)
(eq? (vector-ref
- dots-15266
+ dots-15064
0)
'syntax-object)
#f)
#f)
- (vector-ref dots-15266 1)
- dots-15266)
+ (vector-ref dots-15064 1)
+ dots-15064)
(if (if (= (vector-length
'#(syntax-object
...
@@ -13804,7 +13826,7 @@
#(ribcage
#(x)
#((top))
- #("l-*-4404"))
+ #("l-*-4317"))
#(ribcage
(lambda-var-list
gen-var
@@ -14250,7 +14272,7 @@
#(ribcage
#(x)
#((top))
- #("l-*-4404"))
+ #("l-*-4317"))
#(ribcage
(lambda-var-list
gen-var
@@ -14681,10 +14703,10 @@
"l-*-2097"
"l-*-2096")))
(hygiene guile))))
- (eq? (id-var-name-6568
- dots-15266
+ (eq? (id-var-name-6364
+ dots-15064
'(()))
- (id-var-name-6568
+ (id-var-name-6364
'#(syntax-object
...
((top)
@@ -14693,7 +14715,7 @@
#(ribcage
#(x)
#((top))
- #("l-*-4404"))
+ #("l-*-4317"))
#(ribcage
(lambda-var-list
gen-var
@@ -15127,97 +15149,97 @@
'(())))
#f)
#f))
- tmp-15261)
+ tmp-15059)
#f)
(@apply
- (lambda (x-15367 dots-15368 ys-15369)
+ (lambda (x-15165 dots-15166 ys-15167)
(call-with-values
(lambda ()
- (cvt*-14825
- ys-15369
- n-14831
- ids-14832))
- (lambda (ys-15372 ids-15373)
+ (cvt*-14623
+ ys-15167
+ n-14629
+ ids-14630))
+ (lambda (ys-15170 ids-15171)
(call-with-values
(lambda ()
- (cvt-14827
- x-15367
- (#{1+}# n-14831)
- ids-15373))
- (lambda (x-15374 ids-15375)
+ (cvt-14625
+ x-15165
+ (#{1+}# n-14629)
+ ids-15171))
+ (lambda (x-15172 ids-15173)
(call-with-values
(lambda ()
- (v-reverse-14826 ys-15372))
- (lambda (ys-15408 e-15409)
+ (v-reverse-14624 ys-15170))
+ (lambda (ys-15206 e-15207)
(values
(vector
'each+
- x-15374
- ys-15408
- e-15409)
- ids-15375))))))))
- tmp-15261)
- (let ((tmp-15410
- ($sc-dispatch p-14830 '(any . any))))
- (if tmp-15410
+ x-15172
+ ys-15206
+ e-15207)
+ ids-15173))))))))
+ tmp-15059)
+ (let ((tmp-15208
+ ($sc-dispatch p-14628 '(any . any))))
+ (if tmp-15208
(@apply
- (lambda (x-15414 y-15415)
+ (lambda (x-15212 y-15213)
(call-with-values
(lambda ()
- (cvt-14827
- y-15415
- n-14831
- ids-14832))
- (lambda (y-15416 ids-15417)
+ (cvt-14625
+ y-15213
+ n-14629
+ ids-14630))
+ (lambda (y-15214 ids-15215)
(call-with-values
(lambda ()
- (cvt-14827
- x-15414
- n-14831
- ids-15417))
- (lambda (x-15418 ids-15419)
+ (cvt-14625
+ x-15212
+ n-14629
+ ids-15215))
+ (lambda (x-15216 ids-15217)
(values
- (cons x-15418 y-15416)
- ids-15419))))))
- tmp-15410)
- (let ((tmp-15420
- ($sc-dispatch p-14830 '())))
- (if tmp-15420
+ (cons x-15216 y-15214)
+ ids-15217))))))
+ tmp-15208)
+ (let ((tmp-15218
+ ($sc-dispatch p-14628 '())))
+ (if tmp-15218
(@apply
- (lambda () (values '() ids-14832))
- tmp-15420)
- (let ((tmp-15424
+ (lambda () (values '() ids-14630))
+ tmp-15218)
+ (let ((tmp-15222
($sc-dispatch
- p-14830
+ p-14628
'#(vector each-any))))
- (if tmp-15424
+ (if tmp-15222
(@apply
- (lambda (x-15428)
+ (lambda (x-15226)
(call-with-values
(lambda ()
- (cvt-14827
- x-15428
- n-14831
- ids-14832))
- (lambda (p-15429 ids-15430)
+ (cvt-14625
+ x-15226
+ n-14629
+ ids-14630))
+ (lambda (p-15227 ids-15228)
(values
- (vector 'vector p-15429)
- ids-15430))))
- tmp-15424)
+ (vector 'vector p-15227)
+ ids-15228))))
+ tmp-15222)
(values
(vector
'atom
- (strip-6598 p-14830 '(())))
- ids-14832)))))))))))))))
- (cvt-14827 pattern-14823 0 '()))))
- (build-dispatch-call-13227
- (lambda (pvars-15543 exp-15544 y-15545 r-15546 mod-15547)
- (let ((ids-15548 (map car pvars-15543)))
+ (strip-6394 p-14628 '(())))
+ ids-14630)))))))))))))))
+ (cvt-14625 pattern-14621 0 '()))))
+ (build-dispatch-call-13025
+ (lambda (pvars-15341 exp-15342 y-15343 r-15344 mod-15345)
+ (let ((ids-15346 (map car pvars-15341)))
(begin
- (map cdr pvars-15543)
- (let ((labels-15550 (gen-labels-6552 ids-15548))
- (new-vars-15551 (map gen-var-6599 ids-15548)))
- (build-application-6516
+ (map cdr pvars-15341)
+ (let ((labels-15348 (gen-labels-6348 ids-15346))
+ (new-vars-15349 (map gen-var-6395 ids-15346)))
+ (build-application-6312
#f
(if (equal? (module-name (current-module)) '(guile))
(make-struct/no-tail
@@ -15230,73 +15252,73 @@
'(guile)
'apply
#f))
- (list (build-simple-lambda-6525
+ (list (build-simple-lambda-6321
#f
- (map syntax->datum ids-15548)
+ (map syntax->datum ids-15346)
#f
- new-vars-15551
+ new-vars-15349
'()
- (expand-6585
- exp-15544
- (extend-env-6543
- labels-15550
- (map (lambda (var-15874 level-15875)
+ (expand-6381
+ exp-15342
+ (extend-env-6339
+ labels-15348
+ (map (lambda (var-15672 level-15673)
(cons 'syntax
- (cons var-15874 level-15875)))
- new-vars-15551
- (map cdr pvars-15543))
- r-15546)
- (make-binding-wrap-6563
- ids-15548
- labels-15550
+ (cons var-15672 level-15673)))
+ new-vars-15349
+ (map cdr pvars-15341))
+ r-15344)
+ (make-binding-wrap-6359
+ ids-15346
+ labels-15348
'(()))
- mod-15547))
- y-15545)))))))
- (gen-clause-13228
- (lambda (x-14195
- keys-14196
- clauses-14197
- r-14198
- pat-14199
- fender-14200
- exp-14201
- mod-14202)
+ mod-15345))
+ y-15343)))))))
+ (gen-clause-13026
+ (lambda (x-13993
+ keys-13994
+ clauses-13995
+ r-13996
+ pat-13997
+ fender-13998
+ exp-13999
+ mod-14000)
(call-with-values
(lambda ()
- (convert-pattern-13226 pat-14199 keys-14196))
- (lambda (p-14357 pvars-14358)
- (if (not (distinct-bound-ids?-6576 (map car pvars-14358)))
+ (convert-pattern-13024 pat-13997 keys-13994))
+ (lambda (p-14155 pvars-14156)
+ (if (not (distinct-bound-ids?-6372 (map car pvars-14156)))
(syntax-violation
'syntax-case
"duplicate pattern variable"
- pat-14199)
+ pat-13997)
(if (not (and-map
- (lambda (x-14474)
- (not (let ((x-14478 (car x-14474)))
- (if (if (if (vector? x-14478)
+ (lambda (x-14272)
+ (not (let ((x-14276 (car x-14272)))
+ (if (if (if (vector? x-14276)
(if (= (vector-length
- x-14478)
+ x-14276)
4)
(eq? (vector-ref
- x-14478
+ x-14276
0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref x-14478 1))
+ (symbol? (vector-ref x-14276 1))
#f)
- (if (eq? (if (if (vector? x-14478)
+ (if (eq? (if (if (vector? x-14276)
(if (= (vector-length
- x-14478)
+ x-14276)
4)
(eq? (vector-ref
- x-14478
+ x-14276
0)
'syntax-object)
#f)
#f)
- (vector-ref x-14478 1)
- x-14478)
+ (vector-ref x-14276 1)
+ x-14276)
(if (if (= (vector-length
'#(syntax-object
...
@@ -15312,7 +15334,7 @@
#(ribcage
#(x)
#((top))
- #("l-*-4404"))
+ #("l-*-4317"))
#(ribcage
(lambda-var-list
gen-var
@@ -15758,7 +15780,7 @@
#(ribcage
#(x)
#((top))
- #("l-*-4404"))
+ #("l-*-4317"))
#(ribcage
(lambda-var-list
gen-var
@@ -16189,10 +16211,10 @@
"l-*-2097"
"l-*-2096")))
(hygiene guile))))
- (eq? (id-var-name-6568
- x-14478
+ (eq? (id-var-name-6364
+ x-14276
'(()))
- (id-var-name-6568
+ (id-var-name-6364
'#(syntax-object
...
((top)
@@ -16201,7 +16223,7 @@
#(ribcage
#(x)
#((top))
- #("l-*-4404"))
+ #("l-*-4317"))
#(ribcage
(lambda-var-list
gen-var
@@ -16635,42 +16657,42 @@
'(())))
#f)
#f))))
- pvars-14358))
+ pvars-14156))
(syntax-violation
'syntax-case
"misplaced ellipsis"
- pat-14199)
- (let ((y-14554
+ pat-13997)
+ (let ((y-14352
(gensym
(string-append (symbol->string 'tmp) "-"))))
- (build-application-6516
+ (build-application-6312
#f
- (let ((req-14697 (list 'tmp))
- (vars-14699 (list y-14554))
- (exp-14701
- (let ((y-14718
+ (let ((req-14495 (list 'tmp))
+ (vars-14497 (list y-14352))
+ (exp-14499
+ (let ((y-14516
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
#f
'tmp
- y-14554)))
- (let ((test-exp-14722
- (let ((tmp-14731
+ y-14352)))
+ (let ((test-exp-14520
+ (let ((tmp-14529
($sc-dispatch
- fender-14200
+ fender-13998
'#(atom #t))))
- (if tmp-14731
+ (if tmp-14529
(@apply
- (lambda () y-14718)
- tmp-14731)
- (let ((then-exp-14749
- (build-dispatch-call-13227
- pvars-14358
- fender-14200
- y-14718
- r-14198
- mod-14202))
- (else-exp-14750
+ (lambda () y-14516)
+ tmp-14529)
+ (let ((then-exp-14547
+ (build-dispatch-call-13025
+ pvars-14156
+ fender-13998
+ y-14516
+ r-13996
+ mod-14000))
+ (else-exp-14548
(make-struct/no-tail
(vector-ref
%expanded-vtables
@@ -16682,48 +16704,48 @@
%expanded-vtables
10)
#f
- y-14718
- then-exp-14749
- else-exp-14750)))))
- (then-exp-14723
- (build-dispatch-call-13227
- pvars-14358
- exp-14201
- y-14718
- r-14198
- mod-14202))
- (else-exp-14724
- (gen-syntax-case-13229
- x-14195
- keys-14196
- clauses-14197
- r-14198
- mod-14202)))
+ y-14516
+ then-exp-14547
+ else-exp-14548)))))
+ (then-exp-14521
+ (build-dispatch-call-13025
+ pvars-14156
+ exp-13999
+ y-14516
+ r-13996
+ mod-14000))
+ (else-exp-14522
+ (gen-syntax-case-13027
+ x-13993
+ keys-13994
+ clauses-13995
+ r-13996
+ mod-14000)))
(make-struct/no-tail
(vector-ref %expanded-vtables 10)
#f
- test-exp-14722
- then-exp-14723
- else-exp-14724)))))
- (let ((body-14706
+ test-exp-14520
+ then-exp-14521
+ else-exp-14522)))))
+ (let ((body-14504
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
#f
- req-14697
+ req-14495
#f
#f
#f
'()
- vars-14699
- exp-14701
+ vars-14497
+ exp-14499
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
#f
'()
- body-14706)))
- (list (if (eq? p-14357 'any)
- (let ((fun-exp-14772
+ body-14504)))
+ (list (if (eq? p-14155 'any)
+ (let ((fun-exp-14570
(if (equal?
(module-name (current-module))
'(guile))
@@ -16737,13 +16759,13 @@
'(guile)
'list
#f)))
- (arg-exps-14773 (list x-14195)))
+ (arg-exps-14571 (list x-13993)))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
#f
- fun-exp-14772
- arg-exps-14773))
- (let ((fun-exp-14796
+ fun-exp-14570
+ arg-exps-14571))
+ (let ((fun-exp-14594
(if (equal?
(module-name (current-module))
'(guile))
@@ -16757,27 +16779,27 @@
'(guile)
'$sc-dispatch
#f)))
- (arg-exps-14797
- (list x-14195
+ (arg-exps-14595
+ (list x-13993
(make-struct/no-tail
(vector-ref
%expanded-vtables
1)
#f
- p-14357))))
+ p-14155))))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
#f
- fun-exp-14796
- arg-exps-14797))))))))))))
- (gen-syntax-case-13229
- (lambda (x-13628
- keys-13629
- clauses-13630
- r-13631
- mod-13632)
- (if (null? clauses-13630)
- (let ((fun-exp-13637
+ fun-exp-14594
+ arg-exps-14595))))))))))))
+ (gen-syntax-case-13027
+ (lambda (x-13426
+ keys-13427
+ clauses-13428
+ r-13429
+ mod-13430)
+ (if (null? clauses-13428)
+ (let ((fun-exp-13435
(if (equal? (module-name (current-module)) '(guile))
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
@@ -16789,7 +16811,7 @@
'(guile)
'syntax-violation
#f)))
- (arg-exps-13638
+ (arg-exps-13436
(list (make-struct/no-tail
(vector-ref %expanded-vtables 1)
#f
@@ -16798,58 +16820,58 @@
(vector-ref %expanded-vtables 1)
#f
"source expression failed to match any pattern")
- x-13628)))
+ x-13426)))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
#f
- fun-exp-13637
- arg-exps-13638))
- (let ((tmp-13671 (car clauses-13630)))
- (let ((tmp-13672 ($sc-dispatch tmp-13671 '(any any))))
- (if tmp-13672
+ fun-exp-13435
+ arg-exps-13436))
+ (let ((tmp-13469 (car clauses-13428)))
+ (let ((tmp-13470 ($sc-dispatch tmp-13469 '(any any))))
+ (if tmp-13470
(@apply
- (lambda (pat-13674 exp-13675)
- (if (if (if (symbol? pat-13674)
+ (lambda (pat-13472 exp-13473)
+ (if (if (if (symbol? pat-13472)
#t
- (if (if (vector? pat-13674)
- (if (= (vector-length pat-13674) 4)
- (eq? (vector-ref pat-13674 0)
+ (if (if (vector? pat-13472)
+ (if (= (vector-length pat-13472) 4)
+ (eq? (vector-ref pat-13472 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref pat-13674 1))
+ (symbol? (vector-ref pat-13472 1))
#f))
(and-map
- (lambda (x-13702)
- (not (if (eq? (if (if (vector? pat-13674)
+ (lambda (x-13500)
+ (not (if (eq? (if (if (vector? pat-13472)
(if (= (vector-length
- pat-13674)
+ pat-13472)
4)
(eq? (vector-ref
- pat-13674
+ pat-13472
0)
'syntax-object)
#f)
#f)
- (vector-ref pat-13674 1)
- pat-13674)
- (if (if (vector? x-13702)
+ (vector-ref pat-13472 1)
+ pat-13472)
+ (if (if (vector? x-13500)
(if (= (vector-length
- x-13702)
+ x-13500)
4)
(eq? (vector-ref
- x-13702
+ x-13500
0)
'syntax-object)
#f)
#f)
- (vector-ref x-13702 1)
- x-13702))
- (eq? (id-var-name-6568
- pat-13674
+ (vector-ref x-13500 1)
+ x-13500))
+ (eq? (id-var-name-6364
+ pat-13472
'(()))
- (id-var-name-6568
- x-13702
+ (id-var-name-6364
+ x-13500
'(())))
#f)))
(cons '#(syntax-object
@@ -16858,26 +16880,26 @@
#(ribcage
#(pat exp)
#((top) (top))
- #("l-*-6087" "l-*-6088"))
+ #("l-*-5941" "l-*-5942"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
#((top) (top) (top) (top) (top))
- #("l-*-6076"
- "l-*-6077"
- "l-*-6078"
- "l-*-6079"
- "l-*-6080"))
+ #("l-*-5930"
+ "l-*-5931"
+ "l-*-5932"
+ "l-*-5933"
+ "l-*-5934"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("l-*-5886"
- "l-*-5884"
- "l-*-5882"
- "l-*-5880"))
+ ("l-*-5748"
+ "l-*-5746"
+ "l-*-5744"
+ "l-*-5742"))
#(ribcage
(lambda-var-list
gen-var
@@ -17308,7 +17330,7 @@
"l-*-2097"
"l-*-2096")))
(hygiene guile))
- keys-13629))
+ keys-13427))
#f)
(if (if (eq? (if (if (= (vector-length
'#(syntax-object
@@ -17317,8 +17339,8 @@
#(ribcage
#(pat exp)
#((top) (top))
- #("l-*-6087"
- "l-*-6088"))
+ #("l-*-5941"
+ "l-*-5942"))
#(ribcage () () ())
#(ribcage
#(x
@@ -17331,11 +17353,11 @@
(top)
(top)
(top))
- #("l-*-6076"
- "l-*-6077"
- "l-*-6078"
- "l-*-6079"
- "l-*-6080"))
+ #("l-*-5930"
+ "l-*-5931"
+ "l-*-5932"
+ "l-*-5933"
+ "l-*-5934"))
#(ribcage
(gen-syntax-case
gen-clause
@@ -17345,10 +17367,10 @@
(top)
(top)
(top))
- ("l-*-5886"
- "l-*-5884"
- "l-*-5882"
- "l-*-5880"))
+ ("l-*-5748"
+ "l-*-5746"
+ "l-*-5744"
+ "l-*-5742"))
#(ribcage
(lambda-var-list
gen-var
@@ -17791,7 +17813,7 @@
#(ribcage
#(pat exp)
#((top) (top))
- #("l-*-6087" "l-*-6088"))
+ #("l-*-5941" "l-*-5942"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
@@ -17800,21 +17822,21 @@
(top)
(top)
(top))
- #("l-*-6076"
- "l-*-6077"
- "l-*-6078"
- "l-*-6079"
- "l-*-6080"))
+ #("l-*-5930"
+ "l-*-5931"
+ "l-*-5932"
+ "l-*-5933"
+ "l-*-5934"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("l-*-5886"
- "l-*-5884"
- "l-*-5882"
- "l-*-5880"))
+ ("l-*-5748"
+ "l-*-5746"
+ "l-*-5744"
+ "l-*-5742"))
#(ribcage
(lambda-var-list
gen-var
@@ -18252,8 +18274,8 @@
#(ribcage
#(pat exp)
#((top) (top))
- #("l-*-6087"
- "l-*-6088"))
+ #("l-*-5941"
+ "l-*-5942"))
#(ribcage () () ())
#(ribcage
#(x
@@ -18266,11 +18288,11 @@
(top)
(top)
(top))
- #("l-*-6076"
- "l-*-6077"
- "l-*-6078"
- "l-*-6079"
- "l-*-6080"))
+ #("l-*-5930"
+ "l-*-5931"
+ "l-*-5932"
+ "l-*-5933"
+ "l-*-5934"))
#(ribcage
(gen-syntax-case
gen-clause
@@ -18280,10 +18302,10 @@
(top)
(top)
(top))
- ("l-*-5886"
- "l-*-5884"
- "l-*-5882"
- "l-*-5880"))
+ ("l-*-5748"
+ "l-*-5746"
+ "l-*-5744"
+ "l-*-5742"))
#(ribcage
(lambda-var-list
gen-var
@@ -18726,7 +18748,7 @@
#(ribcage
#(pat exp)
#((top) (top))
- #("l-*-6087" "l-*-6088"))
+ #("l-*-5941" "l-*-5942"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
@@ -18735,21 +18757,21 @@
(top)
(top)
(top))
- #("l-*-6076"
- "l-*-6077"
- "l-*-6078"
- "l-*-6079"
- "l-*-6080"))
+ #("l-*-5930"
+ "l-*-5931"
+ "l-*-5932"
+ "l-*-5933"
+ "l-*-5934"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("l-*-5886"
- "l-*-5884"
- "l-*-5882"
- "l-*-5880"))
+ ("l-*-5748"
+ "l-*-5746"
+ "l-*-5744"
+ "l-*-5742"))
#(ribcage
(lambda-var-list
gen-var
@@ -19180,14 +19202,14 @@
"l-*-2097"
"l-*-2096")))
(hygiene guile))))
- (eq? (id-var-name-6568
+ (eq? (id-var-name-6364
'#(syntax-object
pad
((top)
#(ribcage
#(pat exp)
#((top) (top))
- #("l-*-6087" "l-*-6088"))
+ #("l-*-5941" "l-*-5942"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
@@ -19196,21 +19218,21 @@
(top)
(top)
(top))
- #("l-*-6076"
- "l-*-6077"
- "l-*-6078"
- "l-*-6079"
- "l-*-6080"))
+ #("l-*-5930"
+ "l-*-5931"
+ "l-*-5932"
+ "l-*-5933"
+ "l-*-5934"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("l-*-5886"
- "l-*-5884"
- "l-*-5882"
- "l-*-5880"))
+ ("l-*-5748"
+ "l-*-5746"
+ "l-*-5744"
+ "l-*-5742"))
#(ribcage
(lambda-var-list
gen-var
@@ -19642,14 +19664,14 @@
"l-*-2096")))
(hygiene guile))
'(()))
- (id-var-name-6568
+ (id-var-name-6364
'#(syntax-object
_
((top)
#(ribcage
#(pat exp)
#((top) (top))
- #("l-*-6087" "l-*-6088"))
+ #("l-*-5941" "l-*-5942"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
@@ -19658,21 +19680,21 @@
(top)
(top)
(top))
- #("l-*-6076"
- "l-*-6077"
- "l-*-6078"
- "l-*-6079"
- "l-*-6080"))
+ #("l-*-5930"
+ "l-*-5931"
+ "l-*-5932"
+ "l-*-5933"
+ "l-*-5934"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("l-*-5886"
- "l-*-5884"
- "l-*-5882"
- "l-*-5880"))
+ ("l-*-5748"
+ "l-*-5746"
+ "l-*-5744"
+ "l-*-5742"))
#(ribcage
(lambda-var-list
gen-var
@@ -20105,129 +20127,129 @@
(hygiene guile))
'(())))
#f)
- (expand-6585 exp-13675 r-13631 '(()) mod-13632)
- (let ((labels-13878
+ (expand-6381 exp-13473 r-13429 '(()) mod-13430)
+ (let ((labels-13676
(list (string-append
"l-"
- (session-id-6510)
+ (session-id-6306)
(symbol->string (gensym "-")))))
- (var-13879
- (let ((id-13917
- (if (if (vector? pat-13674)
+ (var-13677
+ (let ((id-13715
+ (if (if (vector? pat-13472)
(if (= (vector-length
- pat-13674)
+ pat-13472)
4)
(eq? (vector-ref
- pat-13674
+ pat-13472
0)
'syntax-object)
#f)
#f)
- (vector-ref pat-13674 1)
- pat-13674)))
+ (vector-ref pat-13472 1)
+ pat-13472)))
(gensym
(string-append
- (symbol->string id-13917)
+ (symbol->string id-13715)
"-")))))
- (build-application-6516
+ (build-application-6312
#f
- (build-simple-lambda-6525
+ (build-simple-lambda-6321
#f
- (list (syntax->datum pat-13674))
+ (list (syntax->datum pat-13472))
#f
- (list var-13879)
+ (list var-13677)
'()
- (expand-6585
- exp-13675
- (extend-env-6543
- labels-13878
+ (expand-6381
+ exp-13473
+ (extend-env-6339
+ labels-13676
(list (cons 'syntax
- (cons var-13879 0)))
- r-13631)
- (make-binding-wrap-6563
- (list pat-13674)
- labels-13878
+ (cons var-13677 0)))
+ r-13429)
+ (make-binding-wrap-6359
+ (list pat-13472)
+ labels-13676
'(()))
- mod-13632))
- (list x-13628))))
- (gen-clause-13228
- x-13628
- keys-13629
- (cdr clauses-13630)
- r-13631
- pat-13674
+ mod-13430))
+ (list x-13426))))
+ (gen-clause-13026
+ x-13426
+ keys-13427
+ (cdr clauses-13428)
+ r-13429
+ pat-13472
#t
- exp-13675
- mod-13632)))
- tmp-13672)
- (let ((tmp-14187
- ($sc-dispatch tmp-13671 '(any any any))))
- (if tmp-14187
+ exp-13473
+ mod-13430)))
+ tmp-13470)
+ (let ((tmp-13985
+ ($sc-dispatch tmp-13469 '(any any any))))
+ (if tmp-13985
(@apply
- (lambda (pat-14189 fender-14190 exp-14191)
- (gen-clause-13228
- x-13628
- keys-13629
- (cdr clauses-13630)
- r-13631
- pat-14189
- fender-14190
- exp-14191
- mod-13632))
- tmp-14187)
+ (lambda (pat-13987 fender-13988 exp-13989)
+ (gen-clause-13026
+ x-13426
+ keys-13427
+ (cdr clauses-13428)
+ r-13429
+ pat-13987
+ fender-13988
+ exp-13989
+ mod-13430))
+ tmp-13985)
(syntax-violation
'syntax-case
"invalid clause"
- (car clauses-13630)))))))))))
- (lambda (e-13230 r-13231 w-13232 s-13233 mod-13234)
- (let ((e-13235
- (wrap-6578
+ (car clauses-13428)))))))))))
+ (lambda (e-13028 r-13029 w-13030 s-13031 mod-13032)
+ (let ((e-13033
+ (wrap-6374
(begin
- (if (if (pair? e-13230) s-13233 #f)
- (set-source-properties! e-13230 s-13233))
- e-13230)
- w-13232
- mod-13234)))
- (let ((tmp-13237
+ (if (if (pair? e-13028) s-13031 #f)
+ (set-source-properties! e-13028 s-13031))
+ e-13028)
+ w-13030
+ mod-13032)))
+ (let ((tmp-13035
($sc-dispatch
- e-13235
+ e-13033
'(_ any each-any . each-any))))
- (if tmp-13237
+ (if tmp-13035
(@apply
- (lambda (val-13262 key-13263 m-13264)
+ (lambda (val-13060 key-13061 m-13062)
(if (and-map
- (lambda (x-13265)
- (if (if (symbol? x-13265)
+ (lambda (x-13063)
+ (if (if (symbol? x-13063)
#t
- (if (if (vector? x-13265)
- (if (= (vector-length x-13265) 4)
- (eq? (vector-ref x-13265 0)
+ (if (if (vector? x-13063)
+ (if (= (vector-length x-13063) 4)
+ (eq? (vector-ref x-13063 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref x-13265 1))
+ (symbol? (vector-ref x-13063 1))
#f))
- (not (if (if (if (vector? x-13265)
- (if (= (vector-length x-13265)
+ (not (if (if (if (vector? x-13063)
+ (if (= (vector-length x-13063)
4)
- (eq? (vector-ref x-13265 0)
+ (eq? (vector-ref x-13063 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref x-13265 1))
+ (symbol? (vector-ref x-13063 1))
#f)
- (if (eq? (if (if (vector? x-13265)
+ (if (eq? (if (if (vector? x-13063)
(if (= (vector-length
- x-13265)
+ x-13063)
4)
(eq? (vector-ref
- x-13265
+ x-13063
0)
'syntax-object)
#f)
#f)
- (vector-ref x-13265 1)
- x-13265)
+ (vector-ref x-13063 1)
+ x-13063)
(if (if (= (vector-length
'#(syntax-object
...
@@ -20243,7 +20265,7 @@
#(ribcage
#(x)
#((top))
- #("l-*-4404"))
+ #("l-*-4317"))
#(ribcage
(lambda-var-list
gen-var
@@ -20689,7 +20711,7 @@
#(ribcage
#(x)
#((top))
- #("l-*-4404"))
+ #("l-*-4317"))
#(ribcage
(lambda-var-list
gen-var
@@ -21120,8 +21142,8 @@
"l-*-2097"
"l-*-2096")))
(hygiene guile))))
- (eq? (id-var-name-6568 x-13265 '(()))
- (id-var-name-6568
+ (eq? (id-var-name-6364 x-13063 '(()))
+ (id-var-name-6364
'#(syntax-object
...
((top)
@@ -21130,7 +21152,7 @@
#(ribcage
#(x)
#((top))
- #("l-*-4404"))
+ #("l-*-4317"))
#(ribcage
(lambda-var-list
gen-var
@@ -21565,758 +21587,758 @@
#f)
#f))
#f))
- key-13263)
- (let ((x-13391
+ key-13061)
+ (let ((x-13189
(gensym
(string-append (symbol->string 'tmp) "-"))))
- (build-application-6516
- s-13233
- (let ((req-13521 (list 'tmp))
- (vars-13523 (list x-13391))
- (exp-13525
- (gen-syntax-case-13229
+ (build-application-6312
+ s-13031
+ (let ((req-13319 (list 'tmp))
+ (vars-13321 (list x-13189))
+ (exp-13323
+ (gen-syntax-case-13027
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
#f
'tmp
- x-13391)
- key-13263
- m-13264
- r-13231
- mod-13234)))
- (let ((body-13530
+ x-13189)
+ key-13061
+ m-13062
+ r-13029
+ mod-13032)))
+ (let ((body-13328
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
#f
- req-13521
+ req-13319
#f
#f
#f
'()
- vars-13523
- exp-13525
+ vars-13321
+ exp-13323
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
#f
'()
- body-13530)))
- (list (expand-6585
- val-13262
- r-13231
+ body-13328)))
+ (list (expand-6381
+ val-13060
+ r-13029
'(())
- mod-13234))))
+ mod-13032))))
(syntax-violation
'syntax-case
"invalid literals list"
- e-13235)))
- tmp-13237)
+ e-13033)))
+ tmp-13035)
(syntax-violation
#f
"source expression failed to match any pattern"
- e-13235)))))))
+ e-13033)))))))
(set! macroexpand
(lambda*
- (x-15948
+ (x-15746
#:optional
- (m-15949 'e)
- (esew-15950 '(eval)))
- (expand-top-sequence-6581
- (list x-15948)
+ (m-15747 'e)
+ (esew-15748 '(eval)))
+ (expand-top-sequence-6377
+ (list x-15746)
'()
'((top))
#f
- m-15949
- esew-15950
+ m-15747
+ esew-15748
(cons 'hygiene (module-name (current-module))))))
(set! identifier?
- (lambda (x-15953)
- (if (if (vector? x-15953)
- (if (= (vector-length x-15953) 4)
- (eq? (vector-ref x-15953 0) 'syntax-object)
+ (lambda (x-15751)
+ (if (if (vector? x-15751)
+ (if (= (vector-length x-15751) 4)
+ (eq? (vector-ref x-15751 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref x-15953 1))
+ (symbol? (vector-ref x-15751 1))
#f)))
(set! datum->syntax
- (lambda (id-15978 datum-15979)
- (let ((wrap-15984 (vector-ref id-15978 2))
- (module-15985 (vector-ref id-15978 3)))
+ (lambda (id-15776 datum-15777)
+ (let ((wrap-15782 (vector-ref id-15776 2))
+ (module-15783 (vector-ref id-15776 3)))
(vector
'syntax-object
- datum-15979
- wrap-15984
- module-15985))))
+ datum-15777
+ wrap-15782
+ module-15783))))
(set! syntax->datum
- (lambda (x-15992) (strip-6598 x-15992 '(()))))
+ (lambda (x-15790) (strip-6394 x-15790 '(()))))
(set! syntax-source
- (lambda (x-15995)
- (source-annotation-6542 x-15995)))
+ (lambda (x-15793)
+ (source-annotation-6338 x-15793)))
(set! generate-temporaries
- (lambda (ls-16148)
+ (lambda (ls-15946)
(begin
- (if (not (list? ls-16148))
+ (if (not (list? ls-15946))
(syntax-violation
'generate-temporaries
"invalid argument"
- ls-16148))
- (let ((mod-16156
+ ls-15946))
+ (let ((mod-15954
(cons 'hygiene (module-name (current-module)))))
- (map (lambda (x-16157)
- (wrap-6578 (gensym "t-") '((top)) mod-16156))
- ls-16148)))))
+ (map (lambda (x-15955)
+ (wrap-6374 (gensym "t-") '((top)) mod-15954))
+ ls-15946)))))
(set! free-identifier=?
- (lambda (x-16161 y-16162)
+ (lambda (x-15959 y-15960)
(begin
- (if (not (if (if (vector? x-16161)
- (if (= (vector-length x-16161) 4)
- (eq? (vector-ref x-16161 0) 'syntax-object)
+ (if (not (if (if (vector? x-15959)
+ (if (= (vector-length x-15959) 4)
+ (eq? (vector-ref x-15959 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref x-16161 1))
+ (symbol? (vector-ref x-15959 1))
#f))
(syntax-violation
'free-identifier=?
"invalid argument"
- x-16161))
- (if (not (if (if (vector? y-16162)
- (if (= (vector-length y-16162) 4)
- (eq? (vector-ref y-16162 0) 'syntax-object)
+ x-15959))
+ (if (not (if (if (vector? y-15960)
+ (if (= (vector-length y-15960) 4)
+ (eq? (vector-ref y-15960 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref y-16162 1))
+ (symbol? (vector-ref y-15960 1))
#f))
(syntax-violation
'free-identifier=?
"invalid argument"
- y-16162))
- (if (eq? (if (if (vector? x-16161)
- (if (= (vector-length x-16161) 4)
- (eq? (vector-ref x-16161 0) 'syntax-object)
+ y-15960))
+ (if (eq? (if (if (vector? x-15959)
+ (if (= (vector-length x-15959) 4)
+ (eq? (vector-ref x-15959 0) 'syntax-object)
#f)
#f)
- (vector-ref x-16161 1)
- x-16161)
- (if (if (vector? y-16162)
- (if (= (vector-length y-16162) 4)
- (eq? (vector-ref y-16162 0) 'syntax-object)
+ (vector-ref x-15959 1)
+ x-15959)
+ (if (if (vector? y-15960)
+ (if (= (vector-length y-15960) 4)
+ (eq? (vector-ref y-15960 0) 'syntax-object)
#f)
#f)
- (vector-ref y-16162 1)
- y-16162))
- (eq? (id-var-name-6568 x-16161 '(()))
- (id-var-name-6568 y-16162 '(())))
+ (vector-ref y-15960 1)
+ y-15960))
+ (eq? (id-var-name-6364 x-15959 '(()))
+ (id-var-name-6364 y-15960 '(())))
#f))))
(set! bound-identifier=?
- (lambda (x-16312 y-16313)
+ (lambda (x-16110 y-16111)
(begin
- (if (not (if (if (vector? x-16312)
- (if (= (vector-length x-16312) 4)
- (eq? (vector-ref x-16312 0) 'syntax-object)
+ (if (not (if (if (vector? x-16110)
+ (if (= (vector-length x-16110) 4)
+ (eq? (vector-ref x-16110 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref x-16312 1))
+ (symbol? (vector-ref x-16110 1))
#f))
(syntax-violation
'bound-identifier=?
"invalid argument"
- x-16312))
- (if (not (if (if (vector? y-16313)
- (if (= (vector-length y-16313) 4)
- (eq? (vector-ref y-16313 0) 'syntax-object)
+ x-16110))
+ (if (not (if (if (vector? y-16111)
+ (if (= (vector-length y-16111) 4)
+ (eq? (vector-ref y-16111 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref y-16313 1))
+ (symbol? (vector-ref y-16111 1))
#f))
(syntax-violation
'bound-identifier=?
"invalid argument"
- y-16313))
- (if (if (if (vector? x-16312)
- (if (= (vector-length x-16312) 4)
- (eq? (vector-ref x-16312 0) 'syntax-object)
+ y-16111))
+ (if (if (if (vector? x-16110)
+ (if (= (vector-length x-16110) 4)
+ (eq? (vector-ref x-16110 0) 'syntax-object)
#f)
#f)
- (if (vector? y-16313)
- (if (= (vector-length y-16313) 4)
- (eq? (vector-ref y-16313 0) 'syntax-object)
+ (if (vector? y-16111)
+ (if (= (vector-length y-16111) 4)
+ (eq? (vector-ref y-16111 0) 'syntax-object)
#f)
#f)
#f)
- (if (eq? (vector-ref x-16312 1)
- (vector-ref y-16313 1))
- (same-marks?-6567
- (car (vector-ref x-16312 2))
- (car (vector-ref y-16313 2)))
+ (if (eq? (vector-ref x-16110 1)
+ (vector-ref y-16111 1))
+ (same-marks?-6363
+ (car (vector-ref x-16110 2))
+ (car (vector-ref y-16111 2)))
#f)
- (eq? x-16312 y-16313)))))
+ (eq? x-16110 y-16111)))))
(set! syntax-violation
(lambda*
- (who-16446
- message-16447
- form-16448
+ (who-16244
+ message-16245
+ form-16246
#:optional
- (subform-16449 #f))
+ (subform-16247 #f))
(begin
- (if (not (if (not who-16446)
- (not who-16446)
- (let ((t-16467 (string? who-16446)))
- (if t-16467 t-16467 (symbol? who-16446)))))
+ (if (not (if (not who-16244)
+ (not who-16244)
+ (let ((t-16265 (string? who-16244)))
+ (if t-16265 t-16265 (symbol? who-16244)))))
(syntax-violation
'syntax-violation
"invalid argument"
- who-16446))
- (if (not (string? message-16447))
+ who-16244))
+ (if (not (string? message-16245))
(syntax-violation
'syntax-violation
"invalid argument"
- message-16447))
+ message-16245))
(throw 'syntax-error
- who-16446
- message-16447
- (source-annotation-6542
- (if form-16448 form-16448 subform-16449))
- (strip-6598 form-16448 '(()))
- (if subform-16449
- (strip-6598 subform-16449 '(()))
+ who-16244
+ message-16245
+ (source-annotation-6338
+ (if form-16246 form-16246 subform-16247))
+ (strip-6394 form-16246 '(()))
+ (if subform-16247
+ (strip-6394 subform-16247 '(()))
#f)))))
(letrec*
- ((syntax-local-binding-16671
- (lambda (id-16804)
+ ((syntax-local-binding-16469
+ (lambda (id-16602)
(begin
- (if (not (if (if (vector? id-16804)
- (if (= (vector-length id-16804) 4)
- (eq? (vector-ref id-16804 0) 'syntax-object)
+ (if (not (if (if (vector? id-16602)
+ (if (= (vector-length id-16602) 4)
+ (eq? (vector-ref id-16602 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref id-16804 1))
+ (symbol? (vector-ref id-16602 1))
#f))
(syntax-violation
'syntax-local-binding
"invalid argument"
- id-16804))
- ((fluid-ref transformer-environment-6571)
- (lambda (e-16844
- r-16845
- w-16846
- s-16847
- rib-16848
- mod-16849)
+ id-16602))
+ ((fluid-ref transformer-environment-6367)
+ (lambda (e-16642
+ r-16643
+ w-16644
+ s-16645
+ rib-16646
+ mod-16647)
(call-with-values
(lambda ()
- (let ((id-16852 (vector-ref id-16804 1))
- (w-16853
- (let ((w-16864 (vector-ref id-16804 2)))
- (let ((ms-16865 (car w-16864))
- (s-16866 (cdr w-16864)))
- (if (if (pair? ms-16865)
- (eq? (car ms-16865) #f)
+ (let ((id-16650 (vector-ref id-16602 1))
+ (w-16651
+ (let ((w-16662 (vector-ref id-16602 2)))
+ (let ((ms-16663 (car w-16662))
+ (s-16664 (cdr w-16662)))
+ (if (if (pair? ms-16663)
+ (eq? (car ms-16663) #f)
#f)
- (cons (cdr ms-16865)
- (if rib-16848
- (cons rib-16848 (cdr s-16866))
- (cdr s-16866)))
- (cons ms-16865
- (if rib-16848
- (cons rib-16848 s-16866)
- s-16866))))))
- (mod-16855 (vector-ref id-16804 3)))
- (let ((n-16858 (id-var-name-6568 id-16852 w-16853)))
- (if (symbol? n-16858)
- (let ((mod-16872
- (if (if (vector? id-16852)
- (if (= (vector-length id-16852) 4)
- (eq? (vector-ref id-16852 0)
+ (cons (cdr ms-16663)
+ (if rib-16646
+ (cons rib-16646 (cdr s-16664))
+ (cdr s-16664)))
+ (cons ms-16663
+ (if rib-16646
+ (cons rib-16646 s-16664)
+ s-16664))))))
+ (mod-16653 (vector-ref id-16602 3)))
+ (let ((n-16656 (id-var-name-6364 id-16650 w-16651)))
+ (if (symbol? n-16656)
+ (let ((mod-16670
+ (if (if (vector? id-16650)
+ (if (= (vector-length id-16650) 4)
+ (eq? (vector-ref id-16650 0)
'syntax-object)
#f)
#f)
- (vector-ref id-16852 3)
- mod-16855)))
- (let ((b-16873
- (let ((t-16874
- (get-global-definition-hook-6512
- n-16858
- mod-16872)))
- (if t-16874 t-16874 '(global)))))
- (if (eq? (car b-16873) 'global)
- (values 'global n-16858 mod-16872)
+ (vector-ref id-16650 3)
+ mod-16653)))
+ (let ((b-16671
+ (let ((t-16672
+ (get-global-definition-hook-6308
+ n-16656
+ mod-16670)))
+ (if t-16672 t-16672 '(global)))))
+ (if (eq? (car b-16671) 'global)
+ (values 'global n-16656 mod-16670)
(values
- (car b-16873)
- (cdr b-16873)
- mod-16872))))
- (if (string? n-16858)
- (let ((mod-16900
- (if (if (vector? id-16852)
- (if (= (vector-length id-16852) 4)
- (eq? (vector-ref id-16852 0)
+ (car b-16671)
+ (cdr b-16671)
+ mod-16670))))
+ (if (string? n-16656)
+ (let ((mod-16698
+ (if (if (vector? id-16650)
+ (if (= (vector-length id-16650) 4)
+ (eq? (vector-ref id-16650 0)
'syntax-object)
#f)
#f)
- (vector-ref id-16852 3)
- mod-16855)))
- (let ((b-16901
- (let ((t-16902
- (assq-ref r-16845 n-16858)))
- (if t-16902
- t-16902
+ (vector-ref id-16650 3)
+ mod-16653)))
+ (let ((b-16699
+ (let ((t-16700
+ (assq-ref r-16643 n-16656)))
+ (if t-16700
+ t-16700
'(displaced-lexical)))))
(values
- (car b-16901)
- (cdr b-16901)
- mod-16900)))
+ (car b-16699)
+ (cdr b-16699)
+ mod-16698)))
(error "unexpected id-var-name"
- id-16852
- w-16853
- n-16858))))))
- (lambda (type-16915 value-16916 mod-16917)
- (if (eqv? type-16915 'lexical)
- (values 'lexical value-16916)
- (if (eqv? type-16915 'macro)
- (values 'macro value-16916)
- (if (eqv? type-16915 'syntax)
- (values 'pattern-variable value-16916)
- (if (eqv? type-16915 'displaced-lexical)
+ id-16650
+ w-16651
+ n-16656))))))
+ (lambda (type-16713 value-16714 mod-16715)
+ (if (eqv? type-16713 'lexical)
+ (values 'lexical value-16714)
+ (if (eqv? type-16713 'macro)
+ (values 'macro value-16714)
+ (if (eqv? type-16713 'syntax)
+ (values 'pattern-variable value-16714)
+ (if (eqv? type-16713 'displaced-lexical)
(values 'displaced-lexical #f)
- (if (eqv? type-16915 'global)
+ (if (eqv? type-16713 'global)
(values
'global
- (cons value-16916 (cdr mod-16917)))
+ (cons value-16714 (cdr mod-16715)))
(values 'other #f)))))))))))))
- (syntax-locally-bound-identifiers-16672
- (lambda (id-16928)
+ (syntax-locally-bound-identifiers-16470
+ (lambda (id-16737)
(begin
- (if (not (if (if (vector? id-16928)
- (if (= (vector-length id-16928) 4)
- (eq? (vector-ref id-16928 0) 'syntax-object)
+ (if (not (if (if (vector? id-16737)
+ (if (= (vector-length id-16737) 4)
+ (eq? (vector-ref id-16737 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref id-16928 1))
+ (symbol? (vector-ref id-16737 1))
#f))
(syntax-violation
'syntax-locally-bound-identifiers
"invalid argument"
- id-16928))
- (locally-bound-identifiers-6569
- (vector-ref id-16928 2)
- (vector-ref id-16928 3))))))
+ id-16737))
+ (locally-bound-identifiers-6365
+ (vector-ref id-16737 2)
+ (vector-ref id-16737 3))))))
(begin
(define!
'syntax-module
- (lambda (id-16674)
+ (lambda (id-16472)
(begin
- (if (not (if (if (vector? id-16674)
- (if (= (vector-length id-16674) 4)
- (eq? (vector-ref id-16674 0) 'syntax-object)
+ (if (not (if (if (vector? id-16472)
+ (if (= (vector-length id-16472) 4)
+ (eq? (vector-ref id-16472 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref id-16674 1))
+ (symbol? (vector-ref id-16472 1))
#f))
(syntax-violation
'syntax-module
"invalid argument"
- id-16674))
- (cdr (vector-ref id-16674 3)))))
+ id-16472))
+ (cdr (vector-ref id-16472 3)))))
(define!
'syntax-local-binding
- syntax-local-binding-16671)
+ syntax-local-binding-16469)
(define!
'syntax-locally-bound-identifiers
- syntax-locally-bound-identifiers-16672)))
+ syntax-locally-bound-identifiers-16470)))
(letrec*
- ((match-each-17035
- (lambda (e-17622 p-17623 w-17624 mod-17625)
- (if (pair? e-17622)
- (let ((first-17626
- (match-17041
- (car e-17622)
- p-17623
- w-17624
+ ((match-each-16844
+ (lambda (e-17431 p-17432 w-17433 mod-17434)
+ (if (pair? e-17431)
+ (let ((first-17435
+ (match-16850
+ (car e-17431)
+ p-17432
+ w-17433
'()
- 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))
+ mod-17434)))
+ (if first-17435
+ (let ((rest-17438
+ (match-each-16844
+ (cdr e-17431)
+ p-17432
+ w-17433
+ mod-17434)))
+ (if rest-17438 (cons first-17435 rest-17438) #f))
#f))
- (if (null? e-17622)
+ (if (null? e-17431)
'()
- (if (if (vector? e-17622)
- (if (= (vector-length e-17622) 4)
- (eq? (vector-ref e-17622 0) 'syntax-object)
+ (if (if (vector? e-17431)
+ (if (= (vector-length e-17431) 4)
+ (eq? (vector-ref e-17431 0) 'syntax-object)
#f)
#f)
- (match-each-17035
- (vector-ref e-17622 1)
- p-17623
- (join-wraps-6565 w-17624 (vector-ref e-17622 2))
- (vector-ref e-17622 3))
+ (match-each-16844
+ (vector-ref e-17431 1)
+ p-17432
+ (join-wraps-6361 w-17433 (vector-ref e-17431 2))
+ (vector-ref e-17431 3))
#f)))))
- (match-each-any-17037
- (lambda (e-17657 w-17658 mod-17659)
- (if (pair? e-17657)
- (let ((l-17660
- (match-each-any-17037
- (cdr e-17657)
- w-17658
- mod-17659)))
- (if l-17660
- (cons (wrap-6578 (car e-17657) w-17658 mod-17659)
- l-17660)
+ (match-each-any-16846
+ (lambda (e-17466 w-17467 mod-17468)
+ (if (pair? e-17466)
+ (let ((l-17469
+ (match-each-any-16846
+ (cdr e-17466)
+ w-17467
+ mod-17468)))
+ (if l-17469
+ (cons (wrap-6374 (car e-17466) w-17467 mod-17468)
+ l-17469)
#f))
- (if (null? e-17657)
+ (if (null? e-17466)
'()
- (if (if (vector? e-17657)
- (if (= (vector-length e-17657) 4)
- (eq? (vector-ref e-17657 0) 'syntax-object)
+ (if (if (vector? e-17466)
+ (if (= (vector-length e-17466) 4)
+ (eq? (vector-ref e-17466 0) 'syntax-object)
#f)
#f)
- (match-each-any-17037
- (vector-ref e-17657 1)
- (join-wraps-6565 w-17658 (vector-ref e-17657 2))
- mod-17659)
+ (match-each-any-16846
+ (vector-ref e-17466 1)
+ (join-wraps-6361 w-17467 (vector-ref e-17466 2))
+ mod-17468)
#f)))))
- (match-empty-17038
- (lambda (p-17684 r-17685)
- (if (null? p-17684)
- r-17685
- (if (eq? p-17684 '_)
- r-17685
- (if (eq? p-17684 'any)
- (cons '() r-17685)
- (if (pair? p-17684)
- (match-empty-17038
- (car p-17684)
- (match-empty-17038 (cdr p-17684) r-17685))
- (if (eq? p-17684 'each-any)
- (cons '() r-17685)
- (let ((atom-key-17686 (vector-ref p-17684 0)))
- (if (eqv? atom-key-17686 'each)
- (match-empty-17038
- (vector-ref p-17684 1)
- r-17685)
- (if (eqv? atom-key-17686 'each+)
- (match-empty-17038
- (vector-ref p-17684 1)
- (match-empty-17038
- (reverse (vector-ref p-17684 2))
- (match-empty-17038
- (vector-ref p-17684 3)
- r-17685)))
- (if (if (eqv? atom-key-17686 'free-id)
+ (match-empty-16847
+ (lambda (p-17493 r-17494)
+ (if (null? p-17493)
+ r-17494
+ (if (eq? p-17493 '_)
+ r-17494
+ (if (eq? p-17493 'any)
+ (cons '() r-17494)
+ (if (pair? p-17493)
+ (match-empty-16847
+ (car p-17493)
+ (match-empty-16847 (cdr p-17493) r-17494))
+ (if (eq? p-17493 'each-any)
+ (cons '() r-17494)
+ (let ((key-17495 (vector-ref p-17493 0)))
+ (if (eqv? key-17495 'each)
+ (match-empty-16847
+ (vector-ref p-17493 1)
+ r-17494)
+ (if (eqv? key-17495 'each+)
+ (match-empty-16847
+ (vector-ref p-17493 1)
+ (match-empty-16847
+ (reverse (vector-ref p-17493 2))
+ (match-empty-16847
+ (vector-ref p-17493 3)
+ r-17494)))
+ (if (if (eqv? key-17495 'free-id)
#t
- (eqv? atom-key-17686 'atom))
- r-17685
- (if (eqv? atom-key-17686 'vector)
- (match-empty-17038
- (vector-ref p-17684 1)
- r-17685)))))))))))))
- (combine-17039
- (lambda (r*-17705 r-17706)
- (if (null? (car r*-17705))
- r-17706
- (cons (map car r*-17705)
- (combine-17039 (map cdr r*-17705) r-17706)))))
- (match*-17040
- (lambda (e-17070 p-17071 w-17072 r-17073 mod-17074)
- (if (null? p-17071)
- (if (null? e-17070) r-17073 #f)
- (if (pair? p-17071)
- (if (pair? e-17070)
- (match-17041
- (car e-17070)
- (car p-17071)
- w-17072
- (match-17041
- (cdr e-17070)
- (cdr p-17071)
- w-17072
- r-17073
- mod-17074)
- mod-17074)
+ (eqv? key-17495 'atom))
+ r-17494
+ (if (eqv? key-17495 'vector)
+ (match-empty-16847
+ (vector-ref p-17493 1)
+ r-17494)))))))))))))
+ (combine-16848
+ (lambda (r*-17514 r-17515)
+ (if (null? (car r*-17514))
+ r-17515
+ (cons (map car r*-17514)
+ (combine-16848 (map cdr r*-17514) r-17515)))))
+ (match*-16849
+ (lambda (e-16879 p-16880 w-16881 r-16882 mod-16883)
+ (if (null? p-16880)
+ (if (null? e-16879) r-16882 #f)
+ (if (pair? p-16880)
+ (if (pair? e-16879)
+ (match-16850
+ (car e-16879)
+ (car p-16880)
+ w-16881
+ (match-16850
+ (cdr e-16879)
+ (cdr p-16880)
+ w-16881
+ r-16882
+ mod-16883)
+ mod-16883)
#f)
- (if (eq? p-17071 'each-any)
- (let ((l-17079
- (match-each-any-17037 e-17070 w-17072 mod-17074)))
- (if l-17079 (cons l-17079 r-17073) #f))
- (let ((atom-key-17084 (vector-ref p-17071 0)))
- (if (eqv? atom-key-17084 'each)
- (if (null? e-17070)
- (match-empty-17038
- (vector-ref p-17071 1)
- r-17073)
- (let ((l-17091
- (match-each-17035
- e-17070
- (vector-ref p-17071 1)
- w-17072
- mod-17074)))
- (if l-17091
+ (if (eq? p-16880 'each-any)
+ (let ((l-16888
+ (match-each-any-16846 e-16879 w-16881 mod-16883)))
+ (if l-16888 (cons l-16888 r-16882) #f))
+ (let ((key-16893 (vector-ref p-16880 0)))
+ (if (eqv? key-16893 'each)
+ (if (null? e-16879)
+ (match-empty-16847
+ (vector-ref p-16880 1)
+ r-16882)
+ (let ((l-16900
+ (match-each-16844
+ e-16879
+ (vector-ref p-16880 1)
+ w-16881
+ mod-16883)))
+ (if l-16900
(letrec*
- ((collect-17094
- (lambda (l-17145)
- (if (null? (car l-17145))
- r-17073
- (cons (map car l-17145)
- (collect-17094
- (map cdr l-17145)))))))
- (collect-17094 l-17091))
+ ((collect-16903
+ (lambda (l-16954)
+ (if (null? (car l-16954))
+ r-16882
+ (cons (map car l-16954)
+ (collect-16903
+ (map cdr l-16954)))))))
+ (collect-16903 l-16900))
#f)))
- (if (eqv? atom-key-17084 'each+)
+ (if (eqv? key-16893 'each+)
(call-with-values
(lambda ()
- (let ((x-pat-17154 (vector-ref p-17071 1))
- (y-pat-17155 (vector-ref p-17071 2))
- (z-pat-17156 (vector-ref p-17071 3)))
+ (let ((x-pat-16963 (vector-ref p-16880 1))
+ (y-pat-16964 (vector-ref p-16880 2))
+ (z-pat-16965 (vector-ref p-16880 3)))
(letrec*
- ((f-17160
- (lambda (e-17162 w-17163)
- (if (pair? e-17162)
+ ((f-16969
+ (lambda (e-16971 w-16972)
+ (if (pair? e-16971)
(call-with-values
(lambda ()
- (f-17160 (cdr e-17162) w-17163))
- (lambda (xr*-17164
- y-pat-17165
- r-17166)
- (if r-17166
- (if (null? y-pat-17165)
- (let ((xr-17167
- (match-17041
- (car e-17162)
- x-pat-17154
- w-17163
+ (f-16969 (cdr e-16971) w-16972))
+ (lambda (xr*-16973
+ y-pat-16974
+ r-16975)
+ (if r-16975
+ (if (null? y-pat-16974)
+ (let ((xr-16976
+ (match-16850
+ (car e-16971)
+ x-pat-16963
+ w-16972
'()
- mod-17074)))
- (if xr-17167
+ mod-16883)))
+ (if xr-16976
(values
- (cons xr-17167 xr*-17164)
- y-pat-17165
- r-17166)
+ (cons xr-16976 xr*-16973)
+ y-pat-16974
+ r-16975)
(values #f #f #f)))
(values
'()
- (cdr y-pat-17165)
- (match-17041
- (car e-17162)
- (car y-pat-17165)
- w-17163
- r-17166
- mod-17074)))
+ (cdr y-pat-16974)
+ (match-16850
+ (car e-16971)
+ (car y-pat-16974)
+ w-16972
+ r-16975
+ mod-16883)))
(values #f #f #f))))
- (if (if (vector? e-17162)
- (if (= (vector-length e-17162) 4)
- (eq? (vector-ref e-17162 0)
+ (if (if (vector? e-16971)
+ (if (= (vector-length e-16971) 4)
+ (eq? (vector-ref e-16971 0)
'syntax-object)
#f)
#f)
- (f-17160
- (vector-ref e-17162 1)
- (join-wraps-6565 w-17163 e-17162))
+ (f-16969
+ (vector-ref e-16971 1)
+ (join-wraps-6361 w-16972 e-16971))
(values
'()
- y-pat-17155
- (match-17041
- e-17162
- z-pat-17156
- w-17163
- r-17073
- mod-17074)))))))
- (f-17160 e-17070 w-17072))))
- (lambda (xr*-17193 y-pat-17194 r-17195)
- (if r-17195
- (if (null? y-pat-17194)
- (if (null? xr*-17193)
- (match-empty-17038
- (vector-ref p-17071 1)
- r-17195)
- (combine-17039 xr*-17193 r-17195))
+ y-pat-16964
+ (match-16850
+ e-16971
+ z-pat-16965
+ w-16972
+ r-16882
+ mod-16883)))))))
+ (f-16969 e-16879 w-16881))))
+ (lambda (xr*-17002 y-pat-17003 r-17004)
+ (if r-17004
+ (if (null? y-pat-17003)
+ (if (null? xr*-17002)
+ (match-empty-16847
+ (vector-ref p-16880 1)
+ r-17004)
+ (combine-16848 xr*-17002 r-17004))
#f)
#f)))
- (if (eqv? atom-key-17084 'free-id)
- (if (if (symbol? e-17070)
+ (if (eqv? key-16893 'free-id)
+ (if (if (symbol? e-16879)
#t
- (if (if (vector? e-17070)
- (if (= (vector-length e-17070) 4)
- (eq? (vector-ref e-17070 0)
+ (if (if (vector? e-16879)
+ (if (= (vector-length e-16879) 4)
+ (eq? (vector-ref e-16879 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref e-17070 1))
+ (symbol? (vector-ref e-16879 1))
#f))
- (if (let ((i-17526
- (wrap-6578 e-17070 w-17072 mod-17074))
- (j-17527 (vector-ref p-17071 1)))
- (if (eq? (if (if (vector? i-17526)
+ (if (let ((i-17335
+ (wrap-6374 e-16879 w-16881 mod-16883))
+ (j-17336 (vector-ref p-16880 1)))
+ (if (eq? (if (if (vector? i-17335)
(if (= (vector-length
- i-17526)
+ i-17335)
4)
- (eq? (vector-ref i-17526 0)
+ (eq? (vector-ref i-17335 0)
'syntax-object)
#f)
#f)
- (vector-ref i-17526 1)
- i-17526)
- (if (if (vector? j-17527)
+ (vector-ref i-17335 1)
+ i-17335)
+ (if (if (vector? j-17336)
(if (= (vector-length
- j-17527)
+ j-17336)
4)
- (eq? (vector-ref j-17527 0)
+ (eq? (vector-ref j-17336 0)
'syntax-object)
#f)
#f)
- (vector-ref j-17527 1)
- j-17527))
- (eq? (id-var-name-6568 i-17526 '(()))
- (id-var-name-6568 j-17527 '(())))
+ (vector-ref j-17336 1)
+ j-17336))
+ (eq? (id-var-name-6364 i-17335 '(()))
+ (id-var-name-6364 j-17336 '(())))
#f))
- r-17073
+ r-16882
#f)
#f)
- (if (eqv? atom-key-17084 'atom)
+ (if (eqv? key-16893 'atom)
(if (equal?
- (vector-ref p-17071 1)
- (strip-6598 e-17070 w-17072))
- r-17073
+ (vector-ref p-16880 1)
+ (strip-6394 e-16879 w-16881))
+ r-16882
#f)
- (if (eqv? atom-key-17084 'vector)
- (if (vector? e-17070)
- (match-17041
- (vector->list e-17070)
- (vector-ref p-17071 1)
- w-17072
- r-17073
- mod-17074)
+ (if (eqv? key-16893 'vector)
+ (if (vector? e-16879)
+ (match-16850
+ (vector->list e-16879)
+ (vector-ref p-16880 1)
+ w-16881
+ r-16882
+ mod-16883)
#f))))))))))))
- (match-17041
- (lambda (e-17587 p-17588 w-17589 r-17590 mod-17591)
- (if (not r-17590)
+ (match-16850
+ (lambda (e-17396 p-17397 w-17398 r-17399 mod-17400)
+ (if (not r-17399)
#f
- (if (eq? p-17588 '_)
- r-17590
- (if (eq? p-17588 'any)
- (cons (wrap-6578 e-17587 w-17589 mod-17591)
- r-17590)
- (if (if (vector? e-17587)
- (if (= (vector-length e-17587) 4)
- (eq? (vector-ref e-17587 0) 'syntax-object)
+ (if (eq? p-17397 '_)
+ r-17399
+ (if (eq? p-17397 'any)
+ (cons (wrap-6374 e-17396 w-17398 mod-17400)
+ r-17399)
+ (if (if (vector? e-17396)
+ (if (= (vector-length e-17396) 4)
+ (eq? (vector-ref e-17396 0) 'syntax-object)
#f)
#f)
- (match*-17040
- (vector-ref e-17587 1)
- p-17588
- (join-wraps-6565 w-17589 (vector-ref e-17587 2))
- r-17590
- (vector-ref e-17587 3))
- (match*-17040
- e-17587
- p-17588
- w-17589
- r-17590
- mod-17591))))))))
+ (match*-16849
+ (vector-ref e-17396 1)
+ p-17397
+ (join-wraps-6361 w-17398 (vector-ref e-17396 2))
+ r-17399
+ (vector-ref e-17396 3))
+ (match*-16849
+ e-17396
+ p-17397
+ w-17398
+ r-17399
+ mod-17400))))))))
(set! $sc-dispatch
- (lambda (e-17042 p-17043)
- (if (eq? p-17043 'any)
- (list e-17042)
- (if (eq? p-17043 '_)
+ (lambda (e-16851 p-16852)
+ (if (eq? p-16852 'any)
+ (list e-16851)
+ (if (eq? p-16852 '_)
'()
- (if (if (vector? e-17042)
- (if (= (vector-length e-17042) 4)
- (eq? (vector-ref e-17042 0) 'syntax-object)
+ (if (if (vector? e-16851)
+ (if (= (vector-length e-16851) 4)
+ (eq? (vector-ref e-16851 0) 'syntax-object)
#f)
#f)
- (match*-17040
- (vector-ref e-17042 1)
- p-17043
- (vector-ref e-17042 2)
+ (match*-16849
+ (vector-ref e-16851 1)
+ p-16852
+ (vector-ref e-16851 2)
'()
- (vector-ref e-17042 3))
- (match*-17040 e-17042 p-17043 '(()) '() #f))))))))))
+ (vector-ref e-16851 3))
+ (match*-16849 e-16851 p-16852 '(()) '() #f))))))))))
(define with-syntax
(make-syntax-transformer
'with-syntax
'macro
- (lambda (x-29889)
- (let ((tmp-29891
- ($sc-dispatch x-29889 '(_ () any . each-any))))
- (if tmp-29891
+ (lambda (x-29838)
+ (let ((tmp-29840
+ ($sc-dispatch x-29838 '(_ () any . each-any))))
+ (if tmp-29840
(@apply
- (lambda (e1-29895 e2-29896)
+ (lambda (e1-29844 e2-29845)
(cons '#(syntax-object
let
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("l-*-29862" "l-*-29863"))
+ #("l-*-29811" "l-*-29812"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-29859")))
+ #(ribcage #(x) #((top)) #("l-*-29808")))
(hygiene guile))
- (cons '() (cons e1-29895 e2-29896))))
- tmp-29891)
- (let ((tmp-29897
+ (cons '() (cons e1-29844 e2-29845))))
+ tmp-29840)
+ (let ((tmp-29846
($sc-dispatch
- x-29889
+ x-29838
'(_ ((any any)) any . each-any))))
- (if tmp-29897
+ (if tmp-29846
(@apply
- (lambda (out-29901 in-29902 e1-29903 e2-29904)
+ (lambda (out-29850 in-29851 e1-29852 e2-29853)
(list '#(syntax-object
syntax-case
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("l-*-29868"
- "l-*-29869"
- "l-*-29870"
- "l-*-29871"))
+ #("l-*-29817"
+ "l-*-29818"
+ "l-*-29819"
+ "l-*-29820"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-29859")))
+ #(ribcage #(x) #((top)) #("l-*-29808")))
(hygiene guile))
- in-29902
+ in-29851
'()
- (list out-29901
+ (list out-29850
(cons '#(syntax-object
let
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("l-*-29868"
- "l-*-29869"
- "l-*-29870"
- "l-*-29871"))
+ #("l-*-29817"
+ "l-*-29818"
+ "l-*-29819"
+ "l-*-29820"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-29859")))
+ #("l-*-29808")))
(hygiene guile))
- (cons '() (cons e1-29903 e2-29904))))))
- tmp-29897)
- (let ((tmp-29905
+ (cons '() (cons e1-29852 e2-29853))))))
+ tmp-29846)
+ (let ((tmp-29854
($sc-dispatch
- x-29889
+ x-29838
'(_ #(each (any any)) any . each-any))))
- (if tmp-29905
+ (if tmp-29854
(@apply
- (lambda (out-29909 in-29910 e1-29911 e2-29912)
+ (lambda (out-29858 in-29859 e1-29860 e2-29861)
(list '#(syntax-object
syntax-case
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("l-*-29878"
- "l-*-29879"
- "l-*-29880"
- "l-*-29881"))
+ #("l-*-29827"
+ "l-*-29828"
+ "l-*-29829"
+ "l-*-29830"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-29859")))
+ #(ribcage #(x) #((top)) #("l-*-29808")))
(hygiene guile))
(cons '#(syntax-object
list
@@ -22324,66 +22346,66 @@
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("l-*-29878"
- "l-*-29879"
- "l-*-29880"
- "l-*-29881"))
+ #("l-*-29827"
+ "l-*-29828"
+ "l-*-29829"
+ "l-*-29830"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-29859")))
+ #(ribcage #(x) #((top)) #("l-*-29808")))
(hygiene guile))
- in-29910)
+ in-29859)
'()
- (list out-29909
+ (list out-29858
(cons '#(syntax-object
let
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("l-*-29878"
- "l-*-29879"
- "l-*-29880"
- "l-*-29881"))
+ #("l-*-29827"
+ "l-*-29828"
+ "l-*-29829"
+ "l-*-29830"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-29859")))
+ #("l-*-29808")))
(hygiene guile))
- (cons '() (cons e1-29911 e2-29912))))))
- tmp-29905)
+ (cons '() (cons e1-29860 e2-29861))))))
+ tmp-29854)
(syntax-violation
#f
"source expression failed to match any pattern"
- x-29889))))))))))
+ x-29838))))))))))
(define syntax-rules
(make-syntax-transformer
'syntax-rules
'macro
- (lambda (x-29966)
- (let ((tmp-29968
+ (lambda (x-29915)
+ (let ((tmp-29917
($sc-dispatch
- x-29966
+ x-29915
'(_ each-any . #(each ((any . any) any))))))
- (if tmp-29968
+ (if tmp-29917
(@apply
- (lambda (k-29972
- keyword-29973
- pattern-29974
- template-29975)
+ (lambda (k-29921
+ keyword-29922
+ pattern-29923
+ template-29924)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("l-*-29929"
- "l-*-29930"
- "l-*-29931"
- "l-*-29932"))
+ #("l-*-29878"
+ "l-*-29879"
+ "l-*-29880"
+ "l-*-29881"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-29926")))
+ #(ribcage #(x) #((top)) #("l-*-29875")))
(hygiene guile))
'(#(syntax-object
x
@@ -22391,12 +22413,12 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("l-*-29929"
- "l-*-29930"
- "l-*-29931"
- "l-*-29932"))
+ #("l-*-29878"
+ "l-*-29879"
+ "l-*-29880"
+ "l-*-29881"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-29926")))
+ #(ribcage #(x) #((top)) #("l-*-29875")))
(hygiene guile)))
(vector
'(#(syntax-object
@@ -22405,12 +22427,12 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("l-*-29929"
- "l-*-29930"
- "l-*-29931"
- "l-*-29932"))
+ #("l-*-29878"
+ "l-*-29879"
+ "l-*-29880"
+ "l-*-29881"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-29926")))
+ #(ribcage #(x) #((top)) #("l-*-29875")))
(hygiene guile))
.
#(syntax-object
@@ -22419,12 +22441,12 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("l-*-29929"
- "l-*-29930"
- "l-*-29931"
- "l-*-29932"))
+ #("l-*-29878"
+ "l-*-29879"
+ "l-*-29880"
+ "l-*-29881"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-29926")))
+ #(ribcage #(x) #((top)) #("l-*-29875")))
(hygiene guile)))
(cons '#(syntax-object
patterns
@@ -22432,26 +22454,26 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("l-*-29929"
- "l-*-29930"
- "l-*-29931"
- "l-*-29932"))
+ #("l-*-29878"
+ "l-*-29879"
+ "l-*-29880"
+ "l-*-29881"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-29926")))
+ #(ribcage #(x) #((top)) #("l-*-29875")))
(hygiene guile))
- pattern-29974))
+ pattern-29923))
(cons '#(syntax-object
syntax-case
((top)
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("l-*-29929"
- "l-*-29930"
- "l-*-29931"
- "l-*-29932"))
+ #("l-*-29878"
+ "l-*-29879"
+ "l-*-29880"
+ "l-*-29881"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-29926")))
+ #(ribcage #(x) #((top)) #("l-*-29875")))
(hygiene guile))
(cons '#(syntax-object
x
@@ -22459,16 +22481,16 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("l-*-29929"
- "l-*-29930"
- "l-*-29931"
- "l-*-29932"))
+ #("l-*-29878"
+ "l-*-29879"
+ "l-*-29880"
+ "l-*-29881"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-29926")))
+ #(ribcage #(x) #((top)) #("l-*-29875")))
(hygiene guile))
- (cons k-29972
- (map (lambda (tmp-29940-29976
- tmp-29939-29977)
+ (cons k-29921
+ (map (lambda (tmp-29889-29925
+ tmp-29888-29926)
(list (cons '#(syntax-object
dummy
((top)
@@ -22481,10 +22503,10 @@
(top)
(top)
(top))
- #("l-*-29929"
- "l-*-29930"
- "l-*-29931"
- "l-*-29932"))
+ #("l-*-29878"
+ "l-*-29879"
+ "l-*-29880"
+ "l-*-29881"))
#(ribcage
()
()
@@ -22492,9 +22514,9 @@
#(ribcage
#(x)
#((top))
- #("l-*-29926")))
+ #("l-*-29875")))
(hygiene guile))
- tmp-29939-29977)
+ tmp-29888-29926)
(list '#(syntax-object
syntax
((top)
@@ -22507,10 +22529,10 @@
(top)
(top)
(top))
- #("l-*-29929"
- "l-*-29930"
- "l-*-29931"
- "l-*-29932"))
+ #("l-*-29878"
+ "l-*-29879"
+ "l-*-29880"
+ "l-*-29881"))
#(ribcage
()
()
@@ -22518,45 +22540,45 @@
#(ribcage
#(x)
#((top))
- #("l-*-29926")))
+ #("l-*-29875")))
(hygiene guile))
- tmp-29940-29976)))
- template-29975
- pattern-29974))))))
- tmp-29968)
- (let ((tmp-29978
+ tmp-29889-29925)))
+ template-29924
+ pattern-29923))))))
+ tmp-29917)
+ (let ((tmp-29927
($sc-dispatch
- x-29966
+ x-29915
'(_ each-any any . #(each ((any . any) any))))))
- (if (if tmp-29978
+ (if (if tmp-29927
(@apply
- (lambda (k-29982
- docstring-29983
- keyword-29984
- pattern-29985
- template-29986)
- (string? (syntax->datum docstring-29983)))
- tmp-29978)
+ (lambda (k-29931
+ docstring-29932
+ keyword-29933
+ pattern-29934
+ template-29935)
+ (string? (syntax->datum docstring-29932)))
+ tmp-29927)
#f)
(@apply
- (lambda (k-29987
- docstring-29988
- keyword-29989
- pattern-29990
- template-29991)
+ (lambda (k-29936
+ docstring-29937
+ keyword-29938
+ pattern-29939
+ template-29940)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("l-*-29952"
- "l-*-29953"
- "l-*-29954"
- "l-*-29955"
- "l-*-29956"))
+ #("l-*-29901"
+ "l-*-29902"
+ "l-*-29903"
+ "l-*-29904"
+ "l-*-29905"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-29926")))
+ #(ribcage #(x) #((top)) #("l-*-29875")))
(hygiene guile))
'(#(syntax-object
x
@@ -22564,15 +22586,15 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("l-*-29952"
- "l-*-29953"
- "l-*-29954"
- "l-*-29955"
- "l-*-29956"))
+ #("l-*-29901"
+ "l-*-29902"
+ "l-*-29903"
+ "l-*-29904"
+ "l-*-29905"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-29926")))
+ #(ribcage #(x) #((top)) #("l-*-29875")))
(hygiene guile)))
- docstring-29988
+ docstring-29937
(vector
'(#(syntax-object
macro-type
@@ -22580,13 +22602,13 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("l-*-29952"
- "l-*-29953"
- "l-*-29954"
- "l-*-29955"
- "l-*-29956"))
+ #("l-*-29901"
+ "l-*-29902"
+ "l-*-29903"
+ "l-*-29904"
+ "l-*-29905"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-29926")))
+ #(ribcage #(x) #((top)) #("l-*-29875")))
(hygiene guile))
.
#(syntax-object
@@ -22595,13 +22617,13 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("l-*-29952"
- "l-*-29953"
- "l-*-29954"
- "l-*-29955"
- "l-*-29956"))
+ #("l-*-29901"
+ "l-*-29902"
+ "l-*-29903"
+ "l-*-29904"
+ "l-*-29905"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-29926")))
+ #(ribcage #(x) #((top)) #("l-*-29875")))
(hygiene guile)))
(cons '#(syntax-object
patterns
@@ -22609,28 +22631,28 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("l-*-29952"
- "l-*-29953"
- "l-*-29954"
- "l-*-29955"
- "l-*-29956"))
+ #("l-*-29901"
+ "l-*-29902"
+ "l-*-29903"
+ "l-*-29904"
+ "l-*-29905"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-29926")))
+ #(ribcage #(x) #((top)) #("l-*-29875")))
(hygiene guile))
- pattern-29990))
+ pattern-29939))
(cons '#(syntax-object
syntax-case
((top)
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("l-*-29952"
- "l-*-29953"
- "l-*-29954"
- "l-*-29955"
- "l-*-29956"))
+ #("l-*-29901"
+ "l-*-29902"
+ "l-*-29903"
+ "l-*-29904"
+ "l-*-29905"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-29926")))
+ #(ribcage #(x) #((top)) #("l-*-29875")))
(hygiene guile))
(cons '#(syntax-object
x
@@ -22642,20 +22664,20 @@
pattern
template)
#((top) (top) (top) (top) (top))
- #("l-*-29952"
- "l-*-29953"
- "l-*-29954"
- "l-*-29955"
- "l-*-29956"))
+ #("l-*-29901"
+ "l-*-29902"
+ "l-*-29903"
+ "l-*-29904"
+ "l-*-29905"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-29926")))
+ #("l-*-29875")))
(hygiene guile))
- (cons k-29987
- (map (lambda (tmp-29965-29992
- tmp-29964-29993)
+ (cons k-29936
+ (map (lambda (tmp-29914-29941
+ tmp-29913-29942)
(list (cons '#(syntax-object
dummy
((top)
@@ -22670,11 +22692,11 @@
(top)
(top)
(top))
- #("l-*-29952"
- "l-*-29953"
- "l-*-29954"
- "l-*-29955"
- "l-*-29956"))
+ #("l-*-29901"
+ "l-*-29902"
+ "l-*-29903"
+ "l-*-29904"
+ "l-*-29905"))
#(ribcage
()
()
@@ -22682,10 +22704,10 @@
#(ribcage
#(x)
#((top))
- #("l-*-29926")))
+ #("l-*-29875")))
(hygiene
guile))
- tmp-29964-29993)
+ tmp-29913-29942)
(list '#(syntax-object
syntax
((top)
@@ -22700,11 +22722,11 @@
(top)
(top)
(top))
- #("l-*-29952"
- "l-*-29953"
- "l-*-29954"
- "l-*-29955"
- "l-*-29956"))
+ #("l-*-29901"
+ "l-*-29902"
+ "l-*-29903"
+ "l-*-29904"
+ "l-*-29905"))
#(ribcage
()
()
@@ -22712,48 +22734,48 @@
#(ribcage
#(x)
#((top))
- #("l-*-29926")))
+ #("l-*-29875")))
(hygiene
guile))
- tmp-29965-29992)))
- template-29991
- pattern-29990))))))
- tmp-29978)
+ tmp-29914-29941)))
+ template-29940
+ pattern-29939))))))
+ tmp-29927)
(syntax-violation
#f
"source expression failed to match any pattern"
- x-29966))))))))
+ x-29915))))))))
(define define-syntax-rule
(make-syntax-transformer
'define-syntax-rule
'macro
- (lambda (x-30030)
- (let ((tmp-30032
- ($sc-dispatch x-30030 '(_ (any . any) any))))
- (if tmp-30032
+ (lambda (x-29979)
+ (let ((tmp-29981
+ ($sc-dispatch x-29979 '(_ (any . any) any))))
+ (if tmp-29981
(@apply
- (lambda (name-30036 pattern-30037 template-30038)
+ (lambda (name-29985 pattern-29986 template-29987)
(list '#(syntax-object
define-syntax
((top)
#(ribcage
#(name pattern template)
#((top) (top) (top))
- #("l-*-30007" "l-*-30008" "l-*-30009"))
+ #("l-*-29956" "l-*-29957" "l-*-29958"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-30004")))
+ #(ribcage #(x) #((top)) #("l-*-29953")))
(hygiene guile))
- name-30036
+ name-29985
(list '#(syntax-object
syntax-rules
((top)
#(ribcage
#(name pattern template)
#((top) (top) (top))
- #("l-*-30007" "l-*-30008" "l-*-30009"))
+ #("l-*-29956" "l-*-29957" "l-*-29958"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-30004")))
+ #(ribcage #(x) #((top)) #("l-*-29953")))
(hygiene guile))
'()
(list (cons '#(syntax-object
@@ -22762,63 +22784,63 @@
#(ribcage
#(name pattern template)
#((top) (top) (top))
- #("l-*-30007"
- "l-*-30008"
- "l-*-30009"))
+ #("l-*-29956"
+ "l-*-29957"
+ "l-*-29958"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-30004")))
+ #("l-*-29953")))
(hygiene guile))
- pattern-30037)
- template-30038))))
- tmp-30032)
- (let ((tmp-30039
- ($sc-dispatch x-30030 '(_ (any . any) any any))))
- (if (if tmp-30039
+ pattern-29986)
+ template-29987))))
+ tmp-29981)
+ (let ((tmp-29988
+ ($sc-dispatch x-29979 '(_ (any . any) any any))))
+ (if (if tmp-29988
(@apply
- (lambda (name-30043
- pattern-30044
- docstring-30045
- template-30046)
- (string? (syntax->datum docstring-30045)))
- tmp-30039)
+ (lambda (name-29992
+ pattern-29993
+ docstring-29994
+ template-29995)
+ (string? (syntax->datum docstring-29994)))
+ tmp-29988)
#f)
(@apply
- (lambda (name-30047
- pattern-30048
- docstring-30049
- template-30050)
+ (lambda (name-29996
+ pattern-29997
+ docstring-29998
+ template-29999)
(list '#(syntax-object
define-syntax
((top)
#(ribcage
#(name pattern docstring template)
#((top) (top) (top) (top))
- #("l-*-30022"
- "l-*-30023"
- "l-*-30024"
- "l-*-30025"))
+ #("l-*-29971"
+ "l-*-29972"
+ "l-*-29973"
+ "l-*-29974"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-30004")))
+ #(ribcage #(x) #((top)) #("l-*-29953")))
(hygiene guile))
- name-30047
+ name-29996
(list '#(syntax-object
syntax-rules
((top)
#(ribcage
#(name pattern docstring template)
#((top) (top) (top) (top))
- #("l-*-30022"
- "l-*-30023"
- "l-*-30024"
- "l-*-30025"))
+ #("l-*-29971"
+ "l-*-29972"
+ "l-*-29973"
+ "l-*-29974"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-30004")))
+ #(ribcage #(x) #((top)) #("l-*-29953")))
(hygiene guile))
'()
- docstring-30049
+ docstring-29998
(list (cons '#(syntax-object
_
((top)
@@ -22828,45 +22850,45 @@
docstring
template)
#((top) (top) (top) (top))
- #("l-*-30022"
- "l-*-30023"
- "l-*-30024"
- "l-*-30025"))
+ #("l-*-29971"
+ "l-*-29972"
+ "l-*-29973"
+ "l-*-29974"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-30004")))
+ #("l-*-29953")))
(hygiene guile))
- pattern-30048)
- template-30050))))
- tmp-30039)
+ pattern-29997)
+ template-29999))))
+ tmp-29988)
(syntax-violation
#f
"source expression failed to match any pattern"
- x-30030))))))))
+ x-29979))))))))
(define let*
(make-syntax-transformer
'let*
'macro
- (lambda (x-30099)
- (let ((tmp-30101
+ (lambda (x-30048)
+ (let ((tmp-30050
($sc-dispatch
- x-30099
+ x-30048
'(any #(each (any any)) any . each-any))))
- (if (if tmp-30101
+ (if (if tmp-30050
(@apply
- (lambda (let*-30105 x-30106 v-30107 e1-30108 e2-30109)
- (and-map identifier? x-30106))
- tmp-30101)
+ (lambda (let*-30054 x-30055 v-30056 e1-30057 e2-30058)
+ (and-map identifier? x-30055))
+ tmp-30050)
#f)
(@apply
- (lambda (let*-30110 x-30111 v-30112 e1-30113 e2-30114)
+ (lambda (let*-30059 x-30060 v-30061 e1-30062 e2-30063)
(letrec*
- ((f-30115
- (lambda (bindings-30118)
- (if (null? bindings-30118)
+ ((f-30064
+ (lambda (bindings-30067)
+ (if (null? bindings-30067)
(cons '#(syntax-object
let
((top)
@@ -22874,26 +22896,26 @@
#(ribcage
#(f bindings)
#((top) (top))
- #("l-*-30085" "l-*-30086"))
+ #("l-*-30034" "l-*-30035"))
#(ribcage
#(let* x v e1 e2)
#((top) (top) (top) (top) (top))
- #("l-*-30075"
- "l-*-30076"
- "l-*-30077"
- "l-*-30078"
- "l-*-30079"))
+ #("l-*-30024"
+ "l-*-30025"
+ "l-*-30026"
+ "l-*-30027"
+ "l-*-30028"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-30061")))
+ #(ribcage #(x) #((top)) #("l-*-30010")))
(hygiene guile))
- (cons '() (cons e1-30113 e2-30114)))
- (let ((tmp-30119
- (list (f-30115 (cdr bindings-30118))
- (car bindings-30118))))
- (let ((tmp-30120 ($sc-dispatch tmp-30119 '(any any))))
- (if tmp-30120
+ (cons '() (cons e1-30062 e2-30063)))
+ (let ((tmp-30068
+ (list (f-30064 (cdr bindings-30067))
+ (car bindings-30067))))
+ (let ((tmp-30069 ($sc-dispatch tmp-30068 '(any any))))
+ (if tmp-30069
(@apply
- (lambda (body-30122 binding-30123)
+ (lambda (body-30071 binding-30072)
(list '#(syntax-object
let
((top)
@@ -22901,84 +22923,84 @@
#(ribcage
#(body binding)
#((top) (top))
- #("l-*-30095" "l-*-30096"))
+ #("l-*-30044" "l-*-30045"))
#(ribcage () () ())
#(ribcage
#(f bindings)
#((top) (top))
- #("l-*-30085" "l-*-30086"))
+ #("l-*-30034" "l-*-30035"))
#(ribcage
#(let* x v e1 e2)
#((top) (top) (top) (top) (top))
- #("l-*-30075"
- "l-*-30076"
- "l-*-30077"
- "l-*-30078"
- "l-*-30079"))
+ #("l-*-30024"
+ "l-*-30025"
+ "l-*-30026"
+ "l-*-30027"
+ "l-*-30028"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-30061")))
+ #("l-*-30010")))
(hygiene guile))
- (list binding-30123)
- body-30122))
- tmp-30120)
+ (list binding-30072)
+ body-30071))
+ tmp-30069)
(syntax-violation
#f
"source expression failed to match any pattern"
- tmp-30119))))))))
- (f-30115 (map list x-30111 v-30112))))
- tmp-30101)
+ tmp-30068))))))))
+ (f-30064 (map list x-30060 v-30061))))
+ tmp-30050)
(syntax-violation
#f
"source expression failed to match any pattern"
- x-30099))))))
+ x-30048))))))
(define do
(make-syntax-transformer
'do
'macro
- (lambda (orig-x-30181)
- (let ((tmp-30183
+ (lambda (orig-x-30130)
+ (let ((tmp-30132
($sc-dispatch
- orig-x-30181
+ orig-x-30130
'(_ #(each (any any . any))
(any . each-any)
.
each-any))))
- (if tmp-30183
+ (if tmp-30132
(@apply
- (lambda (var-30187
- init-30188
- step-30189
- e0-30190
- e1-30191
- c-30192)
- (let ((tmp-30193
- (map (lambda (v-30196 s-30197)
- (let ((tmp-30199 ($sc-dispatch s-30197 '())))
- (if tmp-30199
- (@apply (lambda () v-30196) tmp-30199)
- (let ((tmp-30202
- ($sc-dispatch s-30197 '(any))))
- (if tmp-30202
+ (lambda (var-30136
+ init-30137
+ step-30138
+ e0-30139
+ e1-30140
+ c-30141)
+ (let ((tmp-30142
+ (map (lambda (v-30145 s-30146)
+ (let ((tmp-30148 ($sc-dispatch s-30146 '())))
+ (if tmp-30148
+ (@apply (lambda () v-30145) tmp-30148)
+ (let ((tmp-30151
+ ($sc-dispatch s-30146 '(any))))
+ (if tmp-30151
(@apply
- (lambda (e-30205) e-30205)
- tmp-30202)
+ (lambda (e-30154) e-30154)
+ tmp-30151)
(syntax-violation
'do
"bad step expression"
- orig-x-30181
- s-30197))))))
- var-30187
- step-30189)))
- (let ((tmp-30194 ($sc-dispatch tmp-30193 'each-any)))
- (if tmp-30194
+ orig-x-30130
+ s-30146))))))
+ var-30136
+ step-30138)))
+ (let ((tmp-30143 ($sc-dispatch tmp-30142 'each-any)))
+ (if tmp-30143
(@apply
- (lambda (step-30211)
- (let ((tmp-30213 ($sc-dispatch e1-30191 '())))
- (if tmp-30213
+ (lambda (step-30160)
+ (let ((tmp-30162 ($sc-dispatch e1-30140 '())))
+ (if tmp-30162
(@apply
(lambda ()
(list '#(syntax-object
@@ -22988,7 +23010,7 @@
#(ribcage
#(step)
#((top))
- #("l-*-30149"))
+ #("l-*-30098"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -22997,17 +23019,17 @@
(top)
(top)
(top))
- #("l-*-30134"
- "l-*-30135"
- "l-*-30136"
- "l-*-30137"
- "l-*-30138"
- "l-*-30139"))
+ #("l-*-30083"
+ "l-*-30084"
+ "l-*-30085"
+ "l-*-30086"
+ "l-*-30087"
+ "l-*-30088"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("l-*-30131")))
+ #("l-*-30080")))
(hygiene guile))
'#(syntax-object
doloop
@@ -23016,7 +23038,7 @@
#(ribcage
#(step)
#((top))
- #("l-*-30149"))
+ #("l-*-30098"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -23025,19 +23047,19 @@
(top)
(top)
(top))
- #("l-*-30134"
- "l-*-30135"
- "l-*-30136"
- "l-*-30137"
- "l-*-30138"
- "l-*-30139"))
+ #("l-*-30083"
+ "l-*-30084"
+ "l-*-30085"
+ "l-*-30086"
+ "l-*-30087"
+ "l-*-30088"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("l-*-30131")))
+ #("l-*-30080")))
(hygiene guile))
- (map list var-30187 init-30188)
+ (map list var-30136 init-30137)
(list '#(syntax-object
if
((top)
@@ -23045,7 +23067,7 @@
#(ribcage
#(step)
#((top))
- #("l-*-30149"))
+ #("l-*-30098"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -23054,17 +23076,17 @@
(top)
(top)
(top))
- #("l-*-30134"
- "l-*-30135"
- "l-*-30136"
- "l-*-30137"
- "l-*-30138"
- "l-*-30139"))
+ #("l-*-30083"
+ "l-*-30084"
+ "l-*-30085"
+ "l-*-30086"
+ "l-*-30087"
+ "l-*-30088"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("l-*-30131")))
+ #("l-*-30080")))
(hygiene guile))
(list '#(syntax-object
not
@@ -23073,7 +23095,7 @@
#(ribcage
#(step)
#((top))
- #("l-*-30149"))
+ #("l-*-30098"))
#(ribcage
#(var
init
@@ -23087,19 +23109,19 @@
(top)
(top)
(top))
- #("l-*-30134"
- "l-*-30135"
- "l-*-30136"
- "l-*-30137"
- "l-*-30138"
- "l-*-30139"))
+ #("l-*-30083"
+ "l-*-30084"
+ "l-*-30085"
+ "l-*-30086"
+ "l-*-30087"
+ "l-*-30088"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("l-*-30131")))
+ #("l-*-30080")))
(hygiene guile))
- e0-30190)
+ e0-30139)
(cons '#(syntax-object
begin
((top)
@@ -23107,7 +23129,7 @@
#(ribcage
#(step)
#((top))
- #("l-*-30149"))
+ #("l-*-30098"))
#(ribcage
#(var
init
@@ -23121,20 +23143,20 @@
(top)
(top)
(top))
- #("l-*-30134"
- "l-*-30135"
- "l-*-30136"
- "l-*-30137"
- "l-*-30138"
- "l-*-30139"))
+ #("l-*-30083"
+ "l-*-30084"
+ "l-*-30085"
+ "l-*-30086"
+ "l-*-30087"
+ "l-*-30088"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("l-*-30131")))
+ #("l-*-30080")))
(hygiene guile))
(append
- c-30192
+ c-30141
(list (cons '#(syntax-object
doloop
((top)
@@ -23145,7 +23167,7 @@
#(ribcage
#(step)
#((top))
- #("l-*-30149"))
+ #("l-*-30098"))
#(ribcage
#(var
init
@@ -23159,12 +23181,12 @@
(top)
(top)
(top))
- #("l-*-30134"
- "l-*-30135"
- "l-*-30136"
- "l-*-30137"
- "l-*-30138"
- "l-*-30139"))
+ #("l-*-30083"
+ "l-*-30084"
+ "l-*-30085"
+ "l-*-30086"
+ "l-*-30087"
+ "l-*-30088"))
#(ribcage
()
()
@@ -23172,28 +23194,28 @@
#(ribcage
#(orig-x)
#((top))
- #("l-*-30131")))
+ #("l-*-30080")))
(hygiene
guile))
- step-30211)))))))
- tmp-30213)
- (let ((tmp-30217
- ($sc-dispatch e1-30191 '(any . each-any))))
- (if tmp-30217
+ step-30160)))))))
+ tmp-30162)
+ (let ((tmp-30166
+ ($sc-dispatch e1-30140 '(any . each-any))))
+ (if tmp-30166
(@apply
- (lambda (e1-30221 e2-30222)
+ (lambda (e1-30170 e2-30171)
(list '#(syntax-object
let
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("l-*-30158" "l-*-30159"))
+ #("l-*-30107" "l-*-30108"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("l-*-30149"))
+ #("l-*-30098"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -23202,17 +23224,17 @@
(top)
(top)
(top))
- #("l-*-30134"
- "l-*-30135"
- "l-*-30136"
- "l-*-30137"
- "l-*-30138"
- "l-*-30139"))
+ #("l-*-30083"
+ "l-*-30084"
+ "l-*-30085"
+ "l-*-30086"
+ "l-*-30087"
+ "l-*-30088"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("l-*-30131")))
+ #("l-*-30080")))
(hygiene guile))
'#(syntax-object
doloop
@@ -23220,12 +23242,12 @@
#(ribcage
#(e1 e2)
#((top) (top))
- #("l-*-30158" "l-*-30159"))
+ #("l-*-30107" "l-*-30108"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("l-*-30149"))
+ #("l-*-30098"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -23234,32 +23256,32 @@
(top)
(top)
(top))
- #("l-*-30134"
- "l-*-30135"
- "l-*-30136"
- "l-*-30137"
- "l-*-30138"
- "l-*-30139"))
+ #("l-*-30083"
+ "l-*-30084"
+ "l-*-30085"
+ "l-*-30086"
+ "l-*-30087"
+ "l-*-30088"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("l-*-30131")))
+ #("l-*-30080")))
(hygiene guile))
- (map list var-30187 init-30188)
+ (map list var-30136 init-30137)
(list '#(syntax-object
if
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("l-*-30158"
- "l-*-30159"))
+ #("l-*-30107"
+ "l-*-30108"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("l-*-30149"))
+ #("l-*-30098"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -23268,32 +23290,32 @@
(top)
(top)
(top))
- #("l-*-30134"
- "l-*-30135"
- "l-*-30136"
- "l-*-30137"
- "l-*-30138"
- "l-*-30139"))
+ #("l-*-30083"
+ "l-*-30084"
+ "l-*-30085"
+ "l-*-30086"
+ "l-*-30087"
+ "l-*-30088"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("l-*-30131")))
+ #("l-*-30080")))
(hygiene guile))
- e0-30190
+ e0-30139
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("l-*-30158"
- "l-*-30159"))
+ #("l-*-30107"
+ "l-*-30108"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("l-*-30149"))
+ #("l-*-30098"))
#(ribcage
#(var
init
@@ -23307,32 +23329,32 @@
(top)
(top)
(top))
- #("l-*-30134"
- "l-*-30135"
- "l-*-30136"
- "l-*-30137"
- "l-*-30138"
- "l-*-30139"))
+ #("l-*-30083"
+ "l-*-30084"
+ "l-*-30085"
+ "l-*-30086"
+ "l-*-30087"
+ "l-*-30088"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("l-*-30131")))
+ #("l-*-30080")))
(hygiene guile))
- (cons e1-30221 e2-30222))
+ (cons e1-30170 e2-30171))
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("l-*-30158"
- "l-*-30159"))
+ #("l-*-30107"
+ "l-*-30108"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("l-*-30149"))
+ #("l-*-30098"))
#(ribcage
#(var
init
@@ -23346,20 +23368,20 @@
(top)
(top)
(top))
- #("l-*-30134"
- "l-*-30135"
- "l-*-30136"
- "l-*-30137"
- "l-*-30138"
- "l-*-30139"))
+ #("l-*-30083"
+ "l-*-30084"
+ "l-*-30085"
+ "l-*-30086"
+ "l-*-30087"
+ "l-*-30088"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("l-*-30131")))
+ #("l-*-30080")))
(hygiene guile))
(append
- c-30192
+ c-30141
(list (cons '#(syntax-object
doloop
((top)
@@ -23368,8 +23390,8 @@
e2)
#((top)
(top))
- #("l-*-30158"
- "l-*-30159"))
+ #("l-*-30107"
+ "l-*-30108"))
#(ribcage
()
()
@@ -23377,7 +23399,7 @@
#(ribcage
#(step)
#((top))
- #("l-*-30149"))
+ #("l-*-30098"))
#(ribcage
#(var
init
@@ -23391,12 +23413,12 @@
(top)
(top)
(top))
- #("l-*-30134"
- "l-*-30135"
- "l-*-30136"
- "l-*-30137"
- "l-*-30138"
- "l-*-30139"))
+ #("l-*-30083"
+ "l-*-30084"
+ "l-*-30085"
+ "l-*-30086"
+ "l-*-30087"
+ "l-*-30088"))
#(ribcage
()
()
@@ -23404,36 +23426,36 @@
#(ribcage
#(orig-x)
#((top))
- #("l-*-30131")))
+ #("l-*-30080")))
(hygiene
guile))
- step-30211)))))))
- tmp-30217)
+ step-30160)))))))
+ tmp-30166)
(syntax-violation
#f
"source expression failed to match any pattern"
- e1-30191))))))
- tmp-30194)
+ e1-30140))))))
+ tmp-30143)
(syntax-violation
#f
"source expression failed to match any pattern"
- tmp-30193)))))
- tmp-30183)
+ tmp-30142)))))
+ tmp-30132)
(syntax-violation
#f
"source expression failed to match any pattern"
- orig-x-30181))))))
+ orig-x-30130))))))
(define quasiquote
(make-syntax-transformer
'quasiquote
'macro
(letrec*
- ((quasi-30508
- (lambda (p-30532 lev-30533)
- (let ((tmp-30535
+ ((quasi-30451
+ (lambda (p-30475 lev-30476)
+ (let ((tmp-30478
($sc-dispatch
- p-30532
+ p-30475
'(#(free-id
#(syntax-object
unquote
@@ -23442,7 +23464,7 @@
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-30254" "l-*-30255"))
+ #("l-*-30203" "l-*-30204"))
#(ribcage
(emit quasivector
quasilist*
@@ -23451,28 +23473,28 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-30199"
+ "l-*-30197"
+ "l-*-30195"
+ "l-*-30193"
+ "l-*-30191"
+ "l-*-30189"
+ "l-*-30187")))
(hygiene guile)))
any))))
- (if tmp-30535
+ (if tmp-30478
(@apply
- (lambda (p-30539)
- (if (= lev-30533 0)
+ (lambda (p-30482)
+ (if (= lev-30476 0)
(list '#(syntax-object
"value"
((top)
- #(ribcage #(p) #((top)) #("l-*-30258"))
+ #(ribcage #(p) #((top)) #("l-*-30207"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-30254" "l-*-30255"))
+ #("l-*-30203" "l-*-30204"))
#(ribcage
(emit quasivector
quasilist*
@@ -23481,25 +23503,25 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-30199"
+ "l-*-30197"
+ "l-*-30195"
+ "l-*-30193"
+ "l-*-30191"
+ "l-*-30189"
+ "l-*-30187")))
(hygiene guile))
- p-30539)
- (quasicons-30510
+ p-30482)
+ (quasicons-30453
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("l-*-30258"))
+ #(ribcage #(p) #((top)) #("l-*-30207"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-30254" "l-*-30255"))
+ #("l-*-30203" "l-*-30204"))
#(ribcage
(emit quasivector
quasilist*
@@ -23508,23 +23530,23 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-30199"
+ "l-*-30197"
+ "l-*-30195"
+ "l-*-30193"
+ "l-*-30191"
+ "l-*-30189"
+ "l-*-30187")))
(hygiene guile))
#(syntax-object
unquote
((top)
- #(ribcage #(p) #((top)) #("l-*-30258"))
+ #(ribcage #(p) #((top)) #("l-*-30207"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-30254" "l-*-30255"))
+ #("l-*-30203" "l-*-30204"))
#(ribcage
(emit quasivector
quasilist*
@@ -23533,19 +23555,19 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-30199"
+ "l-*-30197"
+ "l-*-30195"
+ "l-*-30193"
+ "l-*-30191"
+ "l-*-30189"
+ "l-*-30187")))
(hygiene guile)))
- (quasi-30508 (list p-30539) (#{1-}# lev-30533)))))
- tmp-30535)
- (let ((tmp-30542
+ (quasi-30451 (list p-30482) (#{1-}# lev-30476)))))
+ tmp-30478)
+ (let ((tmp-30485
($sc-dispatch
- p-30532
+ p-30475
'(#(free-id
#(syntax-object
quasiquote
@@ -23554,7 +23576,7 @@
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-30254" "l-*-30255"))
+ #("l-*-30203" "l-*-30204"))
#(ribcage
(emit quasivector
quasilist*
@@ -23563,28 +23585,28 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-30199"
+ "l-*-30197"
+ "l-*-30195"
+ "l-*-30193"
+ "l-*-30191"
+ "l-*-30189"
+ "l-*-30187")))
(hygiene guile)))
any))))
- (if tmp-30542
+ (if tmp-30485
(@apply
- (lambda (p-30546)
- (quasicons-30510
+ (lambda (p-30489)
+ (quasicons-30453
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("l-*-30261"))
+ #(ribcage #(p) #((top)) #("l-*-30210"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-30254" "l-*-30255"))
+ #("l-*-30203" "l-*-30204"))
#(ribcage
(emit quasivector
quasilist*
@@ -23593,23 +23615,23 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-30199"
+ "l-*-30197"
+ "l-*-30195"
+ "l-*-30193"
+ "l-*-30191"
+ "l-*-30189"
+ "l-*-30187")))
(hygiene guile))
#(syntax-object
quasiquote
((top)
- #(ribcage #(p) #((top)) #("l-*-30261"))
+ #(ribcage #(p) #((top)) #("l-*-30210"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-30254" "l-*-30255"))
+ #("l-*-30203" "l-*-30204"))
#(ribcage
(emit quasivector
quasilist*
@@ -23618,23 +23640,23 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-30199"
+ "l-*-30197"
+ "l-*-30195"
+ "l-*-30193"
+ "l-*-30191"
+ "l-*-30189"
+ "l-*-30187")))
(hygiene guile)))
- (quasi-30508 (list p-30546) (#{1+}# lev-30533))))
- tmp-30542)
- (let ((tmp-30549 ($sc-dispatch p-30532 '(any . any))))
- (if tmp-30549
+ (quasi-30451 (list p-30489) (#{1+}# lev-30476))))
+ tmp-30485)
+ (let ((tmp-30492 ($sc-dispatch p-30475 '(any . any))))
+ (if tmp-30492
(@apply
- (lambda (p-30553 q-30554)
- (let ((tmp-30556
+ (lambda (p-30496 q-30497)
+ (let ((tmp-30499
($sc-dispatch
- p-30553
+ p-30496
'(#(free-id
#(syntax-object
unquote
@@ -23642,12 +23664,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("l-*-30264" "l-*-30265"))
+ #("l-*-30213" "l-*-30214"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-30254" "l-*-30255"))
+ #("l-*-30203" "l-*-30204"))
#(ribcage
(emit quasivector
quasilist*
@@ -23662,40 +23684,40 @@
(top)
(top)
(top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-30199"
+ "l-*-30197"
+ "l-*-30195"
+ "l-*-30193"
+ "l-*-30191"
+ "l-*-30189"
+ "l-*-30187")))
(hygiene guile)))
.
each-any))))
- (if tmp-30556
+ (if tmp-30499
(@apply
- (lambda (p-30560)
- (if (= lev-30533 0)
- (quasilist*-30512
- (map (lambda (tmp-30272-30596)
+ (lambda (p-30503)
+ (if (= lev-30476 0)
+ (quasilist*-30455
+ (map (lambda (tmp-30221-30539)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("l-*-30270"))
+ #("l-*-30219"))
#(ribcage
#(p q)
#((top) (top))
- #("l-*-30264"
- "l-*-30265"))
+ #("l-*-30213"
+ "l-*-30214"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-30254"
- "l-*-30255"))
+ #("l-*-30203"
+ "l-*-30204"))
#(ribcage
(emit quasivector
quasilist*
@@ -23710,35 +23732,35 @@
(top)
(top)
(top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-30199"
+ "l-*-30197"
+ "l-*-30195"
+ "l-*-30193"
+ "l-*-30191"
+ "l-*-30189"
+ "l-*-30187")))
(hygiene guile))
- tmp-30272-30596))
- p-30560)
- (quasi-30508 q-30554 lev-30533))
- (quasicons-30510
- (quasicons-30510
+ tmp-30221-30539))
+ p-30503)
+ (quasi-30451 q-30497 lev-30476))
+ (quasicons-30453
+ (quasicons-30453
'(#(syntax-object
"quote"
((top)
#(ribcage
#(p)
#((top))
- #("l-*-30270"))
+ #("l-*-30219"))
#(ribcage
#(p q)
#((top) (top))
- #("l-*-30264" "l-*-30265"))
+ #("l-*-30213" "l-*-30214"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-30254" "l-*-30255"))
+ #("l-*-30203" "l-*-30204"))
#(ribcage
(emit quasivector
quasilist*
@@ -23753,13 +23775,13 @@
(top)
(top)
(top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-30199"
+ "l-*-30197"
+ "l-*-30195"
+ "l-*-30193"
+ "l-*-30191"
+ "l-*-30189"
+ "l-*-30187")))
(hygiene guile))
#(syntax-object
unquote
@@ -23767,16 +23789,16 @@
#(ribcage
#(p)
#((top))
- #("l-*-30270"))
+ #("l-*-30219"))
#(ribcage
#(p q)
#((top) (top))
- #("l-*-30264" "l-*-30265"))
+ #("l-*-30213" "l-*-30214"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-30254" "l-*-30255"))
+ #("l-*-30203" "l-*-30204"))
#(ribcage
(emit quasivector
quasilist*
@@ -23791,22 +23813,22 @@
(top)
(top)
(top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-30199"
+ "l-*-30197"
+ "l-*-30195"
+ "l-*-30193"
+ "l-*-30191"
+ "l-*-30189"
+ "l-*-30187")))
(hygiene guile)))
- (quasi-30508
- p-30560
- (#{1-}# lev-30533)))
- (quasi-30508 q-30554 lev-30533))))
- tmp-30556)
- (let ((tmp-30601
+ (quasi-30451
+ p-30503
+ (#{1-}# lev-30476)))
+ (quasi-30451 q-30497 lev-30476))))
+ tmp-30499)
+ (let ((tmp-30544
($sc-dispatch
- p-30553
+ p-30496
'(#(free-id
#(syntax-object
unquote-splicing
@@ -23814,12 +23836,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("l-*-30264" "l-*-30265"))
+ #("l-*-30213" "l-*-30214"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-30254" "l-*-30255"))
+ #("l-*-30203" "l-*-30204"))
#(ribcage
(emit quasivector
quasilist*
@@ -23834,40 +23856,40 @@
(top)
(top)
(top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-30199"
+ "l-*-30197"
+ "l-*-30195"
+ "l-*-30193"
+ "l-*-30191"
+ "l-*-30189"
+ "l-*-30187")))
(hygiene guile)))
.
each-any))))
- (if tmp-30601
+ (if tmp-30544
(@apply
- (lambda (p-30605)
- (if (= lev-30533 0)
- (quasiappend-30511
- (map (lambda (tmp-30277-30608)
+ (lambda (p-30548)
+ (if (= lev-30476 0)
+ (quasiappend-30454
+ (map (lambda (tmp-30226-30551)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("l-*-30275"))
+ #("l-*-30224"))
#(ribcage
#(p q)
#((top) (top))
- #("l-*-30264"
- "l-*-30265"))
+ #("l-*-30213"
+ "l-*-30214"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-30254"
- "l-*-30255"))
+ #("l-*-30203"
+ "l-*-30204"))
#(ribcage
(emit quasivector
quasilist*
@@ -23882,35 +23904,35 @@
(top)
(top)
(top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-30199"
+ "l-*-30197"
+ "l-*-30195"
+ "l-*-30193"
+ "l-*-30191"
+ "l-*-30189"
+ "l-*-30187")))
(hygiene guile))
- tmp-30277-30608))
- p-30605)
- (quasi-30508 q-30554 lev-30533))
- (quasicons-30510
- (quasicons-30510
+ tmp-30226-30551))
+ p-30548)
+ (quasi-30451 q-30497 lev-30476))
+ (quasicons-30453
+ (quasicons-30453
'(#(syntax-object
"quote"
((top)
#(ribcage
#(p)
#((top))
- #("l-*-30275"))
+ #("l-*-30224"))
#(ribcage
#(p q)
#((top) (top))
- #("l-*-30264" "l-*-30265"))
+ #("l-*-30213" "l-*-30214"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-30254" "l-*-30255"))
+ #("l-*-30203" "l-*-30204"))
#(ribcage
(emit quasivector
quasilist*
@@ -23925,13 +23947,13 @@
(top)
(top)
(top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-30199"
+ "l-*-30197"
+ "l-*-30195"
+ "l-*-30193"
+ "l-*-30191"
+ "l-*-30189"
+ "l-*-30187")))
(hygiene guile))
#(syntax-object
unquote-splicing
@@ -23939,16 +23961,16 @@
#(ribcage
#(p)
#((top))
- #("l-*-30275"))
+ #("l-*-30224"))
#(ribcage
#(p q)
#((top) (top))
- #("l-*-30264" "l-*-30265"))
+ #("l-*-30213" "l-*-30214"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-30254" "l-*-30255"))
+ #("l-*-30203" "l-*-30204"))
#(ribcage
(emit quasivector
quasilist*
@@ -23963,49 +23985,49 @@
(top)
(top)
(top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-30199"
+ "l-*-30197"
+ "l-*-30195"
+ "l-*-30193"
+ "l-*-30191"
+ "l-*-30189"
+ "l-*-30187")))
(hygiene guile)))
- (quasi-30508
- p-30605
- (#{1-}# lev-30533)))
- (quasi-30508 q-30554 lev-30533))))
- tmp-30601)
- (quasicons-30510
- (quasi-30508 p-30553 lev-30533)
- (quasi-30508 q-30554 lev-30533)))))))
- tmp-30549)
- (let ((tmp-30622
- ($sc-dispatch p-30532 '#(vector each-any))))
- (if tmp-30622
+ (quasi-30451
+ p-30548
+ (#{1-}# lev-30476)))
+ (quasi-30451 q-30497 lev-30476))))
+ tmp-30544)
+ (quasicons-30453
+ (quasi-30451 p-30496 lev-30476)
+ (quasi-30451 q-30497 lev-30476)))))))
+ tmp-30492)
+ (let ((tmp-30565
+ ($sc-dispatch p-30475 '#(vector each-any))))
+ (if tmp-30565
(@apply
- (lambda (x-30626)
- (let ((x-30629
- (vquasi-30509 x-30626 lev-30533)))
- (let ((tmp-30631
+ (lambda (x-30569)
+ (let ((x-30572
+ (vquasi-30452 x-30569 lev-30476)))
+ (let ((tmp-30574
($sc-dispatch
- x-30629
+ x-30572
'(#(atom "quote") each-any))))
- (if tmp-30631
+ (if tmp-30574
(@apply
- (lambda (x-30635)
+ (lambda (x-30578)
(list '#(syntax-object
"quote"
((top)
#(ribcage
#(x)
#((top))
- #("l-*-30382"))
+ #("l-*-30325"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-30379"))
+ #("l-*-30322"))
#(ribcage
(emit quasivector
quasilist*
@@ -24020,36 +24042,36 @@
(top)
(top)
(top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-30199"
+ "l-*-30197"
+ "l-*-30195"
+ "l-*-30193"
+ "l-*-30191"
+ "l-*-30189"
+ "l-*-30187")))
(hygiene guile))
- (list->vector x-30635)))
- tmp-30631)
+ (list->vector x-30578)))
+ tmp-30574)
(letrec*
- ((f-30637
- (lambda (y-30649 k-30650)
- (let ((tmp-30652
+ ((f-30580
+ (lambda (y-30592 k-30593)
+ (let ((tmp-30595
($sc-dispatch
- y-30649
+ y-30592
'(#(atom "quote")
each-any))))
- (if tmp-30652
+ (if tmp-30595
(@apply
- (lambda (y-30655)
- (k-30650
- (map (lambda (tmp-30407-30656)
+ (lambda (y-30598)
+ (k-30593
+ (map (lambda (tmp-30350-30599)
(list '#(syntax-object
"quote"
((top)
#(ribcage
#(y)
#((top))
- #("l-*-30405"))
+ #("l-*-30348"))
#(ribcage
()
()
@@ -24061,13 +24083,13 @@
#((top)
(top)
(top))
- #("l-*-30387"
- "l-*-30388"
- "l-*-30389"))
+ #("l-*-30330"
+ "l-*-30331"
+ "l-*-30332"))
#(ribcage
#(_)
#((top))
- #("l-*-30385"))
+ #("l-*-30328"))
#(ribcage
()
()
@@ -24075,7 +24097,7 @@
#(ribcage
#(x)
#((top))
- #("l-*-30379"))
+ #("l-*-30322"))
#(ribcage
(emit quasivector
quasilist*
@@ -24090,50 +24112,50 @@
(top)
(top)
(top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-30199"
+ "l-*-30197"
+ "l-*-30195"
+ "l-*-30193"
+ "l-*-30191"
+ "l-*-30189"
+ "l-*-30187")))
(hygiene
guile))
- tmp-30407-30656))
- y-30655)))
- tmp-30652)
- (let ((tmp-30657
+ tmp-30350-30599))
+ y-30598)))
+ tmp-30595)
+ (let ((tmp-30600
($sc-dispatch
- y-30649
+ y-30592
'(#(atom "list")
.
each-any))))
- (if tmp-30657
+ (if tmp-30600
(@apply
- (lambda (y-30660)
- (k-30650 y-30660))
- tmp-30657)
- (let ((tmp-30661
+ (lambda (y-30603)
+ (k-30593 y-30603))
+ tmp-30600)
+ (let ((tmp-30604
($sc-dispatch
- y-30649
+ y-30592
'(#(atom "list*")
.
#(each+
any
(any)
())))))
- (if tmp-30661
+ (if tmp-30604
(@apply
- (lambda (y-30664
- z-30665)
- (f-30637
- z-30665
- (lambda (ls-30666)
- (k-30650
+ (lambda (y-30607
+ z-30608)
+ (f-30580
+ z-30608
+ (lambda (ls-30609)
+ (k-30593
(append
- y-30664
- ls-30666)))))
- tmp-30661)
+ y-30607
+ ls-30609)))))
+ tmp-30604)
(list '#(syntax-object
"list->vector"
((top)
@@ -24142,14 +24164,14 @@
()
())
#(ribcage
- #(t-30422)
- #((m-*-30423
+ #(t-30365)
+ #((m-*-30366
top))
- #("l-*-30426"))
+ #("l-*-30369"))
#(ribcage
#(else)
#((top))
- #("l-*-30420"))
+ #("l-*-30363"))
#(ribcage
()
()
@@ -24159,13 +24181,13 @@
#((top)
(top)
(top))
- #("l-*-30387"
- "l-*-30388"
- "l-*-30389"))
+ #("l-*-30330"
+ "l-*-30331"
+ "l-*-30332"))
#(ribcage
#(_)
#((top))
- #("l-*-30385"))
+ #("l-*-30328"))
#(ribcage
()
()
@@ -24173,7 +24195,7 @@
#(ribcage
#(x)
#((top))
- #("l-*-30379"))
+ #("l-*-30322"))
#(ribcage
(emit quasivector
quasilist*
@@ -24188,26 +24210,26 @@
(top)
(top)
(top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-30199"
+ "l-*-30197"
+ "l-*-30195"
+ "l-*-30193"
+ "l-*-30191"
+ "l-*-30189"
+ "l-*-30187")))
(hygiene
guile))
- x-30629))))))))))
- (f-30637
- x-30629
- (lambda (ls-30639)
- (let ((tmp-30641
+ x-30572))))))))))
+ (f-30580
+ x-30572
+ (lambda (ls-30582)
+ (let ((tmp-30584
($sc-dispatch
- ls-30639
+ ls-30582
'each-any)))
- (if tmp-30641
+ (if tmp-30584
(@apply
- (lambda (t-30395-30644)
+ (lambda (t-30338-30587)
(cons '#(syntax-object
"vector"
((top)
@@ -24216,10 +24238,10 @@
()
())
#(ribcage
- #(t-30395)
- #((m-*-30396
+ #(t-30338)
+ #((m-*-30339
top))
- #("l-*-30400"))
+ #("l-*-30343"))
#(ribcage
()
()
@@ -24235,11 +24257,11 @@
#(ribcage
#(ls)
#((top))
- #("l-*-30394"))
+ #("l-*-30337"))
#(ribcage
#(_)
#((top))
- #("l-*-30385"))
+ #("l-*-30328"))
#(ribcage
()
()
@@ -24247,7 +24269,7 @@
#(ribcage
#(x)
#((top))
- #("l-*-30379"))
+ #("l-*-30322"))
#(ribcage
(emit quasivector
quasilist*
@@ -24262,30 +24284,30 @@
(top)
(top)
(top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-30199"
+ "l-*-30197"
+ "l-*-30195"
+ "l-*-30193"
+ "l-*-30191"
+ "l-*-30189"
+ "l-*-30187")))
(hygiene guile))
- t-30395-30644))
- tmp-30641)
+ t-30338-30587))
+ tmp-30584)
(syntax-violation
#f
"source expression failed to match any pattern"
- ls-30639))))))))))
- tmp-30622)
+ ls-30582))))))))))
+ tmp-30565)
(list '#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("l-*-30285"))
+ #(ribcage #(p) #((top)) #("l-*-30234"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-30254" "l-*-30255"))
+ #("l-*-30203" "l-*-30204"))
#(ribcage
(emit quasivector
quasilist*
@@ -24300,24 +24322,24 @@
(top)
(top)
(top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-30199"
+ "l-*-30197"
+ "l-*-30195"
+ "l-*-30193"
+ "l-*-30191"
+ "l-*-30189"
+ "l-*-30187")))
(hygiene guile))
- p-30532)))))))))))
- (vquasi-30509
- (lambda (p-30694 lev-30695)
- (let ((tmp-30697 ($sc-dispatch p-30694 '(any . any))))
- (if tmp-30697
+ p-30475)))))))))))
+ (vquasi-30452
+ (lambda (p-30637 lev-30638)
+ (let ((tmp-30640 ($sc-dispatch p-30637 '(any . any))))
+ (if tmp-30640
(@apply
- (lambda (p-30701 q-30702)
- (let ((tmp-30704
+ (lambda (p-30644 q-30645)
+ (let ((tmp-30647
($sc-dispatch
- p-30701
+ p-30644
'(#(free-id
#(syntax-object
unquote
@@ -24325,12 +24347,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("l-*-30293" "l-*-30294"))
+ #("l-*-30242" "l-*-30243"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-30289" "l-*-30290"))
+ #("l-*-30238" "l-*-30239"))
#(ribcage
(emit quasivector
quasilist*
@@ -24345,38 +24367,38 @@
(top)
(top)
(top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-30199"
+ "l-*-30197"
+ "l-*-30195"
+ "l-*-30193"
+ "l-*-30191"
+ "l-*-30189"
+ "l-*-30187")))
(hygiene guile)))
.
each-any))))
- (if tmp-30704
+ (if tmp-30647
(@apply
- (lambda (p-30708)
- (if (= lev-30695 0)
- (quasilist*-30512
- (map (lambda (tmp-30301-30744)
+ (lambda (p-30651)
+ (if (= lev-30638 0)
+ (quasilist*-30455
+ (map (lambda (tmp-30250-30687)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("l-*-30299"))
+ #("l-*-30248"))
#(ribcage
#(p q)
#((top) (top))
- #("l-*-30293" "l-*-30294"))
+ #("l-*-30242" "l-*-30243"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-30289" "l-*-30290"))
+ #("l-*-30238" "l-*-30239"))
#(ribcage
(emit quasivector
quasilist*
@@ -24391,32 +24413,32 @@
(top)
(top)
(top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-30199"
+ "l-*-30197"
+ "l-*-30195"
+ "l-*-30193"
+ "l-*-30191"
+ "l-*-30189"
+ "l-*-30187")))
(hygiene guile))
- tmp-30301-30744))
- p-30708)
- (vquasi-30509 q-30702 lev-30695))
- (quasicons-30510
- (quasicons-30510
+ tmp-30250-30687))
+ p-30651)
+ (vquasi-30452 q-30645 lev-30638))
+ (quasicons-30453
+ (quasicons-30453
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("l-*-30299"))
+ #(ribcage #(p) #((top)) #("l-*-30248"))
#(ribcage
#(p q)
#((top) (top))
- #("l-*-30293" "l-*-30294"))
+ #("l-*-30242" "l-*-30243"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-30289" "l-*-30290"))
+ #("l-*-30238" "l-*-30239"))
#(ribcage
(emit quasivector
quasilist*
@@ -24431,27 +24453,27 @@
(top)
(top)
(top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-30199"
+ "l-*-30197"
+ "l-*-30195"
+ "l-*-30193"
+ "l-*-30191"
+ "l-*-30189"
+ "l-*-30187")))
(hygiene guile))
#(syntax-object
unquote
((top)
- #(ribcage #(p) #((top)) #("l-*-30299"))
+ #(ribcage #(p) #((top)) #("l-*-30248"))
#(ribcage
#(p q)
#((top) (top))
- #("l-*-30293" "l-*-30294"))
+ #("l-*-30242" "l-*-30243"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-30289" "l-*-30290"))
+ #("l-*-30238" "l-*-30239"))
#(ribcage
(emit quasivector
quasilist*
@@ -24466,20 +24488,20 @@
(top)
(top)
(top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-30199"
+ "l-*-30197"
+ "l-*-30195"
+ "l-*-30193"
+ "l-*-30191"
+ "l-*-30189"
+ "l-*-30187")))
(hygiene guile)))
- (quasi-30508 p-30708 (#{1-}# lev-30695)))
- (vquasi-30509 q-30702 lev-30695))))
- tmp-30704)
- (let ((tmp-30751
+ (quasi-30451 p-30651 (#{1-}# lev-30638)))
+ (vquasi-30452 q-30645 lev-30638))))
+ tmp-30647)
+ (let ((tmp-30694
($sc-dispatch
- p-30701
+ p-30644
'(#(free-id
#(syntax-object
unquote-splicing
@@ -24487,12 +24509,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("l-*-30293" "l-*-30294"))
+ #("l-*-30242" "l-*-30243"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-30289" "l-*-30290"))
+ #("l-*-30238" "l-*-30239"))
#(ribcage
(emit quasivector
quasilist*
@@ -24507,40 +24529,40 @@
(top)
(top)
(top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-30199"
+ "l-*-30197"
+ "l-*-30195"
+ "l-*-30193"
+ "l-*-30191"
+ "l-*-30189"
+ "l-*-30187")))
(hygiene guile)))
.
each-any))))
- (if tmp-30751
+ (if tmp-30694
(@apply
- (lambda (p-30755)
- (if (= lev-30695 0)
- (quasiappend-30511
- (map (lambda (tmp-30306-30758)
+ (lambda (p-30698)
+ (if (= lev-30638 0)
+ (quasiappend-30454
+ (map (lambda (tmp-30255-30701)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("l-*-30304"))
+ #("l-*-30253"))
#(ribcage
#(p q)
#((top) (top))
- #("l-*-30293"
- "l-*-30294"))
+ #("l-*-30242"
+ "l-*-30243"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-30289"
- "l-*-30290"))
+ #("l-*-30238"
+ "l-*-30239"))
#(ribcage
(emit quasivector
quasilist*
@@ -24555,35 +24577,35 @@
(top)
(top)
(top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-30199"
+ "l-*-30197"
+ "l-*-30195"
+ "l-*-30193"
+ "l-*-30191"
+ "l-*-30189"
+ "l-*-30187")))
(hygiene guile))
- tmp-30306-30758))
- p-30755)
- (vquasi-30509 q-30702 lev-30695))
- (quasicons-30510
- (quasicons-30510
+ tmp-30255-30701))
+ p-30698)
+ (vquasi-30452 q-30645 lev-30638))
+ (quasicons-30453
+ (quasicons-30453
'(#(syntax-object
"quote"
((top)
#(ribcage
#(p)
#((top))
- #("l-*-30304"))
+ #("l-*-30253"))
#(ribcage
#(p q)
#((top) (top))
- #("l-*-30293" "l-*-30294"))
+ #("l-*-30242" "l-*-30243"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-30289" "l-*-30290"))
+ #("l-*-30238" "l-*-30239"))
#(ribcage
(emit quasivector
quasilist*
@@ -24598,13 +24620,13 @@
(top)
(top)
(top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-30199"
+ "l-*-30197"
+ "l-*-30195"
+ "l-*-30193"
+ "l-*-30191"
+ "l-*-30189"
+ "l-*-30187")))
(hygiene guile))
#(syntax-object
unquote-splicing
@@ -24612,16 +24634,16 @@
#(ribcage
#(p)
#((top))
- #("l-*-30304"))
+ #("l-*-30253"))
#(ribcage
#(p q)
#((top) (top))
- #("l-*-30293" "l-*-30294"))
+ #("l-*-30242" "l-*-30243"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-30289" "l-*-30290"))
+ #("l-*-30238" "l-*-30239"))
#(ribcage
(emit quasivector
quasilist*
@@ -24636,23 +24658,23 @@
(top)
(top)
(top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-30199"
+ "l-*-30197"
+ "l-*-30195"
+ "l-*-30193"
+ "l-*-30191"
+ "l-*-30189"
+ "l-*-30187")))
(hygiene guile)))
- (quasi-30508 p-30755 (#{1-}# lev-30695)))
- (vquasi-30509 q-30702 lev-30695))))
- tmp-30751)
- (quasicons-30510
- (quasi-30508 p-30701 lev-30695)
- (vquasi-30509 q-30702 lev-30695)))))))
- tmp-30697)
- (let ((tmp-30776 ($sc-dispatch p-30694 '())))
- (if tmp-30776
+ (quasi-30451 p-30698 (#{1-}# lev-30638)))
+ (vquasi-30452 q-30645 lev-30638))))
+ tmp-30694)
+ (quasicons-30453
+ (quasi-30451 p-30644 lev-30638)
+ (vquasi-30452 q-30645 lev-30638)))))))
+ tmp-30640)
+ (let ((tmp-30719 ($sc-dispatch p-30637 '())))
+ (if tmp-30719
(@apply
(lambda ()
'(#(syntax-object
@@ -24662,7 +24684,7 @@
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-30289" "l-*-30290"))
+ #("l-*-30238" "l-*-30239"))
#(ribcage
(emit quasivector
quasilist*
@@ -24671,61 +24693,61 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-30199"
+ "l-*-30197"
+ "l-*-30195"
+ "l-*-30193"
+ "l-*-30191"
+ "l-*-30189"
+ "l-*-30187")))
(hygiene guile))
()))
- tmp-30776)
+ tmp-30719)
(syntax-violation
#f
"source expression failed to match any pattern"
- p-30694)))))))
- (quasicons-30510
- (lambda (x-30789 y-30790)
- (let ((tmp-30791 (list x-30789 y-30790)))
- (let ((tmp-30792 ($sc-dispatch tmp-30791 '(any any))))
- (if tmp-30792
+ p-30637)))))))
+ (quasicons-30453
+ (lambda (x-30732 y-30733)
+ (let ((tmp-30734 (list x-30732 y-30733)))
+ (let ((tmp-30735 ($sc-dispatch tmp-30734 '(any any))))
+ (if tmp-30735
(@apply
- (lambda (x-30794 y-30795)
- (let ((tmp-30797
- ($sc-dispatch y-30795 '(#(atom "quote") any))))
- (if tmp-30797
+ (lambda (x-30737 y-30738)
+ (let ((tmp-30740
+ ($sc-dispatch y-30738 '(#(atom "quote") any))))
+ (if tmp-30740
(@apply
- (lambda (dy-30801)
- (let ((tmp-30803
+ (lambda (dy-30744)
+ (let ((tmp-30746
($sc-dispatch
- x-30794
+ x-30737
'(#(atom "quote") any))))
- (if tmp-30803
+ (if tmp-30746
(@apply
- (lambda (dx-30807)
+ (lambda (dx-30750)
(list '#(syntax-object
"quote"
((top)
#(ribcage
#(dx)
#((top))
- #("l-*-30328"))
+ #("l-*-30277"))
#(ribcage
#(dy)
#((top))
- #("l-*-30324"))
+ #("l-*-30273"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("l-*-30318" "l-*-30319"))
+ #("l-*-30267" "l-*-30268"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("l-*-30313" "l-*-30314"))
+ #("l-*-30262" "l-*-30263"))
#(ribcage
(emit quasivector
quasilist*
@@ -24740,39 +24762,39 @@
(top)
(top)
(top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-30199"
+ "l-*-30197"
+ "l-*-30195"
+ "l-*-30193"
+ "l-*-30191"
+ "l-*-30189"
+ "l-*-30187")))
(hygiene guile))
- (cons dx-30807 dy-30801)))
- tmp-30803)
- (if (null? dy-30801)
+ (cons dx-30750 dy-30744)))
+ tmp-30746)
+ (if (null? dy-30744)
(list '#(syntax-object
"list"
((top)
#(ribcage
#(_)
#((top))
- #("l-*-30330"))
+ #("l-*-30279"))
#(ribcage
#(dy)
#((top))
- #("l-*-30324"))
+ #("l-*-30273"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("l-*-30318" "l-*-30319"))
+ #("l-*-30267" "l-*-30268"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("l-*-30313" "l-*-30314"))
+ #("l-*-30262" "l-*-30263"))
#(ribcage
(emit quasivector
quasilist*
@@ -24787,37 +24809,37 @@
(top)
(top)
(top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-30199"
+ "l-*-30197"
+ "l-*-30195"
+ "l-*-30193"
+ "l-*-30191"
+ "l-*-30189"
+ "l-*-30187")))
(hygiene guile))
- x-30794)
+ x-30737)
(list '#(syntax-object
"list*"
((top)
#(ribcage
#(_)
#((top))
- #("l-*-30330"))
+ #("l-*-30279"))
#(ribcage
#(dy)
#((top))
- #("l-*-30324"))
+ #("l-*-30273"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("l-*-30318" "l-*-30319"))
+ #("l-*-30267" "l-*-30268"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("l-*-30313" "l-*-30314"))
+ #("l-*-30262" "l-*-30263"))
#(ribcage
(emit quasivector
quasilist*
@@ -24832,42 +24854,42 @@
(top)
(top)
(top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-30199"
+ "l-*-30197"
+ "l-*-30195"
+ "l-*-30193"
+ "l-*-30191"
+ "l-*-30189"
+ "l-*-30187")))
(hygiene guile))
- x-30794
- y-30795)))))
- tmp-30797)
- (let ((tmp-30812
+ x-30737
+ y-30738)))))
+ tmp-30740)
+ (let ((tmp-30755
($sc-dispatch
- y-30795
+ y-30738
'(#(atom "list") . any))))
- (if tmp-30812
+ (if tmp-30755
(@apply
- (lambda (stuff-30816)
+ (lambda (stuff-30759)
(cons '#(syntax-object
"list"
((top)
#(ribcage
#(stuff)
#((top))
- #("l-*-30333"))
+ #("l-*-30282"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("l-*-30318" "l-*-30319"))
+ #("l-*-30267" "l-*-30268"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("l-*-30313" "l-*-30314"))
+ #("l-*-30262" "l-*-30263"))
#(ribcage
(emit quasivector
quasilist*
@@ -24882,41 +24904,41 @@
(top)
(top)
(top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-30199"
+ "l-*-30197"
+ "l-*-30195"
+ "l-*-30193"
+ "l-*-30191"
+ "l-*-30189"
+ "l-*-30187")))
(hygiene guile))
- (cons x-30794 stuff-30816)))
- tmp-30812)
- (let ((tmp-30817
+ (cons x-30737 stuff-30759)))
+ tmp-30755)
+ (let ((tmp-30760
($sc-dispatch
- y-30795
+ y-30738
'(#(atom "list*") . any))))
- (if tmp-30817
+ (if tmp-30760
(@apply
- (lambda (stuff-30821)
+ (lambda (stuff-30764)
(cons '#(syntax-object
"list*"
((top)
#(ribcage
#(stuff)
#((top))
- #("l-*-30336"))
+ #("l-*-30285"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("l-*-30318" "l-*-30319"))
+ #("l-*-30267" "l-*-30268"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("l-*-30313" "l-*-30314"))
+ #("l-*-30262" "l-*-30263"))
#(ribcage
(emit quasivector
quasilist*
@@ -24931,34 +24953,34 @@
(top)
(top)
(top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-30199"
+ "l-*-30197"
+ "l-*-30195"
+ "l-*-30193"
+ "l-*-30191"
+ "l-*-30189"
+ "l-*-30187")))
(hygiene guile))
- (cons x-30794 stuff-30821)))
- tmp-30817)
+ (cons x-30737 stuff-30764)))
+ tmp-30760)
(list '#(syntax-object
"list*"
((top)
#(ribcage
#(_)
#((top))
- #("l-*-30338"))
+ #("l-*-30287"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("l-*-30318" "l-*-30319"))
+ #("l-*-30267" "l-*-30268"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("l-*-30313" "l-*-30314"))
+ #("l-*-30262" "l-*-30263"))
#(ribcage
(emit quasivector
quasilist*
@@ -24973,29 +24995,29 @@
(top)
(top)
(top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-30199"
+ "l-*-30197"
+ "l-*-30195"
+ "l-*-30193"
+ "l-*-30191"
+ "l-*-30189"
+ "l-*-30187")))
(hygiene guile))
- x-30794
- y-30795))))))))
- tmp-30792)
+ x-30737
+ y-30738))))))))
+ tmp-30735)
(syntax-violation
#f
"source expression failed to match any pattern"
- tmp-30791))))))
- (quasiappend-30511
- (lambda (x-30832 y-30833)
- (let ((tmp-30835
- ($sc-dispatch y-30833 '(#(atom "quote") ()))))
- (if tmp-30835
+ tmp-30734))))))
+ (quasiappend-30454
+ (lambda (x-30775 y-30776)
+ (let ((tmp-30778
+ ($sc-dispatch y-30776 '(#(atom "quote") ()))))
+ (if tmp-30778
(@apply
(lambda ()
- (if (null? x-30832)
+ (if (null? x-30775)
'(#(syntax-object
"quote"
((top)
@@ -25003,7 +25025,7 @@
#(ribcage
#(x y)
#((top) (top))
- #("l-*-30342" "l-*-30343"))
+ #("l-*-30291" "l-*-30292"))
#(ribcage
(emit quasivector
quasilist*
@@ -25012,21 +25034,21 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-30199"
+ "l-*-30197"
+ "l-*-30195"
+ "l-*-30193"
+ "l-*-30191"
+ "l-*-30189"
+ "l-*-30187")))
(hygiene guile))
())
- (if (null? (cdr x-30832))
- (car x-30832)
- (let ((tmp-30840 ($sc-dispatch x-30832 'each-any)))
- (if tmp-30840
+ (if (null? (cdr x-30775))
+ (car x-30775)
+ (let ((tmp-30783 ($sc-dispatch x-30775 'each-any)))
+ (if tmp-30783
(@apply
- (lambda (p-30844)
+ (lambda (p-30787)
(cons '#(syntax-object
"append"
((top)
@@ -25034,12 +25056,12 @@
#(ribcage
#(p)
#((top))
- #("l-*-30354"))
+ #("l-*-30299"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("l-*-30342" "l-*-30343"))
+ #("l-*-30291" "l-*-30292"))
#(ribcage
(emit quasivector
quasilist*
@@ -25054,29 +25076,29 @@
(top)
(top)
(top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-30199"
+ "l-*-30197"
+ "l-*-30195"
+ "l-*-30193"
+ "l-*-30191"
+ "l-*-30189"
+ "l-*-30187")))
(hygiene guile))
- p-30844))
- tmp-30840)
+ p-30787))
+ tmp-30783)
(syntax-violation
#f
"source expression failed to match any pattern"
- x-30832))))))
- tmp-30835)
- (if (null? x-30832)
- y-30833
- (let ((tmp-30852 (list x-30832 y-30833)))
- (let ((tmp-30853
- ($sc-dispatch tmp-30852 '(each-any any))))
- (if tmp-30853
+ x-30775))))))
+ tmp-30778)
+ (if (null? x-30775)
+ y-30776
+ (let ((tmp-30795 (list x-30775 y-30776)))
+ (let ((tmp-30796
+ ($sc-dispatch tmp-30795 '(each-any any))))
+ (if tmp-30796
(@apply
- (lambda (p-30855 y-30856)
+ (lambda (p-30798 y-30799)
(cons '#(syntax-object
"append"
((top)
@@ -25084,13 +25106,13 @@
#(ribcage
#(p y)
#((top) (top))
- #("l-*-30365" "l-*-30366"))
- #(ribcage #(_) #((top)) #("l-*-30357"))
+ #("l-*-30308" "l-*-30309"))
+ #(ribcage #(_) #((top)) #("l-*-30302"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("l-*-30342" "l-*-30343"))
+ #("l-*-30291" "l-*-30292"))
#(ribcage
(emit quasivector
quasilist*
@@ -25105,44 +25127,44 @@
(top)
(top)
(top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-30199"
+ "l-*-30197"
+ "l-*-30195"
+ "l-*-30193"
+ "l-*-30191"
+ "l-*-30189"
+ "l-*-30187")))
(hygiene guile))
- (append p-30855 (list y-30856))))
- tmp-30853)
+ (append p-30798 (list y-30799))))
+ tmp-30796)
(syntax-violation
#f
"source expression failed to match any pattern"
- tmp-30852)))))))))
- (quasilist*-30512
- (lambda (x-30860 y-30861)
+ tmp-30795)))))))))
+ (quasilist*-30455
+ (lambda (x-30803 y-30804)
(letrec*
- ((f-30862
- (lambda (x-30951)
- (if (null? x-30951)
- y-30861
- (quasicons-30510
- (car x-30951)
- (f-30862 (cdr x-30951)))))))
- (f-30862 x-30860))))
- (emit-30514
- (lambda (x-30954)
- (let ((tmp-30956
- ($sc-dispatch x-30954 '(#(atom "quote") any))))
- (if tmp-30956
+ ((f-30805
+ (lambda (x-30894)
+ (if (null? x-30894)
+ y-30804
+ (quasicons-30453
+ (car x-30894)
+ (f-30805 (cdr x-30894)))))))
+ (f-30805 x-30803))))
+ (emit-30457
+ (lambda (x-30897)
+ (let ((tmp-30899
+ ($sc-dispatch x-30897 '(#(atom "quote") any))))
+ (if tmp-30899
(@apply
- (lambda (x-30960)
+ (lambda (x-30903)
(list '#(syntax-object
quote
((top)
- #(ribcage #(x) #((top)) #("l-*-30432"))
+ #(ribcage #(x) #((top)) #("l-*-30375"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-30429"))
+ #(ribcage #(x) #((top)) #("l-*-30372"))
#(ribcage
(emit quasivector
quasilist*
@@ -25151,45 +25173,45 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-30199"
+ "l-*-30197"
+ "l-*-30195"
+ "l-*-30193"
+ "l-*-30191"
+ "l-*-30189"
+ "l-*-30187")))
(hygiene guile))
- x-30960))
- tmp-30956)
- (let ((tmp-30961
+ x-30903))
+ tmp-30899)
+ (let ((tmp-30904
($sc-dispatch
- x-30954
+ x-30897
'(#(atom "list") . each-any))))
- (if tmp-30961
+ (if tmp-30904
(@apply
- (lambda (x-30965)
- (let ((tmp-30966 (map emit-30514 x-30965)))
- (let ((tmp-30967 ($sc-dispatch tmp-30966 'each-any)))
- (if tmp-30967
+ (lambda (x-30908)
+ (let ((tmp-30909 (map emit-30457 x-30908)))
+ (let ((tmp-30910 ($sc-dispatch tmp-30909 'each-any)))
+ (if tmp-30910
(@apply
- (lambda (t-30437-30969)
+ (lambda (t-30380-30912)
(cons '#(syntax-object
list
((top)
#(ribcage () () ())
#(ribcage
- #(t-30437)
- #((m-*-30438 top))
- #("l-*-30442"))
+ #(t-30380)
+ #((m-*-30381 top))
+ #("l-*-30385"))
#(ribcage
#(x)
#((top))
- #("l-*-30435"))
+ #("l-*-30378"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-30429"))
+ #("l-*-30372"))
#(ribcage
(emit quasivector
quasilist*
@@ -25204,70 +25226,70 @@
(top)
(top)
(top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-30199"
+ "l-*-30197"
+ "l-*-30195"
+ "l-*-30193"
+ "l-*-30191"
+ "l-*-30189"
+ "l-*-30187")))
(hygiene guile))
- t-30437-30969))
- tmp-30967)
+ t-30380-30912))
+ tmp-30910)
(syntax-violation
#f
"source expression failed to match any pattern"
- tmp-30966)))))
- tmp-30961)
- (let ((tmp-30970
+ tmp-30909)))))
+ tmp-30904)
+ (let ((tmp-30913
($sc-dispatch
- x-30954
+ x-30897
'(#(atom "list*") . #(each+ any (any) ())))))
- (if tmp-30970
+ (if tmp-30913
(@apply
- (lambda (x-30974 y-30975)
+ (lambda (x-30917 y-30918)
(letrec*
- ((f-30976
- (lambda (x*-30979)
- (if (null? x*-30979)
- (emit-30514 y-30975)
- (let ((tmp-30980
- (list (emit-30514 (car x*-30979))
- (f-30976 (cdr x*-30979)))))
- (let ((tmp-30981
+ ((f-30919
+ (lambda (x*-30922)
+ (if (null? x*-30922)
+ (emit-30457 y-30918)
+ (let ((tmp-30923
+ (list (emit-30457 (car x*-30922))
+ (f-30919 (cdr x*-30922)))))
+ (let ((tmp-30924
($sc-dispatch
- tmp-30980
+ tmp-30923
'(any any))))
- (if tmp-30981
+ (if tmp-30924
(@apply
- (lambda (t-30457-30983
- t-30456-30984)
+ (lambda (t-30400-30926
+ t-30399-30927)
(list '#(syntax-object
cons
((top)
#(ribcage () () ())
#(ribcage
- #(t-30457 t-30456)
- #((m-*-30458 top)
- (m-*-30458 top))
- #("l-*-30462"
- "l-*-30463"))
+ #(t-30400 t-30399)
+ #((m-*-30401 top)
+ (m-*-30401 top))
+ #("l-*-30405"
+ "l-*-30406"))
#(ribcage () () ())
#(ribcage
#(f x*)
#((top) (top))
- #("l-*-30451"
- "l-*-30452"))
+ #("l-*-30394"
+ "l-*-30395"))
#(ribcage
#(x y)
#((top) (top))
- #("l-*-30447"
- "l-*-30448"))
+ #("l-*-30390"
+ "l-*-30391"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-30429"))
+ #("l-*-30372"))
#(ribcage
(emit quasivector
quasilist*
@@ -25282,53 +25304,53 @@
(top)
(top)
(top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-30199"
+ "l-*-30197"
+ "l-*-30195"
+ "l-*-30193"
+ "l-*-30191"
+ "l-*-30189"
+ "l-*-30187")))
(hygiene guile))
- t-30457-30983
- t-30456-30984))
- tmp-30981)
+ t-30400-30926
+ t-30399-30927))
+ tmp-30924)
(syntax-violation
#f
"source expression failed to match any pattern"
- tmp-30980))))))))
- (f-30976 x-30974)))
- tmp-30970)
- (let ((tmp-30985
+ tmp-30923))))))))
+ (f-30919 x-30917)))
+ tmp-30913)
+ (let ((tmp-30928
($sc-dispatch
- x-30954
+ x-30897
'(#(atom "append") . each-any))))
- (if tmp-30985
+ (if tmp-30928
(@apply
- (lambda (x-30989)
- (let ((tmp-30990 (map emit-30514 x-30989)))
- (let ((tmp-30991
- ($sc-dispatch tmp-30990 'each-any)))
- (if tmp-30991
+ (lambda (x-30932)
+ (let ((tmp-30933 (map emit-30457 x-30932)))
+ (let ((tmp-30934
+ ($sc-dispatch tmp-30933 'each-any)))
+ (if tmp-30934
(@apply
- (lambda (t-30469-30993)
+ (lambda (t-30412-30936)
(cons '#(syntax-object
append
((top)
#(ribcage () () ())
#(ribcage
- #(t-30469)
- #((m-*-30470 top))
- #("l-*-30474"))
+ #(t-30412)
+ #((m-*-30413 top))
+ #("l-*-30417"))
#(ribcage
#(x)
#((top))
- #("l-*-30467"))
+ #("l-*-30410"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-30429"))
+ #("l-*-30372"))
#(ribcage
(emit quasivector
quasilist*
@@ -25343,53 +25365,53 @@
(top)
(top)
(top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-30199"
+ "l-*-30197"
+ "l-*-30195"
+ "l-*-30193"
+ "l-*-30191"
+ "l-*-30189"
+ "l-*-30187")))
(hygiene guile))
- t-30469-30993))
- tmp-30991)
+ t-30412-30936))
+ tmp-30934)
(syntax-violation
#f
"source expression failed to match any pattern"
- tmp-30990)))))
- tmp-30985)
- (let ((tmp-30994
+ tmp-30933)))))
+ tmp-30928)
+ (let ((tmp-30937
($sc-dispatch
- x-30954
+ x-30897
'(#(atom "vector") . each-any))))
- (if tmp-30994
+ (if tmp-30937
(@apply
- (lambda (x-30998)
- (let ((tmp-30999 (map emit-30514 x-30998)))
- (let ((tmp-31000
+ (lambda (x-30941)
+ (let ((tmp-30942 (map emit-30457 x-30941)))
+ (let ((tmp-30943
($sc-dispatch
- tmp-30999
+ tmp-30942
'each-any)))
- (if tmp-31000
+ (if tmp-30943
(@apply
- (lambda (t-30481-31002)
+ (lambda (t-30424-30945)
(cons '#(syntax-object
vector
((top)
#(ribcage () () ())
#(ribcage
- #(t-30481)
- #((m-*-30482 top))
- #("l-*-30486"))
+ #(t-30424)
+ #((m-*-30425 top))
+ #("l-*-30429"))
#(ribcage
#(x)
#((top))
- #("l-*-30479"))
+ #("l-*-30422"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-30429"))
+ #("l-*-30372"))
#(ribcage
(emit quasivector
quasilist*
@@ -25404,46 +25426,46 @@
(top)
(top)
(top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-30199"
+ "l-*-30197"
+ "l-*-30195"
+ "l-*-30193"
+ "l-*-30191"
+ "l-*-30189"
+ "l-*-30187")))
(hygiene guile))
- t-30481-31002))
- tmp-31000)
+ t-30424-30945))
+ tmp-30943)
(syntax-violation
#f
"source expression failed to match any pattern"
- tmp-30999)))))
- tmp-30994)
- (let ((tmp-31003
+ tmp-30942)))))
+ tmp-30937)
+ (let ((tmp-30946
($sc-dispatch
- x-30954
+ x-30897
'(#(atom "list->vector") any))))
- (if tmp-31003
+ (if tmp-30946
(@apply
- (lambda (x-31007)
- (let ((tmp-31008 (emit-30514 x-31007)))
+ (lambda (x-30950)
+ (let ((tmp-30951 (emit-30457 x-30950)))
(list '#(syntax-object
list->vector
((top)
#(ribcage () () ())
#(ribcage
- #(t-30493)
- #((m-*-30494 top))
- #("l-*-30497"))
+ #(t-30436)
+ #((m-*-30437 top))
+ #("l-*-30440"))
#(ribcage
#(x)
#((top))
- #("l-*-30491"))
+ #("l-*-30434"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-30429"))
+ #("l-*-30372"))
#(ribcage
(emit quasivector
quasilist*
@@ -25458,183 +25480,183 @@
(top)
(top)
(top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-30199"
+ "l-*-30197"
+ "l-*-30195"
+ "l-*-30193"
+ "l-*-30191"
+ "l-*-30189"
+ "l-*-30187")))
(hygiene guile))
- tmp-31008)))
- tmp-31003)
- (let ((tmp-31011
+ tmp-30951)))
+ tmp-30946)
+ (let ((tmp-30954
($sc-dispatch
- x-30954
+ x-30897
'(#(atom "value") any))))
- (if tmp-31011
+ (if tmp-30954
(@apply
- (lambda (x-31015) x-31015)
- tmp-31011)
+ (lambda (x-30958) x-30958)
+ tmp-30954)
(syntax-violation
#f
"source expression failed to match any pattern"
- x-30954))))))))))))))))))
- (lambda (x-30515)
- (let ((tmp-30517 ($sc-dispatch x-30515 '(_ any))))
- (if tmp-30517
+ x-30897))))))))))))))))))
+ (lambda (x-30458)
+ (let ((tmp-30460 ($sc-dispatch x-30458 '(_ any))))
+ (if tmp-30460
(@apply
- (lambda (e-30521)
- (emit-30514 (quasi-30508 e-30521 0)))
- tmp-30517)
+ (lambda (e-30464)
+ (emit-30457 (quasi-30451 e-30464 0)))
+ tmp-30460)
(syntax-violation
#f
"source expression failed to match any pattern"
- x-30515)))))))
+ x-30458)))))))
(define include
(make-syntax-transformer
'include
'macro
- (lambda (x-31070)
+ (lambda (x-31013)
(letrec*
- ((read-file-31071
- (lambda (fn-31180 k-31181)
- (let ((p-31182 (open-input-file fn-31180)))
+ ((read-file-31014
+ (lambda (fn-31123 k-31124)
+ (let ((p-31125 (open-input-file fn-31123)))
(letrec*
- ((f-31183
- (lambda (x-31237 result-31238)
- (if (eof-object? x-31237)
+ ((f-31126
+ (lambda (x-31180 result-31181)
+ (if (eof-object? x-31180)
(begin
- (close-input-port p-31182)
- (reverse result-31238))
- (f-31183
- (read p-31182)
- (cons (datum->syntax k-31181 x-31237)
- result-31238))))))
- (f-31183 (read p-31182) '()))))))
- (let ((tmp-31073 ($sc-dispatch x-31070 '(any any))))
- (if tmp-31073
+ (close-input-port p-31125)
+ (reverse result-31181))
+ (f-31126
+ (read p-31125)
+ (cons (datum->syntax k-31124 x-31180)
+ result-31181))))))
+ (f-31126 (read p-31125) '()))))))
+ (let ((tmp-31016 ($sc-dispatch x-31013 '(any any))))
+ (if tmp-31016
(@apply
- (lambda (k-31077 filename-31078)
- (let ((fn-31079 (syntax->datum filename-31078)))
- (let ((tmp-31080
- (read-file-31071 fn-31079 filename-31078)))
- (let ((tmp-31081 ($sc-dispatch tmp-31080 'each-any)))
- (if tmp-31081
+ (lambda (k-31020 filename-31021)
+ (let ((fn-31022 (syntax->datum filename-31021)))
+ (let ((tmp-31023
+ (read-file-31014 fn-31022 filename-31021)))
+ (let ((tmp-31024 ($sc-dispatch tmp-31023 'each-any)))
+ (if tmp-31024
(@apply
- (lambda (exp-31099)
+ (lambda (exp-31042)
(cons '#(syntax-object
begin
((top)
#(ribcage () () ())
- #(ribcage #(exp) #((top)) #("l-*-31067"))
+ #(ribcage #(exp) #((top)) #("l-*-31010"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("l-*-31062"))
+ #(ribcage #(fn) #((top)) #("l-*-31005"))
#(ribcage
#(k filename)
#((top) (top))
- #("l-*-31058" "l-*-31059"))
+ #("l-*-31001" "l-*-31002"))
#(ribcage
(read-file)
((top))
- ("l-*-31042"))
- #(ribcage #(x) #((top)) #("l-*-31041")))
+ ("l-*-30985"))
+ #(ribcage #(x) #((top)) #("l-*-30984")))
(hygiene guile))
- exp-31099))
- tmp-31081)
+ exp-31042))
+ tmp-31024)
(syntax-violation
#f
"source expression failed to match any pattern"
- tmp-31080))))))
- tmp-31073)
+ tmp-31023))))))
+ tmp-31016)
(syntax-violation
#f
"source expression failed to match any pattern"
- x-31070)))))))
+ x-31013)))))))
(define include-from-path
(make-syntax-transformer
'include-from-path
'macro
- (lambda (x-31257)
- (let ((tmp-31259 ($sc-dispatch x-31257 '(any any))))
- (if tmp-31259
+ (lambda (x-31200)
+ (let ((tmp-31202 ($sc-dispatch x-31200 '(any any))))
+ (if tmp-31202
(@apply
- (lambda (k-31263 filename-31264)
- (let ((fn-31265 (syntax->datum filename-31264)))
- (let ((tmp-31266
+ (lambda (k-31206 filename-31207)
+ (let ((fn-31208 (syntax->datum filename-31207)))
+ (let ((tmp-31209
(datum->syntax
- filename-31264
- (let ((t-31269 (%search-load-path fn-31265)))
- (if t-31269
- t-31269
+ filename-31207
+ (let ((t-31212 (%search-load-path fn-31208)))
+ (if t-31212
+ t-31212
(syntax-violation
'include-from-path
"file not found in path"
- x-31257
- filename-31264))))))
+ x-31200
+ filename-31207))))))
(list '#(syntax-object
include
((top)
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("l-*-31251"))
+ #(ribcage #(fn) #((top)) #("l-*-31194"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("l-*-31247"))
+ #(ribcage #(fn) #((top)) #("l-*-31190"))
#(ribcage
#(k filename)
#((top) (top))
- #("l-*-31243" "l-*-31244"))
+ #("l-*-31186" "l-*-31187"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-31240")))
+ #(ribcage #(x) #((top)) #("l-*-31183")))
(hygiene guile))
- tmp-31266))))
- tmp-31259)
+ tmp-31209))))
+ tmp-31202)
(syntax-violation
#f
"source expression failed to match any pattern"
- x-31257))))))
+ x-31200))))))
(define unquote
(make-syntax-transformer
'unquote
'macro
- (lambda (x-31278)
+ (lambda (x-31221)
(syntax-violation
'unquote
"expression not valid outside of quasiquote"
- x-31278))))
+ x-31221))))
(define unquote-splicing
(make-syntax-transformer
'unquote-splicing
'macro
- (lambda (x-31281)
+ (lambda (x-31224)
(syntax-violation
'unquote-splicing
"expression not valid outside of quasiquote"
- x-31281))))
+ x-31224))))
(define case
(make-syntax-transformer
'case
'macro
- (lambda (x-31337)
- (let ((tmp-31339
- ($sc-dispatch x-31337 '(_ any any . each-any))))
- (if tmp-31339
+ (lambda (x-31280)
+ (let ((tmp-31282
+ ($sc-dispatch x-31280 '(_ any any . each-any))))
+ (if tmp-31282
(@apply
- (lambda (e-31343 m1-31344 m2-31345)
- (let ((tmp-31346
+ (lambda (e-31286 m1-31287 m2-31288)
+ (let ((tmp-31289
(letrec*
- ((f-31388
- (lambda (clause-31391 clauses-31392)
- (if (null? clauses-31392)
- (let ((tmp-31394
+ ((f-31331
+ (lambda (clause-31334 clauses-31335)
+ (if (null? clauses-31335)
+ (let ((tmp-31337
($sc-dispatch
- clause-31391
+ clause-31334
'(#(free-id
#(syntax-object
else
@@ -25643,89 +25665,89 @@
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("l-*-31296"
- "l-*-31297"
- "l-*-31298"))
+ #("l-*-31239"
+ "l-*-31240"
+ "l-*-31241"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("l-*-31286"
- "l-*-31287"
- "l-*-31288"))
+ #("l-*-31229"
+ "l-*-31230"
+ "l-*-31231"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31283")))
+ #("l-*-31226")))
(hygiene guile)))
any
.
each-any))))
- (if tmp-31394
+ (if tmp-31337
(@apply
- (lambda (e1-31398 e2-31399)
+ (lambda (e1-31341 e2-31342)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("l-*-31305" "l-*-31306"))
+ #("l-*-31248" "l-*-31249"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("l-*-31296"
- "l-*-31297"
- "l-*-31298"))
+ #("l-*-31239"
+ "l-*-31240"
+ "l-*-31241"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("l-*-31286"
- "l-*-31287"
- "l-*-31288"))
+ #("l-*-31229"
+ "l-*-31230"
+ "l-*-31231"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31283")))
+ #("l-*-31226")))
(hygiene guile))
- (cons e1-31398 e2-31399)))
- tmp-31394)
- (let ((tmp-31400
+ (cons e1-31341 e2-31342)))
+ tmp-31337)
+ (let ((tmp-31343
($sc-dispatch
- clause-31391
+ clause-31334
'(each-any any . each-any))))
- (if tmp-31400
+ (if tmp-31343
(@apply
- (lambda (k-31404 e1-31405 e2-31406)
+ (lambda (k-31347 e1-31348 e2-31349)
(list '#(syntax-object
if
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("l-*-31311"
- "l-*-31312"
- "l-*-31313"))
+ #("l-*-31254"
+ "l-*-31255"
+ "l-*-31256"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("l-*-31296"
- "l-*-31297"
- "l-*-31298"))
+ #("l-*-31239"
+ "l-*-31240"
+ "l-*-31241"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("l-*-31286"
- "l-*-31287"
- "l-*-31288"))
+ #("l-*-31229"
+ "l-*-31230"
+ "l-*-31231"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31283")))
+ #("l-*-31226")))
(hygiene guile))
(list '#(syntax-object
memv
@@ -25735,9 +25757,9 @@
#((top)
(top)
(top))
- #("l-*-31311"
- "l-*-31312"
- "l-*-31313"))
+ #("l-*-31254"
+ "l-*-31255"
+ "l-*-31256"))
#(ribcage () () ())
#(ribcage
#(f
@@ -25746,22 +25768,22 @@
#((top)
(top)
(top))
- #("l-*-31296"
- "l-*-31297"
- "l-*-31298"))
+ #("l-*-31239"
+ "l-*-31240"
+ "l-*-31241"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("l-*-31286"
- "l-*-31287"
- "l-*-31288"))
+ #("l-*-31229"
+ "l-*-31230"
+ "l-*-31231"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31283")))
+ #("l-*-31226")))
(hygiene guile))
'#(syntax-object
t
@@ -25771,9 +25793,9 @@
#((top)
(top)
(top))
- #("l-*-31311"
- "l-*-31312"
- "l-*-31313"))
+ #("l-*-31254"
+ "l-*-31255"
+ "l-*-31256"))
#(ribcage () () ())
#(ribcage
#(f
@@ -25782,22 +25804,22 @@
#((top)
(top)
(top))
- #("l-*-31296"
- "l-*-31297"
- "l-*-31298"))
+ #("l-*-31239"
+ "l-*-31240"
+ "l-*-31241"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("l-*-31286"
- "l-*-31287"
- "l-*-31288"))
+ #("l-*-31229"
+ "l-*-31230"
+ "l-*-31231"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31283")))
+ #("l-*-31226")))
(hygiene guile))
(list '#(syntax-object
quote
@@ -25807,9 +25829,9 @@
#((top)
(top)
(top))
- #("l-*-31311"
- "l-*-31312"
- "l-*-31313"))
+ #("l-*-31254"
+ "l-*-31255"
+ "l-*-31256"))
#(ribcage
()
()
@@ -25821,17 +25843,17 @@
#((top)
(top)
(top))
- #("l-*-31296"
- "l-*-31297"
- "l-*-31298"))
+ #("l-*-31239"
+ "l-*-31240"
+ "l-*-31241"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("l-*-31286"
- "l-*-31287"
- "l-*-31288"))
+ #("l-*-31229"
+ "l-*-31230"
+ "l-*-31231"))
#(ribcage
()
()
@@ -25839,10 +25861,10 @@
#(ribcage
#(x)
#((top))
- #("l-*-31283")))
+ #("l-*-31226")))
(hygiene
guile))
- k-31404))
+ k-31347))
(cons '#(syntax-object
begin
((top)
@@ -25851,9 +25873,9 @@
#((top)
(top)
(top))
- #("l-*-31311"
- "l-*-31312"
- "l-*-31313"))
+ #("l-*-31254"
+ "l-*-31255"
+ "l-*-31256"))
#(ribcage () () ())
#(ribcage
#(f
@@ -25862,74 +25884,74 @@
#((top)
(top)
(top))
- #("l-*-31296"
- "l-*-31297"
- "l-*-31298"))
+ #("l-*-31239"
+ "l-*-31240"
+ "l-*-31241"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("l-*-31286"
- "l-*-31287"
- "l-*-31288"))
+ #("l-*-31229"
+ "l-*-31230"
+ "l-*-31231"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31283")))
+ #("l-*-31226")))
(hygiene guile))
- (cons e1-31405
- e2-31406))))
- tmp-31400)
+ (cons e1-31348
+ e2-31349))))
+ tmp-31343)
(syntax-violation
'case
"bad clause"
- x-31337
- clause-31391)))))
- (let ((tmp-31414
- (f-31388
- (car clauses-31392)
- (cdr clauses-31392))))
- (let ((tmp-31417
+ x-31280
+ clause-31334)))))
+ (let ((tmp-31357
+ (f-31331
+ (car clauses-31335)
+ (cdr clauses-31335))))
+ (let ((tmp-31360
($sc-dispatch
- clause-31391
+ clause-31334
'(each-any any . each-any))))
- (if tmp-31417
+ (if tmp-31360
(@apply
- (lambda (k-31421 e1-31422 e2-31423)
+ (lambda (k-31364 e1-31365 e2-31366)
(list '#(syntax-object
if
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("l-*-31327"
- "l-*-31328"
- "l-*-31329"))
+ #("l-*-31270"
+ "l-*-31271"
+ "l-*-31272"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("l-*-31323"))
+ #("l-*-31266"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("l-*-31296"
- "l-*-31297"
- "l-*-31298"))
+ #("l-*-31239"
+ "l-*-31240"
+ "l-*-31241"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("l-*-31286"
- "l-*-31287"
- "l-*-31288"))
+ #("l-*-31229"
+ "l-*-31230"
+ "l-*-31231"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31283")))
+ #("l-*-31226")))
(hygiene guile))
(list '#(syntax-object
memv
@@ -25937,32 +25959,32 @@
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("l-*-31327"
- "l-*-31328"
- "l-*-31329"))
+ #("l-*-31270"
+ "l-*-31271"
+ "l-*-31272"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("l-*-31323"))
+ #("l-*-31266"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("l-*-31296"
- "l-*-31297"
- "l-*-31298"))
+ #("l-*-31239"
+ "l-*-31240"
+ "l-*-31241"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("l-*-31286"
- "l-*-31287"
- "l-*-31288"))
+ #("l-*-31229"
+ "l-*-31230"
+ "l-*-31231"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31283")))
+ #("l-*-31226")))
(hygiene guile))
'#(syntax-object
t
@@ -25970,32 +25992,32 @@
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("l-*-31327"
- "l-*-31328"
- "l-*-31329"))
+ #("l-*-31270"
+ "l-*-31271"
+ "l-*-31272"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("l-*-31323"))
+ #("l-*-31266"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("l-*-31296"
- "l-*-31297"
- "l-*-31298"))
+ #("l-*-31239"
+ "l-*-31240"
+ "l-*-31241"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("l-*-31286"
- "l-*-31287"
- "l-*-31288"))
+ #("l-*-31229"
+ "l-*-31230"
+ "l-*-31231"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31283")))
+ #("l-*-31226")))
(hygiene guile))
(list '#(syntax-object
quote
@@ -26005,9 +26027,9 @@
#((top)
(top)
(top))
- #("l-*-31327"
- "l-*-31328"
- "l-*-31329"))
+ #("l-*-31270"
+ "l-*-31271"
+ "l-*-31272"))
#(ribcage
()
()
@@ -26015,7 +26037,7 @@
#(ribcage
#(rest)
#((top))
- #("l-*-31323"))
+ #("l-*-31266"))
#(ribcage
()
()
@@ -26027,17 +26049,17 @@
#((top)
(top)
(top))
- #("l-*-31296"
- "l-*-31297"
- "l-*-31298"))
+ #("l-*-31239"
+ "l-*-31240"
+ "l-*-31241"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("l-*-31286"
- "l-*-31287"
- "l-*-31288"))
+ #("l-*-31229"
+ "l-*-31230"
+ "l-*-31231"))
#(ribcage
()
()
@@ -26045,63 +26067,63 @@
#(ribcage
#(x)
#((top))
- #("l-*-31283")))
+ #("l-*-31226")))
(hygiene guile))
- k-31421))
+ k-31364))
(cons '#(syntax-object
begin
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("l-*-31327"
- "l-*-31328"
- "l-*-31329"))
+ #("l-*-31270"
+ "l-*-31271"
+ "l-*-31272"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("l-*-31323"))
+ #("l-*-31266"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("l-*-31296"
- "l-*-31297"
- "l-*-31298"))
+ #("l-*-31239"
+ "l-*-31240"
+ "l-*-31241"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("l-*-31286"
- "l-*-31287"
- "l-*-31288"))
+ #("l-*-31229"
+ "l-*-31230"
+ "l-*-31231"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31283")))
+ #("l-*-31226")))
(hygiene guile))
- (cons e1-31422 e2-31423))
- tmp-31414))
- tmp-31417)
+ (cons e1-31365 e2-31366))
+ tmp-31357))
+ tmp-31360)
(syntax-violation
'case
"bad clause"
- x-31337
- clause-31391))))))))
- (f-31388 m1-31344 m2-31345))))
- (let ((body-31347 tmp-31346))
+ x-31280
+ clause-31334))))))))
+ (f-31331 m1-31287 m2-31288))))
+ (let ((body-31290 tmp-31289))
(list '#(syntax-object
let
((top)
#(ribcage () () ())
- #(ribcage #(body) #((top)) #("l-*-31294"))
+ #(ribcage #(body) #((top)) #("l-*-31237"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("l-*-31286" "l-*-31287" "l-*-31288"))
+ #("l-*-31229" "l-*-31230" "l-*-31231"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-31283")))
+ #(ribcage #(x) #((top)) #("l-*-31226")))
(hygiene guile))
(list (list '#(syntax-object
t
@@ -26110,122 +26132,122 @@
#(ribcage
#(body)
#((top))
- #("l-*-31294"))
+ #("l-*-31237"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("l-*-31286"
- "l-*-31287"
- "l-*-31288"))
+ #("l-*-31229"
+ "l-*-31230"
+ "l-*-31231"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31283")))
+ #("l-*-31226")))
(hygiene guile))
- e-31343))
- body-31347))))
- tmp-31339)
+ e-31286))
+ body-31290))))
+ tmp-31282)
(syntax-violation
#f
"source expression failed to match any pattern"
- x-31337))))))
+ x-31280))))))
(define make-variable-transformer
- (lambda (proc-31441)
- (if (procedure? proc-31441)
+ (lambda (proc-31384)
+ (if (procedure? proc-31384)
(letrec*
- ((trans-31442
- (lambda (x-31448) (proc-31441 x-31448))))
+ ((trans-31385
+ (lambda (x-31391) (proc-31384 x-31391))))
(begin
(set-procedure-property!
- trans-31442
+ trans-31385
'variable-transformer
#t)
- trans-31442))
+ trans-31385))
(error "variable transformer not a procedure"
- proc-31441))))
+ proc-31384))))
(define identifier-syntax
(make-syntax-transformer
'identifier-syntax
'macro
- (lambda (x-31480)
- (let ((tmp-31482 ($sc-dispatch x-31480 '(_ any))))
- (if tmp-31482
+ (lambda (x-31423)
+ (let ((tmp-31425 ($sc-dispatch x-31423 '(_ any))))
+ (if tmp-31425
(@apply
- (lambda (e-31486)
+ (lambda (e-31429)
(list '#(syntax-object
lambda
((top)
- #(ribcage #(e) #((top)) #("l-*-31455"))
+ #(ribcage #(e) #((top)) #("l-*-31398"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-31452")))
+ #(ribcage #(x) #((top)) #("l-*-31395")))
(hygiene guile))
'(#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("l-*-31455"))
+ #(ribcage #(e) #((top)) #("l-*-31398"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-31452")))
+ #(ribcage #(x) #((top)) #("l-*-31395")))
(hygiene guile)))
'#((#(syntax-object
macro-type
((top)
- #(ribcage #(e) #((top)) #("l-*-31455"))
+ #(ribcage #(e) #((top)) #("l-*-31398"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-31452")))
+ #(ribcage #(x) #((top)) #("l-*-31395")))
(hygiene guile))
.
#(syntax-object
identifier-syntax
((top)
- #(ribcage #(e) #((top)) #("l-*-31455"))
+ #(ribcage #(e) #((top)) #("l-*-31398"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-31452")))
+ #(ribcage #(x) #((top)) #("l-*-31395")))
(hygiene guile))))
(list '#(syntax-object
syntax-case
((top)
- #(ribcage #(e) #((top)) #("l-*-31455"))
+ #(ribcage #(e) #((top)) #("l-*-31398"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-31452")))
+ #(ribcage #(x) #((top)) #("l-*-31395")))
(hygiene guile))
'#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("l-*-31455"))
+ #(ribcage #(e) #((top)) #("l-*-31398"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-31452")))
+ #(ribcage #(x) #((top)) #("l-*-31395")))
(hygiene guile))
'()
(list '#(syntax-object
id
((top)
- #(ribcage #(e) #((top)) #("l-*-31455"))
+ #(ribcage #(e) #((top)) #("l-*-31398"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-31452")))
+ #(ribcage #(x) #((top)) #("l-*-31395")))
(hygiene guile))
'(#(syntax-object
identifier?
((top)
- #(ribcage #(e) #((top)) #("l-*-31455"))
+ #(ribcage #(e) #((top)) #("l-*-31398"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-31452")))
+ #(ribcage #(x) #((top)) #("l-*-31395")))
(hygiene guile))
(#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("l-*-31455"))
+ #(ribcage #(e) #((top)) #("l-*-31398"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-31452")))
+ #(ribcage #(x) #((top)) #("l-*-31395")))
(hygiene guile))
#(syntax-object
id
((top)
- #(ribcage #(e) #((top)) #("l-*-31455"))
+ #(ribcage #(e) #((top)) #("l-*-31398"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-31452")))
+ #(ribcage #(x) #((top)) #("l-*-31395")))
(hygiene guile))))
(list '#(syntax-object
syntax
@@ -26233,34 +26255,34 @@
#(ribcage
#(e)
#((top))
- #("l-*-31455"))
+ #("l-*-31398"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31452")))
+ #("l-*-31395")))
(hygiene guile))
- e-31486))
+ e-31429))
(list '(#(syntax-object
_
((top)
- #(ribcage #(e) #((top)) #("l-*-31455"))
+ #(ribcage #(e) #((top)) #("l-*-31398"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-31452")))
+ #(ribcage #(x) #((top)) #("l-*-31395")))
(hygiene guile))
#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("l-*-31455"))
+ #(ribcage #(e) #((top)) #("l-*-31398"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-31452")))
+ #(ribcage #(x) #((top)) #("l-*-31395")))
(hygiene guile))
#(syntax-object
...
((top)
- #(ribcage #(e) #((top)) #("l-*-31455"))
+ #(ribcage #(e) #((top)) #("l-*-31398"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-31452")))
+ #(ribcage #(x) #((top)) #("l-*-31395")))
(hygiene guile)))
(list '#(syntax-object
syntax
@@ -26268,26 +26290,26 @@
#(ribcage
#(e)
#((top))
- #("l-*-31455"))
+ #("l-*-31398"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31452")))
+ #("l-*-31395")))
(hygiene guile))
- (cons e-31486
+ (cons e-31429
'(#(syntax-object
x
((top)
#(ribcage
#(e)
#((top))
- #("l-*-31455"))
+ #("l-*-31398"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31452")))
+ #("l-*-31395")))
(hygiene guile))
#(syntax-object
...
@@ -26295,59 +26317,59 @@
#(ribcage
#(e)
#((top))
- #("l-*-31455"))
+ #("l-*-31398"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31452")))
+ #("l-*-31395")))
(hygiene guile)))))))))
- tmp-31482)
- (let ((tmp-31487
+ tmp-31425)
+ (let ((tmp-31430
($sc-dispatch
- x-31480
+ x-31423
'(_ (any any)
((#(free-id
#(syntax-object
set!
((top)
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-31452")))
+ #(ribcage #(x) #((top)) #("l-*-31395")))
(hygiene guile)))
any
any)
any)))))
- (if (if tmp-31487
+ (if (if tmp-31430
(@apply
- (lambda (id-31491
- exp1-31492
- var-31493
- val-31494
- exp2-31495)
- (if (identifier? id-31491)
- (identifier? var-31493)
+ (lambda (id-31434
+ exp1-31435
+ var-31436
+ val-31437
+ exp2-31438)
+ (if (identifier? id-31434)
+ (identifier? var-31436)
#f))
- tmp-31487)
+ tmp-31430)
#f)
(@apply
- (lambda (id-31496
- exp1-31497
- var-31498
- val-31499
- exp2-31500)
+ (lambda (id-31439
+ exp1-31440
+ var-31441
+ val-31442
+ exp2-31443)
(list '#(syntax-object
make-variable-transformer
((top)
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("l-*-31470"
- "l-*-31471"
- "l-*-31472"
- "l-*-31473"
- "l-*-31474"))
+ #("l-*-31413"
+ "l-*-31414"
+ "l-*-31415"
+ "l-*-31416"
+ "l-*-31417"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-31452")))
+ #(ribcage #(x) #((top)) #("l-*-31395")))
(hygiene guile))
(list '#(syntax-object
lambda
@@ -26355,13 +26377,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("l-*-31470"
- "l-*-31471"
- "l-*-31472"
- "l-*-31473"
- "l-*-31474"))
+ #("l-*-31413"
+ "l-*-31414"
+ "l-*-31415"
+ "l-*-31416"
+ "l-*-31417"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-31452")))
+ #(ribcage #(x) #((top)) #("l-*-31395")))
(hygiene guile))
'(#(syntax-object
x
@@ -26369,13 +26391,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("l-*-31470"
- "l-*-31471"
- "l-*-31472"
- "l-*-31473"
- "l-*-31474"))
+ #("l-*-31413"
+ "l-*-31414"
+ "l-*-31415"
+ "l-*-31416"
+ "l-*-31417"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-31452")))
+ #(ribcage #(x) #((top)) #("l-*-31395")))
(hygiene guile)))
'#((#(syntax-object
macro-type
@@ -26383,13 +26405,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("l-*-31470"
- "l-*-31471"
- "l-*-31472"
- "l-*-31473"
- "l-*-31474"))
+ #("l-*-31413"
+ "l-*-31414"
+ "l-*-31415"
+ "l-*-31416"
+ "l-*-31417"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-31452")))
+ #(ribcage #(x) #((top)) #("l-*-31395")))
(hygiene guile))
.
#(syntax-object
@@ -26398,13 +26420,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("l-*-31470"
- "l-*-31471"
- "l-*-31472"
- "l-*-31473"
- "l-*-31474"))
+ #("l-*-31413"
+ "l-*-31414"
+ "l-*-31415"
+ "l-*-31416"
+ "l-*-31417"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-31452")))
+ #(ribcage #(x) #((top)) #("l-*-31395")))
(hygiene guile))))
(list '#(syntax-object
syntax-case
@@ -26412,16 +26434,16 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("l-*-31470"
- "l-*-31471"
- "l-*-31472"
- "l-*-31473"
- "l-*-31474"))
+ #("l-*-31413"
+ "l-*-31414"
+ "l-*-31415"
+ "l-*-31416"
+ "l-*-31417"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31452")))
+ #("l-*-31395")))
(hygiene guile))
'#(syntax-object
x
@@ -26429,16 +26451,16 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("l-*-31470"
- "l-*-31471"
- "l-*-31472"
- "l-*-31473"
- "l-*-31474"))
+ #("l-*-31413"
+ "l-*-31414"
+ "l-*-31415"
+ "l-*-31416"
+ "l-*-31417"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31452")))
+ #("l-*-31395")))
(hygiene guile))
'(#(syntax-object
set!
@@ -26446,16 +26468,16 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("l-*-31470"
- "l-*-31471"
- "l-*-31472"
- "l-*-31473"
- "l-*-31474"))
+ #("l-*-31413"
+ "l-*-31414"
+ "l-*-31415"
+ "l-*-31416"
+ "l-*-31417"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31452")))
+ #("l-*-31395")))
(hygiene guile)))
(list (list '#(syntax-object
set!
@@ -26467,19 +26489,19 @@
(top)
(top)
(top))
- #("l-*-31470"
- "l-*-31471"
- "l-*-31472"
- "l-*-31473"
- "l-*-31474"))
+ #("l-*-31413"
+ "l-*-31414"
+ "l-*-31415"
+ "l-*-31416"
+ "l-*-31417"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31452")))
+ #("l-*-31395")))
(hygiene guile))
- var-31498
- val-31499)
+ var-31441
+ val-31442)
(list '#(syntax-object
syntax
((top)
@@ -26490,19 +26512,19 @@
(top)
(top)
(top))
- #("l-*-31470"
- "l-*-31471"
- "l-*-31472"
- "l-*-31473"
- "l-*-31474"))
+ #("l-*-31413"
+ "l-*-31414"
+ "l-*-31415"
+ "l-*-31416"
+ "l-*-31417"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31452")))
+ #("l-*-31395")))
(hygiene guile))
- exp2-31500))
- (list (cons id-31496
+ exp2-31443))
+ (list (cons id-31439
'(#(syntax-object
x
((top)
@@ -26513,16 +26535,16 @@
(top)
(top)
(top))
- #("l-*-31470"
- "l-*-31471"
- "l-*-31472"
- "l-*-31473"
- "l-*-31474"))
+ #("l-*-31413"
+ "l-*-31414"
+ "l-*-31415"
+ "l-*-31416"
+ "l-*-31417"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31452")))
+ #("l-*-31395")))
(hygiene guile))
#(syntax-object
...
@@ -26534,16 +26556,16 @@
(top)
(top)
(top))
- #("l-*-31470"
- "l-*-31471"
- "l-*-31472"
- "l-*-31473"
- "l-*-31474"))
+ #("l-*-31413"
+ "l-*-31414"
+ "l-*-31415"
+ "l-*-31416"
+ "l-*-31417"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31452")))
+ #("l-*-31395")))
(hygiene guile))))
(list '#(syntax-object
syntax
@@ -26555,18 +26577,18 @@
(top)
(top)
(top))
- #("l-*-31470"
- "l-*-31471"
- "l-*-31472"
- "l-*-31473"
- "l-*-31474"))
+ #("l-*-31413"
+ "l-*-31414"
+ "l-*-31415"
+ "l-*-31416"
+ "l-*-31417"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31452")))
+ #("l-*-31395")))
(hygiene guile))
- (cons exp1-31497
+ (cons exp1-31440
'(#(syntax-object
x
((top)
@@ -26581,16 +26603,16 @@
(top)
(top)
(top))
- #("l-*-31470"
- "l-*-31471"
- "l-*-31472"
- "l-*-31473"
- "l-*-31474"))
+ #("l-*-31413"
+ "l-*-31414"
+ "l-*-31415"
+ "l-*-31416"
+ "l-*-31417"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31452")))
+ #("l-*-31395")))
(hygiene guile))
#(syntax-object
...
@@ -26606,18 +26628,18 @@
(top)
(top)
(top))
- #("l-*-31470"
- "l-*-31471"
- "l-*-31472"
- "l-*-31473"
- "l-*-31474"))
+ #("l-*-31413"
+ "l-*-31414"
+ "l-*-31415"
+ "l-*-31416"
+ "l-*-31417"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31452")))
+ #("l-*-31395")))
(hygiene guile))))))
- (list id-31496
+ (list id-31439
(list '#(syntax-object
identifier?
((top)
@@ -26628,16 +26650,16 @@
(top)
(top)
(top))
- #("l-*-31470"
- "l-*-31471"
- "l-*-31472"
- "l-*-31473"
- "l-*-31474"))
+ #("l-*-31413"
+ "l-*-31414"
+ "l-*-31415"
+ "l-*-31416"
+ "l-*-31417"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31452")))
+ #("l-*-31395")))
(hygiene guile))
(list '#(syntax-object
syntax
@@ -26653,18 +26675,18 @@
(top)
(top)
(top))
- #("l-*-31470"
- "l-*-31471"
- "l-*-31472"
- "l-*-31473"
- "l-*-31474"))
+ #("l-*-31413"
+ "l-*-31414"
+ "l-*-31415"
+ "l-*-31416"
+ "l-*-31417"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31452")))
+ #("l-*-31395")))
(hygiene guile))
- id-31496))
+ id-31439))
(list '#(syntax-object
syntax
((top)
@@ -26675,69 +26697,69 @@
(top)
(top)
(top))
- #("l-*-31470"
- "l-*-31471"
- "l-*-31472"
- "l-*-31473"
- "l-*-31474"))
+ #("l-*-31413"
+ "l-*-31414"
+ "l-*-31415"
+ "l-*-31416"
+ "l-*-31417"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31452")))
+ #("l-*-31395")))
(hygiene guile))
- exp1-31497))))))
- tmp-31487)
+ exp1-31440))))))
+ tmp-31430)
(syntax-violation
#f
"source expression failed to match any pattern"
- x-31480))))))))
+ x-31423))))))))
(define define*
(make-syntax-transformer
'define*
'macro
- (lambda (x-31532)
- (let ((tmp-31534
+ (lambda (x-31475)
+ (let ((tmp-31477
($sc-dispatch
- x-31532
+ x-31475
'(_ (any . any) any . each-any))))
- (if tmp-31534
+ (if tmp-31477
(@apply
- (lambda (id-31538 args-31539 b0-31540 b1-31541)
+ (lambda (id-31481 args-31482 b0-31483 b1-31484)
(list '#(syntax-object
define
((top)
#(ribcage
#(id args b0 b1)
#((top) (top) (top) (top))
- #("l-*-31514"
- "l-*-31515"
- "l-*-31516"
- "l-*-31517"))
+ #("l-*-31457"
+ "l-*-31458"
+ "l-*-31459"
+ "l-*-31460"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-31511")))
+ #(ribcage #(x) #((top)) #("l-*-31454")))
(hygiene guile))
- id-31538
+ id-31481
(cons '#(syntax-object
lambda*
((top)
#(ribcage
#(id args b0 b1)
#((top) (top) (top) (top))
- #("l-*-31514"
- "l-*-31515"
- "l-*-31516"
- "l-*-31517"))
+ #("l-*-31457"
+ "l-*-31458"
+ "l-*-31459"
+ "l-*-31460"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-31511")))
+ #(ribcage #(x) #((top)) #("l-*-31454")))
(hygiene guile))
- (cons args-31539 (cons b0-31540 b1-31541)))))
- tmp-31534)
- (let ((tmp-31542 ($sc-dispatch x-31532 '(_ any any))))
- (if (if tmp-31542
+ (cons args-31482 (cons b0-31483 b1-31484)))))
+ tmp-31477)
+ (let ((tmp-31485 ($sc-dispatch x-31475 '(_ any any))))
+ (if (if tmp-31485
(@apply
- (lambda (id-31546 val-31547)
+ (lambda (id-31489 val-31490)
(identifier?
'#(syntax-object
x
@@ -26745,29 +26767,29 @@
#(ribcage
#(id val)
#((top) (top))
- #("l-*-31524" "l-*-31525"))
+ #("l-*-31467" "l-*-31468"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-31511")))
+ #(ribcage #(x) #((top)) #("l-*-31454")))
(hygiene guile))))
- tmp-31542)
+ tmp-31485)
#f)
(@apply
- (lambda (id-31548 val-31549)
+ (lambda (id-31491 val-31492)
(list '#(syntax-object
define
((top)
#(ribcage
#(id val)
#((top) (top))
- #("l-*-31528" "l-*-31529"))
+ #("l-*-31471" "l-*-31472"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-31511")))
+ #(ribcage #(x) #((top)) #("l-*-31454")))
(hygiene guile))
- id-31548
- val-31549))
- tmp-31542)
+ id-31491
+ val-31492))
+ tmp-31485)
(syntax-violation
#f
"source expression failed to match any pattern"
- x-31532))))))))
+ x-31475))))))))
diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm
index 728ab1254..270daa7ce 100644
--- a/module/ice-9/psyntax.scm
+++ b/module/ice-9/psyntax.scm
@@ -1385,25 +1385,25 @@
s))
((syntax-object? x)
(let ((w (syntax-object-wrap x)))
- (let ((ms (wrap-marks w)) (s (wrap-subst w)))
+ (let ((ms (wrap-marks w)) (ss (wrap-subst w)))
(if (and (pair? ms) (eq? (car ms) the-anti-mark))
;; output is from original text
(make-syntax-object
(syntax-object-expression x)
- (make-wrap (cdr ms) (if rib (cons rib (cdr s)) (cdr s)))
+ (make-wrap (cdr ms) (if rib (cons rib (cdr ss)) (cdr ss)))
(syntax-object-module x))
;; output introduced by macro
(make-syntax-object
(decorate-source (syntax-object-expression x) s)
(make-wrap (cons m ms)
(if rib
- (cons rib (cons 'shift s))
- (cons 'shift s)))
+ (cons rib (cons 'shift ss))
+ (cons 'shift ss)))
(syntax-object-module x))))))
((vector? x)
(let* ((n (vector-length x))
- (v (decorate-source (make-vector n) x)))
+ (v (decorate-source (make-vector n) s)))
(do ((i 0 (fx+ i 1)))
((fx= i n) v)
(vector-set! v i