summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMark H Weaver <mhw@netris.org>2012-02-15 00:41:24 -0500
committerMark H Weaver <mhw@netris.org>2012-02-15 00:41:24 -0500
commitbbd1281ae5551e31d1bc720c7e93528619e0a693 (patch)
tree5ef1ff575b34f5f427f49fbc875b3e8e02af5e6c
parent30398e94f9cadfaff44117bbff214b0b7ba703ca (diff)
downloadguile-bbd1281ae5551e31d1bc720c7e93528619e0a693.tar.gz
syntax-violation: prefer 'subform' for source info, with 'form' as fallback
* module/ice-9/psyntax.scm (syntax-violation): Look for source properties of 'subform' first. If 'subform' has none, 'form' is used. Previously, the source information of 'form' was used unless 'form' _itself_ was '#f', in which case 'subform' was used. * module/ice-9/psyntax-pp.scm: Regenerate.
-rw-r--r--module/ice-9/psyntax-pp.scm22785
-rw-r--r--module/ice-9/psyntax.scm3
2 files changed, 11371 insertions, 11417 deletions
diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm
index 43b273c36..41d7db426 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-6306 (if #f #f))
- (transformer-environment-6367 (if #f #f)))
+(let ((session-id-4255 (if #f #f))
+ (transformer-environment-4316 (if #f #f)))
(letrec*
- ((top-level-eval-hook-6304
- (lambda (x-29255 mod-29256)
- (primitive-eval x-29255)))
- (get-global-definition-hook-6308
- (lambda (symbol-17518 module-17519)
+ ((top-level-eval-hook-4253
+ (lambda (x-27423 mod-27424)
+ (primitive-eval x-27423)))
+ (get-global-definition-hook-4257
+ (lambda (symbol-15686 module-15687)
(begin
- (if (if (not module-17519) (current-module) #f)
+ (if (if (not module-15687) (current-module) #f)
(warn "module system is booted, we should have a module"
- symbol-17518))
- (let ((v-17520
+ symbol-15686))
+ (let ((v-15688
(module-variable
- (if module-17519
- (resolve-module (cdr module-17519))
+ (if module-15687
+ (resolve-module (cdr module-15687))
(current-module))
- 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))
+ symbol-15686)))
+ (if v-15688
+ (if (variable-bound? v-15688)
+ (let ((val-15690 (variable-ref v-15688)))
+ (if (macro? val-15690)
+ (if (macro-type val-15690)
+ (cons (macro-type val-15690)
+ (macro-binding val-15690))
#f)
#f))
#f)
#f)))))
- (maybe-name-value!-6310
- (lambda (name-17799 val-17800)
- (if (if (struct? val-17800)
- (eq? (struct-vtable val-17800)
+ (maybe-name-value!-4259
+ (lambda (name-15967 val-15968)
+ (if (if (struct? val-15968)
+ (eq? (struct-vtable val-15968)
(vector-ref %expanded-vtables 13))
#f)
- (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)
+ (let ((meta-15975 (struct-ref val-15968 1)))
+ (if (not (assq 'name meta-15975))
+ (let ((v-15980
+ (cons (cons 'name name-15967) meta-15975)))
+ (struct-set! val-15968 1 v-15980)))))))
+ (build-application-4261
+ (lambda (source-15692 fun-exp-15693 arg-exps-15694)
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
- source-17524
- fun-exp-17525
- arg-exps-17526)))
- (build-conditional-6313
- (lambda (source-17532
- test-exp-17533
- then-exp-17534
- else-exp-17535)
+ source-15692
+ fun-exp-15693
+ arg-exps-15694)))
+ (build-conditional-4262
+ (lambda (source-15700
+ test-exp-15701
+ then-exp-15702
+ else-exp-15703)
(make-struct/no-tail
(vector-ref %expanded-vtables 10)
- source-17532
- test-exp-17533
- then-exp-17534
- else-exp-17535)))
- (build-dynlet-6314
- (lambda (source-17542 fluids-17543 vals-17544 body-17545)
+ source-15700
+ test-exp-15701
+ then-exp-15702
+ else-exp-15703)))
+ (build-dynlet-4263
+ (lambda (source-15710 fluids-15711 vals-15712 body-15713)
(make-struct/no-tail
(vector-ref %expanded-vtables 17)
- source-17542
- fluids-17543
- vals-17544
- body-17545)))
- (build-lexical-reference-6315
- (lambda (type-29257 source-29258 name-29259 var-29260)
+ source-15710
+ fluids-15711
+ vals-15712
+ body-15713)))
+ (build-lexical-reference-4264
+ (lambda (type-27425 source-27426 name-27427 var-27428)
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
- source-29258
- name-29259
- var-29260)))
- (build-lexical-assignment-6316
- (lambda (source-17552 name-17553 var-17554 exp-17555)
+ source-27426
+ name-27427
+ var-27428)))
+ (build-lexical-assignment-4265
+ (lambda (source-15720 name-15721 var-15722 exp-15723)
(begin
- (if (if (struct? exp-17555)
- (eq? (struct-vtable exp-17555)
+ (if (if (struct? exp-15723)
+ (eq? (struct-vtable exp-15723)
(vector-ref %expanded-vtables 13))
#f)
- (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)))))
+ (let ((meta-15739 (struct-ref exp-15723 1)))
+ (if (not (assq 'name meta-15739))
+ (let ((v-15746
+ (cons (cons 'name name-15721) meta-15739)))
+ (struct-set! exp-15723 1 v-15746)))))
(make-struct/no-tail
(vector-ref %expanded-vtables 4)
- 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)
+ source-15720
+ name-15721
+ var-15722
+ exp-15723))))
+ (analyze-variable-4266
+ (lambda (mod-27434
+ var-27435
+ modref-cont-27436
+ bare-cont-27437)
+ (if (not mod-27434)
+ (bare-cont-27437 var-27435)
+ (let ((kind-27438 (car mod-27434))
+ (mod-27439 (cdr mod-27434)))
+ (if (eqv? kind-27438 'public)
+ (modref-cont-27436 mod-27439 var-27435 #t)
+ (if (eqv? kind-27438 'private)
+ (if (not (equal? mod-27439 (module-name (current-module))))
+ (modref-cont-27436 mod-27439 var-27435 #f)
+ (bare-cont-27437 var-27435))
+ (if (eqv? kind-27438 'bare)
+ (bare-cont-27437 var-27435)
+ (if (eqv? kind-27438 'hygiene)
(if (if (not (equal?
- mod-29271
+ mod-27439
(module-name (current-module))))
(module-variable
- (resolve-module mod-29271)
- var-29267)
+ (resolve-module mod-27439)
+ var-27435)
#f)
- (modref-cont-29268 mod-29271 var-29267 #f)
- (bare-cont-29269 var-29267))
+ (modref-cont-27436 mod-27439 var-27435 #f)
+ (bare-cont-27437 var-27435))
(syntax-violation
#f
"bad module kind"
- 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)
+ var-27435
+ mod-27439)))))))))
+ (build-global-reference-4267
+ (lambda (source-27466 var-27467 mod-27468)
+ (analyze-variable-4266
+ mod-27468
+ var-27467
+ (lambda (mod-27471 var-27472 public?-27473)
(make-struct/no-tail
(vector-ref %expanded-vtables 5)
- source-29298
- mod-29303
- var-29304
- public?-29305))
- (lambda (var-29313)
+ source-27466
+ mod-27471
+ var-27472
+ public?-27473))
+ (lambda (var-27481)
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
- source-29298
- var-29313)))))
- (build-global-assignment-6319
- (lambda (source-17587 var-17588 exp-17589 mod-17590)
+ source-27466
+ var-27481)))))
+ (build-global-assignment-4268
+ (lambda (source-15755 var-15756 exp-15757 mod-15758)
(begin
- (if (if (struct? exp-17589)
- (eq? (struct-vtable exp-17589)
+ (if (if (struct? exp-15757)
+ (eq? (struct-vtable exp-15757)
(vector-ref %expanded-vtables 13))
#f)
- (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)
+ (let ((meta-15774 (struct-ref exp-15757 1)))
+ (if (not (assq 'name meta-15774))
+ (let ((v-15781
+ (cons (cons 'name var-15756) meta-15774)))
+ (struct-set! exp-15757 1 v-15781)))))
+ (analyze-variable-4266
+ mod-15758
+ var-15756
+ (lambda (mod-15786 var-15787 public?-15788)
(make-struct/no-tail
(vector-ref %expanded-vtables 6)
- source-17587
- mod-17618
- var-17619
- public?-17620
- exp-17589))
- (lambda (var-17628)
+ source-15755
+ mod-15786
+ var-15787
+ public?-15788
+ exp-15757))
+ (lambda (var-15796)
(make-struct/no-tail
(vector-ref %expanded-vtables 8)
- source-17587
- var-17628
- exp-17589))))))
- (build-global-definition-6320
- (lambda (source-29319 var-29320 exp-29321)
+ source-15755
+ var-15796
+ exp-15757))))))
+ (build-global-definition-4269
+ (lambda (source-27487 var-27488 exp-27489)
(begin
- (if (if (struct? exp-29321)
- (eq? (struct-vtable exp-29321)
+ (if (if (struct? exp-27489)
+ (eq? (struct-vtable exp-27489)
(vector-ref %expanded-vtables 13))
#f)
- (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)))))
+ (let ((meta-27505 (struct-ref exp-27489 1)))
+ (if (not (assq 'name meta-27505))
+ (let ((v-27512
+ (cons (cons 'name var-27488) meta-27505)))
+ (struct-set! exp-27489 1 v-27512)))))
(make-struct/no-tail
(vector-ref %expanded-vtables 9)
- 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
+ source-27487
+ var-27488
+ exp-27489))))
+ (build-simple-lambda-4270
+ (lambda (src-15802
+ req-15803
+ rest-15804
+ vars-15805
+ meta-15806
+ exp-15807)
+ (let ((body-15813
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
- src-17634
- req-17635
+ src-15802
+ req-15803
#f
- rest-17636
+ rest-15804
#f
'()
- vars-17637
- exp-17639
+ vars-15805
+ exp-15807
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
- src-17634
- meta-17638
- body-17645))))
- (build-sequence-6326
- (lambda (src-29352 exps-29353)
- (if (null? (cdr exps-29353))
- (car exps-29353)
+ src-15802
+ meta-15806
+ body-15813))))
+ (build-sequence-4275
+ (lambda (src-27520 exps-27521)
+ (if (null? (cdr exps-27521))
+ (car exps-27521)
(make-struct/no-tail
(vector-ref %expanded-vtables 12)
- src-29352
- exps-29353))))
- (build-let-6327
- (lambda (src-17657
- ids-17658
- vars-17659
- val-exps-17660
- body-exp-17661)
+ src-27520
+ exps-27521))))
+ (build-let-4276
+ (lambda (src-15825
+ ids-15826
+ vars-15827
+ val-exps-15828
+ body-exp-15829)
(begin
(for-each
- maybe-name-value!-6310
- ids-17658
- val-exps-17660)
- (if (null? vars-17659)
- body-exp-17661
+ maybe-name-value!-4259
+ ids-15826
+ val-exps-15828)
+ (if (null? vars-15827)
+ body-exp-15829
(make-struct/no-tail
(vector-ref %expanded-vtables 15)
- 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
+ src-15825
+ ids-15826
+ vars-15827
+ val-exps-15828
+ body-exp-15829)))))
+ (build-named-let-4277
+ (lambda (src-15853
+ ids-15854
+ vars-15855
+ val-exps-15856
+ body-exp-15857)
+ (let ((f-15858 (car vars-15855))
+ (f-name-15859 (car ids-15854))
+ (vars-15860 (cdr vars-15855))
+ (ids-15861 (cdr ids-15854)))
+ (let ((proc-15862
+ (let ((body-15882
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
- src-17685
- ids-17693
+ src-15853
+ ids-15861
#f
#f
#f
'()
- vars-17692
- body-exp-17689
+ vars-15860
+ body-exp-15857
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
- src-17685
+ src-15853
'()
- body-17714))))
+ body-15882))))
(begin
- (if (if (struct? proc-17694)
- (eq? (struct-vtable proc-17694)
+ (if (if (struct? proc-15862)
+ (eq? (struct-vtable proc-15862)
(vector-ref %expanded-vtables 13))
#f)
- (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)))))
+ (let ((meta-15906 (struct-ref proc-15862 1)))
+ (if (not (assq 'name meta-15906))
+ (let ((v-15913
+ (cons (cons 'name f-name-15859) meta-15906)))
+ (struct-set! proc-15862 1 v-15913)))))
(for-each
- 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
+ maybe-name-value!-4259
+ ids-15861
+ val-exps-15856)
+ (let ((names-15937 (list f-name-15859))
+ (gensyms-15938 (list f-15858))
+ (vals-15939 (list proc-15862))
+ (body-15940
+ (let ((fun-exp-15944
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
- src-17685
- f-name-17691
- f-17690)))
+ src-15853
+ f-name-15859
+ f-15858)))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
- src-17685
- fun-exp-17776
- val-exps-17688))))
+ src-15853
+ fun-exp-15944
+ val-exps-15856))))
(make-struct/no-tail
(vector-ref %expanded-vtables 16)
- src-17685
+ src-15853
#f
- 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
+ names-15937
+ gensyms-15938
+ vals-15939
+ body-15940)))))))
+ (build-letrec-4278
+ (lambda (src-15960
+ in-order?-15961
+ ids-15962
+ vars-15963
+ val-exps-15964
+ body-exp-15965)
+ (if (null? vars-15963)
+ body-exp-15965
(begin
(for-each
- maybe-name-value!-6310
- ids-17794
- val-exps-17796)
+ maybe-name-value!-4259
+ ids-15962
+ val-exps-15964)
(make-struct/no-tail
(vector-ref %expanded-vtables 16)
- 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)
+ src-15960
+ in-order?-15961
+ ids-15962
+ vars-15963
+ val-exps-15964
+ body-exp-15965)))))
+ (source-annotation-4287
+ (lambda (x-15991)
+ (if (if (vector? x-15991)
+ (if (= (vector-length x-15991) 4)
+ (eq? (vector-ref x-15991 0) 'syntax-object)
#f)
#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))
+ (source-annotation-4287 (vector-ref x-15991 1))
+ (if (pair? x-15991)
+ (let ((props-16006 (source-properties x-15991)))
+ (if (pair? props-16006) props-16006 #f))
#f))))
- (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)
+ (extend-env-4288
+ (lambda (labels-16008 bindings-16009 r-16010)
+ (if (null? labels-16008)
+ r-16010
+ (extend-env-4288
+ (cdr labels-16008)
+ (cdr bindings-16009)
+ (cons (cons (car labels-16008) (car bindings-16009))
+ r-16010)))))
+ (extend-var-env-4289
+ (lambda (labels-16011 vars-16012 r-16013)
+ (if (null? labels-16011)
+ r-16013
+ (extend-var-env-4289
+ (cdr labels-16011)
+ (cdr vars-16012)
+ (cons (cons (car labels-16011)
+ (cons 'lexical (car vars-16012)))
+ r-16013)))))
+ (macros-only-env-4290
+ (lambda (r-16014)
+ (if (null? r-16014)
'()
- (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)
+ (let ((a-16015 (car r-16014)))
+ (if (eq? (car (cdr a-16015)) 'macro)
+ (cons a-16015
+ (macros-only-env-4290 (cdr r-16014)))
+ (macros-only-env-4290 (cdr r-16014)))))))
+ (global-extend-4292
+ (lambda (type-16017 sym-16018 val-16019)
(module-define!
(current-module)
- sym-17850
+ sym-16018
(make-syntax-transformer
- sym-17850
- type-17849
- val-17851))))
- (id?-6345
- (lambda (x-11651)
- (if (symbol? x-11651)
+ sym-16018
+ type-16017
+ val-16019))))
+ (id?-4294
+ (lambda (x-9600)
+ (if (symbol? x-9600)
#t
- (if (if (vector? x-11651)
- (if (= (vector-length x-11651) 4)
- (eq? (vector-ref x-11651 0) 'syntax-object)
+ (if (if (vector? x-9600)
+ (if (= (vector-length x-9600) 4)
+ (eq? (vector-ref x-9600 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref x-11651 1))
+ (symbol? (vector-ref x-9600 1))
#f))))
- (gen-labels-6348
- (lambda (ls-17861)
- (if (null? ls-17861)
+ (gen-labels-4297
+ (lambda (ls-16029)
+ (if (null? ls-16029)
'()
(cons (string-append
"l-"
- (session-id-6306)
+ (session-id-4255)
(symbol->string (gensym "-")))
- (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)))
+ (gen-labels-4297 (cdr ls-16029))))))
+ (make-binding-wrap-4308
+ (lambda (ids-16033 labels-16034 w-16035)
+ (if (null? ids-16033)
+ w-16035
+ (cons (car w-16035)
+ (cons (let ((labelvec-16036 (list->vector labels-16034)))
+ (let ((n-16037 (vector-length labelvec-16036)))
+ (let ((symnamevec-16038 (make-vector n-16037))
+ (marksvec-16039 (make-vector n-16037)))
(begin
(letrec*
- ((f-17872
- (lambda (ids-17875 i-17876)
- (if (not (null? ids-17875))
+ ((f-16040
+ (lambda (ids-16043 i-16044)
+ (if (not (null? ids-16043))
(call-with-values
(lambda ()
- (let ((x-17879 (car ids-17875)))
- (if (if (vector? x-17879)
+ (let ((x-16047 (car ids-16043)))
+ (if (if (vector? x-16047)
(if (= (vector-length
- x-17879)
+ x-16047)
4)
(eq? (vector-ref
- x-17879
+ x-16047
0)
'syntax-object)
#f)
#f)
(values
- (vector-ref x-17879 1)
- (let ((m1-17895
- (car w-17867))
- (m2-17896
+ (vector-ref x-16047 1)
+ (let ((m1-16063
+ (car w-16035))
+ (m2-16064
(car (vector-ref
- x-17879
+ x-16047
2))))
- (if (null? m2-17896)
- m1-17895
+ (if (null? m2-16064)
+ m1-16063
(append
- m1-17895
- m2-17896))))
+ m1-16063
+ m2-16064))))
(values
- x-17879
- (car w-17867)))))
- (lambda (symname-17916 marks-17917)
+ x-16047
+ (car w-16035)))))
+ (lambda (symname-16084 marks-16085)
(begin
(vector-set!
- symnamevec-17870
- i-17876
- symname-17916)
+ symnamevec-16038
+ i-16044
+ symname-16084)
(vector-set!
- marksvec-17871
- i-17876
- marks-17917)
- (f-17872
- (cdr ids-17875)
- (#{1+}# i-17876)))))))))
- (f-17872 ids-17865 0))
+ marksvec-16039
+ i-16044
+ marks-16085)
+ (f-16040
+ (cdr ids-16043)
+ (#{1+}# i-16044)))))))))
+ (f-16040 ids-16033 0))
(vector
'ribcage
- 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))
+ symnamevec-16038
+ marksvec-16039
+ labelvec-16036)))))
+ (cdr w-16035))))))
+ (join-wraps-4310
+ (lambda (w1-16094 w2-16095)
+ (let ((m1-16096 (car w1-16094))
+ (s1-16097 (cdr w1-16094)))
+ (if (null? m1-16096)
+ (if (null? s1-16097)
+ w2-16095
+ (cons (car w2-16095)
+ (let ((m2-16104 (cdr w2-16095)))
+ (if (null? m2-16104)
+ s1-16097
+ (append s1-16097 m2-16104)))))
+ (cons (let ((m2-16113 (car w2-16095)))
+ (if (null? m2-16113)
+ m1-16096
+ (append m1-16096 m2-16113)))
+ (let ((m2-16122 (cdr w2-16095)))
+ (if (null? m2-16122)
+ s1-16097
+ (append s1-16097 m2-16122))))))))
+ (same-marks?-4312
+ (lambda (x-16127 y-16128)
+ (if (eq? x-16127 y-16128)
+ (eq? x-16127 y-16128)
+ (if (not (null? x-16127))
+ (if (not (null? y-16128))
+ (if (eq? (car x-16127) (car y-16128))
+ (same-marks?-4312 (cdr x-16127) (cdr y-16128))
#f)
#f)
#f))))
- (id-var-name-6364
- (lambda (id-17968 w-17969)
+ (id-var-name-4313
+ (lambda (id-16136 w-16137)
(letrec*
- ((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)))
+ ((search-16138
+ (lambda (sym-16199 subst-16200 marks-16201)
+ (if (null? subst-16200)
+ (values #f marks-16201)
+ (let ((fst-16202 (car subst-16200)))
+ (if (eq? fst-16202 'shift)
+ (search-16138
+ sym-16199
+ (cdr subst-16200)
+ (cdr marks-16201))
+ (let ((symnames-16204 (vector-ref fst-16202 1)))
+ (if (vector? symnames-16204)
+ (let ((n-16216 (vector-length symnames-16204)))
(letrec*
- ((f-18049
- (lambda (i-18051)
- (if (= i-18051 n-18048)
- (search-17970
- sym-18031
- (cdr subst-18032)
- marks-18033)
+ ((f-16217
+ (lambda (i-16219)
+ (if (= i-16219 n-16216)
+ (search-16138
+ sym-16199
+ (cdr subst-16200)
+ marks-16201)
(if (if (eq? (vector-ref
- symnames-18036
- i-18051)
- sym-18031)
- (same-marks?-6363
- marks-18033
+ symnames-16204
+ i-16219)
+ sym-16199)
+ (same-marks?-4312
+ marks-16201
(vector-ref
- (vector-ref fst-18034 2)
- i-18051))
+ (vector-ref fst-16202 2)
+ i-16219))
#f)
(values
(vector-ref
- (vector-ref fst-18034 3)
- i-18051)
- marks-18033)
- (f-18049 (#{1+}# i-18051)))))))
- (f-18049 0)))
+ (vector-ref fst-16202 3)
+ i-16219)
+ marks-16201)
+ (f-16217 (#{1+}# i-16219)))))))
+ (f-16217 0)))
(letrec*
- ((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
+ ((f-16252
+ (lambda (symnames-16254 i-16255)
+ (if (null? symnames-16254)
+ (search-16138
+ sym-16199
+ (cdr subst-16200)
+ marks-16201)
+ (if (if (eq? (car symnames-16254) sym-16199)
+ (same-marks?-4312
+ marks-16201
(list-ref
- (vector-ref fst-18034 2)
- i-18087))
+ (vector-ref fst-16202 2)
+ i-16255))
#f)
(values
(list-ref
- (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)
+ (vector-ref fst-16202 3)
+ i-16255)
+ marks-16201)
+ (f-16252
+ (cdr symnames-16254)
+ (#{1+}# i-16255)))))))
+ (f-16252 symnames-16204 0))))))))))
+ (if (symbol? id-16136)
+ (let ((t-16141
+ (search-16138
+ id-16136
+ (cdr w-16137)
+ (car w-16137))))
+ (if t-16141 t-16141 id-16136))
+ (if (if (vector? id-16136)
+ (if (= (vector-length id-16136) 4)
+ (eq? (vector-ref id-16136 0) 'syntax-object)
#f)
#f)
- (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)))))
+ (let ((id-16156 (vector-ref id-16136 1))
+ (w1-16157 (vector-ref id-16136 2)))
+ (let ((marks-16158
+ (let ((m1-16168 (car w-16137))
+ (m2-16169 (car w1-16157)))
+ (if (null? m2-16169)
+ m1-16168
+ (append m1-16168 m2-16169)))))
(call-with-values
(lambda ()
- (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)))))))
+ (search-16138 id-16156 (cdr w-16137) marks-16158))
+ (lambda (new-id-16185 marks-16186)
+ (if new-id-16185
+ new-id-16185
+ (let ((t-16194
+ (search-16138
+ id-16156
+ (cdr w1-16157)
+ marks-16186)))
+ (if t-16194 t-16194 id-16156)))))))
(syntax-violation
'id-var-name
"invalid id"
- id-17968))))))
- (locally-bound-identifiers-6365
- (lambda (w-18109 mod-18110)
+ id-16136))))))
+ (locally-bound-identifiers-4314
+ (lambda (w-16277 mod-16278)
(letrec*
- ((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)
+ ((scan-16279
+ (lambda (subst-16284 results-16285)
+ (if (null? subst-16284)
+ results-16285
+ (let ((fst-16286 (car subst-16284)))
+ (if (eq? fst-16286 'shift)
+ (scan-16279 (cdr subst-16284) results-16285)
+ (let ((symnames-16288 (vector-ref fst-16286 1))
+ (marks-16289 (vector-ref fst-16286 2)))
+ (if (vector? symnames-16288)
+ (scan-vector-rib-16281
+ subst-16284
+ symnames-16288
+ marks-16289
+ results-16285)
+ (scan-list-rib-16280
+ subst-16284
+ symnames-16288
+ marks-16289
+ results-16285))))))))
+ (scan-list-rib-16280
+ (lambda (subst-16387
+ symnames-16388
+ marks-16389
+ results-16390)
(letrec*
- ((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)))
+ ((f-16391
+ (lambda (symnames-16491 marks-16492 results-16493)
+ (if (null? symnames-16491)
+ (scan-16279 (cdr subst-16387) results-16493)
+ (f-16391
+ (cdr symnames-16491)
+ (cdr marks-16492)
+ (cons (wrap-4323
+ (car symnames-16491)
+ (let ((w-16501
+ (cons (car marks-16492)
+ subst-16387)))
+ (cons (cons #f (car w-16501))
+ (cons 'shift (cdr w-16501))))
+ mod-16278)
+ results-16493))))))
+ (f-16391
+ symnames-16388
+ marks-16389
+ results-16390))))
+ (scan-vector-rib-16281
+ (lambda (subst-16502
+ symnames-16503
+ marks-16504
+ results-16505)
+ (let ((n-16506 (vector-length symnames-16503)))
(letrec*
- ((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
+ ((f-16507
+ (lambda (i-16590 results-16591)
+ (if (= i-16590 n-16506)
+ (scan-16279 (cdr subst-16502) results-16591)
+ (f-16507
+ (#{1+}# i-16590)
+ (cons (wrap-4323
+ (vector-ref symnames-16503 i-16590)
+ (let ((w-16599
(cons (vector-ref
- 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)
+ marks-16504
+ i-16590)
+ subst-16502)))
+ (cons (cons #f (car w-16599))
+ (cons 'shift (cdr w-16599))))
+ mod-16278)
+ results-16591))))))
+ (f-16507 0 results-16505))))))
+ (scan-16279 (cdr w-16277) '()))))
+ (valid-bound-ids?-4320
+ (lambda (ids-16600)
(if (letrec*
- ((all-ids?-18433
- (lambda (ids-18595)
- (if (null? ids-18595)
- (null? ids-18595)
- (if (let ((x-18606 (car ids-18595)))
- (if (symbol? x-18606)
+ ((all-ids?-16601
+ (lambda (ids-16763)
+ (if (null? ids-16763)
+ (null? ids-16763)
+ (if (let ((x-16774 (car ids-16763)))
+ (if (symbol? x-16774)
#t
- (if (if (vector? x-18606)
- (if (= (vector-length x-18606) 4)
- (eq? (vector-ref x-18606 0)
+ (if (if (vector? x-16774)
+ (if (= (vector-length x-16774) 4)
+ (eq? (vector-ref x-16774 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref x-18606 1))
+ (symbol? (vector-ref x-16774 1))
#f)))
- (all-ids?-18433 (cdr ids-18595))
+ (all-ids?-16601 (cdr ids-16763))
#f)))))
- (all-ids?-18433 ids-18432))
- (distinct-bound-ids?-6372 ids-18432)
+ (all-ids?-16601 ids-16600))
+ (distinct-bound-ids?-4321 ids-16600)
#f)))
- (distinct-bound-ids?-6372
- (lambda (ids-18734)
+ (distinct-bound-ids?-4321
+ (lambda (ids-16902)
(letrec*
- ((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))
+ ((distinct?-16903
+ (lambda (ids-17015)
+ (if (null? ids-17015)
+ (null? ids-17015)
+ (if (not (bound-id-member?-4322
+ (car ids-17015)
+ (cdr ids-17015)))
+ (distinct?-16903 (cdr ids-17015))
#f)))))
- (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)
+ (distinct?-16903 ids-16902))))
+ (bound-id-member?-4322
+ (lambda (x-17225 list-17226)
+ (if (not (null? list-17226))
+ (let ((t-17227
+ (let ((j-17308 (car list-17226)))
+ (if (if (if (vector? x-17225)
+ (if (= (vector-length x-17225) 4)
+ (eq? (vector-ref x-17225 0) 'syntax-object)
#f)
#f)
- (if (vector? j-19140)
- (if (= (vector-length j-19140) 4)
- (eq? (vector-ref j-19140 0) 'syntax-object)
+ (if (vector? j-17308)
+ (if (= (vector-length j-17308) 4)
+ (eq? (vector-ref j-17308 0) 'syntax-object)
#f)
#f)
#f)
- (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)))
+ (if (eq? (vector-ref x-17225 1)
+ (vector-ref j-17308 1))
+ (same-marks?-4312
+ (car (vector-ref x-17225 2))
+ (car (vector-ref j-17308 2)))
#f)
- (eq? x-19057 j-19140)))))
- (if t-19059
- t-19059
- (bound-id-member?-6373 x-19057 (cdr list-19058))))
+ (eq? x-17225 j-17308)))))
+ (if t-17227
+ t-17227
+ (bound-id-member?-4322 x-17225 (cdr list-17226))))
#f)))
- (wrap-6374
- (lambda (x-19184 w-19185 defmod-19186)
- (if (if (null? (car w-19185))
- (null? (cdr w-19185))
+ (wrap-4323
+ (lambda (x-17352 w-17353 defmod-17354)
+ (if (if (null? (car w-17353))
+ (null? (cdr w-17353))
#f)
- x-19184
- (if (if (vector? x-19184)
- (if (= (vector-length x-19184) 4)
- (eq? (vector-ref x-19184 0) 'syntax-object)
+ x-17352
+ (if (if (vector? x-17352)
+ (if (= (vector-length x-17352) 4)
+ (eq? (vector-ref x-17352 0) 'syntax-object)
#f)
#f)
- (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)))
+ (let ((expression-17368 (vector-ref x-17352 1))
+ (wrap-17369
+ (join-wraps-4310 w-17353 (vector-ref x-17352 2)))
+ (module-17370 (vector-ref x-17352 3)))
(vector
'syntax-object
- expression-19200
- wrap-19201
- module-19202))
- (if (null? x-19184)
- x-19184
+ expression-17368
+ wrap-17369
+ module-17370))
+ (if (null? x-17352)
+ x-17352
(vector
'syntax-object
- x-19184
- w-19185
- defmod-19186))))))
- (source-wrap-6375
- (lambda (x-19219 w-19220 s-19221 defmod-19222)
- (wrap-6374
+ x-17352
+ w-17353
+ defmod-17354))))))
+ (source-wrap-4324
+ (lambda (x-17387 w-17388 s-17389 defmod-17390)
+ (wrap-4323
(begin
- (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
+ (if (if (pair? x-17387) s-17389 #f)
+ (set-source-properties! x-17387 s-17389))
+ x-17387)
+ w-17388
+ defmod-17390)))
+ (expand-sequence-4325
+ (lambda (body-27526 r-27527 w-27528 s-27529 mod-27530)
+ (build-sequence-4275
+ s-27529
(letrec*
- ((dobody-29442
- (lambda (body-29782 r-29783 w-29784 mod-29785)
- (if (null? body-29782)
+ ((dobody-27610
+ (lambda (body-27950 r-27951 w-27952 mod-27953)
+ (if (null? body-27950)
'()
- (let ((first-29786
- (let ((e-29790 (car body-29782)))
+ (let ((first-27954
+ (let ((e-27958 (car body-27950)))
(call-with-values
(lambda ()
- (syntax-type-6380
- e-29790
- r-29783
- w-29784
- (source-annotation-6338 e-29790)
+ (syntax-type-4329
+ e-27958
+ r-27951
+ w-27952
+ (source-annotation-4287 e-27958)
#f
- mod-29785
+ mod-27953
#f))
- (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)
+ (lambda (type-27965
+ value-27966
+ form-27967
+ e-27968
+ w-27969
+ s-27970
+ mod-27971)
+ (expand-expr-4331
+ type-27965
+ value-27966
+ form-27967
+ e-27968
+ r-27951
+ w-27969
+ s-27970
+ mod-27971))))))
+ (cons first-27954
+ (dobody-27610
+ (cdr body-27950)
+ r-27951
+ w-27952
+ mod-27953)))))))
+ (dobody-27610
+ body-27526
+ r-27527
+ w-27528
+ mod-27530)))))
+ (expand-top-sequence-4326
+ (lambda (body-17408
+ r-17409
+ w-17410
+ s-17411
+ m-17412
+ esew-17413
+ mod-17414)
(letrec*
- ((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
+ ((scan-17415
+ (lambda (body-17546
+ r-17547
+ w-17548
+ s-17549
+ m-17550
+ esew-17551
+ mod-17552
+ exps-17553)
+ (if (null? body-17546)
+ exps-17553
(call-with-values
(lambda ()
(call-with-values
(lambda ()
- (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))
+ (let ((e-17554 (car body-17546)))
+ (syntax-type-4329
+ e-17554
+ r-17547
+ w-17548
+ (let ((t-17558 (source-annotation-4287 e-17554)))
+ (if t-17558 t-17558 s-17549))
#f
- mod-19384
+ mod-17552
#f)))
- (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
+ (lambda (type-17793
+ value-17794
+ form-17795
+ e-17796
+ w-17797
+ s-17798
+ mod-17799)
+ (if (eqv? type-17793 'begin-form)
+ (let ((tmp-17808 ($sc-dispatch e-17796 '(_))))
+ (if tmp-17808
+ (@apply (lambda () exps-17553) tmp-17808)
+ (let ((tmp-17812
($sc-dispatch
- e-19628
+ e-17796
'(_ any . each-any))))
- (if tmp-19644
+ (if tmp-17812
(@apply
- (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)
+ (lambda (e1-17816 e2-17817)
+ (scan-17415
+ (cons e1-17816 e2-17817)
+ r-17547
+ w-17797
+ s-17798
+ m-17550
+ esew-17551
+ mod-17799
+ exps-17553))
+ tmp-17812)
(syntax-violation
#f
"source expression failed to match any pattern"
- 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
+ e-17796)))))
+ (if (eqv? type-17793 'local-syntax-form)
+ (expand-local-syntax-4335
+ value-17794
+ e-17796
+ r-17547
+ w-17797
+ s-17798
+ mod-17799
+ (lambda (body-17835
+ r-17836
+ w-17837
+ s-17838
+ mod-17839)
+ (scan-17415
+ body-17835
+ r-17836
+ w-17837
+ s-17838
+ m-17550
+ esew-17551
+ mod-17839
+ exps-17553)))
+ (if (eqv? type-17793 'eval-when-form)
+ (let ((tmp-17847
($sc-dispatch
- e-19628
+ e-17796
'(_ each-any any . each-any))))
- (if tmp-19679
+ (if tmp-17847
(@apply
- (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
+ (lambda (x-17851 e1-17852 e2-17853)
+ (let ((when-list-17854
+ (parse-when-list-4328
+ e-17796
+ x-17851))
+ (body-17855
+ (cons e1-17852 e2-17853)))
+ (if (eq? m-17550 'e)
+ (if (memq 'eval when-list-17854)
+ (scan-17415
+ body-17855
+ r-17547
+ w-17797
+ s-17798
(if (memq 'expand
- when-list-19686)
+ when-list-17854)
'c&e
'e)
'(eval)
- mod-19631
- exps-19385)
+ mod-17799
+ exps-17553)
(begin
(if (memq 'expand
- when-list-19686)
- (let ((x-19764
- (expand-top-sequence-6377
- body-19687
- r-19379
- w-19629
- s-19630
+ when-list-17854)
+ (let ((x-17932
+ (expand-top-sequence-4326
+ body-17855
+ r-17547
+ w-17797
+ s-17798
'e
'(eval)
- mod-19631)))
- (primitive-eval x-19764)))
- exps-19385))
- (if (memq 'load when-list-19686)
- (if (let ((t-19790
+ mod-17799)))
+ (primitive-eval x-17932)))
+ exps-17553))
+ (if (memq 'load when-list-17854)
+ (if (let ((t-17958
(memq 'compile
- when-list-19686)))
- (if t-19790
- t-19790
- (let ((t-19839
+ when-list-17854)))
+ (if t-17958
+ t-17958
+ (let ((t-18007
(memq 'expand
- when-list-19686)))
- (if t-19839
- t-19839
- (if (eq? m-19382
+ when-list-17854)))
+ (if t-18007
+ t-18007
+ (if (eq? m-17550
'c&e)
(memq 'eval
- when-list-19686)
+ when-list-17854)
#f)))))
- (scan-19247
- body-19687
- r-19379
- w-19629
- s-19630
+ (scan-17415
+ body-17855
+ r-17547
+ w-17797
+ s-17798
'c&e
'(compile load)
- mod-19631
- exps-19385)
- (if (if (eq? m-19382 'c)
+ mod-17799
+ exps-17553)
+ (if (if (eq? m-17550 'c)
#t
- (eq? m-19382 'c&e))
- (scan-19247
- body-19687
- r-19379
- w-19629
- s-19630
+ (eq? m-17550 'c&e))
+ (scan-17415
+ body-17855
+ r-17547
+ w-17797
+ s-17798
'c
'(load)
- mod-19631
- exps-19385)
- exps-19385))
- (if (let ((t-19968
+ mod-17799
+ exps-17553)
+ exps-17553))
+ (if (let ((t-18136
(memq 'compile
- when-list-19686)))
- (if t-19968
- t-19968
- (let ((t-20017
+ when-list-17854)))
+ (if t-18136
+ t-18136
+ (let ((t-18185
(memq 'expand
- when-list-19686)))
- (if t-20017
- t-20017
- (if (eq? m-19382
+ when-list-17854)))
+ (if t-18185
+ t-18185
+ (if (eq? m-17550
'c&e)
(memq 'eval
- when-list-19686)
+ when-list-17854)
#f)))))
(begin
- (let ((x-20141
- (expand-top-sequence-6377
- body-19687
- r-19379
- w-19629
- s-19630
+ (let ((x-18309
+ (expand-top-sequence-4326
+ body-17855
+ r-17547
+ w-17797
+ s-17798
'e
'(eval)
- mod-19631)))
- (primitive-eval x-20141))
- exps-19385)
- exps-19385)))))
- tmp-19679)
+ mod-17799)))
+ (primitive-eval x-18309))
+ exps-17553)
+ exps-17553)))))
+ tmp-17847)
(syntax-violation
#f
"source expression failed to match any pattern"
- e-19628)))
- (if (if (eqv? type-19625 'define-syntax-form)
+ e-17796)))
+ (if (if (eqv? type-17793 'define-syntax-form)
#t
- (eqv? type-19625
+ (eqv? type-17793
'define-syntax-parameter-form))
- (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))))
+ (let ((n-18358
+ (id-var-name-4313
+ value-17794
+ w-17797))
+ (r-18359
+ (macros-only-env-4290 r-17547)))
+ (if (eqv? m-17550 'c)
+ (if (memq 'compile esew-17551)
+ (let ((e-18367
+ (expand-install-global-4327
+ n-18358
+ (expand-4330
+ e-17796
+ r-18359
+ w-17797
+ mod-17799))))
(begin
- (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))))
+ (top-level-eval-hook-4253
+ e-18367
+ mod-17799)
+ (if (memq 'load esew-17551)
+ (cons e-18367 exps-17553)
+ exps-17553)))
+ (if (memq 'load esew-17551)
+ (cons (expand-install-global-4327
+ n-18358
+ (expand-4330
+ e-17796
+ r-18359
+ w-17797
+ mod-17799))
+ exps-17553)
+ exps-17553))
+ (if (eqv? m-17550 'c&e)
+ (let ((e-19012
+ (expand-install-global-4327
+ n-18358
+ (expand-4330
+ e-17796
+ r-18359
+ w-17797
+ mod-17799))))
(begin
- (top-level-eval-hook-6304
- e-20844
- mod-19631)
- (cons e-20844 exps-19385)))
+ (top-level-eval-hook-4253
+ e-19012
+ mod-17799)
+ (cons e-19012 exps-17553)))
(begin
- (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
+ (if (memq 'eval esew-17551)
+ (top-level-eval-hook-4253
+ (expand-install-global-4327
+ n-18358
+ (expand-4330
+ e-17796
+ r-18359
+ w-17797
+ mod-17799))
+ mod-17799))
+ exps-17553))))
+ (if (eqv? type-17793 'define-form)
+ (let ((n-19689
+ (id-var-name-4313
+ value-17794
+ w-17797)))
+ (let ((type-19690
+ (car (let ((t-19698
+ (assq n-19689
+ r-17547)))
+ (if t-19698
+ (cdr t-19698)
+ (if (symbol? n-19689)
+ (let ((t-19704
+ (get-global-definition-hook-4257
+ n-19689
+ mod-17799)))
+ (if t-19704
+ t-19704
'(global)))
'(displaced-lexical)))))))
- (if (if (eqv? type-21522 'global)
+ (if (if (eqv? type-19690 'global)
#t
- (if (eqv? type-21522 'core)
+ (if (eqv? type-19690 'core)
#t
- (if (eqv? type-21522 'macro)
+ (if (eqv? type-19690 'macro)
#t
- (eqv? type-21522
+ (eqv? type-19690
'module-ref))))
(begin
- (if (if (if (eq? m-19382 'c)
+ (if (if (if (eq? m-17550 'c)
#t
- (eq? m-19382 'c&e))
+ (eq? m-17550 'c&e))
(if (not (module-local-variable
(current-module)
- n-21521))
+ n-19689))
(current-module)
#f)
#f)
- (let ((old-21569
+ (let ((old-19737
(module-variable
(current-module)
- n-21521)))
- (if (if (variable? old-21569)
+ n-19689)))
+ (if (if (variable? old-19737)
(variable-bound?
- old-21569)
+ old-19737)
#f)
(module-define!
(current-module)
- n-21521
- (variable-ref old-21569))
+ n-19689
+ (variable-ref old-19737))
(module-add!
(current-module)
- n-21521
+ n-19689
(make-undefined-variable)))))
- (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))))
+ (cons (if (eq? m-17550 'c&e)
+ (let ((x-20178
+ (build-global-definition-4269
+ s-17798
+ n-19689
+ (expand-4330
+ e-17796
+ r-17547
+ w-17797
+ mod-17799))))
(begin
- (top-level-eval-hook-6304
- x-22010
- mod-19631)
- x-22010))
+ (top-level-eval-hook-4253
+ x-20178
+ mod-17799)
+ x-20178))
(lambda ()
- (build-global-definition-6320
- s-19630
- n-21521
- (expand-6381
- e-19628
- r-19379
- w-19629
- mod-19631))))
- exps-19385))
- (if (eqv? type-21522
+ (build-global-definition-4269
+ s-17798
+ n-19689
+ (expand-4330
+ e-17796
+ r-17547
+ w-17797
+ mod-17799))))
+ exps-17553))
+ (if (eqv? type-19690
'displaced-lexical)
(syntax-violation
#f
"identifier out of context"
- (wrap-6374
+ (wrap-4323
(begin
- (if (if (pair? form-19627)
- s-19630
+ (if (if (pair? form-17795)
+ s-17798
#f)
(set-source-properties!
- form-19627
- s-19630))
- form-19627)
- w-19629
- mod-19631)
- (wrap-6374
- value-19626
- w-19629
- mod-19631))
+ form-17795
+ s-17798))
+ form-17795)
+ w-17797
+ mod-17799)
+ (wrap-4323
+ value-17794
+ w-17797
+ mod-17799))
(syntax-violation
#f
"cannot define keyword at top level"
- (wrap-6374
+ (wrap-4323
(begin
- (if (if (pair? form-19627)
- s-19630
+ (if (if (pair? form-17795)
+ s-17798
#f)
(set-source-properties!
- 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)))
+ form-17795
+ s-17798))
+ form-17795)
+ w-17797
+ mod-17799)
+ (wrap-4323
+ value-17794
+ w-17797
+ mod-17799))))))
+ (cons (if (eq? m-17550 'c&e)
+ (let ((x-20680
+ (expand-expr-4331
+ type-17793
+ value-17794
+ form-17795
+ e-17796
+ r-17547
+ w-17797
+ s-17798
+ mod-17799)))
(begin
- (primitive-eval x-22512)
- x-22512))
+ (primitive-eval x-20680)
+ x-20680))
(lambda ()
- (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)))))))
+ (expand-expr-4331
+ type-17793
+ value-17794
+ form-17795
+ e-17796
+ r-17547
+ w-17797
+ s-17798
+ mod-17799)))
+ exps-17553)))))))))
+ (lambda (exps-20685)
+ (scan-17415
+ (cdr body-17546)
+ r-17547
+ w-17548
+ s-17549
+ m-17550
+ esew-17551
+ mod-17552
+ exps-20685)))))))
(call-with-values
(lambda ()
- (scan-19247
- body-19240
- r-19241
- w-19242
- s-19243
- m-19244
- esew-19245
- mod-19246
+ (scan-17415
+ body-17408
+ r-17409
+ w-17410
+ s-17411
+ m-17412
+ esew-17413
+ mod-17414
'()))
- (lambda (exps-19250)
- (if (null? exps-19250)
+ (lambda (exps-17418)
+ (if (null? exps-17418)
(make-struct/no-tail
(vector-ref %expanded-vtables 0)
- s-19243)
- (build-sequence-6326
- s-19243
+ s-17411)
+ (build-sequence-4275
+ s-17411
(letrec*
- ((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
+ ((lp-17458
+ (lambda (in-17542 out-17543)
+ (if (null? in-17542)
+ out-17543
+ (let ((e-17544 (car in-17542)))
+ (lp-17458
+ (cdr in-17542)
+ (cons (if (procedure? e-17544)
+ (e-17544)
+ e-17544)
+ out-17543)))))))
+ (lp-17458 exps-17418 '())))))))))
+ (expand-install-global-4327
+ (lambda (name-20686 e-20687)
+ (let ((exp-20693
+ (let ((fun-exp-20703
(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-22536
+ (arg-exps-20704
(list (make-struct/no-tail
(vector-ref %expanded-vtables 1)
#f
- name-22518)
+ name-20686)
(make-struct/no-tail
(vector-ref %expanded-vtables 1)
#f
'macro)
- e-22519)))
+ e-20687)))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
#f
- fun-exp-22535
- arg-exps-22536))))
+ fun-exp-20703
+ arg-exps-20704))))
(begin
- (if (if (struct? exp-22525)
- (eq? (struct-vtable exp-22525)
+ (if (if (struct? exp-20693)
+ (eq? (struct-vtable exp-20693)
(vector-ref %expanded-vtables 13))
#f)
- (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)))))
+ (let ((meta-20745 (struct-ref exp-20693 1)))
+ (if (not (assq 'name meta-20745))
+ (let ((v-20752
+ (cons (cons 'name name-20686) meta-20745)))
+ (struct-set! exp-20693 1 v-20752)))))
(make-struct/no-tail
(vector-ref %expanded-vtables 9)
#f
- name-22518
- exp-22525)))))
- (parse-when-list-6379
- (lambda (e-22595 when-list-22596)
- (let ((result-22597 (strip-6394 when-list-22596 '(()))))
+ name-20686
+ exp-20693)))))
+ (parse-when-list-4328
+ (lambda (e-20763 when-list-20764)
+ (let ((result-20765 (strip-4343 when-list-20764 '(()))))
(letrec*
- ((lp-22598
- (lambda (l-22652)
- (if (null? l-22652)
- result-22597
- (if (let ((t-22654 (car l-22652)))
- (if (eq? t-22654 'compile)
+ ((lp-20766
+ (lambda (l-20820)
+ (if (null? l-20820)
+ result-20765
+ (if (let ((t-20822 (car l-20820)))
+ (if (eq? t-20822 'compile)
#t
- (if (eq? t-22654 'load)
+ (if (eq? t-20822 'load)
#t
- (if (eq? t-22654 'eval)
+ (if (eq? t-20822 'eval)
#t
- (eq? t-22654 'expand)))))
- (lp-22598 (cdr l-22652))
+ (eq? t-20822 'expand)))))
+ (lp-20766 (cdr l-20820))
(syntax-violation
'eval-when
"invalid situation"
- 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)))
+ e-20763
+ (car l-20820)))))))
+ (lp-20766 result-20765)))))
+ (syntax-type-4329
+ (lambda (e-20824
+ r-20825
+ w-20826
+ s-20827
+ rib-20828
+ mod-20829
+ for-car?-20830)
+ (if (symbol? e-20824)
+ (let ((n-20831 (id-var-name-4313 e-20824 w-20826)))
+ (let ((b-20832
+ (let ((t-20841 (assq n-20831 r-20825)))
+ (if t-20841
+ (cdr t-20841)
+ (if (symbol? n-20831)
+ (let ((t-20847
+ (get-global-definition-hook-4257
+ n-20831
+ mod-20829)))
+ (if t-20847 t-20847 '(global)))
'(displaced-lexical))))))
- (let ((type-22665 (car b-22664)))
- (if (eqv? type-22665 'lexical)
+ (let ((type-20833 (car b-20832)))
+ (if (eqv? type-20833 'lexical)
(values
- type-22665
- (cdr b-22664)
- e-22656
- e-22656
- w-22658
- s-22659
- mod-22661)
- (if (eqv? type-22665 'global)
+ type-20833
+ (cdr b-20832)
+ e-20824
+ e-20824
+ w-20826
+ s-20827
+ mod-20829)
+ (if (eqv? type-20833 'global)
(values
- type-22665
- n-22663
- e-22656
- e-22656
- w-22658
- s-22659
- mod-22661)
- (if (eqv? type-22665 'macro)
- (if for-car?-22662
+ type-20833
+ n-20831
+ e-20824
+ e-20824
+ w-20826
+ s-20827
+ mod-20829)
+ (if (eqv? type-20833 'macro)
+ (if for-car?-20830
(values
- 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
+ type-20833
+ (cdr b-20832)
+ e-20824
+ e-20824
+ w-20826
+ s-20827
+ mod-20829)
+ (syntax-type-4329
+ (expand-macro-4333
+ (cdr b-20832)
+ e-20824
+ r-20825
+ w-20826
+ s-20827
+ rib-20828
+ mod-20829)
+ r-20825
'(())
- s-22659
- rib-22660
- mod-22661
+ s-20827
+ rib-20828
+ mod-20829
#f))
(values
- 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)))
+ type-20833
+ (cdr b-20832)
+ e-20824
+ e-20824
+ w-20826
+ s-20827
+ mod-20829)))))))
+ (if (pair? e-20824)
+ (let ((first-20875 (car e-20824)))
(call-with-values
(lambda ()
- (syntax-type-6380
- first-22707
- r-22657
- w-22658
- s-22659
- rib-22660
- mod-22661
+ (syntax-type-4329
+ first-20875
+ r-20825
+ w-20826
+ s-20827
+ rib-20828
+ mod-20829
#t))
- (lambda (ftype-22709
- fval-22710
- fform-22711
- fe-22712
- fw-22713
- fs-22714
- fmod-22715)
- (if (eqv? ftype-22709 'lexical)
+ (lambda (ftype-20877
+ fval-20878
+ fform-20879
+ fe-20880
+ fw-20881
+ fs-20882
+ fmod-20883)
+ (if (eqv? ftype-20877 'lexical)
(values
'lexical-call
- fval-22710
- e-22656
- e-22656
- w-22658
- s-22659
- mod-22661)
- (if (eqv? ftype-22709 'global)
+ fval-20878
+ e-20824
+ e-20824
+ w-20826
+ s-20827
+ mod-20829)
+ (if (eqv? ftype-20877 'global)
(values
'global-call
(vector
'syntax-object
- 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
+ fval-20878
+ w-20826
+ fmod-20883)
+ e-20824
+ e-20824
+ w-20826
+ s-20827
+ mod-20829)
+ (if (eqv? ftype-20877 'macro)
+ (syntax-type-4329
+ (expand-macro-4333
+ fval-20878
+ e-20824
+ r-20825
+ w-20826
+ s-20827
+ rib-20828
+ mod-20829)
+ r-20825
'(())
- s-22659
- rib-22660
- mod-22661
- for-car?-22662)
- (if (eqv? ftype-22709 'module-ref)
+ s-20827
+ rib-20828
+ mod-20829
+ for-car?-20830)
+ (if (eqv? ftype-20877 'module-ref)
(call-with-values
- (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)
+ (lambda () (fval-20878 e-20824 r-20825 w-20826))
+ (lambda (e-20917
+ r-20918
+ w-20919
+ s-20920
+ mod-20921)
+ (syntax-type-4329
+ e-20917
+ r-20918
+ w-20919
+ s-20920
+ rib-20828
+ mod-20921
+ for-car?-20830)))
+ (if (eqv? ftype-20877 'core)
(values
'core-form
- fval-22710
- e-22656
- e-22656
- w-22658
- s-22659
- mod-22661)
- (if (eqv? ftype-22709 'local-syntax)
+ fval-20878
+ e-20824
+ e-20824
+ w-20826
+ s-20827
+ mod-20829)
+ (if (eqv? ftype-20877 'local-syntax)
(values
'local-syntax-form
- fval-22710
- e-22656
- e-22656
- w-22658
- s-22659
- mod-22661)
- (if (eqv? ftype-22709 'begin)
+ fval-20878
+ e-20824
+ e-20824
+ w-20826
+ s-20827
+ mod-20829)
+ (if (eqv? ftype-20877 'begin)
(values
'begin-form
#f
- e-22656
- e-22656
- w-22658
- s-22659
- mod-22661)
- (if (eqv? ftype-22709 'eval-when)
+ e-20824
+ e-20824
+ w-20826
+ s-20827
+ mod-20829)
+ (if (eqv? ftype-20877 'eval-when)
(values
'eval-when-form
#f
- e-22656
- e-22656
- w-22658
- s-22659
- mod-22661)
- (if (eqv? ftype-22709 'define)
- (let ((tmp-22785
+ e-20824
+ e-20824
+ w-20826
+ s-20827
+ mod-20829)
+ (if (eqv? ftype-20877 'define)
+ (let ((tmp-20953
($sc-dispatch
- e-22656
+ e-20824
'(_ any any))))
- (if (if tmp-22785
+ (if (if tmp-20953
(@apply
- (lambda (name-22789 val-22790)
- (if (symbol? name-22789)
+ (lambda (name-20957 val-20958)
+ (if (symbol? name-20957)
#t
- (if (if (vector? name-22789)
+ (if (if (vector? name-20957)
(if (= (vector-length
- name-22789)
+ name-20957)
4)
(eq? (vector-ref
- name-22789
+ name-20957
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- name-22789
+ name-20957
1))
#f)))
- tmp-22785)
+ tmp-20953)
#f)
(@apply
- (lambda (name-22817 val-22818)
+ (lambda (name-20985 val-20986)
(values
'define-form
- name-22817
- e-22656
- val-22818
- w-22658
- s-22659
- mod-22661))
- tmp-22785)
- (let ((tmp-22819
+ name-20985
+ e-20824
+ val-20986
+ w-20826
+ s-20827
+ mod-20829))
+ tmp-20953)
+ (let ((tmp-20987
($sc-dispatch
- e-22656
+ e-20824
'(_ (any . any)
any
.
each-any))))
- (if (if tmp-22819
+ (if (if tmp-20987
(@apply
- (lambda (name-22823
- args-22824
- e1-22825
- e2-22826)
+ (lambda (name-20991
+ args-20992
+ e1-20993
+ e2-20994)
(if (if (symbol?
- name-22823)
+ name-20991)
#t
(if (if (vector?
- name-22823)
+ name-20991)
(if (= (vector-length
- name-22823)
+ name-20991)
4)
(eq? (vector-ref
- name-22823
+ name-20991
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- name-22823
+ name-20991
1))
#f))
- (valid-bound-ids?-6371
+ (valid-bound-ids?-4320
(letrec*
- ((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
+ ((lvl-21143
+ (lambda (vars-21145
+ ls-21146
+ w-21147)
+ (if (pair? vars-21145)
+ (lvl-21143
+ (cdr vars-21145)
+ (cons (wrap-4323
+ (car vars-21145)
+ w-21147
#f)
- ls-22978)
- w-22979)
+ ls-21146)
+ w-21147)
(if (if (symbol?
- vars-22977)
+ vars-21145)
#t
(if (if (vector?
- vars-22977)
+ vars-21145)
(if (= (vector-length
- vars-22977)
+ vars-21145)
4)
(eq? (vector-ref
- vars-22977
+ vars-21145
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- vars-22977
+ vars-21145
1))
#f))
- (cons (wrap-6374
- vars-22977
- w-22979
+ (cons (wrap-4323
+ vars-21145
+ w-21147
#f)
- ls-22978)
- (if (null? vars-22977)
- ls-22978
+ ls-21146)
+ (if (null? vars-21145)
+ ls-21146
(if (if (vector?
- vars-22977)
+ vars-21145)
(if (= (vector-length
- vars-22977)
+ vars-21145)
4)
(eq? (vector-ref
- vars-22977
+ vars-21145
0)
'syntax-object)
#f)
#f)
- (lvl-22975
+ (lvl-21143
(vector-ref
- vars-22977
+ vars-21145
1)
- ls-22978
- (join-wraps-6361
- w-22979
+ ls-21146
+ (join-wraps-4310
+ w-21147
(vector-ref
- vars-22977
+ vars-21145
2)))
- (cons vars-22977
- ls-22978))))))))
- (lvl-22975
- args-22824
+ (cons vars-21145
+ ls-21146))))))))
+ (lvl-21143
+ args-20992
'()
'(()))))
#f))
- tmp-22819)
+ tmp-20987)
#f)
(@apply
- (lambda (name-23023
- args-23024
- e1-23025
- e2-23026)
+ (lambda (name-21191
+ args-21192
+ e1-21193
+ e2-21194)
(values
'define-form
- (wrap-6374
- name-23023
- w-22658
- mod-22661)
- (wrap-6374
- e-22656
- w-22658
- mod-22661)
- (let ((e-23034
+ (wrap-4323
+ name-21191
+ w-20826
+ mod-20829)
+ (wrap-4323
+ e-20824
+ w-20826
+ mod-20829)
+ (let ((e-21202
(cons '#(syntax-object
lambda
((top)
@@ -1678,19 +1678,19 @@
(top)
(top)
(top))
- #("l-*-3952"
- "l-*-3953"
- "l-*-3954"
- "l-*-3955"))
+ #("l-*-1901"
+ "l-*-1902"
+ "l-*-1903"
+ "l-*-1904"))
#(ribcage
()
()
())
#(ribcage
#(key)
- #((m-*-3917
+ #((m-*-1866
top))
- #("l-*-3918"))
+ #("l-*-1867"))
#(ribcage
()
()
@@ -1714,13 +1714,13 @@
(top)
(top)
(top))
- #("l-*-3910"
- "l-*-3911"
- "l-*-3912"
- "l-*-3913"
- "l-*-3914"
- "l-*-3915"
- "l-*-3916"))
+ #("l-*-1859"
+ "l-*-1860"
+ "l-*-1861"
+ "l-*-1862"
+ "l-*-1863"
+ "l-*-1864"
+ "l-*-1865"))
#(ribcage
()
()
@@ -1728,7 +1728,7 @@
#(ribcage
#(first)
#((top))
- #("l-*-3901"))
+ #("l-*-1850"))
#(ribcage
()
()
@@ -1752,13 +1752,13 @@
(top)
(top)
(top))
- #("l-*-3877"
- "l-*-3878"
- "l-*-3879"
- "l-*-3880"
- "l-*-3881"
- "l-*-3882"
- "l-*-3883"))
+ #("l-*-1826"
+ "l-*-1827"
+ "l-*-1828"
+ "l-*-1829"
+ "l-*-1830"
+ "l-*-1831"
+ "l-*-1832"))
#(ribcage
(lambda-var-list
gen-var
@@ -2040,146 +2040,146 @@
(top)
(top)
(top))
- ("l-*-2527"
- "l-*-2525"
- "l-*-2523"
- "l-*-2521"
- "l-*-2519"
- "l-*-2517"
- "l-*-2515"
- "l-*-2513"
- "l-*-2511"
- "l-*-2509"
- "l-*-2507"
- "l-*-2505"
- "l-*-2503"
- "l-*-2501"
- "l-*-2499"
- "l-*-2497"
- "l-*-2495"
- "l-*-2493"
- "l-*-2491"
- "l-*-2489"
- "l-*-2487"
- "l-*-2485"
- "l-*-2483"
- "l-*-2481"
- "l-*-2479"
- "l-*-2477"
- "l-*-2475"
- "l-*-2473"
- "l-*-2471"
- "l-*-2469"
- "l-*-2467"
- "l-*-2465"
- "l-*-2463"
- "l-*-2461"
- "l-*-2459"
- "l-*-2457"
- "l-*-2455"
- "l-*-2453"
- "l-*-2451"
- "l-*-2450"
- "l-*-2448"
- "l-*-2445"
- "l-*-2444"
- "l-*-2443"
- "l-*-2441"
- "l-*-2440"
- "l-*-2438"
- "l-*-2436"
- "l-*-2434"
- "l-*-2432"
- "l-*-2430"
- "l-*-2428"
- "l-*-2426"
- "l-*-2424"
- "l-*-2421"
- "l-*-2419"
- "l-*-2418"
- "l-*-2416"
- "l-*-2414"
- "l-*-2412"
- "l-*-2410"
- "l-*-2409"
- "l-*-2408"
- "l-*-2407"
- "l-*-2405"
- "l-*-2404"
- "l-*-2401"
- "l-*-2399"
- "l-*-2397"
- "l-*-2395"
- "l-*-2393"
- "l-*-2391"
- "l-*-2389"
- "l-*-2388"
- "l-*-2387"
- "l-*-2385"
- "l-*-2383"
- "l-*-2382"
- "l-*-2379"
- "l-*-2378"
- "l-*-2376"
- "l-*-2374"
- "l-*-2372"
- "l-*-2370"
- "l-*-2368"
- "l-*-2366"
- "l-*-2364"
- "l-*-2362"
- "l-*-2360"
- "l-*-2357"
- "l-*-2355"
- "l-*-2353"
- "l-*-2351"
- "l-*-2349"
- "l-*-2347"
- "l-*-2345"
- "l-*-2343"
- "l-*-2341"
- "l-*-2339"
- "l-*-2337"
- "l-*-2335"
- "l-*-2333"
- "l-*-2331"
- "l-*-2329"
- "l-*-2327"
- "l-*-2325"
- "l-*-2323"
- "l-*-2321"
- "l-*-2319"
- "l-*-2317"
- "l-*-2315"
- "l-*-2313"
- "l-*-2311"
- "l-*-2309"
- "l-*-2307"
- "l-*-2306"
- "l-*-2305"
- "l-*-2304"
- "l-*-2303"
- "l-*-2301"
- "l-*-2299"
- "l-*-2297"
- "l-*-2294"
- "l-*-2292"
- "l-*-2290"
- "l-*-2288"
- "l-*-2286"
- "l-*-2284"
- "l-*-2282"
- "l-*-2280"
- "l-*-2278"
- "l-*-2276"
- "l-*-2274"
- "l-*-2272"
- "l-*-2270"
- "l-*-2268"
- "l-*-2266"
- "l-*-2264"
- "l-*-2262"
- "l-*-2260"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -2187,81 +2187,81 @@
((top)
(top)
(top))
- ("l-*-2098"
- "l-*-2097"
- "l-*-2096")))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
(hygiene
guile))
- (wrap-6374
- (cons args-23024
- (cons e1-23025
- e2-23026))
- w-22658
- mod-22661))))
+ (wrap-4323
+ (cons args-21192
+ (cons e1-21193
+ e2-21194))
+ w-20826
+ mod-20829))))
(begin
- (if (if (pair? e-23034)
- s-22659
+ (if (if (pair? e-21202)
+ s-20827
#f)
(set-source-properties!
- e-23034
- s-22659))
- e-23034))
+ e-21202
+ s-20827))
+ e-21202))
'(())
- s-22659
- mod-22661))
- tmp-22819)
- (let ((tmp-23041
+ s-20827
+ mod-20829))
+ tmp-20987)
+ (let ((tmp-21209
($sc-dispatch
- e-22656
+ e-20824
'(_ any))))
- (if (if tmp-23041
+ (if (if tmp-21209
(@apply
- (lambda (name-23045)
+ (lambda (name-21213)
(if (symbol?
- name-23045)
+ name-21213)
#t
(if (if (vector?
- name-23045)
+ name-21213)
(if (= (vector-length
- name-23045)
+ name-21213)
4)
(eq? (vector-ref
- name-23045
+ name-21213
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- name-23045
+ name-21213
1))
#f)))
- tmp-23041)
+ tmp-21209)
#f)
(@apply
- (lambda (name-23072)
+ (lambda (name-21240)
(values
'define-form
- (wrap-6374
- name-23072
- w-22658
- mod-22661)
- (wrap-6374
- e-22656
- w-22658
- mod-22661)
+ (wrap-4323
+ name-21240
+ w-20826
+ mod-20829)
+ (wrap-4323
+ e-20824
+ w-20826
+ mod-20829)
'(#(syntax-object
if
((top)
#(ribcage
#(name)
#((top))
- #("l-*-3965"))
+ #("l-*-1914"))
#(ribcage () () ())
#(ribcage
#(key)
- #((m-*-3917 top))
- #("l-*-3918"))
+ #((m-*-1866 top))
+ #("l-*-1867"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
@@ -2279,18 +2279,18 @@
(top)
(top)
(top))
- #("l-*-3910"
- "l-*-3911"
- "l-*-3912"
- "l-*-3913"
- "l-*-3914"
- "l-*-3915"
- "l-*-3916"))
+ #("l-*-1859"
+ "l-*-1860"
+ "l-*-1861"
+ "l-*-1862"
+ "l-*-1863"
+ "l-*-1864"
+ "l-*-1865"))
#(ribcage () () ())
#(ribcage
#(first)
#((top))
- #("l-*-3901"))
+ #("l-*-1850"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
@@ -2308,13 +2308,13 @@
(top)
(top)
(top))
- #("l-*-3877"
- "l-*-3878"
- "l-*-3879"
- "l-*-3880"
- "l-*-3881"
- "l-*-3882"
- "l-*-3883"))
+ #("l-*-1826"
+ "l-*-1827"
+ "l-*-1828"
+ "l-*-1829"
+ "l-*-1830"
+ "l-*-1831"
+ "l-*-1832"))
#(ribcage
(lambda-var-list
gen-var
@@ -2596,146 +2596,146 @@
(top)
(top)
(top))
- ("l-*-2527"
- "l-*-2525"
- "l-*-2523"
- "l-*-2521"
- "l-*-2519"
- "l-*-2517"
- "l-*-2515"
- "l-*-2513"
- "l-*-2511"
- "l-*-2509"
- "l-*-2507"
- "l-*-2505"
- "l-*-2503"
- "l-*-2501"
- "l-*-2499"
- "l-*-2497"
- "l-*-2495"
- "l-*-2493"
- "l-*-2491"
- "l-*-2489"
- "l-*-2487"
- "l-*-2485"
- "l-*-2483"
- "l-*-2481"
- "l-*-2479"
- "l-*-2477"
- "l-*-2475"
- "l-*-2473"
- "l-*-2471"
- "l-*-2469"
- "l-*-2467"
- "l-*-2465"
- "l-*-2463"
- "l-*-2461"
- "l-*-2459"
- "l-*-2457"
- "l-*-2455"
- "l-*-2453"
- "l-*-2451"
- "l-*-2450"
- "l-*-2448"
- "l-*-2445"
- "l-*-2444"
- "l-*-2443"
- "l-*-2441"
- "l-*-2440"
- "l-*-2438"
- "l-*-2436"
- "l-*-2434"
- "l-*-2432"
- "l-*-2430"
- "l-*-2428"
- "l-*-2426"
- "l-*-2424"
- "l-*-2421"
- "l-*-2419"
- "l-*-2418"
- "l-*-2416"
- "l-*-2414"
- "l-*-2412"
- "l-*-2410"
- "l-*-2409"
- "l-*-2408"
- "l-*-2407"
- "l-*-2405"
- "l-*-2404"
- "l-*-2401"
- "l-*-2399"
- "l-*-2397"
- "l-*-2395"
- "l-*-2393"
- "l-*-2391"
- "l-*-2389"
- "l-*-2388"
- "l-*-2387"
- "l-*-2385"
- "l-*-2383"
- "l-*-2382"
- "l-*-2379"
- "l-*-2378"
- "l-*-2376"
- "l-*-2374"
- "l-*-2372"
- "l-*-2370"
- "l-*-2368"
- "l-*-2366"
- "l-*-2364"
- "l-*-2362"
- "l-*-2360"
- "l-*-2357"
- "l-*-2355"
- "l-*-2353"
- "l-*-2351"
- "l-*-2349"
- "l-*-2347"
- "l-*-2345"
- "l-*-2343"
- "l-*-2341"
- "l-*-2339"
- "l-*-2337"
- "l-*-2335"
- "l-*-2333"
- "l-*-2331"
- "l-*-2329"
- "l-*-2327"
- "l-*-2325"
- "l-*-2323"
- "l-*-2321"
- "l-*-2319"
- "l-*-2317"
- "l-*-2315"
- "l-*-2313"
- "l-*-2311"
- "l-*-2309"
- "l-*-2307"
- "l-*-2306"
- "l-*-2305"
- "l-*-2304"
- "l-*-2303"
- "l-*-2301"
- "l-*-2299"
- "l-*-2297"
- "l-*-2294"
- "l-*-2292"
- "l-*-2290"
- "l-*-2288"
- "l-*-2286"
- "l-*-2284"
- "l-*-2282"
- "l-*-2280"
- "l-*-2278"
- "l-*-2276"
- "l-*-2274"
- "l-*-2272"
- "l-*-2270"
- "l-*-2268"
- "l-*-2266"
- "l-*-2264"
- "l-*-2262"
- "l-*-2260"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -2743,9 +2743,9 @@
((top)
(top)
(top))
- ("l-*-2098"
- "l-*-2097"
- "l-*-2096")))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
(hygiene guile))
#(syntax-object
#f
@@ -2753,12 +2753,12 @@
#(ribcage
#(name)
#((top))
- #("l-*-3965"))
+ #("l-*-1914"))
#(ribcage () () ())
#(ribcage
#(key)
- #((m-*-3917 top))
- #("l-*-3918"))
+ #((m-*-1866 top))
+ #("l-*-1867"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
@@ -2776,18 +2776,18 @@
(top)
(top)
(top))
- #("l-*-3910"
- "l-*-3911"
- "l-*-3912"
- "l-*-3913"
- "l-*-3914"
- "l-*-3915"
- "l-*-3916"))
+ #("l-*-1859"
+ "l-*-1860"
+ "l-*-1861"
+ "l-*-1862"
+ "l-*-1863"
+ "l-*-1864"
+ "l-*-1865"))
#(ribcage () () ())
#(ribcage
#(first)
#((top))
- #("l-*-3901"))
+ #("l-*-1850"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
@@ -2805,13 +2805,13 @@
(top)
(top)
(top))
- #("l-*-3877"
- "l-*-3878"
- "l-*-3879"
- "l-*-3880"
- "l-*-3881"
- "l-*-3882"
- "l-*-3883"))
+ #("l-*-1826"
+ "l-*-1827"
+ "l-*-1828"
+ "l-*-1829"
+ "l-*-1830"
+ "l-*-1831"
+ "l-*-1832"))
#(ribcage
(lambda-var-list
gen-var
@@ -3093,146 +3093,146 @@
(top)
(top)
(top))
- ("l-*-2527"
- "l-*-2525"
- "l-*-2523"
- "l-*-2521"
- "l-*-2519"
- "l-*-2517"
- "l-*-2515"
- "l-*-2513"
- "l-*-2511"
- "l-*-2509"
- "l-*-2507"
- "l-*-2505"
- "l-*-2503"
- "l-*-2501"
- "l-*-2499"
- "l-*-2497"
- "l-*-2495"
- "l-*-2493"
- "l-*-2491"
- "l-*-2489"
- "l-*-2487"
- "l-*-2485"
- "l-*-2483"
- "l-*-2481"
- "l-*-2479"
- "l-*-2477"
- "l-*-2475"
- "l-*-2473"
- "l-*-2471"
- "l-*-2469"
- "l-*-2467"
- "l-*-2465"
- "l-*-2463"
- "l-*-2461"
- "l-*-2459"
- "l-*-2457"
- "l-*-2455"
- "l-*-2453"
- "l-*-2451"
- "l-*-2450"
- "l-*-2448"
- "l-*-2445"
- "l-*-2444"
- "l-*-2443"
- "l-*-2441"
- "l-*-2440"
- "l-*-2438"
- "l-*-2436"
- "l-*-2434"
- "l-*-2432"
- "l-*-2430"
- "l-*-2428"
- "l-*-2426"
- "l-*-2424"
- "l-*-2421"
- "l-*-2419"
- "l-*-2418"
- "l-*-2416"
- "l-*-2414"
- "l-*-2412"
- "l-*-2410"
- "l-*-2409"
- "l-*-2408"
- "l-*-2407"
- "l-*-2405"
- "l-*-2404"
- "l-*-2401"
- "l-*-2399"
- "l-*-2397"
- "l-*-2395"
- "l-*-2393"
- "l-*-2391"
- "l-*-2389"
- "l-*-2388"
- "l-*-2387"
- "l-*-2385"
- "l-*-2383"
- "l-*-2382"
- "l-*-2379"
- "l-*-2378"
- "l-*-2376"
- "l-*-2374"
- "l-*-2372"
- "l-*-2370"
- "l-*-2368"
- "l-*-2366"
- "l-*-2364"
- "l-*-2362"
- "l-*-2360"
- "l-*-2357"
- "l-*-2355"
- "l-*-2353"
- "l-*-2351"
- "l-*-2349"
- "l-*-2347"
- "l-*-2345"
- "l-*-2343"
- "l-*-2341"
- "l-*-2339"
- "l-*-2337"
- "l-*-2335"
- "l-*-2333"
- "l-*-2331"
- "l-*-2329"
- "l-*-2327"
- "l-*-2325"
- "l-*-2323"
- "l-*-2321"
- "l-*-2319"
- "l-*-2317"
- "l-*-2315"
- "l-*-2313"
- "l-*-2311"
- "l-*-2309"
- "l-*-2307"
- "l-*-2306"
- "l-*-2305"
- "l-*-2304"
- "l-*-2303"
- "l-*-2301"
- "l-*-2299"
- "l-*-2297"
- "l-*-2294"
- "l-*-2292"
- "l-*-2290"
- "l-*-2288"
- "l-*-2286"
- "l-*-2284"
- "l-*-2282"
- "l-*-2280"
- "l-*-2278"
- "l-*-2276"
- "l-*-2274"
- "l-*-2272"
- "l-*-2270"
- "l-*-2268"
- "l-*-2266"
- "l-*-2264"
- "l-*-2262"
- "l-*-2260"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -3240,9 +3240,9 @@
((top)
(top)
(top))
- ("l-*-2098"
- "l-*-2097"
- "l-*-2096")))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
(hygiene guile))
#(syntax-object
#f
@@ -3250,12 +3250,12 @@
#(ribcage
#(name)
#((top))
- #("l-*-3965"))
+ #("l-*-1914"))
#(ribcage () () ())
#(ribcage
#(key)
- #((m-*-3917 top))
- #("l-*-3918"))
+ #((m-*-1866 top))
+ #("l-*-1867"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
@@ -3273,18 +3273,18 @@
(top)
(top)
(top))
- #("l-*-3910"
- "l-*-3911"
- "l-*-3912"
- "l-*-3913"
- "l-*-3914"
- "l-*-3915"
- "l-*-3916"))
+ #("l-*-1859"
+ "l-*-1860"
+ "l-*-1861"
+ "l-*-1862"
+ "l-*-1863"
+ "l-*-1864"
+ "l-*-1865"))
#(ribcage () () ())
#(ribcage
#(first)
#((top))
- #("l-*-3901"))
+ #("l-*-1850"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
@@ -3302,13 +3302,13 @@
(top)
(top)
(top))
- #("l-*-3877"
- "l-*-3878"
- "l-*-3879"
- "l-*-3880"
- "l-*-3881"
- "l-*-3882"
- "l-*-3883"))
+ #("l-*-1826"
+ "l-*-1827"
+ "l-*-1828"
+ "l-*-1829"
+ "l-*-1830"
+ "l-*-1831"
+ "l-*-1832"))
#(ribcage
(lambda-var-list
gen-var
@@ -3590,146 +3590,146 @@
(top)
(top)
(top))
- ("l-*-2527"
- "l-*-2525"
- "l-*-2523"
- "l-*-2521"
- "l-*-2519"
- "l-*-2517"
- "l-*-2515"
- "l-*-2513"
- "l-*-2511"
- "l-*-2509"
- "l-*-2507"
- "l-*-2505"
- "l-*-2503"
- "l-*-2501"
- "l-*-2499"
- "l-*-2497"
- "l-*-2495"
- "l-*-2493"
- "l-*-2491"
- "l-*-2489"
- "l-*-2487"
- "l-*-2485"
- "l-*-2483"
- "l-*-2481"
- "l-*-2479"
- "l-*-2477"
- "l-*-2475"
- "l-*-2473"
- "l-*-2471"
- "l-*-2469"
- "l-*-2467"
- "l-*-2465"
- "l-*-2463"
- "l-*-2461"
- "l-*-2459"
- "l-*-2457"
- "l-*-2455"
- "l-*-2453"
- "l-*-2451"
- "l-*-2450"
- "l-*-2448"
- "l-*-2445"
- "l-*-2444"
- "l-*-2443"
- "l-*-2441"
- "l-*-2440"
- "l-*-2438"
- "l-*-2436"
- "l-*-2434"
- "l-*-2432"
- "l-*-2430"
- "l-*-2428"
- "l-*-2426"
- "l-*-2424"
- "l-*-2421"
- "l-*-2419"
- "l-*-2418"
- "l-*-2416"
- "l-*-2414"
- "l-*-2412"
- "l-*-2410"
- "l-*-2409"
- "l-*-2408"
- "l-*-2407"
- "l-*-2405"
- "l-*-2404"
- "l-*-2401"
- "l-*-2399"
- "l-*-2397"
- "l-*-2395"
- "l-*-2393"
- "l-*-2391"
- "l-*-2389"
- "l-*-2388"
- "l-*-2387"
- "l-*-2385"
- "l-*-2383"
- "l-*-2382"
- "l-*-2379"
- "l-*-2378"
- "l-*-2376"
- "l-*-2374"
- "l-*-2372"
- "l-*-2370"
- "l-*-2368"
- "l-*-2366"
- "l-*-2364"
- "l-*-2362"
- "l-*-2360"
- "l-*-2357"
- "l-*-2355"
- "l-*-2353"
- "l-*-2351"
- "l-*-2349"
- "l-*-2347"
- "l-*-2345"
- "l-*-2343"
- "l-*-2341"
- "l-*-2339"
- "l-*-2337"
- "l-*-2335"
- "l-*-2333"
- "l-*-2331"
- "l-*-2329"
- "l-*-2327"
- "l-*-2325"
- "l-*-2323"
- "l-*-2321"
- "l-*-2319"
- "l-*-2317"
- "l-*-2315"
- "l-*-2313"
- "l-*-2311"
- "l-*-2309"
- "l-*-2307"
- "l-*-2306"
- "l-*-2305"
- "l-*-2304"
- "l-*-2303"
- "l-*-2301"
- "l-*-2299"
- "l-*-2297"
- "l-*-2294"
- "l-*-2292"
- "l-*-2290"
- "l-*-2288"
- "l-*-2286"
- "l-*-2284"
- "l-*-2282"
- "l-*-2280"
- "l-*-2278"
- "l-*-2276"
- "l-*-2274"
- "l-*-2272"
- "l-*-2270"
- "l-*-2268"
- "l-*-2266"
- "l-*-2264"
- "l-*-2262"
- "l-*-2260"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -3737,303 +3737,303 @@
((top)
(top)
(top))
- ("l-*-2098"
- "l-*-2097"
- "l-*-2096")))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
(hygiene guile)))
'(())
- s-22659
- mod-22661))
- tmp-23041)
+ s-20827
+ mod-20829))
+ tmp-21209)
(syntax-violation
#f
"source expression failed to match any pattern"
- e-22656)))))))
- (if (eqv? ftype-22709 'define-syntax)
- (let ((tmp-23096
+ e-20824)))))))
+ (if (eqv? ftype-20877 'define-syntax)
+ (let ((tmp-21264
($sc-dispatch
- e-22656
+ e-20824
'(_ any any))))
- (if (if tmp-23096
+ (if (if tmp-21264
(@apply
- (lambda (name-23100 val-23101)
- (if (symbol? name-23100)
+ (lambda (name-21268 val-21269)
+ (if (symbol? name-21268)
#t
(if (if (vector?
- name-23100)
+ name-21268)
(if (= (vector-length
- name-23100)
+ name-21268)
4)
(eq? (vector-ref
- name-23100
+ name-21268
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- name-23100
+ name-21268
1))
#f)))
- tmp-23096)
+ tmp-21264)
#f)
(@apply
- (lambda (name-23128 val-23129)
+ (lambda (name-21296 val-21297)
(values
'define-syntax-form
- name-23128
- e-22656
- val-23129
- w-22658
- s-22659
- mod-22661))
- tmp-23096)
+ name-21296
+ e-20824
+ val-21297
+ w-20826
+ s-20827
+ mod-20829))
+ tmp-21264)
(syntax-violation
#f
"source expression failed to match any pattern"
- e-22656)))
- (if (eqv? ftype-22709
+ e-20824)))
+ (if (eqv? ftype-20877
'define-syntax-parameter)
- (let ((tmp-23143
+ (let ((tmp-21311
($sc-dispatch
- e-22656
+ e-20824
'(_ any any))))
- (if (if tmp-23143
+ (if (if tmp-21311
(@apply
- (lambda (name-23147
- val-23148)
- (if (symbol? name-23147)
+ (lambda (name-21315
+ val-21316)
+ (if (symbol? name-21315)
#t
(if (if (vector?
- name-23147)
+ name-21315)
(if (= (vector-length
- name-23147)
+ name-21315)
4)
(eq? (vector-ref
- name-23147
+ name-21315
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- name-23147
+ name-21315
1))
#f)))
- tmp-23143)
+ tmp-21311)
#f)
(@apply
- (lambda (name-23175 val-23176)
+ (lambda (name-21343 val-21344)
(values
'define-syntax-parameter-form
- name-23175
- e-22656
- val-23176
- w-22658
- s-22659
- mod-22661))
- tmp-23143)
+ name-21343
+ e-20824
+ val-21344
+ w-20826
+ s-20827
+ mod-20829))
+ tmp-21311)
(syntax-violation
#f
"source expression failed to match any pattern"
- e-22656)))
+ e-20824)))
(values
'call
#f
- 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)
+ e-20824
+ e-20824
+ w-20826
+ s-20827
+ mod-20829)))))))))))))))
+ (if (if (vector? e-20824)
+ (if (= (vector-length e-20824) 4)
+ (eq? (vector-ref e-20824 0) 'syntax-object)
#f)
#f)
- (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)
+ (syntax-type-4329
+ (vector-ref e-20824 1)
+ r-20825
+ (join-wraps-4310 w-20826 (vector-ref e-20824 2))
+ (let ((t-21371 (source-annotation-4287 e-20824)))
+ (if t-21371 t-21371 s-20827))
+ rib-20828
+ (let ((t-21606 (vector-ref e-20824 3)))
+ (if t-21606 t-21606 mod-20829))
+ for-car?-20830)
+ (if (self-evaluating? e-20824)
(values
'constant
#f
- e-22656
- e-22656
- w-22658
- s-22659
- mod-22661)
+ e-20824
+ e-20824
+ w-20826
+ s-20827
+ mod-20829)
(values
'other
#f
- e-22656
- e-22656
- w-22658
- s-22659
- mod-22661)))))))
- (expand-6381
- (lambda (e-23447 r-23448 w-23449 mod-23450)
+ e-20824
+ e-20824
+ w-20826
+ s-20827
+ mod-20829)))))))
+ (expand-4330
+ (lambda (e-21615 r-21616 w-21617 mod-21618)
(call-with-values
(lambda ()
- (syntax-type-6380
- e-23447
- r-23448
- w-23449
- (source-annotation-6338 e-23447)
+ (syntax-type-4329
+ e-21615
+ r-21616
+ w-21617
+ (source-annotation-4287 e-21615)
#f
- mod-23450
+ mod-21618
#f))
- (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)
+ (lambda (type-21773
+ value-21774
+ form-21775
+ e-21776
+ w-21777
+ s-21778
+ mod-21779)
+ (expand-expr-4331
+ type-21773
+ value-21774
+ form-21775
+ e-21776
+ r-21616
+ w-21777
+ s-21778
+ mod-21779)))))
+ (expand-expr-4331
+ (lambda (type-21782
+ value-21783
+ form-21784
+ e-21785
+ r-21786
+ w-21787
+ s-21788
+ mod-21789)
+ (if (eqv? type-21782 'lexical)
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
- s-23620
- e-23617
- value-23615)
- (if (if (eqv? type-23614 'core)
+ s-21788
+ e-21785
+ value-21783)
+ (if (if (eqv? type-21782 'core)
#t
- (eqv? type-23614 'core-form))
- (value-23615
- e-23617
- r-23618
- w-23619
- s-23620
- mod-23621)
- (if (eqv? type-23614 'module-ref)
+ (eqv? type-21782 'core-form))
+ (value-21783
+ e-21785
+ r-21786
+ w-21787
+ s-21788
+ mod-21789)
+ (if (eqv? type-21782 'module-ref)
(call-with-values
- (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
+ (lambda () (value-21783 e-21785 r-21786 w-21787))
+ (lambda (e-21825 r-21826 w-21827 s-21828 mod-21829)
+ (expand-4330 e-21825 r-21826 w-21827 mod-21829)))
+ (if (eqv? type-21782 'lexical-call)
+ (expand-application-4332
+ (let ((id-21907 (car e-21785)))
+ (build-lexical-reference-4264
'fun
- (source-annotation-6338 id-23739)
- (if (if (vector? id-23739)
- (if (= (vector-length id-23739) 4)
- (eq? (vector-ref id-23739 0) 'syntax-object)
+ (source-annotation-4287 id-21907)
+ (if (if (vector? id-21907)
+ (if (= (vector-length id-21907) 4)
+ (eq? (vector-ref id-21907 0) 'syntax-object)
#f)
#f)
- (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)
+ (syntax->datum id-21907)
+ id-21907)
+ value-21783))
+ e-21785
+ r-21786
+ w-21787
+ s-21788
+ mod-21789)
+ (if (eqv? type-21782 'global-call)
+ (expand-application-4332
+ (build-global-reference-4267
+ (source-annotation-4287 (car e-21785))
+ (if (if (vector? value-21783)
+ (if (= (vector-length value-21783) 4)
+ (eq? (vector-ref value-21783 0) 'syntax-object)
#f)
#f)
- (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)
+ (vector-ref value-21783 1)
+ value-21783)
+ (if (if (vector? value-21783)
+ (if (= (vector-length value-21783) 4)
+ (eq? (vector-ref value-21783 0) 'syntax-object)
#f)
#f)
- (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
+ (vector-ref value-21783 3)
+ mod-21789))
+ e-21785
+ r-21786
+ w-21787
+ s-21788
+ mod-21789)
+ (if (eqv? type-21782 'constant)
+ (let ((exp-22250
+ (strip-4343
+ (wrap-4323
(begin
- (if (if (pair? e-23617) s-23620 #f)
- (set-source-properties! e-23617 s-23620))
- e-23617)
- w-23619
- mod-23621)
+ (if (if (pair? e-21785) s-21788 #f)
+ (set-source-properties! e-21785 s-21788))
+ e-21785)
+ w-21787
+ mod-21789)
'(()))))
(make-struct/no-tail
(vector-ref %expanded-vtables 1)
- s-23620
- exp-24082))
- (if (eqv? type-23614 'global)
- (analyze-variable-6317
- mod-23621
- value-23615
- (lambda (mod-24121 var-24122 public?-24123)
+ s-21788
+ exp-22250))
+ (if (eqv? type-21782 'global)
+ (analyze-variable-4266
+ mod-21789
+ value-21783
+ (lambda (mod-22289 var-22290 public?-22291)
(make-struct/no-tail
(vector-ref %expanded-vtables 5)
- s-23620
- mod-24121
- var-24122
- public?-24123))
- (lambda (var-24132)
+ s-21788
+ mod-22289
+ var-22290
+ public?-22291))
+ (lambda (var-22300)
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
- 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
+ s-21788
+ var-22300)))
+ (if (eqv? type-21782 'call)
+ (expand-application-4332
+ (expand-4330
+ (car e-21785)
+ r-21786
+ w-21787
+ mod-21789)
+ e-21785
+ r-21786
+ w-21787
+ s-21788
+ mod-21789)
+ (if (eqv? type-21782 'begin-form)
+ (let ((tmp-22381
+ ($sc-dispatch e-21785 '(_ any . each-any))))
+ (if tmp-22381
(@apply
- (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
+ (lambda (e1-22385 e2-22386)
+ (expand-sequence-4325
+ (cons e1-22385 e2-22386)
+ r-21786
+ w-21787
+ s-21788
+ mod-21789))
+ tmp-22381)
+ (let ((tmp-22473 ($sc-dispatch e-21785 '(_))))
+ (if tmp-22473
(@apply
(lambda ()
(if (include-deprecated-features)
@@ -4046,801 +4046,801 @@
(syntax-violation
#f
"sequence of zero expressions"
- (wrap-6374
+ (wrap-4323
(begin
- (if (if (pair? e-23617)
- s-23620
+ (if (if (pair? e-21785)
+ s-21788
#f)
(set-source-properties!
- e-23617
- s-23620))
- e-23617)
- w-23619
- mod-23621))))
- tmp-24305)
+ e-21785
+ s-21788))
+ e-21785)
+ w-21787
+ mod-21789))))
+ tmp-22473)
(syntax-violation
#f
"source expression failed to match any pattern"
- 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
+ e-21785)))))
+ (if (eqv? type-21782 'local-syntax-form)
+ (expand-local-syntax-4335
+ value-21783
+ e-21785
+ r-21786
+ w-21787
+ s-21788
+ mod-21789
+ expand-sequence-4325)
+ (if (eqv? type-21782 'eval-when-form)
+ (let ((tmp-22590
($sc-dispatch
- e-23617
+ e-21785
'(_ each-any any . each-any))))
- (if tmp-24422
+ (if tmp-22590
(@apply
- (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)
+ (lambda (x-22594 e1-22595 e2-22596)
+ (let ((when-list-22597
+ (parse-when-list-4328
+ e-21785
+ x-22594)))
+ (if (memq 'eval when-list-22597)
+ (expand-sequence-4325
+ (cons e1-22595 e2-22596)
+ r-21786
+ w-21787
+ s-21788
+ mod-21789)
(make-struct/no-tail
(vector-ref %expanded-vtables 0)
#f))))
- tmp-24422)
+ tmp-22590)
(syntax-violation
#f
"source expression failed to match any pattern"
- e-23617)))
- (if (if (eqv? type-23614 'define-form)
+ e-21785)))
+ (if (if (eqv? type-21782 'define-form)
#t
- (if (eqv? type-23614 'define-syntax-form)
+ (if (eqv? type-21782 'define-syntax-form)
#t
- (eqv? type-23614
+ (eqv? type-21782
'define-syntax-parameter-form)))
(syntax-violation
#f
"definition in expression context, where definitions are not allowed,"
- (wrap-6374
+ (wrap-4323
(begin
- (if (if (pair? form-23616) s-23620 #f)
+ (if (if (pair? form-21784) s-21788 #f)
(set-source-properties!
- form-23616
- s-23620))
- form-23616)
- w-23619
- mod-23621))
- (if (eqv? type-23614 'syntax)
+ form-21784
+ s-21788))
+ form-21784)
+ w-21787
+ mod-21789))
+ (if (eqv? type-21782 'syntax)
(syntax-violation
#f
"reference to pattern variable outside syntax form"
- (wrap-6374
+ (wrap-4323
(begin
- (if (if (pair? e-23617) s-23620 #f)
+ (if (if (pair? e-21785) s-21788 #f)
(set-source-properties!
- e-23617
- s-23620))
- e-23617)
- w-23619
- mod-23621))
- (if (eqv? type-23614 'displaced-lexical)
+ e-21785
+ s-21788))
+ e-21785)
+ w-21787
+ mod-21789))
+ (if (eqv? type-21782 'displaced-lexical)
(syntax-violation
#f
"reference to identifier outside its scope"
- (wrap-6374
+ (wrap-4323
(begin
- (if (if (pair? e-23617) s-23620 #f)
+ (if (if (pair? e-21785) s-21788 #f)
(set-source-properties!
- e-23617
- s-23620))
- e-23617)
- w-23619
- mod-23621))
+ e-21785
+ s-21788))
+ e-21785)
+ w-21787
+ mod-21789))
(syntax-violation
#f
"unexpected syntax"
- (wrap-6374
+ (wrap-4323
(begin
- (if (if (pair? e-23617) s-23620 #f)
+ (if (if (pair? e-21785) s-21788 #f)
(set-source-properties!
- 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
+ e-21785
+ s-21788))
+ e-21785)
+ w-21787
+ mod-21789))))))))))))))))))
+ (expand-application-4332
+ (lambda (x-22866
+ e-22867
+ r-22868
+ w-22869
+ s-22870
+ mod-22871)
+ (let ((tmp-22873
+ ($sc-dispatch e-22867 '(any . each-any))))
+ (if tmp-22873
(@apply
- (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)
+ (lambda (e0-22877 e1-22878)
+ (build-application-4261
+ s-22870
+ x-22866
+ (map (lambda (e-22958)
+ (expand-4330 e-22958 r-22868 w-22869 mod-22871))
+ e1-22878)))
+ tmp-22873)
(syntax-violation
#f
"source expression failed to match any pattern"
- e-24699)))))
- (expand-macro-6384
- (lambda (p-24866
- e-24867
- r-24868
- w-24869
- s-24870
- rib-24871
- mod-24872)
+ e-22867)))))
+ (expand-macro-4333
+ (lambda (p-23034
+ e-23035
+ r-23036
+ w-23037
+ s-23038
+ rib-23039
+ mod-23040)
(letrec*
- ((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))))
+ ((rebuild-macro-output-23041
+ (lambda (x-23074 m-23075)
+ (if (pair? x-23074)
+ (let ((e-23079
+ (cons (rebuild-macro-output-23041
+ (car x-23074)
+ m-23075)
+ (rebuild-macro-output-23041
+ (cdr x-23074)
+ m-23075))))
(begin
- (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)
+ (if (if (pair? e-23079) s-23038 #f)
+ (set-source-properties! e-23079 s-23038))
+ e-23079))
+ (if (if (vector? x-23074)
+ (if (= (vector-length x-23074) 4)
+ (eq? (vector-ref x-23074 0) 'syntax-object)
#f)
#f)
- (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)))
+ (let ((w-23095 (vector-ref x-23074 2)))
+ (let ((ms-23096 (car w-23095))
+ (ss-23097 (cdr w-23095)))
+ (if (if (pair? ms-23096) (eq? (car ms-23096) #f) #f)
+ (let ((expression-23105 (vector-ref x-23074 1))
+ (wrap-23106
+ (cons (cdr ms-23096)
+ (if rib-23039
+ (cons rib-23039 (cdr ss-23097))
+ (cdr ss-23097))))
+ (module-23107 (vector-ref x-23074 3)))
(vector
'syntax-object
- expression-24937
- wrap-24938
- module-24939))
- (let ((expression-24949
- (let ((e-24954 (vector-ref x-24906 1)))
+ expression-23105
+ wrap-23106
+ module-23107))
+ (let ((expression-23117
+ (let ((e-23122 (vector-ref x-23074 1)))
(begin
- (if (if (pair? e-24954) s-24870 #f)
+ (if (if (pair? e-23122) s-23038 #f)
(set-source-properties!
- 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)))
+ e-23122
+ s-23038))
+ e-23122)))
+ (wrap-23118
+ (cons (cons m-23075 ms-23096)
+ (if rib-23039
+ (cons rib-23039
+ (cons 'shift ss-23097))
+ (cons 'shift ss-23097))))
+ (module-23119 (vector-ref x-23074 3)))
(vector
'syntax-object
- 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)))
+ expression-23117
+ wrap-23118
+ module-23119)))))
+ (if (vector? x-23074)
+ (let ((n-23134 (vector-length x-23074)))
+ (let ((v-23135
+ (let ((e-23143 (make-vector n-23134)))
(begin
- (if (if (pair? e-24975) s-24870 #f)
- (set-source-properties! e-24975 s-24870))
- e-24975))))
+ (if (if (pair? e-23143) s-23038 #f)
+ (set-source-properties! e-23143 s-23038))
+ e-23143))))
(letrec*
- ((loop-24968
- (lambda (i-25020)
- (if (= i-25020 n-24966)
- v-24967
+ ((loop-23136
+ (lambda (i-23188)
+ (if (= i-23188 n-23134)
+ v-23135
(begin
(vector-set!
- 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)
+ v-23135
+ i-23188
+ (rebuild-macro-output-23041
+ (vector-ref x-23074 i-23188)
+ m-23075))
+ (loop-23136 (#{1+}# i-23188)))))))
+ (loop-23136 0))))
+ (if (symbol? x-23074)
(syntax-violation
#f
"encountered raw symbol in macro output"
- (let ((s-25026 (cdr w-24869)))
- (wrap-6374
+ (let ((s-23194 (cdr w-23037)))
+ (wrap-4323
(begin
- (if (if (pair? e-24867) s-25026 #f)
- (set-source-properties! e-24867 s-25026))
- e-24867)
- w-24869
- mod-24872))
- x-24906)
+ (if (if (pair? e-23035) s-23194 #f)
+ (set-source-properties! e-23035 s-23194))
+ e-23035)
+ w-23037
+ mod-23040))
+ x-23074)
(begin
- (if (if (pair? x-24906) s-24870 #f)
- (set-source-properties! x-24906 s-24870))
- x-24906))))))))
+ (if (if (pair? x-23074) s-23038 #f)
+ (set-source-properties! x-23074 s-23038))
+ x-23074))))))))
(with-fluids
- ((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
+ ((transformer-environment-4316
+ (lambda (k-23042)
+ (k-23042
+ e-23035
+ r-23036
+ w-23037
+ s-23038
+ rib-23039
+ mod-23040))))
+ (rebuild-macro-output-23041
+ (p-23034
+ (let ((w-23049
+ (cons (cons #f (car w-23037))
+ (cons 'shift (cdr w-23037)))))
+ (wrap-4323
(begin
- (if (if (pair? e-24867) s-24870 #f)
- (set-source-properties! e-24867 s-24870))
- e-24867)
- w-24881
- mod-24872)))
+ (if (if (pair? e-23035) s-23038 #f)
+ (set-source-properties! e-23035 s-23038))
+ e-23035)
+ w-23049
+ mod-23040)))
(gensym
- (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)))))
+ (string-append "m-" (session-id-4255) "-")))))))
+ (expand-body-4334
+ (lambda (body-23226
+ outer-form-23227
+ r-23228
+ w-23229
+ mod-23230)
+ (let ((r-23231
+ (cons '("placeholder" placeholder) r-23228)))
+ (let ((ribcage-23232 (vector 'ribcage '() '() '())))
+ (let ((w-23233
+ (cons (car w-23229)
+ (cons ribcage-23232 (cdr w-23229)))))
(letrec*
- ((parse-25066
- (lambda (body-25079
- ids-25080
- labels-25081
- var-ids-25082
- vars-25083
- vals-25084
- bindings-25085)
- (if (null? body-25079)
+ ((parse-23234
+ (lambda (body-23247
+ ids-23248
+ labels-23249
+ var-ids-23250
+ vars-23251
+ vals-23252
+ bindings-23253)
+ (if (null? body-23247)
(syntax-violation
#f
"no expressions in body"
- outer-form-25059)
- (let ((e-25086 (cdr (car body-25079)))
- (er-25087 (car (car body-25079))))
+ outer-form-23227)
+ (let ((e-23254 (cdr (car body-23247)))
+ (er-23255 (car (car body-23247))))
(call-with-values
(lambda ()
- (syntax-type-6380
- e-25086
- er-25087
+ (syntax-type-4329
+ e-23254
+ er-23255
'(())
- (source-annotation-6338 er-25087)
- ribcage-25064
- mod-25062
+ (source-annotation-4287 er-23255)
+ ribcage-23232
+ mod-23230
#f))
- (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
+ (lambda (type-23412
+ value-23413
+ form-23414
+ e-23415
+ w-23416
+ s-23417
+ mod-23418)
+ (if (eqv? type-23412 'define-form)
+ (let ((id-23426
+ (wrap-4323
+ value-23413
+ w-23416
+ mod-23418))
+ (label-23427
(string-append
"l-"
- (session-id-6306)
+ (session-id-4255)
(symbol->string (gensym "-")))))
- (let ((var-25260
- (let ((id-25320
- (if (if (vector? id-25258)
+ (let ((var-23428
+ (let ((id-23488
+ (if (if (vector? id-23426)
(if (= (vector-length
- id-25258)
+ id-23426)
4)
(eq? (vector-ref
- id-25258
+ id-23426
0)
'syntax-object)
#f)
#f)
- (vector-ref id-25258 1)
- id-25258)))
+ (vector-ref id-23426 1)
+ id-23426)))
(gensym
(string-append
- (symbol->string id-25320)
+ (symbol->string id-23488)
"-")))))
(begin
- (let ((update-25310
- (cons (vector-ref id-25258 1)
+ (let ((update-23478
+ (cons (vector-ref id-23426 1)
(vector-ref
- ribcage-25064
+ ribcage-23232
1))))
(vector-set!
- ribcage-25064
+ ribcage-23232
1
- update-25310))
- (let ((update-25312
+ update-23478))
+ (let ((update-23480
(cons (car (vector-ref
- id-25258
+ id-23426
2))
(vector-ref
- ribcage-25064
+ ribcage-23232
2))))
(vector-set!
- ribcage-25064
+ ribcage-23232
2
- update-25312))
- (let ((update-25314
- (cons label-25259
+ update-23480))
+ (let ((update-23482
+ (cons label-23427
(vector-ref
- ribcage-25064
+ ribcage-23232
3))))
(vector-set!
- ribcage-25064
+ ribcage-23232
3
- 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)
+ update-23482))
+ (parse-23234
+ (cdr body-23247)
+ (cons id-23426 ids-23248)
+ (cons label-23427 labels-23249)
+ (cons id-23426 var-ids-23250)
+ (cons var-23428 vars-23251)
+ (cons (cons er-23255
+ (wrap-4323
+ e-23415
+ w-23416
+ mod-23418))
+ vals-23252)
+ (cons (cons 'lexical var-23428)
+ bindings-23253)))))
+ (if (if (eqv? type-23412 'define-syntax-form)
#t
- (eqv? type-25244
+ (eqv? type-23412
'define-syntax-parameter-form))
- (let ((id-25356
- (wrap-6374
- value-25245
- w-25248
- mod-25250))
- (label-25357
+ (let ((id-23524
+ (wrap-4323
+ value-23413
+ w-23416
+ mod-23418))
+ (label-23525
(string-append
"l-"
- (session-id-6306)
+ (session-id-4255)
(symbol->string (gensym "-")))))
(begin
- (let ((update-25407
- (cons (vector-ref id-25356 1)
+ (let ((update-23575
+ (cons (vector-ref id-23524 1)
(vector-ref
- ribcage-25064
+ ribcage-23232
1))))
(vector-set!
- ribcage-25064
+ ribcage-23232
1
- update-25407))
- (let ((update-25409
+ update-23575))
+ (let ((update-23577
(cons (car (vector-ref
- id-25356
+ id-23524
2))
(vector-ref
- ribcage-25064
+ ribcage-23232
2))))
(vector-set!
- ribcage-25064
+ ribcage-23232
2
- update-25409))
- (let ((update-25411
- (cons label-25357
+ update-23577))
+ (let ((update-23579
+ (cons label-23525
(vector-ref
- ribcage-25064
+ ribcage-23232
3))))
(vector-set!
- ribcage-25064
+ ribcage-23232
3
- update-25411))
- (parse-25066
- (cdr body-25079)
- (cons id-25356 ids-25080)
- (cons label-25357 labels-25081)
- var-ids-25082
- vars-25083
- vals-25084
+ update-23579))
+ (parse-23234
+ (cdr body-23247)
+ (cons id-23524 ids-23248)
+ (cons label-23525 labels-23249)
+ var-ids-23250
+ vars-23251
+ vals-23252
(cons (cons 'macro
- (cons er-25087
- (wrap-6374
- e-25247
- w-25248
- mod-25250)))
- bindings-25085))))
- (if (eqv? type-25244 'begin-form)
- (let ((tmp-25422
+ (cons er-23255
+ (wrap-4323
+ e-23415
+ w-23416
+ mod-23418)))
+ bindings-23253))))
+ (if (eqv? type-23412 'begin-form)
+ (let ((tmp-23590
($sc-dispatch
- e-25247
+ e-23415
'(_ . each-any))))
- (if tmp-25422
+ (if tmp-23590
(@apply
- (lambda (e1-25426)
- (parse-25066
+ (lambda (e1-23594)
+ (parse-23234
(letrec*
- ((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)
+ ((f-23595
+ (lambda (forms-23658)
+ (if (null? forms-23658)
+ (cdr body-23247)
+ (cons (cons er-23255
+ (wrap-4323
+ (car forms-23658)
+ w-23416
+ mod-23418))
+ (f-23595
+ (cdr forms-23658)))))))
+ (f-23595 e1-23594))
+ ids-23248
+ labels-23249
+ var-ids-23250
+ vars-23251
+ vals-23252
+ bindings-23253))
+ tmp-23590)
(syntax-violation
#f
"source expression failed to match any pattern"
- 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
+ e-23415)))
+ (if (eqv? type-23412 'local-syntax-form)
+ (expand-local-syntax-4335
+ value-23413
+ e-23415
+ er-23255
+ w-23416
+ s-23417
+ mod-23418
+ (lambda (forms-23675
+ er-23676
+ w-23677
+ s-23678
+ mod-23679)
+ (parse-23234
(letrec*
- ((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-23680
+ (lambda (forms-23743)
+ (if (null? forms-23743)
+ (cdr body-23247)
+ (cons (cons er-23676
+ (wrap-4323
+ (car forms-23743)
+ w-23677
+ mod-23679))
+ (f-23680
+ (cdr forms-23743)))))))
+ (f-23680 forms-23675))
+ ids-23248
+ labels-23249
+ var-ids-23250
+ vars-23251
+ vals-23252
+ bindings-23253)))
+ (if (null? ids-23248)
+ (build-sequence-4275
#f
- (map (lambda (x-25640)
- (let ((e-25644 (cdr x-25640))
- (r-25645 (car x-25640)))
+ (map (lambda (x-23808)
+ (let ((e-23812 (cdr x-23808))
+ (r-23813 (car x-23808)))
(call-with-values
(lambda ()
- (syntax-type-6380
- e-25644
- r-25645
+ (syntax-type-4329
+ e-23812
+ r-23813
'(())
- (source-annotation-6338
- e-25644)
+ (source-annotation-4287
+ e-23812)
#f
- mod-25250
+ mod-23418
#f))
- (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
+ (lambda (type-23817
+ value-23818
+ form-23819
+ e-23820
+ w-23821
+ s-23822
+ mod-23823)
+ (expand-expr-4331
+ type-23817
+ value-23818
+ form-23819
+ e-23820
+ r-23813
+ w-23821
+ s-23822
+ mod-23823)))))
+ (cons (cons er-23255
+ (wrap-4323
(begin
- (if (if (pair? e-25247)
- s-25249
+ (if (if (pair? e-23415)
+ s-23417
#f)
(set-source-properties!
- e-25247
- s-25249))
- e-25247)
- w-25248
- mod-25250))
- (cdr body-25079))))
+ e-23415
+ s-23417))
+ e-23415)
+ w-23416
+ mod-23418))
+ (cdr body-23247))))
(begin
- (if (not (valid-bound-ids?-6371
- ids-25080))
+ (if (not (valid-bound-ids?-4320
+ ids-23248))
(syntax-violation
#f
"invalid or duplicate identifier in definition"
- outer-form-25059))
+ outer-form-23227))
(letrec*
- ((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)
+ ((loop-23924
+ (lambda (bs-23927
+ er-cache-23928
+ r-cache-23929)
+ (if (not (null? bs-23927))
+ (let ((b-23930
+ (car bs-23927)))
+ (if (eq? (car b-23930)
'macro)
- (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))))
+ (let ((er-23932
+ (car (cdr b-23930))))
+ (let ((r-cache-23933
+ (if (eq? er-23932
+ er-cache-23928)
+ r-cache-23929
+ (macros-only-env-4290
+ er-23932))))
(begin
(set-cdr!
- b-25762
- (eval-local-transformer-6387
- (expand-6381
- (cdr (cdr b-25762))
- r-cache-25765
+ b-23930
+ (eval-local-transformer-4336
+ (expand-4330
+ (cdr (cdr b-23930))
+ r-cache-23933
'(())
- 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))
+ mod-23418)
+ mod-23418))
+ (loop-23924
+ (cdr bs-23927)
+ er-23932
+ r-cache-23933))))
+ (loop-23924
+ (cdr bs-23927)
+ er-cache-23928
+ r-cache-23929)))))))
+ (loop-23924 bindings-23253 #f #f))
(set-cdr!
- r-25063
- (extend-env-6339
- labels-25081
- bindings-25085
- (cdr r-25063)))
- (build-letrec-6329
+ r-23231
+ (extend-env-4288
+ labels-23249
+ bindings-23253
+ (cdr r-23231)))
+ (build-letrec-4278
#f
#t
(reverse
(map syntax->datum
- var-ids-25082))
- (reverse vars-25083)
- (map (lambda (x-26108)
- (let ((e-26112
- (cdr x-26108))
- (r-26113
- (car x-26108)))
+ var-ids-23250))
+ (reverse vars-23251)
+ (map (lambda (x-24276)
+ (let ((e-24280
+ (cdr x-24276))
+ (r-24281
+ (car x-24276)))
(call-with-values
(lambda ()
- (syntax-type-6380
- e-26112
- r-26113
+ (syntax-type-4329
+ e-24280
+ r-24281
'(())
- (source-annotation-6338
- e-26112)
+ (source-annotation-4287
+ e-24280)
#f
- mod-25250
+ mod-23418
#f))
- (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)))
+ (lambda (type-24285
+ value-24286
+ form-24287
+ e-24288
+ w-24289
+ s-24290
+ mod-24291)
+ (expand-expr-4331
+ type-24285
+ value-24286
+ form-24287
+ e-24288
+ r-24281
+ w-24289
+ s-24290
+ mod-24291)))))
+ (reverse vals-23252))
+ (let ((exps-24297
+ (map (lambda (x-24298)
+ (let ((e-24301
+ (cdr x-24298))
+ (r-24302
+ (car x-24298)))
(call-with-values
(lambda ()
- (syntax-type-6380
- e-26133
- r-26134
+ (syntax-type-4329
+ e-24301
+ r-24302
'(())
- (source-annotation-6338
- e-26133)
+ (source-annotation-4287
+ e-24301)
#f
- mod-25250
+ mod-23418
#f))
- (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
+ (lambda (type-24306
+ value-24307
+ form-24308
+ e-24309
+ w-24310
+ s-24311
+ mod-24312)
+ (expand-expr-4331
+ type-24306
+ value-24307
+ form-24308
+ e-24309
+ r-24302
+ w-24310
+ s-24311
+ mod-24312)))))
+ (cons (cons er-23255
+ (wrap-4323
(begin
- (if (if (pair? e-25247)
- s-25249
+ (if (if (pair? e-23415)
+ s-23417
#f)
(set-source-properties!
- e-25247
- s-25249))
- e-25247)
- w-25248
- mod-25250))
- (cdr body-25079)))))
- (if (null? (cdr exps-26129))
- (car exps-26129)
+ e-23415
+ s-23417))
+ e-23415)
+ w-23416
+ mod-23418))
+ (cdr body-23247)))))
+ (if (null? (cdr exps-24297))
+ (car exps-24297)
(make-struct/no-tail
(vector-ref
%expanded-vtables
12)
#f
- exps-26129)))))))))))))))))
- (parse-25066
- (map (lambda (x-25069)
- (cons r-25063
- (wrap-6374 x-25069 w-25065 mod-25062)))
- body-25058)
+ exps-24297)))))))))))))))))
+ (parse-23234
+ (map (lambda (x-23237)
+ (cons r-23231
+ (wrap-4323 x-23237 w-23233 mod-23230)))
+ body-23226)
'()
'()
'()
'()
'()
'())))))))
- (expand-local-syntax-6386
- (lambda (rec?-26170
- e-26171
- r-26172
- w-26173
- s-26174
- mod-26175
- k-26176)
- (let ((tmp-26178
+ (expand-local-syntax-4335
+ (lambda (rec?-24338
+ e-24339
+ r-24340
+ w-24341
+ s-24342
+ mod-24343
+ k-24344)
+ (let ((tmp-24346
($sc-dispatch
- e-26171
+ e-24339
'(_ #(each (any any)) any . each-any))))
- (if tmp-26178
+ (if tmp-24346
(@apply
- (lambda (id-26182 val-26183 e1-26184 e2-26185)
- (if (not (valid-bound-ids?-6371 id-26182))
+ (lambda (id-24350 val-24351 e1-24352 e2-24353)
+ (if (not (valid-bound-ids?-4320 id-24350))
(syntax-violation
#f
"duplicate bound keyword"
- 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)))
+ e-24339)
+ (let ((labels-24443 (gen-labels-4297 id-24350)))
+ (let ((new-w-24444
+ (make-binding-wrap-4308
+ id-24350
+ labels-24443
+ w-24341)))
+ (k-24344
+ (cons e1-24352 e2-24353)
+ (extend-env-4288
+ labels-24443
+ (let ((trans-r-24480
+ (macros-only-env-4290 r-24340)))
(begin
- (if rec?-26170 new-w-26276 w-26173)
- (map (lambda (x-26313)
+ (if rec?-24338 new-w-24444 w-24341)
+ (map (lambda (x-24481)
(cons 'macro
- (eval-local-transformer-6387
- (expand-6381
- x-26313
- trans-r-26312
+ (eval-local-transformer-4336
+ (expand-4330
+ x-24481
+ trans-r-24480
(values
- (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)
+ (if rec?-24338
+ new-w-24444
+ w-24341))
+ mod-24343)
+ mod-24343)))
+ val-24351)))
+ r-24340)
+ new-w-24444
+ s-24342
+ mod-24343)))))
+ tmp-24346)
(syntax-violation
#f
"bad local syntax definition"
- (wrap-6374
+ (wrap-4323
(begin
- (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
+ (if (if (pair? e-24339) s-24342 #f)
+ (set-source-properties! e-24339 s-24342))
+ e-24339)
+ w-24341
+ mod-24343))))))
+ (eval-local-transformer-4336
+ (lambda (expanded-24761 mod-24762)
+ (let ((p-24763 (primitive-eval expanded-24761)))
+ (if (procedure? p-24763)
+ p-24763
(syntax-violation
#f
"nonprocedure transformer"
- 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)
+ p-24763)))))
+ (ellipsis?-4338
+ (lambda (x-4999)
+ (if (if (if (vector? x-4999)
+ (if (= (vector-length x-4999) 4)
+ (eq? (vector-ref x-4999 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref x-7050 1))
+ (symbol? (vector-ref x-4999 1))
#f)
- (if (eq? (if (if (vector? x-7050)
- (if (= (vector-length x-7050) 4)
- (eq? (vector-ref x-7050 0) 'syntax-object)
+ (if (eq? (if (if (vector? x-4999)
+ (if (= (vector-length x-4999) 4)
+ (eq? (vector-ref x-4999 0) 'syntax-object)
#f)
#f)
- (vector-ref x-7050 1)
- x-7050)
+ (vector-ref x-4999 1)
+ x-4999)
(if (if (= (vector-length
'#(syntax-object
...
((top)
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-4317"))
+ #(ribcage #(x) #((top)) #("l-*-2266"))
#(ribcage
(lambda-var-list
gen-var
@@ -5122,152 +5122,152 @@
(top)
(top)
(top))
- ("l-*-2527"
- "l-*-2525"
- "l-*-2523"
- "l-*-2521"
- "l-*-2519"
- "l-*-2517"
- "l-*-2515"
- "l-*-2513"
- "l-*-2511"
- "l-*-2509"
- "l-*-2507"
- "l-*-2505"
- "l-*-2503"
- "l-*-2501"
- "l-*-2499"
- "l-*-2497"
- "l-*-2495"
- "l-*-2493"
- "l-*-2491"
- "l-*-2489"
- "l-*-2487"
- "l-*-2485"
- "l-*-2483"
- "l-*-2481"
- "l-*-2479"
- "l-*-2477"
- "l-*-2475"
- "l-*-2473"
- "l-*-2471"
- "l-*-2469"
- "l-*-2467"
- "l-*-2465"
- "l-*-2463"
- "l-*-2461"
- "l-*-2459"
- "l-*-2457"
- "l-*-2455"
- "l-*-2453"
- "l-*-2451"
- "l-*-2450"
- "l-*-2448"
- "l-*-2445"
- "l-*-2444"
- "l-*-2443"
- "l-*-2441"
- "l-*-2440"
- "l-*-2438"
- "l-*-2436"
- "l-*-2434"
- "l-*-2432"
- "l-*-2430"
- "l-*-2428"
- "l-*-2426"
- "l-*-2424"
- "l-*-2421"
- "l-*-2419"
- "l-*-2418"
- "l-*-2416"
- "l-*-2414"
- "l-*-2412"
- "l-*-2410"
- "l-*-2409"
- "l-*-2408"
- "l-*-2407"
- "l-*-2405"
- "l-*-2404"
- "l-*-2401"
- "l-*-2399"
- "l-*-2397"
- "l-*-2395"
- "l-*-2393"
- "l-*-2391"
- "l-*-2389"
- "l-*-2388"
- "l-*-2387"
- "l-*-2385"
- "l-*-2383"
- "l-*-2382"
- "l-*-2379"
- "l-*-2378"
- "l-*-2376"
- "l-*-2374"
- "l-*-2372"
- "l-*-2370"
- "l-*-2368"
- "l-*-2366"
- "l-*-2364"
- "l-*-2362"
- "l-*-2360"
- "l-*-2357"
- "l-*-2355"
- "l-*-2353"
- "l-*-2351"
- "l-*-2349"
- "l-*-2347"
- "l-*-2345"
- "l-*-2343"
- "l-*-2341"
- "l-*-2339"
- "l-*-2337"
- "l-*-2335"
- "l-*-2333"
- "l-*-2331"
- "l-*-2329"
- "l-*-2327"
- "l-*-2325"
- "l-*-2323"
- "l-*-2321"
- "l-*-2319"
- "l-*-2317"
- "l-*-2315"
- "l-*-2313"
- "l-*-2311"
- "l-*-2309"
- "l-*-2307"
- "l-*-2306"
- "l-*-2305"
- "l-*-2304"
- "l-*-2303"
- "l-*-2301"
- "l-*-2299"
- "l-*-2297"
- "l-*-2294"
- "l-*-2292"
- "l-*-2290"
- "l-*-2288"
- "l-*-2286"
- "l-*-2284"
- "l-*-2282"
- "l-*-2280"
- "l-*-2278"
- "l-*-2276"
- "l-*-2274"
- "l-*-2272"
- "l-*-2270"
- "l-*-2268"
- "l-*-2266"
- "l-*-2264"
- "l-*-2262"
- "l-*-2260"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("l-*-2098" "l-*-2097" "l-*-2096")))
+ ("l-*-47" "l-*-46" "l-*-45")))
(hygiene guile)))
4)
#t
@@ -5278,7 +5278,7 @@
((top)
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-4317"))
+ #(ribcage #(x) #((top)) #("l-*-2266"))
#(ribcage
(lambda-var-list
gen-var
@@ -5560,161 +5560,161 @@
(top)
(top)
(top))
- ("l-*-2527"
- "l-*-2525"
- "l-*-2523"
- "l-*-2521"
- "l-*-2519"
- "l-*-2517"
- "l-*-2515"
- "l-*-2513"
- "l-*-2511"
- "l-*-2509"
- "l-*-2507"
- "l-*-2505"
- "l-*-2503"
- "l-*-2501"
- "l-*-2499"
- "l-*-2497"
- "l-*-2495"
- "l-*-2493"
- "l-*-2491"
- "l-*-2489"
- "l-*-2487"
- "l-*-2485"
- "l-*-2483"
- "l-*-2481"
- "l-*-2479"
- "l-*-2477"
- "l-*-2475"
- "l-*-2473"
- "l-*-2471"
- "l-*-2469"
- "l-*-2467"
- "l-*-2465"
- "l-*-2463"
- "l-*-2461"
- "l-*-2459"
- "l-*-2457"
- "l-*-2455"
- "l-*-2453"
- "l-*-2451"
- "l-*-2450"
- "l-*-2448"
- "l-*-2445"
- "l-*-2444"
- "l-*-2443"
- "l-*-2441"
- "l-*-2440"
- "l-*-2438"
- "l-*-2436"
- "l-*-2434"
- "l-*-2432"
- "l-*-2430"
- "l-*-2428"
- "l-*-2426"
- "l-*-2424"
- "l-*-2421"
- "l-*-2419"
- "l-*-2418"
- "l-*-2416"
- "l-*-2414"
- "l-*-2412"
- "l-*-2410"
- "l-*-2409"
- "l-*-2408"
- "l-*-2407"
- "l-*-2405"
- "l-*-2404"
- "l-*-2401"
- "l-*-2399"
- "l-*-2397"
- "l-*-2395"
- "l-*-2393"
- "l-*-2391"
- "l-*-2389"
- "l-*-2388"
- "l-*-2387"
- "l-*-2385"
- "l-*-2383"
- "l-*-2382"
- "l-*-2379"
- "l-*-2378"
- "l-*-2376"
- "l-*-2374"
- "l-*-2372"
- "l-*-2370"
- "l-*-2368"
- "l-*-2366"
- "l-*-2364"
- "l-*-2362"
- "l-*-2360"
- "l-*-2357"
- "l-*-2355"
- "l-*-2353"
- "l-*-2351"
- "l-*-2349"
- "l-*-2347"
- "l-*-2345"
- "l-*-2343"
- "l-*-2341"
- "l-*-2339"
- "l-*-2337"
- "l-*-2335"
- "l-*-2333"
- "l-*-2331"
- "l-*-2329"
- "l-*-2327"
- "l-*-2325"
- "l-*-2323"
- "l-*-2321"
- "l-*-2319"
- "l-*-2317"
- "l-*-2315"
- "l-*-2313"
- "l-*-2311"
- "l-*-2309"
- "l-*-2307"
- "l-*-2306"
- "l-*-2305"
- "l-*-2304"
- "l-*-2303"
- "l-*-2301"
- "l-*-2299"
- "l-*-2297"
- "l-*-2294"
- "l-*-2292"
- "l-*-2290"
- "l-*-2288"
- "l-*-2286"
- "l-*-2284"
- "l-*-2282"
- "l-*-2280"
- "l-*-2278"
- "l-*-2276"
- "l-*-2274"
- "l-*-2272"
- "l-*-2270"
- "l-*-2268"
- "l-*-2266"
- "l-*-2264"
- "l-*-2262"
- "l-*-2260"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("l-*-2098" "l-*-2097" "l-*-2096")))
+ ("l-*-47" "l-*-46" "l-*-45")))
(hygiene guile))))
- (eq? (id-var-name-6364 x-7050 '(()))
- (id-var-name-6364
+ (eq? (id-var-name-4313 x-4999 '(()))
+ (id-var-name-4313
'#(syntax-object
...
((top)
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-4317"))
+ #(ribcage #(x) #((top)) #("l-*-2266"))
#(ribcage
(lambda-var-list
gen-var
@@ -5996,420 +5996,420 @@
(top)
(top)
(top))
- ("l-*-2527"
- "l-*-2525"
- "l-*-2523"
- "l-*-2521"
- "l-*-2519"
- "l-*-2517"
- "l-*-2515"
- "l-*-2513"
- "l-*-2511"
- "l-*-2509"
- "l-*-2507"
- "l-*-2505"
- "l-*-2503"
- "l-*-2501"
- "l-*-2499"
- "l-*-2497"
- "l-*-2495"
- "l-*-2493"
- "l-*-2491"
- "l-*-2489"
- "l-*-2487"
- "l-*-2485"
- "l-*-2483"
- "l-*-2481"
- "l-*-2479"
- "l-*-2477"
- "l-*-2475"
- "l-*-2473"
- "l-*-2471"
- "l-*-2469"
- "l-*-2467"
- "l-*-2465"
- "l-*-2463"
- "l-*-2461"
- "l-*-2459"
- "l-*-2457"
- "l-*-2455"
- "l-*-2453"
- "l-*-2451"
- "l-*-2450"
- "l-*-2448"
- "l-*-2445"
- "l-*-2444"
- "l-*-2443"
- "l-*-2441"
- "l-*-2440"
- "l-*-2438"
- "l-*-2436"
- "l-*-2434"
- "l-*-2432"
- "l-*-2430"
- "l-*-2428"
- "l-*-2426"
- "l-*-2424"
- "l-*-2421"
- "l-*-2419"
- "l-*-2418"
- "l-*-2416"
- "l-*-2414"
- "l-*-2412"
- "l-*-2410"
- "l-*-2409"
- "l-*-2408"
- "l-*-2407"
- "l-*-2405"
- "l-*-2404"
- "l-*-2401"
- "l-*-2399"
- "l-*-2397"
- "l-*-2395"
- "l-*-2393"
- "l-*-2391"
- "l-*-2389"
- "l-*-2388"
- "l-*-2387"
- "l-*-2385"
- "l-*-2383"
- "l-*-2382"
- "l-*-2379"
- "l-*-2378"
- "l-*-2376"
- "l-*-2374"
- "l-*-2372"
- "l-*-2370"
- "l-*-2368"
- "l-*-2366"
- "l-*-2364"
- "l-*-2362"
- "l-*-2360"
- "l-*-2357"
- "l-*-2355"
- "l-*-2353"
- "l-*-2351"
- "l-*-2349"
- "l-*-2347"
- "l-*-2345"
- "l-*-2343"
- "l-*-2341"
- "l-*-2339"
- "l-*-2337"
- "l-*-2335"
- "l-*-2333"
- "l-*-2331"
- "l-*-2329"
- "l-*-2327"
- "l-*-2325"
- "l-*-2323"
- "l-*-2321"
- "l-*-2319"
- "l-*-2317"
- "l-*-2315"
- "l-*-2313"
- "l-*-2311"
- "l-*-2309"
- "l-*-2307"
- "l-*-2306"
- "l-*-2305"
- "l-*-2304"
- "l-*-2303"
- "l-*-2301"
- "l-*-2299"
- "l-*-2297"
- "l-*-2294"
- "l-*-2292"
- "l-*-2290"
- "l-*-2288"
- "l-*-2286"
- "l-*-2284"
- "l-*-2282"
- "l-*-2280"
- "l-*-2278"
- "l-*-2276"
- "l-*-2274"
- "l-*-2272"
- "l-*-2270"
- "l-*-2268"
- "l-*-2266"
- "l-*-2264"
- "l-*-2262"
- "l-*-2260"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("l-*-2098" "l-*-2097" "l-*-2096")))
+ ("l-*-47" "l-*-46" "l-*-45")))
(hygiene guile))
'(())))
#f)
#f)))
- (lambda-formals-6390
- (lambda (orig-args-26600)
+ (lambda-formals-4339
+ (lambda (orig-args-24768)
(letrec*
- ((req-26601
- (lambda (args-26605 rreq-26606)
- (let ((tmp-26608 ($sc-dispatch args-26605 '())))
- (if tmp-26608
+ ((req-24769
+ (lambda (args-24773 rreq-24774)
+ (let ((tmp-24776 ($sc-dispatch args-24773 '())))
+ (if tmp-24776
(@apply
- (lambda () (check-26602 (reverse rreq-26606) #f))
- tmp-26608)
- (let ((tmp-26731
- ($sc-dispatch args-26605 '(any . any))))
- (if (if tmp-26731
+ (lambda () (check-24770 (reverse rreq-24774) #f))
+ tmp-24776)
+ (let ((tmp-24899
+ ($sc-dispatch args-24773 '(any . any))))
+ (if (if tmp-24899
(@apply
- (lambda (a-26735 b-26736)
- (if (symbol? a-26735)
+ (lambda (a-24903 b-24904)
+ (if (symbol? a-24903)
#t
- (if (if (vector? a-26735)
- (if (= (vector-length a-26735) 4)
- (eq? (vector-ref a-26735 0)
+ (if (if (vector? a-24903)
+ (if (= (vector-length a-24903) 4)
+ (eq? (vector-ref a-24903 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref a-26735 1))
+ (symbol? (vector-ref a-24903 1))
#f)))
- tmp-26731)
+ tmp-24899)
#f)
(@apply
- (lambda (a-26763 b-26764)
- (req-26601 b-26764 (cons a-26763 rreq-26606)))
- tmp-26731)
- (let ((tmp-26765 (list args-26605)))
+ (lambda (a-24931 b-24932)
+ (req-24769 b-24932 (cons a-24931 rreq-24774)))
+ tmp-24899)
+ (let ((tmp-24933 (list args-24773)))
(if (@apply
- (lambda (r-26767)
- (if (symbol? r-26767)
+ (lambda (r-24935)
+ (if (symbol? r-24935)
#t
- (if (if (vector? r-26767)
- (if (= (vector-length r-26767) 4)
- (eq? (vector-ref r-26767 0)
+ (if (if (vector? r-24935)
+ (if (= (vector-length r-24935) 4)
+ (eq? (vector-ref r-24935 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref r-26767 1))
+ (symbol? (vector-ref r-24935 1))
#f)))
- tmp-26765)
+ tmp-24933)
(@apply
- (lambda (r-26797)
- (check-26602 (reverse rreq-26606) r-26797))
- tmp-26765)
+ (lambda (r-24965)
+ (check-24770 (reverse rreq-24774) r-24965))
+ tmp-24933)
(syntax-violation
'lambda
"invalid argument list"
- 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)
+ orig-args-24768
+ args-24773)))))))))
+ (check-24770
+ (lambda (req-25096 rest-25097)
+ (if (distinct-bound-ids?-4321
+ (if rest-25097
+ (cons rest-25097 req-25096)
+ req-25096))
+ (values req-25096 #f rest-25097 #f)
(syntax-violation
'lambda
"duplicate identifier in argument list"
- 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
+ orig-args-24768)))))
+ (req-24769 orig-args-24768 '()))))
+ (expand-simple-lambda-4340
+ (lambda (e-25213
+ r-25214
+ w-25215
+ s-25216
+ mod-25217
+ req-25218
+ rest-25219
+ meta-25220
+ body-25221)
+ (let ((ids-25222
+ (if rest-25219
+ (append req-25218 (list rest-25219))
+ req-25218)))
+ (let ((vars-25223 (map gen-var-4344 ids-25222)))
+ (let ((labels-25224 (gen-labels-4297 ids-25222)))
+ (build-simple-lambda-4270
+ s-25216
+ (map syntax->datum req-25218)
+ (if rest-25219 (syntax->datum rest-25219) #f)
+ vars-25223
+ meta-25220
+ (expand-body-4334
+ body-25221
+ (wrap-4323
(begin
- (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)
+ (if (if (pair? e-25213) s-25216 #f)
+ (set-source-properties! e-25213 s-25216))
+ e-25213)
+ w-25215
+ mod-25217)
+ (extend-var-env-4289
+ labels-25224
+ vars-25223
+ r-25214)
+ (make-binding-wrap-4308
+ ids-25222
+ labels-25224
+ w-25215)
+ mod-25217)))))))
+ (lambda*-formals-4341
+ (lambda (orig-args-25504)
(letrec*
- ((req-27337
- (lambda (args-27344 rreq-27345)
- (let ((tmp-27347 ($sc-dispatch args-27344 '())))
- (if tmp-27347
+ ((req-25505
+ (lambda (args-25512 rreq-25513)
+ (let ((tmp-25515 ($sc-dispatch args-25512 '())))
+ (if tmp-25515
(@apply
(lambda ()
- (check-27341 (reverse rreq-27345) '() #f '()))
- tmp-27347)
- (let ((tmp-27353
- ($sc-dispatch args-27344 '(any . any))))
- (if (if tmp-27353
+ (check-25509 (reverse rreq-25513) '() #f '()))
+ tmp-25515)
+ (let ((tmp-25521
+ ($sc-dispatch args-25512 '(any . any))))
+ (if (if tmp-25521
(@apply
- (lambda (a-27357 b-27358)
- (if (symbol? a-27357)
+ (lambda (a-25525 b-25526)
+ (if (symbol? a-25525)
#t
- (if (if (vector? a-27357)
- (if (= (vector-length a-27357) 4)
- (eq? (vector-ref a-27357 0)
+ (if (if (vector? a-25525)
+ (if (= (vector-length a-25525) 4)
+ (eq? (vector-ref a-25525 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref a-27357 1))
+ (symbol? (vector-ref a-25525 1))
#f)))
- tmp-27353)
+ tmp-25521)
#f)
(@apply
- (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
+ (lambda (a-25553 b-25554)
+ (req-25505 b-25554 (cons a-25553 rreq-25513)))
+ tmp-25521)
+ (let ((tmp-25555
+ ($sc-dispatch args-25512 '(any . any))))
+ (if (if tmp-25555
(@apply
- (lambda (a-27391 b-27392)
- (eq? (syntax->datum a-27391) #:optional))
- tmp-27387)
+ (lambda (a-25559 b-25560)
+ (eq? (syntax->datum a-25559) #:optional))
+ tmp-25555)
#f)
(@apply
- (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
+ (lambda (a-25561 b-25562)
+ (opt-25506 b-25562 (reverse rreq-25513) '()))
+ tmp-25555)
+ (let ((tmp-25565
+ ($sc-dispatch args-25512 '(any . any))))
+ (if (if tmp-25565
(@apply
- (lambda (a-27401 b-27402)
- (eq? (syntax->datum a-27401) #:key))
- tmp-27397)
+ (lambda (a-25569 b-25570)
+ (eq? (syntax->datum a-25569) #:key))
+ tmp-25565)
#f)
(@apply
- (lambda (a-27403 b-27404)
- (key-27339
- b-27404
- (reverse rreq-27345)
+ (lambda (a-25571 b-25572)
+ (key-25507
+ b-25572
+ (reverse rreq-25513)
'()
'()))
- tmp-27397)
- (let ((tmp-27407
- ($sc-dispatch args-27344 '(any any))))
- (if (if tmp-27407
+ tmp-25565)
+ (let ((tmp-25575
+ ($sc-dispatch args-25512 '(any any))))
+ (if (if tmp-25575
(@apply
- (lambda (a-27411 b-27412)
- (eq? (syntax->datum a-27411)
+ (lambda (a-25579 b-25580)
+ (eq? (syntax->datum a-25579)
#:rest))
- tmp-27407)
+ tmp-25575)
#f)
(@apply
- (lambda (a-27413 b-27414)
- (rest-27340
- b-27414
- (reverse rreq-27345)
+ (lambda (a-25581 b-25582)
+ (rest-25508
+ b-25582
+ (reverse rreq-25513)
'()
'()))
- tmp-27407)
- (let ((tmp-27417 (list args-27344)))
+ tmp-25575)
+ (let ((tmp-25585 (list args-25512)))
(if (@apply
- (lambda (r-27419)
- (if (symbol? r-27419)
+ (lambda (r-25587)
+ (if (symbol? r-25587)
#t
- (if (if (vector? r-27419)
+ (if (if (vector? r-25587)
(if (= (vector-length
- r-27419)
+ r-25587)
4)
(eq? (vector-ref
- r-27419
+ r-25587
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref r-27419 1))
+ (vector-ref r-25587 1))
#f)))
- tmp-27417)
+ tmp-25585)
(@apply
- (lambda (r-27449)
- (rest-27340
- r-27449
- (reverse rreq-27345)
+ (lambda (r-25617)
+ (rest-25508
+ r-25617
+ (reverse rreq-25513)
'()
'()))
- tmp-27417)
+ tmp-25585)
(syntax-violation
'lambda*
"invalid argument list"
- orig-args-27336
- args-27344)))))))))))))))
- (opt-27338
- (lambda (args-27468 req-27469 ropt-27470)
- (let ((tmp-27472 ($sc-dispatch args-27468 '())))
- (if tmp-27472
+ orig-args-25504
+ args-25512)))))))))))))))
+ (opt-25506
+ (lambda (args-25636 req-25637 ropt-25638)
+ (let ((tmp-25640 ($sc-dispatch args-25636 '())))
+ (if tmp-25640
(@apply
(lambda ()
- (check-27341
- req-27469
- (reverse ropt-27470)
+ (check-25509
+ req-25637
+ (reverse ropt-25638)
#f
'()))
- tmp-27472)
- (let ((tmp-27478
- ($sc-dispatch args-27468 '(any . any))))
- (if (if tmp-27478
+ tmp-25640)
+ (let ((tmp-25646
+ ($sc-dispatch args-25636 '(any . any))))
+ (if (if tmp-25646
(@apply
- (lambda (a-27482 b-27483)
- (if (symbol? a-27482)
+ (lambda (a-25650 b-25651)
+ (if (symbol? a-25650)
#t
- (if (if (vector? a-27482)
- (if (= (vector-length a-27482) 4)
- (eq? (vector-ref a-27482 0)
+ (if (if (vector? a-25650)
+ (if (= (vector-length a-25650) 4)
+ (eq? (vector-ref a-25650 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref a-27482 1))
+ (symbol? (vector-ref a-25650 1))
#f)))
- tmp-27478)
+ tmp-25646)
#f)
(@apply
- (lambda (a-27510 b-27511)
- (opt-27338
- b-27511
- req-27469
- (cons (cons a-27510
+ (lambda (a-25678 b-25679)
+ (opt-25506
+ b-25679
+ req-25637
+ (cons (cons a-25678
'(#(syntax-object
#f
((top)
#(ribcage
#(a b)
#((top) (top))
- #("l-*-4454" "l-*-4455"))
+ #("l-*-2403" "l-*-2404"))
#(ribcage () () ())
#(ribcage
#(args req ropt)
#((top) (top) (top))
- #("l-*-4444"
- "l-*-4445"
- "l-*-4446"))
+ #("l-*-2393"
+ "l-*-2394"
+ "l-*-2395"))
#(ribcage
(check rest key opt req)
((top)
@@ -6417,15 +6417,15 @@
(top)
(top)
(top))
- ("l-*-4390"
- "l-*-4388"
- "l-*-4386"
- "l-*-4384"
- "l-*-4382"))
+ ("l-*-2339"
+ "l-*-2337"
+ "l-*-2335"
+ "l-*-2333"
+ "l-*-2331"))
#(ribcage
#(orig-args)
#((top))
- #("l-*-4381"))
+ #("l-*-2330"))
#(ribcage
(lambda-var-list
gen-var
@@ -6707,285 +6707,283 @@
(top)
(top)
(top))
- ("l-*-2527"
- "l-*-2525"
- "l-*-2523"
- "l-*-2521"
- "l-*-2519"
- "l-*-2517"
- "l-*-2515"
- "l-*-2513"
- "l-*-2511"
- "l-*-2509"
- "l-*-2507"
- "l-*-2505"
- "l-*-2503"
- "l-*-2501"
- "l-*-2499"
- "l-*-2497"
- "l-*-2495"
- "l-*-2493"
- "l-*-2491"
- "l-*-2489"
- "l-*-2487"
- "l-*-2485"
- "l-*-2483"
- "l-*-2481"
- "l-*-2479"
- "l-*-2477"
- "l-*-2475"
- "l-*-2473"
- "l-*-2471"
- "l-*-2469"
- "l-*-2467"
- "l-*-2465"
- "l-*-2463"
- "l-*-2461"
- "l-*-2459"
- "l-*-2457"
- "l-*-2455"
- "l-*-2453"
- "l-*-2451"
- "l-*-2450"
- "l-*-2448"
- "l-*-2445"
- "l-*-2444"
- "l-*-2443"
- "l-*-2441"
- "l-*-2440"
- "l-*-2438"
- "l-*-2436"
- "l-*-2434"
- "l-*-2432"
- "l-*-2430"
- "l-*-2428"
- "l-*-2426"
- "l-*-2424"
- "l-*-2421"
- "l-*-2419"
- "l-*-2418"
- "l-*-2416"
- "l-*-2414"
- "l-*-2412"
- "l-*-2410"
- "l-*-2409"
- "l-*-2408"
- "l-*-2407"
- "l-*-2405"
- "l-*-2404"
- "l-*-2401"
- "l-*-2399"
- "l-*-2397"
- "l-*-2395"
- "l-*-2393"
- "l-*-2391"
- "l-*-2389"
- "l-*-2388"
- "l-*-2387"
- "l-*-2385"
- "l-*-2383"
- "l-*-2382"
- "l-*-2379"
- "l-*-2378"
- "l-*-2376"
- "l-*-2374"
- "l-*-2372"
- "l-*-2370"
- "l-*-2368"
- "l-*-2366"
- "l-*-2364"
- "l-*-2362"
- "l-*-2360"
- "l-*-2357"
- "l-*-2355"
- "l-*-2353"
- "l-*-2351"
- "l-*-2349"
- "l-*-2347"
- "l-*-2345"
- "l-*-2343"
- "l-*-2341"
- "l-*-2339"
- "l-*-2337"
- "l-*-2335"
- "l-*-2333"
- "l-*-2331"
- "l-*-2329"
- "l-*-2327"
- "l-*-2325"
- "l-*-2323"
- "l-*-2321"
- "l-*-2319"
- "l-*-2317"
- "l-*-2315"
- "l-*-2313"
- "l-*-2311"
- "l-*-2309"
- "l-*-2307"
- "l-*-2306"
- "l-*-2305"
- "l-*-2304"
- "l-*-2303"
- "l-*-2301"
- "l-*-2299"
- "l-*-2297"
- "l-*-2294"
- "l-*-2292"
- "l-*-2290"
- "l-*-2288"
- "l-*-2286"
- "l-*-2284"
- "l-*-2282"
- "l-*-2280"
- "l-*-2278"
- "l-*-2276"
- "l-*-2274"
- "l-*-2272"
- "l-*-2270"
- "l-*-2268"
- "l-*-2266"
- "l-*-2264"
- "l-*-2262"
- "l-*-2260"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("l-*-2098"
- "l-*-2097"
- "l-*-2096")))
+ ("l-*-47" "l-*-46" "l-*-45")))
(hygiene guile))))
- ropt-27470)))
- tmp-27478)
- (let ((tmp-27512
- ($sc-dispatch args-27468 '((any any) . any))))
- (if (if tmp-27512
+ ropt-25638)))
+ tmp-25646)
+ (let ((tmp-25680
+ ($sc-dispatch args-25636 '((any any) . any))))
+ (if (if tmp-25680
(@apply
- (lambda (a-27516 init-27517 b-27518)
- (if (symbol? a-27516)
+ (lambda (a-25684 init-25685 b-25686)
+ (if (symbol? a-25684)
#t
- (if (if (vector? a-27516)
- (if (= (vector-length a-27516) 4)
- (eq? (vector-ref a-27516 0)
+ (if (if (vector? a-25684)
+ (if (= (vector-length a-25684) 4)
+ (eq? (vector-ref a-25684 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref a-27516 1))
+ (symbol? (vector-ref a-25684 1))
#f)))
- tmp-27512)
+ tmp-25680)
#f)
(@apply
- (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
+ (lambda (a-25713 init-25714 b-25715)
+ (opt-25506
+ b-25715
+ req-25637
+ (cons (list a-25713 init-25714) ropt-25638)))
+ tmp-25680)
+ (let ((tmp-25716
+ ($sc-dispatch args-25636 '(any . any))))
+ (if (if tmp-25716
(@apply
- (lambda (a-27552 b-27553)
- (eq? (syntax->datum a-27552) #:key))
- tmp-27548)
+ (lambda (a-25720 b-25721)
+ (eq? (syntax->datum a-25720) #:key))
+ tmp-25716)
#f)
(@apply
- (lambda (a-27554 b-27555)
- (key-27339
- b-27555
- req-27469
- (reverse ropt-27470)
+ (lambda (a-25722 b-25723)
+ (key-25507
+ b-25723
+ req-25637
+ (reverse ropt-25638)
'()))
- tmp-27548)
- (let ((tmp-27558
- ($sc-dispatch args-27468 '(any any))))
- (if (if tmp-27558
+ tmp-25716)
+ (let ((tmp-25726
+ ($sc-dispatch args-25636 '(any any))))
+ (if (if tmp-25726
(@apply
- (lambda (a-27562 b-27563)
- (eq? (syntax->datum a-27562)
+ (lambda (a-25730 b-25731)
+ (eq? (syntax->datum a-25730)
#:rest))
- tmp-27558)
+ tmp-25726)
#f)
(@apply
- (lambda (a-27564 b-27565)
- (rest-27340
- b-27565
- req-27469
- (reverse ropt-27470)
+ (lambda (a-25732 b-25733)
+ (rest-25508
+ b-25733
+ req-25637
+ (reverse ropt-25638)
'()))
- tmp-27558)
- (let ((tmp-27568 (list args-27468)))
+ tmp-25726)
+ (let ((tmp-25736 (list args-25636)))
(if (@apply
- (lambda (r-27570)
- (if (symbol? r-27570)
+ (lambda (r-25738)
+ (if (symbol? r-25738)
#t
- (if (if (vector? r-27570)
+ (if (if (vector? r-25738)
(if (= (vector-length
- r-27570)
+ r-25738)
4)
(eq? (vector-ref
- r-27570
+ r-25738
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref r-27570 1))
+ (vector-ref r-25738 1))
#f)))
- tmp-27568)
+ tmp-25736)
(@apply
- (lambda (r-27600)
- (rest-27340
- r-27600
- req-27469
- (reverse ropt-27470)
+ (lambda (r-25768)
+ (rest-25508
+ r-25768
+ req-25637
+ (reverse ropt-25638)
'()))
- tmp-27568)
+ tmp-25736)
(syntax-violation
'lambda*
"invalid optional argument list"
- 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
+ orig-args-25504
+ args-25636)))))))))))))))
+ (key-25507
+ (lambda (args-25787 req-25788 opt-25789 rkey-25790)
+ (let ((tmp-25792 ($sc-dispatch args-25787 '())))
+ (if tmp-25792
(@apply
(lambda ()
- (check-27341
- req-27620
- opt-27621
+ (check-25509
+ req-25788
+ opt-25789
#f
- (cons #f (reverse rkey-27622))))
- tmp-27624)
- (let ((tmp-27630
- ($sc-dispatch args-27619 '(any . any))))
- (if (if tmp-27630
+ (cons #f (reverse rkey-25790))))
+ tmp-25792)
+ (let ((tmp-25798
+ ($sc-dispatch args-25787 '(any . any))))
+ (if (if tmp-25798
(@apply
- (lambda (a-27634 b-27635)
- (if (symbol? a-27634)
+ (lambda (a-25802 b-25803)
+ (if (symbol? a-25802)
#t
- (if (if (vector? a-27634)
- (if (= (vector-length a-27634) 4)
- (eq? (vector-ref a-27634 0)
+ (if (if (vector? a-25802)
+ (if (= (vector-length a-25802) 4)
+ (eq? (vector-ref a-25802 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref a-27634 1))
+ (symbol? (vector-ref a-25802 1))
#f)))
- tmp-27630)
+ tmp-25798)
#f)
(@apply
- (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
+ (lambda (a-25830 b-25831)
+ (let ((tmp-25832
+ (symbol->keyword (syntax->datum a-25830))))
+ (key-25507
+ b-25831
+ req-25788
+ opt-25789
+ (cons (cons tmp-25832
+ (cons a-25830
'(#(syntax-object
#f
((top)
@@ -6993,12 +6991,12 @@
#(ribcage
#(k)
#((top))
- #("l-*-4517"))
+ #("l-*-2466"))
#(ribcage
#(a b)
#((top) (top))
- #("l-*-4511"
- "l-*-4512"))
+ #("l-*-2460"
+ "l-*-2461"))
#(ribcage () () ())
#(ribcage
#(args req opt rkey)
@@ -7006,10 +7004,10 @@
(top)
(top)
(top))
- #("l-*-4500"
- "l-*-4501"
- "l-*-4502"
- "l-*-4503"))
+ #("l-*-2449"
+ "l-*-2450"
+ "l-*-2451"
+ "l-*-2452"))
#(ribcage
(check rest
key
@@ -7020,15 +7018,15 @@
(top)
(top)
(top))
- ("l-*-4390"
- "l-*-4388"
- "l-*-4386"
- "l-*-4384"
- "l-*-4382"))
+ ("l-*-2339"
+ "l-*-2337"
+ "l-*-2335"
+ "l-*-2333"
+ "l-*-2331"))
#(ribcage
#(orig-args)
#((top))
- #("l-*-4381"))
+ #("l-*-2330"))
#(ribcage
(lambda-var-list
gen-var
@@ -7310,875 +7308,875 @@
(top)
(top)
(top))
- ("l-*-2527"
- "l-*-2525"
- "l-*-2523"
- "l-*-2521"
- "l-*-2519"
- "l-*-2517"
- "l-*-2515"
- "l-*-2513"
- "l-*-2511"
- "l-*-2509"
- "l-*-2507"
- "l-*-2505"
- "l-*-2503"
- "l-*-2501"
- "l-*-2499"
- "l-*-2497"
- "l-*-2495"
- "l-*-2493"
- "l-*-2491"
- "l-*-2489"
- "l-*-2487"
- "l-*-2485"
- "l-*-2483"
- "l-*-2481"
- "l-*-2479"
- "l-*-2477"
- "l-*-2475"
- "l-*-2473"
- "l-*-2471"
- "l-*-2469"
- "l-*-2467"
- "l-*-2465"
- "l-*-2463"
- "l-*-2461"
- "l-*-2459"
- "l-*-2457"
- "l-*-2455"
- "l-*-2453"
- "l-*-2451"
- "l-*-2450"
- "l-*-2448"
- "l-*-2445"
- "l-*-2444"
- "l-*-2443"
- "l-*-2441"
- "l-*-2440"
- "l-*-2438"
- "l-*-2436"
- "l-*-2434"
- "l-*-2432"
- "l-*-2430"
- "l-*-2428"
- "l-*-2426"
- "l-*-2424"
- "l-*-2421"
- "l-*-2419"
- "l-*-2418"
- "l-*-2416"
- "l-*-2414"
- "l-*-2412"
- "l-*-2410"
- "l-*-2409"
- "l-*-2408"
- "l-*-2407"
- "l-*-2405"
- "l-*-2404"
- "l-*-2401"
- "l-*-2399"
- "l-*-2397"
- "l-*-2395"
- "l-*-2393"
- "l-*-2391"
- "l-*-2389"
- "l-*-2388"
- "l-*-2387"
- "l-*-2385"
- "l-*-2383"
- "l-*-2382"
- "l-*-2379"
- "l-*-2378"
- "l-*-2376"
- "l-*-2374"
- "l-*-2372"
- "l-*-2370"
- "l-*-2368"
- "l-*-2366"
- "l-*-2364"
- "l-*-2362"
- "l-*-2360"
- "l-*-2357"
- "l-*-2355"
- "l-*-2353"
- "l-*-2351"
- "l-*-2349"
- "l-*-2347"
- "l-*-2345"
- "l-*-2343"
- "l-*-2341"
- "l-*-2339"
- "l-*-2337"
- "l-*-2335"
- "l-*-2333"
- "l-*-2331"
- "l-*-2329"
- "l-*-2327"
- "l-*-2325"
- "l-*-2323"
- "l-*-2321"
- "l-*-2319"
- "l-*-2317"
- "l-*-2315"
- "l-*-2313"
- "l-*-2311"
- "l-*-2309"
- "l-*-2307"
- "l-*-2306"
- "l-*-2305"
- "l-*-2304"
- "l-*-2303"
- "l-*-2301"
- "l-*-2299"
- "l-*-2297"
- "l-*-2294"
- "l-*-2292"
- "l-*-2290"
- "l-*-2288"
- "l-*-2286"
- "l-*-2284"
- "l-*-2282"
- "l-*-2280"
- "l-*-2278"
- "l-*-2276"
- "l-*-2274"
- "l-*-2272"
- "l-*-2270"
- "l-*-2268"
- "l-*-2266"
- "l-*-2264"
- "l-*-2262"
- "l-*-2260"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("l-*-2098"
- "l-*-2097"
- "l-*-2096")))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
(hygiene guile)))))
- rkey-27622))))
- tmp-27630)
- (let ((tmp-27667
- ($sc-dispatch args-27619 '((any any) . any))))
- (if (if tmp-27667
+ rkey-25790))))
+ tmp-25798)
+ (let ((tmp-25835
+ ($sc-dispatch args-25787 '((any any) . any))))
+ (if (if tmp-25835
(@apply
- (lambda (a-27671 init-27672 b-27673)
- (if (symbol? a-27671)
+ (lambda (a-25839 init-25840 b-25841)
+ (if (symbol? a-25839)
#t
- (if (if (vector? a-27671)
- (if (= (vector-length a-27671) 4)
- (eq? (vector-ref a-27671 0)
+ (if (if (vector? a-25839)
+ (if (= (vector-length a-25839) 4)
+ (eq? (vector-ref a-25839 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref a-27671 1))
+ (symbol? (vector-ref a-25839 1))
#f)))
- tmp-27667)
+ tmp-25835)
#f)
(@apply
- (lambda (a-27700 init-27701 b-27702)
- (let ((tmp-27703
+ (lambda (a-25868 init-25869 b-25870)
+ (let ((tmp-25871
(symbol->keyword
- (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
+ (syntax->datum a-25868))))
+ (key-25507
+ b-25870
+ req-25788
+ opt-25789
+ (cons (list tmp-25871 a-25868 init-25869)
+ rkey-25790))))
+ tmp-25835)
+ (let ((tmp-25874
($sc-dispatch
- args-27619
+ args-25787
'((any any any) . any))))
- (if (if tmp-27706
+ (if (if tmp-25874
(@apply
- (lambda (a-27710
- init-27711
- k-27712
- b-27713)
- (if (if (symbol? a-27710)
+ (lambda (a-25878
+ init-25879
+ k-25880
+ b-25881)
+ (if (if (symbol? a-25878)
#t
- (if (if (vector? a-27710)
+ (if (if (vector? a-25878)
(if (= (vector-length
- a-27710)
+ a-25878)
4)
(eq? (vector-ref
- a-27710
+ a-25878
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref a-27710 1))
+ (vector-ref a-25878 1))
#f))
- (keyword? (syntax->datum k-27712))
+ (keyword? (syntax->datum k-25880))
#f))
- tmp-27706)
+ tmp-25874)
#f)
(@apply
- (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
+ (lambda (a-25908 init-25909 k-25910 b-25911)
+ (key-25507
+ b-25911
+ req-25788
+ opt-25789
+ (cons (list k-25910 a-25908 init-25909)
+ rkey-25790)))
+ tmp-25874)
+ (let ((tmp-25912
+ ($sc-dispatch args-25787 '(any))))
+ (if (if tmp-25912
(@apply
- (lambda (aok-27748)
- (eq? (syntax->datum aok-27748)
+ (lambda (aok-25916)
+ (eq? (syntax->datum aok-25916)
#:allow-other-keys))
- tmp-27744)
+ tmp-25912)
#f)
(@apply
- (lambda (aok-27749)
- (check-27341
- req-27620
- opt-27621
+ (lambda (aok-25917)
+ (check-25509
+ req-25788
+ opt-25789
#f
- (cons #t (reverse rkey-27622))))
- tmp-27744)
- (let ((tmp-27752
+ (cons #t (reverse rkey-25790))))
+ tmp-25912)
+ (let ((tmp-25920
($sc-dispatch
- args-27619
+ args-25787
'(any any any))))
- (if (if tmp-27752
+ (if (if tmp-25920
(@apply
- (lambda (aok-27756
- a-27757
- b-27758)
+ (lambda (aok-25924
+ a-25925
+ b-25926)
(if (eq? (syntax->datum
- aok-27756)
+ aok-25924)
#:allow-other-keys)
- (eq? (syntax->datum a-27757)
+ (eq? (syntax->datum a-25925)
#:rest)
#f))
- tmp-27752)
+ tmp-25920)
#f)
(@apply
- (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
+ (lambda (aok-25927 a-25928 b-25929)
+ (rest-25508
+ b-25929
+ req-25788
+ opt-25789
+ (cons #t (reverse rkey-25790))))
+ tmp-25920)
+ (let ((tmp-25932
($sc-dispatch
- args-27619
+ args-25787
'(any . any))))
- (if (if tmp-27764
+ (if (if tmp-25932
(@apply
- (lambda (aok-27768 r-27769)
+ (lambda (aok-25936 r-25937)
(if (eq? (syntax->datum
- aok-27768)
+ aok-25936)
#:allow-other-keys)
- (if (symbol? r-27769)
+ (if (symbol? r-25937)
#t
(if (if (vector?
- r-27769)
+ r-25937)
(if (= (vector-length
- r-27769)
+ r-25937)
4)
(eq? (vector-ref
- r-27769
+ r-25937
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- r-27769
+ r-25937
1))
#f))
#f))
- tmp-27764)
+ tmp-25932)
#f)
(@apply
- (lambda (aok-27796 r-27797)
- (rest-27340
- r-27797
- req-27620
- opt-27621
+ (lambda (aok-25964 r-25965)
+ (rest-25508
+ r-25965
+ req-25788
+ opt-25789
(cons #t
- (reverse rkey-27622))))
- tmp-27764)
- (let ((tmp-27800
+ (reverse rkey-25790))))
+ tmp-25932)
+ (let ((tmp-25968
($sc-dispatch
- args-27619
+ args-25787
'(any any))))
- (if (if tmp-27800
+ (if (if tmp-25968
(@apply
- (lambda (a-27804 b-27805)
+ (lambda (a-25972 b-25973)
(eq? (syntax->datum
- a-27804)
+ a-25972)
#:rest))
- tmp-27800)
+ tmp-25968)
#f)
(@apply
- (lambda (a-27806 b-27807)
- (rest-27340
- b-27807
- req-27620
- opt-27621
+ (lambda (a-25974 b-25975)
+ (rest-25508
+ b-25975
+ req-25788
+ opt-25789
(cons #f
(reverse
- rkey-27622))))
- tmp-27800)
- (let ((tmp-27810
- (list args-27619)))
+ rkey-25790))))
+ tmp-25968)
+ (let ((tmp-25978
+ (list args-25787)))
(if (@apply
- (lambda (r-27812)
- (if (symbol? r-27812)
+ (lambda (r-25980)
+ (if (symbol? r-25980)
#t
(if (if (vector?
- r-27812)
+ r-25980)
(if (= (vector-length
- r-27812)
+ r-25980)
4)
(eq? (vector-ref
- r-27812
+ r-25980
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- r-27812
+ r-25980
1))
#f)))
- tmp-27810)
+ tmp-25978)
(@apply
- (lambda (r-27842)
- (rest-27340
- r-27842
- req-27620
- opt-27621
+ (lambda (r-26010)
+ (rest-25508
+ r-26010
+ req-25788
+ opt-25789
(cons #f
(reverse
- rkey-27622))))
- tmp-27810)
+ rkey-25790))))
+ tmp-25978)
(syntax-violation
'lambda*
"invalid keyword argument list"
- orig-args-27336
- args-27619)))))))))))))))))))))
- (rest-27340
- (lambda (args-27870 req-27871 opt-27872 kw-27873)
- (let ((tmp-27875 (list args-27870)))
+ orig-args-25504
+ args-25787)))))))))))))))))))))
+ (rest-25508
+ (lambda (args-26038 req-26039 opt-26040 kw-26041)
+ (let ((tmp-26043 (list args-26038)))
(if (@apply
- (lambda (r-27877)
- (if (symbol? r-27877)
+ (lambda (r-26045)
+ (if (symbol? r-26045)
#t
- (if (if (vector? r-27877)
- (if (= (vector-length r-27877) 4)
- (eq? (vector-ref r-27877 0) 'syntax-object)
+ (if (if (vector? r-26045)
+ (if (= (vector-length r-26045) 4)
+ (eq? (vector-ref r-26045 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref r-27877 1))
+ (symbol? (vector-ref r-26045 1))
#f)))
- tmp-27875)
+ tmp-26043)
(@apply
- (lambda (r-27907)
- (check-27341
- req-27871
- opt-27872
- r-27907
- kw-27873))
- tmp-27875)
+ (lambda (r-26075)
+ (check-25509
+ req-26039
+ opt-26040
+ r-26075
+ kw-26041))
+ tmp-26043)
(syntax-violation
'lambda*
"invalid rest argument"
- orig-args-27336
- args-27870)))))
- (check-27341
- (lambda (req-27911 opt-27912 rest-27913 kw-27914)
- (if (distinct-bound-ids?-6372
+ orig-args-25504
+ args-26038)))))
+ (check-25509
+ (lambda (req-26079 opt-26080 rest-26081 kw-26082)
+ (if (distinct-bound-ids?-4321
(append
- req-27911
- (map car opt-27912)
- (if rest-27913 (list rest-27913) '())
- (if (pair? kw-27914)
- (map cadr (cdr kw-27914))
+ req-26079
+ (map car opt-26080)
+ (if rest-26081 (list rest-26081) '())
+ (if (pair? kw-26082)
+ (map cadr (cdr kw-26082))
'())))
- (values req-27911 opt-27912 rest-27913 kw-27914)
+ (values req-26079 opt-26080 rest-26081 kw-26082)
(syntax-violation
'lambda*
"duplicate identifier in argument list"
- 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)
+ orig-args-25504)))))
+ (req-25505 orig-args-25504 '()))))
+ (expand-lambda-case-4342
+ (lambda (e-26198
+ r-26199
+ w-26200
+ s-26201
+ mod-26202
+ get-formals-26203
+ clauses-26204)
(letrec*
- ((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-req-26205
+ (lambda (req-26336
+ opt-26337
+ rest-26338
+ kw-26339
+ body-26340)
+ (let ((vars-26341 (map gen-var-4344 req-26336))
+ (labels-26342 (gen-labels-4297 req-26336)))
+ (let ((r*-26343
+ (extend-var-env-4289
+ labels-26342
+ vars-26341
+ r-26199))
+ (w*-26344
+ (make-binding-wrap-4308
+ req-26336
+ labels-26342
+ w-26200)))
+ (parse-opt-26206
+ (map syntax->datum req-26336)
+ opt-26337
+ rest-26338
+ kw-26339
+ body-26340
+ (reverse vars-26341)
+ r*-26343
+ w*-26344
'()
'())))))
- (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
+ (parse-opt-26206
+ (lambda (req-26530
+ opt-26531
+ rest-26532
+ kw-26533
+ body-26534
+ vars-26535
+ r*-26536
+ w*-26537
+ out-26538
+ inits-26539)
+ (if (pair? opt-26531)
+ (let ((tmp-26540 (car opt-26531)))
+ (let ((tmp-26541 ($sc-dispatch tmp-26540 '(any any))))
+ (if tmp-26541
(@apply
- (lambda (id-28375 i-28376)
- (let ((v-28377
- (let ((id-28385
- (if (if (vector? id-28375)
+ (lambda (id-26543 i-26544)
+ (let ((v-26545
+ (let ((id-26553
+ (if (if (vector? id-26543)
(if (= (vector-length
- id-28375)
+ id-26543)
4)
(eq? (vector-ref
- id-28375
+ id-26543
0)
'syntax-object)
#f)
#f)
- (vector-ref id-28375 1)
- id-28375)))
+ (vector-ref id-26543 1)
+ id-26543)))
(gensym
(string-append
- (symbol->string id-28385)
+ (symbol->string id-26553)
"-")))))
- (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)
+ (let ((l-26546 (gen-labels-4297 (list v-26545))))
+ (let ((r**-26547
+ (extend-var-env-4289
+ l-26546
+ (list v-26545)
+ r*-26536)))
+ (let ((w**-26548
+ (make-binding-wrap-4308
+ (list id-26543)
+ l-26546
+ w*-26537)))
+ (parse-opt-26206
+ req-26530
+ (cdr opt-26531)
+ rest-26532
+ kw-26533
+ body-26534
+ (cons v-26545 vars-26535)
+ r**-26547
+ w**-26548
+ (cons (syntax->datum id-26543) out-26538)
+ (cons (expand-4330
+ i-26544
+ r*-26536
+ w*-26537
+ mod-26202)
+ inits-26539)))))))
+ tmp-26541)
(syntax-violation
#f
"source expression failed to match any pattern"
- 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)
+ tmp-26540))))
+ (if rest-26532
+ (let ((v-26791
+ (let ((id-26801
+ (if (if (vector? rest-26532)
+ (if (= (vector-length rest-26532) 4)
+ (eq? (vector-ref rest-26532 0)
'syntax-object)
#f)
#f)
- (vector-ref rest-28364 1)
- rest-28364)))
+ (vector-ref rest-26532 1)
+ rest-26532)))
(gensym
(string-append
- (symbol->string id-28633)
+ (symbol->string id-26801)
"-")))))
- (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)
+ (let ((l-26792 (gen-labels-4297 (list v-26791))))
+ (let ((r*-26793
+ (extend-var-env-4289
+ l-26792
+ (list v-26791)
+ r*-26536)))
+ (let ((w*-26794
+ (make-binding-wrap-4308
+ (list rest-26532)
+ l-26792
+ w*-26537)))
+ (parse-kw-26207
+ req-26530
+ (if (pair? out-26538) (reverse out-26538) #f)
+ (syntax->datum rest-26532)
+ (if (pair? kw-26533) (cdr kw-26533) kw-26533)
+ body-26534
+ (cons v-26791 vars-26535)
+ r*-26793
+ w*-26794
+ (if (pair? kw-26533) (car kw-26533) #f)
'()
- inits-28371)))))
- (parse-kw-28039
- req-28362
- (if (pair? out-28370) (reverse out-28370) #f)
+ inits-26539)))))
+ (parse-kw-26207
+ req-26530
+ (if (pair? out-26538) (reverse out-26538) #f)
#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)
+ (if (pair? kw-26533) (cdr kw-26533) kw-26533)
+ body-26534
+ vars-26535
+ r*-26536
+ w*-26537
+ (if (pair? kw-26533) (car kw-26533) #f)
'()
- 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
+ inits-26539)))))
+ (parse-kw-26207
+ (lambda (req-26972
+ opt-26973
+ rest-26974
+ kw-26975
+ body-26976
+ vars-26977
+ r*-26978
+ w*-26979
+ aok-26980
+ out-26981
+ inits-26982)
+ (if (pair? kw-26975)
+ (let ((tmp-26983 (car kw-26975)))
+ (let ((tmp-26984
+ ($sc-dispatch tmp-26983 '(any any any))))
+ (if tmp-26984
(@apply
- (lambda (k-28818 id-28819 i-28820)
- (let ((v-28821
- (let ((id-28829
- (if (if (vector? id-28819)
+ (lambda (k-26986 id-26987 i-26988)
+ (let ((v-26989
+ (let ((id-26997
+ (if (if (vector? id-26987)
(if (= (vector-length
- id-28819)
+ id-26987)
4)
(eq? (vector-ref
- id-28819
+ id-26987
0)
'syntax-object)
#f)
#f)
- (vector-ref id-28819 1)
- id-28819)))
+ (vector-ref id-26987 1)
+ id-26987)))
(gensym
(string-append
- (symbol->string id-28829)
+ (symbol->string id-26997)
"-")))))
- (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)
+ (let ((l-26990 (gen-labels-4297 (list v-26989))))
+ (let ((r**-26991
+ (extend-var-env-4289
+ l-26990
+ (list v-26989)
+ r*-26978)))
+ (let ((w**-26992
+ (make-binding-wrap-4308
+ (list id-26987)
+ l-26990
+ w*-26979)))
+ (parse-kw-26207
+ req-26972
+ opt-26973
+ rest-26974
+ (cdr kw-26975)
+ body-26976
+ (cons v-26989 vars-26977)
+ r**-26991
+ w**-26992
+ aok-26980
+ (cons (list (syntax->datum k-26986)
+ (syntax->datum id-26987)
+ v-26989)
+ out-26981)
+ (cons (expand-4330
+ i-26988
+ r*-26978
+ w*-26979
+ mod-26202)
+ inits-26982)))))))
+ tmp-26984)
(syntax-violation
#f
"source expression failed to match any pattern"
- 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))
+ tmp-26983))))
+ (parse-body-26208
+ req-26972
+ opt-26973
+ rest-26974
+ (if (if aok-26980 aok-26980 (pair? out-26981))
+ (cons aok-26980 (reverse out-26981))
#f)
- body-28808
- (reverse vars-28809)
- r*-28810
- w*-28811
- (reverse inits-28814)
+ body-26976
+ (reverse vars-26977)
+ r*-26978
+ w*-26979
+ (reverse inits-26982)
'()))))
- (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
+ (parse-body-26208
+ (lambda (req-27244
+ opt-27245
+ rest-27246
+ kw-27247
+ body-27248
+ vars-27249
+ r*-27250
+ w*-27251
+ inits-27252
+ meta-27253)
+ (let ((tmp-27255
+ ($sc-dispatch body-27248 '(any any . each-any))))
+ (if (if tmp-27255
(@apply
- (lambda (docstring-29091 e1-29092 e2-29093)
- (string? (syntax->datum docstring-29091)))
- tmp-29087)
+ (lambda (docstring-27259 e1-27260 e2-27261)
+ (string? (syntax->datum docstring-27259)))
+ tmp-27255)
#f)
(@apply
- (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
+ (lambda (docstring-27262 e1-27263 e2-27264)
+ (parse-body-26208
+ req-27244
+ opt-27245
+ rest-27246
+ kw-27247
+ (cons e1-27263 e2-27264)
+ vars-27249
+ r*-27250
+ w*-27251
+ inits-27252
(append
- meta-29085
+ meta-27253
(list (cons 'documentation
- (syntax->datum docstring-29094))))))
- tmp-29087)
- (let ((tmp-29097
+ (syntax->datum docstring-27262))))))
+ tmp-27255)
+ (let ((tmp-27265
($sc-dispatch
- body-29080
+ body-27248
'(#(vector #(each (any . any)))
any
.
each-any))))
- (if tmp-29097
+ (if tmp-27265
(@apply
- (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
+ (lambda (k-27269 v-27270 e1-27271 e2-27272)
+ (parse-body-26208
+ req-27244
+ opt-27245
+ rest-27246
+ kw-27247
+ (cons e1-27271 e2-27272)
+ vars-27249
+ r*-27250
+ w*-27251
+ inits-27252
(append
- 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
+ meta-27253
+ (syntax->datum (map cons k-27269 v-27270)))))
+ tmp-27265)
+ (let ((tmp-27273
+ ($sc-dispatch body-27248 '(any . each-any))))
+ (if tmp-27273
(@apply
- (lambda (e1-29109 e2-29110)
+ (lambda (e1-27277 e2-27278)
(values
- meta-29085
- req-29076
- opt-29077
- rest-29078
- kw-29079
- inits-29084
- vars-29081
- (expand-body-6385
- (cons e1-29109 e2-29110)
- (wrap-6374
+ meta-27253
+ req-27244
+ opt-27245
+ rest-27246
+ kw-27247
+ inits-27252
+ vars-27249
+ (expand-body-4334
+ (cons e1-27277 e2-27278)
+ (wrap-4323
(begin
- (if (if (pair? e-28030) s-28033 #f)
+ (if (if (pair? e-26198) s-26201 #f)
(set-source-properties!
- e-28030
- s-28033))
- e-28030)
- w-28032
- mod-28034)
- r*-29082
- w*-29083
- mod-28034)))
- tmp-29105)
+ e-26198
+ s-26201))
+ e-26198)
+ w-26200
+ mod-26202)
+ r*-27250
+ w*-27251
+ mod-26202)))
+ tmp-27273)
(syntax-violation
#f
"source expression failed to match any pattern"
- body-29080))))))))))
- (let ((tmp-28042 ($sc-dispatch clauses-28036 '())))
- (if tmp-28042
- (@apply (lambda () (values '() #f)) tmp-28042)
- (let ((tmp-28046
+ body-27248))))))))))
+ (let ((tmp-26210 ($sc-dispatch clauses-26204 '())))
+ (if tmp-26210
+ (@apply (lambda () (values '() #f)) tmp-26210)
+ (let ((tmp-26214
($sc-dispatch
- clauses-28036
+ clauses-26204
'((any any . each-any)
.
#(each (any any . each-any))))))
- (if tmp-28046
+ (if tmp-26214
(@apply
- (lambda (args-28050
- e1-28051
- e2-28052
- args*-28053
- e1*-28054
- e2*-28055)
+ (lambda (args-26218
+ e1-26219
+ e2-26220
+ args*-26221
+ e1*-26222
+ e2*-26223)
(call-with-values
- (lambda () (get-formals-28035 args-28050))
- (lambda (req-28056 opt-28057 rest-28058 kw-28059)
+ (lambda () (get-formals-26203 args-26218))
+ (lambda (req-26224 opt-26225 rest-26226 kw-26227)
(call-with-values
(lambda ()
- (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)
+ (parse-req-26205
+ req-26224
+ opt-26225
+ rest-26226
+ kw-26227
+ (cons e1-26219 e2-26220)))
+ (lambda (meta-26292
+ req-26293
+ opt-26294
+ rest-26295
+ kw-26296
+ inits-26297
+ vars-26298
+ body-26299)
(call-with-values
(lambda ()
- (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)
+ (expand-lambda-case-4342
+ e-26198
+ r-26199
+ w-26200
+ s-26201
+ mod-26202
+ get-formals-26203
+ (map (lambda (tmp-2801-26300
+ tmp-2800-26301
+ tmp-2799-26302)
+ (cons tmp-2799-26302
+ (cons tmp-2800-26301
+ tmp-2801-26300)))
+ e2*-26223
+ e1*-26222
+ args*-26221)))
+ (lambda (meta*-26303 else*-26304)
(values
- (append meta-28124 meta*-28135)
+ (append meta-26292 meta*-26303)
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
- s-28033
- req-28125
- opt-28126
- rest-28127
- kw-28128
- inits-28129
- vars-28130
- body-28131
- else*-28136)))))))))
- tmp-28046)
+ s-26201
+ req-26293
+ opt-26294
+ rest-26295
+ kw-26296
+ inits-26297
+ vars-26298
+ body-26299
+ else*-26304)))))))))
+ tmp-26214)
(syntax-violation
#f
"source expression failed to match any pattern"
- clauses-28036))))))))
- (strip-6394
- (lambda (x-29147 w-29148)
- (if (memq 'top (car w-29148))
- x-29147
+ clauses-26204))))))))
+ (strip-4343
+ (lambda (x-27315 w-27316)
+ (if (memq 'top (car w-27316))
+ x-27315
(letrec*
- ((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-27317
+ (lambda (x-27320)
+ (if (if (vector? x-27320)
+ (if (= (vector-length x-27320) 4)
+ (eq? (vector-ref x-27320 0) 'syntax-object)
#f)
#f)
- (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))
+ (strip-4343
+ (vector-ref x-27320 1)
+ (vector-ref x-27320 2))
+ (if (pair? x-27320)
+ (let ((a-27339 (f-27317 (car x-27320)))
+ (d-27340 (f-27317 (cdr x-27320))))
+ (if (if (eq? a-27339 (car x-27320))
+ (eq? d-27340 (cdr x-27320))
#f)
- 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)))
+ x-27320
+ (cons a-27339 d-27340)))
+ (if (vector? x-27320)
+ (let ((old-27343 (vector->list x-27320)))
+ (let ((new-27344 (map f-27317 old-27343)))
(letrec*
- ((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)
+ ((lp-27345
+ (lambda (l1-27421 l2-27422)
+ (if (null? l1-27421)
+ x-27320
+ (if (eq? (car l1-27421) (car l2-27422))
+ (lp-27345 (cdr l1-27421) (cdr l2-27422))
+ (list->vector new-27344))))))
+ (lp-27345 old-27343 new-27344))))
+ x-27320))))))
+ (f-27317 x-27315)))))
+ (gen-var-4344
+ (lambda (id-26348)
+ (let ((id-26349
+ (if (if (vector? id-26348)
+ (if (= (vector-length id-26348) 4)
+ (eq? (vector-ref id-26348 0) 'syntax-object)
#f)
#f)
- (vector-ref id-28180 1)
- id-28180)))
+ (vector-ref id-26348 1)
+ id-26348)))
(gensym
- (string-append (symbol->string id-28181) "-"))))))
+ (string-append (symbol->string id-26349) "-"))))))
(begin
- (set! session-id-6306
- (let ((v-17516
+ (set! session-id-4255
+ (let ((v-15684
(module-variable
(current-module)
'syntax-session-id)))
- (lambda () ((variable-ref v-17516)))))
- (set! transformer-environment-6367
+ (lambda () ((variable-ref v-15684)))))
+ (set! transformer-environment-4316
(make-fluid
- (lambda (k-16548)
+ (lambda (k-14716)
(error "called outside the dynamic extent of a syntax transformer"))))
(module-define!
(current-module)
@@ -8194,1117 +8192,1103 @@
'let-syntax
'local-syntax
#f))
- (global-extend-6343
+ (global-extend-4292
'core
'syntax-parameterize
- (lambda (e-6516 r-6517 w-6518 s-6519 mod-6520)
- (let ((tmp-6522
+ (lambda (e-4465 r-4466 w-4467 s-4468 mod-4469)
+ (let ((tmp-4471
($sc-dispatch
- e-6516
+ e-4465
'(_ #(each (any any)) any . each-any))))
- (if (if tmp-6522
+ (if (if tmp-4471
(@apply
- (lambda (var-6526 val-6527 e1-6528 e2-6529)
- (valid-bound-ids?-6371 var-6526))
- tmp-6522)
+ (lambda (var-4475 val-4476 e1-4477 e2-4478)
+ (valid-bound-ids?-4320 var-4475))
+ tmp-4471)
#f)
(@apply
- (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)))
+ (lambda (var-4556 val-4557 e1-4558 e2-4559)
+ (let ((names-4560
+ (map (lambda (x-4610)
+ (id-var-name-4313 x-4610 w-4467))
+ var-4556)))
(begin
(for-each
- (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)))
+ (lambda (id-4561 n-4562)
+ (let ((key-4563
+ (car (let ((t-4570 (assq n-4562 r-4466)))
+ (if t-4570
+ (cdr t-4570)
+ (if (symbol? n-4562)
+ (let ((t-4575
+ (get-global-definition-hook-4257
+ n-4562
+ mod-4469)))
+ (if t-4575 t-4575 '(global)))
'(displaced-lexical)))))))
- (if (eqv? key-6614 'displaced-lexical)
+ (if (eqv? key-4563 'displaced-lexical)
(syntax-violation
'syntax-parameterize
"identifier out of context"
- e-6516
- (wrap-6374
+ e-4465
+ (wrap-4323
(begin
- (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
+ (if (if (pair? id-4561) s-4468 #f)
+ (set-source-properties! id-4561 s-4468))
+ id-4561)
+ w-4467
+ mod-4469)))))
+ var-4556
+ names-4560)
+ (expand-body-4334
+ (cons e1-4558 e2-4559)
+ (wrap-4323
(begin
- (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)
+ (if (if (pair? e-4465) s-4468 #f)
+ (set-source-properties! e-4465 s-4468))
+ e-4465)
+ w-4467
+ mod-4469)
+ (extend-env-4288
+ names-4560
+ (let ((trans-r-4696 (macros-only-env-4290 r-4466)))
+ (map (lambda (x-4697)
(cons 'macro
- (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)
+ (eval-local-transformer-4336
+ (expand-4330
+ x-4697
+ trans-r-4696
+ w-4467
+ mod-4469)
+ mod-4469)))
+ val-4557))
+ r-4466)
+ w-4467
+ mod-4469))))
+ tmp-4471)
(syntax-violation
'syntax-parameterize
"bad syntax"
- (wrap-6374
+ (wrap-4323
(begin
- (if (if (pair? e-6516) s-6519 #f)
- (set-source-properties! e-6516 s-6519))
- e-6516)
- w-6518
- mod-6520))))))
+ (if (if (pair? e-4465) s-4468 #f)
+ (set-source-properties! e-4465 s-4468))
+ e-4465)
+ w-4467
+ mod-4469))))))
(module-define!
(current-module)
'quote
(make-syntax-transformer
'quote
'core
- (lambda (e-6957 r-6958 w-6959 s-6960 mod-6961)
- (let ((tmp-6963 ($sc-dispatch e-6957 '(_ any))))
- (if tmp-6963
+ (lambda (e-4906 r-4907 w-4908 s-4909 mod-4910)
+ (let ((tmp-4912 ($sc-dispatch e-4906 '(_ any))))
+ (if tmp-4912
(@apply
- (lambda (e-6966)
- (let ((exp-6970 (strip-6394 e-6966 w-6959)))
+ (lambda (e-4915)
+ (let ((exp-4919 (strip-4343 e-4915 w-4908)))
(make-struct/no-tail
(vector-ref %expanded-vtables 1)
- s-6960
- exp-6970)))
- tmp-6963)
+ s-4909
+ exp-4919)))
+ tmp-4912)
(syntax-violation
'quote
"bad syntax"
- (wrap-6374
+ (wrap-4323
(begin
- (if (if (pair? e-6957) s-6960 #f)
- (set-source-properties! e-6957 s-6960))
- e-6957)
- w-6959
- mod-6961)))))))
- (global-extend-6343
+ (if (if (pair? e-4906) s-4909 #f)
+ (set-source-properties! e-4906 s-4909))
+ e-4906)
+ w-4908
+ mod-4910)))))))
+ (global-extend-4292
'core
'syntax
(letrec*
- ((gen-syntax-7190
- (lambda (src-7292
- e-7293
- r-7294
- maps-7295
- ellipsis?-7296
- mod-7297)
- (if (if (symbol? e-7293)
+ ((gen-syntax-5139
+ (lambda (src-5241
+ e-5242
+ r-5243
+ maps-5244
+ ellipsis?-5245
+ mod-5246)
+ (if (if (symbol? e-5242)
#t
- (if (if (vector? e-7293)
- (if (= (vector-length e-7293) 4)
- (eq? (vector-ref e-7293 0) 'syntax-object)
+ (if (if (vector? e-5242)
+ (if (= (vector-length e-5242) 4)
+ (eq? (vector-ref e-5242 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref e-7293 1))
+ (symbol? (vector-ref e-5242 1))
#f))
- (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)))
+ (let ((label-5273 (id-var-name-4313 e-5242 '(()))))
+ (let ((b-5274
+ (let ((t-5281 (assq label-5273 r-5243)))
+ (if t-5281
+ (cdr t-5281)
+ (if (symbol? label-5273)
+ (let ((t-5287
+ (get-global-definition-hook-4257
+ label-5273
+ mod-5246)))
+ (if t-5287 t-5287 '(global)))
'(displaced-lexical))))))
- (if (eq? (car b-7325) 'syntax)
+ (if (eq? (car b-5274) 'syntax)
(call-with-values
(lambda ()
- (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)
+ (let ((var.lev-5296 (cdr b-5274)))
+ (gen-ref-5140
+ src-5241
+ (car var.lev-5296)
+ (cdr var.lev-5296)
+ maps-5244)))
+ (lambda (var-5300 maps-5301)
+ (values (list 'ref var-5300) maps-5301)))
+ (if (ellipsis?-5245 e-5242)
(syntax-violation
'syntax
"misplaced ellipsis"
- src-7292)
- (values (list 'quote e-7293) maps-7295)))))
- (let ((tmp-7354 ($sc-dispatch e-7293 '(any any))))
- (if (if tmp-7354
+ src-5241)
+ (values (list 'quote e-5242) maps-5244)))))
+ (let ((tmp-5303 ($sc-dispatch e-5242 '(any any))))
+ (if (if tmp-5303
(@apply
- (lambda (dots-7358 e-7359)
- (ellipsis?-7296 dots-7358))
- tmp-7354)
+ (lambda (dots-5307 e-5308)
+ (ellipsis?-5245 dots-5307))
+ tmp-5303)
#f)
(@apply
- (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
+ (lambda (dots-5309 e-5310)
+ (gen-syntax-5139
+ src-5241
+ e-5310
+ r-5243
+ maps-5244
+ (lambda (x-5311) #f)
+ mod-5246))
+ tmp-5303)
+ (let ((tmp-5312 ($sc-dispatch e-5242 '(any any . any))))
+ (if (if tmp-5312
(@apply
- (lambda (x-7367 dots-7368 y-7369)
- (ellipsis?-7296 dots-7368))
- tmp-7363)
+ (lambda (x-5316 dots-5317 y-5318)
+ (ellipsis?-5245 dots-5317))
+ tmp-5312)
#f)
(@apply
- (lambda (x-7370 dots-7371 y-7372)
+ (lambda (x-5319 dots-5320 y-5321)
(letrec*
- ((f-7373
- (lambda (y-7381 k-7382)
- (let ((tmp-7384
+ ((f-5322
+ (lambda (y-5330 k-5331)
+ (let ((tmp-5333
($sc-dispatch
- y-7381
+ y-5330
'(any . any))))
- (if (if tmp-7384
+ (if (if tmp-5333
(@apply
- (lambda (dots-7388 y-7389)
- (ellipsis?-7296 dots-7388))
- tmp-7384)
+ (lambda (dots-5337 y-5338)
+ (ellipsis?-5245 dots-5337))
+ tmp-5333)
#f)
(@apply
- (lambda (dots-7390 y-7391)
- (f-7373
- y-7391
- (lambda (maps-7392)
+ (lambda (dots-5339 y-5340)
+ (f-5322
+ y-5340
+ (lambda (maps-5341)
(call-with-values
(lambda ()
- (k-7382
- (cons '() maps-7392)))
- (lambda (x-7393 maps-7394)
- (if (null? (car maps-7394))
+ (k-5331
+ (cons '() maps-5341)))
+ (lambda (x-5342 maps-5343)
+ (if (null? (car maps-5343))
(syntax-violation
'syntax
"extra ellipsis"
- src-7292)
+ src-5241)
(values
- (let ((map-env-7398
- (car maps-7394)))
+ (let ((map-env-5347
+ (car maps-5343)))
(list 'apply
'(primitive
append)
- (gen-map-7193
- x-7393
- map-env-7398)))
- (cdr maps-7394))))))))
- tmp-7384)
+ (gen-map-5142
+ x-5342
+ map-env-5347)))
+ (cdr maps-5343))))))))
+ tmp-5333)
(call-with-values
(lambda ()
- (gen-syntax-7190
- src-7292
- y-7381
- r-7294
- maps-7295
- ellipsis?-7296
- mod-7297))
- (lambda (y-7401 maps-7402)
+ (gen-syntax-5139
+ src-5241
+ y-5330
+ r-5243
+ maps-5244
+ ellipsis?-5245
+ mod-5246))
+ (lambda (y-5350 maps-5351)
(call-with-values
- (lambda () (k-7382 maps-7402))
- (lambda (x-7403 maps-7404)
+ (lambda () (k-5331 maps-5351))
+ (lambda (x-5352 maps-5353)
(values
- (if (equal? y-7401 ''())
- x-7403
+ (if (equal? y-5350 ''())
+ x-5352
(list 'append
- x-7403
- y-7401))
- maps-7404))))))))))
- (f-7373
- y-7372
- (lambda (maps-7376)
+ x-5352
+ y-5350))
+ maps-5353))))))))))
+ (f-5322
+ y-5321
+ (lambda (maps-5325)
(call-with-values
(lambda ()
- (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))
+ (gen-syntax-5139
+ src-5241
+ x-5319
+ r-5243
+ (cons '() maps-5325)
+ ellipsis?-5245
+ mod-5246))
+ (lambda (x-5326 maps-5327)
+ (if (null? (car maps-5327))
(syntax-violation
'syntax
"extra ellipsis"
- src-7292)
+ src-5241)
(values
- (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
+ (gen-map-5142
+ x-5326
+ (car maps-5327))
+ (cdr maps-5327)))))))))
+ tmp-5312)
+ (let ((tmp-5369 ($sc-dispatch e-5242 '(any . any))))
+ (if tmp-5369
(@apply
- (lambda (x-7424 y-7425)
+ (lambda (x-5373 y-5374)
(call-with-values
(lambda ()
- (gen-syntax-7190
- src-7292
- x-7424
- r-7294
- maps-7295
- ellipsis?-7296
- mod-7297))
- (lambda (x-7426 maps-7427)
+ (gen-syntax-5139
+ src-5241
+ x-5373
+ r-5243
+ maps-5244
+ ellipsis?-5245
+ mod-5246))
+ (lambda (x-5375 maps-5376)
(call-with-values
(lambda ()
- (gen-syntax-7190
- src-7292
- y-7425
- r-7294
- maps-7427
- ellipsis?-7296
- mod-7297))
- (lambda (y-7428 maps-7429)
+ (gen-syntax-5139
+ src-5241
+ y-5374
+ r-5243
+ maps-5376
+ ellipsis?-5245
+ mod-5246))
+ (lambda (y-5377 maps-5378)
(values
- (let ((key-7434 (car y-7428)))
- (if (eqv? key-7434 'quote)
- (if (eq? (car x-7426) 'quote)
+ (let ((key-5383 (car y-5377)))
+ (if (eqv? key-5383 'quote)
+ (if (eq? (car x-5375) 'quote)
(list 'quote
- (cons (car (cdr x-7426))
- (car (cdr y-7428))))
- (if (eq? (car (cdr y-7428))
+ (cons (car (cdr x-5375))
+ (car (cdr y-5377))))
+ (if (eq? (car (cdr y-5377))
'())
- (list 'list x-7426)
- (list 'cons x-7426 y-7428)))
- (if (eqv? key-7434 'list)
+ (list 'list x-5375)
+ (list 'cons x-5375 y-5377)))
+ (if (eqv? key-5383 'list)
(cons 'list
- (cons x-7426
- (cdr y-7428)))
- (list 'cons x-7426 y-7428))))
- maps-7429))))))
- tmp-7420)
- (let ((tmp-7463
+ (cons x-5375
+ (cdr y-5377)))
+ (list 'cons x-5375 y-5377))))
+ maps-5378))))))
+ tmp-5369)
+ (let ((tmp-5412
($sc-dispatch
- e-7293
+ e-5242
'#(vector (any . each-any)))))
- (if tmp-7463
+ (if tmp-5412
(@apply
- (lambda (e1-7467 e2-7468)
+ (lambda (e1-5416 e2-5417)
(call-with-values
(lambda ()
- (gen-syntax-7190
- src-7292
- (cons e1-7467 e2-7468)
- r-7294
- maps-7295
- ellipsis?-7296
- mod-7297))
- (lambda (e-7469 maps-7470)
+ (gen-syntax-5139
+ src-5241
+ (cons e1-5416 e2-5417)
+ r-5243
+ maps-5244
+ ellipsis?-5245
+ mod-5246))
+ (lambda (e-5418 maps-5419)
(values
- (if (eq? (car e-7469) 'list)
- (cons 'vector (cdr e-7469))
- (if (eq? (car e-7469) 'quote)
+ (if (eq? (car e-5418) 'list)
+ (cons 'vector (cdr e-5418))
+ (if (eq? (car e-5418) 'quote)
(list 'quote
(list->vector
- (car (cdr e-7469))))
- (list 'list->vector e-7469)))
- maps-7470))))
- tmp-7463)
+ (car (cdr e-5418))))
+ (list 'list->vector e-5418)))
+ maps-5419))))
+ tmp-5412)
(values
- (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)
+ (list 'quote e-5242)
+ maps-5244))))))))))))
+ (gen-ref-5140
+ (lambda (src-5446 var-5447 level-5448 maps-5449)
+ (if (= level-5448 0)
+ (values var-5447 maps-5449)
+ (if (null? maps-5449)
(syntax-violation
'syntax
"missing ellipsis"
- src-7497)
+ src-5446)
(call-with-values
(lambda ()
- (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
+ (gen-ref-5140
+ src-5446
+ var-5447
+ (#{1-}# level-5448)
+ (cdr maps-5449)))
+ (lambda (outer-var-5450 outer-maps-5451)
+ (let ((b-5452 (assq outer-var-5450 (car maps-5449))))
+ (if b-5452
+ (values (cdr b-5452) maps-5449)
+ (let ((inner-var-5454
(gensym
(string-append
(symbol->string 'tmp)
"-"))))
(values
- 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)
+ inner-var-5454
+ (cons (cons (cons outer-var-5450 inner-var-5454)
+ (car maps-5449))
+ outer-maps-5451)))))))))))
+ (gen-map-5142
+ (lambda (e-5468 map-env-5469)
+ (let ((formals-5470 (map cdr map-env-5469))
+ (actuals-5471
+ (map (lambda (x-5473) (list 'ref (car x-5473)))
+ map-env-5469)))
+ (if (eq? (car e-5468) 'ref)
+ (car actuals-5471)
(if (and-map
- (lambda (x-7525)
- (if (eq? (car x-7525) 'ref)
- (memq (car (cdr x-7525)) formals-7521)
+ (lambda (x-5474)
+ (if (eq? (car x-5474) 'ref)
+ (memq (car (cdr x-5474)) formals-5470)
#f))
- (cdr e-7519))
+ (cdr e-5468))
(cons 'map
- (cons (list 'primitive (car e-7519))
- (map (let ((r-7527
+ (cons (list 'primitive (car e-5468))
+ (map (let ((r-5476
(map cons
- formals-7521
- actuals-7522)))
- (lambda (x-7528)
- (cdr (assq (car (cdr x-7528))
- r-7527))))
- (cdr e-7519))))
+ formals-5470
+ actuals-5471)))
+ (lambda (x-5477)
+ (cdr (assq (car (cdr x-5477))
+ r-5476))))
+ (cdr e-5468))))
(cons 'map
- (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))))
+ (cons (list 'lambda formals-5470 e-5468)
+ actuals-5471)))))))
+ (regen-5146
+ (lambda (x-5479)
+ (let ((key-5480 (car x-5479)))
+ (if (eqv? key-5480 'ref)
+ (let ((name-5490 (car (cdr x-5479)))
+ (var-5491 (car (cdr x-5479))))
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
#f
- name-7541
- var-7542))
- (if (eqv? key-7531 'primitive)
- (let ((name-7554 (car (cdr x-7530))))
+ name-5490
+ var-5491))
+ (if (eqv? key-5480 'primitive)
+ (let ((name-5503 (car (cdr x-5479))))
(if (equal? (module-name (current-module)) '(guile))
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
#f
- name-7554)
+ name-5503)
(make-struct/no-tail
(vector-ref %expanded-vtables 5)
#f
'(guile)
- name-7554
+ name-5503
#f)))
- (if (eqv? key-7531 'quote)
- (let ((exp-7572 (car (cdr x-7530))))
+ (if (eqv? key-5480 'quote)
+ (let ((exp-5521 (car (cdr x-5479))))
(make-struct/no-tail
(vector-ref %expanded-vtables 1)
#f
- 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
+ exp-5521))
+ (if (eqv? key-5480 'lambda)
+ (if (list? (car (cdr x-5479)))
+ (let ((req-5532 (car (cdr x-5479)))
+ (vars-5534 (car (cdr x-5479)))
+ (exp-5536
+ (regen-5146 (car (cdr (cdr x-5479))))))
+ (let ((body-5541
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
#f
- req-7583
+ req-5532
#f
#f
#f
'()
- vars-7585
- exp-7587
+ vars-5534
+ exp-5536
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
#f
'()
- body-7592)))
- (error "how did we get here" x-7530))
- (let ((fun-exp-7608
- (let ((name-7617 (car x-7530)))
+ body-5541)))
+ (error "how did we get here" x-5479))
+ (let ((fun-exp-5557
+ (let ((name-5566 (car x-5479)))
(if (equal?
(module-name (current-module))
'(guile))
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
#f
- name-7617)
+ name-5566)
(make-struct/no-tail
(vector-ref %expanded-vtables 5)
#f
'(guile)
- name-7617
+ name-5566
#f))))
- (arg-exps-7609 (map regen-7197 (cdr x-7530))))
+ (arg-exps-5558 (map regen-5146 (cdr x-5479))))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
#f
- fun-exp-7608
- arg-exps-7609))))))))))
- (lambda (e-7198 r-7199 w-7200 s-7201 mod-7202)
- (let ((e-7203
- (wrap-6374
+ fun-exp-5557
+ arg-exps-5558))))))))))
+ (lambda (e-5147 r-5148 w-5149 s-5150 mod-5151)
+ (let ((e-5152
+ (wrap-4323
(begin
- (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
+ (if (if (pair? e-5147) s-5150 #f)
+ (set-source-properties! e-5147 s-5150))
+ e-5147)
+ w-5149
+ mod-5151)))
+ (let ((tmp-5154 ($sc-dispatch e-5152 '(_ any))))
+ (if tmp-5154
(@apply
- (lambda (x-7230)
+ (lambda (x-5179)
(call-with-values
(lambda ()
- (gen-syntax-7190
- e-7203
- x-7230
- r-7199
+ (gen-syntax-5139
+ e-5152
+ x-5179
+ r-5148
'()
- ellipsis?-6389
- mod-7202))
- (lambda (e-7284 maps-7285) (regen-7197 e-7284))))
- tmp-7205)
+ ellipsis?-4338
+ mod-5151))
+ (lambda (e-5233 maps-5234) (regen-5146 e-5233))))
+ tmp-5154)
(syntax-violation
'syntax
"bad `syntax' form"
- e-7203)))))))
- (global-extend-6343
+ e-5152)))))))
+ (global-extend-4292
'core
'lambda
- (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
+ (lambda (e-5754 r-5755 w-5756 s-5757 mod-5758)
+ (let ((tmp-5760
+ ($sc-dispatch e-5754 '(_ any any . each-any))))
+ (if tmp-5760
(@apply
- (lambda (args-7815 e1-7816 e2-7817)
+ (lambda (args-5764 e1-5765 e2-5766)
(call-with-values
- (lambda () (lambda-formals-6390 args-7815))
- (lambda (req-7820 opt-7821 rest-7822 kw-7823)
+ (lambda () (lambda-formals-4339 args-5764))
+ (lambda (req-5769 opt-5770 rest-5771 kw-5772)
(letrec*
- ((lp-7824
- (lambda (body-7827 meta-7828)
- (let ((tmp-7830
+ ((lp-5773
+ (lambda (body-5776 meta-5777)
+ (let ((tmp-5779
($sc-dispatch
- body-7827
+ body-5776
'(any any . each-any))))
- (if (if tmp-7830
+ (if (if tmp-5779
(@apply
- (lambda (docstring-7834 e1-7835 e2-7836)
+ (lambda (docstring-5783 e1-5784 e2-5785)
(string?
- (syntax->datum docstring-7834)))
- tmp-7830)
+ (syntax->datum docstring-5783)))
+ tmp-5779)
#f)
(@apply
- (lambda (docstring-7837 e1-7838 e2-7839)
- (lp-7824
- (cons e1-7838 e2-7839)
+ (lambda (docstring-5786 e1-5787 e2-5788)
+ (lp-5773
+ (cons e1-5787 e2-5788)
(append
- meta-7828
+ meta-5777
(list (cons 'documentation
(syntax->datum
- docstring-7837))))))
- tmp-7830)
- (let ((tmp-7840
+ docstring-5786))))))
+ tmp-5779)
+ (let ((tmp-5789
($sc-dispatch
- body-7827
+ body-5776
'(#(vector #(each (any . any)))
any
.
each-any))))
- (if tmp-7840
+ (if tmp-5789
(@apply
- (lambda (k-7844 v-7845 e1-7846 e2-7847)
- (lp-7824
- (cons e1-7846 e2-7847)
+ (lambda (k-5793 v-5794 e1-5795 e2-5796)
+ (lp-5773
+ (cons e1-5795 e2-5796)
(append
- meta-7828
+ meta-5777
(syntax->datum
- (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
+ (map cons k-5793 v-5794)))))
+ tmp-5789)
+ (expand-simple-lambda-4340
+ e-5754
+ r-5755
+ w-5756
+ s-5757
+ mod-5758
+ req-5769
+ rest-5771
+ meta-5777
+ body-5776))))))))
+ (lp-5773 (cons e1-5765 e2-5766) '())))))
+ tmp-5760)
+ (syntax-violation 'lambda "bad lambda" e-5754)))))
+ (global-extend-4292
'core
'lambda*
- (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
+ (lambda (e-6085 r-6086 w-6087 s-6088 mod-6089)
+ (let ((tmp-6091
+ ($sc-dispatch e-6085 '(_ any any . each-any))))
+ (if tmp-6091
(@apply
- (lambda (args-8146 e1-8147 e2-8148)
+ (lambda (args-6095 e1-6096 e2-6097)
(call-with-values
(lambda ()
- (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)
+ (expand-lambda-case-4342
+ e-6085
+ r-6086
+ w-6087
+ s-6088
+ mod-6089
+ lambda*-formals-4341
+ (list (cons args-6095 (cons e1-6096 e2-6097)))))
+ (lambda (meta-6100 lcase-6101)
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
- s-8139
- meta-8151
- lcase-8152))))
- tmp-8142)
- (syntax-violation 'lambda "bad lambda*" e-8136)))))
- (global-extend-6343
+ s-6088
+ meta-6100
+ lcase-6101))))
+ tmp-6091)
+ (syntax-violation 'lambda "bad lambda*" e-6085)))))
+ (global-extend-4292
'core
'case-lambda
- (lambda (e-8322 r-8323 w-8324 s-8325 mod-8326)
- (let ((tmp-8328
+ (lambda (e-6271 r-6272 w-6273 s-6274 mod-6275)
+ (let ((tmp-6277
($sc-dispatch
- e-8322
+ e-6271
'(_ (any any . each-any)
.
#(each (any any . each-any))))))
- (if tmp-8328
+ (if tmp-6277
(@apply
- (lambda (args-8332
- e1-8333
- e2-8334
- args*-8335
- e1*-8336
- e2*-8337)
+ (lambda (args-6281
+ e1-6282
+ e2-6283
+ args*-6284
+ e1*-6285
+ e2*-6286)
(call-with-values
(lambda ()
- (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)
+ (expand-lambda-case-4342
+ e-6271
+ r-6272
+ w-6273
+ s-6274
+ mod-6275
+ lambda-formals-4339
+ (cons (cons args-6281 (cons e1-6282 e2-6283))
+ (map (lambda (tmp-3269-6289
+ tmp-3268-6290
+ tmp-3267-6291)
+ (cons tmp-3267-6291
+ (cons tmp-3268-6290 tmp-3269-6289)))
+ e2*-6286
+ e1*-6285
+ args*-6284))))
+ (lambda (meta-6292 lcase-6293)
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
- s-8325
- meta-8343
- lcase-8344))))
- tmp-8328)
+ s-6274
+ meta-6292
+ lcase-6293))))
+ tmp-6277)
(syntax-violation
'case-lambda
"bad case-lambda"
- e-8322)))))
- (global-extend-6343
+ e-6271)))))
+ (global-extend-4292
'core
'case-lambda*
- (lambda (e-8506 r-8507 w-8508 s-8509 mod-8510)
- (let ((tmp-8512
+ (lambda (e-6455 r-6456 w-6457 s-6458 mod-6459)
+ (let ((tmp-6461
($sc-dispatch
- e-8506
+ e-6455
'(_ (any any . each-any)
.
#(each (any any . each-any))))))
- (if tmp-8512
+ (if tmp-6461
(@apply
- (lambda (args-8516
- e1-8517
- e2-8518
- args*-8519
- e1*-8520
- e2*-8521)
+ (lambda (args-6465
+ e1-6466
+ e2-6467
+ args*-6468
+ e1*-6469
+ e2*-6470)
(call-with-values
(lambda ()
- (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)
+ (expand-lambda-case-4342
+ e-6455
+ r-6456
+ w-6457
+ s-6458
+ mod-6459
+ lambda*-formals-4341
+ (cons (cons args-6465 (cons e1-6466 e2-6467))
+ (map (lambda (tmp-3304-6473
+ tmp-3303-6474
+ tmp-3302-6475)
+ (cons tmp-3302-6475
+ (cons tmp-3303-6474 tmp-3304-6473)))
+ e2*-6470
+ e1*-6469
+ args*-6468))))
+ (lambda (meta-6476 lcase-6477)
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
- s-8509
- meta-8527
- lcase-8528))))
- tmp-8512)
+ s-6458
+ meta-6476
+ lcase-6477))))
+ tmp-6461)
(syntax-violation
'case-lambda
"bad case-lambda*"
- e-8506)))))
- (global-extend-6343
+ e-6455)))))
+ (global-extend-4292
'core
'let
(letrec*
- ((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))
+ ((expand-let-6668
+ (lambda (e-6817
+ r-6818
+ w-6819
+ s-6820
+ mod-6821
+ constructor-6822
+ ids-6823
+ vals-6824
+ exps-6825)
+ (if (not (valid-bound-ids?-4320 ids-6823))
(syntax-violation
'let
"duplicate bound variable"
- 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
+ e-6817)
+ (let ((labels-6903 (gen-labels-4297 ids-6823))
+ (new-vars-6904 (map gen-var-4344 ids-6823)))
+ (let ((nw-6905
+ (make-binding-wrap-4308
+ ids-6823
+ labels-6903
+ w-6819))
+ (nr-6906
+ (extend-var-env-4289
+ labels-6903
+ new-vars-6904
+ r-6818)))
+ (constructor-6822
+ s-6820
+ (map syntax->datum ids-6823)
+ new-vars-6904
+ (map (lambda (x-6923)
+ (expand-4330 x-6923 r-6818 w-6819 mod-6821))
+ vals-6824)
+ (expand-body-4334
+ exps-6825
+ (source-wrap-4324 e-6817 nw-6905 s-6820 mod-6821)
+ nr-6906
+ nw-6905
+ mod-6821))))))))
+ (lambda (e-6669 r-6670 w-6671 s-6672 mod-6673)
+ (let ((tmp-6675
($sc-dispatch
- e-8720
+ e-6669
'(_ #(each (any any)) any . each-any))))
- (if (if tmp-8726
+ (if (if tmp-6675
(@apply
- (lambda (id-8730 val-8731 e1-8732 e2-8733)
- (and-map id?-6345 id-8730))
- tmp-8726)
+ (lambda (id-6679 val-6680 e1-6681 e2-6682)
+ (and-map id?-4294 id-6679))
+ tmp-6675)
#f)
(@apply
- (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
+ (lambda (id-6698 val-6699 e1-6700 e2-6701)
+ (expand-let-6668
+ e-6669
+ r-6670
+ w-6671
+ s-6672
+ mod-6673
+ build-let-4276
+ id-6698
+ val-6699
+ (cons e1-6700 e2-6701)))
+ tmp-6675)
+ (let ((tmp-6731
($sc-dispatch
- e-8720
+ e-6669
'(_ any #(each (any any)) any . each-any))))
- (if (if tmp-8782
+ (if (if tmp-6731
(@apply
- (lambda (f-8786 id-8787 val-8788 e1-8789 e2-8790)
- (if (if (symbol? f-8786)
+ (lambda (f-6735 id-6736 val-6737 e1-6738 e2-6739)
+ (if (if (symbol? f-6735)
#t
- (if (if (vector? f-8786)
- (if (= (vector-length f-8786) 4)
- (eq? (vector-ref f-8786 0)
+ (if (if (vector? f-6735)
+ (if (= (vector-length f-6735) 4)
+ (eq? (vector-ref f-6735 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref f-8786 1))
+ (symbol? (vector-ref f-6735 1))
#f))
- (and-map id?-6345 id-8787)
+ (and-map id?-4294 id-6736)
#f))
- tmp-8782)
+ tmp-6731)
#f)
(@apply
- (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)
+ (lambda (f-6781 id-6782 val-6783 e1-6784 e2-6785)
+ (expand-let-6668
+ e-6669
+ r-6670
+ w-6671
+ s-6672
+ mod-6673
+ build-named-let-4277
+ (cons f-6781 id-6782)
+ val-6783
+ (cons e1-6784 e2-6785)))
+ tmp-6731)
(syntax-violation
'let
"bad let"
- (wrap-6374
+ (wrap-4323
(begin
- (if (if (pair? e-8720) s-8723 #f)
- (set-source-properties! e-8720 s-8723))
- e-8720)
- w-8722
- mod-8724)))))))))
- (global-extend-6343
+ (if (if (pair? e-6669) s-6672 #f)
+ (set-source-properties! e-6669 s-6672))
+ e-6669)
+ w-6671
+ mod-6673)))))))))
+ (global-extend-4292
'core
'letrec
- (lambda (e-9386 r-9387 w-9388 s-9389 mod-9390)
- (let ((tmp-9392
+ (lambda (e-7335 r-7336 w-7337 s-7338 mod-7339)
+ (let ((tmp-7341
($sc-dispatch
- e-9386
+ e-7335
'(_ #(each (any any)) any . each-any))))
- (if (if tmp-9392
+ (if (if tmp-7341
(@apply
- (lambda (id-9396 val-9397 e1-9398 e2-9399)
- (and-map id?-6345 id-9396))
- tmp-9392)
+ (lambda (id-7345 val-7346 e1-7347 e2-7348)
+ (and-map id?-4294 id-7345))
+ tmp-7341)
#f)
(@apply
- (lambda (id-9415 val-9416 e1-9417 e2-9418)
- (if (not (valid-bound-ids?-6371 id-9415))
+ (lambda (id-7364 val-7365 e1-7366 e2-7367)
+ (if (not (valid-bound-ids?-4320 id-7364))
(syntax-violation
'letrec
"duplicate bound variable"
- 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
+ e-7335)
+ (let ((labels-7457 (gen-labels-4297 id-7364))
+ (new-vars-7458 (map gen-var-4344 id-7364)))
+ (let ((w-7459
+ (make-binding-wrap-4308
+ id-7364
+ labels-7457
+ w-7337))
+ (r-7460
+ (extend-var-env-4289
+ labels-7457
+ new-vars-7458
+ r-7336)))
+ (build-letrec-4278
+ s-7338
#f
- (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
+ (map syntax->datum id-7364)
+ new-vars-7458
+ (map (lambda (x-7545)
+ (expand-4330 x-7545 r-7460 w-7459 mod-7339))
+ val-7365)
+ (expand-body-4334
+ (cons e1-7366 e2-7367)
+ (wrap-4323
(begin
- (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)
+ (if (if (pair? e-7335) s-7338 #f)
+ (set-source-properties! e-7335 s-7338))
+ e-7335)
+ w-7459
+ mod-7339)
+ r-7460
+ w-7459
+ mod-7339))))))
+ tmp-7341)
(syntax-violation
'letrec
"bad letrec"
- (wrap-6374
+ (wrap-4323
(begin
- (if (if (pair? e-9386) s-9389 #f)
- (set-source-properties! e-9386 s-9389))
- e-9386)
- w-9388
- mod-9390))))))
- (global-extend-6343
+ (if (if (pair? e-7335) s-7338 #f)
+ (set-source-properties! e-7335 s-7338))
+ e-7335)
+ w-7337
+ mod-7339))))))
+ (global-extend-4292
'core
'letrec*
- (lambda (e-9991 r-9992 w-9993 s-9994 mod-9995)
- (let ((tmp-9997
+ (lambda (e-7940 r-7941 w-7942 s-7943 mod-7944)
+ (let ((tmp-7946
($sc-dispatch
- e-9991
+ e-7940
'(_ #(each (any any)) any . each-any))))
- (if (if tmp-9997
+ (if (if tmp-7946
(@apply
- (lambda (id-10001 val-10002 e1-10003 e2-10004)
- (and-map id?-6345 id-10001))
- tmp-9997)
+ (lambda (id-7950 val-7951 e1-7952 e2-7953)
+ (and-map id?-4294 id-7950))
+ tmp-7946)
#f)
(@apply
- (lambda (id-10020 val-10021 e1-10022 e2-10023)
- (if (not (valid-bound-ids?-6371 id-10020))
+ (lambda (id-7969 val-7970 e1-7971 e2-7972)
+ (if (not (valid-bound-ids?-4320 id-7969))
(syntax-violation
'letrec*
"duplicate bound variable"
- 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
+ e-7940)
+ (let ((labels-8062 (gen-labels-4297 id-7969))
+ (new-vars-8063 (map gen-var-4344 id-7969)))
+ (let ((w-8064
+ (make-binding-wrap-4308
+ id-7969
+ labels-8062
+ w-7942))
+ (r-8065
+ (extend-var-env-4289
+ labels-8062
+ new-vars-8063
+ r-7941)))
+ (build-letrec-4278
+ s-7943
#t
- (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
+ (map syntax->datum id-7969)
+ new-vars-8063
+ (map (lambda (x-8150)
+ (expand-4330 x-8150 r-8065 w-8064 mod-7944))
+ val-7970)
+ (expand-body-4334
+ (cons e1-7971 e2-7972)
+ (wrap-4323
(begin
- (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)
+ (if (if (pair? e-7940) s-7943 #f)
+ (set-source-properties! e-7940 s-7943))
+ e-7940)
+ w-8064
+ mod-7944)
+ r-8065
+ w-8064
+ mod-7944))))))
+ tmp-7946)
(syntax-violation
'letrec*
"bad letrec*"
- (wrap-6374
+ (wrap-4323
(begin
- (if (if (pair? e-9991) s-9994 #f)
- (set-source-properties! e-9991 s-9994))
- e-9991)
- w-9993
- mod-9995))))))
- (global-extend-6343
+ (if (if (pair? e-7940) s-7943 #f)
+ (set-source-properties! e-7940 s-7943))
+ e-7940)
+ w-7942
+ mod-7944))))))
+ (global-extend-4292
'core
'set!
- (lambda (e-10635 r-10636 w-10637 s-10638 mod-10639)
- (let ((tmp-10641 ($sc-dispatch e-10635 '(_ any any))))
- (if (if tmp-10641
+ (lambda (e-8584 r-8585 w-8586 s-8587 mod-8588)
+ (let ((tmp-8590 ($sc-dispatch e-8584 '(_ any any))))
+ (if (if tmp-8590
(@apply
- (lambda (id-10645 val-10646)
- (if (symbol? id-10645)
+ (lambda (id-8594 val-8595)
+ (if (symbol? id-8594)
#t
- (if (if (vector? id-10645)
- (if (= (vector-length id-10645) 4)
- (eq? (vector-ref id-10645 0) 'syntax-object)
+ (if (if (vector? id-8594)
+ (if (= (vector-length id-8594) 4)
+ (eq? (vector-ref id-8594 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref id-10645 1))
+ (symbol? (vector-ref id-8594 1))
#f)))
- tmp-10641)
+ tmp-8590)
#f)
(@apply
- (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)
+ (lambda (id-8622 val-8623)
+ (let ((n-8624 (id-var-name-4313 id-8622 w-8586))
+ (id-mod-8625
+ (if (if (vector? id-8622)
+ (if (= (vector-length id-8622) 4)
+ (eq? (vector-ref id-8622 0) 'syntax-object)
#f)
#f)
- (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)))
+ (vector-ref id-8622 3)
+ mod-8588)))
+ (let ((b-8626
+ (let ((t-8667 (assq n-8624 r-8585)))
+ (if t-8667
+ (cdr t-8667)
+ (if (symbol? n-8624)
+ (let ((t-8672
+ (get-global-definition-hook-4257
+ n-8624
+ id-mod-8625)))
+ (if t-8672 t-8672 '(global)))
'(displaced-lexical))))))
- (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)))
+ (let ((key-8627 (car b-8626)))
+ (if (eqv? key-8627 'lexical)
+ (build-lexical-assignment-4265
+ s-8587
+ (syntax->datum id-8622)
+ (cdr b-8626)
+ (expand-4330 val-8623 r-8585 w-8586 mod-8588))
+ (if (eqv? key-8627 'global)
+ (build-global-assignment-4268
+ s-8587
+ n-8624
+ (expand-4330 val-8623 r-8585 w-8586 mod-8588)
+ id-mod-8625)
+ (if (eqv? key-8627 'macro)
+ (let ((p-8986 (cdr b-8626)))
(if (procedure-property
- p-11037
+ p-8986
'variable-transformer)
- (expand-6381
- (expand-macro-6384
- p-11037
- e-10635
- r-10636
- w-10637
- s-10638
+ (expand-4330
+ (expand-macro-4333
+ p-8986
+ e-8584
+ r-8585
+ w-8586
+ s-8587
#f
- mod-10639)
- r-10636
+ mod-8588)
+ r-8585
'(())
- mod-10639)
+ mod-8588)
(syntax-violation
'set!
"not a variable transformer"
- (wrap-6374 e-10635 w-10637 mod-10639)
- (wrap-6374
- id-10673
- w-10637
- id-mod-10676))))
- (if (eqv? key-10678 'displaced-lexical)
+ (wrap-4323 e-8584 w-8586 mod-8588)
+ (wrap-4323 id-8622 w-8586 id-mod-8625))))
+ (if (eqv? key-8627 'displaced-lexical)
(syntax-violation
'set!
"identifier out of context"
- (wrap-6374 id-10673 w-10637 mod-10639))
+ (wrap-4323 id-8622 w-8586 mod-8588))
(syntax-violation
'set!
"bad set!"
- (wrap-6374
+ (wrap-4323
(begin
- (if (if (pair? e-10635) s-10638 #f)
- (set-source-properties!
- 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
+ (if (if (pair? e-8584) s-8587 #f)
+ (set-source-properties! e-8584 s-8587))
+ e-8584)
+ w-8586
+ mod-8588))))))))))
+ tmp-8590)
+ (let ((tmp-9081
+ ($sc-dispatch e-8584 '(_ (any . each-any) any))))
+ (if tmp-9081
(@apply
- (lambda (head-11136 tail-11137 val-11138)
+ (lambda (head-9085 tail-9086 val-9087)
(call-with-values
(lambda ()
- (syntax-type-6380
- head-11136
- r-10636
+ (syntax-type-4329
+ head-9085
+ r-8585
'(())
#f
#f
- mod-10639
+ mod-8588
#t))
- (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)))
+ (lambda (type-9090
+ value-9091
+ formform-9092
+ ee-9093
+ ww-9094
+ ss-9095
+ modmod-9096)
+ (if (eqv? type-9090 'module-ref)
+ (let ((val-9102
+ (expand-4330
+ val-9087
+ r-8585
+ w-8586
+ mod-8588)))
(call-with-values
(lambda ()
- (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)))
+ (value-9091
+ (cons head-9085 tail-9086)
+ r-8585
+ w-8586))
+ (lambda (e-9103 r-9104 w-9105 s*-9106 mod-9107)
+ (let ((tmp-9109 (list e-9103)))
(if (@apply
- (lambda (e-11162)
- (if (symbol? e-11162)
+ (lambda (e-9111)
+ (if (symbol? e-9111)
#t
- (if (if (vector? e-11162)
+ (if (if (vector? e-9111)
(if (= (vector-length
- e-11162)
+ e-9111)
4)
(eq? (vector-ref
- e-11162
+ e-9111
0)
'syntax-object)
#f)
#f)
- (symbol?
- (vector-ref e-11162 1))
+ (symbol? (vector-ref e-9111 1))
#f)))
- tmp-11160)
+ tmp-9109)
(@apply
- (lambda (e-11192)
- (build-global-assignment-6319
- s-10638
- (syntax->datum e-11192)
- val-11153
- mod-11158))
- tmp-11160)
+ (lambda (e-9141)
+ (build-global-assignment-4268
+ s-8587
+ (syntax->datum e-9141)
+ val-9102
+ mod-9107))
+ tmp-9109)
(syntax-violation
#f
"source expression failed to match any pattern"
- e-11154))))))
- (build-application-6312
- s-10638
- (let ((e-11417
+ e-9103))))))
+ (build-application-4261
+ s-8587
+ (let ((e-9366
(list '#(syntax-object
setter
((top)
#(ribcage () () ())
#(ribcage
#(key)
- #((m-*-5604 top))
- #("l-*-5605"))
+ #((m-*-3553 top))
+ #("l-*-3554"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
@@ -9322,19 +9306,19 @@
(top)
(top)
(top))
- #("l-*-5597"
- "l-*-5598"
- "l-*-5599"
- "l-*-5600"
- "l-*-5601"
- "l-*-5602"
- "l-*-5603"))
+ #("l-*-3546"
+ "l-*-3547"
+ "l-*-3548"
+ "l-*-3549"
+ "l-*-3550"
+ "l-*-3551"
+ "l-*-3552"))
#(ribcage
#(head tail val)
#((top) (top) (top))
- #("l-*-5582"
- "l-*-5583"
- "l-*-5584"))
+ #("l-*-3531"
+ "l-*-3532"
+ "l-*-3533"))
#(ribcage () () ())
#(ribcage
#(e r w s mod)
@@ -9343,11 +9327,11 @@
(top)
(top)
(top))
- #("l-*-5551"
- "l-*-5552"
- "l-*-5553"
- "l-*-5554"
- "l-*-5555"))
+ #("l-*-3500"
+ "l-*-3501"
+ "l-*-3502"
+ "l-*-3503"
+ "l-*-3504"))
#(ribcage
(lambda-var-list
gen-var
@@ -9629,253 +9613,252 @@
(top)
(top)
(top))
- ("l-*-2527"
- "l-*-2525"
- "l-*-2523"
- "l-*-2521"
- "l-*-2519"
- "l-*-2517"
- "l-*-2515"
- "l-*-2513"
- "l-*-2511"
- "l-*-2509"
- "l-*-2507"
- "l-*-2505"
- "l-*-2503"
- "l-*-2501"
- "l-*-2499"
- "l-*-2497"
- "l-*-2495"
- "l-*-2493"
- "l-*-2491"
- "l-*-2489"
- "l-*-2487"
- "l-*-2485"
- "l-*-2483"
- "l-*-2481"
- "l-*-2479"
- "l-*-2477"
- "l-*-2475"
- "l-*-2473"
- "l-*-2471"
- "l-*-2469"
- "l-*-2467"
- "l-*-2465"
- "l-*-2463"
- "l-*-2461"
- "l-*-2459"
- "l-*-2457"
- "l-*-2455"
- "l-*-2453"
- "l-*-2451"
- "l-*-2450"
- "l-*-2448"
- "l-*-2445"
- "l-*-2444"
- "l-*-2443"
- "l-*-2441"
- "l-*-2440"
- "l-*-2438"
- "l-*-2436"
- "l-*-2434"
- "l-*-2432"
- "l-*-2430"
- "l-*-2428"
- "l-*-2426"
- "l-*-2424"
- "l-*-2421"
- "l-*-2419"
- "l-*-2418"
- "l-*-2416"
- "l-*-2414"
- "l-*-2412"
- "l-*-2410"
- "l-*-2409"
- "l-*-2408"
- "l-*-2407"
- "l-*-2405"
- "l-*-2404"
- "l-*-2401"
- "l-*-2399"
- "l-*-2397"
- "l-*-2395"
- "l-*-2393"
- "l-*-2391"
- "l-*-2389"
- "l-*-2388"
- "l-*-2387"
- "l-*-2385"
- "l-*-2383"
- "l-*-2382"
- "l-*-2379"
- "l-*-2378"
- "l-*-2376"
- "l-*-2374"
- "l-*-2372"
- "l-*-2370"
- "l-*-2368"
- "l-*-2366"
- "l-*-2364"
- "l-*-2362"
- "l-*-2360"
- "l-*-2357"
- "l-*-2355"
- "l-*-2353"
- "l-*-2351"
- "l-*-2349"
- "l-*-2347"
- "l-*-2345"
- "l-*-2343"
- "l-*-2341"
- "l-*-2339"
- "l-*-2337"
- "l-*-2335"
- "l-*-2333"
- "l-*-2331"
- "l-*-2329"
- "l-*-2327"
- "l-*-2325"
- "l-*-2323"
- "l-*-2321"
- "l-*-2319"
- "l-*-2317"
- "l-*-2315"
- "l-*-2313"
- "l-*-2311"
- "l-*-2309"
- "l-*-2307"
- "l-*-2306"
- "l-*-2305"
- "l-*-2304"
- "l-*-2303"
- "l-*-2301"
- "l-*-2299"
- "l-*-2297"
- "l-*-2294"
- "l-*-2292"
- "l-*-2290"
- "l-*-2288"
- "l-*-2286"
- "l-*-2284"
- "l-*-2282"
- "l-*-2280"
- "l-*-2278"
- "l-*-2276"
- "l-*-2274"
- "l-*-2272"
- "l-*-2270"
- "l-*-2268"
- "l-*-2266"
- "l-*-2264"
- "l-*-2262"
- "l-*-2260"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("l-*-2098"
- "l-*-2097"
- "l-*-2096")))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
(hygiene guile))
- head-11136)))
+ head-9085)))
(call-with-values
(lambda ()
- (syntax-type-6380
- e-11417
- r-10636
- w-10637
- (source-annotation-6338 e-11417)
+ (syntax-type-4329
+ e-9366
+ r-8585
+ w-8586
+ (source-annotation-4287 e-9366)
#f
- mod-10639
+ mod-8588
#f))
- (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)
+ (lambda (type-9373
+ value-9374
+ form-9375
+ e-9376
+ w-9377
+ s-9378
+ mod-9379)
+ (expand-expr-4331
+ type-9373
+ value-9374
+ form-9375
+ e-9376
+ r-8585
+ w-9377
+ s-9378
+ mod-9379))))
+ (map (lambda (e-9383)
(call-with-values
(lambda ()
- (syntax-type-6380
- e-11434
- r-10636
- w-10637
- (source-annotation-6338 e-11434)
+ (syntax-type-4329
+ e-9383
+ r-8585
+ w-8586
+ (source-annotation-4287 e-9383)
#f
- mod-10639
+ mod-8588
#f))
- (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)
+ (lambda (type-9398
+ value-9399
+ form-9400
+ e-9401
+ w-9402
+ s-9403
+ mod-9404)
+ (expand-expr-4331
+ type-9398
+ value-9399
+ form-9400
+ e-9401
+ r-8585
+ w-9402
+ s-9403
+ mod-9404))))
+ (append tail-9086 (list val-9087))))))))
+ tmp-9081)
(syntax-violation
'set!
"bad set!"
- (wrap-6374
+ (wrap-4323
(begin
- (if (if (pair? e-10635) s-10638 #f)
- (set-source-properties! e-10635 s-10638))
- e-10635)
- w-10637
- mod-10639))))))))
+ (if (if (pair? e-8584) s-8587 #f)
+ (set-source-properties! e-8584 s-8587))
+ e-8584)
+ w-8586
+ mod-8588))))))))
(module-define!
(current-module)
'@
(make-syntax-transformer
'@
'module-ref
- (lambda (e-11498 r-11499 w-11500)
- (let ((tmp-11502
- ($sc-dispatch e-11498 '(_ each-any any))))
- (if (if tmp-11502
+ (lambda (e-9447 r-9448 w-9449)
+ (let ((tmp-9451
+ ($sc-dispatch e-9447 '(_ each-any any))))
+ (if (if tmp-9451
(@apply
- (lambda (mod-11505 id-11506)
- (if (and-map id?-6345 mod-11505)
- (if (symbol? id-11506)
+ (lambda (mod-9454 id-9455)
+ (if (and-map id?-4294 mod-9454)
+ (if (symbol? id-9455)
#t
- (if (if (vector? id-11506)
- (if (= (vector-length id-11506) 4)
- (eq? (vector-ref id-11506 0)
- 'syntax-object)
+ (if (if (vector? id-9455)
+ (if (= (vector-length id-9455) 4)
+ (eq? (vector-ref id-9455 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref id-11506 1))
+ (symbol? (vector-ref id-9455 1))
#f))
#f))
- tmp-11502)
+ tmp-9451)
#f)
(@apply
- (lambda (mod-11546 id-11547)
+ (lambda (mod-9495 id-9496)
(values
- (syntax->datum id-11547)
- r-11499
- w-11500
+ (syntax->datum id-9496)
+ r-9448
+ w-9449
#f
(syntax->datum
(cons '#(syntax-object
@@ -9884,12 +9867,12 @@
#(ribcage
#(mod id)
#((top) (top))
- #("l-*-5646" "l-*-5647"))
+ #("l-*-3595" "l-*-3596"))
#(ribcage () () ())
#(ribcage
#(e r w)
#((top) (top) (top))
- #("l-*-5634" "l-*-5635" "l-*-5636"))
+ #("l-*-3583" "l-*-3584" "l-*-3585"))
#(ribcage
(lambda-var-list
gen-var
@@ -10171,213 +10154,211 @@
(top)
(top)
(top))
- ("l-*-2527"
- "l-*-2525"
- "l-*-2523"
- "l-*-2521"
- "l-*-2519"
- "l-*-2517"
- "l-*-2515"
- "l-*-2513"
- "l-*-2511"
- "l-*-2509"
- "l-*-2507"
- "l-*-2505"
- "l-*-2503"
- "l-*-2501"
- "l-*-2499"
- "l-*-2497"
- "l-*-2495"
- "l-*-2493"
- "l-*-2491"
- "l-*-2489"
- "l-*-2487"
- "l-*-2485"
- "l-*-2483"
- "l-*-2481"
- "l-*-2479"
- "l-*-2477"
- "l-*-2475"
- "l-*-2473"
- "l-*-2471"
- "l-*-2469"
- "l-*-2467"
- "l-*-2465"
- "l-*-2463"
- "l-*-2461"
- "l-*-2459"
- "l-*-2457"
- "l-*-2455"
- "l-*-2453"
- "l-*-2451"
- "l-*-2450"
- "l-*-2448"
- "l-*-2445"
- "l-*-2444"
- "l-*-2443"
- "l-*-2441"
- "l-*-2440"
- "l-*-2438"
- "l-*-2436"
- "l-*-2434"
- "l-*-2432"
- "l-*-2430"
- "l-*-2428"
- "l-*-2426"
- "l-*-2424"
- "l-*-2421"
- "l-*-2419"
- "l-*-2418"
- "l-*-2416"
- "l-*-2414"
- "l-*-2412"
- "l-*-2410"
- "l-*-2409"
- "l-*-2408"
- "l-*-2407"
- "l-*-2405"
- "l-*-2404"
- "l-*-2401"
- "l-*-2399"
- "l-*-2397"
- "l-*-2395"
- "l-*-2393"
- "l-*-2391"
- "l-*-2389"
- "l-*-2388"
- "l-*-2387"
- "l-*-2385"
- "l-*-2383"
- "l-*-2382"
- "l-*-2379"
- "l-*-2378"
- "l-*-2376"
- "l-*-2374"
- "l-*-2372"
- "l-*-2370"
- "l-*-2368"
- "l-*-2366"
- "l-*-2364"
- "l-*-2362"
- "l-*-2360"
- "l-*-2357"
- "l-*-2355"
- "l-*-2353"
- "l-*-2351"
- "l-*-2349"
- "l-*-2347"
- "l-*-2345"
- "l-*-2343"
- "l-*-2341"
- "l-*-2339"
- "l-*-2337"
- "l-*-2335"
- "l-*-2333"
- "l-*-2331"
- "l-*-2329"
- "l-*-2327"
- "l-*-2325"
- "l-*-2323"
- "l-*-2321"
- "l-*-2319"
- "l-*-2317"
- "l-*-2315"
- "l-*-2313"
- "l-*-2311"
- "l-*-2309"
- "l-*-2307"
- "l-*-2306"
- "l-*-2305"
- "l-*-2304"
- "l-*-2303"
- "l-*-2301"
- "l-*-2299"
- "l-*-2297"
- "l-*-2294"
- "l-*-2292"
- "l-*-2290"
- "l-*-2288"
- "l-*-2286"
- "l-*-2284"
- "l-*-2282"
- "l-*-2280"
- "l-*-2278"
- "l-*-2276"
- "l-*-2274"
- "l-*-2272"
- "l-*-2270"
- "l-*-2268"
- "l-*-2266"
- "l-*-2264"
- "l-*-2262"
- "l-*-2260"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("l-*-2098" "l-*-2097" "l-*-2096")))
+ ("l-*-47" "l-*-46" "l-*-45")))
(hygiene guile))
- mod-11546))))
- tmp-11502)
+ mod-9495))))
+ tmp-9451)
(syntax-violation
#f
"source expression failed to match any pattern"
- e-11498))))))
- (global-extend-6343
+ e-9447))))))
+ (global-extend-4292
'module-ref
'@@
- (lambda (e-11639 r-11640 w-11641)
+ (lambda (e-9588 r-9589 w-9590)
(letrec*
- ((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)
+ ((remodulate-9591
+ (lambda (x-9626 mod-9627)
+ (if (pair? x-9626)
+ (cons (remodulate-9591 (car x-9626) mod-9627)
+ (remodulate-9591 (cdr x-9626) mod-9627))
+ (if (if (vector? x-9626)
+ (if (= (vector-length x-9626) 4)
+ (eq? (vector-ref x-9626 0) 'syntax-object)
#f)
#f)
- (let ((expression-11692
- (remodulate-11642
- (vector-ref x-11677 1)
- mod-11678))
- (wrap-11693 (vector-ref x-11677 2)))
+ (let ((expression-9641
+ (remodulate-9591 (vector-ref x-9626 1) mod-9627))
+ (wrap-9642 (vector-ref x-9626 2)))
(vector
'syntax-object
- expression-11692
- wrap-11693
- mod-11678))
- (if (vector? x-11677)
- (let ((n-11701 (vector-length x-11677)))
- (let ((v-11702 (make-vector n-11701)))
+ expression-9641
+ wrap-9642
+ mod-9627))
+ (if (vector? x-9626)
+ (let ((n-9650 (vector-length x-9626)))
+ (let ((v-9651 (make-vector n-9650)))
(letrec*
- ((loop-11703
- (lambda (i-11750)
- (if (= i-11750 n-11701)
- v-11702
+ ((loop-9652
+ (lambda (i-9699)
+ (if (= i-9699 n-9650)
+ v-9651
(begin
(vector-set!
- 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
+ v-9651
+ i-9699
+ (remodulate-9591
+ (vector-ref x-9626 i-9699)
+ mod-9627))
+ (loop-9652 (#{1+}# i-9699)))))))
+ (loop-9652 0))))
+ x-9626))))))
+ (let ((tmp-9593
+ ($sc-dispatch e-9588 '(_ each-any any))))
+ (if (if tmp-9593
(@apply
- (lambda (mod-11648 exp-11649)
- (and-map id?-6345 mod-11648))
- tmp-11644)
+ (lambda (mod-9597 exp-9598)
+ (and-map id?-4294 mod-9597))
+ tmp-9593)
#f)
(@apply
- (lambda (mod-11665 exp-11666)
- (let ((mod-11667
+ (lambda (mod-9614 exp-9615)
+ (let ((mod-9616
(syntax->datum
(cons '#(syntax-object
private
@@ -10385,15 +10366,15 @@
#(ribcage
#(mod exp)
#((top) (top))
- #("l-*-5684" "l-*-5685"))
+ #("l-*-3633" "l-*-3634"))
#(ribcage
(remodulate)
((top))
- ("l-*-5657"))
+ ("l-*-3606"))
#(ribcage
#(e r w)
#((top) (top) (top))
- #("l-*-5654" "l-*-5655" "l-*-5656"))
+ #("l-*-3603" "l-*-3604" "l-*-3605"))
#(ribcage
(lambda-var-list
gen-var
@@ -10675,252 +10656,232 @@
(top)
(top)
(top))
- ("l-*-2527"
- "l-*-2525"
- "l-*-2523"
- "l-*-2521"
- "l-*-2519"
- "l-*-2517"
- "l-*-2515"
- "l-*-2513"
- "l-*-2511"
- "l-*-2509"
- "l-*-2507"
- "l-*-2505"
- "l-*-2503"
- "l-*-2501"
- "l-*-2499"
- "l-*-2497"
- "l-*-2495"
- "l-*-2493"
- "l-*-2491"
- "l-*-2489"
- "l-*-2487"
- "l-*-2485"
- "l-*-2483"
- "l-*-2481"
- "l-*-2479"
- "l-*-2477"
- "l-*-2475"
- "l-*-2473"
- "l-*-2471"
- "l-*-2469"
- "l-*-2467"
- "l-*-2465"
- "l-*-2463"
- "l-*-2461"
- "l-*-2459"
- "l-*-2457"
- "l-*-2455"
- "l-*-2453"
- "l-*-2451"
- "l-*-2450"
- "l-*-2448"
- "l-*-2445"
- "l-*-2444"
- "l-*-2443"
- "l-*-2441"
- "l-*-2440"
- "l-*-2438"
- "l-*-2436"
- "l-*-2434"
- "l-*-2432"
- "l-*-2430"
- "l-*-2428"
- "l-*-2426"
- "l-*-2424"
- "l-*-2421"
- "l-*-2419"
- "l-*-2418"
- "l-*-2416"
- "l-*-2414"
- "l-*-2412"
- "l-*-2410"
- "l-*-2409"
- "l-*-2408"
- "l-*-2407"
- "l-*-2405"
- "l-*-2404"
- "l-*-2401"
- "l-*-2399"
- "l-*-2397"
- "l-*-2395"
- "l-*-2393"
- "l-*-2391"
- "l-*-2389"
- "l-*-2388"
- "l-*-2387"
- "l-*-2385"
- "l-*-2383"
- "l-*-2382"
- "l-*-2379"
- "l-*-2378"
- "l-*-2376"
- "l-*-2374"
- "l-*-2372"
- "l-*-2370"
- "l-*-2368"
- "l-*-2366"
- "l-*-2364"
- "l-*-2362"
- "l-*-2360"
- "l-*-2357"
- "l-*-2355"
- "l-*-2353"
- "l-*-2351"
- "l-*-2349"
- "l-*-2347"
- "l-*-2345"
- "l-*-2343"
- "l-*-2341"
- "l-*-2339"
- "l-*-2337"
- "l-*-2335"
- "l-*-2333"
- "l-*-2331"
- "l-*-2329"
- "l-*-2327"
- "l-*-2325"
- "l-*-2323"
- "l-*-2321"
- "l-*-2319"
- "l-*-2317"
- "l-*-2315"
- "l-*-2313"
- "l-*-2311"
- "l-*-2309"
- "l-*-2307"
- "l-*-2306"
- "l-*-2305"
- "l-*-2304"
- "l-*-2303"
- "l-*-2301"
- "l-*-2299"
- "l-*-2297"
- "l-*-2294"
- "l-*-2292"
- "l-*-2290"
- "l-*-2288"
- "l-*-2286"
- "l-*-2284"
- "l-*-2282"
- "l-*-2280"
- "l-*-2278"
- "l-*-2276"
- "l-*-2274"
- "l-*-2272"
- "l-*-2270"
- "l-*-2268"
- "l-*-2266"
- "l-*-2264"
- "l-*-2262"
- "l-*-2260"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("l-*-2098" "l-*-2097" "l-*-2096")))
+ ("l-*-47" "l-*-46" "l-*-45")))
(hygiene guile))
- mod-11665))))
+ mod-9614))))
(values
- (remodulate-11642 exp-11666 mod-11667)
- r-11640
- w-11641
- (source-annotation-6338 exp-11666)
- mod-11667)))
- tmp-11644)
+ (remodulate-9591 exp-9615 mod-9616)
+ r-9589
+ w-9590
+ (source-annotation-4287 exp-9615)
+ mod-9616)))
+ tmp-9593)
(syntax-violation
#f
"source expression failed to match any pattern"
- e-11639))))))
- (global-extend-6343
+ e-9588))))))
+ (global-extend-4292
'core
'if
- (lambda (e-11851 r-11852 w-11853 s-11854 mod-11855)
- (let ((tmp-11857 ($sc-dispatch e-11851 '(_ any any))))
- (if tmp-11857
+ (lambda (e-9800 r-9801 w-9802 s-9803 mod-9804)
+ (let ((tmp-9806 ($sc-dispatch e-9800 '(_ any any))))
+ (if tmp-9806
(@apply
- (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)
+ (lambda (test-9810 then-9811)
+ (build-conditional-4262
+ s-9803
+ (expand-4330 test-9810 r-9801 w-9802 mod-9804)
+ (expand-4330 then-9811 r-9801 w-9802 mod-9804)
(make-struct/no-tail
(vector-ref %expanded-vtables 0)
#f)))
- tmp-11857)
- (let ((tmp-12087
- ($sc-dispatch e-11851 '(_ any any any))))
- (if tmp-12087
+ tmp-9806)
+ (let ((tmp-10036
+ ($sc-dispatch e-9800 '(_ any any any))))
+ (if tmp-10036
(@apply
- (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)
+ (lambda (test-10040 then-10041 else-10042)
+ (build-conditional-4262
+ s-9803
+ (expand-4330 test-10040 r-9801 w-9802 mod-9804)
+ (expand-4330 then-10041 r-9801 w-9802 mod-9804)
+ (expand-4330 else-10042 r-9801 w-9802 mod-9804)))
+ tmp-10036)
(syntax-violation
#f
"source expression failed to match any pattern"
- e-11851)))))))
- (global-extend-6343
+ e-9800)))))))
+ (global-extend-4292
'core
'with-fluids
- (lambda (e-12492 r-12493 w-12494 s-12495 mod-12496)
- (let ((tmp-12498
+ (lambda (e-10441 r-10442 w-10443 s-10444 mod-10445)
+ (let ((tmp-10447
($sc-dispatch
- e-12492
+ e-10441
'(_ #(each (any any)) any . each-any))))
- (if tmp-12498
+ (if tmp-10447
(@apply
- (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
+ (lambda (fluid-10451 val-10452 b-10453 b*-10454)
+ (build-dynlet-4263
+ s-10444
+ (map (lambda (x-10535)
+ (expand-4330 x-10535 r-10442 w-10443 mod-10445))
+ fluid-10451)
+ (map (lambda (x-10605)
+ (expand-4330 x-10605 r-10442 w-10443 mod-10445))
+ val-10452)
+ (expand-body-4334
+ (cons b-10453 b*-10454)
+ (wrap-4323
(begin
- (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)
+ (if (if (pair? e-10441) s-10444 #f)
+ (set-source-properties! e-10441 s-10444))
+ e-10441)
+ w-10443
+ mod-10445)
+ r-10442
+ w-10443
+ mod-10445)))
+ tmp-10447)
(syntax-violation
#f
"source expression failed to match any pattern"
- e-12492)))))
+ e-10441)))))
(module-define!
(current-module)
'begin
@@ -10950,60 +10911,60 @@
'eval-when
'eval-when
'()))
- (global-extend-6343
+ (global-extend-4292
'core
'syntax-case
(letrec*
- ((convert-pattern-13024
- (lambda (pattern-14621 keys-14622)
+ ((convert-pattern-10973
+ (lambda (pattern-12570 keys-12571)
(letrec*
- ((cvt*-14623
- (lambda (p*-15247 n-15248 ids-15249)
- (if (not (pair? p*-15247))
- (cvt-14625 p*-15247 n-15248 ids-15249)
+ ((cvt*-12572
+ (lambda (p*-13196 n-13197 ids-13198)
+ (if (not (pair? p*-13196))
+ (cvt-12574 p*-13196 n-13197 ids-13198)
(call-with-values
(lambda ()
- (cvt*-14623 (cdr p*-15247) n-15248 ids-15249))
- (lambda (y-15252 ids-15253)
+ (cvt*-12572 (cdr p*-13196) n-13197 ids-13198))
+ (lambda (y-13201 ids-13202)
(call-with-values
(lambda ()
- (cvt-14625 (car p*-15247) n-15248 ids-15253))
- (lambda (x-15256 ids-15257)
+ (cvt-12574 (car p*-13196) n-13197 ids-13202))
+ (lambda (x-13205 ids-13206)
(values
- (cons x-15256 y-15252)
- ids-15257))))))))
- (v-reverse-14624
- (lambda (x-15258)
+ (cons x-13205 y-13201)
+ ids-13206))))))))
+ (v-reverse-12573
+ (lambda (x-13207)
(letrec*
- ((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)
+ ((loop-13208
+ (lambda (r-13288 x-13289)
+ (if (not (pair? x-13289))
+ (values r-13288 x-13289)
+ (loop-13208
+ (cons (car x-13289) r-13288)
+ (cdr x-13289))))))
+ (loop-13208 '() x-13207))))
+ (cvt-12574
+ (lambda (p-12577 n-12578 ids-12579)
+ (if (if (symbol? p-12577)
#t
- (if (if (vector? p-14628)
- (if (= (vector-length p-14628) 4)
- (eq? (vector-ref p-14628 0) 'syntax-object)
+ (if (if (vector? p-12577)
+ (if (= (vector-length p-12577) 4)
+ (eq? (vector-ref p-12577 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref p-14628 1))
+ (symbol? (vector-ref p-12577 1))
#f))
- (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)
+ (if (bound-id-member?-4322 p-12577 keys-12571)
+ (values (vector 'free-id p-12577) ids-12579)
+ (if (if (eq? (if (if (vector? p-12577)
+ (if (= (vector-length p-12577) 4)
+ (eq? (vector-ref p-12577 0)
'syntax-object)
#f)
#f)
- (vector-ref p-14628 1)
- p-14628)
+ (vector-ref p-12577 1)
+ p-12577)
(if (if (= (vector-length
'#(syntax-object
_
@@ -11012,20 +10973,20 @@
#(ribcage
#(p n ids)
#((top) (top) (top))
- #("l-*-5785"
- "l-*-5786"
- "l-*-5787"))
+ #("l-*-3734"
+ "l-*-3735"
+ "l-*-3736"))
#(ribcage
(cvt v-reverse cvt*)
((top) (top) (top))
- ("l-*-5758"
- "l-*-5756"
- "l-*-5754"))
+ ("l-*-3707"
+ "l-*-3705"
+ "l-*-3703"))
#(ribcage
#(pattern keys)
#((top) (top))
- #("l-*-5752"
- "l-*-5753"))
+ #("l-*-3701"
+ "l-*-3702"))
#(ribcage
(gen-syntax-case
gen-clause
@@ -11035,10 +10996,10 @@
(top)
(top)
(top))
- ("l-*-5748"
- "l-*-5746"
- "l-*-5744"
- "l-*-5742"))
+ ("l-*-3697"
+ "l-*-3695"
+ "l-*-3693"
+ "l-*-3691"))
#(ribcage
(lambda-var-list
gen-var
@@ -11320,154 +11281,154 @@
(top)
(top)
(top))
- ("l-*-2527"
- "l-*-2525"
- "l-*-2523"
- "l-*-2521"
- "l-*-2519"
- "l-*-2517"
- "l-*-2515"
- "l-*-2513"
- "l-*-2511"
- "l-*-2509"
- "l-*-2507"
- "l-*-2505"
- "l-*-2503"
- "l-*-2501"
- "l-*-2499"
- "l-*-2497"
- "l-*-2495"
- "l-*-2493"
- "l-*-2491"
- "l-*-2489"
- "l-*-2487"
- "l-*-2485"
- "l-*-2483"
- "l-*-2481"
- "l-*-2479"
- "l-*-2477"
- "l-*-2475"
- "l-*-2473"
- "l-*-2471"
- "l-*-2469"
- "l-*-2467"
- "l-*-2465"
- "l-*-2463"
- "l-*-2461"
- "l-*-2459"
- "l-*-2457"
- "l-*-2455"
- "l-*-2453"
- "l-*-2451"
- "l-*-2450"
- "l-*-2448"
- "l-*-2445"
- "l-*-2444"
- "l-*-2443"
- "l-*-2441"
- "l-*-2440"
- "l-*-2438"
- "l-*-2436"
- "l-*-2434"
- "l-*-2432"
- "l-*-2430"
- "l-*-2428"
- "l-*-2426"
- "l-*-2424"
- "l-*-2421"
- "l-*-2419"
- "l-*-2418"
- "l-*-2416"
- "l-*-2414"
- "l-*-2412"
- "l-*-2410"
- "l-*-2409"
- "l-*-2408"
- "l-*-2407"
- "l-*-2405"
- "l-*-2404"
- "l-*-2401"
- "l-*-2399"
- "l-*-2397"
- "l-*-2395"
- "l-*-2393"
- "l-*-2391"
- "l-*-2389"
- "l-*-2388"
- "l-*-2387"
- "l-*-2385"
- "l-*-2383"
- "l-*-2382"
- "l-*-2379"
- "l-*-2378"
- "l-*-2376"
- "l-*-2374"
- "l-*-2372"
- "l-*-2370"
- "l-*-2368"
- "l-*-2366"
- "l-*-2364"
- "l-*-2362"
- "l-*-2360"
- "l-*-2357"
- "l-*-2355"
- "l-*-2353"
- "l-*-2351"
- "l-*-2349"
- "l-*-2347"
- "l-*-2345"
- "l-*-2343"
- "l-*-2341"
- "l-*-2339"
- "l-*-2337"
- "l-*-2335"
- "l-*-2333"
- "l-*-2331"
- "l-*-2329"
- "l-*-2327"
- "l-*-2325"
- "l-*-2323"
- "l-*-2321"
- "l-*-2319"
- "l-*-2317"
- "l-*-2315"
- "l-*-2313"
- "l-*-2311"
- "l-*-2309"
- "l-*-2307"
- "l-*-2306"
- "l-*-2305"
- "l-*-2304"
- "l-*-2303"
- "l-*-2301"
- "l-*-2299"
- "l-*-2297"
- "l-*-2294"
- "l-*-2292"
- "l-*-2290"
- "l-*-2288"
- "l-*-2286"
- "l-*-2284"
- "l-*-2282"
- "l-*-2280"
- "l-*-2278"
- "l-*-2276"
- "l-*-2274"
- "l-*-2272"
- "l-*-2270"
- "l-*-2268"
- "l-*-2266"
- "l-*-2264"
- "l-*-2262"
- "l-*-2260"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("l-*-2098"
- "l-*-2097"
- "l-*-2096")))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
(hygiene guile)))
4)
#t
@@ -11480,29 +11441,29 @@
#(ribcage
#(p n ids)
#((top) (top) (top))
- #("l-*-5785"
- "l-*-5786"
- "l-*-5787"))
+ #("l-*-3734"
+ "l-*-3735"
+ "l-*-3736"))
#(ribcage
(cvt v-reverse cvt*)
((top) (top) (top))
- ("l-*-5758"
- "l-*-5756"
- "l-*-5754"))
+ ("l-*-3707"
+ "l-*-3705"
+ "l-*-3703"))
#(ribcage
#(pattern keys)
#((top) (top))
- #("l-*-5752" "l-*-5753"))
+ #("l-*-3701" "l-*-3702"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("l-*-5748"
- "l-*-5746"
- "l-*-5744"
- "l-*-5742"))
+ ("l-*-3697"
+ "l-*-3695"
+ "l-*-3693"
+ "l-*-3691"))
#(ribcage
(lambda-var-list
gen-var
@@ -11784,157 +11745,155 @@
(top)
(top)
(top))
- ("l-*-2527"
- "l-*-2525"
- "l-*-2523"
- "l-*-2521"
- "l-*-2519"
- "l-*-2517"
- "l-*-2515"
- "l-*-2513"
- "l-*-2511"
- "l-*-2509"
- "l-*-2507"
- "l-*-2505"
- "l-*-2503"
- "l-*-2501"
- "l-*-2499"
- "l-*-2497"
- "l-*-2495"
- "l-*-2493"
- "l-*-2491"
- "l-*-2489"
- "l-*-2487"
- "l-*-2485"
- "l-*-2483"
- "l-*-2481"
- "l-*-2479"
- "l-*-2477"
- "l-*-2475"
- "l-*-2473"
- "l-*-2471"
- "l-*-2469"
- "l-*-2467"
- "l-*-2465"
- "l-*-2463"
- "l-*-2461"
- "l-*-2459"
- "l-*-2457"
- "l-*-2455"
- "l-*-2453"
- "l-*-2451"
- "l-*-2450"
- "l-*-2448"
- "l-*-2445"
- "l-*-2444"
- "l-*-2443"
- "l-*-2441"
- "l-*-2440"
- "l-*-2438"
- "l-*-2436"
- "l-*-2434"
- "l-*-2432"
- "l-*-2430"
- "l-*-2428"
- "l-*-2426"
- "l-*-2424"
- "l-*-2421"
- "l-*-2419"
- "l-*-2418"
- "l-*-2416"
- "l-*-2414"
- "l-*-2412"
- "l-*-2410"
- "l-*-2409"
- "l-*-2408"
- "l-*-2407"
- "l-*-2405"
- "l-*-2404"
- "l-*-2401"
- "l-*-2399"
- "l-*-2397"
- "l-*-2395"
- "l-*-2393"
- "l-*-2391"
- "l-*-2389"
- "l-*-2388"
- "l-*-2387"
- "l-*-2385"
- "l-*-2383"
- "l-*-2382"
- "l-*-2379"
- "l-*-2378"
- "l-*-2376"
- "l-*-2374"
- "l-*-2372"
- "l-*-2370"
- "l-*-2368"
- "l-*-2366"
- "l-*-2364"
- "l-*-2362"
- "l-*-2360"
- "l-*-2357"
- "l-*-2355"
- "l-*-2353"
- "l-*-2351"
- "l-*-2349"
- "l-*-2347"
- "l-*-2345"
- "l-*-2343"
- "l-*-2341"
- "l-*-2339"
- "l-*-2337"
- "l-*-2335"
- "l-*-2333"
- "l-*-2331"
- "l-*-2329"
- "l-*-2327"
- "l-*-2325"
- "l-*-2323"
- "l-*-2321"
- "l-*-2319"
- "l-*-2317"
- "l-*-2315"
- "l-*-2313"
- "l-*-2311"
- "l-*-2309"
- "l-*-2307"
- "l-*-2306"
- "l-*-2305"
- "l-*-2304"
- "l-*-2303"
- "l-*-2301"
- "l-*-2299"
- "l-*-2297"
- "l-*-2294"
- "l-*-2292"
- "l-*-2290"
- "l-*-2288"
- "l-*-2286"
- "l-*-2284"
- "l-*-2282"
- "l-*-2280"
- "l-*-2278"
- "l-*-2276"
- "l-*-2274"
- "l-*-2272"
- "l-*-2270"
- "l-*-2268"
- "l-*-2266"
- "l-*-2264"
- "l-*-2262"
- "l-*-2260"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("l-*-2098"
- "l-*-2097"
- "l-*-2096")))
+ ("l-*-47" "l-*-46" "l-*-45")))
(hygiene guile))))
- (eq? (id-var-name-6364 p-14628 '(()))
- (id-var-name-6364
+ (eq? (id-var-name-4313 p-12577 '(()))
+ (id-var-name-4313
'#(syntax-object
_
((top)
@@ -11942,29 +11901,29 @@
#(ribcage
#(p n ids)
#((top) (top) (top))
- #("l-*-5785"
- "l-*-5786"
- "l-*-5787"))
+ #("l-*-3734"
+ "l-*-3735"
+ "l-*-3736"))
#(ribcage
(cvt v-reverse cvt*)
((top) (top) (top))
- ("l-*-5758"
- "l-*-5756"
- "l-*-5754"))
+ ("l-*-3707"
+ "l-*-3705"
+ "l-*-3703"))
#(ribcage
#(pattern keys)
#((top) (top))
- #("l-*-5752" "l-*-5753"))
+ #("l-*-3701" "l-*-3702"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("l-*-5748"
- "l-*-5746"
- "l-*-5744"
- "l-*-5742"))
+ ("l-*-3697"
+ "l-*-3695"
+ "l-*-3693"
+ "l-*-3691"))
#(ribcage
(lambda-var-list
gen-var
@@ -12246,186 +12205,184 @@
(top)
(top)
(top))
- ("l-*-2527"
- "l-*-2525"
- "l-*-2523"
- "l-*-2521"
- "l-*-2519"
- "l-*-2517"
- "l-*-2515"
- "l-*-2513"
- "l-*-2511"
- "l-*-2509"
- "l-*-2507"
- "l-*-2505"
- "l-*-2503"
- "l-*-2501"
- "l-*-2499"
- "l-*-2497"
- "l-*-2495"
- "l-*-2493"
- "l-*-2491"
- "l-*-2489"
- "l-*-2487"
- "l-*-2485"
- "l-*-2483"
- "l-*-2481"
- "l-*-2479"
- "l-*-2477"
- "l-*-2475"
- "l-*-2473"
- "l-*-2471"
- "l-*-2469"
- "l-*-2467"
- "l-*-2465"
- "l-*-2463"
- "l-*-2461"
- "l-*-2459"
- "l-*-2457"
- "l-*-2455"
- "l-*-2453"
- "l-*-2451"
- "l-*-2450"
- "l-*-2448"
- "l-*-2445"
- "l-*-2444"
- "l-*-2443"
- "l-*-2441"
- "l-*-2440"
- "l-*-2438"
- "l-*-2436"
- "l-*-2434"
- "l-*-2432"
- "l-*-2430"
- "l-*-2428"
- "l-*-2426"
- "l-*-2424"
- "l-*-2421"
- "l-*-2419"
- "l-*-2418"
- "l-*-2416"
- "l-*-2414"
- "l-*-2412"
- "l-*-2410"
- "l-*-2409"
- "l-*-2408"
- "l-*-2407"
- "l-*-2405"
- "l-*-2404"
- "l-*-2401"
- "l-*-2399"
- "l-*-2397"
- "l-*-2395"
- "l-*-2393"
- "l-*-2391"
- "l-*-2389"
- "l-*-2388"
- "l-*-2387"
- "l-*-2385"
- "l-*-2383"
- "l-*-2382"
- "l-*-2379"
- "l-*-2378"
- "l-*-2376"
- "l-*-2374"
- "l-*-2372"
- "l-*-2370"
- "l-*-2368"
- "l-*-2366"
- "l-*-2364"
- "l-*-2362"
- "l-*-2360"
- "l-*-2357"
- "l-*-2355"
- "l-*-2353"
- "l-*-2351"
- "l-*-2349"
- "l-*-2347"
- "l-*-2345"
- "l-*-2343"
- "l-*-2341"
- "l-*-2339"
- "l-*-2337"
- "l-*-2335"
- "l-*-2333"
- "l-*-2331"
- "l-*-2329"
- "l-*-2327"
- "l-*-2325"
- "l-*-2323"
- "l-*-2321"
- "l-*-2319"
- "l-*-2317"
- "l-*-2315"
- "l-*-2313"
- "l-*-2311"
- "l-*-2309"
- "l-*-2307"
- "l-*-2306"
- "l-*-2305"
- "l-*-2304"
- "l-*-2303"
- "l-*-2301"
- "l-*-2299"
- "l-*-2297"
- "l-*-2294"
- "l-*-2292"
- "l-*-2290"
- "l-*-2288"
- "l-*-2286"
- "l-*-2284"
- "l-*-2282"
- "l-*-2280"
- "l-*-2278"
- "l-*-2276"
- "l-*-2274"
- "l-*-2272"
- "l-*-2270"
- "l-*-2268"
- "l-*-2266"
- "l-*-2264"
- "l-*-2262"
- "l-*-2260"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("l-*-2098"
- "l-*-2097"
- "l-*-2096")))
+ ("l-*-47" "l-*-46" "l-*-45")))
(hygiene guile))
'(())))
#f)
- (values '_ ids-14630)
+ (values '_ ids-12579)
(values
'any
- (cons (cons p-14628 n-14629) ids-14630))))
- (let ((tmp-14950 ($sc-dispatch p-14628 '(any any))))
- (if (if tmp-14950
+ (cons (cons p-12577 n-12578) ids-12579))))
+ (let ((tmp-12899 ($sc-dispatch p-12577 '(any any))))
+ (if (if tmp-12899
(@apply
- (lambda (x-14954 dots-14955)
- (if (if (if (vector? dots-14955)
- (if (= (vector-length dots-14955)
+ (lambda (x-12903 dots-12904)
+ (if (if (if (vector? dots-12904)
+ (if (= (vector-length dots-12904)
4)
- (eq? (vector-ref dots-14955 0)
+ (eq? (vector-ref dots-12904 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref dots-14955 1))
+ (symbol? (vector-ref dots-12904 1))
#f)
- (if (eq? (if (if (vector? dots-14955)
+ (if (eq? (if (if (vector? dots-12904)
(if (= (vector-length
- dots-14955)
+ dots-12904)
4)
(eq? (vector-ref
- dots-14955
+ dots-12904
0)
'syntax-object)
#f)
#f)
- (vector-ref dots-14955 1)
- dots-14955)
+ (vector-ref dots-12904 1)
+ dots-12904)
(if (if (= (vector-length
'#(syntax-object
...
@@ -12441,7 +12398,7 @@
#(ribcage
#(x)
#((top))
- #("l-*-4317"))
+ #("l-*-2266"))
#(ribcage
(lambda-var-list
gen-var
@@ -12723,146 +12680,146 @@
(top)
(top)
(top))
- ("l-*-2527"
- "l-*-2525"
- "l-*-2523"
- "l-*-2521"
- "l-*-2519"
- "l-*-2517"
- "l-*-2515"
- "l-*-2513"
- "l-*-2511"
- "l-*-2509"
- "l-*-2507"
- "l-*-2505"
- "l-*-2503"
- "l-*-2501"
- "l-*-2499"
- "l-*-2497"
- "l-*-2495"
- "l-*-2493"
- "l-*-2491"
- "l-*-2489"
- "l-*-2487"
- "l-*-2485"
- "l-*-2483"
- "l-*-2481"
- "l-*-2479"
- "l-*-2477"
- "l-*-2475"
- "l-*-2473"
- "l-*-2471"
- "l-*-2469"
- "l-*-2467"
- "l-*-2465"
- "l-*-2463"
- "l-*-2461"
- "l-*-2459"
- "l-*-2457"
- "l-*-2455"
- "l-*-2453"
- "l-*-2451"
- "l-*-2450"
- "l-*-2448"
- "l-*-2445"
- "l-*-2444"
- "l-*-2443"
- "l-*-2441"
- "l-*-2440"
- "l-*-2438"
- "l-*-2436"
- "l-*-2434"
- "l-*-2432"
- "l-*-2430"
- "l-*-2428"
- "l-*-2426"
- "l-*-2424"
- "l-*-2421"
- "l-*-2419"
- "l-*-2418"
- "l-*-2416"
- "l-*-2414"
- "l-*-2412"
- "l-*-2410"
- "l-*-2409"
- "l-*-2408"
- "l-*-2407"
- "l-*-2405"
- "l-*-2404"
- "l-*-2401"
- "l-*-2399"
- "l-*-2397"
- "l-*-2395"
- "l-*-2393"
- "l-*-2391"
- "l-*-2389"
- "l-*-2388"
- "l-*-2387"
- "l-*-2385"
- "l-*-2383"
- "l-*-2382"
- "l-*-2379"
- "l-*-2378"
- "l-*-2376"
- "l-*-2374"
- "l-*-2372"
- "l-*-2370"
- "l-*-2368"
- "l-*-2366"
- "l-*-2364"
- "l-*-2362"
- "l-*-2360"
- "l-*-2357"
- "l-*-2355"
- "l-*-2353"
- "l-*-2351"
- "l-*-2349"
- "l-*-2347"
- "l-*-2345"
- "l-*-2343"
- "l-*-2341"
- "l-*-2339"
- "l-*-2337"
- "l-*-2335"
- "l-*-2333"
- "l-*-2331"
- "l-*-2329"
- "l-*-2327"
- "l-*-2325"
- "l-*-2323"
- "l-*-2321"
- "l-*-2319"
- "l-*-2317"
- "l-*-2315"
- "l-*-2313"
- "l-*-2311"
- "l-*-2309"
- "l-*-2307"
- "l-*-2306"
- "l-*-2305"
- "l-*-2304"
- "l-*-2303"
- "l-*-2301"
- "l-*-2299"
- "l-*-2297"
- "l-*-2294"
- "l-*-2292"
- "l-*-2290"
- "l-*-2288"
- "l-*-2286"
- "l-*-2284"
- "l-*-2282"
- "l-*-2280"
- "l-*-2278"
- "l-*-2276"
- "l-*-2274"
- "l-*-2272"
- "l-*-2270"
- "l-*-2268"
- "l-*-2266"
- "l-*-2264"
- "l-*-2262"
- "l-*-2260"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -12870,9 +12827,9 @@
((top)
(top)
(top))
- ("l-*-2098"
- "l-*-2097"
- "l-*-2096")))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
(hygiene
guile)))
4)
@@ -12887,7 +12844,7 @@
#(ribcage
#(x)
#((top))
- #("l-*-4317"))
+ #("l-*-2266"))
#(ribcage
(lambda-var-list
gen-var
@@ -13169,159 +13126,159 @@
(top)
(top)
(top))
- ("l-*-2527"
- "l-*-2525"
- "l-*-2523"
- "l-*-2521"
- "l-*-2519"
- "l-*-2517"
- "l-*-2515"
- "l-*-2513"
- "l-*-2511"
- "l-*-2509"
- "l-*-2507"
- "l-*-2505"
- "l-*-2503"
- "l-*-2501"
- "l-*-2499"
- "l-*-2497"
- "l-*-2495"
- "l-*-2493"
- "l-*-2491"
- "l-*-2489"
- "l-*-2487"
- "l-*-2485"
- "l-*-2483"
- "l-*-2481"
- "l-*-2479"
- "l-*-2477"
- "l-*-2475"
- "l-*-2473"
- "l-*-2471"
- "l-*-2469"
- "l-*-2467"
- "l-*-2465"
- "l-*-2463"
- "l-*-2461"
- "l-*-2459"
- "l-*-2457"
- "l-*-2455"
- "l-*-2453"
- "l-*-2451"
- "l-*-2450"
- "l-*-2448"
- "l-*-2445"
- "l-*-2444"
- "l-*-2443"
- "l-*-2441"
- "l-*-2440"
- "l-*-2438"
- "l-*-2436"
- "l-*-2434"
- "l-*-2432"
- "l-*-2430"
- "l-*-2428"
- "l-*-2426"
- "l-*-2424"
- "l-*-2421"
- "l-*-2419"
- "l-*-2418"
- "l-*-2416"
- "l-*-2414"
- "l-*-2412"
- "l-*-2410"
- "l-*-2409"
- "l-*-2408"
- "l-*-2407"
- "l-*-2405"
- "l-*-2404"
- "l-*-2401"
- "l-*-2399"
- "l-*-2397"
- "l-*-2395"
- "l-*-2393"
- "l-*-2391"
- "l-*-2389"
- "l-*-2388"
- "l-*-2387"
- "l-*-2385"
- "l-*-2383"
- "l-*-2382"
- "l-*-2379"
- "l-*-2378"
- "l-*-2376"
- "l-*-2374"
- "l-*-2372"
- "l-*-2370"
- "l-*-2368"
- "l-*-2366"
- "l-*-2364"
- "l-*-2362"
- "l-*-2360"
- "l-*-2357"
- "l-*-2355"
- "l-*-2353"
- "l-*-2351"
- "l-*-2349"
- "l-*-2347"
- "l-*-2345"
- "l-*-2343"
- "l-*-2341"
- "l-*-2339"
- "l-*-2337"
- "l-*-2335"
- "l-*-2333"
- "l-*-2331"
- "l-*-2329"
- "l-*-2327"
- "l-*-2325"
- "l-*-2323"
- "l-*-2321"
- "l-*-2319"
- "l-*-2317"
- "l-*-2315"
- "l-*-2313"
- "l-*-2311"
- "l-*-2309"
- "l-*-2307"
- "l-*-2306"
- "l-*-2305"
- "l-*-2304"
- "l-*-2303"
- "l-*-2301"
- "l-*-2299"
- "l-*-2297"
- "l-*-2294"
- "l-*-2292"
- "l-*-2290"
- "l-*-2288"
- "l-*-2286"
- "l-*-2284"
- "l-*-2282"
- "l-*-2280"
- "l-*-2278"
- "l-*-2276"
- "l-*-2274"
- "l-*-2272"
- "l-*-2270"
- "l-*-2268"
- "l-*-2266"
- "l-*-2264"
- "l-*-2262"
- "l-*-2260"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("l-*-2098"
- "l-*-2097"
- "l-*-2096")))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
(hygiene guile))))
- (eq? (id-var-name-6364
- dots-14955
+ (eq? (id-var-name-4313
+ dots-12904
'(()))
- (id-var-name-6364
+ (id-var-name-4313
'#(syntax-object
...
((top)
@@ -13330,7 +13287,7 @@
#(ribcage
#(x)
#((top))
- #("l-*-4317"))
+ #("l-*-2266"))
#(ribcage
(lambda-var-list
gen-var
@@ -13612,205 +13569,205 @@
(top)
(top)
(top))
- ("l-*-2527"
- "l-*-2525"
- "l-*-2523"
- "l-*-2521"
- "l-*-2519"
- "l-*-2517"
- "l-*-2515"
- "l-*-2513"
- "l-*-2511"
- "l-*-2509"
- "l-*-2507"
- "l-*-2505"
- "l-*-2503"
- "l-*-2501"
- "l-*-2499"
- "l-*-2497"
- "l-*-2495"
- "l-*-2493"
- "l-*-2491"
- "l-*-2489"
- "l-*-2487"
- "l-*-2485"
- "l-*-2483"
- "l-*-2481"
- "l-*-2479"
- "l-*-2477"
- "l-*-2475"
- "l-*-2473"
- "l-*-2471"
- "l-*-2469"
- "l-*-2467"
- "l-*-2465"
- "l-*-2463"
- "l-*-2461"
- "l-*-2459"
- "l-*-2457"
- "l-*-2455"
- "l-*-2453"
- "l-*-2451"
- "l-*-2450"
- "l-*-2448"
- "l-*-2445"
- "l-*-2444"
- "l-*-2443"
- "l-*-2441"
- "l-*-2440"
- "l-*-2438"
- "l-*-2436"
- "l-*-2434"
- "l-*-2432"
- "l-*-2430"
- "l-*-2428"
- "l-*-2426"
- "l-*-2424"
- "l-*-2421"
- "l-*-2419"
- "l-*-2418"
- "l-*-2416"
- "l-*-2414"
- "l-*-2412"
- "l-*-2410"
- "l-*-2409"
- "l-*-2408"
- "l-*-2407"
- "l-*-2405"
- "l-*-2404"
- "l-*-2401"
- "l-*-2399"
- "l-*-2397"
- "l-*-2395"
- "l-*-2393"
- "l-*-2391"
- "l-*-2389"
- "l-*-2388"
- "l-*-2387"
- "l-*-2385"
- "l-*-2383"
- "l-*-2382"
- "l-*-2379"
- "l-*-2378"
- "l-*-2376"
- "l-*-2374"
- "l-*-2372"
- "l-*-2370"
- "l-*-2368"
- "l-*-2366"
- "l-*-2364"
- "l-*-2362"
- "l-*-2360"
- "l-*-2357"
- "l-*-2355"
- "l-*-2353"
- "l-*-2351"
- "l-*-2349"
- "l-*-2347"
- "l-*-2345"
- "l-*-2343"
- "l-*-2341"
- "l-*-2339"
- "l-*-2337"
- "l-*-2335"
- "l-*-2333"
- "l-*-2331"
- "l-*-2329"
- "l-*-2327"
- "l-*-2325"
- "l-*-2323"
- "l-*-2321"
- "l-*-2319"
- "l-*-2317"
- "l-*-2315"
- "l-*-2313"
- "l-*-2311"
- "l-*-2309"
- "l-*-2307"
- "l-*-2306"
- "l-*-2305"
- "l-*-2304"
- "l-*-2303"
- "l-*-2301"
- "l-*-2299"
- "l-*-2297"
- "l-*-2294"
- "l-*-2292"
- "l-*-2290"
- "l-*-2288"
- "l-*-2286"
- "l-*-2284"
- "l-*-2282"
- "l-*-2280"
- "l-*-2278"
- "l-*-2276"
- "l-*-2274"
- "l-*-2272"
- "l-*-2270"
- "l-*-2268"
- "l-*-2266"
- "l-*-2264"
- "l-*-2262"
- "l-*-2260"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("l-*-2098"
- "l-*-2097"
- "l-*-2096")))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
(hygiene guile))
'(())))
#f)
#f))
- tmp-14950)
+ tmp-12899)
#f)
(@apply
- (lambda (x-15055 dots-15056)
+ (lambda (x-13004 dots-13005)
(call-with-values
(lambda ()
- (cvt-14625
- x-15055
- (#{1+}# n-14629)
- ids-14630))
- (lambda (p-15057 ids-15058)
+ (cvt-12574
+ x-13004
+ (#{1+}# n-12578)
+ ids-12579))
+ (lambda (p-13006 ids-13007)
(values
- (if (eq? p-15057 'any)
+ (if (eq? p-13006 'any)
'each-any
- (vector 'each p-15057))
- ids-15058))))
- tmp-14950)
- (let ((tmp-15059
- ($sc-dispatch p-14628 '(any any . any))))
- (if (if tmp-15059
+ (vector 'each p-13006))
+ ids-13007))))
+ tmp-12899)
+ (let ((tmp-13008
+ ($sc-dispatch p-12577 '(any any . any))))
+ (if (if tmp-13008
(@apply
- (lambda (x-15063 dots-15064 ys-15065)
- (if (if (if (vector? dots-15064)
+ (lambda (x-13012 dots-13013 ys-13014)
+ (if (if (if (vector? dots-13013)
(if (= (vector-length
- dots-15064)
+ dots-13013)
4)
(eq? (vector-ref
- dots-15064
+ dots-13013
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref dots-15064 1))
+ (vector-ref dots-13013 1))
#f)
- (if (eq? (if (if (vector? dots-15064)
+ (if (eq? (if (if (vector? dots-13013)
(if (= (vector-length
- dots-15064)
+ dots-13013)
4)
(eq? (vector-ref
- dots-15064
+ dots-13013
0)
'syntax-object)
#f)
#f)
- (vector-ref dots-15064 1)
- dots-15064)
+ (vector-ref dots-13013 1)
+ dots-13013)
(if (if (= (vector-length
'#(syntax-object
...
@@ -13826,7 +13783,7 @@
#(ribcage
#(x)
#((top))
- #("l-*-4317"))
+ #("l-*-2266"))
#(ribcage
(lambda-var-list
gen-var
@@ -14108,146 +14065,146 @@
(top)
(top)
(top))
- ("l-*-2527"
- "l-*-2525"
- "l-*-2523"
- "l-*-2521"
- "l-*-2519"
- "l-*-2517"
- "l-*-2515"
- "l-*-2513"
- "l-*-2511"
- "l-*-2509"
- "l-*-2507"
- "l-*-2505"
- "l-*-2503"
- "l-*-2501"
- "l-*-2499"
- "l-*-2497"
- "l-*-2495"
- "l-*-2493"
- "l-*-2491"
- "l-*-2489"
- "l-*-2487"
- "l-*-2485"
- "l-*-2483"
- "l-*-2481"
- "l-*-2479"
- "l-*-2477"
- "l-*-2475"
- "l-*-2473"
- "l-*-2471"
- "l-*-2469"
- "l-*-2467"
- "l-*-2465"
- "l-*-2463"
- "l-*-2461"
- "l-*-2459"
- "l-*-2457"
- "l-*-2455"
- "l-*-2453"
- "l-*-2451"
- "l-*-2450"
- "l-*-2448"
- "l-*-2445"
- "l-*-2444"
- "l-*-2443"
- "l-*-2441"
- "l-*-2440"
- "l-*-2438"
- "l-*-2436"
- "l-*-2434"
- "l-*-2432"
- "l-*-2430"
- "l-*-2428"
- "l-*-2426"
- "l-*-2424"
- "l-*-2421"
- "l-*-2419"
- "l-*-2418"
- "l-*-2416"
- "l-*-2414"
- "l-*-2412"
- "l-*-2410"
- "l-*-2409"
- "l-*-2408"
- "l-*-2407"
- "l-*-2405"
- "l-*-2404"
- "l-*-2401"
- "l-*-2399"
- "l-*-2397"
- "l-*-2395"
- "l-*-2393"
- "l-*-2391"
- "l-*-2389"
- "l-*-2388"
- "l-*-2387"
- "l-*-2385"
- "l-*-2383"
- "l-*-2382"
- "l-*-2379"
- "l-*-2378"
- "l-*-2376"
- "l-*-2374"
- "l-*-2372"
- "l-*-2370"
- "l-*-2368"
- "l-*-2366"
- "l-*-2364"
- "l-*-2362"
- "l-*-2360"
- "l-*-2357"
- "l-*-2355"
- "l-*-2353"
- "l-*-2351"
- "l-*-2349"
- "l-*-2347"
- "l-*-2345"
- "l-*-2343"
- "l-*-2341"
- "l-*-2339"
- "l-*-2337"
- "l-*-2335"
- "l-*-2333"
- "l-*-2331"
- "l-*-2329"
- "l-*-2327"
- "l-*-2325"
- "l-*-2323"
- "l-*-2321"
- "l-*-2319"
- "l-*-2317"
- "l-*-2315"
- "l-*-2313"
- "l-*-2311"
- "l-*-2309"
- "l-*-2307"
- "l-*-2306"
- "l-*-2305"
- "l-*-2304"
- "l-*-2303"
- "l-*-2301"
- "l-*-2299"
- "l-*-2297"
- "l-*-2294"
- "l-*-2292"
- "l-*-2290"
- "l-*-2288"
- "l-*-2286"
- "l-*-2284"
- "l-*-2282"
- "l-*-2280"
- "l-*-2278"
- "l-*-2276"
- "l-*-2274"
- "l-*-2272"
- "l-*-2270"
- "l-*-2268"
- "l-*-2266"
- "l-*-2264"
- "l-*-2262"
- "l-*-2260"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -14255,9 +14212,9 @@
((top)
(top)
(top))
- ("l-*-2098"
- "l-*-2097"
- "l-*-2096")))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
(hygiene
guile)))
4)
@@ -14272,7 +14229,7 @@
#(ribcage
#(x)
#((top))
- #("l-*-4317"))
+ #("l-*-2266"))
#(ribcage
(lambda-var-list
gen-var
@@ -14554,159 +14511,159 @@
(top)
(top)
(top))
- ("l-*-2527"
- "l-*-2525"
- "l-*-2523"
- "l-*-2521"
- "l-*-2519"
- "l-*-2517"
- "l-*-2515"
- "l-*-2513"
- "l-*-2511"
- "l-*-2509"
- "l-*-2507"
- "l-*-2505"
- "l-*-2503"
- "l-*-2501"
- "l-*-2499"
- "l-*-2497"
- "l-*-2495"
- "l-*-2493"
- "l-*-2491"
- "l-*-2489"
- "l-*-2487"
- "l-*-2485"
- "l-*-2483"
- "l-*-2481"
- "l-*-2479"
- "l-*-2477"
- "l-*-2475"
- "l-*-2473"
- "l-*-2471"
- "l-*-2469"
- "l-*-2467"
- "l-*-2465"
- "l-*-2463"
- "l-*-2461"
- "l-*-2459"
- "l-*-2457"
- "l-*-2455"
- "l-*-2453"
- "l-*-2451"
- "l-*-2450"
- "l-*-2448"
- "l-*-2445"
- "l-*-2444"
- "l-*-2443"
- "l-*-2441"
- "l-*-2440"
- "l-*-2438"
- "l-*-2436"
- "l-*-2434"
- "l-*-2432"
- "l-*-2430"
- "l-*-2428"
- "l-*-2426"
- "l-*-2424"
- "l-*-2421"
- "l-*-2419"
- "l-*-2418"
- "l-*-2416"
- "l-*-2414"
- "l-*-2412"
- "l-*-2410"
- "l-*-2409"
- "l-*-2408"
- "l-*-2407"
- "l-*-2405"
- "l-*-2404"
- "l-*-2401"
- "l-*-2399"
- "l-*-2397"
- "l-*-2395"
- "l-*-2393"
- "l-*-2391"
- "l-*-2389"
- "l-*-2388"
- "l-*-2387"
- "l-*-2385"
- "l-*-2383"
- "l-*-2382"
- "l-*-2379"
- "l-*-2378"
- "l-*-2376"
- "l-*-2374"
- "l-*-2372"
- "l-*-2370"
- "l-*-2368"
- "l-*-2366"
- "l-*-2364"
- "l-*-2362"
- "l-*-2360"
- "l-*-2357"
- "l-*-2355"
- "l-*-2353"
- "l-*-2351"
- "l-*-2349"
- "l-*-2347"
- "l-*-2345"
- "l-*-2343"
- "l-*-2341"
- "l-*-2339"
- "l-*-2337"
- "l-*-2335"
- "l-*-2333"
- "l-*-2331"
- "l-*-2329"
- "l-*-2327"
- "l-*-2325"
- "l-*-2323"
- "l-*-2321"
- "l-*-2319"
- "l-*-2317"
- "l-*-2315"
- "l-*-2313"
- "l-*-2311"
- "l-*-2309"
- "l-*-2307"
- "l-*-2306"
- "l-*-2305"
- "l-*-2304"
- "l-*-2303"
- "l-*-2301"
- "l-*-2299"
- "l-*-2297"
- "l-*-2294"
- "l-*-2292"
- "l-*-2290"
- "l-*-2288"
- "l-*-2286"
- "l-*-2284"
- "l-*-2282"
- "l-*-2280"
- "l-*-2278"
- "l-*-2276"
- "l-*-2274"
- "l-*-2272"
- "l-*-2270"
- "l-*-2268"
- "l-*-2266"
- "l-*-2264"
- "l-*-2262"
- "l-*-2260"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("l-*-2098"
- "l-*-2097"
- "l-*-2096")))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
(hygiene guile))))
- (eq? (id-var-name-6364
- dots-15064
+ (eq? (id-var-name-4313
+ dots-13013
'(()))
- (id-var-name-6364
+ (id-var-name-4313
'#(syntax-object
...
((top)
@@ -14715,7 +14672,7 @@
#(ribcage
#(x)
#((top))
- #("l-*-4317"))
+ #("l-*-2266"))
#(ribcage
(lambda-var-list
gen-var
@@ -14997,249 +14954,249 @@
(top)
(top)
(top))
- ("l-*-2527"
- "l-*-2525"
- "l-*-2523"
- "l-*-2521"
- "l-*-2519"
- "l-*-2517"
- "l-*-2515"
- "l-*-2513"
- "l-*-2511"
- "l-*-2509"
- "l-*-2507"
- "l-*-2505"
- "l-*-2503"
- "l-*-2501"
- "l-*-2499"
- "l-*-2497"
- "l-*-2495"
- "l-*-2493"
- "l-*-2491"
- "l-*-2489"
- "l-*-2487"
- "l-*-2485"
- "l-*-2483"
- "l-*-2481"
- "l-*-2479"
- "l-*-2477"
- "l-*-2475"
- "l-*-2473"
- "l-*-2471"
- "l-*-2469"
- "l-*-2467"
- "l-*-2465"
- "l-*-2463"
- "l-*-2461"
- "l-*-2459"
- "l-*-2457"
- "l-*-2455"
- "l-*-2453"
- "l-*-2451"
- "l-*-2450"
- "l-*-2448"
- "l-*-2445"
- "l-*-2444"
- "l-*-2443"
- "l-*-2441"
- "l-*-2440"
- "l-*-2438"
- "l-*-2436"
- "l-*-2434"
- "l-*-2432"
- "l-*-2430"
- "l-*-2428"
- "l-*-2426"
- "l-*-2424"
- "l-*-2421"
- "l-*-2419"
- "l-*-2418"
- "l-*-2416"
- "l-*-2414"
- "l-*-2412"
- "l-*-2410"
- "l-*-2409"
- "l-*-2408"
- "l-*-2407"
- "l-*-2405"
- "l-*-2404"
- "l-*-2401"
- "l-*-2399"
- "l-*-2397"
- "l-*-2395"
- "l-*-2393"
- "l-*-2391"
- "l-*-2389"
- "l-*-2388"
- "l-*-2387"
- "l-*-2385"
- "l-*-2383"
- "l-*-2382"
- "l-*-2379"
- "l-*-2378"
- "l-*-2376"
- "l-*-2374"
- "l-*-2372"
- "l-*-2370"
- "l-*-2368"
- "l-*-2366"
- "l-*-2364"
- "l-*-2362"
- "l-*-2360"
- "l-*-2357"
- "l-*-2355"
- "l-*-2353"
- "l-*-2351"
- "l-*-2349"
- "l-*-2347"
- "l-*-2345"
- "l-*-2343"
- "l-*-2341"
- "l-*-2339"
- "l-*-2337"
- "l-*-2335"
- "l-*-2333"
- "l-*-2331"
- "l-*-2329"
- "l-*-2327"
- "l-*-2325"
- "l-*-2323"
- "l-*-2321"
- "l-*-2319"
- "l-*-2317"
- "l-*-2315"
- "l-*-2313"
- "l-*-2311"
- "l-*-2309"
- "l-*-2307"
- "l-*-2306"
- "l-*-2305"
- "l-*-2304"
- "l-*-2303"
- "l-*-2301"
- "l-*-2299"
- "l-*-2297"
- "l-*-2294"
- "l-*-2292"
- "l-*-2290"
- "l-*-2288"
- "l-*-2286"
- "l-*-2284"
- "l-*-2282"
- "l-*-2280"
- "l-*-2278"
- "l-*-2276"
- "l-*-2274"
- "l-*-2272"
- "l-*-2270"
- "l-*-2268"
- "l-*-2266"
- "l-*-2264"
- "l-*-2262"
- "l-*-2260"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("l-*-2098"
- "l-*-2097"
- "l-*-2096")))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
(hygiene guile))
'(())))
#f)
#f))
- tmp-15059)
+ tmp-13008)
#f)
(@apply
- (lambda (x-15165 dots-15166 ys-15167)
+ (lambda (x-13114 dots-13115 ys-13116)
(call-with-values
(lambda ()
- (cvt*-14623
- ys-15167
- n-14629
- ids-14630))
- (lambda (ys-15170 ids-15171)
+ (cvt*-12572
+ ys-13116
+ n-12578
+ ids-12579))
+ (lambda (ys-13119 ids-13120)
(call-with-values
(lambda ()
- (cvt-14625
- x-15165
- (#{1+}# n-14629)
- ids-15171))
- (lambda (x-15172 ids-15173)
+ (cvt-12574
+ x-13114
+ (#{1+}# n-12578)
+ ids-13120))
+ (lambda (x-13121 ids-13122)
(call-with-values
(lambda ()
- (v-reverse-14624 ys-15170))
- (lambda (ys-15206 e-15207)
+ (v-reverse-12573 ys-13119))
+ (lambda (ys-13155 e-13156)
(values
(vector
'each+
- x-15172
- ys-15206
- e-15207)
- ids-15173))))))))
- tmp-15059)
- (let ((tmp-15208
- ($sc-dispatch p-14628 '(any . any))))
- (if tmp-15208
+ x-13121
+ ys-13155
+ e-13156)
+ ids-13122))))))))
+ tmp-13008)
+ (let ((tmp-13157
+ ($sc-dispatch p-12577 '(any . any))))
+ (if tmp-13157
(@apply
- (lambda (x-15212 y-15213)
+ (lambda (x-13161 y-13162)
(call-with-values
(lambda ()
- (cvt-14625
- y-15213
- n-14629
- ids-14630))
- (lambda (y-15214 ids-15215)
+ (cvt-12574
+ y-13162
+ n-12578
+ ids-12579))
+ (lambda (y-13163 ids-13164)
(call-with-values
(lambda ()
- (cvt-14625
- x-15212
- n-14629
- ids-15215))
- (lambda (x-15216 ids-15217)
+ (cvt-12574
+ x-13161
+ n-12578
+ ids-13164))
+ (lambda (x-13165 ids-13166)
(values
- (cons x-15216 y-15214)
- ids-15217))))))
- tmp-15208)
- (let ((tmp-15218
- ($sc-dispatch p-14628 '())))
- (if tmp-15218
+ (cons x-13165 y-13163)
+ ids-13166))))))
+ tmp-13157)
+ (let ((tmp-13167
+ ($sc-dispatch p-12577 '())))
+ (if tmp-13167
(@apply
- (lambda () (values '() ids-14630))
- tmp-15218)
- (let ((tmp-15222
+ (lambda () (values '() ids-12579))
+ tmp-13167)
+ (let ((tmp-13171
($sc-dispatch
- p-14628
+ p-12577
'#(vector each-any))))
- (if tmp-15222
+ (if tmp-13171
(@apply
- (lambda (x-15226)
+ (lambda (x-13175)
(call-with-values
(lambda ()
- (cvt-14625
- x-15226
- n-14629
- ids-14630))
- (lambda (p-15227 ids-15228)
+ (cvt-12574
+ x-13175
+ n-12578
+ ids-12579))
+ (lambda (p-13176 ids-13177)
(values
- (vector 'vector p-15227)
- ids-15228))))
- tmp-15222)
+ (vector 'vector p-13176)
+ ids-13177))))
+ tmp-13171)
(values
(vector
'atom
- (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)))
+ (strip-4343 p-12577 '(())))
+ ids-12579)))))))))))))))
+ (cvt-12574 pattern-12570 0 '()))))
+ (build-dispatch-call-10974
+ (lambda (pvars-13290 exp-13291 y-13292 r-13293 mod-13294)
+ (let ((ids-13295 (map car pvars-13290)))
(begin
- (map cdr pvars-15341)
- (let ((labels-15348 (gen-labels-6348 ids-15346))
- (new-vars-15349 (map gen-var-6395 ids-15346)))
- (build-application-6312
+ (map cdr pvars-13290)
+ (let ((labels-13297 (gen-labels-4297 ids-13295))
+ (new-vars-13298 (map gen-var-4344 ids-13295)))
+ (build-application-4261
#f
(if (equal? (module-name (current-module)) '(guile))
(make-struct/no-tail
@@ -15252,73 +15209,73 @@
'(guile)
'apply
#f))
- (list (build-simple-lambda-6321
+ (list (build-simple-lambda-4270
#f
- (map syntax->datum ids-15346)
+ (map syntax->datum ids-13295)
#f
- new-vars-15349
+ new-vars-13298
'()
- (expand-6381
- exp-15342
- (extend-env-6339
- labels-15348
- (map (lambda (var-15672 level-15673)
+ (expand-4330
+ exp-13291
+ (extend-env-4288
+ labels-13297
+ (map (lambda (var-13621 level-13622)
(cons 'syntax
- (cons var-15672 level-15673)))
- new-vars-15349
- (map cdr pvars-15341))
- r-15344)
- (make-binding-wrap-6359
- ids-15346
- labels-15348
+ (cons var-13621 level-13622)))
+ new-vars-13298
+ (map cdr pvars-13290))
+ r-13293)
+ (make-binding-wrap-4308
+ ids-13295
+ labels-13297
'(()))
- mod-15345))
- y-15343)))))))
- (gen-clause-13026
- (lambda (x-13993
- keys-13994
- clauses-13995
- r-13996
- pat-13997
- fender-13998
- exp-13999
- mod-14000)
+ mod-13294))
+ y-13292)))))))
+ (gen-clause-10975
+ (lambda (x-11942
+ keys-11943
+ clauses-11944
+ r-11945
+ pat-11946
+ fender-11947
+ exp-11948
+ mod-11949)
(call-with-values
(lambda ()
- (convert-pattern-13024 pat-13997 keys-13994))
- (lambda (p-14155 pvars-14156)
- (if (not (distinct-bound-ids?-6372 (map car pvars-14156)))
+ (convert-pattern-10973 pat-11946 keys-11943))
+ (lambda (p-12104 pvars-12105)
+ (if (not (distinct-bound-ids?-4321 (map car pvars-12105)))
(syntax-violation
'syntax-case
"duplicate pattern variable"
- pat-13997)
+ pat-11946)
(if (not (and-map
- (lambda (x-14272)
- (not (let ((x-14276 (car x-14272)))
- (if (if (if (vector? x-14276)
+ (lambda (x-12221)
+ (not (let ((x-12225 (car x-12221)))
+ (if (if (if (vector? x-12225)
(if (= (vector-length
- x-14276)
+ x-12225)
4)
(eq? (vector-ref
- x-14276
+ x-12225
0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref x-14276 1))
+ (symbol? (vector-ref x-12225 1))
#f)
- (if (eq? (if (if (vector? x-14276)
+ (if (eq? (if (if (vector? x-12225)
(if (= (vector-length
- x-14276)
+ x-12225)
4)
(eq? (vector-ref
- x-14276
+ x-12225
0)
'syntax-object)
#f)
#f)
- (vector-ref x-14276 1)
- x-14276)
+ (vector-ref x-12225 1)
+ x-12225)
(if (if (= (vector-length
'#(syntax-object
...
@@ -15334,7 +15291,7 @@
#(ribcage
#(x)
#((top))
- #("l-*-4317"))
+ #("l-*-2266"))
#(ribcage
(lambda-var-list
gen-var
@@ -15616,146 +15573,146 @@
(top)
(top)
(top))
- ("l-*-2527"
- "l-*-2525"
- "l-*-2523"
- "l-*-2521"
- "l-*-2519"
- "l-*-2517"
- "l-*-2515"
- "l-*-2513"
- "l-*-2511"
- "l-*-2509"
- "l-*-2507"
- "l-*-2505"
- "l-*-2503"
- "l-*-2501"
- "l-*-2499"
- "l-*-2497"
- "l-*-2495"
- "l-*-2493"
- "l-*-2491"
- "l-*-2489"
- "l-*-2487"
- "l-*-2485"
- "l-*-2483"
- "l-*-2481"
- "l-*-2479"
- "l-*-2477"
- "l-*-2475"
- "l-*-2473"
- "l-*-2471"
- "l-*-2469"
- "l-*-2467"
- "l-*-2465"
- "l-*-2463"
- "l-*-2461"
- "l-*-2459"
- "l-*-2457"
- "l-*-2455"
- "l-*-2453"
- "l-*-2451"
- "l-*-2450"
- "l-*-2448"
- "l-*-2445"
- "l-*-2444"
- "l-*-2443"
- "l-*-2441"
- "l-*-2440"
- "l-*-2438"
- "l-*-2436"
- "l-*-2434"
- "l-*-2432"
- "l-*-2430"
- "l-*-2428"
- "l-*-2426"
- "l-*-2424"
- "l-*-2421"
- "l-*-2419"
- "l-*-2418"
- "l-*-2416"
- "l-*-2414"
- "l-*-2412"
- "l-*-2410"
- "l-*-2409"
- "l-*-2408"
- "l-*-2407"
- "l-*-2405"
- "l-*-2404"
- "l-*-2401"
- "l-*-2399"
- "l-*-2397"
- "l-*-2395"
- "l-*-2393"
- "l-*-2391"
- "l-*-2389"
- "l-*-2388"
- "l-*-2387"
- "l-*-2385"
- "l-*-2383"
- "l-*-2382"
- "l-*-2379"
- "l-*-2378"
- "l-*-2376"
- "l-*-2374"
- "l-*-2372"
- "l-*-2370"
- "l-*-2368"
- "l-*-2366"
- "l-*-2364"
- "l-*-2362"
- "l-*-2360"
- "l-*-2357"
- "l-*-2355"
- "l-*-2353"
- "l-*-2351"
- "l-*-2349"
- "l-*-2347"
- "l-*-2345"
- "l-*-2343"
- "l-*-2341"
- "l-*-2339"
- "l-*-2337"
- "l-*-2335"
- "l-*-2333"
- "l-*-2331"
- "l-*-2329"
- "l-*-2327"
- "l-*-2325"
- "l-*-2323"
- "l-*-2321"
- "l-*-2319"
- "l-*-2317"
- "l-*-2315"
- "l-*-2313"
- "l-*-2311"
- "l-*-2309"
- "l-*-2307"
- "l-*-2306"
- "l-*-2305"
- "l-*-2304"
- "l-*-2303"
- "l-*-2301"
- "l-*-2299"
- "l-*-2297"
- "l-*-2294"
- "l-*-2292"
- "l-*-2290"
- "l-*-2288"
- "l-*-2286"
- "l-*-2284"
- "l-*-2282"
- "l-*-2280"
- "l-*-2278"
- "l-*-2276"
- "l-*-2274"
- "l-*-2272"
- "l-*-2270"
- "l-*-2268"
- "l-*-2266"
- "l-*-2264"
- "l-*-2262"
- "l-*-2260"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -15763,9 +15720,9 @@
((top)
(top)
(top))
- ("l-*-2098"
- "l-*-2097"
- "l-*-2096")))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
(hygiene
guile)))
4)
@@ -15780,7 +15737,7 @@
#(ribcage
#(x)
#((top))
- #("l-*-4317"))
+ #("l-*-2266"))
#(ribcage
(lambda-var-list
gen-var
@@ -16062,159 +16019,159 @@
(top)
(top)
(top))
- ("l-*-2527"
- "l-*-2525"
- "l-*-2523"
- "l-*-2521"
- "l-*-2519"
- "l-*-2517"
- "l-*-2515"
- "l-*-2513"
- "l-*-2511"
- "l-*-2509"
- "l-*-2507"
- "l-*-2505"
- "l-*-2503"
- "l-*-2501"
- "l-*-2499"
- "l-*-2497"
- "l-*-2495"
- "l-*-2493"
- "l-*-2491"
- "l-*-2489"
- "l-*-2487"
- "l-*-2485"
- "l-*-2483"
- "l-*-2481"
- "l-*-2479"
- "l-*-2477"
- "l-*-2475"
- "l-*-2473"
- "l-*-2471"
- "l-*-2469"
- "l-*-2467"
- "l-*-2465"
- "l-*-2463"
- "l-*-2461"
- "l-*-2459"
- "l-*-2457"
- "l-*-2455"
- "l-*-2453"
- "l-*-2451"
- "l-*-2450"
- "l-*-2448"
- "l-*-2445"
- "l-*-2444"
- "l-*-2443"
- "l-*-2441"
- "l-*-2440"
- "l-*-2438"
- "l-*-2436"
- "l-*-2434"
- "l-*-2432"
- "l-*-2430"
- "l-*-2428"
- "l-*-2426"
- "l-*-2424"
- "l-*-2421"
- "l-*-2419"
- "l-*-2418"
- "l-*-2416"
- "l-*-2414"
- "l-*-2412"
- "l-*-2410"
- "l-*-2409"
- "l-*-2408"
- "l-*-2407"
- "l-*-2405"
- "l-*-2404"
- "l-*-2401"
- "l-*-2399"
- "l-*-2397"
- "l-*-2395"
- "l-*-2393"
- "l-*-2391"
- "l-*-2389"
- "l-*-2388"
- "l-*-2387"
- "l-*-2385"
- "l-*-2383"
- "l-*-2382"
- "l-*-2379"
- "l-*-2378"
- "l-*-2376"
- "l-*-2374"
- "l-*-2372"
- "l-*-2370"
- "l-*-2368"
- "l-*-2366"
- "l-*-2364"
- "l-*-2362"
- "l-*-2360"
- "l-*-2357"
- "l-*-2355"
- "l-*-2353"
- "l-*-2351"
- "l-*-2349"
- "l-*-2347"
- "l-*-2345"
- "l-*-2343"
- "l-*-2341"
- "l-*-2339"
- "l-*-2337"
- "l-*-2335"
- "l-*-2333"
- "l-*-2331"
- "l-*-2329"
- "l-*-2327"
- "l-*-2325"
- "l-*-2323"
- "l-*-2321"
- "l-*-2319"
- "l-*-2317"
- "l-*-2315"
- "l-*-2313"
- "l-*-2311"
- "l-*-2309"
- "l-*-2307"
- "l-*-2306"
- "l-*-2305"
- "l-*-2304"
- "l-*-2303"
- "l-*-2301"
- "l-*-2299"
- "l-*-2297"
- "l-*-2294"
- "l-*-2292"
- "l-*-2290"
- "l-*-2288"
- "l-*-2286"
- "l-*-2284"
- "l-*-2282"
- "l-*-2280"
- "l-*-2278"
- "l-*-2276"
- "l-*-2274"
- "l-*-2272"
- "l-*-2270"
- "l-*-2268"
- "l-*-2266"
- "l-*-2264"
- "l-*-2262"
- "l-*-2260"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("l-*-2098"
- "l-*-2097"
- "l-*-2096")))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
(hygiene guile))))
- (eq? (id-var-name-6364
- x-14276
+ (eq? (id-var-name-4313
+ x-12225
'(()))
- (id-var-name-6364
+ (id-var-name-4313
'#(syntax-object
...
((top)
@@ -16223,7 +16180,7 @@
#(ribcage
#(x)
#((top))
- #("l-*-4317"))
+ #("l-*-2266"))
#(ribcage
(lambda-var-list
gen-var
@@ -16505,194 +16462,194 @@
(top)
(top)
(top))
- ("l-*-2527"
- "l-*-2525"
- "l-*-2523"
- "l-*-2521"
- "l-*-2519"
- "l-*-2517"
- "l-*-2515"
- "l-*-2513"
- "l-*-2511"
- "l-*-2509"
- "l-*-2507"
- "l-*-2505"
- "l-*-2503"
- "l-*-2501"
- "l-*-2499"
- "l-*-2497"
- "l-*-2495"
- "l-*-2493"
- "l-*-2491"
- "l-*-2489"
- "l-*-2487"
- "l-*-2485"
- "l-*-2483"
- "l-*-2481"
- "l-*-2479"
- "l-*-2477"
- "l-*-2475"
- "l-*-2473"
- "l-*-2471"
- "l-*-2469"
- "l-*-2467"
- "l-*-2465"
- "l-*-2463"
- "l-*-2461"
- "l-*-2459"
- "l-*-2457"
- "l-*-2455"
- "l-*-2453"
- "l-*-2451"
- "l-*-2450"
- "l-*-2448"
- "l-*-2445"
- "l-*-2444"
- "l-*-2443"
- "l-*-2441"
- "l-*-2440"
- "l-*-2438"
- "l-*-2436"
- "l-*-2434"
- "l-*-2432"
- "l-*-2430"
- "l-*-2428"
- "l-*-2426"
- "l-*-2424"
- "l-*-2421"
- "l-*-2419"
- "l-*-2418"
- "l-*-2416"
- "l-*-2414"
- "l-*-2412"
- "l-*-2410"
- "l-*-2409"
- "l-*-2408"
- "l-*-2407"
- "l-*-2405"
- "l-*-2404"
- "l-*-2401"
- "l-*-2399"
- "l-*-2397"
- "l-*-2395"
- "l-*-2393"
- "l-*-2391"
- "l-*-2389"
- "l-*-2388"
- "l-*-2387"
- "l-*-2385"
- "l-*-2383"
- "l-*-2382"
- "l-*-2379"
- "l-*-2378"
- "l-*-2376"
- "l-*-2374"
- "l-*-2372"
- "l-*-2370"
- "l-*-2368"
- "l-*-2366"
- "l-*-2364"
- "l-*-2362"
- "l-*-2360"
- "l-*-2357"
- "l-*-2355"
- "l-*-2353"
- "l-*-2351"
- "l-*-2349"
- "l-*-2347"
- "l-*-2345"
- "l-*-2343"
- "l-*-2341"
- "l-*-2339"
- "l-*-2337"
- "l-*-2335"
- "l-*-2333"
- "l-*-2331"
- "l-*-2329"
- "l-*-2327"
- "l-*-2325"
- "l-*-2323"
- "l-*-2321"
- "l-*-2319"
- "l-*-2317"
- "l-*-2315"
- "l-*-2313"
- "l-*-2311"
- "l-*-2309"
- "l-*-2307"
- "l-*-2306"
- "l-*-2305"
- "l-*-2304"
- "l-*-2303"
- "l-*-2301"
- "l-*-2299"
- "l-*-2297"
- "l-*-2294"
- "l-*-2292"
- "l-*-2290"
- "l-*-2288"
- "l-*-2286"
- "l-*-2284"
- "l-*-2282"
- "l-*-2280"
- "l-*-2278"
- "l-*-2276"
- "l-*-2274"
- "l-*-2272"
- "l-*-2270"
- "l-*-2268"
- "l-*-2266"
- "l-*-2264"
- "l-*-2262"
- "l-*-2260"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("l-*-2098"
- "l-*-2097"
- "l-*-2096")))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
(hygiene guile))
'(())))
#f)
#f))))
- pvars-14156))
+ pvars-12105))
(syntax-violation
'syntax-case
"misplaced ellipsis"
- pat-13997)
- (let ((y-14352
+ pat-11946)
+ (let ((y-12301
(gensym
(string-append (symbol->string 'tmp) "-"))))
- (build-application-6312
+ (build-application-4261
#f
- (let ((req-14495 (list 'tmp))
- (vars-14497 (list y-14352))
- (exp-14499
- (let ((y-14516
+ (let ((req-12444 (list 'tmp))
+ (vars-12446 (list y-12301))
+ (exp-12448
+ (let ((y-12465
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
#f
'tmp
- y-14352)))
- (let ((test-exp-14520
- (let ((tmp-14529
+ y-12301)))
+ (let ((test-exp-12469
+ (let ((tmp-12478
($sc-dispatch
- fender-13998
+ fender-11947
'#(atom #t))))
- (if tmp-14529
+ (if tmp-12478
(@apply
- (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
+ (lambda () y-12465)
+ tmp-12478)
+ (let ((then-exp-12496
+ (build-dispatch-call-10974
+ pvars-12105
+ fender-11947
+ y-12465
+ r-11945
+ mod-11949))
+ (else-exp-12497
(make-struct/no-tail
(vector-ref
%expanded-vtables
@@ -16704,48 +16661,48 @@
%expanded-vtables
10)
#f
- 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)))
+ y-12465
+ then-exp-12496
+ else-exp-12497)))))
+ (then-exp-12470
+ (build-dispatch-call-10974
+ pvars-12105
+ exp-11948
+ y-12465
+ r-11945
+ mod-11949))
+ (else-exp-12471
+ (gen-syntax-case-10976
+ x-11942
+ keys-11943
+ clauses-11944
+ r-11945
+ mod-11949)))
(make-struct/no-tail
(vector-ref %expanded-vtables 10)
#f
- test-exp-14520
- then-exp-14521
- else-exp-14522)))))
- (let ((body-14504
+ test-exp-12469
+ then-exp-12470
+ else-exp-12471)))))
+ (let ((body-12453
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
#f
- req-14495
+ req-12444
#f
#f
#f
'()
- vars-14497
- exp-14499
+ vars-12446
+ exp-12448
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
#f
'()
- body-14504)))
- (list (if (eq? p-14155 'any)
- (let ((fun-exp-14570
+ body-12453)))
+ (list (if (eq? p-12104 'any)
+ (let ((fun-exp-12519
(if (equal?
(module-name (current-module))
'(guile))
@@ -16759,13 +16716,13 @@
'(guile)
'list
#f)))
- (arg-exps-14571 (list x-13993)))
+ (arg-exps-12520 (list x-11942)))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
#f
- fun-exp-14570
- arg-exps-14571))
- (let ((fun-exp-14594
+ fun-exp-12519
+ arg-exps-12520))
+ (let ((fun-exp-12543
(if (equal?
(module-name (current-module))
'(guile))
@@ -16779,27 +16736,27 @@
'(guile)
'$sc-dispatch
#f)))
- (arg-exps-14595
- (list x-13993
+ (arg-exps-12544
+ (list x-11942
(make-struct/no-tail
(vector-ref
%expanded-vtables
1)
#f
- p-14155))))
+ p-12104))))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
#f
- 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
+ fun-exp-12543
+ arg-exps-12544))))))))))))
+ (gen-syntax-case-10976
+ (lambda (x-11375
+ keys-11376
+ clauses-11377
+ r-11378
+ mod-11379)
+ (if (null? clauses-11377)
+ (let ((fun-exp-11384
(if (equal? (module-name (current-module)) '(guile))
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
@@ -16811,7 +16768,7 @@
'(guile)
'syntax-violation
#f)))
- (arg-exps-13436
+ (arg-exps-11385
(list (make-struct/no-tail
(vector-ref %expanded-vtables 1)
#f
@@ -16820,58 +16777,58 @@
(vector-ref %expanded-vtables 1)
#f
"source expression failed to match any pattern")
- x-13426)))
+ x-11375)))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
#f
- fun-exp-13435
- arg-exps-13436))
- (let ((tmp-13469 (car clauses-13428)))
- (let ((tmp-13470 ($sc-dispatch tmp-13469 '(any any))))
- (if tmp-13470
+ fun-exp-11384
+ arg-exps-11385))
+ (let ((tmp-11418 (car clauses-11377)))
+ (let ((tmp-11419 ($sc-dispatch tmp-11418 '(any any))))
+ (if tmp-11419
(@apply
- (lambda (pat-13472 exp-13473)
- (if (if (if (symbol? pat-13472)
+ (lambda (pat-11421 exp-11422)
+ (if (if (if (symbol? pat-11421)
#t
- (if (if (vector? pat-13472)
- (if (= (vector-length pat-13472) 4)
- (eq? (vector-ref pat-13472 0)
+ (if (if (vector? pat-11421)
+ (if (= (vector-length pat-11421) 4)
+ (eq? (vector-ref pat-11421 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref pat-13472 1))
+ (symbol? (vector-ref pat-11421 1))
#f))
(and-map
- (lambda (x-13500)
- (not (if (eq? (if (if (vector? pat-13472)
+ (lambda (x-11449)
+ (not (if (eq? (if (if (vector? pat-11421)
(if (= (vector-length
- pat-13472)
+ pat-11421)
4)
(eq? (vector-ref
- pat-13472
+ pat-11421
0)
'syntax-object)
#f)
#f)
- (vector-ref pat-13472 1)
- pat-13472)
- (if (if (vector? x-13500)
+ (vector-ref pat-11421 1)
+ pat-11421)
+ (if (if (vector? x-11449)
(if (= (vector-length
- x-13500)
+ x-11449)
4)
(eq? (vector-ref
- x-13500
+ x-11449
0)
'syntax-object)
#f)
#f)
- (vector-ref x-13500 1)
- x-13500))
- (eq? (id-var-name-6364
- pat-13472
+ (vector-ref x-11449 1)
+ x-11449))
+ (eq? (id-var-name-4313
+ pat-11421
'(()))
- (id-var-name-6364
- x-13500
+ (id-var-name-4313
+ x-11449
'(())))
#f)))
(cons '#(syntax-object
@@ -16880,26 +16837,26 @@
#(ribcage
#(pat exp)
#((top) (top))
- #("l-*-5941" "l-*-5942"))
+ #("l-*-3890" "l-*-3891"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
#((top) (top) (top) (top) (top))
- #("l-*-5930"
- "l-*-5931"
- "l-*-5932"
- "l-*-5933"
- "l-*-5934"))
+ #("l-*-3879"
+ "l-*-3880"
+ "l-*-3881"
+ "l-*-3882"
+ "l-*-3883"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("l-*-5748"
- "l-*-5746"
- "l-*-5744"
- "l-*-5742"))
+ ("l-*-3697"
+ "l-*-3695"
+ "l-*-3693"
+ "l-*-3691"))
#(ribcage
(lambda-var-list
gen-var
@@ -17181,156 +17138,154 @@
(top)
(top)
(top))
- ("l-*-2527"
- "l-*-2525"
- "l-*-2523"
- "l-*-2521"
- "l-*-2519"
- "l-*-2517"
- "l-*-2515"
- "l-*-2513"
- "l-*-2511"
- "l-*-2509"
- "l-*-2507"
- "l-*-2505"
- "l-*-2503"
- "l-*-2501"
- "l-*-2499"
- "l-*-2497"
- "l-*-2495"
- "l-*-2493"
- "l-*-2491"
- "l-*-2489"
- "l-*-2487"
- "l-*-2485"
- "l-*-2483"
- "l-*-2481"
- "l-*-2479"
- "l-*-2477"
- "l-*-2475"
- "l-*-2473"
- "l-*-2471"
- "l-*-2469"
- "l-*-2467"
- "l-*-2465"
- "l-*-2463"
- "l-*-2461"
- "l-*-2459"
- "l-*-2457"
- "l-*-2455"
- "l-*-2453"
- "l-*-2451"
- "l-*-2450"
- "l-*-2448"
- "l-*-2445"
- "l-*-2444"
- "l-*-2443"
- "l-*-2441"
- "l-*-2440"
- "l-*-2438"
- "l-*-2436"
- "l-*-2434"
- "l-*-2432"
- "l-*-2430"
- "l-*-2428"
- "l-*-2426"
- "l-*-2424"
- "l-*-2421"
- "l-*-2419"
- "l-*-2418"
- "l-*-2416"
- "l-*-2414"
- "l-*-2412"
- "l-*-2410"
- "l-*-2409"
- "l-*-2408"
- "l-*-2407"
- "l-*-2405"
- "l-*-2404"
- "l-*-2401"
- "l-*-2399"
- "l-*-2397"
- "l-*-2395"
- "l-*-2393"
- "l-*-2391"
- "l-*-2389"
- "l-*-2388"
- "l-*-2387"
- "l-*-2385"
- "l-*-2383"
- "l-*-2382"
- "l-*-2379"
- "l-*-2378"
- "l-*-2376"
- "l-*-2374"
- "l-*-2372"
- "l-*-2370"
- "l-*-2368"
- "l-*-2366"
- "l-*-2364"
- "l-*-2362"
- "l-*-2360"
- "l-*-2357"
- "l-*-2355"
- "l-*-2353"
- "l-*-2351"
- "l-*-2349"
- "l-*-2347"
- "l-*-2345"
- "l-*-2343"
- "l-*-2341"
- "l-*-2339"
- "l-*-2337"
- "l-*-2335"
- "l-*-2333"
- "l-*-2331"
- "l-*-2329"
- "l-*-2327"
- "l-*-2325"
- "l-*-2323"
- "l-*-2321"
- "l-*-2319"
- "l-*-2317"
- "l-*-2315"
- "l-*-2313"
- "l-*-2311"
- "l-*-2309"
- "l-*-2307"
- "l-*-2306"
- "l-*-2305"
- "l-*-2304"
- "l-*-2303"
- "l-*-2301"
- "l-*-2299"
- "l-*-2297"
- "l-*-2294"
- "l-*-2292"
- "l-*-2290"
- "l-*-2288"
- "l-*-2286"
- "l-*-2284"
- "l-*-2282"
- "l-*-2280"
- "l-*-2278"
- "l-*-2276"
- "l-*-2274"
- "l-*-2272"
- "l-*-2270"
- "l-*-2268"
- "l-*-2266"
- "l-*-2264"
- "l-*-2262"
- "l-*-2260"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("l-*-2098"
- "l-*-2097"
- "l-*-2096")))
+ ("l-*-47" "l-*-46" "l-*-45")))
(hygiene guile))
- keys-13427))
+ keys-11376))
#f)
(if (if (eq? (if (if (= (vector-length
'#(syntax-object
@@ -17339,8 +17294,8 @@
#(ribcage
#(pat exp)
#((top) (top))
- #("l-*-5941"
- "l-*-5942"))
+ #("l-*-3890"
+ "l-*-3891"))
#(ribcage () () ())
#(ribcage
#(x
@@ -17353,11 +17308,11 @@
(top)
(top)
(top))
- #("l-*-5930"
- "l-*-5931"
- "l-*-5932"
- "l-*-5933"
- "l-*-5934"))
+ #("l-*-3879"
+ "l-*-3880"
+ "l-*-3881"
+ "l-*-3882"
+ "l-*-3883"))
#(ribcage
(gen-syntax-case
gen-clause
@@ -17367,10 +17322,10 @@
(top)
(top)
(top))
- ("l-*-5748"
- "l-*-5746"
- "l-*-5744"
- "l-*-5742"))
+ ("l-*-3697"
+ "l-*-3695"
+ "l-*-3693"
+ "l-*-3691"))
#(ribcage
(lambda-var-list
gen-var
@@ -17652,146 +17607,146 @@
(top)
(top)
(top))
- ("l-*-2527"
- "l-*-2525"
- "l-*-2523"
- "l-*-2521"
- "l-*-2519"
- "l-*-2517"
- "l-*-2515"
- "l-*-2513"
- "l-*-2511"
- "l-*-2509"
- "l-*-2507"
- "l-*-2505"
- "l-*-2503"
- "l-*-2501"
- "l-*-2499"
- "l-*-2497"
- "l-*-2495"
- "l-*-2493"
- "l-*-2491"
- "l-*-2489"
- "l-*-2487"
- "l-*-2485"
- "l-*-2483"
- "l-*-2481"
- "l-*-2479"
- "l-*-2477"
- "l-*-2475"
- "l-*-2473"
- "l-*-2471"
- "l-*-2469"
- "l-*-2467"
- "l-*-2465"
- "l-*-2463"
- "l-*-2461"
- "l-*-2459"
- "l-*-2457"
- "l-*-2455"
- "l-*-2453"
- "l-*-2451"
- "l-*-2450"
- "l-*-2448"
- "l-*-2445"
- "l-*-2444"
- "l-*-2443"
- "l-*-2441"
- "l-*-2440"
- "l-*-2438"
- "l-*-2436"
- "l-*-2434"
- "l-*-2432"
- "l-*-2430"
- "l-*-2428"
- "l-*-2426"
- "l-*-2424"
- "l-*-2421"
- "l-*-2419"
- "l-*-2418"
- "l-*-2416"
- "l-*-2414"
- "l-*-2412"
- "l-*-2410"
- "l-*-2409"
- "l-*-2408"
- "l-*-2407"
- "l-*-2405"
- "l-*-2404"
- "l-*-2401"
- "l-*-2399"
- "l-*-2397"
- "l-*-2395"
- "l-*-2393"
- "l-*-2391"
- "l-*-2389"
- "l-*-2388"
- "l-*-2387"
- "l-*-2385"
- "l-*-2383"
- "l-*-2382"
- "l-*-2379"
- "l-*-2378"
- "l-*-2376"
- "l-*-2374"
- "l-*-2372"
- "l-*-2370"
- "l-*-2368"
- "l-*-2366"
- "l-*-2364"
- "l-*-2362"
- "l-*-2360"
- "l-*-2357"
- "l-*-2355"
- "l-*-2353"
- "l-*-2351"
- "l-*-2349"
- "l-*-2347"
- "l-*-2345"
- "l-*-2343"
- "l-*-2341"
- "l-*-2339"
- "l-*-2337"
- "l-*-2335"
- "l-*-2333"
- "l-*-2331"
- "l-*-2329"
- "l-*-2327"
- "l-*-2325"
- "l-*-2323"
- "l-*-2321"
- "l-*-2319"
- "l-*-2317"
- "l-*-2315"
- "l-*-2313"
- "l-*-2311"
- "l-*-2309"
- "l-*-2307"
- "l-*-2306"
- "l-*-2305"
- "l-*-2304"
- "l-*-2303"
- "l-*-2301"
- "l-*-2299"
- "l-*-2297"
- "l-*-2294"
- "l-*-2292"
- "l-*-2290"
- "l-*-2288"
- "l-*-2286"
- "l-*-2284"
- "l-*-2282"
- "l-*-2280"
- "l-*-2278"
- "l-*-2276"
- "l-*-2274"
- "l-*-2272"
- "l-*-2270"
- "l-*-2268"
- "l-*-2266"
- "l-*-2264"
- "l-*-2262"
- "l-*-2260"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -17799,9 +17754,9 @@
((top)
(top)
(top))
- ("l-*-2098"
- "l-*-2097"
- "l-*-2096")))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
(hygiene guile)))
4)
#t
@@ -17813,7 +17768,7 @@
#(ribcage
#(pat exp)
#((top) (top))
- #("l-*-5941" "l-*-5942"))
+ #("l-*-3890" "l-*-3891"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
@@ -17822,21 +17777,21 @@
(top)
(top)
(top))
- #("l-*-5930"
- "l-*-5931"
- "l-*-5932"
- "l-*-5933"
- "l-*-5934"))
+ #("l-*-3879"
+ "l-*-3880"
+ "l-*-3881"
+ "l-*-3882"
+ "l-*-3883"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("l-*-5748"
- "l-*-5746"
- "l-*-5744"
- "l-*-5742"))
+ ("l-*-3697"
+ "l-*-3695"
+ "l-*-3693"
+ "l-*-3691"))
#(ribcage
(lambda-var-list
gen-var
@@ -18118,154 +18073,154 @@
(top)
(top)
(top))
- ("l-*-2527"
- "l-*-2525"
- "l-*-2523"
- "l-*-2521"
- "l-*-2519"
- "l-*-2517"
- "l-*-2515"
- "l-*-2513"
- "l-*-2511"
- "l-*-2509"
- "l-*-2507"
- "l-*-2505"
- "l-*-2503"
- "l-*-2501"
- "l-*-2499"
- "l-*-2497"
- "l-*-2495"
- "l-*-2493"
- "l-*-2491"
- "l-*-2489"
- "l-*-2487"
- "l-*-2485"
- "l-*-2483"
- "l-*-2481"
- "l-*-2479"
- "l-*-2477"
- "l-*-2475"
- "l-*-2473"
- "l-*-2471"
- "l-*-2469"
- "l-*-2467"
- "l-*-2465"
- "l-*-2463"
- "l-*-2461"
- "l-*-2459"
- "l-*-2457"
- "l-*-2455"
- "l-*-2453"
- "l-*-2451"
- "l-*-2450"
- "l-*-2448"
- "l-*-2445"
- "l-*-2444"
- "l-*-2443"
- "l-*-2441"
- "l-*-2440"
- "l-*-2438"
- "l-*-2436"
- "l-*-2434"
- "l-*-2432"
- "l-*-2430"
- "l-*-2428"
- "l-*-2426"
- "l-*-2424"
- "l-*-2421"
- "l-*-2419"
- "l-*-2418"
- "l-*-2416"
- "l-*-2414"
- "l-*-2412"
- "l-*-2410"
- "l-*-2409"
- "l-*-2408"
- "l-*-2407"
- "l-*-2405"
- "l-*-2404"
- "l-*-2401"
- "l-*-2399"
- "l-*-2397"
- "l-*-2395"
- "l-*-2393"
- "l-*-2391"
- "l-*-2389"
- "l-*-2388"
- "l-*-2387"
- "l-*-2385"
- "l-*-2383"
- "l-*-2382"
- "l-*-2379"
- "l-*-2378"
- "l-*-2376"
- "l-*-2374"
- "l-*-2372"
- "l-*-2370"
- "l-*-2368"
- "l-*-2366"
- "l-*-2364"
- "l-*-2362"
- "l-*-2360"
- "l-*-2357"
- "l-*-2355"
- "l-*-2353"
- "l-*-2351"
- "l-*-2349"
- "l-*-2347"
- "l-*-2345"
- "l-*-2343"
- "l-*-2341"
- "l-*-2339"
- "l-*-2337"
- "l-*-2335"
- "l-*-2333"
- "l-*-2331"
- "l-*-2329"
- "l-*-2327"
- "l-*-2325"
- "l-*-2323"
- "l-*-2321"
- "l-*-2319"
- "l-*-2317"
- "l-*-2315"
- "l-*-2313"
- "l-*-2311"
- "l-*-2309"
- "l-*-2307"
- "l-*-2306"
- "l-*-2305"
- "l-*-2304"
- "l-*-2303"
- "l-*-2301"
- "l-*-2299"
- "l-*-2297"
- "l-*-2294"
- "l-*-2292"
- "l-*-2290"
- "l-*-2288"
- "l-*-2286"
- "l-*-2284"
- "l-*-2282"
- "l-*-2280"
- "l-*-2278"
- "l-*-2276"
- "l-*-2274"
- "l-*-2272"
- "l-*-2270"
- "l-*-2268"
- "l-*-2266"
- "l-*-2264"
- "l-*-2262"
- "l-*-2260"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("l-*-2098"
- "l-*-2097"
- "l-*-2096")))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
(hygiene guile)))
(if (if (= (vector-length
'#(syntax-object
@@ -18274,8 +18229,8 @@
#(ribcage
#(pat exp)
#((top) (top))
- #("l-*-5941"
- "l-*-5942"))
+ #("l-*-3890"
+ "l-*-3891"))
#(ribcage () () ())
#(ribcage
#(x
@@ -18288,11 +18243,11 @@
(top)
(top)
(top))
- #("l-*-5930"
- "l-*-5931"
- "l-*-5932"
- "l-*-5933"
- "l-*-5934"))
+ #("l-*-3879"
+ "l-*-3880"
+ "l-*-3881"
+ "l-*-3882"
+ "l-*-3883"))
#(ribcage
(gen-syntax-case
gen-clause
@@ -18302,10 +18257,10 @@
(top)
(top)
(top))
- ("l-*-5748"
- "l-*-5746"
- "l-*-5744"
- "l-*-5742"))
+ ("l-*-3697"
+ "l-*-3695"
+ "l-*-3693"
+ "l-*-3691"))
#(ribcage
(lambda-var-list
gen-var
@@ -18587,146 +18542,146 @@
(top)
(top)
(top))
- ("l-*-2527"
- "l-*-2525"
- "l-*-2523"
- "l-*-2521"
- "l-*-2519"
- "l-*-2517"
- "l-*-2515"
- "l-*-2513"
- "l-*-2511"
- "l-*-2509"
- "l-*-2507"
- "l-*-2505"
- "l-*-2503"
- "l-*-2501"
- "l-*-2499"
- "l-*-2497"
- "l-*-2495"
- "l-*-2493"
- "l-*-2491"
- "l-*-2489"
- "l-*-2487"
- "l-*-2485"
- "l-*-2483"
- "l-*-2481"
- "l-*-2479"
- "l-*-2477"
- "l-*-2475"
- "l-*-2473"
- "l-*-2471"
- "l-*-2469"
- "l-*-2467"
- "l-*-2465"
- "l-*-2463"
- "l-*-2461"
- "l-*-2459"
- "l-*-2457"
- "l-*-2455"
- "l-*-2453"
- "l-*-2451"
- "l-*-2450"
- "l-*-2448"
- "l-*-2445"
- "l-*-2444"
- "l-*-2443"
- "l-*-2441"
- "l-*-2440"
- "l-*-2438"
- "l-*-2436"
- "l-*-2434"
- "l-*-2432"
- "l-*-2430"
- "l-*-2428"
- "l-*-2426"
- "l-*-2424"
- "l-*-2421"
- "l-*-2419"
- "l-*-2418"
- "l-*-2416"
- "l-*-2414"
- "l-*-2412"
- "l-*-2410"
- "l-*-2409"
- "l-*-2408"
- "l-*-2407"
- "l-*-2405"
- "l-*-2404"
- "l-*-2401"
- "l-*-2399"
- "l-*-2397"
- "l-*-2395"
- "l-*-2393"
- "l-*-2391"
- "l-*-2389"
- "l-*-2388"
- "l-*-2387"
- "l-*-2385"
- "l-*-2383"
- "l-*-2382"
- "l-*-2379"
- "l-*-2378"
- "l-*-2376"
- "l-*-2374"
- "l-*-2372"
- "l-*-2370"
- "l-*-2368"
- "l-*-2366"
- "l-*-2364"
- "l-*-2362"
- "l-*-2360"
- "l-*-2357"
- "l-*-2355"
- "l-*-2353"
- "l-*-2351"
- "l-*-2349"
- "l-*-2347"
- "l-*-2345"
- "l-*-2343"
- "l-*-2341"
- "l-*-2339"
- "l-*-2337"
- "l-*-2335"
- "l-*-2333"
- "l-*-2331"
- "l-*-2329"
- "l-*-2327"
- "l-*-2325"
- "l-*-2323"
- "l-*-2321"
- "l-*-2319"
- "l-*-2317"
- "l-*-2315"
- "l-*-2313"
- "l-*-2311"
- "l-*-2309"
- "l-*-2307"
- "l-*-2306"
- "l-*-2305"
- "l-*-2304"
- "l-*-2303"
- "l-*-2301"
- "l-*-2299"
- "l-*-2297"
- "l-*-2294"
- "l-*-2292"
- "l-*-2290"
- "l-*-2288"
- "l-*-2286"
- "l-*-2284"
- "l-*-2282"
- "l-*-2280"
- "l-*-2278"
- "l-*-2276"
- "l-*-2274"
- "l-*-2272"
- "l-*-2270"
- "l-*-2268"
- "l-*-2266"
- "l-*-2264"
- "l-*-2262"
- "l-*-2260"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -18734,9 +18689,9 @@
((top)
(top)
(top))
- ("l-*-2098"
- "l-*-2097"
- "l-*-2096")))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
(hygiene guile)))
4)
#t
@@ -18748,7 +18703,7 @@
#(ribcage
#(pat exp)
#((top) (top))
- #("l-*-5941" "l-*-5942"))
+ #("l-*-3890" "l-*-3891"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
@@ -18757,21 +18712,21 @@
(top)
(top)
(top))
- #("l-*-5930"
- "l-*-5931"
- "l-*-5932"
- "l-*-5933"
- "l-*-5934"))
+ #("l-*-3879"
+ "l-*-3880"
+ "l-*-3881"
+ "l-*-3882"
+ "l-*-3883"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("l-*-5748"
- "l-*-5746"
- "l-*-5744"
- "l-*-5742"))
+ ("l-*-3697"
+ "l-*-3695"
+ "l-*-3693"
+ "l-*-3691"))
#(ribcage
(lambda-var-list
gen-var
@@ -19053,163 +19008,163 @@
(top)
(top)
(top))
- ("l-*-2527"
- "l-*-2525"
- "l-*-2523"
- "l-*-2521"
- "l-*-2519"
- "l-*-2517"
- "l-*-2515"
- "l-*-2513"
- "l-*-2511"
- "l-*-2509"
- "l-*-2507"
- "l-*-2505"
- "l-*-2503"
- "l-*-2501"
- "l-*-2499"
- "l-*-2497"
- "l-*-2495"
- "l-*-2493"
- "l-*-2491"
- "l-*-2489"
- "l-*-2487"
- "l-*-2485"
- "l-*-2483"
- "l-*-2481"
- "l-*-2479"
- "l-*-2477"
- "l-*-2475"
- "l-*-2473"
- "l-*-2471"
- "l-*-2469"
- "l-*-2467"
- "l-*-2465"
- "l-*-2463"
- "l-*-2461"
- "l-*-2459"
- "l-*-2457"
- "l-*-2455"
- "l-*-2453"
- "l-*-2451"
- "l-*-2450"
- "l-*-2448"
- "l-*-2445"
- "l-*-2444"
- "l-*-2443"
- "l-*-2441"
- "l-*-2440"
- "l-*-2438"
- "l-*-2436"
- "l-*-2434"
- "l-*-2432"
- "l-*-2430"
- "l-*-2428"
- "l-*-2426"
- "l-*-2424"
- "l-*-2421"
- "l-*-2419"
- "l-*-2418"
- "l-*-2416"
- "l-*-2414"
- "l-*-2412"
- "l-*-2410"
- "l-*-2409"
- "l-*-2408"
- "l-*-2407"
- "l-*-2405"
- "l-*-2404"
- "l-*-2401"
- "l-*-2399"
- "l-*-2397"
- "l-*-2395"
- "l-*-2393"
- "l-*-2391"
- "l-*-2389"
- "l-*-2388"
- "l-*-2387"
- "l-*-2385"
- "l-*-2383"
- "l-*-2382"
- "l-*-2379"
- "l-*-2378"
- "l-*-2376"
- "l-*-2374"
- "l-*-2372"
- "l-*-2370"
- "l-*-2368"
- "l-*-2366"
- "l-*-2364"
- "l-*-2362"
- "l-*-2360"
- "l-*-2357"
- "l-*-2355"
- "l-*-2353"
- "l-*-2351"
- "l-*-2349"
- "l-*-2347"
- "l-*-2345"
- "l-*-2343"
- "l-*-2341"
- "l-*-2339"
- "l-*-2337"
- "l-*-2335"
- "l-*-2333"
- "l-*-2331"
- "l-*-2329"
- "l-*-2327"
- "l-*-2325"
- "l-*-2323"
- "l-*-2321"
- "l-*-2319"
- "l-*-2317"
- "l-*-2315"
- "l-*-2313"
- "l-*-2311"
- "l-*-2309"
- "l-*-2307"
- "l-*-2306"
- "l-*-2305"
- "l-*-2304"
- "l-*-2303"
- "l-*-2301"
- "l-*-2299"
- "l-*-2297"
- "l-*-2294"
- "l-*-2292"
- "l-*-2290"
- "l-*-2288"
- "l-*-2286"
- "l-*-2284"
- "l-*-2282"
- "l-*-2280"
- "l-*-2278"
- "l-*-2276"
- "l-*-2274"
- "l-*-2272"
- "l-*-2270"
- "l-*-2268"
- "l-*-2266"
- "l-*-2264"
- "l-*-2262"
- "l-*-2260"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("l-*-2098"
- "l-*-2097"
- "l-*-2096")))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
(hygiene guile))))
- (eq? (id-var-name-6364
+ (eq? (id-var-name-4313
'#(syntax-object
pad
((top)
#(ribcage
#(pat exp)
#((top) (top))
- #("l-*-5941" "l-*-5942"))
+ #("l-*-3890" "l-*-3891"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
@@ -19218,21 +19173,21 @@
(top)
(top)
(top))
- #("l-*-5930"
- "l-*-5931"
- "l-*-5932"
- "l-*-5933"
- "l-*-5934"))
+ #("l-*-3879"
+ "l-*-3880"
+ "l-*-3881"
+ "l-*-3882"
+ "l-*-3883"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("l-*-5748"
- "l-*-5746"
- "l-*-5744"
- "l-*-5742"))
+ ("l-*-3697"
+ "l-*-3695"
+ "l-*-3693"
+ "l-*-3691"))
#(ribcage
(lambda-var-list
gen-var
@@ -19514,164 +19469,162 @@
(top)
(top)
(top))
- ("l-*-2527"
- "l-*-2525"
- "l-*-2523"
- "l-*-2521"
- "l-*-2519"
- "l-*-2517"
- "l-*-2515"
- "l-*-2513"
- "l-*-2511"
- "l-*-2509"
- "l-*-2507"
- "l-*-2505"
- "l-*-2503"
- "l-*-2501"
- "l-*-2499"
- "l-*-2497"
- "l-*-2495"
- "l-*-2493"
- "l-*-2491"
- "l-*-2489"
- "l-*-2487"
- "l-*-2485"
- "l-*-2483"
- "l-*-2481"
- "l-*-2479"
- "l-*-2477"
- "l-*-2475"
- "l-*-2473"
- "l-*-2471"
- "l-*-2469"
- "l-*-2467"
- "l-*-2465"
- "l-*-2463"
- "l-*-2461"
- "l-*-2459"
- "l-*-2457"
- "l-*-2455"
- "l-*-2453"
- "l-*-2451"
- "l-*-2450"
- "l-*-2448"
- "l-*-2445"
- "l-*-2444"
- "l-*-2443"
- "l-*-2441"
- "l-*-2440"
- "l-*-2438"
- "l-*-2436"
- "l-*-2434"
- "l-*-2432"
- "l-*-2430"
- "l-*-2428"
- "l-*-2426"
- "l-*-2424"
- "l-*-2421"
- "l-*-2419"
- "l-*-2418"
- "l-*-2416"
- "l-*-2414"
- "l-*-2412"
- "l-*-2410"
- "l-*-2409"
- "l-*-2408"
- "l-*-2407"
- "l-*-2405"
- "l-*-2404"
- "l-*-2401"
- "l-*-2399"
- "l-*-2397"
- "l-*-2395"
- "l-*-2393"
- "l-*-2391"
- "l-*-2389"
- "l-*-2388"
- "l-*-2387"
- "l-*-2385"
- "l-*-2383"
- "l-*-2382"
- "l-*-2379"
- "l-*-2378"
- "l-*-2376"
- "l-*-2374"
- "l-*-2372"
- "l-*-2370"
- "l-*-2368"
- "l-*-2366"
- "l-*-2364"
- "l-*-2362"
- "l-*-2360"
- "l-*-2357"
- "l-*-2355"
- "l-*-2353"
- "l-*-2351"
- "l-*-2349"
- "l-*-2347"
- "l-*-2345"
- "l-*-2343"
- "l-*-2341"
- "l-*-2339"
- "l-*-2337"
- "l-*-2335"
- "l-*-2333"
- "l-*-2331"
- "l-*-2329"
- "l-*-2327"
- "l-*-2325"
- "l-*-2323"
- "l-*-2321"
- "l-*-2319"
- "l-*-2317"
- "l-*-2315"
- "l-*-2313"
- "l-*-2311"
- "l-*-2309"
- "l-*-2307"
- "l-*-2306"
- "l-*-2305"
- "l-*-2304"
- "l-*-2303"
- "l-*-2301"
- "l-*-2299"
- "l-*-2297"
- "l-*-2294"
- "l-*-2292"
- "l-*-2290"
- "l-*-2288"
- "l-*-2286"
- "l-*-2284"
- "l-*-2282"
- "l-*-2280"
- "l-*-2278"
- "l-*-2276"
- "l-*-2274"
- "l-*-2272"
- "l-*-2270"
- "l-*-2268"
- "l-*-2266"
- "l-*-2264"
- "l-*-2262"
- "l-*-2260"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("l-*-2098"
- "l-*-2097"
- "l-*-2096")))
+ ("l-*-47" "l-*-46" "l-*-45")))
(hygiene guile))
'(()))
- (id-var-name-6364
+ (id-var-name-4313
'#(syntax-object
_
((top)
#(ribcage
#(pat exp)
#((top) (top))
- #("l-*-5941" "l-*-5942"))
+ #("l-*-3890" "l-*-3891"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
@@ -19680,21 +19633,21 @@
(top)
(top)
(top))
- #("l-*-5930"
- "l-*-5931"
- "l-*-5932"
- "l-*-5933"
- "l-*-5934"))
+ #("l-*-3879"
+ "l-*-3880"
+ "l-*-3881"
+ "l-*-3882"
+ "l-*-3883"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("l-*-5748"
- "l-*-5746"
- "l-*-5744"
- "l-*-5742"))
+ ("l-*-3697"
+ "l-*-3695"
+ "l-*-3693"
+ "l-*-3691"))
#(ribcage
(lambda-var-list
gen-var
@@ -19976,280 +19929,278 @@
(top)
(top)
(top))
- ("l-*-2527"
- "l-*-2525"
- "l-*-2523"
- "l-*-2521"
- "l-*-2519"
- "l-*-2517"
- "l-*-2515"
- "l-*-2513"
- "l-*-2511"
- "l-*-2509"
- "l-*-2507"
- "l-*-2505"
- "l-*-2503"
- "l-*-2501"
- "l-*-2499"
- "l-*-2497"
- "l-*-2495"
- "l-*-2493"
- "l-*-2491"
- "l-*-2489"
- "l-*-2487"
- "l-*-2485"
- "l-*-2483"
- "l-*-2481"
- "l-*-2479"
- "l-*-2477"
- "l-*-2475"
- "l-*-2473"
- "l-*-2471"
- "l-*-2469"
- "l-*-2467"
- "l-*-2465"
- "l-*-2463"
- "l-*-2461"
- "l-*-2459"
- "l-*-2457"
- "l-*-2455"
- "l-*-2453"
- "l-*-2451"
- "l-*-2450"
- "l-*-2448"
- "l-*-2445"
- "l-*-2444"
- "l-*-2443"
- "l-*-2441"
- "l-*-2440"
- "l-*-2438"
- "l-*-2436"
- "l-*-2434"
- "l-*-2432"
- "l-*-2430"
- "l-*-2428"
- "l-*-2426"
- "l-*-2424"
- "l-*-2421"
- "l-*-2419"
- "l-*-2418"
- "l-*-2416"
- "l-*-2414"
- "l-*-2412"
- "l-*-2410"
- "l-*-2409"
- "l-*-2408"
- "l-*-2407"
- "l-*-2405"
- "l-*-2404"
- "l-*-2401"
- "l-*-2399"
- "l-*-2397"
- "l-*-2395"
- "l-*-2393"
- "l-*-2391"
- "l-*-2389"
- "l-*-2388"
- "l-*-2387"
- "l-*-2385"
- "l-*-2383"
- "l-*-2382"
- "l-*-2379"
- "l-*-2378"
- "l-*-2376"
- "l-*-2374"
- "l-*-2372"
- "l-*-2370"
- "l-*-2368"
- "l-*-2366"
- "l-*-2364"
- "l-*-2362"
- "l-*-2360"
- "l-*-2357"
- "l-*-2355"
- "l-*-2353"
- "l-*-2351"
- "l-*-2349"
- "l-*-2347"
- "l-*-2345"
- "l-*-2343"
- "l-*-2341"
- "l-*-2339"
- "l-*-2337"
- "l-*-2335"
- "l-*-2333"
- "l-*-2331"
- "l-*-2329"
- "l-*-2327"
- "l-*-2325"
- "l-*-2323"
- "l-*-2321"
- "l-*-2319"
- "l-*-2317"
- "l-*-2315"
- "l-*-2313"
- "l-*-2311"
- "l-*-2309"
- "l-*-2307"
- "l-*-2306"
- "l-*-2305"
- "l-*-2304"
- "l-*-2303"
- "l-*-2301"
- "l-*-2299"
- "l-*-2297"
- "l-*-2294"
- "l-*-2292"
- "l-*-2290"
- "l-*-2288"
- "l-*-2286"
- "l-*-2284"
- "l-*-2282"
- "l-*-2280"
- "l-*-2278"
- "l-*-2276"
- "l-*-2274"
- "l-*-2272"
- "l-*-2270"
- "l-*-2268"
- "l-*-2266"
- "l-*-2264"
- "l-*-2262"
- "l-*-2260"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("l-*-2098"
- "l-*-2097"
- "l-*-2096")))
+ ("l-*-47" "l-*-46" "l-*-45")))
(hygiene guile))
'(())))
#f)
- (expand-6381 exp-13473 r-13429 '(()) mod-13430)
- (let ((labels-13676
+ (expand-4330 exp-11422 r-11378 '(()) mod-11379)
+ (let ((labels-11625
(list (string-append
"l-"
- (session-id-6306)
+ (session-id-4255)
(symbol->string (gensym "-")))))
- (var-13677
- (let ((id-13715
- (if (if (vector? pat-13472)
+ (var-11626
+ (let ((id-11664
+ (if (if (vector? pat-11421)
(if (= (vector-length
- pat-13472)
+ pat-11421)
4)
(eq? (vector-ref
- pat-13472
+ pat-11421
0)
'syntax-object)
#f)
#f)
- (vector-ref pat-13472 1)
- pat-13472)))
+ (vector-ref pat-11421 1)
+ pat-11421)))
(gensym
(string-append
- (symbol->string id-13715)
+ (symbol->string id-11664)
"-")))))
- (build-application-6312
+ (build-application-4261
#f
- (build-simple-lambda-6321
+ (build-simple-lambda-4270
#f
- (list (syntax->datum pat-13472))
+ (list (syntax->datum pat-11421))
#f
- (list var-13677)
+ (list var-11626)
'()
- (expand-6381
- exp-13473
- (extend-env-6339
- labels-13676
+ (expand-4330
+ exp-11422
+ (extend-env-4288
+ labels-11625
(list (cons 'syntax
- (cons var-13677 0)))
- r-13429)
- (make-binding-wrap-6359
- (list pat-13472)
- labels-13676
+ (cons var-11626 0)))
+ r-11378)
+ (make-binding-wrap-4308
+ (list pat-11421)
+ labels-11625
'(()))
- mod-13430))
- (list x-13426))))
- (gen-clause-13026
- x-13426
- keys-13427
- (cdr clauses-13428)
- r-13429
- pat-13472
+ mod-11379))
+ (list x-11375))))
+ (gen-clause-10975
+ x-11375
+ keys-11376
+ (cdr clauses-11377)
+ r-11378
+ pat-11421
#t
- exp-13473
- mod-13430)))
- tmp-13470)
- (let ((tmp-13985
- ($sc-dispatch tmp-13469 '(any any any))))
- (if tmp-13985
+ exp-11422
+ mod-11379)))
+ tmp-11419)
+ (let ((tmp-11934
+ ($sc-dispatch tmp-11418 '(any any any))))
+ (if tmp-11934
(@apply
- (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)
+ (lambda (pat-11936 fender-11937 exp-11938)
+ (gen-clause-10975
+ x-11375
+ keys-11376
+ (cdr clauses-11377)
+ r-11378
+ pat-11936
+ fender-11937
+ exp-11938
+ mod-11379))
+ tmp-11934)
(syntax-violation
'syntax-case
"invalid clause"
- (car clauses-13428)))))))))))
- (lambda (e-13028 r-13029 w-13030 s-13031 mod-13032)
- (let ((e-13033
- (wrap-6374
+ (car clauses-11377)))))))))))
+ (lambda (e-10977 r-10978 w-10979 s-10980 mod-10981)
+ (let ((e-10982
+ (wrap-4323
(begin
- (if (if (pair? e-13028) s-13031 #f)
- (set-source-properties! e-13028 s-13031))
- e-13028)
- w-13030
- mod-13032)))
- (let ((tmp-13035
+ (if (if (pair? e-10977) s-10980 #f)
+ (set-source-properties! e-10977 s-10980))
+ e-10977)
+ w-10979
+ mod-10981)))
+ (let ((tmp-10984
($sc-dispatch
- e-13033
+ e-10982
'(_ any each-any . each-any))))
- (if tmp-13035
+ (if tmp-10984
(@apply
- (lambda (val-13060 key-13061 m-13062)
+ (lambda (val-11009 key-11010 m-11011)
(if (and-map
- (lambda (x-13063)
- (if (if (symbol? x-13063)
+ (lambda (x-11012)
+ (if (if (symbol? x-11012)
#t
- (if (if (vector? x-13063)
- (if (= (vector-length x-13063) 4)
- (eq? (vector-ref x-13063 0)
+ (if (if (vector? x-11012)
+ (if (= (vector-length x-11012) 4)
+ (eq? (vector-ref x-11012 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref x-13063 1))
+ (symbol? (vector-ref x-11012 1))
#f))
- (not (if (if (if (vector? x-13063)
- (if (= (vector-length x-13063)
+ (not (if (if (if (vector? x-11012)
+ (if (= (vector-length x-11012)
4)
- (eq? (vector-ref x-13063 0)
+ (eq? (vector-ref x-11012 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref x-13063 1))
+ (symbol? (vector-ref x-11012 1))
#f)
- (if (eq? (if (if (vector? x-13063)
+ (if (eq? (if (if (vector? x-11012)
(if (= (vector-length
- x-13063)
+ x-11012)
4)
(eq? (vector-ref
- x-13063
+ x-11012
0)
'syntax-object)
#f)
#f)
- (vector-ref x-13063 1)
- x-13063)
+ (vector-ref x-11012 1)
+ x-11012)
(if (if (= (vector-length
'#(syntax-object
...
@@ -20265,7 +20216,7 @@
#(ribcage
#(x)
#((top))
- #("l-*-4317"))
+ #("l-*-2266"))
#(ribcage
(lambda-var-list
gen-var
@@ -20547,146 +20498,146 @@
(top)
(top)
(top))
- ("l-*-2527"
- "l-*-2525"
- "l-*-2523"
- "l-*-2521"
- "l-*-2519"
- "l-*-2517"
- "l-*-2515"
- "l-*-2513"
- "l-*-2511"
- "l-*-2509"
- "l-*-2507"
- "l-*-2505"
- "l-*-2503"
- "l-*-2501"
- "l-*-2499"
- "l-*-2497"
- "l-*-2495"
- "l-*-2493"
- "l-*-2491"
- "l-*-2489"
- "l-*-2487"
- "l-*-2485"
- "l-*-2483"
- "l-*-2481"
- "l-*-2479"
- "l-*-2477"
- "l-*-2475"
- "l-*-2473"
- "l-*-2471"
- "l-*-2469"
- "l-*-2467"
- "l-*-2465"
- "l-*-2463"
- "l-*-2461"
- "l-*-2459"
- "l-*-2457"
- "l-*-2455"
- "l-*-2453"
- "l-*-2451"
- "l-*-2450"
- "l-*-2448"
- "l-*-2445"
- "l-*-2444"
- "l-*-2443"
- "l-*-2441"
- "l-*-2440"
- "l-*-2438"
- "l-*-2436"
- "l-*-2434"
- "l-*-2432"
- "l-*-2430"
- "l-*-2428"
- "l-*-2426"
- "l-*-2424"
- "l-*-2421"
- "l-*-2419"
- "l-*-2418"
- "l-*-2416"
- "l-*-2414"
- "l-*-2412"
- "l-*-2410"
- "l-*-2409"
- "l-*-2408"
- "l-*-2407"
- "l-*-2405"
- "l-*-2404"
- "l-*-2401"
- "l-*-2399"
- "l-*-2397"
- "l-*-2395"
- "l-*-2393"
- "l-*-2391"
- "l-*-2389"
- "l-*-2388"
- "l-*-2387"
- "l-*-2385"
- "l-*-2383"
- "l-*-2382"
- "l-*-2379"
- "l-*-2378"
- "l-*-2376"
- "l-*-2374"
- "l-*-2372"
- "l-*-2370"
- "l-*-2368"
- "l-*-2366"
- "l-*-2364"
- "l-*-2362"
- "l-*-2360"
- "l-*-2357"
- "l-*-2355"
- "l-*-2353"
- "l-*-2351"
- "l-*-2349"
- "l-*-2347"
- "l-*-2345"
- "l-*-2343"
- "l-*-2341"
- "l-*-2339"
- "l-*-2337"
- "l-*-2335"
- "l-*-2333"
- "l-*-2331"
- "l-*-2329"
- "l-*-2327"
- "l-*-2325"
- "l-*-2323"
- "l-*-2321"
- "l-*-2319"
- "l-*-2317"
- "l-*-2315"
- "l-*-2313"
- "l-*-2311"
- "l-*-2309"
- "l-*-2307"
- "l-*-2306"
- "l-*-2305"
- "l-*-2304"
- "l-*-2303"
- "l-*-2301"
- "l-*-2299"
- "l-*-2297"
- "l-*-2294"
- "l-*-2292"
- "l-*-2290"
- "l-*-2288"
- "l-*-2286"
- "l-*-2284"
- "l-*-2282"
- "l-*-2280"
- "l-*-2278"
- "l-*-2276"
- "l-*-2274"
- "l-*-2272"
- "l-*-2270"
- "l-*-2268"
- "l-*-2266"
- "l-*-2264"
- "l-*-2262"
- "l-*-2260"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -20694,9 +20645,9 @@
((top)
(top)
(top))
- ("l-*-2098"
- "l-*-2097"
- "l-*-2096")))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
(hygiene
guile)))
4)
@@ -20711,7 +20662,7 @@
#(ribcage
#(x)
#((top))
- #("l-*-4317"))
+ #("l-*-2266"))
#(ribcage
(lambda-var-list
gen-var
@@ -20993,157 +20944,157 @@
(top)
(top)
(top))
- ("l-*-2527"
- "l-*-2525"
- "l-*-2523"
- "l-*-2521"
- "l-*-2519"
- "l-*-2517"
- "l-*-2515"
- "l-*-2513"
- "l-*-2511"
- "l-*-2509"
- "l-*-2507"
- "l-*-2505"
- "l-*-2503"
- "l-*-2501"
- "l-*-2499"
- "l-*-2497"
- "l-*-2495"
- "l-*-2493"
- "l-*-2491"
- "l-*-2489"
- "l-*-2487"
- "l-*-2485"
- "l-*-2483"
- "l-*-2481"
- "l-*-2479"
- "l-*-2477"
- "l-*-2475"
- "l-*-2473"
- "l-*-2471"
- "l-*-2469"
- "l-*-2467"
- "l-*-2465"
- "l-*-2463"
- "l-*-2461"
- "l-*-2459"
- "l-*-2457"
- "l-*-2455"
- "l-*-2453"
- "l-*-2451"
- "l-*-2450"
- "l-*-2448"
- "l-*-2445"
- "l-*-2444"
- "l-*-2443"
- "l-*-2441"
- "l-*-2440"
- "l-*-2438"
- "l-*-2436"
- "l-*-2434"
- "l-*-2432"
- "l-*-2430"
- "l-*-2428"
- "l-*-2426"
- "l-*-2424"
- "l-*-2421"
- "l-*-2419"
- "l-*-2418"
- "l-*-2416"
- "l-*-2414"
- "l-*-2412"
- "l-*-2410"
- "l-*-2409"
- "l-*-2408"
- "l-*-2407"
- "l-*-2405"
- "l-*-2404"
- "l-*-2401"
- "l-*-2399"
- "l-*-2397"
- "l-*-2395"
- "l-*-2393"
- "l-*-2391"
- "l-*-2389"
- "l-*-2388"
- "l-*-2387"
- "l-*-2385"
- "l-*-2383"
- "l-*-2382"
- "l-*-2379"
- "l-*-2378"
- "l-*-2376"
- "l-*-2374"
- "l-*-2372"
- "l-*-2370"
- "l-*-2368"
- "l-*-2366"
- "l-*-2364"
- "l-*-2362"
- "l-*-2360"
- "l-*-2357"
- "l-*-2355"
- "l-*-2353"
- "l-*-2351"
- "l-*-2349"
- "l-*-2347"
- "l-*-2345"
- "l-*-2343"
- "l-*-2341"
- "l-*-2339"
- "l-*-2337"
- "l-*-2335"
- "l-*-2333"
- "l-*-2331"
- "l-*-2329"
- "l-*-2327"
- "l-*-2325"
- "l-*-2323"
- "l-*-2321"
- "l-*-2319"
- "l-*-2317"
- "l-*-2315"
- "l-*-2313"
- "l-*-2311"
- "l-*-2309"
- "l-*-2307"
- "l-*-2306"
- "l-*-2305"
- "l-*-2304"
- "l-*-2303"
- "l-*-2301"
- "l-*-2299"
- "l-*-2297"
- "l-*-2294"
- "l-*-2292"
- "l-*-2290"
- "l-*-2288"
- "l-*-2286"
- "l-*-2284"
- "l-*-2282"
- "l-*-2280"
- "l-*-2278"
- "l-*-2276"
- "l-*-2274"
- "l-*-2272"
- "l-*-2270"
- "l-*-2268"
- "l-*-2266"
- "l-*-2264"
- "l-*-2262"
- "l-*-2260"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("l-*-2098"
- "l-*-2097"
- "l-*-2096")))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
(hygiene guile))))
- (eq? (id-var-name-6364 x-13063 '(()))
- (id-var-name-6364
+ (eq? (id-var-name-4313 x-11012 '(()))
+ (id-var-name-4313
'#(syntax-object
...
((top)
@@ -21152,7 +21103,7 @@
#(ribcage
#(x)
#((top))
- #("l-*-4317"))
+ #("l-*-2266"))
#(ribcage
(lambda-var-list
gen-var
@@ -21434,911 +21385,913 @@
(top)
(top)
(top))
- ("l-*-2527"
- "l-*-2525"
- "l-*-2523"
- "l-*-2521"
- "l-*-2519"
- "l-*-2517"
- "l-*-2515"
- "l-*-2513"
- "l-*-2511"
- "l-*-2509"
- "l-*-2507"
- "l-*-2505"
- "l-*-2503"
- "l-*-2501"
- "l-*-2499"
- "l-*-2497"
- "l-*-2495"
- "l-*-2493"
- "l-*-2491"
- "l-*-2489"
- "l-*-2487"
- "l-*-2485"
- "l-*-2483"
- "l-*-2481"
- "l-*-2479"
- "l-*-2477"
- "l-*-2475"
- "l-*-2473"
- "l-*-2471"
- "l-*-2469"
- "l-*-2467"
- "l-*-2465"
- "l-*-2463"
- "l-*-2461"
- "l-*-2459"
- "l-*-2457"
- "l-*-2455"
- "l-*-2453"
- "l-*-2451"
- "l-*-2450"
- "l-*-2448"
- "l-*-2445"
- "l-*-2444"
- "l-*-2443"
- "l-*-2441"
- "l-*-2440"
- "l-*-2438"
- "l-*-2436"
- "l-*-2434"
- "l-*-2432"
- "l-*-2430"
- "l-*-2428"
- "l-*-2426"
- "l-*-2424"
- "l-*-2421"
- "l-*-2419"
- "l-*-2418"
- "l-*-2416"
- "l-*-2414"
- "l-*-2412"
- "l-*-2410"
- "l-*-2409"
- "l-*-2408"
- "l-*-2407"
- "l-*-2405"
- "l-*-2404"
- "l-*-2401"
- "l-*-2399"
- "l-*-2397"
- "l-*-2395"
- "l-*-2393"
- "l-*-2391"
- "l-*-2389"
- "l-*-2388"
- "l-*-2387"
- "l-*-2385"
- "l-*-2383"
- "l-*-2382"
- "l-*-2379"
- "l-*-2378"
- "l-*-2376"
- "l-*-2374"
- "l-*-2372"
- "l-*-2370"
- "l-*-2368"
- "l-*-2366"
- "l-*-2364"
- "l-*-2362"
- "l-*-2360"
- "l-*-2357"
- "l-*-2355"
- "l-*-2353"
- "l-*-2351"
- "l-*-2349"
- "l-*-2347"
- "l-*-2345"
- "l-*-2343"
- "l-*-2341"
- "l-*-2339"
- "l-*-2337"
- "l-*-2335"
- "l-*-2333"
- "l-*-2331"
- "l-*-2329"
- "l-*-2327"
- "l-*-2325"
- "l-*-2323"
- "l-*-2321"
- "l-*-2319"
- "l-*-2317"
- "l-*-2315"
- "l-*-2313"
- "l-*-2311"
- "l-*-2309"
- "l-*-2307"
- "l-*-2306"
- "l-*-2305"
- "l-*-2304"
- "l-*-2303"
- "l-*-2301"
- "l-*-2299"
- "l-*-2297"
- "l-*-2294"
- "l-*-2292"
- "l-*-2290"
- "l-*-2288"
- "l-*-2286"
- "l-*-2284"
- "l-*-2282"
- "l-*-2280"
- "l-*-2278"
- "l-*-2276"
- "l-*-2274"
- "l-*-2272"
- "l-*-2270"
- "l-*-2268"
- "l-*-2266"
- "l-*-2264"
- "l-*-2262"
- "l-*-2260"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("l-*-2098"
- "l-*-2097"
- "l-*-2096")))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
(hygiene guile))
'(())))
#f)
#f))
#f))
- key-13061)
- (let ((x-13189
+ key-11010)
+ (let ((x-11138
(gensym
(string-append (symbol->string 'tmp) "-"))))
- (build-application-6312
- s-13031
- (let ((req-13319 (list 'tmp))
- (vars-13321 (list x-13189))
- (exp-13323
- (gen-syntax-case-13027
+ (build-application-4261
+ s-10980
+ (let ((req-11268 (list 'tmp))
+ (vars-11270 (list x-11138))
+ (exp-11272
+ (gen-syntax-case-10976
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
#f
'tmp
- x-13189)
- key-13061
- m-13062
- r-13029
- mod-13032)))
- (let ((body-13328
+ x-11138)
+ key-11010
+ m-11011
+ r-10978
+ mod-10981)))
+ (let ((body-11277
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
#f
- req-13319
+ req-11268
#f
#f
#f
'()
- vars-13321
- exp-13323
+ vars-11270
+ exp-11272
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
#f
'()
- body-13328)))
- (list (expand-6381
- val-13060
- r-13029
+ body-11277)))
+ (list (expand-4330
+ val-11009
+ r-10978
'(())
- mod-13032))))
+ mod-10981))))
(syntax-violation
'syntax-case
"invalid literals list"
- e-13033)))
- tmp-13035)
+ e-10982)))
+ tmp-10984)
(syntax-violation
#f
"source expression failed to match any pattern"
- e-13033)))))))
+ e-10982)))))))
(set! macroexpand
(lambda*
- (x-15746
+ (x-13695
#:optional
- (m-15747 'e)
- (esew-15748 '(eval)))
- (expand-top-sequence-6377
- (list x-15746)
+ (m-13696 'e)
+ (esew-13697 '(eval)))
+ (expand-top-sequence-4326
+ (list x-13695)
'()
'((top))
#f
- m-15747
- esew-15748
+ m-13696
+ esew-13697
(cons 'hygiene (module-name (current-module))))))
(set! identifier?
- (lambda (x-15751)
- (if (if (vector? x-15751)
- (if (= (vector-length x-15751) 4)
- (eq? (vector-ref x-15751 0) 'syntax-object)
+ (lambda (x-13700)
+ (if (if (vector? x-13700)
+ (if (= (vector-length x-13700) 4)
+ (eq? (vector-ref x-13700 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref x-15751 1))
+ (symbol? (vector-ref x-13700 1))
#f)))
(set! datum->syntax
- (lambda (id-15776 datum-15777)
- (let ((wrap-15782 (vector-ref id-15776 2))
- (module-15783 (vector-ref id-15776 3)))
+ (lambda (id-13725 datum-13726)
+ (let ((wrap-13731 (vector-ref id-13725 2))
+ (module-13732 (vector-ref id-13725 3)))
(vector
'syntax-object
- datum-15777
- wrap-15782
- module-15783))))
+ datum-13726
+ wrap-13731
+ module-13732))))
(set! syntax->datum
- (lambda (x-15790) (strip-6394 x-15790 '(()))))
+ (lambda (x-13739) (strip-4343 x-13739 '(()))))
(set! syntax-source
- (lambda (x-15793)
- (source-annotation-6338 x-15793)))
+ (lambda (x-13742)
+ (source-annotation-4287 x-13742)))
(set! generate-temporaries
- (lambda (ls-15946)
+ (lambda (ls-13895)
(begin
- (if (not (list? ls-15946))
+ (if (not (list? ls-13895))
(syntax-violation
'generate-temporaries
"invalid argument"
- ls-15946))
- (let ((mod-15954
+ ls-13895))
+ (let ((mod-13903
(cons 'hygiene (module-name (current-module)))))
- (map (lambda (x-15955)
- (wrap-6374 (gensym "t-") '((top)) mod-15954))
- ls-15946)))))
+ (map (lambda (x-13904)
+ (wrap-4323 (gensym "t-") '((top)) mod-13903))
+ ls-13895)))))
(set! free-identifier=?
- (lambda (x-15959 y-15960)
+ (lambda (x-13908 y-13909)
(begin
- (if (not (if (if (vector? x-15959)
- (if (= (vector-length x-15959) 4)
- (eq? (vector-ref x-15959 0) 'syntax-object)
+ (if (not (if (if (vector? x-13908)
+ (if (= (vector-length x-13908) 4)
+ (eq? (vector-ref x-13908 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref x-15959 1))
+ (symbol? (vector-ref x-13908 1))
#f))
(syntax-violation
'free-identifier=?
"invalid argument"
- x-15959))
- (if (not (if (if (vector? y-15960)
- (if (= (vector-length y-15960) 4)
- (eq? (vector-ref y-15960 0) 'syntax-object)
+ x-13908))
+ (if (not (if (if (vector? y-13909)
+ (if (= (vector-length y-13909) 4)
+ (eq? (vector-ref y-13909 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref y-15960 1))
+ (symbol? (vector-ref y-13909 1))
#f))
(syntax-violation
'free-identifier=?
"invalid argument"
- y-15960))
- (if (eq? (if (if (vector? x-15959)
- (if (= (vector-length x-15959) 4)
- (eq? (vector-ref x-15959 0) 'syntax-object)
+ y-13909))
+ (if (eq? (if (if (vector? x-13908)
+ (if (= (vector-length x-13908) 4)
+ (eq? (vector-ref x-13908 0) 'syntax-object)
#f)
#f)
- (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)
+ (vector-ref x-13908 1)
+ x-13908)
+ (if (if (vector? y-13909)
+ (if (= (vector-length y-13909) 4)
+ (eq? (vector-ref y-13909 0) 'syntax-object)
#f)
#f)
- (vector-ref y-15960 1)
- y-15960))
- (eq? (id-var-name-6364 x-15959 '(()))
- (id-var-name-6364 y-15960 '(())))
+ (vector-ref y-13909 1)
+ y-13909))
+ (eq? (id-var-name-4313 x-13908 '(()))
+ (id-var-name-4313 y-13909 '(())))
#f))))
(set! bound-identifier=?
- (lambda (x-16110 y-16111)
+ (lambda (x-14059 y-14060)
(begin
- (if (not (if (if (vector? x-16110)
- (if (= (vector-length x-16110) 4)
- (eq? (vector-ref x-16110 0) 'syntax-object)
+ (if (not (if (if (vector? x-14059)
+ (if (= (vector-length x-14059) 4)
+ (eq? (vector-ref x-14059 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref x-16110 1))
+ (symbol? (vector-ref x-14059 1))
#f))
(syntax-violation
'bound-identifier=?
"invalid argument"
- x-16110))
- (if (not (if (if (vector? y-16111)
- (if (= (vector-length y-16111) 4)
- (eq? (vector-ref y-16111 0) 'syntax-object)
+ x-14059))
+ (if (not (if (if (vector? y-14060)
+ (if (= (vector-length y-14060) 4)
+ (eq? (vector-ref y-14060 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref y-16111 1))
+ (symbol? (vector-ref y-14060 1))
#f))
(syntax-violation
'bound-identifier=?
"invalid argument"
- y-16111))
- (if (if (if (vector? x-16110)
- (if (= (vector-length x-16110) 4)
- (eq? (vector-ref x-16110 0) 'syntax-object)
+ y-14060))
+ (if (if (if (vector? x-14059)
+ (if (= (vector-length x-14059) 4)
+ (eq? (vector-ref x-14059 0) 'syntax-object)
#f)
#f)
- (if (vector? y-16111)
- (if (= (vector-length y-16111) 4)
- (eq? (vector-ref y-16111 0) 'syntax-object)
+ (if (vector? y-14060)
+ (if (= (vector-length y-14060) 4)
+ (eq? (vector-ref y-14060 0) 'syntax-object)
#f)
#f)
#f)
- (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)))
+ (if (eq? (vector-ref x-14059 1)
+ (vector-ref y-14060 1))
+ (same-marks?-4312
+ (car (vector-ref x-14059 2))
+ (car (vector-ref y-14060 2)))
#f)
- (eq? x-16110 y-16111)))))
+ (eq? x-14059 y-14060)))))
(set! syntax-violation
(lambda*
- (who-16244
- message-16245
- form-16246
+ (who-14193
+ message-14194
+ form-14195
#:optional
- (subform-16247 #f))
+ (subform-14196 #f))
(begin
- (if (not (if (not who-16244)
- (not who-16244)
- (let ((t-16265 (string? who-16244)))
- (if t-16265 t-16265 (symbol? who-16244)))))
+ (if (not (if (not who-14193)
+ (not who-14193)
+ (let ((t-14214 (string? who-14193)))
+ (if t-14214 t-14214 (symbol? who-14193)))))
(syntax-violation
'syntax-violation
"invalid argument"
- who-16244))
- (if (not (string? message-16245))
+ who-14193))
+ (if (not (string? message-14194))
(syntax-violation
'syntax-violation
"invalid argument"
- message-16245))
+ message-14194))
(throw 'syntax-error
- 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 '(()))
+ who-14193
+ message-14194
+ (let ((t-14245 (source-annotation-4287 subform-14196)))
+ (if t-14245
+ t-14245
+ (source-annotation-4287 form-14195)))
+ (strip-4343 form-14195 '(()))
+ (if subform-14196
+ (strip-4343 subform-14196 '(()))
#f)))))
(letrec*
- ((syntax-local-binding-16469
- (lambda (id-16602)
+ ((syntax-local-binding-14637
+ (lambda (id-14770)
(begin
- (if (not (if (if (vector? id-16602)
- (if (= (vector-length id-16602) 4)
- (eq? (vector-ref id-16602 0) 'syntax-object)
+ (if (not (if (if (vector? id-14770)
+ (if (= (vector-length id-14770) 4)
+ (eq? (vector-ref id-14770 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref id-16602 1))
+ (symbol? (vector-ref id-14770 1))
#f))
(syntax-violation
'syntax-local-binding
"invalid argument"
- id-16602))
- ((fluid-ref transformer-environment-6367)
- (lambda (e-16642
- r-16643
- w-16644
- s-16645
- rib-16646
- mod-16647)
+ id-14770))
+ ((fluid-ref transformer-environment-4316)
+ (lambda (e-14810
+ r-14811
+ w-14812
+ s-14813
+ rib-14814
+ mod-14815)
(call-with-values
(lambda ()
- (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)
+ (let ((id-14818 (vector-ref id-14770 1))
+ (w-14819
+ (let ((w-14830 (vector-ref id-14770 2)))
+ (let ((ms-14831 (car w-14830))
+ (s-14832 (cdr w-14830)))
+ (if (if (pair? ms-14831)
+ (eq? (car ms-14831) #f)
#f)
- (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)
+ (cons (cdr ms-14831)
+ (if rib-14814
+ (cons rib-14814 (cdr s-14832))
+ (cdr s-14832)))
+ (cons ms-14831
+ (if rib-14814
+ (cons rib-14814 s-14832)
+ s-14832))))))
+ (mod-14821 (vector-ref id-14770 3)))
+ (let ((n-14824 (id-var-name-4313 id-14818 w-14819)))
+ (if (symbol? n-14824)
+ (let ((mod-14838
+ (if (if (vector? id-14818)
+ (if (= (vector-length id-14818) 4)
+ (eq? (vector-ref id-14818 0)
'syntax-object)
#f)
#f)
- (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)
+ (vector-ref id-14818 3)
+ mod-14821)))
+ (let ((b-14839
+ (let ((t-14840
+ (get-global-definition-hook-4257
+ n-14824
+ mod-14838)))
+ (if t-14840 t-14840 '(global)))))
+ (if (eq? (car b-14839) 'global)
+ (values 'global n-14824 mod-14838)
(values
- (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)
+ (car b-14839)
+ (cdr b-14839)
+ mod-14838))))
+ (if (string? n-14824)
+ (let ((mod-14866
+ (if (if (vector? id-14818)
+ (if (= (vector-length id-14818) 4)
+ (eq? (vector-ref id-14818 0)
'syntax-object)
#f)
#f)
- (vector-ref id-16650 3)
- mod-16653)))
- (let ((b-16699
- (let ((t-16700
- (assq-ref r-16643 n-16656)))
- (if t-16700
- t-16700
+ (vector-ref id-14818 3)
+ mod-14821)))
+ (let ((b-14867
+ (let ((t-14868
+ (assq-ref r-14811 n-14824)))
+ (if t-14868
+ t-14868
'(displaced-lexical)))))
(values
- (car b-16699)
- (cdr b-16699)
- mod-16698)))
+ (car b-14867)
+ (cdr b-14867)
+ mod-14866)))
(error "unexpected id-var-name"
- 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)
+ id-14818
+ w-14819
+ n-14824))))))
+ (lambda (type-14881 value-14882 mod-14883)
+ (if (eqv? type-14881 'lexical)
+ (values 'lexical value-14882)
+ (if (eqv? type-14881 'macro)
+ (values 'macro value-14882)
+ (if (eqv? type-14881 'syntax)
+ (values 'pattern-variable value-14882)
+ (if (eqv? type-14881 'displaced-lexical)
(values 'displaced-lexical #f)
- (if (eqv? type-16713 'global)
+ (if (eqv? type-14881 'global)
(values
'global
- (cons value-16714 (cdr mod-16715)))
+ (cons value-14882 (cdr mod-14883)))
(values 'other #f)))))))))))))
- (syntax-locally-bound-identifiers-16470
- (lambda (id-16737)
+ (syntax-locally-bound-identifiers-14638
+ (lambda (id-14905)
(begin
- (if (not (if (if (vector? id-16737)
- (if (= (vector-length id-16737) 4)
- (eq? (vector-ref id-16737 0) 'syntax-object)
+ (if (not (if (if (vector? id-14905)
+ (if (= (vector-length id-14905) 4)
+ (eq? (vector-ref id-14905 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref id-16737 1))
+ (symbol? (vector-ref id-14905 1))
#f))
(syntax-violation
'syntax-locally-bound-identifiers
"invalid argument"
- id-16737))
- (locally-bound-identifiers-6365
- (vector-ref id-16737 2)
- (vector-ref id-16737 3))))))
+ id-14905))
+ (locally-bound-identifiers-4314
+ (vector-ref id-14905 2)
+ (vector-ref id-14905 3))))))
(begin
(define!
'syntax-module
- (lambda (id-16472)
+ (lambda (id-14640)
(begin
- (if (not (if (if (vector? id-16472)
- (if (= (vector-length id-16472) 4)
- (eq? (vector-ref id-16472 0) 'syntax-object)
+ (if (not (if (if (vector? id-14640)
+ (if (= (vector-length id-14640) 4)
+ (eq? (vector-ref id-14640 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref id-16472 1))
+ (symbol? (vector-ref id-14640 1))
#f))
(syntax-violation
'syntax-module
"invalid argument"
- id-16472))
- (cdr (vector-ref id-16472 3)))))
+ id-14640))
+ (cdr (vector-ref id-14640 3)))))
(define!
'syntax-local-binding
- syntax-local-binding-16469)
+ syntax-local-binding-14637)
(define!
'syntax-locally-bound-identifiers
- syntax-locally-bound-identifiers-16470)))
+ syntax-locally-bound-identifiers-14638)))
(letrec*
- ((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
+ ((match-each-15012
+ (lambda (e-15599 p-15600 w-15601 mod-15602)
+ (if (pair? e-15599)
+ (let ((first-15603
+ (match-15018
+ (car e-15599)
+ p-15600
+ w-15601
'()
- 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))
+ mod-15602)))
+ (if first-15603
+ (let ((rest-15606
+ (match-each-15012
+ (cdr e-15599)
+ p-15600
+ w-15601
+ mod-15602)))
+ (if rest-15606 (cons first-15603 rest-15606) #f))
#f))
- (if (null? e-17431)
+ (if (null? e-15599)
'()
- (if (if (vector? e-17431)
- (if (= (vector-length e-17431) 4)
- (eq? (vector-ref e-17431 0) 'syntax-object)
+ (if (if (vector? e-15599)
+ (if (= (vector-length e-15599) 4)
+ (eq? (vector-ref e-15599 0) 'syntax-object)
#f)
#f)
- (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))
+ (match-each-15012
+ (vector-ref e-15599 1)
+ p-15600
+ (join-wraps-4310 w-15601 (vector-ref e-15599 2))
+ (vector-ref e-15599 3))
#f)))))
- (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)
+ (match-each-any-15014
+ (lambda (e-15634 w-15635 mod-15636)
+ (if (pair? e-15634)
+ (let ((l-15637
+ (match-each-any-15014
+ (cdr e-15634)
+ w-15635
+ mod-15636)))
+ (if l-15637
+ (cons (wrap-4323 (car e-15634) w-15635 mod-15636)
+ l-15637)
#f))
- (if (null? e-17466)
+ (if (null? e-15634)
'()
- (if (if (vector? e-17466)
- (if (= (vector-length e-17466) 4)
- (eq? (vector-ref e-17466 0) 'syntax-object)
+ (if (if (vector? e-15634)
+ (if (= (vector-length e-15634) 4)
+ (eq? (vector-ref e-15634 0) 'syntax-object)
#f)
#f)
- (match-each-any-16846
- (vector-ref e-17466 1)
- (join-wraps-6361 w-17467 (vector-ref e-17466 2))
- mod-17468)
+ (match-each-any-15014
+ (vector-ref e-15634 1)
+ (join-wraps-4310 w-15635 (vector-ref e-15634 2))
+ mod-15636)
#f)))))
- (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)
+ (match-empty-15015
+ (lambda (p-15661 r-15662)
+ (if (null? p-15661)
+ r-15662
+ (if (eq? p-15661 '_)
+ r-15662
+ (if (eq? p-15661 'any)
+ (cons '() r-15662)
+ (if (pair? p-15661)
+ (match-empty-15015
+ (car p-15661)
+ (match-empty-15015 (cdr p-15661) r-15662))
+ (if (eq? p-15661 'each-any)
+ (cons '() r-15662)
+ (let ((key-15663 (vector-ref p-15661 0)))
+ (if (eqv? key-15663 'each)
+ (match-empty-15015
+ (vector-ref p-15661 1)
+ r-15662)
+ (if (eqv? key-15663 'each+)
+ (match-empty-15015
+ (vector-ref p-15661 1)
+ (match-empty-15015
+ (reverse (vector-ref p-15661 2))
+ (match-empty-15015
+ (vector-ref p-15661 3)
+ r-15662)))
+ (if (if (eqv? key-15663 'free-id)
#t
- (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)
+ (eqv? key-15663 'atom))
+ r-15662
+ (if (eqv? key-15663 'vector)
+ (match-empty-15015
+ (vector-ref p-15661 1)
+ r-15662)))))))))))))
+ (combine-15016
+ (lambda (r*-15682 r-15683)
+ (if (null? (car r*-15682))
+ r-15683
+ (cons (map car r*-15682)
+ (combine-15016 (map cdr r*-15682) r-15683)))))
+ (match*-15017
+ (lambda (e-15047 p-15048 w-15049 r-15050 mod-15051)
+ (if (null? p-15048)
+ (if (null? e-15047) r-15050 #f)
+ (if (pair? p-15048)
+ (if (pair? e-15047)
+ (match-15018
+ (car e-15047)
+ (car p-15048)
+ w-15049
+ (match-15018
+ (cdr e-15047)
+ (cdr p-15048)
+ w-15049
+ r-15050
+ mod-15051)
+ mod-15051)
#f)
- (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
+ (if (eq? p-15048 'each-any)
+ (let ((l-15056
+ (match-each-any-15014 e-15047 w-15049 mod-15051)))
+ (if l-15056 (cons l-15056 r-15050) #f))
+ (let ((key-15061 (vector-ref p-15048 0)))
+ (if (eqv? key-15061 'each)
+ (if (null? e-15047)
+ (match-empty-15015
+ (vector-ref p-15048 1)
+ r-15050)
+ (let ((l-15068
+ (match-each-15012
+ e-15047
+ (vector-ref p-15048 1)
+ w-15049
+ mod-15051)))
+ (if l-15068
(letrec*
- ((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))
+ ((collect-15071
+ (lambda (l-15122)
+ (if (null? (car l-15122))
+ r-15050
+ (cons (map car l-15122)
+ (collect-15071
+ (map cdr l-15122)))))))
+ (collect-15071 l-15068))
#f)))
- (if (eqv? key-16893 'each+)
+ (if (eqv? key-15061 'each+)
(call-with-values
(lambda ()
- (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)))
+ (let ((x-pat-15131 (vector-ref p-15048 1))
+ (y-pat-15132 (vector-ref p-15048 2))
+ (z-pat-15133 (vector-ref p-15048 3)))
(letrec*
- ((f-16969
- (lambda (e-16971 w-16972)
- (if (pair? e-16971)
+ ((f-15137
+ (lambda (e-15139 w-15140)
+ (if (pair? e-15139)
(call-with-values
(lambda ()
- (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
+ (f-15137 (cdr e-15139) w-15140))
+ (lambda (xr*-15141
+ y-pat-15142
+ r-15143)
+ (if r-15143
+ (if (null? y-pat-15142)
+ (let ((xr-15144
+ (match-15018
+ (car e-15139)
+ x-pat-15131
+ w-15140
'()
- mod-16883)))
- (if xr-16976
+ mod-15051)))
+ (if xr-15144
(values
- (cons xr-16976 xr*-16973)
- y-pat-16974
- r-16975)
+ (cons xr-15144 xr*-15141)
+ y-pat-15142
+ r-15143)
(values #f #f #f)))
(values
'()
- (cdr y-pat-16974)
- (match-16850
- (car e-16971)
- (car y-pat-16974)
- w-16972
- r-16975
- mod-16883)))
+ (cdr y-pat-15142)
+ (match-15018
+ (car e-15139)
+ (car y-pat-15142)
+ w-15140
+ r-15143
+ mod-15051)))
(values #f #f #f))))
- (if (if (vector? e-16971)
- (if (= (vector-length e-16971) 4)
- (eq? (vector-ref e-16971 0)
+ (if (if (vector? e-15139)
+ (if (= (vector-length e-15139) 4)
+ (eq? (vector-ref e-15139 0)
'syntax-object)
#f)
#f)
- (f-16969
- (vector-ref e-16971 1)
- (join-wraps-6361 w-16972 e-16971))
+ (f-15137
+ (vector-ref e-15139 1)
+ (join-wraps-4310 w-15140 e-15139))
(values
'()
- 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))
+ y-pat-15132
+ (match-15018
+ e-15139
+ z-pat-15133
+ w-15140
+ r-15050
+ mod-15051)))))))
+ (f-15137 e-15047 w-15049))))
+ (lambda (xr*-15170 y-pat-15171 r-15172)
+ (if r-15172
+ (if (null? y-pat-15171)
+ (if (null? xr*-15170)
+ (match-empty-15015
+ (vector-ref p-15048 1)
+ r-15172)
+ (combine-15016 xr*-15170 r-15172))
#f)
#f)))
- (if (eqv? key-16893 'free-id)
- (if (if (symbol? e-16879)
+ (if (eqv? key-15061 'free-id)
+ (if (if (symbol? e-15047)
#t
- (if (if (vector? e-16879)
- (if (= (vector-length e-16879) 4)
- (eq? (vector-ref e-16879 0)
+ (if (if (vector? e-15047)
+ (if (= (vector-length e-15047) 4)
+ (eq? (vector-ref e-15047 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref e-16879 1))
+ (symbol? (vector-ref e-15047 1))
#f))
- (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 (let ((i-15503
+ (wrap-4323 e-15047 w-15049 mod-15051))
+ (j-15504 (vector-ref p-15048 1)))
+ (if (eq? (if (if (vector? i-15503)
(if (= (vector-length
- i-17335)
+ i-15503)
4)
- (eq? (vector-ref i-17335 0)
+ (eq? (vector-ref i-15503 0)
'syntax-object)
#f)
#f)
- (vector-ref i-17335 1)
- i-17335)
- (if (if (vector? j-17336)
+ (vector-ref i-15503 1)
+ i-15503)
+ (if (if (vector? j-15504)
(if (= (vector-length
- j-17336)
+ j-15504)
4)
- (eq? (vector-ref j-17336 0)
+ (eq? (vector-ref j-15504 0)
'syntax-object)
#f)
#f)
- (vector-ref j-17336 1)
- j-17336))
- (eq? (id-var-name-6364 i-17335 '(()))
- (id-var-name-6364 j-17336 '(())))
+ (vector-ref j-15504 1)
+ j-15504))
+ (eq? (id-var-name-4313 i-15503 '(()))
+ (id-var-name-4313 j-15504 '(())))
#f))
- r-16882
+ r-15050
#f)
#f)
- (if (eqv? key-16893 'atom)
+ (if (eqv? key-15061 'atom)
(if (equal?
- (vector-ref p-16880 1)
- (strip-6394 e-16879 w-16881))
- r-16882
+ (vector-ref p-15048 1)
+ (strip-4343 e-15047 w-15049))
+ r-15050
#f)
- (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)
+ (if (eqv? key-15061 'vector)
+ (if (vector? e-15047)
+ (match-15018
+ (vector->list e-15047)
+ (vector-ref p-15048 1)
+ w-15049
+ r-15050
+ mod-15051)
#f))))))))))))
- (match-16850
- (lambda (e-17396 p-17397 w-17398 r-17399 mod-17400)
- (if (not r-17399)
+ (match-15018
+ (lambda (e-15564 p-15565 w-15566 r-15567 mod-15568)
+ (if (not r-15567)
#f
- (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)
+ (if (eq? p-15565 '_)
+ r-15567
+ (if (eq? p-15565 'any)
+ (cons (wrap-4323 e-15564 w-15566 mod-15568)
+ r-15567)
+ (if (if (vector? e-15564)
+ (if (= (vector-length e-15564) 4)
+ (eq? (vector-ref e-15564 0) 'syntax-object)
#f)
#f)
- (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))))))))
+ (match*-15017
+ (vector-ref e-15564 1)
+ p-15565
+ (join-wraps-4310 w-15566 (vector-ref e-15564 2))
+ r-15567
+ (vector-ref e-15564 3))
+ (match*-15017
+ e-15564
+ p-15565
+ w-15566
+ r-15567
+ mod-15568))))))))
(set! $sc-dispatch
- (lambda (e-16851 p-16852)
- (if (eq? p-16852 'any)
- (list e-16851)
- (if (eq? p-16852 '_)
+ (lambda (e-15019 p-15020)
+ (if (eq? p-15020 'any)
+ (list e-15019)
+ (if (eq? p-15020 '_)
'()
- (if (if (vector? e-16851)
- (if (= (vector-length e-16851) 4)
- (eq? (vector-ref e-16851 0) 'syntax-object)
+ (if (if (vector? e-15019)
+ (if (= (vector-length e-15019) 4)
+ (eq? (vector-ref e-15019 0) 'syntax-object)
#f)
#f)
- (match*-16849
- (vector-ref e-16851 1)
- p-16852
- (vector-ref e-16851 2)
+ (match*-15017
+ (vector-ref e-15019 1)
+ p-15020
+ (vector-ref e-15019 2)
'()
- (vector-ref e-16851 3))
- (match*-16849 e-16851 p-16852 '(()) '() #f))))))))))
+ (vector-ref e-15019 3))
+ (match*-15017 e-15019 p-15020 '(()) '() #f))))))))))
(define with-syntax
(make-syntax-transformer
'with-syntax
'macro
- (lambda (x-29838)
- (let ((tmp-29840
- ($sc-dispatch x-29838 '(_ () any . each-any))))
- (if tmp-29840
+ (lambda (x-28006)
+ (let ((tmp-28008
+ ($sc-dispatch x-28006 '(_ () any . each-any))))
+ (if tmp-28008
(@apply
- (lambda (e1-29844 e2-29845)
+ (lambda (e1-28012 e2-28013)
(cons '#(syntax-object
let
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("l-*-29811" "l-*-29812"))
+ #("l-*-27979" "l-*-27980"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-29808")))
+ #(ribcage #(x) #((top)) #("l-*-27976")))
(hygiene guile))
- (cons '() (cons e1-29844 e2-29845))))
- tmp-29840)
- (let ((tmp-29846
+ (cons '() (cons e1-28012 e2-28013))))
+ tmp-28008)
+ (let ((tmp-28014
($sc-dispatch
- x-29838
+ x-28006
'(_ ((any any)) any . each-any))))
- (if tmp-29846
+ (if tmp-28014
(@apply
- (lambda (out-29850 in-29851 e1-29852 e2-29853)
+ (lambda (out-28018 in-28019 e1-28020 e2-28021)
(list '#(syntax-object
syntax-case
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("l-*-29817"
- "l-*-29818"
- "l-*-29819"
- "l-*-29820"))
+ #("l-*-27985"
+ "l-*-27986"
+ "l-*-27987"
+ "l-*-27988"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-29808")))
+ #(ribcage #(x) #((top)) #("l-*-27976")))
(hygiene guile))
- in-29851
+ in-28019
'()
- (list out-29850
+ (list out-28018
(cons '#(syntax-object
let
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("l-*-29817"
- "l-*-29818"
- "l-*-29819"
- "l-*-29820"))
+ #("l-*-27985"
+ "l-*-27986"
+ "l-*-27987"
+ "l-*-27988"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-29808")))
+ #("l-*-27976")))
(hygiene guile))
- (cons '() (cons e1-29852 e2-29853))))))
- tmp-29846)
- (let ((tmp-29854
+ (cons '() (cons e1-28020 e2-28021))))))
+ tmp-28014)
+ (let ((tmp-28022
($sc-dispatch
- x-29838
+ x-28006
'(_ #(each (any any)) any . each-any))))
- (if tmp-29854
+ (if tmp-28022
(@apply
- (lambda (out-29858 in-29859 e1-29860 e2-29861)
+ (lambda (out-28026 in-28027 e1-28028 e2-28029)
(list '#(syntax-object
syntax-case
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("l-*-29827"
- "l-*-29828"
- "l-*-29829"
- "l-*-29830"))
+ #("l-*-27995"
+ "l-*-27996"
+ "l-*-27997"
+ "l-*-27998"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-29808")))
+ #(ribcage #(x) #((top)) #("l-*-27976")))
(hygiene guile))
(cons '#(syntax-object
list
@@ -22346,66 +22299,66 @@
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("l-*-29827"
- "l-*-29828"
- "l-*-29829"
- "l-*-29830"))
+ #("l-*-27995"
+ "l-*-27996"
+ "l-*-27997"
+ "l-*-27998"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-29808")))
+ #(ribcage #(x) #((top)) #("l-*-27976")))
(hygiene guile))
- in-29859)
+ in-28027)
'()
- (list out-29858
+ (list out-28026
(cons '#(syntax-object
let
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("l-*-29827"
- "l-*-29828"
- "l-*-29829"
- "l-*-29830"))
+ #("l-*-27995"
+ "l-*-27996"
+ "l-*-27997"
+ "l-*-27998"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-29808")))
+ #("l-*-27976")))
(hygiene guile))
- (cons '() (cons e1-29860 e2-29861))))))
- tmp-29854)
+ (cons '() (cons e1-28028 e2-28029))))))
+ tmp-28022)
(syntax-violation
#f
"source expression failed to match any pattern"
- x-29838))))))))))
+ x-28006))))))))))
(define syntax-rules
(make-syntax-transformer
'syntax-rules
'macro
- (lambda (x-29915)
- (let ((tmp-29917
+ (lambda (x-28083)
+ (let ((tmp-28085
($sc-dispatch
- x-29915
+ x-28083
'(_ each-any . #(each ((any . any) any))))))
- (if tmp-29917
+ (if tmp-28085
(@apply
- (lambda (k-29921
- keyword-29922
- pattern-29923
- template-29924)
+ (lambda (k-28089
+ keyword-28090
+ pattern-28091
+ template-28092)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("l-*-29878"
- "l-*-29879"
- "l-*-29880"
- "l-*-29881"))
+ #("l-*-28046"
+ "l-*-28047"
+ "l-*-28048"
+ "l-*-28049"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-29875")))
+ #(ribcage #(x) #((top)) #("l-*-28043")))
(hygiene guile))
'(#(syntax-object
x
@@ -22413,12 +22366,12 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("l-*-29878"
- "l-*-29879"
- "l-*-29880"
- "l-*-29881"))
+ #("l-*-28046"
+ "l-*-28047"
+ "l-*-28048"
+ "l-*-28049"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-29875")))
+ #(ribcage #(x) #((top)) #("l-*-28043")))
(hygiene guile)))
(vector
'(#(syntax-object
@@ -22427,12 +22380,12 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("l-*-29878"
- "l-*-29879"
- "l-*-29880"
- "l-*-29881"))
+ #("l-*-28046"
+ "l-*-28047"
+ "l-*-28048"
+ "l-*-28049"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-29875")))
+ #(ribcage #(x) #((top)) #("l-*-28043")))
(hygiene guile))
.
#(syntax-object
@@ -22441,12 +22394,12 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("l-*-29878"
- "l-*-29879"
- "l-*-29880"
- "l-*-29881"))
+ #("l-*-28046"
+ "l-*-28047"
+ "l-*-28048"
+ "l-*-28049"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-29875")))
+ #(ribcage #(x) #((top)) #("l-*-28043")))
(hygiene guile)))
(cons '#(syntax-object
patterns
@@ -22454,26 +22407,26 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("l-*-29878"
- "l-*-29879"
- "l-*-29880"
- "l-*-29881"))
+ #("l-*-28046"
+ "l-*-28047"
+ "l-*-28048"
+ "l-*-28049"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-29875")))
+ #(ribcage #(x) #((top)) #("l-*-28043")))
(hygiene guile))
- pattern-29923))
+ pattern-28091))
(cons '#(syntax-object
syntax-case
((top)
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("l-*-29878"
- "l-*-29879"
- "l-*-29880"
- "l-*-29881"))
+ #("l-*-28046"
+ "l-*-28047"
+ "l-*-28048"
+ "l-*-28049"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-29875")))
+ #(ribcage #(x) #((top)) #("l-*-28043")))
(hygiene guile))
(cons '#(syntax-object
x
@@ -22481,16 +22434,16 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("l-*-29878"
- "l-*-29879"
- "l-*-29880"
- "l-*-29881"))
+ #("l-*-28046"
+ "l-*-28047"
+ "l-*-28048"
+ "l-*-28049"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-29875")))
+ #(ribcage #(x) #((top)) #("l-*-28043")))
(hygiene guile))
- (cons k-29921
- (map (lambda (tmp-29889-29925
- tmp-29888-29926)
+ (cons k-28089
+ (map (lambda (tmp-28057-28093
+ tmp-28056-28094)
(list (cons '#(syntax-object
dummy
((top)
@@ -22503,10 +22456,10 @@
(top)
(top)
(top))
- #("l-*-29878"
- "l-*-29879"
- "l-*-29880"
- "l-*-29881"))
+ #("l-*-28046"
+ "l-*-28047"
+ "l-*-28048"
+ "l-*-28049"))
#(ribcage
()
()
@@ -22514,9 +22467,9 @@
#(ribcage
#(x)
#((top))
- #("l-*-29875")))
+ #("l-*-28043")))
(hygiene guile))
- tmp-29888-29926)
+ tmp-28056-28094)
(list '#(syntax-object
syntax
((top)
@@ -22529,10 +22482,10 @@
(top)
(top)
(top))
- #("l-*-29878"
- "l-*-29879"
- "l-*-29880"
- "l-*-29881"))
+ #("l-*-28046"
+ "l-*-28047"
+ "l-*-28048"
+ "l-*-28049"))
#(ribcage
()
()
@@ -22540,45 +22493,45 @@
#(ribcage
#(x)
#((top))
- #("l-*-29875")))
+ #("l-*-28043")))
(hygiene guile))
- tmp-29889-29925)))
- template-29924
- pattern-29923))))))
- tmp-29917)
- (let ((tmp-29927
+ tmp-28057-28093)))
+ template-28092
+ pattern-28091))))))
+ tmp-28085)
+ (let ((tmp-28095
($sc-dispatch
- x-29915
+ x-28083
'(_ each-any any . #(each ((any . any) any))))))
- (if (if tmp-29927
+ (if (if tmp-28095
(@apply
- (lambda (k-29931
- docstring-29932
- keyword-29933
- pattern-29934
- template-29935)
- (string? (syntax->datum docstring-29932)))
- tmp-29927)
+ (lambda (k-28099
+ docstring-28100
+ keyword-28101
+ pattern-28102
+ template-28103)
+ (string? (syntax->datum docstring-28100)))
+ tmp-28095)
#f)
(@apply
- (lambda (k-29936
- docstring-29937
- keyword-29938
- pattern-29939
- template-29940)
+ (lambda (k-28104
+ docstring-28105
+ keyword-28106
+ pattern-28107
+ template-28108)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("l-*-29901"
- "l-*-29902"
- "l-*-29903"
- "l-*-29904"
- "l-*-29905"))
+ #("l-*-28069"
+ "l-*-28070"
+ "l-*-28071"
+ "l-*-28072"
+ "l-*-28073"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-29875")))
+ #(ribcage #(x) #((top)) #("l-*-28043")))
(hygiene guile))
'(#(syntax-object
x
@@ -22586,15 +22539,15 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("l-*-29901"
- "l-*-29902"
- "l-*-29903"
- "l-*-29904"
- "l-*-29905"))
+ #("l-*-28069"
+ "l-*-28070"
+ "l-*-28071"
+ "l-*-28072"
+ "l-*-28073"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-29875")))
+ #(ribcage #(x) #((top)) #("l-*-28043")))
(hygiene guile)))
- docstring-29937
+ docstring-28105
(vector
'(#(syntax-object
macro-type
@@ -22602,13 +22555,13 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("l-*-29901"
- "l-*-29902"
- "l-*-29903"
- "l-*-29904"
- "l-*-29905"))
+ #("l-*-28069"
+ "l-*-28070"
+ "l-*-28071"
+ "l-*-28072"
+ "l-*-28073"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-29875")))
+ #(ribcage #(x) #((top)) #("l-*-28043")))
(hygiene guile))
.
#(syntax-object
@@ -22617,13 +22570,13 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("l-*-29901"
- "l-*-29902"
- "l-*-29903"
- "l-*-29904"
- "l-*-29905"))
+ #("l-*-28069"
+ "l-*-28070"
+ "l-*-28071"
+ "l-*-28072"
+ "l-*-28073"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-29875")))
+ #(ribcage #(x) #((top)) #("l-*-28043")))
(hygiene guile)))
(cons '#(syntax-object
patterns
@@ -22631,28 +22584,28 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("l-*-29901"
- "l-*-29902"
- "l-*-29903"
- "l-*-29904"
- "l-*-29905"))
+ #("l-*-28069"
+ "l-*-28070"
+ "l-*-28071"
+ "l-*-28072"
+ "l-*-28073"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-29875")))
+ #(ribcage #(x) #((top)) #("l-*-28043")))
(hygiene guile))
- pattern-29939))
+ pattern-28107))
(cons '#(syntax-object
syntax-case
((top)
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("l-*-29901"
- "l-*-29902"
- "l-*-29903"
- "l-*-29904"
- "l-*-29905"))
+ #("l-*-28069"
+ "l-*-28070"
+ "l-*-28071"
+ "l-*-28072"
+ "l-*-28073"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-29875")))
+ #(ribcage #(x) #((top)) #("l-*-28043")))
(hygiene guile))
(cons '#(syntax-object
x
@@ -22664,20 +22617,20 @@
pattern
template)
#((top) (top) (top) (top) (top))
- #("l-*-29901"
- "l-*-29902"
- "l-*-29903"
- "l-*-29904"
- "l-*-29905"))
+ #("l-*-28069"
+ "l-*-28070"
+ "l-*-28071"
+ "l-*-28072"
+ "l-*-28073"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-29875")))
+ #("l-*-28043")))
(hygiene guile))
- (cons k-29936
- (map (lambda (tmp-29914-29941
- tmp-29913-29942)
+ (cons k-28104
+ (map (lambda (tmp-28082-28109
+ tmp-28081-28110)
(list (cons '#(syntax-object
dummy
((top)
@@ -22692,11 +22645,11 @@
(top)
(top)
(top))
- #("l-*-29901"
- "l-*-29902"
- "l-*-29903"
- "l-*-29904"
- "l-*-29905"))
+ #("l-*-28069"
+ "l-*-28070"
+ "l-*-28071"
+ "l-*-28072"
+ "l-*-28073"))
#(ribcage
()
()
@@ -22704,10 +22657,10 @@
#(ribcage
#(x)
#((top))
- #("l-*-29875")))
+ #("l-*-28043")))
(hygiene
guile))
- tmp-29913-29942)
+ tmp-28081-28110)
(list '#(syntax-object
syntax
((top)
@@ -22722,11 +22675,11 @@
(top)
(top)
(top))
- #("l-*-29901"
- "l-*-29902"
- "l-*-29903"
- "l-*-29904"
- "l-*-29905"))
+ #("l-*-28069"
+ "l-*-28070"
+ "l-*-28071"
+ "l-*-28072"
+ "l-*-28073"))
#(ribcage
()
()
@@ -22734,48 +22687,48 @@
#(ribcage
#(x)
#((top))
- #("l-*-29875")))
+ #("l-*-28043")))
(hygiene
guile))
- tmp-29914-29941)))
- template-29940
- pattern-29939))))))
- tmp-29927)
+ tmp-28082-28109)))
+ template-28108
+ pattern-28107))))))
+ tmp-28095)
(syntax-violation
#f
"source expression failed to match any pattern"
- x-29915))))))))
+ x-28083))))))))
(define define-syntax-rule
(make-syntax-transformer
'define-syntax-rule
'macro
- (lambda (x-29979)
- (let ((tmp-29981
- ($sc-dispatch x-29979 '(_ (any . any) any))))
- (if tmp-29981
+ (lambda (x-28147)
+ (let ((tmp-28149
+ ($sc-dispatch x-28147 '(_ (any . any) any))))
+ (if tmp-28149
(@apply
- (lambda (name-29985 pattern-29986 template-29987)
+ (lambda (name-28153 pattern-28154 template-28155)
(list '#(syntax-object
define-syntax
((top)
#(ribcage
#(name pattern template)
#((top) (top) (top))
- #("l-*-29956" "l-*-29957" "l-*-29958"))
+ #("l-*-28124" "l-*-28125" "l-*-28126"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-29953")))
+ #(ribcage #(x) #((top)) #("l-*-28121")))
(hygiene guile))
- name-29985
+ name-28153
(list '#(syntax-object
syntax-rules
((top)
#(ribcage
#(name pattern template)
#((top) (top) (top))
- #("l-*-29956" "l-*-29957" "l-*-29958"))
+ #("l-*-28124" "l-*-28125" "l-*-28126"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-29953")))
+ #(ribcage #(x) #((top)) #("l-*-28121")))
(hygiene guile))
'()
(list (cons '#(syntax-object
@@ -22784,63 +22737,63 @@
#(ribcage
#(name pattern template)
#((top) (top) (top))
- #("l-*-29956"
- "l-*-29957"
- "l-*-29958"))
+ #("l-*-28124"
+ "l-*-28125"
+ "l-*-28126"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-29953")))
+ #("l-*-28121")))
(hygiene guile))
- pattern-29986)
- template-29987))))
- tmp-29981)
- (let ((tmp-29988
- ($sc-dispatch x-29979 '(_ (any . any) any any))))
- (if (if tmp-29988
+ pattern-28154)
+ template-28155))))
+ tmp-28149)
+ (let ((tmp-28156
+ ($sc-dispatch x-28147 '(_ (any . any) any any))))
+ (if (if tmp-28156
(@apply
- (lambda (name-29992
- pattern-29993
- docstring-29994
- template-29995)
- (string? (syntax->datum docstring-29994)))
- tmp-29988)
+ (lambda (name-28160
+ pattern-28161
+ docstring-28162
+ template-28163)
+ (string? (syntax->datum docstring-28162)))
+ tmp-28156)
#f)
(@apply
- (lambda (name-29996
- pattern-29997
- docstring-29998
- template-29999)
+ (lambda (name-28164
+ pattern-28165
+ docstring-28166
+ template-28167)
(list '#(syntax-object
define-syntax
((top)
#(ribcage
#(name pattern docstring template)
#((top) (top) (top) (top))
- #("l-*-29971"
- "l-*-29972"
- "l-*-29973"
- "l-*-29974"))
+ #("l-*-28139"
+ "l-*-28140"
+ "l-*-28141"
+ "l-*-28142"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-29953")))
+ #(ribcage #(x) #((top)) #("l-*-28121")))
(hygiene guile))
- name-29996
+ name-28164
(list '#(syntax-object
syntax-rules
((top)
#(ribcage
#(name pattern docstring template)
#((top) (top) (top) (top))
- #("l-*-29971"
- "l-*-29972"
- "l-*-29973"
- "l-*-29974"))
+ #("l-*-28139"
+ "l-*-28140"
+ "l-*-28141"
+ "l-*-28142"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-29953")))
+ #(ribcage #(x) #((top)) #("l-*-28121")))
(hygiene guile))
'()
- docstring-29998
+ docstring-28166
(list (cons '#(syntax-object
_
((top)
@@ -22850,45 +22803,45 @@
docstring
template)
#((top) (top) (top) (top))
- #("l-*-29971"
- "l-*-29972"
- "l-*-29973"
- "l-*-29974"))
+ #("l-*-28139"
+ "l-*-28140"
+ "l-*-28141"
+ "l-*-28142"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-29953")))
+ #("l-*-28121")))
(hygiene guile))
- pattern-29997)
- template-29999))))
- tmp-29988)
+ pattern-28165)
+ template-28167))))
+ tmp-28156)
(syntax-violation
#f
"source expression failed to match any pattern"
- x-29979))))))))
+ x-28147))))))))
(define let*
(make-syntax-transformer
'let*
'macro
- (lambda (x-30048)
- (let ((tmp-30050
+ (lambda (x-28216)
+ (let ((tmp-28218
($sc-dispatch
- x-30048
+ x-28216
'(any #(each (any any)) any . each-any))))
- (if (if tmp-30050
+ (if (if tmp-28218
(@apply
- (lambda (let*-30054 x-30055 v-30056 e1-30057 e2-30058)
- (and-map identifier? x-30055))
- tmp-30050)
+ (lambda (let*-28222 x-28223 v-28224 e1-28225 e2-28226)
+ (and-map identifier? x-28223))
+ tmp-28218)
#f)
(@apply
- (lambda (let*-30059 x-30060 v-30061 e1-30062 e2-30063)
+ (lambda (let*-28227 x-28228 v-28229 e1-28230 e2-28231)
(letrec*
- ((f-30064
- (lambda (bindings-30067)
- (if (null? bindings-30067)
+ ((f-28232
+ (lambda (bindings-28235)
+ (if (null? bindings-28235)
(cons '#(syntax-object
let
((top)
@@ -22896,26 +22849,26 @@
#(ribcage
#(f bindings)
#((top) (top))
- #("l-*-30034" "l-*-30035"))
+ #("l-*-28202" "l-*-28203"))
#(ribcage
#(let* x v e1 e2)
#((top) (top) (top) (top) (top))
- #("l-*-30024"
- "l-*-30025"
- "l-*-30026"
- "l-*-30027"
- "l-*-30028"))
+ #("l-*-28192"
+ "l-*-28193"
+ "l-*-28194"
+ "l-*-28195"
+ "l-*-28196"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-30010")))
+ #(ribcage #(x) #((top)) #("l-*-28178")))
(hygiene guile))
- (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
+ (cons '() (cons e1-28230 e2-28231)))
+ (let ((tmp-28236
+ (list (f-28232 (cdr bindings-28235))
+ (car bindings-28235))))
+ (let ((tmp-28237 ($sc-dispatch tmp-28236 '(any any))))
+ (if tmp-28237
(@apply
- (lambda (body-30071 binding-30072)
+ (lambda (body-28239 binding-28240)
(list '#(syntax-object
let
((top)
@@ -22923,84 +22876,84 @@
#(ribcage
#(body binding)
#((top) (top))
- #("l-*-30044" "l-*-30045"))
+ #("l-*-28212" "l-*-28213"))
#(ribcage () () ())
#(ribcage
#(f bindings)
#((top) (top))
- #("l-*-30034" "l-*-30035"))
+ #("l-*-28202" "l-*-28203"))
#(ribcage
#(let* x v e1 e2)
#((top) (top) (top) (top) (top))
- #("l-*-30024"
- "l-*-30025"
- "l-*-30026"
- "l-*-30027"
- "l-*-30028"))
+ #("l-*-28192"
+ "l-*-28193"
+ "l-*-28194"
+ "l-*-28195"
+ "l-*-28196"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-30010")))
+ #("l-*-28178")))
(hygiene guile))
- (list binding-30072)
- body-30071))
- tmp-30069)
+ (list binding-28240)
+ body-28239))
+ tmp-28237)
(syntax-violation
#f
"source expression failed to match any pattern"
- tmp-30068))))))))
- (f-30064 (map list x-30060 v-30061))))
- tmp-30050)
+ tmp-28236))))))))
+ (f-28232 (map list x-28228 v-28229))))
+ tmp-28218)
(syntax-violation
#f
"source expression failed to match any pattern"
- x-30048))))))
+ x-28216))))))
(define do
(make-syntax-transformer
'do
'macro
- (lambda (orig-x-30130)
- (let ((tmp-30132
+ (lambda (orig-x-28298)
+ (let ((tmp-28300
($sc-dispatch
- orig-x-30130
+ orig-x-28298
'(_ #(each (any any . any))
(any . each-any)
.
each-any))))
- (if tmp-30132
+ (if tmp-28300
(@apply
- (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
+ (lambda (var-28304
+ init-28305
+ step-28306
+ e0-28307
+ e1-28308
+ c-28309)
+ (let ((tmp-28310
+ (map (lambda (v-28313 s-28314)
+ (let ((tmp-28316 ($sc-dispatch s-28314 '())))
+ (if tmp-28316
+ (@apply (lambda () v-28313) tmp-28316)
+ (let ((tmp-28319
+ ($sc-dispatch s-28314 '(any))))
+ (if tmp-28319
(@apply
- (lambda (e-30154) e-30154)
- tmp-30151)
+ (lambda (e-28322) e-28322)
+ tmp-28319)
(syntax-violation
'do
"bad step expression"
- orig-x-30130
- s-30146))))))
- var-30136
- step-30138)))
- (let ((tmp-30143 ($sc-dispatch tmp-30142 'each-any)))
- (if tmp-30143
+ orig-x-28298
+ s-28314))))))
+ var-28304
+ step-28306)))
+ (let ((tmp-28311 ($sc-dispatch tmp-28310 'each-any)))
+ (if tmp-28311
(@apply
- (lambda (step-30160)
- (let ((tmp-30162 ($sc-dispatch e1-30140 '())))
- (if tmp-30162
+ (lambda (step-28328)
+ (let ((tmp-28330 ($sc-dispatch e1-28308 '())))
+ (if tmp-28330
(@apply
(lambda ()
(list '#(syntax-object
@@ -23010,7 +22963,7 @@
#(ribcage
#(step)
#((top))
- #("l-*-30098"))
+ #("l-*-28266"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -23019,17 +22972,17 @@
(top)
(top)
(top))
- #("l-*-30083"
- "l-*-30084"
- "l-*-30085"
- "l-*-30086"
- "l-*-30087"
- "l-*-30088"))
+ #("l-*-28251"
+ "l-*-28252"
+ "l-*-28253"
+ "l-*-28254"
+ "l-*-28255"
+ "l-*-28256"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("l-*-30080")))
+ #("l-*-28248")))
(hygiene guile))
'#(syntax-object
doloop
@@ -23038,7 +22991,7 @@
#(ribcage
#(step)
#((top))
- #("l-*-30098"))
+ #("l-*-28266"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -23047,19 +23000,19 @@
(top)
(top)
(top))
- #("l-*-30083"
- "l-*-30084"
- "l-*-30085"
- "l-*-30086"
- "l-*-30087"
- "l-*-30088"))
+ #("l-*-28251"
+ "l-*-28252"
+ "l-*-28253"
+ "l-*-28254"
+ "l-*-28255"
+ "l-*-28256"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("l-*-30080")))
+ #("l-*-28248")))
(hygiene guile))
- (map list var-30136 init-30137)
+ (map list var-28304 init-28305)
(list '#(syntax-object
if
((top)
@@ -23067,7 +23020,7 @@
#(ribcage
#(step)
#((top))
- #("l-*-30098"))
+ #("l-*-28266"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -23076,17 +23029,17 @@
(top)
(top)
(top))
- #("l-*-30083"
- "l-*-30084"
- "l-*-30085"
- "l-*-30086"
- "l-*-30087"
- "l-*-30088"))
+ #("l-*-28251"
+ "l-*-28252"
+ "l-*-28253"
+ "l-*-28254"
+ "l-*-28255"
+ "l-*-28256"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("l-*-30080")))
+ #("l-*-28248")))
(hygiene guile))
(list '#(syntax-object
not
@@ -23095,7 +23048,7 @@
#(ribcage
#(step)
#((top))
- #("l-*-30098"))
+ #("l-*-28266"))
#(ribcage
#(var
init
@@ -23109,19 +23062,19 @@
(top)
(top)
(top))
- #("l-*-30083"
- "l-*-30084"
- "l-*-30085"
- "l-*-30086"
- "l-*-30087"
- "l-*-30088"))
+ #("l-*-28251"
+ "l-*-28252"
+ "l-*-28253"
+ "l-*-28254"
+ "l-*-28255"
+ "l-*-28256"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("l-*-30080")))
+ #("l-*-28248")))
(hygiene guile))
- e0-30139)
+ e0-28307)
(cons '#(syntax-object
begin
((top)
@@ -23129,7 +23082,7 @@
#(ribcage
#(step)
#((top))
- #("l-*-30098"))
+ #("l-*-28266"))
#(ribcage
#(var
init
@@ -23143,20 +23096,20 @@
(top)
(top)
(top))
- #("l-*-30083"
- "l-*-30084"
- "l-*-30085"
- "l-*-30086"
- "l-*-30087"
- "l-*-30088"))
+ #("l-*-28251"
+ "l-*-28252"
+ "l-*-28253"
+ "l-*-28254"
+ "l-*-28255"
+ "l-*-28256"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("l-*-30080")))
+ #("l-*-28248")))
(hygiene guile))
(append
- c-30141
+ c-28309
(list (cons '#(syntax-object
doloop
((top)
@@ -23167,7 +23120,7 @@
#(ribcage
#(step)
#((top))
- #("l-*-30098"))
+ #("l-*-28266"))
#(ribcage
#(var
init
@@ -23181,12 +23134,12 @@
(top)
(top)
(top))
- #("l-*-30083"
- "l-*-30084"
- "l-*-30085"
- "l-*-30086"
- "l-*-30087"
- "l-*-30088"))
+ #("l-*-28251"
+ "l-*-28252"
+ "l-*-28253"
+ "l-*-28254"
+ "l-*-28255"
+ "l-*-28256"))
#(ribcage
()
()
@@ -23194,28 +23147,28 @@
#(ribcage
#(orig-x)
#((top))
- #("l-*-30080")))
+ #("l-*-28248")))
(hygiene
guile))
- step-30160)))))))
- tmp-30162)
- (let ((tmp-30166
- ($sc-dispatch e1-30140 '(any . each-any))))
- (if tmp-30166
+ step-28328)))))))
+ tmp-28330)
+ (let ((tmp-28334
+ ($sc-dispatch e1-28308 '(any . each-any))))
+ (if tmp-28334
(@apply
- (lambda (e1-30170 e2-30171)
+ (lambda (e1-28338 e2-28339)
(list '#(syntax-object
let
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("l-*-30107" "l-*-30108"))
+ #("l-*-28275" "l-*-28276"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("l-*-30098"))
+ #("l-*-28266"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -23224,17 +23177,17 @@
(top)
(top)
(top))
- #("l-*-30083"
- "l-*-30084"
- "l-*-30085"
- "l-*-30086"
- "l-*-30087"
- "l-*-30088"))
+ #("l-*-28251"
+ "l-*-28252"
+ "l-*-28253"
+ "l-*-28254"
+ "l-*-28255"
+ "l-*-28256"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("l-*-30080")))
+ #("l-*-28248")))
(hygiene guile))
'#(syntax-object
doloop
@@ -23242,12 +23195,12 @@
#(ribcage
#(e1 e2)
#((top) (top))
- #("l-*-30107" "l-*-30108"))
+ #("l-*-28275" "l-*-28276"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("l-*-30098"))
+ #("l-*-28266"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -23256,32 +23209,32 @@
(top)
(top)
(top))
- #("l-*-30083"
- "l-*-30084"
- "l-*-30085"
- "l-*-30086"
- "l-*-30087"
- "l-*-30088"))
+ #("l-*-28251"
+ "l-*-28252"
+ "l-*-28253"
+ "l-*-28254"
+ "l-*-28255"
+ "l-*-28256"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("l-*-30080")))
+ #("l-*-28248")))
(hygiene guile))
- (map list var-30136 init-30137)
+ (map list var-28304 init-28305)
(list '#(syntax-object
if
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("l-*-30107"
- "l-*-30108"))
+ #("l-*-28275"
+ "l-*-28276"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("l-*-30098"))
+ #("l-*-28266"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -23290,32 +23243,32 @@
(top)
(top)
(top))
- #("l-*-30083"
- "l-*-30084"
- "l-*-30085"
- "l-*-30086"
- "l-*-30087"
- "l-*-30088"))
+ #("l-*-28251"
+ "l-*-28252"
+ "l-*-28253"
+ "l-*-28254"
+ "l-*-28255"
+ "l-*-28256"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("l-*-30080")))
+ #("l-*-28248")))
(hygiene guile))
- e0-30139
+ e0-28307
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("l-*-30107"
- "l-*-30108"))
+ #("l-*-28275"
+ "l-*-28276"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("l-*-30098"))
+ #("l-*-28266"))
#(ribcage
#(var
init
@@ -23329,32 +23282,32 @@
(top)
(top)
(top))
- #("l-*-30083"
- "l-*-30084"
- "l-*-30085"
- "l-*-30086"
- "l-*-30087"
- "l-*-30088"))
+ #("l-*-28251"
+ "l-*-28252"
+ "l-*-28253"
+ "l-*-28254"
+ "l-*-28255"
+ "l-*-28256"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("l-*-30080")))
+ #("l-*-28248")))
(hygiene guile))
- (cons e1-30170 e2-30171))
+ (cons e1-28338 e2-28339))
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("l-*-30107"
- "l-*-30108"))
+ #("l-*-28275"
+ "l-*-28276"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("l-*-30098"))
+ #("l-*-28266"))
#(ribcage
#(var
init
@@ -23368,20 +23321,20 @@
(top)
(top)
(top))
- #("l-*-30083"
- "l-*-30084"
- "l-*-30085"
- "l-*-30086"
- "l-*-30087"
- "l-*-30088"))
+ #("l-*-28251"
+ "l-*-28252"
+ "l-*-28253"
+ "l-*-28254"
+ "l-*-28255"
+ "l-*-28256"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("l-*-30080")))
+ #("l-*-28248")))
(hygiene guile))
(append
- c-30141
+ c-28309
(list (cons '#(syntax-object
doloop
((top)
@@ -23390,8 +23343,8 @@
e2)
#((top)
(top))
- #("l-*-30107"
- "l-*-30108"))
+ #("l-*-28275"
+ "l-*-28276"))
#(ribcage
()
()
@@ -23399,7 +23352,7 @@
#(ribcage
#(step)
#((top))
- #("l-*-30098"))
+ #("l-*-28266"))
#(ribcage
#(var
init
@@ -23413,12 +23366,12 @@
(top)
(top)
(top))
- #("l-*-30083"
- "l-*-30084"
- "l-*-30085"
- "l-*-30086"
- "l-*-30087"
- "l-*-30088"))
+ #("l-*-28251"
+ "l-*-28252"
+ "l-*-28253"
+ "l-*-28254"
+ "l-*-28255"
+ "l-*-28256"))
#(ribcage
()
()
@@ -23426,36 +23379,36 @@
#(ribcage
#(orig-x)
#((top))
- #("l-*-30080")))
+ #("l-*-28248")))
(hygiene
guile))
- step-30160)))))))
- tmp-30166)
+ step-28328)))))))
+ tmp-28334)
(syntax-violation
#f
"source expression failed to match any pattern"
- e1-30140))))))
- tmp-30143)
+ e1-28308))))))
+ tmp-28311)
(syntax-violation
#f
"source expression failed to match any pattern"
- tmp-30142)))))
- tmp-30132)
+ tmp-28310)))))
+ tmp-28300)
(syntax-violation
#f
"source expression failed to match any pattern"
- orig-x-30130))))))
+ orig-x-28298))))))
(define quasiquote
(make-syntax-transformer
'quasiquote
'macro
(letrec*
- ((quasi-30451
- (lambda (p-30475 lev-30476)
- (let ((tmp-30478
+ ((quasi-28619
+ (lambda (p-28643 lev-28644)
+ (let ((tmp-28646
($sc-dispatch
- p-30475
+ p-28643
'(#(free-id
#(syntax-object
unquote
@@ -23464,7 +23417,7 @@
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-30203" "l-*-30204"))
+ #("l-*-28371" "l-*-28372"))
#(ribcage
(emit quasivector
quasilist*
@@ -23473,28 +23426,28 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("l-*-30199"
- "l-*-30197"
- "l-*-30195"
- "l-*-30193"
- "l-*-30191"
- "l-*-30189"
- "l-*-30187")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile)))
any))))
- (if tmp-30478
+ (if tmp-28646
(@apply
- (lambda (p-30482)
- (if (= lev-30476 0)
+ (lambda (p-28650)
+ (if (= lev-28644 0)
(list '#(syntax-object
"value"
((top)
- #(ribcage #(p) #((top)) #("l-*-30207"))
+ #(ribcage #(p) #((top)) #("l-*-28375"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-30203" "l-*-30204"))
+ #("l-*-28371" "l-*-28372"))
#(ribcage
(emit quasivector
quasilist*
@@ -23503,25 +23456,25 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("l-*-30199"
- "l-*-30197"
- "l-*-30195"
- "l-*-30193"
- "l-*-30191"
- "l-*-30189"
- "l-*-30187")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile))
- p-30482)
- (quasicons-30453
+ p-28650)
+ (quasicons-28621
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("l-*-30207"))
+ #(ribcage #(p) #((top)) #("l-*-28375"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-30203" "l-*-30204"))
+ #("l-*-28371" "l-*-28372"))
#(ribcage
(emit quasivector
quasilist*
@@ -23530,23 +23483,23 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("l-*-30199"
- "l-*-30197"
- "l-*-30195"
- "l-*-30193"
- "l-*-30191"
- "l-*-30189"
- "l-*-30187")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile))
#(syntax-object
unquote
((top)
- #(ribcage #(p) #((top)) #("l-*-30207"))
+ #(ribcage #(p) #((top)) #("l-*-28375"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-30203" "l-*-30204"))
+ #("l-*-28371" "l-*-28372"))
#(ribcage
(emit quasivector
quasilist*
@@ -23555,19 +23508,19 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("l-*-30199"
- "l-*-30197"
- "l-*-30195"
- "l-*-30193"
- "l-*-30191"
- "l-*-30189"
- "l-*-30187")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile)))
- (quasi-30451 (list p-30482) (#{1-}# lev-30476)))))
- tmp-30478)
- (let ((tmp-30485
+ (quasi-28619 (list p-28650) (#{1-}# lev-28644)))))
+ tmp-28646)
+ (let ((tmp-28653
($sc-dispatch
- p-30475
+ p-28643
'(#(free-id
#(syntax-object
quasiquote
@@ -23576,7 +23529,7 @@
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-30203" "l-*-30204"))
+ #("l-*-28371" "l-*-28372"))
#(ribcage
(emit quasivector
quasilist*
@@ -23585,28 +23538,28 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("l-*-30199"
- "l-*-30197"
- "l-*-30195"
- "l-*-30193"
- "l-*-30191"
- "l-*-30189"
- "l-*-30187")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile)))
any))))
- (if tmp-30485
+ (if tmp-28653
(@apply
- (lambda (p-30489)
- (quasicons-30453
+ (lambda (p-28657)
+ (quasicons-28621
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("l-*-30210"))
+ #(ribcage #(p) #((top)) #("l-*-28378"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-30203" "l-*-30204"))
+ #("l-*-28371" "l-*-28372"))
#(ribcage
(emit quasivector
quasilist*
@@ -23615,23 +23568,23 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("l-*-30199"
- "l-*-30197"
- "l-*-30195"
- "l-*-30193"
- "l-*-30191"
- "l-*-30189"
- "l-*-30187")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile))
#(syntax-object
quasiquote
((top)
- #(ribcage #(p) #((top)) #("l-*-30210"))
+ #(ribcage #(p) #((top)) #("l-*-28378"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-30203" "l-*-30204"))
+ #("l-*-28371" "l-*-28372"))
#(ribcage
(emit quasivector
quasilist*
@@ -23640,23 +23593,23 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("l-*-30199"
- "l-*-30197"
- "l-*-30195"
- "l-*-30193"
- "l-*-30191"
- "l-*-30189"
- "l-*-30187")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile)))
- (quasi-30451 (list p-30489) (#{1+}# lev-30476))))
- tmp-30485)
- (let ((tmp-30492 ($sc-dispatch p-30475 '(any . any))))
- (if tmp-30492
+ (quasi-28619 (list p-28657) (#{1+}# lev-28644))))
+ tmp-28653)
+ (let ((tmp-28660 ($sc-dispatch p-28643 '(any . any))))
+ (if tmp-28660
(@apply
- (lambda (p-30496 q-30497)
- (let ((tmp-30499
+ (lambda (p-28664 q-28665)
+ (let ((tmp-28667
($sc-dispatch
- p-30496
+ p-28664
'(#(free-id
#(syntax-object
unquote
@@ -23664,12 +23617,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("l-*-30213" "l-*-30214"))
+ #("l-*-28381" "l-*-28382"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-30203" "l-*-30204"))
+ #("l-*-28371" "l-*-28372"))
#(ribcage
(emit quasivector
quasilist*
@@ -23684,40 +23637,40 @@
(top)
(top)
(top))
- ("l-*-30199"
- "l-*-30197"
- "l-*-30195"
- "l-*-30193"
- "l-*-30191"
- "l-*-30189"
- "l-*-30187")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile)))
.
each-any))))
- (if tmp-30499
+ (if tmp-28667
(@apply
- (lambda (p-30503)
- (if (= lev-30476 0)
- (quasilist*-30455
- (map (lambda (tmp-30221-30539)
+ (lambda (p-28671)
+ (if (= lev-28644 0)
+ (quasilist*-28623
+ (map (lambda (tmp-28389-28707)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("l-*-30219"))
+ #("l-*-28387"))
#(ribcage
#(p q)
#((top) (top))
- #("l-*-30213"
- "l-*-30214"))
+ #("l-*-28381"
+ "l-*-28382"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-30203"
- "l-*-30204"))
+ #("l-*-28371"
+ "l-*-28372"))
#(ribcage
(emit quasivector
quasilist*
@@ -23732,35 +23685,35 @@
(top)
(top)
(top))
- ("l-*-30199"
- "l-*-30197"
- "l-*-30195"
- "l-*-30193"
- "l-*-30191"
- "l-*-30189"
- "l-*-30187")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile))
- tmp-30221-30539))
- p-30503)
- (quasi-30451 q-30497 lev-30476))
- (quasicons-30453
- (quasicons-30453
+ tmp-28389-28707))
+ p-28671)
+ (quasi-28619 q-28665 lev-28644))
+ (quasicons-28621
+ (quasicons-28621
'(#(syntax-object
"quote"
((top)
#(ribcage
#(p)
#((top))
- #("l-*-30219"))
+ #("l-*-28387"))
#(ribcage
#(p q)
#((top) (top))
- #("l-*-30213" "l-*-30214"))
+ #("l-*-28381" "l-*-28382"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-30203" "l-*-30204"))
+ #("l-*-28371" "l-*-28372"))
#(ribcage
(emit quasivector
quasilist*
@@ -23775,13 +23728,13 @@
(top)
(top)
(top))
- ("l-*-30199"
- "l-*-30197"
- "l-*-30195"
- "l-*-30193"
- "l-*-30191"
- "l-*-30189"
- "l-*-30187")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile))
#(syntax-object
unquote
@@ -23789,16 +23742,16 @@
#(ribcage
#(p)
#((top))
- #("l-*-30219"))
+ #("l-*-28387"))
#(ribcage
#(p q)
#((top) (top))
- #("l-*-30213" "l-*-30214"))
+ #("l-*-28381" "l-*-28382"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-30203" "l-*-30204"))
+ #("l-*-28371" "l-*-28372"))
#(ribcage
(emit quasivector
quasilist*
@@ -23813,22 +23766,22 @@
(top)
(top)
(top))
- ("l-*-30199"
- "l-*-30197"
- "l-*-30195"
- "l-*-30193"
- "l-*-30191"
- "l-*-30189"
- "l-*-30187")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile)))
- (quasi-30451
- p-30503
- (#{1-}# lev-30476)))
- (quasi-30451 q-30497 lev-30476))))
- tmp-30499)
- (let ((tmp-30544
+ (quasi-28619
+ p-28671
+ (#{1-}# lev-28644)))
+ (quasi-28619 q-28665 lev-28644))))
+ tmp-28667)
+ (let ((tmp-28712
($sc-dispatch
- p-30496
+ p-28664
'(#(free-id
#(syntax-object
unquote-splicing
@@ -23836,12 +23789,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("l-*-30213" "l-*-30214"))
+ #("l-*-28381" "l-*-28382"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-30203" "l-*-30204"))
+ #("l-*-28371" "l-*-28372"))
#(ribcage
(emit quasivector
quasilist*
@@ -23856,40 +23809,40 @@
(top)
(top)
(top))
- ("l-*-30199"
- "l-*-30197"
- "l-*-30195"
- "l-*-30193"
- "l-*-30191"
- "l-*-30189"
- "l-*-30187")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile)))
.
each-any))))
- (if tmp-30544
+ (if tmp-28712
(@apply
- (lambda (p-30548)
- (if (= lev-30476 0)
- (quasiappend-30454
- (map (lambda (tmp-30226-30551)
+ (lambda (p-28716)
+ (if (= lev-28644 0)
+ (quasiappend-28622
+ (map (lambda (tmp-28394-28719)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("l-*-30224"))
+ #("l-*-28392"))
#(ribcage
#(p q)
#((top) (top))
- #("l-*-30213"
- "l-*-30214"))
+ #("l-*-28381"
+ "l-*-28382"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-30203"
- "l-*-30204"))
+ #("l-*-28371"
+ "l-*-28372"))
#(ribcage
(emit quasivector
quasilist*
@@ -23904,35 +23857,35 @@
(top)
(top)
(top))
- ("l-*-30199"
- "l-*-30197"
- "l-*-30195"
- "l-*-30193"
- "l-*-30191"
- "l-*-30189"
- "l-*-30187")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile))
- tmp-30226-30551))
- p-30548)
- (quasi-30451 q-30497 lev-30476))
- (quasicons-30453
- (quasicons-30453
+ tmp-28394-28719))
+ p-28716)
+ (quasi-28619 q-28665 lev-28644))
+ (quasicons-28621
+ (quasicons-28621
'(#(syntax-object
"quote"
((top)
#(ribcage
#(p)
#((top))
- #("l-*-30224"))
+ #("l-*-28392"))
#(ribcage
#(p q)
#((top) (top))
- #("l-*-30213" "l-*-30214"))
+ #("l-*-28381" "l-*-28382"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-30203" "l-*-30204"))
+ #("l-*-28371" "l-*-28372"))
#(ribcage
(emit quasivector
quasilist*
@@ -23947,13 +23900,13 @@
(top)
(top)
(top))
- ("l-*-30199"
- "l-*-30197"
- "l-*-30195"
- "l-*-30193"
- "l-*-30191"
- "l-*-30189"
- "l-*-30187")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile))
#(syntax-object
unquote-splicing
@@ -23961,16 +23914,16 @@
#(ribcage
#(p)
#((top))
- #("l-*-30224"))
+ #("l-*-28392"))
#(ribcage
#(p q)
#((top) (top))
- #("l-*-30213" "l-*-30214"))
+ #("l-*-28381" "l-*-28382"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-30203" "l-*-30204"))
+ #("l-*-28371" "l-*-28372"))
#(ribcage
(emit quasivector
quasilist*
@@ -23985,49 +23938,49 @@
(top)
(top)
(top))
- ("l-*-30199"
- "l-*-30197"
- "l-*-30195"
- "l-*-30193"
- "l-*-30191"
- "l-*-30189"
- "l-*-30187")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile)))
- (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
+ (quasi-28619
+ p-28716
+ (#{1-}# lev-28644)))
+ (quasi-28619 q-28665 lev-28644))))
+ tmp-28712)
+ (quasicons-28621
+ (quasi-28619 p-28664 lev-28644)
+ (quasi-28619 q-28665 lev-28644)))))))
+ tmp-28660)
+ (let ((tmp-28733
+ ($sc-dispatch p-28643 '#(vector each-any))))
+ (if tmp-28733
(@apply
- (lambda (x-30569)
- (let ((x-30572
- (vquasi-30452 x-30569 lev-30476)))
- (let ((tmp-30574
+ (lambda (x-28737)
+ (let ((x-28740
+ (vquasi-28620 x-28737 lev-28644)))
+ (let ((tmp-28742
($sc-dispatch
- x-30572
+ x-28740
'(#(atom "quote") each-any))))
- (if tmp-30574
+ (if tmp-28742
(@apply
- (lambda (x-30578)
+ (lambda (x-28746)
(list '#(syntax-object
"quote"
((top)
#(ribcage
#(x)
#((top))
- #("l-*-30325"))
+ #("l-*-28493"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-30322"))
+ #("l-*-28490"))
#(ribcage
(emit quasivector
quasilist*
@@ -24042,36 +23995,36 @@
(top)
(top)
(top))
- ("l-*-30199"
- "l-*-30197"
- "l-*-30195"
- "l-*-30193"
- "l-*-30191"
- "l-*-30189"
- "l-*-30187")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile))
- (list->vector x-30578)))
- tmp-30574)
+ (list->vector x-28746)))
+ tmp-28742)
(letrec*
- ((f-30580
- (lambda (y-30592 k-30593)
- (let ((tmp-30595
+ ((f-28748
+ (lambda (y-28760 k-28761)
+ (let ((tmp-28763
($sc-dispatch
- y-30592
+ y-28760
'(#(atom "quote")
each-any))))
- (if tmp-30595
+ (if tmp-28763
(@apply
- (lambda (y-30598)
- (k-30593
- (map (lambda (tmp-30350-30599)
+ (lambda (y-28766)
+ (k-28761
+ (map (lambda (tmp-28518-28767)
(list '#(syntax-object
"quote"
((top)
#(ribcage
#(y)
#((top))
- #("l-*-30348"))
+ #("l-*-28516"))
#(ribcage
()
()
@@ -24083,13 +24036,13 @@
#((top)
(top)
(top))
- #("l-*-30330"
- "l-*-30331"
- "l-*-30332"))
+ #("l-*-28498"
+ "l-*-28499"
+ "l-*-28500"))
#(ribcage
#(_)
#((top))
- #("l-*-30328"))
+ #("l-*-28496"))
#(ribcage
()
()
@@ -24097,7 +24050,7 @@
#(ribcage
#(x)
#((top))
- #("l-*-30322"))
+ #("l-*-28490"))
#(ribcage
(emit quasivector
quasilist*
@@ -24112,50 +24065,50 @@
(top)
(top)
(top))
- ("l-*-30199"
- "l-*-30197"
- "l-*-30195"
- "l-*-30193"
- "l-*-30191"
- "l-*-30189"
- "l-*-30187")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene
guile))
- tmp-30350-30599))
- y-30598)))
- tmp-30595)
- (let ((tmp-30600
+ tmp-28518-28767))
+ y-28766)))
+ tmp-28763)
+ (let ((tmp-28768
($sc-dispatch
- y-30592
+ y-28760
'(#(atom "list")
.
each-any))))
- (if tmp-30600
+ (if tmp-28768
(@apply
- (lambda (y-30603)
- (k-30593 y-30603))
- tmp-30600)
- (let ((tmp-30604
+ (lambda (y-28771)
+ (k-28761 y-28771))
+ tmp-28768)
+ (let ((tmp-28772
($sc-dispatch
- y-30592
+ y-28760
'(#(atom "list*")
.
#(each+
any
(any)
())))))
- (if tmp-30604
+ (if tmp-28772
(@apply
- (lambda (y-30607
- z-30608)
- (f-30580
- z-30608
- (lambda (ls-30609)
- (k-30593
+ (lambda (y-28775
+ z-28776)
+ (f-28748
+ z-28776
+ (lambda (ls-28777)
+ (k-28761
(append
- y-30607
- ls-30609)))))
- tmp-30604)
+ y-28775
+ ls-28777)))))
+ tmp-28772)
(list '#(syntax-object
"list->vector"
((top)
@@ -24164,14 +24117,14 @@
()
())
#(ribcage
- #(t-30365)
- #((m-*-30366
+ #(t-28533)
+ #((m-*-28534
top))
- #("l-*-30369"))
+ #("l-*-28537"))
#(ribcage
#(else)
#((top))
- #("l-*-30363"))
+ #("l-*-28531"))
#(ribcage
()
()
@@ -24181,13 +24134,13 @@
#((top)
(top)
(top))
- #("l-*-30330"
- "l-*-30331"
- "l-*-30332"))
+ #("l-*-28498"
+ "l-*-28499"
+ "l-*-28500"))
#(ribcage
#(_)
#((top))
- #("l-*-30328"))
+ #("l-*-28496"))
#(ribcage
()
()
@@ -24195,7 +24148,7 @@
#(ribcage
#(x)
#((top))
- #("l-*-30322"))
+ #("l-*-28490"))
#(ribcage
(emit quasivector
quasilist*
@@ -24210,26 +24163,26 @@
(top)
(top)
(top))
- ("l-*-30199"
- "l-*-30197"
- "l-*-30195"
- "l-*-30193"
- "l-*-30191"
- "l-*-30189"
- "l-*-30187")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene
guile))
- x-30572))))))))))
- (f-30580
- x-30572
- (lambda (ls-30582)
- (let ((tmp-30584
+ x-28740))))))))))
+ (f-28748
+ x-28740
+ (lambda (ls-28750)
+ (let ((tmp-28752
($sc-dispatch
- ls-30582
+ ls-28750
'each-any)))
- (if tmp-30584
+ (if tmp-28752
(@apply
- (lambda (t-30338-30587)
+ (lambda (t-28506-28755)
(cons '#(syntax-object
"vector"
((top)
@@ -24238,10 +24191,10 @@
()
())
#(ribcage
- #(t-30338)
- #((m-*-30339
+ #(t-28506)
+ #((m-*-28507
top))
- #("l-*-30343"))
+ #("l-*-28511"))
#(ribcage
()
()
@@ -24257,11 +24210,11 @@
#(ribcage
#(ls)
#((top))
- #("l-*-30337"))
+ #("l-*-28505"))
#(ribcage
#(_)
#((top))
- #("l-*-30328"))
+ #("l-*-28496"))
#(ribcage
()
()
@@ -24269,7 +24222,7 @@
#(ribcage
#(x)
#((top))
- #("l-*-30322"))
+ #("l-*-28490"))
#(ribcage
(emit quasivector
quasilist*
@@ -24284,30 +24237,30 @@
(top)
(top)
(top))
- ("l-*-30199"
- "l-*-30197"
- "l-*-30195"
- "l-*-30193"
- "l-*-30191"
- "l-*-30189"
- "l-*-30187")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile))
- t-30338-30587))
- tmp-30584)
+ t-28506-28755))
+ tmp-28752)
(syntax-violation
#f
"source expression failed to match any pattern"
- ls-30582))))))))))
- tmp-30565)
+ ls-28750))))))))))
+ tmp-28733)
(list '#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("l-*-30234"))
+ #(ribcage #(p) #((top)) #("l-*-28402"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-30203" "l-*-30204"))
+ #("l-*-28371" "l-*-28372"))
#(ribcage
(emit quasivector
quasilist*
@@ -24322,24 +24275,24 @@
(top)
(top)
(top))
- ("l-*-30199"
- "l-*-30197"
- "l-*-30195"
- "l-*-30193"
- "l-*-30191"
- "l-*-30189"
- "l-*-30187")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile))
- p-30475)))))))))))
- (vquasi-30452
- (lambda (p-30637 lev-30638)
- (let ((tmp-30640 ($sc-dispatch p-30637 '(any . any))))
- (if tmp-30640
+ p-28643)))))))))))
+ (vquasi-28620
+ (lambda (p-28805 lev-28806)
+ (let ((tmp-28808 ($sc-dispatch p-28805 '(any . any))))
+ (if tmp-28808
(@apply
- (lambda (p-30644 q-30645)
- (let ((tmp-30647
+ (lambda (p-28812 q-28813)
+ (let ((tmp-28815
($sc-dispatch
- p-30644
+ p-28812
'(#(free-id
#(syntax-object
unquote
@@ -24347,12 +24300,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("l-*-30242" "l-*-30243"))
+ #("l-*-28410" "l-*-28411"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-30238" "l-*-30239"))
+ #("l-*-28406" "l-*-28407"))
#(ribcage
(emit quasivector
quasilist*
@@ -24367,38 +24320,38 @@
(top)
(top)
(top))
- ("l-*-30199"
- "l-*-30197"
- "l-*-30195"
- "l-*-30193"
- "l-*-30191"
- "l-*-30189"
- "l-*-30187")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile)))
.
each-any))))
- (if tmp-30647
+ (if tmp-28815
(@apply
- (lambda (p-30651)
- (if (= lev-30638 0)
- (quasilist*-30455
- (map (lambda (tmp-30250-30687)
+ (lambda (p-28819)
+ (if (= lev-28806 0)
+ (quasilist*-28623
+ (map (lambda (tmp-28418-28855)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("l-*-30248"))
+ #("l-*-28416"))
#(ribcage
#(p q)
#((top) (top))
- #("l-*-30242" "l-*-30243"))
+ #("l-*-28410" "l-*-28411"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-30238" "l-*-30239"))
+ #("l-*-28406" "l-*-28407"))
#(ribcage
(emit quasivector
quasilist*
@@ -24413,32 +24366,32 @@
(top)
(top)
(top))
- ("l-*-30199"
- "l-*-30197"
- "l-*-30195"
- "l-*-30193"
- "l-*-30191"
- "l-*-30189"
- "l-*-30187")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile))
- tmp-30250-30687))
- p-30651)
- (vquasi-30452 q-30645 lev-30638))
- (quasicons-30453
- (quasicons-30453
+ tmp-28418-28855))
+ p-28819)
+ (vquasi-28620 q-28813 lev-28806))
+ (quasicons-28621
+ (quasicons-28621
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("l-*-30248"))
+ #(ribcage #(p) #((top)) #("l-*-28416"))
#(ribcage
#(p q)
#((top) (top))
- #("l-*-30242" "l-*-30243"))
+ #("l-*-28410" "l-*-28411"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-30238" "l-*-30239"))
+ #("l-*-28406" "l-*-28407"))
#(ribcage
(emit quasivector
quasilist*
@@ -24453,27 +24406,27 @@
(top)
(top)
(top))
- ("l-*-30199"
- "l-*-30197"
- "l-*-30195"
- "l-*-30193"
- "l-*-30191"
- "l-*-30189"
- "l-*-30187")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile))
#(syntax-object
unquote
((top)
- #(ribcage #(p) #((top)) #("l-*-30248"))
+ #(ribcage #(p) #((top)) #("l-*-28416"))
#(ribcage
#(p q)
#((top) (top))
- #("l-*-30242" "l-*-30243"))
+ #("l-*-28410" "l-*-28411"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-30238" "l-*-30239"))
+ #("l-*-28406" "l-*-28407"))
#(ribcage
(emit quasivector
quasilist*
@@ -24488,20 +24441,20 @@
(top)
(top)
(top))
- ("l-*-30199"
- "l-*-30197"
- "l-*-30195"
- "l-*-30193"
- "l-*-30191"
- "l-*-30189"
- "l-*-30187")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile)))
- (quasi-30451 p-30651 (#{1-}# lev-30638)))
- (vquasi-30452 q-30645 lev-30638))))
- tmp-30647)
- (let ((tmp-30694
+ (quasi-28619 p-28819 (#{1-}# lev-28806)))
+ (vquasi-28620 q-28813 lev-28806))))
+ tmp-28815)
+ (let ((tmp-28862
($sc-dispatch
- p-30644
+ p-28812
'(#(free-id
#(syntax-object
unquote-splicing
@@ -24509,12 +24462,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("l-*-30242" "l-*-30243"))
+ #("l-*-28410" "l-*-28411"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-30238" "l-*-30239"))
+ #("l-*-28406" "l-*-28407"))
#(ribcage
(emit quasivector
quasilist*
@@ -24529,40 +24482,40 @@
(top)
(top)
(top))
- ("l-*-30199"
- "l-*-30197"
- "l-*-30195"
- "l-*-30193"
- "l-*-30191"
- "l-*-30189"
- "l-*-30187")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile)))
.
each-any))))
- (if tmp-30694
+ (if tmp-28862
(@apply
- (lambda (p-30698)
- (if (= lev-30638 0)
- (quasiappend-30454
- (map (lambda (tmp-30255-30701)
+ (lambda (p-28866)
+ (if (= lev-28806 0)
+ (quasiappend-28622
+ (map (lambda (tmp-28423-28869)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("l-*-30253"))
+ #("l-*-28421"))
#(ribcage
#(p q)
#((top) (top))
- #("l-*-30242"
- "l-*-30243"))
+ #("l-*-28410"
+ "l-*-28411"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-30238"
- "l-*-30239"))
+ #("l-*-28406"
+ "l-*-28407"))
#(ribcage
(emit quasivector
quasilist*
@@ -24577,35 +24530,35 @@
(top)
(top)
(top))
- ("l-*-30199"
- "l-*-30197"
- "l-*-30195"
- "l-*-30193"
- "l-*-30191"
- "l-*-30189"
- "l-*-30187")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile))
- tmp-30255-30701))
- p-30698)
- (vquasi-30452 q-30645 lev-30638))
- (quasicons-30453
- (quasicons-30453
+ tmp-28423-28869))
+ p-28866)
+ (vquasi-28620 q-28813 lev-28806))
+ (quasicons-28621
+ (quasicons-28621
'(#(syntax-object
"quote"
((top)
#(ribcage
#(p)
#((top))
- #("l-*-30253"))
+ #("l-*-28421"))
#(ribcage
#(p q)
#((top) (top))
- #("l-*-30242" "l-*-30243"))
+ #("l-*-28410" "l-*-28411"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-30238" "l-*-30239"))
+ #("l-*-28406" "l-*-28407"))
#(ribcage
(emit quasivector
quasilist*
@@ -24620,13 +24573,13 @@
(top)
(top)
(top))
- ("l-*-30199"
- "l-*-30197"
- "l-*-30195"
- "l-*-30193"
- "l-*-30191"
- "l-*-30189"
- "l-*-30187")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile))
#(syntax-object
unquote-splicing
@@ -24634,16 +24587,16 @@
#(ribcage
#(p)
#((top))
- #("l-*-30253"))
+ #("l-*-28421"))
#(ribcage
#(p q)
#((top) (top))
- #("l-*-30242" "l-*-30243"))
+ #("l-*-28410" "l-*-28411"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-30238" "l-*-30239"))
+ #("l-*-28406" "l-*-28407"))
#(ribcage
(emit quasivector
quasilist*
@@ -24658,23 +24611,23 @@
(top)
(top)
(top))
- ("l-*-30199"
- "l-*-30197"
- "l-*-30195"
- "l-*-30193"
- "l-*-30191"
- "l-*-30189"
- "l-*-30187")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile)))
- (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
+ (quasi-28619 p-28866 (#{1-}# lev-28806)))
+ (vquasi-28620 q-28813 lev-28806))))
+ tmp-28862)
+ (quasicons-28621
+ (quasi-28619 p-28812 lev-28806)
+ (vquasi-28620 q-28813 lev-28806)))))))
+ tmp-28808)
+ (let ((tmp-28887 ($sc-dispatch p-28805 '())))
+ (if tmp-28887
(@apply
(lambda ()
'(#(syntax-object
@@ -24684,7 +24637,7 @@
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-30238" "l-*-30239"))
+ #("l-*-28406" "l-*-28407"))
#(ribcage
(emit quasivector
quasilist*
@@ -24693,61 +24646,61 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("l-*-30199"
- "l-*-30197"
- "l-*-30195"
- "l-*-30193"
- "l-*-30191"
- "l-*-30189"
- "l-*-30187")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile))
()))
- tmp-30719)
+ tmp-28887)
(syntax-violation
#f
"source expression failed to match any pattern"
- 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
+ p-28805)))))))
+ (quasicons-28621
+ (lambda (x-28900 y-28901)
+ (let ((tmp-28902 (list x-28900 y-28901)))
+ (let ((tmp-28903 ($sc-dispatch tmp-28902 '(any any))))
+ (if tmp-28903
(@apply
- (lambda (x-30737 y-30738)
- (let ((tmp-30740
- ($sc-dispatch y-30738 '(#(atom "quote") any))))
- (if tmp-30740
+ (lambda (x-28905 y-28906)
+ (let ((tmp-28908
+ ($sc-dispatch y-28906 '(#(atom "quote") any))))
+ (if tmp-28908
(@apply
- (lambda (dy-30744)
- (let ((tmp-30746
+ (lambda (dy-28912)
+ (let ((tmp-28914
($sc-dispatch
- x-30737
+ x-28905
'(#(atom "quote") any))))
- (if tmp-30746
+ (if tmp-28914
(@apply
- (lambda (dx-30750)
+ (lambda (dx-28918)
(list '#(syntax-object
"quote"
((top)
#(ribcage
#(dx)
#((top))
- #("l-*-30277"))
+ #("l-*-28445"))
#(ribcage
#(dy)
#((top))
- #("l-*-30273"))
+ #("l-*-28441"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("l-*-30267" "l-*-30268"))
+ #("l-*-28435" "l-*-28436"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("l-*-30262" "l-*-30263"))
+ #("l-*-28430" "l-*-28431"))
#(ribcage
(emit quasivector
quasilist*
@@ -24762,39 +24715,39 @@
(top)
(top)
(top))
- ("l-*-30199"
- "l-*-30197"
- "l-*-30195"
- "l-*-30193"
- "l-*-30191"
- "l-*-30189"
- "l-*-30187")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile))
- (cons dx-30750 dy-30744)))
- tmp-30746)
- (if (null? dy-30744)
+ (cons dx-28918 dy-28912)))
+ tmp-28914)
+ (if (null? dy-28912)
(list '#(syntax-object
"list"
((top)
#(ribcage
#(_)
#((top))
- #("l-*-30279"))
+ #("l-*-28447"))
#(ribcage
#(dy)
#((top))
- #("l-*-30273"))
+ #("l-*-28441"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("l-*-30267" "l-*-30268"))
+ #("l-*-28435" "l-*-28436"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("l-*-30262" "l-*-30263"))
+ #("l-*-28430" "l-*-28431"))
#(ribcage
(emit quasivector
quasilist*
@@ -24809,37 +24762,37 @@
(top)
(top)
(top))
- ("l-*-30199"
- "l-*-30197"
- "l-*-30195"
- "l-*-30193"
- "l-*-30191"
- "l-*-30189"
- "l-*-30187")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile))
- x-30737)
+ x-28905)
(list '#(syntax-object
"list*"
((top)
#(ribcage
#(_)
#((top))
- #("l-*-30279"))
+ #("l-*-28447"))
#(ribcage
#(dy)
#((top))
- #("l-*-30273"))
+ #("l-*-28441"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("l-*-30267" "l-*-30268"))
+ #("l-*-28435" "l-*-28436"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("l-*-30262" "l-*-30263"))
+ #("l-*-28430" "l-*-28431"))
#(ribcage
(emit quasivector
quasilist*
@@ -24854,42 +24807,42 @@
(top)
(top)
(top))
- ("l-*-30199"
- "l-*-30197"
- "l-*-30195"
- "l-*-30193"
- "l-*-30191"
- "l-*-30189"
- "l-*-30187")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile))
- x-30737
- y-30738)))))
- tmp-30740)
- (let ((tmp-30755
+ x-28905
+ y-28906)))))
+ tmp-28908)
+ (let ((tmp-28923
($sc-dispatch
- y-30738
+ y-28906
'(#(atom "list") . any))))
- (if tmp-30755
+ (if tmp-28923
(@apply
- (lambda (stuff-30759)
+ (lambda (stuff-28927)
(cons '#(syntax-object
"list"
((top)
#(ribcage
#(stuff)
#((top))
- #("l-*-30282"))
+ #("l-*-28450"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("l-*-30267" "l-*-30268"))
+ #("l-*-28435" "l-*-28436"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("l-*-30262" "l-*-30263"))
+ #("l-*-28430" "l-*-28431"))
#(ribcage
(emit quasivector
quasilist*
@@ -24904,41 +24857,41 @@
(top)
(top)
(top))
- ("l-*-30199"
- "l-*-30197"
- "l-*-30195"
- "l-*-30193"
- "l-*-30191"
- "l-*-30189"
- "l-*-30187")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile))
- (cons x-30737 stuff-30759)))
- tmp-30755)
- (let ((tmp-30760
+ (cons x-28905 stuff-28927)))
+ tmp-28923)
+ (let ((tmp-28928
($sc-dispatch
- y-30738
+ y-28906
'(#(atom "list*") . any))))
- (if tmp-30760
+ (if tmp-28928
(@apply
- (lambda (stuff-30764)
+ (lambda (stuff-28932)
(cons '#(syntax-object
"list*"
((top)
#(ribcage
#(stuff)
#((top))
- #("l-*-30285"))
+ #("l-*-28453"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("l-*-30267" "l-*-30268"))
+ #("l-*-28435" "l-*-28436"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("l-*-30262" "l-*-30263"))
+ #("l-*-28430" "l-*-28431"))
#(ribcage
(emit quasivector
quasilist*
@@ -24953,34 +24906,34 @@
(top)
(top)
(top))
- ("l-*-30199"
- "l-*-30197"
- "l-*-30195"
- "l-*-30193"
- "l-*-30191"
- "l-*-30189"
- "l-*-30187")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile))
- (cons x-30737 stuff-30764)))
- tmp-30760)
+ (cons x-28905 stuff-28932)))
+ tmp-28928)
(list '#(syntax-object
"list*"
((top)
#(ribcage
#(_)
#((top))
- #("l-*-30287"))
+ #("l-*-28455"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("l-*-30267" "l-*-30268"))
+ #("l-*-28435" "l-*-28436"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("l-*-30262" "l-*-30263"))
+ #("l-*-28430" "l-*-28431"))
#(ribcage
(emit quasivector
quasilist*
@@ -24995,29 +24948,29 @@
(top)
(top)
(top))
- ("l-*-30199"
- "l-*-30197"
- "l-*-30195"
- "l-*-30193"
- "l-*-30191"
- "l-*-30189"
- "l-*-30187")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile))
- x-30737
- y-30738))))))))
- tmp-30735)
+ x-28905
+ y-28906))))))))
+ tmp-28903)
(syntax-violation
#f
"source expression failed to match any pattern"
- tmp-30734))))))
- (quasiappend-30454
- (lambda (x-30775 y-30776)
- (let ((tmp-30778
- ($sc-dispatch y-30776 '(#(atom "quote") ()))))
- (if tmp-30778
+ tmp-28902))))))
+ (quasiappend-28622
+ (lambda (x-28943 y-28944)
+ (let ((tmp-28946
+ ($sc-dispatch y-28944 '(#(atom "quote") ()))))
+ (if tmp-28946
(@apply
(lambda ()
- (if (null? x-30775)
+ (if (null? x-28943)
'(#(syntax-object
"quote"
((top)
@@ -25025,7 +24978,7 @@
#(ribcage
#(x y)
#((top) (top))
- #("l-*-30291" "l-*-30292"))
+ #("l-*-28459" "l-*-28460"))
#(ribcage
(emit quasivector
quasilist*
@@ -25034,21 +24987,21 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("l-*-30199"
- "l-*-30197"
- "l-*-30195"
- "l-*-30193"
- "l-*-30191"
- "l-*-30189"
- "l-*-30187")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile))
())
- (if (null? (cdr x-30775))
- (car x-30775)
- (let ((tmp-30783 ($sc-dispatch x-30775 'each-any)))
- (if tmp-30783
+ (if (null? (cdr x-28943))
+ (car x-28943)
+ (let ((tmp-28951 ($sc-dispatch x-28943 'each-any)))
+ (if tmp-28951
(@apply
- (lambda (p-30787)
+ (lambda (p-28955)
(cons '#(syntax-object
"append"
((top)
@@ -25056,12 +25009,12 @@
#(ribcage
#(p)
#((top))
- #("l-*-30299"))
+ #("l-*-28467"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("l-*-30291" "l-*-30292"))
+ #("l-*-28459" "l-*-28460"))
#(ribcage
(emit quasivector
quasilist*
@@ -25076,29 +25029,29 @@
(top)
(top)
(top))
- ("l-*-30199"
- "l-*-30197"
- "l-*-30195"
- "l-*-30193"
- "l-*-30191"
- "l-*-30189"
- "l-*-30187")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile))
- p-30787))
- tmp-30783)
+ p-28955))
+ tmp-28951)
(syntax-violation
#f
"source expression failed to match any pattern"
- 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
+ x-28943))))))
+ tmp-28946)
+ (if (null? x-28943)
+ y-28944
+ (let ((tmp-28963 (list x-28943 y-28944)))
+ (let ((tmp-28964
+ ($sc-dispatch tmp-28963 '(each-any any))))
+ (if tmp-28964
(@apply
- (lambda (p-30798 y-30799)
+ (lambda (p-28966 y-28967)
(cons '#(syntax-object
"append"
((top)
@@ -25106,13 +25059,13 @@
#(ribcage
#(p y)
#((top) (top))
- #("l-*-30308" "l-*-30309"))
- #(ribcage #(_) #((top)) #("l-*-30302"))
+ #("l-*-28476" "l-*-28477"))
+ #(ribcage #(_) #((top)) #("l-*-28470"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("l-*-30291" "l-*-30292"))
+ #("l-*-28459" "l-*-28460"))
#(ribcage
(emit quasivector
quasilist*
@@ -25127,44 +25080,44 @@
(top)
(top)
(top))
- ("l-*-30199"
- "l-*-30197"
- "l-*-30195"
- "l-*-30193"
- "l-*-30191"
- "l-*-30189"
- "l-*-30187")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile))
- (append p-30798 (list y-30799))))
- tmp-30796)
+ (append p-28966 (list y-28967))))
+ tmp-28964)
(syntax-violation
#f
"source expression failed to match any pattern"
- tmp-30795)))))))))
- (quasilist*-30455
- (lambda (x-30803 y-30804)
+ tmp-28963)))))))))
+ (quasilist*-28623
+ (lambda (x-28971 y-28972)
(letrec*
- ((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
+ ((f-28973
+ (lambda (x-29062)
+ (if (null? x-29062)
+ y-28972
+ (quasicons-28621
+ (car x-29062)
+ (f-28973 (cdr x-29062)))))))
+ (f-28973 x-28971))))
+ (emit-28625
+ (lambda (x-29065)
+ (let ((tmp-29067
+ ($sc-dispatch x-29065 '(#(atom "quote") any))))
+ (if tmp-29067
(@apply
- (lambda (x-30903)
+ (lambda (x-29071)
(list '#(syntax-object
quote
((top)
- #(ribcage #(x) #((top)) #("l-*-30375"))
+ #(ribcage #(x) #((top)) #("l-*-28543"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-30372"))
+ #(ribcage #(x) #((top)) #("l-*-28540"))
#(ribcage
(emit quasivector
quasilist*
@@ -25173,45 +25126,45 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("l-*-30199"
- "l-*-30197"
- "l-*-30195"
- "l-*-30193"
- "l-*-30191"
- "l-*-30189"
- "l-*-30187")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile))
- x-30903))
- tmp-30899)
- (let ((tmp-30904
+ x-29071))
+ tmp-29067)
+ (let ((tmp-29072
($sc-dispatch
- x-30897
+ x-29065
'(#(atom "list") . each-any))))
- (if tmp-30904
+ (if tmp-29072
(@apply
- (lambda (x-30908)
- (let ((tmp-30909 (map emit-30457 x-30908)))
- (let ((tmp-30910 ($sc-dispatch tmp-30909 'each-any)))
- (if tmp-30910
+ (lambda (x-29076)
+ (let ((tmp-29077 (map emit-28625 x-29076)))
+ (let ((tmp-29078 ($sc-dispatch tmp-29077 'each-any)))
+ (if tmp-29078
(@apply
- (lambda (t-30380-30912)
+ (lambda (t-28548-29080)
(cons '#(syntax-object
list
((top)
#(ribcage () () ())
#(ribcage
- #(t-30380)
- #((m-*-30381 top))
- #("l-*-30385"))
+ #(t-28548)
+ #((m-*-28549 top))
+ #("l-*-28553"))
#(ribcage
#(x)
#((top))
- #("l-*-30378"))
+ #("l-*-28546"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-30372"))
+ #("l-*-28540"))
#(ribcage
(emit quasivector
quasilist*
@@ -25226,70 +25179,70 @@
(top)
(top)
(top))
- ("l-*-30199"
- "l-*-30197"
- "l-*-30195"
- "l-*-30193"
- "l-*-30191"
- "l-*-30189"
- "l-*-30187")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile))
- t-30380-30912))
- tmp-30910)
+ t-28548-29080))
+ tmp-29078)
(syntax-violation
#f
"source expression failed to match any pattern"
- tmp-30909)))))
- tmp-30904)
- (let ((tmp-30913
+ tmp-29077)))))
+ tmp-29072)
+ (let ((tmp-29081
($sc-dispatch
- x-30897
+ x-29065
'(#(atom "list*") . #(each+ any (any) ())))))
- (if tmp-30913
+ (if tmp-29081
(@apply
- (lambda (x-30917 y-30918)
+ (lambda (x-29085 y-29086)
(letrec*
- ((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
+ ((f-29087
+ (lambda (x*-29090)
+ (if (null? x*-29090)
+ (emit-28625 y-29086)
+ (let ((tmp-29091
+ (list (emit-28625 (car x*-29090))
+ (f-29087 (cdr x*-29090)))))
+ (let ((tmp-29092
($sc-dispatch
- tmp-30923
+ tmp-29091
'(any any))))
- (if tmp-30924
+ (if tmp-29092
(@apply
- (lambda (t-30400-30926
- t-30399-30927)
+ (lambda (t-28568-29094
+ t-28567-29095)
(list '#(syntax-object
cons
((top)
#(ribcage () () ())
#(ribcage
- #(t-30400 t-30399)
- #((m-*-30401 top)
- (m-*-30401 top))
- #("l-*-30405"
- "l-*-30406"))
+ #(t-28568 t-28567)
+ #((m-*-28569 top)
+ (m-*-28569 top))
+ #("l-*-28573"
+ "l-*-28574"))
#(ribcage () () ())
#(ribcage
#(f x*)
#((top) (top))
- #("l-*-30394"
- "l-*-30395"))
+ #("l-*-28562"
+ "l-*-28563"))
#(ribcage
#(x y)
#((top) (top))
- #("l-*-30390"
- "l-*-30391"))
+ #("l-*-28558"
+ "l-*-28559"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-30372"))
+ #("l-*-28540"))
#(ribcage
(emit quasivector
quasilist*
@@ -25304,53 +25257,53 @@
(top)
(top)
(top))
- ("l-*-30199"
- "l-*-30197"
- "l-*-30195"
- "l-*-30193"
- "l-*-30191"
- "l-*-30189"
- "l-*-30187")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile))
- t-30400-30926
- t-30399-30927))
- tmp-30924)
+ t-28568-29094
+ t-28567-29095))
+ tmp-29092)
(syntax-violation
#f
"source expression failed to match any pattern"
- tmp-30923))))))))
- (f-30919 x-30917)))
- tmp-30913)
- (let ((tmp-30928
+ tmp-29091))))))))
+ (f-29087 x-29085)))
+ tmp-29081)
+ (let ((tmp-29096
($sc-dispatch
- x-30897
+ x-29065
'(#(atom "append") . each-any))))
- (if tmp-30928
+ (if tmp-29096
(@apply
- (lambda (x-30932)
- (let ((tmp-30933 (map emit-30457 x-30932)))
- (let ((tmp-30934
- ($sc-dispatch tmp-30933 'each-any)))
- (if tmp-30934
+ (lambda (x-29100)
+ (let ((tmp-29101 (map emit-28625 x-29100)))
+ (let ((tmp-29102
+ ($sc-dispatch tmp-29101 'each-any)))
+ (if tmp-29102
(@apply
- (lambda (t-30412-30936)
+ (lambda (t-28580-29104)
(cons '#(syntax-object
append
((top)
#(ribcage () () ())
#(ribcage
- #(t-30412)
- #((m-*-30413 top))
- #("l-*-30417"))
+ #(t-28580)
+ #((m-*-28581 top))
+ #("l-*-28585"))
#(ribcage
#(x)
#((top))
- #("l-*-30410"))
+ #("l-*-28578"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-30372"))
+ #("l-*-28540"))
#(ribcage
(emit quasivector
quasilist*
@@ -25365,53 +25318,53 @@
(top)
(top)
(top))
- ("l-*-30199"
- "l-*-30197"
- "l-*-30195"
- "l-*-30193"
- "l-*-30191"
- "l-*-30189"
- "l-*-30187")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile))
- t-30412-30936))
- tmp-30934)
+ t-28580-29104))
+ tmp-29102)
(syntax-violation
#f
"source expression failed to match any pattern"
- tmp-30933)))))
- tmp-30928)
- (let ((tmp-30937
+ tmp-29101)))))
+ tmp-29096)
+ (let ((tmp-29105
($sc-dispatch
- x-30897
+ x-29065
'(#(atom "vector") . each-any))))
- (if tmp-30937
+ (if tmp-29105
(@apply
- (lambda (x-30941)
- (let ((tmp-30942 (map emit-30457 x-30941)))
- (let ((tmp-30943
+ (lambda (x-29109)
+ (let ((tmp-29110 (map emit-28625 x-29109)))
+ (let ((tmp-29111
($sc-dispatch
- tmp-30942
+ tmp-29110
'each-any)))
- (if tmp-30943
+ (if tmp-29111
(@apply
- (lambda (t-30424-30945)
+ (lambda (t-28592-29113)
(cons '#(syntax-object
vector
((top)
#(ribcage () () ())
#(ribcage
- #(t-30424)
- #((m-*-30425 top))
- #("l-*-30429"))
+ #(t-28592)
+ #((m-*-28593 top))
+ #("l-*-28597"))
#(ribcage
#(x)
#((top))
- #("l-*-30422"))
+ #("l-*-28590"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-30372"))
+ #("l-*-28540"))
#(ribcage
(emit quasivector
quasilist*
@@ -25426,46 +25379,46 @@
(top)
(top)
(top))
- ("l-*-30199"
- "l-*-30197"
- "l-*-30195"
- "l-*-30193"
- "l-*-30191"
- "l-*-30189"
- "l-*-30187")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile))
- t-30424-30945))
- tmp-30943)
+ t-28592-29113))
+ tmp-29111)
(syntax-violation
#f
"source expression failed to match any pattern"
- tmp-30942)))))
- tmp-30937)
- (let ((tmp-30946
+ tmp-29110)))))
+ tmp-29105)
+ (let ((tmp-29114
($sc-dispatch
- x-30897
+ x-29065
'(#(atom "list->vector") any))))
- (if tmp-30946
+ (if tmp-29114
(@apply
- (lambda (x-30950)
- (let ((tmp-30951 (emit-30457 x-30950)))
+ (lambda (x-29118)
+ (let ((tmp-29119 (emit-28625 x-29118)))
(list '#(syntax-object
list->vector
((top)
#(ribcage () () ())
#(ribcage
- #(t-30436)
- #((m-*-30437 top))
- #("l-*-30440"))
+ #(t-28604)
+ #((m-*-28605 top))
+ #("l-*-28608"))
#(ribcage
#(x)
#((top))
- #("l-*-30434"))
+ #("l-*-28602"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-30372"))
+ #("l-*-28540"))
#(ribcage
(emit quasivector
quasilist*
@@ -25480,183 +25433,183 @@
(top)
(top)
(top))
- ("l-*-30199"
- "l-*-30197"
- "l-*-30195"
- "l-*-30193"
- "l-*-30191"
- "l-*-30189"
- "l-*-30187")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile))
- tmp-30951)))
- tmp-30946)
- (let ((tmp-30954
+ tmp-29119)))
+ tmp-29114)
+ (let ((tmp-29122
($sc-dispatch
- x-30897
+ x-29065
'(#(atom "value") any))))
- (if tmp-30954
+ (if tmp-29122
(@apply
- (lambda (x-30958) x-30958)
- tmp-30954)
+ (lambda (x-29126) x-29126)
+ tmp-29122)
(syntax-violation
#f
"source expression failed to match any pattern"
- x-30897))))))))))))))))))
- (lambda (x-30458)
- (let ((tmp-30460 ($sc-dispatch x-30458 '(_ any))))
- (if tmp-30460
+ x-29065))))))))))))))))))
+ (lambda (x-28626)
+ (let ((tmp-28628 ($sc-dispatch x-28626 '(_ any))))
+ (if tmp-28628
(@apply
- (lambda (e-30464)
- (emit-30457 (quasi-30451 e-30464 0)))
- tmp-30460)
+ (lambda (e-28632)
+ (emit-28625 (quasi-28619 e-28632 0)))
+ tmp-28628)
(syntax-violation
#f
"source expression failed to match any pattern"
- x-30458)))))))
+ x-28626)))))))
(define include
(make-syntax-transformer
'include
'macro
- (lambda (x-31013)
+ (lambda (x-29181)
(letrec*
- ((read-file-31014
- (lambda (fn-31123 k-31124)
- (let ((p-31125 (open-input-file fn-31123)))
+ ((read-file-29182
+ (lambda (fn-29291 k-29292)
+ (let ((p-29293 (open-input-file fn-29291)))
(letrec*
- ((f-31126
- (lambda (x-31180 result-31181)
- (if (eof-object? x-31180)
+ ((f-29294
+ (lambda (x-29348 result-29349)
+ (if (eof-object? x-29348)
(begin
- (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
+ (close-input-port p-29293)
+ (reverse result-29349))
+ (f-29294
+ (read p-29293)
+ (cons (datum->syntax k-29292 x-29348)
+ result-29349))))))
+ (f-29294 (read p-29293) '()))))))
+ (let ((tmp-29184 ($sc-dispatch x-29181 '(any any))))
+ (if tmp-29184
(@apply
- (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
+ (lambda (k-29188 filename-29189)
+ (let ((fn-29190 (syntax->datum filename-29189)))
+ (let ((tmp-29191
+ (read-file-29182 fn-29190 filename-29189)))
+ (let ((tmp-29192 ($sc-dispatch tmp-29191 'each-any)))
+ (if tmp-29192
(@apply
- (lambda (exp-31042)
+ (lambda (exp-29210)
(cons '#(syntax-object
begin
((top)
#(ribcage () () ())
- #(ribcage #(exp) #((top)) #("l-*-31010"))
+ #(ribcage #(exp) #((top)) #("l-*-29178"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("l-*-31005"))
+ #(ribcage #(fn) #((top)) #("l-*-29173"))
#(ribcage
#(k filename)
#((top) (top))
- #("l-*-31001" "l-*-31002"))
+ #("l-*-29169" "l-*-29170"))
#(ribcage
(read-file)
((top))
- ("l-*-30985"))
- #(ribcage #(x) #((top)) #("l-*-30984")))
+ ("l-*-29153"))
+ #(ribcage #(x) #((top)) #("l-*-29152")))
(hygiene guile))
- exp-31042))
- tmp-31024)
+ exp-29210))
+ tmp-29192)
(syntax-violation
#f
"source expression failed to match any pattern"
- tmp-31023))))))
- tmp-31016)
+ tmp-29191))))))
+ tmp-29184)
(syntax-violation
#f
"source expression failed to match any pattern"
- x-31013)))))))
+ x-29181)))))))
(define include-from-path
(make-syntax-transformer
'include-from-path
'macro
- (lambda (x-31200)
- (let ((tmp-31202 ($sc-dispatch x-31200 '(any any))))
- (if tmp-31202
+ (lambda (x-29368)
+ (let ((tmp-29370 ($sc-dispatch x-29368 '(any any))))
+ (if tmp-29370
(@apply
- (lambda (k-31206 filename-31207)
- (let ((fn-31208 (syntax->datum filename-31207)))
- (let ((tmp-31209
+ (lambda (k-29374 filename-29375)
+ (let ((fn-29376 (syntax->datum filename-29375)))
+ (let ((tmp-29377
(datum->syntax
- filename-31207
- (let ((t-31212 (%search-load-path fn-31208)))
- (if t-31212
- t-31212
+ filename-29375
+ (let ((t-29380 (%search-load-path fn-29376)))
+ (if t-29380
+ t-29380
(syntax-violation
'include-from-path
"file not found in path"
- x-31200
- filename-31207))))))
+ x-29368
+ filename-29375))))))
(list '#(syntax-object
include
((top)
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("l-*-31194"))
+ #(ribcage #(fn) #((top)) #("l-*-29362"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("l-*-31190"))
+ #(ribcage #(fn) #((top)) #("l-*-29358"))
#(ribcage
#(k filename)
#((top) (top))
- #("l-*-31186" "l-*-31187"))
+ #("l-*-29354" "l-*-29355"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-31183")))
+ #(ribcage #(x) #((top)) #("l-*-29351")))
(hygiene guile))
- tmp-31209))))
- tmp-31202)
+ tmp-29377))))
+ tmp-29370)
(syntax-violation
#f
"source expression failed to match any pattern"
- x-31200))))))
+ x-29368))))))
(define unquote
(make-syntax-transformer
'unquote
'macro
- (lambda (x-31221)
+ (lambda (x-29389)
(syntax-violation
'unquote
"expression not valid outside of quasiquote"
- x-31221))))
+ x-29389))))
(define unquote-splicing
(make-syntax-transformer
'unquote-splicing
'macro
- (lambda (x-31224)
+ (lambda (x-29392)
(syntax-violation
'unquote-splicing
"expression not valid outside of quasiquote"
- x-31224))))
+ x-29392))))
(define case
(make-syntax-transformer
'case
'macro
- (lambda (x-31280)
- (let ((tmp-31282
- ($sc-dispatch x-31280 '(_ any any . each-any))))
- (if tmp-31282
+ (lambda (x-29448)
+ (let ((tmp-29450
+ ($sc-dispatch x-29448 '(_ any any . each-any))))
+ (if tmp-29450
(@apply
- (lambda (e-31286 m1-31287 m2-31288)
- (let ((tmp-31289
+ (lambda (e-29454 m1-29455 m2-29456)
+ (let ((tmp-29457
(letrec*
- ((f-31331
- (lambda (clause-31334 clauses-31335)
- (if (null? clauses-31335)
- (let ((tmp-31337
+ ((f-29499
+ (lambda (clause-29502 clauses-29503)
+ (if (null? clauses-29503)
+ (let ((tmp-29505
($sc-dispatch
- clause-31334
+ clause-29502
'(#(free-id
#(syntax-object
else
@@ -25665,89 +25618,89 @@
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("l-*-31239"
- "l-*-31240"
- "l-*-31241"))
+ #("l-*-29407"
+ "l-*-29408"
+ "l-*-29409"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("l-*-31229"
- "l-*-31230"
- "l-*-31231"))
+ #("l-*-29397"
+ "l-*-29398"
+ "l-*-29399"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31226")))
+ #("l-*-29394")))
(hygiene guile)))
any
.
each-any))))
- (if tmp-31337
+ (if tmp-29505
(@apply
- (lambda (e1-31341 e2-31342)
+ (lambda (e1-29509 e2-29510)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("l-*-31248" "l-*-31249"))
+ #("l-*-29416" "l-*-29417"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("l-*-31239"
- "l-*-31240"
- "l-*-31241"))
+ #("l-*-29407"
+ "l-*-29408"
+ "l-*-29409"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("l-*-31229"
- "l-*-31230"
- "l-*-31231"))
+ #("l-*-29397"
+ "l-*-29398"
+ "l-*-29399"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31226")))
+ #("l-*-29394")))
(hygiene guile))
- (cons e1-31341 e2-31342)))
- tmp-31337)
- (let ((tmp-31343
+ (cons e1-29509 e2-29510)))
+ tmp-29505)
+ (let ((tmp-29511
($sc-dispatch
- clause-31334
+ clause-29502
'(each-any any . each-any))))
- (if tmp-31343
+ (if tmp-29511
(@apply
- (lambda (k-31347 e1-31348 e2-31349)
+ (lambda (k-29515 e1-29516 e2-29517)
(list '#(syntax-object
if
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("l-*-31254"
- "l-*-31255"
- "l-*-31256"))
+ #("l-*-29422"
+ "l-*-29423"
+ "l-*-29424"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("l-*-31239"
- "l-*-31240"
- "l-*-31241"))
+ #("l-*-29407"
+ "l-*-29408"
+ "l-*-29409"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("l-*-31229"
- "l-*-31230"
- "l-*-31231"))
+ #("l-*-29397"
+ "l-*-29398"
+ "l-*-29399"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31226")))
+ #("l-*-29394")))
(hygiene guile))
(list '#(syntax-object
memv
@@ -25757,9 +25710,9 @@
#((top)
(top)
(top))
- #("l-*-31254"
- "l-*-31255"
- "l-*-31256"))
+ #("l-*-29422"
+ "l-*-29423"
+ "l-*-29424"))
#(ribcage () () ())
#(ribcage
#(f
@@ -25768,22 +25721,22 @@
#((top)
(top)
(top))
- #("l-*-31239"
- "l-*-31240"
- "l-*-31241"))
+ #("l-*-29407"
+ "l-*-29408"
+ "l-*-29409"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("l-*-31229"
- "l-*-31230"
- "l-*-31231"))
+ #("l-*-29397"
+ "l-*-29398"
+ "l-*-29399"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31226")))
+ #("l-*-29394")))
(hygiene guile))
'#(syntax-object
t
@@ -25793,9 +25746,9 @@
#((top)
(top)
(top))
- #("l-*-31254"
- "l-*-31255"
- "l-*-31256"))
+ #("l-*-29422"
+ "l-*-29423"
+ "l-*-29424"))
#(ribcage () () ())
#(ribcage
#(f
@@ -25804,22 +25757,22 @@
#((top)
(top)
(top))
- #("l-*-31239"
- "l-*-31240"
- "l-*-31241"))
+ #("l-*-29407"
+ "l-*-29408"
+ "l-*-29409"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("l-*-31229"
- "l-*-31230"
- "l-*-31231"))
+ #("l-*-29397"
+ "l-*-29398"
+ "l-*-29399"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31226")))
+ #("l-*-29394")))
(hygiene guile))
(list '#(syntax-object
quote
@@ -25829,9 +25782,9 @@
#((top)
(top)
(top))
- #("l-*-31254"
- "l-*-31255"
- "l-*-31256"))
+ #("l-*-29422"
+ "l-*-29423"
+ "l-*-29424"))
#(ribcage
()
()
@@ -25843,17 +25796,17 @@
#((top)
(top)
(top))
- #("l-*-31239"
- "l-*-31240"
- "l-*-31241"))
+ #("l-*-29407"
+ "l-*-29408"
+ "l-*-29409"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("l-*-31229"
- "l-*-31230"
- "l-*-31231"))
+ #("l-*-29397"
+ "l-*-29398"
+ "l-*-29399"))
#(ribcage
()
()
@@ -25861,10 +25814,10 @@
#(ribcage
#(x)
#((top))
- #("l-*-31226")))
+ #("l-*-29394")))
(hygiene
guile))
- k-31347))
+ k-29515))
(cons '#(syntax-object
begin
((top)
@@ -25873,9 +25826,9 @@
#((top)
(top)
(top))
- #("l-*-31254"
- "l-*-31255"
- "l-*-31256"))
+ #("l-*-29422"
+ "l-*-29423"
+ "l-*-29424"))
#(ribcage () () ())
#(ribcage
#(f
@@ -25884,74 +25837,74 @@
#((top)
(top)
(top))
- #("l-*-31239"
- "l-*-31240"
- "l-*-31241"))
+ #("l-*-29407"
+ "l-*-29408"
+ "l-*-29409"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("l-*-31229"
- "l-*-31230"
- "l-*-31231"))
+ #("l-*-29397"
+ "l-*-29398"
+ "l-*-29399"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31226")))
+ #("l-*-29394")))
(hygiene guile))
- (cons e1-31348
- e2-31349))))
- tmp-31343)
+ (cons e1-29516
+ e2-29517))))
+ tmp-29511)
(syntax-violation
'case
"bad clause"
- x-31280
- clause-31334)))))
- (let ((tmp-31357
- (f-31331
- (car clauses-31335)
- (cdr clauses-31335))))
- (let ((tmp-31360
+ x-29448
+ clause-29502)))))
+ (let ((tmp-29525
+ (f-29499
+ (car clauses-29503)
+ (cdr clauses-29503))))
+ (let ((tmp-29528
($sc-dispatch
- clause-31334
+ clause-29502
'(each-any any . each-any))))
- (if tmp-31360
+ (if tmp-29528
(@apply
- (lambda (k-31364 e1-31365 e2-31366)
+ (lambda (k-29532 e1-29533 e2-29534)
(list '#(syntax-object
if
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("l-*-31270"
- "l-*-31271"
- "l-*-31272"))
+ #("l-*-29438"
+ "l-*-29439"
+ "l-*-29440"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("l-*-31266"))
+ #("l-*-29434"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("l-*-31239"
- "l-*-31240"
- "l-*-31241"))
+ #("l-*-29407"
+ "l-*-29408"
+ "l-*-29409"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("l-*-31229"
- "l-*-31230"
- "l-*-31231"))
+ #("l-*-29397"
+ "l-*-29398"
+ "l-*-29399"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31226")))
+ #("l-*-29394")))
(hygiene guile))
(list '#(syntax-object
memv
@@ -25959,32 +25912,32 @@
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("l-*-31270"
- "l-*-31271"
- "l-*-31272"))
+ #("l-*-29438"
+ "l-*-29439"
+ "l-*-29440"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("l-*-31266"))
+ #("l-*-29434"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("l-*-31239"
- "l-*-31240"
- "l-*-31241"))
+ #("l-*-29407"
+ "l-*-29408"
+ "l-*-29409"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("l-*-31229"
- "l-*-31230"
- "l-*-31231"))
+ #("l-*-29397"
+ "l-*-29398"
+ "l-*-29399"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31226")))
+ #("l-*-29394")))
(hygiene guile))
'#(syntax-object
t
@@ -25992,32 +25945,32 @@
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("l-*-31270"
- "l-*-31271"
- "l-*-31272"))
+ #("l-*-29438"
+ "l-*-29439"
+ "l-*-29440"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("l-*-31266"))
+ #("l-*-29434"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("l-*-31239"
- "l-*-31240"
- "l-*-31241"))
+ #("l-*-29407"
+ "l-*-29408"
+ "l-*-29409"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("l-*-31229"
- "l-*-31230"
- "l-*-31231"))
+ #("l-*-29397"
+ "l-*-29398"
+ "l-*-29399"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31226")))
+ #("l-*-29394")))
(hygiene guile))
(list '#(syntax-object
quote
@@ -26027,9 +25980,9 @@
#((top)
(top)
(top))
- #("l-*-31270"
- "l-*-31271"
- "l-*-31272"))
+ #("l-*-29438"
+ "l-*-29439"
+ "l-*-29440"))
#(ribcage
()
()
@@ -26037,7 +25990,7 @@
#(ribcage
#(rest)
#((top))
- #("l-*-31266"))
+ #("l-*-29434"))
#(ribcage
()
()
@@ -26049,17 +26002,17 @@
#((top)
(top)
(top))
- #("l-*-31239"
- "l-*-31240"
- "l-*-31241"))
+ #("l-*-29407"
+ "l-*-29408"
+ "l-*-29409"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("l-*-31229"
- "l-*-31230"
- "l-*-31231"))
+ #("l-*-29397"
+ "l-*-29398"
+ "l-*-29399"))
#(ribcage
()
()
@@ -26067,63 +26020,63 @@
#(ribcage
#(x)
#((top))
- #("l-*-31226")))
+ #("l-*-29394")))
(hygiene guile))
- k-31364))
+ k-29532))
(cons '#(syntax-object
begin
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("l-*-31270"
- "l-*-31271"
- "l-*-31272"))
+ #("l-*-29438"
+ "l-*-29439"
+ "l-*-29440"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("l-*-31266"))
+ #("l-*-29434"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("l-*-31239"
- "l-*-31240"
- "l-*-31241"))
+ #("l-*-29407"
+ "l-*-29408"
+ "l-*-29409"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("l-*-31229"
- "l-*-31230"
- "l-*-31231"))
+ #("l-*-29397"
+ "l-*-29398"
+ "l-*-29399"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31226")))
+ #("l-*-29394")))
(hygiene guile))
- (cons e1-31365 e2-31366))
- tmp-31357))
- tmp-31360)
+ (cons e1-29533 e2-29534))
+ tmp-29525))
+ tmp-29528)
(syntax-violation
'case
"bad clause"
- x-31280
- clause-31334))))))))
- (f-31331 m1-31287 m2-31288))))
- (let ((body-31290 tmp-31289))
+ x-29448
+ clause-29502))))))))
+ (f-29499 m1-29455 m2-29456))))
+ (let ((body-29458 tmp-29457))
(list '#(syntax-object
let
((top)
#(ribcage () () ())
- #(ribcage #(body) #((top)) #("l-*-31237"))
+ #(ribcage #(body) #((top)) #("l-*-29405"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("l-*-31229" "l-*-31230" "l-*-31231"))
+ #("l-*-29397" "l-*-29398" "l-*-29399"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-31226")))
+ #(ribcage #(x) #((top)) #("l-*-29394")))
(hygiene guile))
(list (list '#(syntax-object
t
@@ -26132,122 +26085,122 @@
#(ribcage
#(body)
#((top))
- #("l-*-31237"))
+ #("l-*-29405"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("l-*-31229"
- "l-*-31230"
- "l-*-31231"))
+ #("l-*-29397"
+ "l-*-29398"
+ "l-*-29399"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31226")))
+ #("l-*-29394")))
(hygiene guile))
- e-31286))
- body-31290))))
- tmp-31282)
+ e-29454))
+ body-29458))))
+ tmp-29450)
(syntax-violation
#f
"source expression failed to match any pattern"
- x-31280))))))
+ x-29448))))))
(define make-variable-transformer
- (lambda (proc-31384)
- (if (procedure? proc-31384)
+ (lambda (proc-29552)
+ (if (procedure? proc-29552)
(letrec*
- ((trans-31385
- (lambda (x-31391) (proc-31384 x-31391))))
+ ((trans-29553
+ (lambda (x-29559) (proc-29552 x-29559))))
(begin
(set-procedure-property!
- trans-31385
+ trans-29553
'variable-transformer
#t)
- trans-31385))
+ trans-29553))
(error "variable transformer not a procedure"
- proc-31384))))
+ proc-29552))))
(define identifier-syntax
(make-syntax-transformer
'identifier-syntax
'macro
- (lambda (x-31423)
- (let ((tmp-31425 ($sc-dispatch x-31423 '(_ any))))
- (if tmp-31425
+ (lambda (x-29591)
+ (let ((tmp-29593 ($sc-dispatch x-29591 '(_ any))))
+ (if tmp-29593
(@apply
- (lambda (e-31429)
+ (lambda (e-29597)
(list '#(syntax-object
lambda
((top)
- #(ribcage #(e) #((top)) #("l-*-31398"))
+ #(ribcage #(e) #((top)) #("l-*-29566"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-31395")))
+ #(ribcage #(x) #((top)) #("l-*-29563")))
(hygiene guile))
'(#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("l-*-31398"))
+ #(ribcage #(e) #((top)) #("l-*-29566"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-31395")))
+ #(ribcage #(x) #((top)) #("l-*-29563")))
(hygiene guile)))
'#((#(syntax-object
macro-type
((top)
- #(ribcage #(e) #((top)) #("l-*-31398"))
+ #(ribcage #(e) #((top)) #("l-*-29566"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-31395")))
+ #(ribcage #(x) #((top)) #("l-*-29563")))
(hygiene guile))
.
#(syntax-object
identifier-syntax
((top)
- #(ribcage #(e) #((top)) #("l-*-31398"))
+ #(ribcage #(e) #((top)) #("l-*-29566"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-31395")))
+ #(ribcage #(x) #((top)) #("l-*-29563")))
(hygiene guile))))
(list '#(syntax-object
syntax-case
((top)
- #(ribcage #(e) #((top)) #("l-*-31398"))
+ #(ribcage #(e) #((top)) #("l-*-29566"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-31395")))
+ #(ribcage #(x) #((top)) #("l-*-29563")))
(hygiene guile))
'#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("l-*-31398"))
+ #(ribcage #(e) #((top)) #("l-*-29566"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-31395")))
+ #(ribcage #(x) #((top)) #("l-*-29563")))
(hygiene guile))
'()
(list '#(syntax-object
id
((top)
- #(ribcage #(e) #((top)) #("l-*-31398"))
+ #(ribcage #(e) #((top)) #("l-*-29566"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-31395")))
+ #(ribcage #(x) #((top)) #("l-*-29563")))
(hygiene guile))
'(#(syntax-object
identifier?
((top)
- #(ribcage #(e) #((top)) #("l-*-31398"))
+ #(ribcage #(e) #((top)) #("l-*-29566"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-31395")))
+ #(ribcage #(x) #((top)) #("l-*-29563")))
(hygiene guile))
(#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("l-*-31398"))
+ #(ribcage #(e) #((top)) #("l-*-29566"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-31395")))
+ #(ribcage #(x) #((top)) #("l-*-29563")))
(hygiene guile))
#(syntax-object
id
((top)
- #(ribcage #(e) #((top)) #("l-*-31398"))
+ #(ribcage #(e) #((top)) #("l-*-29566"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-31395")))
+ #(ribcage #(x) #((top)) #("l-*-29563")))
(hygiene guile))))
(list '#(syntax-object
syntax
@@ -26255,34 +26208,34 @@
#(ribcage
#(e)
#((top))
- #("l-*-31398"))
+ #("l-*-29566"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31395")))
+ #("l-*-29563")))
(hygiene guile))
- e-31429))
+ e-29597))
(list '(#(syntax-object
_
((top)
- #(ribcage #(e) #((top)) #("l-*-31398"))
+ #(ribcage #(e) #((top)) #("l-*-29566"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-31395")))
+ #(ribcage #(x) #((top)) #("l-*-29563")))
(hygiene guile))
#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("l-*-31398"))
+ #(ribcage #(e) #((top)) #("l-*-29566"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-31395")))
+ #(ribcage #(x) #((top)) #("l-*-29563")))
(hygiene guile))
#(syntax-object
...
((top)
- #(ribcage #(e) #((top)) #("l-*-31398"))
+ #(ribcage #(e) #((top)) #("l-*-29566"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-31395")))
+ #(ribcage #(x) #((top)) #("l-*-29563")))
(hygiene guile)))
(list '#(syntax-object
syntax
@@ -26290,26 +26243,26 @@
#(ribcage
#(e)
#((top))
- #("l-*-31398"))
+ #("l-*-29566"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31395")))
+ #("l-*-29563")))
(hygiene guile))
- (cons e-31429
+ (cons e-29597
'(#(syntax-object
x
((top)
#(ribcage
#(e)
#((top))
- #("l-*-31398"))
+ #("l-*-29566"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31395")))
+ #("l-*-29563")))
(hygiene guile))
#(syntax-object
...
@@ -26317,59 +26270,59 @@
#(ribcage
#(e)
#((top))
- #("l-*-31398"))
+ #("l-*-29566"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31395")))
+ #("l-*-29563")))
(hygiene guile)))))))))
- tmp-31425)
- (let ((tmp-31430
+ tmp-29593)
+ (let ((tmp-29598
($sc-dispatch
- x-31423
+ x-29591
'(_ (any any)
((#(free-id
#(syntax-object
set!
((top)
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-31395")))
+ #(ribcage #(x) #((top)) #("l-*-29563")))
(hygiene guile)))
any
any)
any)))))
- (if (if tmp-31430
+ (if (if tmp-29598
(@apply
- (lambda (id-31434
- exp1-31435
- var-31436
- val-31437
- exp2-31438)
- (if (identifier? id-31434)
- (identifier? var-31436)
+ (lambda (id-29602
+ exp1-29603
+ var-29604
+ val-29605
+ exp2-29606)
+ (if (identifier? id-29602)
+ (identifier? var-29604)
#f))
- tmp-31430)
+ tmp-29598)
#f)
(@apply
- (lambda (id-31439
- exp1-31440
- var-31441
- val-31442
- exp2-31443)
+ (lambda (id-29607
+ exp1-29608
+ var-29609
+ val-29610
+ exp2-29611)
(list '#(syntax-object
make-variable-transformer
((top)
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("l-*-31413"
- "l-*-31414"
- "l-*-31415"
- "l-*-31416"
- "l-*-31417"))
+ #("l-*-29581"
+ "l-*-29582"
+ "l-*-29583"
+ "l-*-29584"
+ "l-*-29585"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-31395")))
+ #(ribcage #(x) #((top)) #("l-*-29563")))
(hygiene guile))
(list '#(syntax-object
lambda
@@ -26377,13 +26330,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("l-*-31413"
- "l-*-31414"
- "l-*-31415"
- "l-*-31416"
- "l-*-31417"))
+ #("l-*-29581"
+ "l-*-29582"
+ "l-*-29583"
+ "l-*-29584"
+ "l-*-29585"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-31395")))
+ #(ribcage #(x) #((top)) #("l-*-29563")))
(hygiene guile))
'(#(syntax-object
x
@@ -26391,13 +26344,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("l-*-31413"
- "l-*-31414"
- "l-*-31415"
- "l-*-31416"
- "l-*-31417"))
+ #("l-*-29581"
+ "l-*-29582"
+ "l-*-29583"
+ "l-*-29584"
+ "l-*-29585"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-31395")))
+ #(ribcage #(x) #((top)) #("l-*-29563")))
(hygiene guile)))
'#((#(syntax-object
macro-type
@@ -26405,13 +26358,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("l-*-31413"
- "l-*-31414"
- "l-*-31415"
- "l-*-31416"
- "l-*-31417"))
+ #("l-*-29581"
+ "l-*-29582"
+ "l-*-29583"
+ "l-*-29584"
+ "l-*-29585"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-31395")))
+ #(ribcage #(x) #((top)) #("l-*-29563")))
(hygiene guile))
.
#(syntax-object
@@ -26420,13 +26373,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("l-*-31413"
- "l-*-31414"
- "l-*-31415"
- "l-*-31416"
- "l-*-31417"))
+ #("l-*-29581"
+ "l-*-29582"
+ "l-*-29583"
+ "l-*-29584"
+ "l-*-29585"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-31395")))
+ #(ribcage #(x) #((top)) #("l-*-29563")))
(hygiene guile))))
(list '#(syntax-object
syntax-case
@@ -26434,16 +26387,16 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("l-*-31413"
- "l-*-31414"
- "l-*-31415"
- "l-*-31416"
- "l-*-31417"))
+ #("l-*-29581"
+ "l-*-29582"
+ "l-*-29583"
+ "l-*-29584"
+ "l-*-29585"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31395")))
+ #("l-*-29563")))
(hygiene guile))
'#(syntax-object
x
@@ -26451,16 +26404,16 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("l-*-31413"
- "l-*-31414"
- "l-*-31415"
- "l-*-31416"
- "l-*-31417"))
+ #("l-*-29581"
+ "l-*-29582"
+ "l-*-29583"
+ "l-*-29584"
+ "l-*-29585"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31395")))
+ #("l-*-29563")))
(hygiene guile))
'(#(syntax-object
set!
@@ -26468,16 +26421,16 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("l-*-31413"
- "l-*-31414"
- "l-*-31415"
- "l-*-31416"
- "l-*-31417"))
+ #("l-*-29581"
+ "l-*-29582"
+ "l-*-29583"
+ "l-*-29584"
+ "l-*-29585"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31395")))
+ #("l-*-29563")))
(hygiene guile)))
(list (list '#(syntax-object
set!
@@ -26489,19 +26442,19 @@
(top)
(top)
(top))
- #("l-*-31413"
- "l-*-31414"
- "l-*-31415"
- "l-*-31416"
- "l-*-31417"))
+ #("l-*-29581"
+ "l-*-29582"
+ "l-*-29583"
+ "l-*-29584"
+ "l-*-29585"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31395")))
+ #("l-*-29563")))
(hygiene guile))
- var-31441
- val-31442)
+ var-29609
+ val-29610)
(list '#(syntax-object
syntax
((top)
@@ -26512,19 +26465,19 @@
(top)
(top)
(top))
- #("l-*-31413"
- "l-*-31414"
- "l-*-31415"
- "l-*-31416"
- "l-*-31417"))
+ #("l-*-29581"
+ "l-*-29582"
+ "l-*-29583"
+ "l-*-29584"
+ "l-*-29585"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31395")))
+ #("l-*-29563")))
(hygiene guile))
- exp2-31443))
- (list (cons id-31439
+ exp2-29611))
+ (list (cons id-29607
'(#(syntax-object
x
((top)
@@ -26535,16 +26488,16 @@
(top)
(top)
(top))
- #("l-*-31413"
- "l-*-31414"
- "l-*-31415"
- "l-*-31416"
- "l-*-31417"))
+ #("l-*-29581"
+ "l-*-29582"
+ "l-*-29583"
+ "l-*-29584"
+ "l-*-29585"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31395")))
+ #("l-*-29563")))
(hygiene guile))
#(syntax-object
...
@@ -26556,16 +26509,16 @@
(top)
(top)
(top))
- #("l-*-31413"
- "l-*-31414"
- "l-*-31415"
- "l-*-31416"
- "l-*-31417"))
+ #("l-*-29581"
+ "l-*-29582"
+ "l-*-29583"
+ "l-*-29584"
+ "l-*-29585"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31395")))
+ #("l-*-29563")))
(hygiene guile))))
(list '#(syntax-object
syntax
@@ -26577,18 +26530,18 @@
(top)
(top)
(top))
- #("l-*-31413"
- "l-*-31414"
- "l-*-31415"
- "l-*-31416"
- "l-*-31417"))
+ #("l-*-29581"
+ "l-*-29582"
+ "l-*-29583"
+ "l-*-29584"
+ "l-*-29585"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31395")))
+ #("l-*-29563")))
(hygiene guile))
- (cons exp1-31440
+ (cons exp1-29608
'(#(syntax-object
x
((top)
@@ -26603,16 +26556,16 @@
(top)
(top)
(top))
- #("l-*-31413"
- "l-*-31414"
- "l-*-31415"
- "l-*-31416"
- "l-*-31417"))
+ #("l-*-29581"
+ "l-*-29582"
+ "l-*-29583"
+ "l-*-29584"
+ "l-*-29585"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31395")))
+ #("l-*-29563")))
(hygiene guile))
#(syntax-object
...
@@ -26628,18 +26581,18 @@
(top)
(top)
(top))
- #("l-*-31413"
- "l-*-31414"
- "l-*-31415"
- "l-*-31416"
- "l-*-31417"))
+ #("l-*-29581"
+ "l-*-29582"
+ "l-*-29583"
+ "l-*-29584"
+ "l-*-29585"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31395")))
+ #("l-*-29563")))
(hygiene guile))))))
- (list id-31439
+ (list id-29607
(list '#(syntax-object
identifier?
((top)
@@ -26650,16 +26603,16 @@
(top)
(top)
(top))
- #("l-*-31413"
- "l-*-31414"
- "l-*-31415"
- "l-*-31416"
- "l-*-31417"))
+ #("l-*-29581"
+ "l-*-29582"
+ "l-*-29583"
+ "l-*-29584"
+ "l-*-29585"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31395")))
+ #("l-*-29563")))
(hygiene guile))
(list '#(syntax-object
syntax
@@ -26675,18 +26628,18 @@
(top)
(top)
(top))
- #("l-*-31413"
- "l-*-31414"
- "l-*-31415"
- "l-*-31416"
- "l-*-31417"))
+ #("l-*-29581"
+ "l-*-29582"
+ "l-*-29583"
+ "l-*-29584"
+ "l-*-29585"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31395")))
+ #("l-*-29563")))
(hygiene guile))
- id-31439))
+ id-29607))
(list '#(syntax-object
syntax
((top)
@@ -26697,69 +26650,69 @@
(top)
(top)
(top))
- #("l-*-31413"
- "l-*-31414"
- "l-*-31415"
- "l-*-31416"
- "l-*-31417"))
+ #("l-*-29581"
+ "l-*-29582"
+ "l-*-29583"
+ "l-*-29584"
+ "l-*-29585"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31395")))
+ #("l-*-29563")))
(hygiene guile))
- exp1-31440))))))
- tmp-31430)
+ exp1-29608))))))
+ tmp-29598)
(syntax-violation
#f
"source expression failed to match any pattern"
- x-31423))))))))
+ x-29591))))))))
(define define*
(make-syntax-transformer
'define*
'macro
- (lambda (x-31475)
- (let ((tmp-31477
+ (lambda (x-29643)
+ (let ((tmp-29645
($sc-dispatch
- x-31475
+ x-29643
'(_ (any . any) any . each-any))))
- (if tmp-31477
+ (if tmp-29645
(@apply
- (lambda (id-31481 args-31482 b0-31483 b1-31484)
+ (lambda (id-29649 args-29650 b0-29651 b1-29652)
(list '#(syntax-object
define
((top)
#(ribcage
#(id args b0 b1)
#((top) (top) (top) (top))
- #("l-*-31457"
- "l-*-31458"
- "l-*-31459"
- "l-*-31460"))
+ #("l-*-29625"
+ "l-*-29626"
+ "l-*-29627"
+ "l-*-29628"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-31454")))
+ #(ribcage #(x) #((top)) #("l-*-29622")))
(hygiene guile))
- id-31481
+ id-29649
(cons '#(syntax-object
lambda*
((top)
#(ribcage
#(id args b0 b1)
#((top) (top) (top) (top))
- #("l-*-31457"
- "l-*-31458"
- "l-*-31459"
- "l-*-31460"))
+ #("l-*-29625"
+ "l-*-29626"
+ "l-*-29627"
+ "l-*-29628"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-31454")))
+ #(ribcage #(x) #((top)) #("l-*-29622")))
(hygiene guile))
- (cons args-31482 (cons b0-31483 b1-31484)))))
- tmp-31477)
- (let ((tmp-31485 ($sc-dispatch x-31475 '(_ any any))))
- (if (if tmp-31485
+ (cons args-29650 (cons b0-29651 b1-29652)))))
+ tmp-29645)
+ (let ((tmp-29653 ($sc-dispatch x-29643 '(_ any any))))
+ (if (if tmp-29653
(@apply
- (lambda (id-31489 val-31490)
+ (lambda (id-29657 val-29658)
(identifier?
'#(syntax-object
x
@@ -26767,29 +26720,29 @@
#(ribcage
#(id val)
#((top) (top))
- #("l-*-31467" "l-*-31468"))
+ #("l-*-29635" "l-*-29636"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-31454")))
+ #(ribcage #(x) #((top)) #("l-*-29622")))
(hygiene guile))))
- tmp-31485)
+ tmp-29653)
#f)
(@apply
- (lambda (id-31491 val-31492)
+ (lambda (id-29659 val-29660)
(list '#(syntax-object
define
((top)
#(ribcage
#(id val)
#((top) (top))
- #("l-*-31471" "l-*-31472"))
+ #("l-*-29639" "l-*-29640"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-31454")))
+ #(ribcage #(x) #((top)) #("l-*-29622")))
(hygiene guile))
- id-31491
- val-31492))
- tmp-31485)
+ id-29659
+ val-29660))
+ tmp-29653)
(syntax-violation
#f
"source expression failed to match any pattern"
- x-31475))))))))
+ x-29643))))))))
diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm
index 270daa7ce..729ae6ecb 100644
--- a/module/ice-9/psyntax.scm
+++ b/module/ice-9/psyntax.scm
@@ -2552,7 +2552,8 @@
who 'syntax-violation)
(arg-check string? message 'syntax-violation)
(throw 'syntax-error who message
- (source-annotation (or form subform))
+ (or (source-annotation subform)
+ (source-annotation form))
(strip form empty-wrap)
(and subform (strip subform empty-wrap)))))