|
| From: | Mark H Weaver |
| Subject: | [Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.5-46-gbbd1281 |
| Date: | Wed, 15 Feb 2012 05:56:46 +0000 |
This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".
http://git.savannah.gnu.org/cgit/guile.git/commit/?id=bbd1281ae5551e31d1bc720c7e93528619e0a693
The branch, stable-2.0 has been updated
via bbd1281ae5551e31d1bc720c7e93528619e0a693 (commit)
via 30398e94f9cadfaff44117bbff214b0b7ba703ca (commit)
via db2430688723676a3c7025d04aa1abd73c6b328e (commit)
from eec3a50867086782a01286b742ee43f9fd47ecba (commit)
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.
- Log -----------------------------------------------------------------
commit bbd1281ae5551e31d1bc720c7e93528619e0a693
Author: Mark H Weaver <address@hidden>
Date: Wed Feb 15 00:41:24 2012 -0500
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.
commit 30398e94f9cadfaff44117bbff214b0b7ba703ca
Author: Mark H Weaver <address@hidden>
Date: Wed Feb 15 00:17:18 2012 -0500
Fix psyntax bugs that would cause bad source annotations
* module/ice-9/psyntax.scm (rebuild-macro-output): Fix two bugs that
would cause bogus source properties to be added to vectors and
macro-introduced syntax objects. These bugs were masked by the
limitation that only pairs can be decorated with source properties.
Due to a typo, each vector in the macro output was decorated using the
vector itself as its source. Due to accidental variable capture, each
syntax-object introduced by the macro had its expression decorated
with its own wrap-subst.
* module/ice-9/psyntax-pp.scm: Regenerate.
commit db2430688723676a3c7025d04aa1abd73c6b328e
Author: Mark H Weaver <address@hidden>
Date: Mon Feb 13 00:06:43 2012 -0500
Fix typo in comment in message.scm: 'know' to 'known' warning types
* module/system/base/message.scm (%warning-types): Fix typo.
-----------------------------------------------------------------------
Summary of changes:
module/ice-9/psyntax-pp.scm |22801 ++++++++++++++++++++--------------------
module/ice-9/psyntax.scm | 13 +-
module/system/base/message.scm | 2 +-
3 files changed, 11396 insertions(+), 11420 deletions(-)
diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm
index 24343d8..41d7db4 100644
--- a/module/ice-9/psyntax-pp.scm
+++ b/module/ice-9/psyntax-pp.scm
@@ -1,1268 +1,1268 @@
(eval-when (compile) (set-current-module (resolve-module (quote (guile)))))
(if #f #f)
-(let ((session-id-6510 (if #f #f))
- (transformer-environment-6571 (if #f #f)))
+(let ((session-id-4255 (if #f #f))
+ (transformer-environment-4316 (if #f #f)))
(letrec*
- ((top-level-eval-hook-6508
- (lambda (x-29318 mod-29319)
- (primitive-eval x-29318)))
- (get-global-definition-hook-6512
- (lambda (symbol-17709 module-17710)
+ ((top-level-eval-hook-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-17710) (current-module) #f)
+ (if (if (not module-15687) (current-module) #f)
(warn "module system is booted, we should have a module"
- symbol-17709))
- (let ((v-17711
+ symbol-15686))
+ (let ((v-15688
(module-variable
- (if module-17710
- (resolve-module (cdr module-17710))
+ (if module-15687
+ (resolve-module (cdr module-15687))
(current-module))
- symbol-17709)))
- (if v-17711
- (if (variable-bound? v-17711)
- (let ((val-17713 (variable-ref v-17711)))
- (if (macro? val-17713)
- (if (macro-type val-17713)
- (cons (macro-type val-17713)
- (macro-binding val-17713))
+ symbol-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!-6514
- (lambda (name-17990 val-17991)
- (if (if (struct? val-17991)
- (eq? (struct-vtable val-17991)
+ (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-17998 (struct-ref val-17991 1)))
- (if (not (assq 'name meta-17998))
- (let ((v-18003
- (cons (cons 'name name-17990) meta-17998)))
- (struct-set! val-17991 1 v-18003)))))))
- (build-application-6516
- (lambda (source-17715 fun-exp-17716 arg-exps-17717)
+ (let ((meta-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-17715
- fun-exp-17716
- arg-exps-17717)))
- (build-conditional-6517
- (lambda (source-17723
- test-exp-17724
- then-exp-17725
- else-exp-17726)
+ 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-17723
- test-exp-17724
- then-exp-17725
- else-exp-17726)))
- (build-dynlet-6518
- (lambda (source-17733 fluids-17734 vals-17735 body-17736)
+ 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-17733
- fluids-17734
- vals-17735
- body-17736)))
- (build-lexical-reference-6519
- (lambda (type-29320 source-29321 name-29322 var-29323)
+ 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-29321
- name-29322
- var-29323)))
- (build-lexical-assignment-6520
- (lambda (source-17743 name-17744 var-17745 exp-17746)
+ source-27426
+ name-27427
+ var-27428)))
+ (build-lexical-assignment-4265
+ (lambda (source-15720 name-15721 var-15722 exp-15723)
(begin
- (if (if (struct? exp-17746)
- (eq? (struct-vtable exp-17746)
+ (if (if (struct? exp-15723)
+ (eq? (struct-vtable exp-15723)
(vector-ref %expanded-vtables 13))
#f)
- (let ((meta-17762 (struct-ref exp-17746 1)))
- (if (not (assq 'name meta-17762))
- (let ((v-17769
- (cons (cons 'name name-17744) meta-17762)))
- (struct-set! exp-17746 1 v-17769)))))
+ (let ((meta-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-17743
- name-17744
- var-17745
- exp-17746))))
- (analyze-variable-6521
- (lambda (mod-29329
- var-29330
- modref-cont-29331
- bare-cont-29332)
- (if (not mod-29329)
- (bare-cont-29332 var-29330)
- (let ((kind-29333 (car mod-29329))
- (mod-29334 (cdr mod-29329)))
- (if (eqv? kind-29333 'public)
- (modref-cont-29331 mod-29334 var-29330 #t)
- (if (eqv? kind-29333 'private)
- (if (not (equal? mod-29334 (module-name (current-module))))
- (modref-cont-29331 mod-29334 var-29330 #f)
- (bare-cont-29332 var-29330))
- (if (eqv? kind-29333 'bare)
- (bare-cont-29332 var-29330)
- (if (eqv? kind-29333 'hygiene)
+ source-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-29334
+ mod-27439
(module-name (current-module))))
(module-variable
- (resolve-module mod-29334)
- var-29330)
+ (resolve-module mod-27439)
+ var-27435)
#f)
- (modref-cont-29331 mod-29334 var-29330 #f)
- (bare-cont-29332 var-29330))
+ (modref-cont-27436 mod-27439 var-27435 #f)
+ (bare-cont-27437 var-27435))
(syntax-violation
#f
"bad module kind"
- var-29330
- mod-29334)))))))))
- (build-global-reference-6522
- (lambda (source-29349 var-29350 mod-29351)
- (analyze-variable-6521
- mod-29351
- var-29350
- (lambda (mod-29354 var-29355 public?-29356)
+ var-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-29349
- mod-29354
- var-29355
- public?-29356))
- (lambda (var-29364)
+ source-27466
+ mod-27471
+ var-27472
+ public?-27473))
+ (lambda (var-27481)
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
- source-29349
- var-29364)))))
- (build-global-assignment-6523
- (lambda (source-17778 var-17779 exp-17780 mod-17781)
+ source-27466
+ var-27481)))))
+ (build-global-assignment-4268
+ (lambda (source-15755 var-15756 exp-15757 mod-15758)
(begin
- (if (if (struct? exp-17780)
- (eq? (struct-vtable exp-17780)
+ (if (if (struct? exp-15757)
+ (eq? (struct-vtable exp-15757)
(vector-ref %expanded-vtables 13))
#f)
- (let ((meta-17797 (struct-ref exp-17780 1)))
- (if (not (assq 'name meta-17797))
- (let ((v-17804
- (cons (cons 'name var-17779) meta-17797)))
- (struct-set! exp-17780 1 v-17804)))))
- (analyze-variable-6521
- mod-17781
- var-17779
- (lambda (mod-17809 var-17810 public?-17811)
+ (let ((meta-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-17778
- mod-17809
- var-17810
- public?-17811
- exp-17780))
- (lambda (var-17819)
+ source-15755
+ mod-15786
+ var-15787
+ public?-15788
+ exp-15757))
+ (lambda (var-15796)
(make-struct/no-tail
(vector-ref %expanded-vtables 8)
- source-17778
- var-17819
- exp-17780))))))
- (build-global-definition-6524
- (lambda (source-29370 var-29371 exp-29372)
+ source-15755
+ var-15796
+ exp-15757))))))
+ (build-global-definition-4269
+ (lambda (source-27487 var-27488 exp-27489)
(begin
- (if (if (struct? exp-29372)
- (eq? (struct-vtable exp-29372)
+ (if (if (struct? exp-27489)
+ (eq? (struct-vtable exp-27489)
(vector-ref %expanded-vtables 13))
#f)
- (let ((meta-29388 (struct-ref exp-29372 1)))
- (if (not (assq 'name meta-29388))
- (let ((v-29395
- (cons (cons 'name var-29371) meta-29388)))
- (struct-set! exp-29372 1 v-29395)))))
+ (let ((meta-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-29370
- var-29371
- exp-29372))))
- (build-simple-lambda-6525
- (lambda (src-17825
- req-17826
- rest-17827
- vars-17828
- meta-17829
- exp-17830)
- (let ((body-17836
+ source-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-17825
- req-17826
+ src-15802
+ req-15803
#f
- rest-17827
+ rest-15804
#f
'()
- vars-17828
- exp-17830
+ vars-15805
+ exp-15807
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
- src-17825
- meta-17829
- body-17836))))
- (build-sequence-6530
- (lambda (src-29403 exps-29404)
- (if (null? (cdr exps-29404))
- (car exps-29404)
+ src-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-29403
- exps-29404))))
- (build-let-6531
- (lambda (src-17848
- ids-17849
- vars-17850
- val-exps-17851
- body-exp-17852)
+ 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!-6514
- ids-17849
- val-exps-17851)
- (if (null? vars-17850)
- body-exp-17852
+ 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-17848
- ids-17849
- vars-17850
- val-exps-17851
- body-exp-17852)))))
- (build-named-let-6532
- (lambda (src-17876
- ids-17877
- vars-17878
- val-exps-17879
- body-exp-17880)
- (let ((f-17881 (car vars-17878))
- (f-name-17882 (car ids-17877))
- (vars-17883 (cdr vars-17878))
- (ids-17884 (cdr ids-17877)))
- (let ((proc-17885
- (let ((body-17905
+ src-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-17876
- ids-17884
+ src-15853
+ ids-15861
#f
#f
#f
'()
- vars-17883
- body-exp-17880
+ vars-15860
+ body-exp-15857
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
- src-17876
+ src-15853
'()
- body-17905))))
+ body-15882))))
(begin
- (if (if (struct? proc-17885)
- (eq? (struct-vtable proc-17885)
+ (if (if (struct? proc-15862)
+ (eq? (struct-vtable proc-15862)
(vector-ref %expanded-vtables 13))
#f)
- (let ((meta-17929 (struct-ref proc-17885 1)))
- (if (not (assq 'name meta-17929))
- (let ((v-17936
- (cons (cons 'name f-name-17882) meta-17929)))
- (struct-set! proc-17885 1 v-17936)))))
+ (let ((meta-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!-6514
- ids-17884
- val-exps-17879)
- (let ((names-17960 (list f-name-17882))
- (gensyms-17961 (list f-17881))
- (vals-17962 (list proc-17885))
- (body-17963
- (let ((fun-exp-17967
+ maybe-name-value!-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-17876
- f-name-17882
- f-17881)))
+ src-15853
+ f-name-15859
+ f-15858)))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
- src-17876
- fun-exp-17967
- val-exps-17879))))
+ src-15853
+ fun-exp-15944
+ val-exps-15856))))
(make-struct/no-tail
(vector-ref %expanded-vtables 16)
- src-17876
+ src-15853
#f
- names-17960
- gensyms-17961
- vals-17962
- body-17963)))))))
- (build-letrec-6533
- (lambda (src-17983
- in-order?-17984
- ids-17985
- vars-17986
- val-exps-17987
- body-exp-17988)
- (if (null? vars-17986)
- body-exp-17988
+ names-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!-6514
- ids-17985
- val-exps-17987)
+ maybe-name-value!-4259
+ ids-15962
+ val-exps-15964)
(make-struct/no-tail
(vector-ref %expanded-vtables 16)
- src-17983
- in-order?-17984
- ids-17985
- vars-17986
- val-exps-17987
- body-exp-17988)))))
- (source-annotation-6542
- (lambda (x-18014)
- (if (if (vector? x-18014)
- (if (= (vector-length x-18014) 4)
- (eq? (vector-ref x-18014 0) 'syntax-object)
+ src-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-6542 (vector-ref x-18014 1))
- (if (pair? x-18014)
- (let ((props-18029 (source-properties x-18014)))
- (if (pair? props-18029) props-18029 #f))
+ (source-annotation-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-6543
- (lambda (labels-18031 bindings-18032 r-18033)
- (if (null? labels-18031)
- r-18033
- (extend-env-6543
- (cdr labels-18031)
- (cdr bindings-18032)
- (cons (cons (car labels-18031) (car bindings-18032))
- r-18033)))))
- (extend-var-env-6544
- (lambda (labels-18034 vars-18035 r-18036)
- (if (null? labels-18034)
- r-18036
- (extend-var-env-6544
- (cdr labels-18034)
- (cdr vars-18035)
- (cons (cons (car labels-18034)
- (cons 'lexical (car vars-18035)))
- r-18036)))))
- (macros-only-env-6545
- (lambda (r-18037)
- (if (null? r-18037)
+ (extend-env-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-18038 (car r-18037)))
- (if (eq? (car (cdr a-18038)) 'macro)
- (cons a-18038
- (macros-only-env-6545 (cdr r-18037)))
- (macros-only-env-6545 (cdr r-18037)))))))
- (global-extend-6547
- (lambda (type-18040 sym-18041 val-18042)
+ (let ((a-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-18041
+ sym-16018
(make-syntax-transformer
- sym-18041
- type-18040
- val-18042))))
- (id?-6549
- (lambda (x-11853)
- (if (symbol? x-11853)
+ sym-16018
+ type-16017
+ val-16019))))
+ (id?-4294
+ (lambda (x-9600)
+ (if (symbol? x-9600)
#t
- (if (if (vector? x-11853)
- (if (= (vector-length x-11853) 4)
- (eq? (vector-ref x-11853 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-11853 1))
+ (symbol? (vector-ref x-9600 1))
#f))))
- (gen-labels-6552
- (lambda (ls-18052)
- (if (null? ls-18052)
+ (gen-labels-4297
+ (lambda (ls-16029)
+ (if (null? ls-16029)
'()
(cons (string-append
"l-"
- (session-id-6510)
+ (session-id-4255)
(symbol->string (gensym "-")))
- (gen-labels-6552 (cdr ls-18052))))))
- (make-binding-wrap-6563
- (lambda (ids-18056 labels-18057 w-18058)
- (if (null? ids-18056)
- w-18058
- (cons (car w-18058)
- (cons (let ((labelvec-18059 (list->vector labels-18057)))
- (let ((n-18060 (vector-length labelvec-18059)))
- (let ((symnamevec-18061 (make-vector n-18060))
- (marksvec-18062 (make-vector n-18060)))
+ (gen-labels-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-18063
- (lambda (ids-18066 i-18067)
- (if (not (null? ids-18066))
+ ((f-16040
+ (lambda (ids-16043 i-16044)
+ (if (not (null? ids-16043))
(call-with-values
(lambda ()
- (let ((x-18070 (car ids-18066)))
- (if (if (vector? x-18070)
+ (let ((x-16047 (car ids-16043)))
+ (if (if (vector? x-16047)
(if (= (vector-length
- x-18070)
+ x-16047)
4)
(eq? (vector-ref
- x-18070
+ x-16047
0)
'syntax-object)
#f)
#f)
(values
- (vector-ref x-18070 1)
- (let ((m1-18086
- (car w-18058))
- (m2-18087
+ (vector-ref x-16047 1)
+ (let ((m1-16063
+ (car w-16035))
+ (m2-16064
(car (vector-ref
- x-18070
+ x-16047
2))))
- (if (null? m2-18087)
- m1-18086
+ (if (null? m2-16064)
+ m1-16063
(append
- m1-18086
- m2-18087))))
+ m1-16063
+ m2-16064))))
(values
- x-18070
- (car w-18058)))))
- (lambda (symname-18107 marks-18108)
+ x-16047
+ (car w-16035)))))
+ (lambda (symname-16084 marks-16085)
(begin
(vector-set!
- symnamevec-18061
- i-18067
- symname-18107)
+ symnamevec-16038
+ i-16044
+ symname-16084)
(vector-set!
- marksvec-18062
- i-18067
- marks-18108)
- (f-18063
- (cdr ids-18066)
- (#{1+}# i-18067)))))))))
- (f-18063 ids-18056 0))
+ marksvec-16039
+ i-16044
+ marks-16085)
+ (f-16040
+ (cdr ids-16043)
+ (#{1+}# i-16044)))))))))
+ (f-16040 ids-16033 0))
(vector
'ribcage
- symnamevec-18061
- marksvec-18062
- labelvec-18059)))))
- (cdr w-18058))))))
- (join-wraps-6565
- (lambda (w1-18117 w2-18118)
- (let ((m1-18119 (car w1-18117))
- (s1-18120 (cdr w1-18117)))
- (if (null? m1-18119)
- (if (null? s1-18120)
- w2-18118
- (cons (car w2-18118)
- (let ((m2-18127 (cdr w2-18118)))
- (if (null? m2-18127)
- s1-18120
- (append s1-18120 m2-18127)))))
- (cons (let ((m2-18136 (car w2-18118)))
- (if (null? m2-18136)
- m1-18119
- (append m1-18119 m2-18136)))
- (let ((m2-18145 (cdr w2-18118)))
- (if (null? m2-18145)
- s1-18120
- (append s1-18120 m2-18145))))))))
- (same-marks?-6567
- (lambda (x-18150 y-18151)
- (if (eq? x-18150 y-18151)
- (eq? x-18150 y-18151)
- (if (not (null? x-18150))
- (if (not (null? y-18151))
- (if (eq? (car x-18150) (car y-18151))
- (same-marks?-6567 (cdr x-18150) (cdr y-18151))
+ symnamevec-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-6568
- (lambda (id-18159 w-18160)
+ (id-var-name-4313
+ (lambda (id-16136 w-16137)
(letrec*
- ((search-18161
- (lambda (sym-18222 subst-18223 marks-18224)
- (if (null? subst-18223)
- (values #f marks-18224)
- (let ((fst-18225 (car subst-18223)))
- (if (eq? fst-18225 'shift)
- (search-18161
- sym-18222
- (cdr subst-18223)
- (cdr marks-18224))
- (let ((symnames-18227 (vector-ref fst-18225 1)))
- (if (vector? symnames-18227)
- (let ((n-18239 (vector-length symnames-18227)))
+ ((search-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-18240
- (lambda (i-18242)
- (if (= i-18242 n-18239)
- (search-18161
- sym-18222
- (cdr subst-18223)
- marks-18224)
+ ((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-18227
- i-18242)
- sym-18222)
- (same-marks?-6567
- marks-18224
+ symnames-16204
+ i-16219)
+ sym-16199)
+ (same-marks?-4312
+ marks-16201
(vector-ref
- (vector-ref fst-18225 2)
- i-18242))
+ (vector-ref fst-16202 2)
+ i-16219))
#f)
(values
(vector-ref
- (vector-ref fst-18225 3)
- i-18242)
- marks-18224)
- (f-18240 (#{1+}# i-18242)))))))
- (f-18240 0)))
+ (vector-ref fst-16202 3)
+ i-16219)
+ marks-16201)
+ (f-16217 (#{1+}# i-16219)))))))
+ (f-16217 0)))
(letrec*
- ((f-18275
- (lambda (symnames-18277 i-18278)
- (if (null? symnames-18277)
- (search-18161
- sym-18222
- (cdr subst-18223)
- marks-18224)
- (if (if (eq? (car symnames-18277) sym-18222)
- (same-marks?-6567
- marks-18224
+ ((f-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-18225 2)
- i-18278))
+ (vector-ref fst-16202 2)
+ i-16255))
#f)
(values
(list-ref
- (vector-ref fst-18225 3)
- i-18278)
- marks-18224)
- (f-18275
- (cdr symnames-18277)
- (#{1+}# i-18278)))))))
- (f-18275 symnames-18227 0))))))))))
- (if (symbol? id-18159)
- (let ((t-18164
- (search-18161
- id-18159
- (cdr w-18160)
- (car w-18160))))
- (if t-18164 t-18164 id-18159))
- (if (if (vector? id-18159)
- (if (= (vector-length id-18159) 4)
- (eq? (vector-ref id-18159 0) 'syntax-object)
+ (vector-ref fst-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-18179 (vector-ref id-18159 1))
- (w1-18180 (vector-ref id-18159 2)))
- (let ((marks-18181
- (let ((m1-18191 (car w-18160))
- (m2-18192 (car w1-18180)))
- (if (null? m2-18192)
- m1-18191
- (append m1-18191 m2-18192)))))
+ (let ((id-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-18161 id-18179 (cdr w-18160) marks-18181))
- (lambda (new-id-18208 marks-18209)
- (if new-id-18208
- new-id-18208
- (let ((t-18217
- (search-18161
- id-18179
- (cdr w1-18180)
- marks-18209)))
- (if t-18217 t-18217 id-18179)))))))
+ (search-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-18159))))))
- (locally-bound-identifiers-6569
- (lambda (w-18300 mod-18301)
+ id-16136))))))
+ (locally-bound-identifiers-4314
+ (lambda (w-16277 mod-16278)
(letrec*
- ((scan-18302
- (lambda (subst-18307 results-18308)
- (if (null? subst-18307)
- results-18308
- (let ((fst-18309 (car subst-18307)))
- (if (eq? fst-18309 'shift)
- (scan-18302 (cdr subst-18307) results-18308)
- (let ((symnames-18311 (vector-ref fst-18309 1))
- (marks-18312 (vector-ref fst-18309 2)))
- (if (vector? symnames-18311)
- (scan-vector-rib-18304
- subst-18307
- symnames-18311
- marks-18312
- results-18308)
- (scan-list-rib-18303
- subst-18307
- symnames-18311
- marks-18312
- results-18308))))))))
- (scan-list-rib-18303
- (lambda (subst-18410
- symnames-18411
- marks-18412
- results-18413)
+ ((scan-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-18414
- (lambda (symnames-18514 marks-18515 results-18516)
- (if (null? symnames-18514)
- (scan-18302 (cdr subst-18410) results-18516)
- (f-18414
- (cdr symnames-18514)
- (cdr marks-18515)
- (cons (wrap-6578
- (car symnames-18514)
- (let ((w-18524
- (cons (car marks-18515)
- subst-18410)))
- (cons (cons #f (car w-18524))
- (cons 'shift (cdr w-18524))))
- mod-18301)
- results-18516))))))
- (f-18414
- symnames-18411
- marks-18412
- results-18413))))
- (scan-vector-rib-18304
- (lambda (subst-18525
- symnames-18526
- marks-18527
- results-18528)
- (let ((n-18529 (vector-length symnames-18526)))
+ ((f-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-18530
- (lambda (i-18613 results-18614)
- (if (= i-18613 n-18529)
- (scan-18302 (cdr subst-18525) results-18614)
- (f-18530
- (#{1+}# i-18613)
- (cons (wrap-6578
- (vector-ref symnames-18526 i-18613)
- (let ((w-18622
+ ((f-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-18527
- i-18613)
- subst-18525)))
- (cons (cons #f (car w-18622))
- (cons 'shift (cdr w-18622))))
- mod-18301)
- results-18614))))))
- (f-18530 0 results-18528))))))
- (scan-18302 (cdr w-18300) '()))))
- (valid-bound-ids?-6575
- (lambda (ids-18623)
+ marks-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?-18624
- (lambda (ids-18786)
- (if (null? ids-18786)
- (null? ids-18786)
- (if (let ((x-18797 (car ids-18786)))
- (if (symbol? x-18797)
+ ((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-18797)
- (if (= (vector-length x-18797) 4)
- (eq? (vector-ref x-18797 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-18797 1))
+ (symbol? (vector-ref x-16774 1))
#f)))
- (all-ids?-18624 (cdr ids-18786))
+ (all-ids?-16601 (cdr ids-16763))
#f)))))
- (all-ids?-18624 ids-18623))
- (distinct-bound-ids?-6576 ids-18623)
+ (all-ids?-16601 ids-16600))
+ (distinct-bound-ids?-4321 ids-16600)
#f)))
- (distinct-bound-ids?-6576
- (lambda (ids-18925)
+ (distinct-bound-ids?-4321
+ (lambda (ids-16902)
(letrec*
- ((distinct?-18926
- (lambda (ids-19038)
- (if (null? ids-19038)
- (null? ids-19038)
- (if (not (bound-id-member?-6577
- (car ids-19038)
- (cdr ids-19038)))
- (distinct?-18926 (cdr ids-19038))
+ ((distinct?-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?-18926 ids-18925))))
- (bound-id-member?-6577
- (lambda (x-19248 list-19249)
- (if (not (null? list-19249))
- (let ((t-19250
- (let ((j-19331 (car list-19249)))
- (if (if (if (vector? x-19248)
- (if (= (vector-length x-19248) 4)
- (eq? (vector-ref x-19248 0) 'syntax-object)
+ (distinct?-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-19331)
- (if (= (vector-length j-19331) 4)
- (eq? (vector-ref j-19331 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-19248 1)
- (vector-ref j-19331 1))
- (same-marks?-6567
- (car (vector-ref x-19248 2))
- (car (vector-ref j-19331 2)))
+ (if (eq? (vector-ref x-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-19248 j-19331)))))
- (if t-19250
- t-19250
- (bound-id-member?-6577 x-19248 (cdr list-19249))))
+ (eq? x-17225 j-17308)))))
+ (if t-17227
+ t-17227
+ (bound-id-member?-4322 x-17225 (cdr list-17226))))
#f)))
- (wrap-6578
- (lambda (x-19375 w-19376 defmod-19377)
- (if (if (null? (car w-19376))
- (null? (cdr w-19376))
+ (wrap-4323
+ (lambda (x-17352 w-17353 defmod-17354)
+ (if (if (null? (car w-17353))
+ (null? (cdr w-17353))
#f)
- x-19375
- (if (if (vector? x-19375)
- (if (= (vector-length x-19375) 4)
- (eq? (vector-ref x-19375 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-19391 (vector-ref x-19375 1))
- (wrap-19392
- (join-wraps-6565 w-19376 (vector-ref x-19375 2)))
- (module-19393 (vector-ref x-19375 3)))
+ (let ((expression-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-19391
- wrap-19392
- module-19393))
- (if (null? x-19375)
- x-19375
+ expression-17368
+ wrap-17369
+ module-17370))
+ (if (null? x-17352)
+ x-17352
(vector
'syntax-object
- x-19375
- w-19376
- defmod-19377))))))
- (source-wrap-6579
- (lambda (x-19410 w-19411 s-19412 defmod-19413)
- (wrap-6578
+ 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-19410) s-19412 #f)
- (set-source-properties! x-19410 s-19412))
- x-19410)
- w-19411
- defmod-19413)))
- (expand-sequence-6580
- (lambda (body-29409 r-29410 w-29411 s-29412 mod-29413)
- (build-sequence-6530
- s-29412
+ (if (if (pair? x-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-29493
- (lambda (body-29833 r-29834 w-29835 mod-29836)
- (if (null? body-29833)
+ ((dobody-27610
+ (lambda (body-27950 r-27951 w-27952 mod-27953)
+ (if (null? body-27950)
'()
- (let ((first-29837
- (let ((e-29841 (car body-29833)))
+ (let ((first-27954
+ (let ((e-27958 (car body-27950)))
(call-with-values
(lambda ()
- (syntax-type-6584
- e-29841
- r-29834
- w-29835
- (source-annotation-6542 e-29841)
+ (syntax-type-4329
+ e-27958
+ r-27951
+ w-27952
+ (source-annotation-4287 e-27958)
#f
- mod-29836
+ mod-27953
#f))
- (lambda (type-29848
- value-29849
- form-29850
- e-29851
- w-29852
- s-29853
- mod-29854)
- (expand-expr-6586
- type-29848
- value-29849
- form-29850
- e-29851
- r-29834
- w-29852
- s-29853
- mod-29854))))))
- (cons first-29837
- (dobody-29493
- (cdr body-29833)
- r-29834
- w-29835
- mod-29836)))))))
- (dobody-29493
- body-29409
- r-29410
- w-29411
- mod-29413)))))
- (expand-top-sequence-6581
- (lambda (body-19431
- r-19432
- w-19433
- s-19434
- m-19435
- esew-19436
- mod-19437)
+ (lambda (type-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-19438
- (lambda (body-19569
- r-19570
- w-19571
- s-19572
- m-19573
- esew-19574
- mod-19575
- exps-19576)
- (if (null? body-19569)
- exps-19576
+ ((scan-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-19577 (car body-19569)))
- (syntax-type-6584
- e-19577
- r-19570
- w-19571
- (let ((t-19581 (source-annotation-6542 e-19577)))
- (if t-19581 t-19581 s-19572))
+ (let ((e-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-19575
+ mod-17552
#f)))
- (lambda (type-19816
- value-19817
- form-19818
- e-19819
- w-19820
- s-19821
- mod-19822)
- (if (eqv? type-19816 'begin-form)
- (let ((tmp-19827 ($sc-dispatch e-19819 '(_))))
- (if tmp-19827
- (@apply (lambda () exps-19576) tmp-19827)
- (let ((tmp-19831
+ (lambda (type-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-19819
+ e-17796
'(_ any . each-any))))
- (if tmp-19831
+ (if tmp-17812
(@apply
- (lambda (e1-19835 e2-19836)
- (scan-19438
- (cons e1-19835 e2-19836)
- r-19570
- w-19820
- s-19821
- m-19573
- esew-19574
- mod-19822
- exps-19576))
- tmp-19831)
+ (lambda (e1-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-19819)))))
- (if (eqv? type-19816 'local-syntax-form)
- (expand-local-syntax-6590
- value-19817
- e-19819
- r-19570
- w-19820
- s-19821
- mod-19822
- (lambda (body-19851
- r-19852
- w-19853
- s-19854
- mod-19855)
- (scan-19438
- body-19851
- r-19852
- w-19853
- s-19854
- m-19573
- esew-19574
- mod-19855
- exps-19576)))
- (if (eqv? type-19816 'eval-when-form)
- (let ((tmp-19860
+ e-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-19819
+ e-17796
'(_ each-any any . each-any))))
- (if tmp-19860
+ (if tmp-17847
(@apply
- (lambda (x-19864 e1-19865 e2-19866)
- (let ((when-list-19867
- (parse-when-list-6583
- e-19819
- x-19864))
- (body-19868
- (cons e1-19865 e2-19866)))
- (if (eq? m-19573 'e)
- (if (memq 'eval when-list-19867)
- (scan-19438
- body-19868
- r-19570
- w-19820
- s-19821
+ (lambda (x-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-19867)
+ when-list-17854)
'c&e
'e)
'(eval)
- mod-19822
- exps-19576)
+ mod-17799
+ exps-17553)
(begin
(if (memq 'expand
- when-list-19867)
- (let ((x-19945
-
(expand-top-sequence-6581
- body-19868
- r-19570
- w-19820
- s-19821
+ when-list-17854)
+ (let ((x-17932
+
(expand-top-sequence-4326
+ body-17855
+ r-17547
+ w-17797
+ s-17798
'e
'(eval)
- mod-19822)))
- (primitive-eval x-19945)))
- exps-19576))
- (if (memq 'load when-list-19867)
- (if (let ((t-19971
+ mod-17799)))
+ (primitive-eval x-17932)))
+ exps-17553))
+ (if (memq 'load when-list-17854)
+ (if (let ((t-17958
(memq 'compile
-
when-list-19867)))
- (if t-19971
- t-19971
- (let ((t-20020
+
when-list-17854)))
+ (if t-17958
+ t-17958
+ (let ((t-18007
(memq 'expand
-
when-list-19867)))
- (if t-20020
- t-20020
- (if (eq? m-19573
+
when-list-17854)))
+ (if t-18007
+ t-18007
+ (if (eq? m-17550
'c&e)
(memq 'eval
-
when-list-19867)
+
when-list-17854)
#f)))))
- (scan-19438
- body-19868
- r-19570
- w-19820
- s-19821
+ (scan-17415
+ body-17855
+ r-17547
+ w-17797
+ s-17798
'c&e
'(compile load)
- mod-19822
- exps-19576)
- (if (if (eq? m-19573 'c)
+ mod-17799
+ exps-17553)
+ (if (if (eq? m-17550 'c)
#t
- (eq? m-19573 'c&e))
- (scan-19438
- body-19868
- r-19570
- w-19820
- s-19821
+ (eq? m-17550 'c&e))
+ (scan-17415
+ body-17855
+ r-17547
+ w-17797
+ s-17798
'c
'(load)
- mod-19822
- exps-19576)
- exps-19576))
- (if (let ((t-20149
+ mod-17799
+ exps-17553)
+ exps-17553))
+ (if (let ((t-18136
(memq 'compile
-
when-list-19867)))
- (if t-20149
- t-20149
- (let ((t-20198
+
when-list-17854)))
+ (if t-18136
+ t-18136
+ (let ((t-18185
(memq 'expand
-
when-list-19867)))
- (if t-20198
- t-20198
- (if (eq? m-19573
+
when-list-17854)))
+ (if t-18185
+ t-18185
+ (if (eq? m-17550
'c&e)
(memq 'eval
-
when-list-19867)
+
when-list-17854)
#f)))))
(begin
- (let ((x-20322
-
(expand-top-sequence-6581
- body-19868
- r-19570
- w-19820
- s-19821
+ (let ((x-18309
+
(expand-top-sequence-4326
+ body-17855
+ r-17547
+ w-17797
+ s-17798
'e
'(eval)
- mod-19822)))
- (primitive-eval x-20322))
- exps-19576)
- exps-19576)))))
- tmp-19860)
+ mod-17799)))
+ (primitive-eval x-18309))
+ exps-17553)
+ exps-17553)))))
+ tmp-17847)
(syntax-violation
#f
"source expression failed to match any
pattern"
- e-19819)))
- (if (if (eqv? type-19816 'define-syntax-form)
+ e-17796)))
+ (if (if (eqv? type-17793 'define-syntax-form)
#t
- (eqv? type-19816
+ (eqv? type-17793
'define-syntax-parameter-form))
- (let ((n-20368
- (id-var-name-6568
- value-19817
- w-19820))
- (r-20369
- (macros-only-env-6545 r-19570)))
- (if (eqv? m-19573 'c)
- (if (memq 'compile esew-19574)
- (let ((e-20373
- (expand-install-global-6582
- n-20368
- (expand-6585
- e-19819
- r-20369
- w-19820
- mod-19822))))
+ (let ((n-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-6508
- e-20373
- mod-19822)
- (if (memq 'load esew-19574)
- (cons e-20373 exps-19576)
- exps-19576)))
- (if (memq 'load esew-19574)
- (cons (expand-install-global-6582
- n-20368
- (expand-6585
- e-19819
- r-20369
- w-19820
- mod-19822))
- exps-19576)
- exps-19576))
- (if (eqv? m-19573 'c&e)
- (let ((e-21015
- (expand-install-global-6582
- n-20368
- (expand-6585
- e-19819
- r-20369
- w-19820
- mod-19822))))
+ (top-level-eval-hook-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-6508
- e-21015
- mod-19822)
- (cons e-21015 exps-19576)))
+ (top-level-eval-hook-4253
+ e-19012
+ mod-17799)
+ (cons e-19012 exps-17553)))
(begin
- (if (memq 'eval esew-19574)
- (top-level-eval-hook-6508
- (expand-install-global-6582
- n-20368
- (expand-6585
- e-19819
- r-20369
- w-19820
- mod-19822))
- mod-19822))
- exps-19576))))
- (if (eqv? type-19816 'define-form)
- (let ((n-21689
- (id-var-name-6568
- value-19817
- w-19820)))
- (let ((type-21690
- (car (let ((t-21697
- (assq n-21689
- r-19570)))
- (if t-21697
- (cdr t-21697)
- (if (symbol? n-21689)
- (let ((t-21703
-
(get-global-definition-hook-6512
- n-21689
- mod-19822)))
- (if t-21703
- t-21703
+ (if (memq 'eval esew-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-21690 'global)
+ (if (if (eqv? type-19690 'global)
#t
- (if (eqv? type-21690 'core)
+ (if (eqv? type-19690 'core)
#t
- (if (eqv? type-21690 'macro)
+ (if (eqv? type-19690 'macro)
#t
- (eqv? type-21690
+ (eqv? type-19690
'module-ref))))
(begin
- (if (if (if (eq? m-19573 'c)
+ (if (if (if (eq? m-17550 'c)
#t
- (eq? m-19573 'c&e))
+ (eq? m-17550 'c&e))
(if (not
(module-local-variable
(current-module)
- n-21689))
+ n-19689))
(current-module)
#f)
#f)
- (let ((old-21734
+ (let ((old-19737
(module-variable
(current-module)
- n-21689)))
- (if (if (variable? old-21734)
+ n-19689)))
+ (if (if (variable? old-19737)
(variable-bound?
- old-21734)
+ old-19737)
#f)
(module-define!
(current-module)
- n-21689
- (variable-ref old-21734))
+ n-19689
+ (variable-ref old-19737))
(module-add!
(current-module)
- n-21689
+ n-19689
(make-undefined-variable)))))
- (cons (if (eq? m-19573 'c&e)
- (let ((x-22175
-
(build-global-definition-6524
- s-19821
- n-21689
- (expand-6585
- e-19819
- r-19570
- w-19820
- mod-19822))))
+ (cons (if (eq? m-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-6508
- x-22175
- mod-19822)
- x-22175))
+
(top-level-eval-hook-4253
+ x-20178
+ mod-17799)
+ x-20178))
(lambda ()
-
(build-global-definition-6524
- s-19821
- n-21689
- (expand-6585
- e-19819
- r-19570
- w-19820
- mod-19822))))
- exps-19576))
- (if (eqv? type-21690
+
(build-global-definition-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-6578
+ (wrap-4323
(begin
- (if (if (pair? form-19818)
- s-19821
+ (if (if (pair? form-17795)
+ s-17798
#f)
(set-source-properties!
- form-19818
- s-19821))
- form-19818)
- w-19820
- mod-19822)
- (wrap-6578
- value-19817
- w-19820
- mod-19822))
+ 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-6578
+ (wrap-4323
(begin
- (if (if (pair? form-19818)
- s-19821
+ (if (if (pair? form-17795)
+ s-17798
#f)
(set-source-properties!
- form-19818
- s-19821))
- form-19818)
- w-19820
- mod-19822)
- (wrap-6578
- value-19817
- w-19820
- mod-19822))))))
- (cons (if (eq? m-19573 'c&e)
- (let ((x-22674
- (expand-expr-6586
- type-19816
- value-19817
- form-19818
- e-19819
- r-19570
- w-19820
- s-19821
- mod-19822)))
+ form-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-22674)
- x-22674))
+ (primitive-eval x-20680)
+ x-20680))
(lambda ()
- (expand-expr-6586
- type-19816
- value-19817
- form-19818
- e-19819
- r-19570
- w-19820
- s-19821
- mod-19822)))
- exps-19576)))))))))
- (lambda (exps-22679)
- (scan-19438
- (cdr body-19569)
- r-19570
- w-19571
- s-19572
- m-19573
- esew-19574
- mod-19575
- exps-22679)))))))
+ (expand-expr-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-19438
- body-19431
- r-19432
- w-19433
- s-19434
- m-19435
- esew-19436
- mod-19437
+ (scan-17415
+ body-17408
+ r-17409
+ w-17410
+ s-17411
+ m-17412
+ esew-17413
+ mod-17414
'()))
- (lambda (exps-19441)
- (if (null? exps-19441)
+ (lambda (exps-17418)
+ (if (null? exps-17418)
(make-struct/no-tail
(vector-ref %expanded-vtables 0)
- s-19434)
- (build-sequence-6530
- s-19434
+ s-17411)
+ (build-sequence-4275
+ s-17411
(letrec*
- ((lp-19481
- (lambda (in-19565 out-19566)
- (if (null? in-19565)
- out-19566
- (let ((e-19567 (car in-19565)))
- (lp-19481
- (cdr in-19565)
- (cons (if (procedure? e-19567)
- (e-19567)
- e-19567)
- out-19566)))))))
- (lp-19481 exps-19441 '())))))))))
- (expand-install-global-6582
- (lambda (name-22680 e-22681)
- (let ((exp-22687
- (let ((fun-exp-22697
+ ((lp-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-22698
+ (arg-exps-20704
(list (make-struct/no-tail
(vector-ref %expanded-vtables 1)
#f
- name-22680)
+ name-20686)
(make-struct/no-tail
(vector-ref %expanded-vtables 1)
#f
'macro)
- e-22681)))
+ e-20687)))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
#f
- fun-exp-22697
- arg-exps-22698))))
+ fun-exp-20703
+ arg-exps-20704))))
(begin
- (if (if (struct? exp-22687)
- (eq? (struct-vtable exp-22687)
+ (if (if (struct? exp-20693)
+ (eq? (struct-vtable exp-20693)
(vector-ref %expanded-vtables 13))
#f)
- (let ((meta-22739 (struct-ref exp-22687 1)))
- (if (not (assq 'name meta-22739))
- (let ((v-22746
- (cons (cons 'name name-22680) meta-22739)))
- (struct-set! exp-22687 1 v-22746)))))
+ (let ((meta-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-22680
- exp-22687)))))
- (parse-when-list-6583
- (lambda (e-22757 when-list-22758)
- (let ((result-22759 (strip-6598 when-list-22758 '(()))))
+ name-20686
+ exp-20693)))))
+ (parse-when-list-4328
+ (lambda (e-20763 when-list-20764)
+ (let ((result-20765 (strip-4343 when-list-20764 '(()))))
(letrec*
- ((lp-22760
- (lambda (l-22814)
- (if (null? l-22814)
- result-22759
- (if (let ((t-22816 (car l-22814)))
- (if (eq? t-22816 'compile)
+ ((lp-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-22816 'load)
+ (if (eq? t-20822 'load)
#t
- (if (eq? t-22816 'eval)
+ (if (eq? t-20822 'eval)
#t
- (eq? t-22816 'expand)))))
- (lp-22760 (cdr l-22814))
+ (eq? t-20822 'expand)))))
+ (lp-20766 (cdr l-20820))
(syntax-violation
'eval-when
"invalid situation"
- e-22757
- (car l-22814)))))))
- (lp-22760 result-22759)))))
- (syntax-type-6584
- (lambda (e-22818
- r-22819
- w-22820
- s-22821
- rib-22822
- mod-22823
- for-car?-22824)
- (if (symbol? e-22818)
- (let ((n-22825 (id-var-name-6568 e-22818 w-22820)))
- (let ((b-22826
- (let ((t-22834 (assq n-22825 r-22819)))
- (if t-22834
- (cdr t-22834)
- (if (symbol? n-22825)
- (let ((t-22840
- (get-global-definition-hook-6512
- n-22825
- mod-22823)))
- (if t-22840 t-22840 '(global)))
+ e-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-22827 (car b-22826)))
- (if (eqv? type-22827 'lexical)
+ (let ((type-20833 (car b-20832)))
+ (if (eqv? type-20833 'lexical)
(values
- type-22827
- (cdr b-22826)
- e-22818
- e-22818
- w-22820
- s-22821
- mod-22823)
- (if (eqv? type-22827 'global)
+ type-20833
+ (cdr b-20832)
+ e-20824
+ e-20824
+ w-20826
+ s-20827
+ mod-20829)
+ (if (eqv? type-20833 'global)
(values
- type-22827
- n-22825
- e-22818
- e-22818
- w-22820
- s-22821
- mod-22823)
- (if (eqv? type-22827 'macro)
- (if for-car?-22824
+ type-20833
+ n-20831
+ e-20824
+ e-20824
+ w-20826
+ s-20827
+ mod-20829)
+ (if (eqv? type-20833 'macro)
+ (if for-car?-20830
(values
- type-22827
- (cdr b-22826)
- e-22818
- e-22818
- w-22820
- s-22821
- mod-22823)
- (syntax-type-6584
- (expand-macro-6588
- (cdr b-22826)
- e-22818
- r-22819
- w-22820
- s-22821
- rib-22822
- mod-22823)
- r-22819
+ type-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-22821
- rib-22822
- mod-22823
+ s-20827
+ rib-20828
+ mod-20829
#f))
(values
- type-22827
- (cdr b-22826)
- e-22818
- e-22818
- w-22820
- s-22821
- mod-22823)))))))
- (if (pair? e-22818)
- (let ((first-22860 (car e-22818)))
+ type-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-6584
- first-22860
- r-22819
- w-22820
- s-22821
- rib-22822
- mod-22823
+ (syntax-type-4329
+ first-20875
+ r-20825
+ w-20826
+ s-20827
+ rib-20828
+ mod-20829
#t))
- (lambda (ftype-22862
- fval-22863
- fform-22864
- fe-22865
- fw-22866
- fs-22867
- fmod-22868)
- (if (eqv? ftype-22862 '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-22863
- e-22818
- e-22818
- w-22820
- s-22821
- mod-22823)
- (if (eqv? ftype-22862 '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-22863
- w-22820
- fmod-22868)
- e-22818
- e-22818
- w-22820
- s-22821
- mod-22823)
- (if (eqv? ftype-22862 'macro)
- (syntax-type-6584
- (expand-macro-6588
- fval-22863
- e-22818
- r-22819
- w-22820
- s-22821
- rib-22822
- mod-22823)
- r-22819
+ fval-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-22821
- rib-22822
- mod-22823
- for-car?-22824)
- (if (eqv? ftype-22862 'module-ref)
+ s-20827
+ rib-20828
+ mod-20829
+ for-car?-20830)
+ (if (eqv? ftype-20877 'module-ref)
(call-with-values
- (lambda () (fval-22863 e-22818 r-22819 w-22820))
- (lambda (e-22889
- r-22890
- w-22891
- s-22892
- mod-22893)
- (syntax-type-6584
- e-22889
- r-22890
- w-22891
- s-22892
- rib-22822
- mod-22893
- for-car?-22824)))
- (if (eqv? ftype-22862 'core)
+ (lambda () (fval-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-22863
- e-22818
- e-22818
- w-22820
- s-22821
- mod-22823)
- (if (eqv? ftype-22862 '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-22863
- e-22818
- e-22818
- w-22820
- s-22821
- mod-22823)
- (if (eqv? ftype-22862 'begin)
+ fval-20878
+ e-20824
+ e-20824
+ w-20826
+ s-20827
+ mod-20829)
+ (if (eqv? ftype-20877 'begin)
(values
'begin-form
#f
- e-22818
- e-22818
- w-22820
- s-22821
- mod-22823)
- (if (eqv? ftype-22862 'eval-when)
+ e-20824
+ e-20824
+ w-20826
+ s-20827
+ mod-20829)
+ (if (eqv? ftype-20877 'eval-when)
(values
'eval-when-form
#f
- e-22818
- e-22818
- w-22820
- s-22821
- mod-22823)
- (if (eqv? ftype-22862 'define)
- (let ((tmp-22910
+ e-20824
+ e-20824
+ w-20826
+ s-20827
+ mod-20829)
+ (if (eqv? ftype-20877 'define)
+ (let ((tmp-20953
($sc-dispatch
- e-22818
+ e-20824
'(_ any any))))
- (if (if tmp-22910
+ (if (if tmp-20953
(@apply
- (lambda (name-22914 val-22915)
- (if (symbol? name-22914)
+ (lambda (name-20957 val-20958)
+ (if (symbol? name-20957)
#t
- (if (if (vector? name-22914)
+ (if (if (vector? name-20957)
(if (= (vector-length
- name-22914)
+ name-20957)
4)
(eq? (vector-ref
- name-22914
+ name-20957
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- name-22914
+ name-20957
1))
#f)))
- tmp-22910)
+ tmp-20953)
#f)
(@apply
- (lambda (name-22942 val-22943)
+ (lambda (name-20985 val-20986)
(values
'define-form
- name-22942
- e-22818
- val-22943
- w-22820
- s-22821
- mod-22823))
- tmp-22910)
- (let ((tmp-22944
+ name-20985
+ e-20824
+ val-20986
+ w-20826
+ s-20827
+ mod-20829))
+ tmp-20953)
+ (let ((tmp-20987
($sc-dispatch
- e-22818
+ e-20824
'(_ (any . any)
any
.
each-any))))
- (if (if tmp-22944
+ (if (if tmp-20987
(@apply
- (lambda (name-22948
- args-22949
- e1-22950
- e2-22951)
+ (lambda (name-20991
+ args-20992
+ e1-20993
+ e2-20994)
(if (if (symbol?
- name-22948)
+ name-20991)
#t
(if (if (vector?
-
name-22948)
+
name-20991)
(if (=
(vector-length
-
name-22948)
+
name-20991)
4)
(eq?
(vector-ref
-
name-22948
+
name-20991
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- name-22948
+ name-20991
1))
#f))
- (valid-bound-ids?-6575
+ (valid-bound-ids?-4320
(letrec*
- ((lvl-23100
- (lambda
(vars-23102
- ls-23103
- w-23104)
- (if (pair?
vars-23102)
- (lvl-23100
- (cdr
vars-23102)
- (cons
(wrap-6578
-
(car vars-23102)
-
w-23104
+ ((lvl-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-23103)
- w-23104)
+
ls-21146)
+ w-21147)
(if (if
(symbol?
-
vars-23102)
+
vars-21145)
#t
(if
(if (vector?
-
vars-23102)
+
vars-21145)
(if (= (vector-length
-
vars-23102)
+
vars-21145)
4)
(eq? (vector-ref
-
vars-23102
+
vars-21145
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
-
vars-23102
+
vars-21145
1))
#f))
- (cons
(wrap-6578
-
vars-23102
-
w-23104
+ (cons
(wrap-4323
+
vars-21145
+
w-21147
#f)
-
ls-23103)
- (if (null?
vars-23102)
- ls-23103
+
ls-21146)
+ (if (null?
vars-21145)
+ ls-21146
(if (if
(vector?
-
vars-23102)
+
vars-21145)
(if (= (vector-length
-
vars-23102)
+
vars-21145)
4)
(eq? (vector-ref
-
vars-23102
+
vars-21145
0)
'syntax-object)
#f)
#f)
-
(lvl-23100
+
(lvl-21143
(vector-ref
-
vars-23102
+
vars-21145
1)
-
ls-23103
-
(join-wraps-6565
-
w-23104
+
ls-21146
+
(join-wraps-4310
+
w-21147
(vector-ref
-
vars-23102
+
vars-21145
2)))
- (cons
vars-23102
-
ls-23103))))))))
- (lvl-23100
- args-22949
+ (cons
vars-21145
+
ls-21146))))))))
+ (lvl-21143
+ args-20992
'()
'(()))))
#f))
- tmp-22944)
+ tmp-20987)
#f)
(@apply
- (lambda (name-23148
- args-23149
- e1-23150
- e2-23151)
+ (lambda (name-21191
+ args-21192
+ e1-21193
+ e2-21194)
(values
'define-form
- (wrap-6578
- name-23148
- w-22820
- mod-22823)
- (wrap-6578
- e-22818
- w-22820
- mod-22823)
- (let ((e-23159
+ (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,10 +1678,19 @@
(top)
(top)
(top))
-
#("l-*-4009"
-
"l-*-4010"
-
"l-*-4011"
-
"l-*-4012"))
+
#("l-*-1901"
+
"l-*-1902"
+
"l-*-1903"
+
"l-*-1904"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(key)
+
#((m-*-1866
+
top))
+
#("l-*-1867"))
#(ribcage
()
()
@@ -1705,13 +1714,13 @@
(top)
(top)
(top))
-
#("l-*-3961"
-
"l-*-3962"
-
"l-*-3963"
-
"l-*-3964"
-
"l-*-3965"
-
"l-*-3966"
-
"l-*-3967"))
+
#("l-*-1859"
+
"l-*-1860"
+
"l-*-1861"
+
"l-*-1862"
+
"l-*-1863"
+
"l-*-1864"
+
"l-*-1865"))
#(ribcage
()
()
@@ -1719,11 +1728,7 @@
#(ribcage
#(first)
#((top))
-
#("l-*-3952"))
- #(ribcage
- ()
- ()
- ())
+
#("l-*-1850"))
#(ribcage
()
()
@@ -1747,13 +1752,13 @@
(top)
(top)
(top))
-
#("l-*-3924"
-
"l-*-3925"
-
"l-*-3926"
-
"l-*-3927"
-
"l-*-3928"
-
"l-*-3929"
-
"l-*-3930"))
+
#("l-*-1826"
+
"l-*-1827"
+
"l-*-1828"
+
"l-*-1829"
+
"l-*-1830"
+
"l-*-1831"
+
"l-*-1832"))
#(ribcage
(lambda-var-list
gen-var
@@ -2035,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
@@ -2182,76 +2187,81 @@
((top)
(top)
(top))
-
("l-*-2098"
-
"l-*-2097"
-
"l-*-2096")))
+
("l-*-47"
+
"l-*-46"
+
"l-*-45")))
(hygiene
guile))
- (wrap-6578
- (cons
args-23149
- (cons
e1-23150
-
e2-23151))
- w-22820
-
mod-22823))))
+ (wrap-4323
+ (cons
args-21192
+ (cons
e1-21193
+
e2-21194))
+ w-20826
+
mod-20829))))
(begin
- (if (if (pair? e-23159)
- s-22821
+ (if (if (pair? e-21202)
+ s-20827
#f)
(set-source-properties!
- e-23159
- s-22821))
- e-23159))
+ e-21202
+ s-20827))
+ e-21202))
'(())
- s-22821
- mod-22823))
- tmp-22944)
- (let ((tmp-23166
+ s-20827
+ mod-20829))
+ tmp-20987)
+ (let ((tmp-21209
($sc-dispatch
- e-22818
+ e-20824
'(_ any))))
- (if (if tmp-23166
+ (if (if tmp-21209
(@apply
- (lambda (name-23170)
+ (lambda (name-21213)
(if (symbol?
- name-23170)
+ name-21213)
#t
(if (if (vector?
-
name-23170)
+
name-21213)
(if (=
(vector-length
-
name-23170)
+
name-21213)
4)
(eq?
(vector-ref
-
name-23170
+
name-21213
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- name-23170
+ name-21213
1))
#f)))
- tmp-23166)
+ tmp-21209)
#f)
(@apply
- (lambda (name-23197)
+ (lambda (name-21240)
(values
'define-form
- (wrap-6578
- name-23197
- w-22820
- mod-22823)
- (wrap-6578
- e-22818
- w-22820
- mod-22823)
+ (wrap-4323
+ name-21240
+ w-20826
+ mod-20829)
+ (wrap-4323
+ e-20824
+ w-20826
+ mod-20829)
'(#(syntax-object
if
((top)
#(ribcage
#(name)
#((top))
- #("l-*-4022"))
+ #("l-*-1914"))
+ #(ribcage () () ())
+ #(ribcage
+ #(key)
+ #((m-*-1866 top))
+ #("l-*-1867"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
@@ -2269,19 +2279,18 @@
(top)
(top)
(top))
- #("l-*-3961"
- "l-*-3962"
- "l-*-3963"
- "l-*-3964"
- "l-*-3965"
- "l-*-3966"
- "l-*-3967"))
+ #("l-*-1859"
+ "l-*-1860"
+ "l-*-1861"
+ "l-*-1862"
+ "l-*-1863"
+ "l-*-1864"
+ "l-*-1865"))
#(ribcage () () ())
#(ribcage
#(first)
#((top))
- #("l-*-3952"))
- #(ribcage () () ())
+ #("l-*-1850"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
@@ -2299,13 +2308,13 @@
(top)
(top)
(top))
- #("l-*-3924"
- "l-*-3925"
- "l-*-3926"
- "l-*-3927"
- "l-*-3928"
- "l-*-3929"
- "l-*-3930"))
+ #("l-*-1826"
+ "l-*-1827"
+ "l-*-1828"
+ "l-*-1829"
+ "l-*-1830"
+ "l-*-1831"
+ "l-*-1832"))
#(ribcage
(lambda-var-list
gen-var
@@ -2587,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
@@ -2734,9 +2743,9 @@
((top)
(top)
(top))
- ("l-*-2098"
- "l-*-2097"
- "l-*-2096")))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
(hygiene guile))
#(syntax-object
#f
@@ -2744,7 +2753,12 @@
#(ribcage
#(name)
#((top))
- #("l-*-4022"))
+ #("l-*-1914"))
+ #(ribcage () () ())
+ #(ribcage
+ #(key)
+ #((m-*-1866 top))
+ #("l-*-1867"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
@@ -2762,19 +2776,18 @@
(top)
(top)
(top))
- #("l-*-3961"
- "l-*-3962"
- "l-*-3963"
- "l-*-3964"
- "l-*-3965"
- "l-*-3966"
- "l-*-3967"))
+ #("l-*-1859"
+ "l-*-1860"
+ "l-*-1861"
+ "l-*-1862"
+ "l-*-1863"
+ "l-*-1864"
+ "l-*-1865"))
#(ribcage () () ())
#(ribcage
#(first)
#((top))
- #("l-*-3952"))
- #(ribcage () () ())
+ #("l-*-1850"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
@@ -2792,13 +2805,13 @@
(top)
(top)
(top))
- #("l-*-3924"
- "l-*-3925"
- "l-*-3926"
- "l-*-3927"
- "l-*-3928"
- "l-*-3929"
- "l-*-3930"))
+ #("l-*-1826"
+ "l-*-1827"
+ "l-*-1828"
+ "l-*-1829"
+ "l-*-1830"
+ "l-*-1831"
+ "l-*-1832"))
#(ribcage
(lambda-var-list
gen-var
@@ -3080,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
@@ -3227,9 +3240,9 @@
((top)
(top)
(top))
- ("l-*-2098"
- "l-*-2097"
- "l-*-2096")))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
(hygiene guile))
#(syntax-object
#f
@@ -3237,7 +3250,12 @@
#(ribcage
#(name)
#((top))
- #("l-*-4022"))
+ #("l-*-1914"))
+ #(ribcage () () ())
+ #(ribcage
+ #(key)
+ #((m-*-1866 top))
+ #("l-*-1867"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
@@ -3255,19 +3273,18 @@
(top)
(top)
(top))
- #("l-*-3961"
- "l-*-3962"
- "l-*-3963"
- "l-*-3964"
- "l-*-3965"
- "l-*-3966"
- "l-*-3967"))
+ #("l-*-1859"
+ "l-*-1860"
+ "l-*-1861"
+ "l-*-1862"
+ "l-*-1863"
+ "l-*-1864"
+ "l-*-1865"))
#(ribcage () () ())
#(ribcage
#(first)
#((top))
- #("l-*-3952"))
- #(ribcage () () ())
+ #("l-*-1850"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
@@ -3285,13 +3302,13 @@
(top)
(top)
(top))
- #("l-*-3924"
- "l-*-3925"
- "l-*-3926"
- "l-*-3927"
- "l-*-3928"
- "l-*-3929"
- "l-*-3930"))
+ #("l-*-1826"
+ "l-*-1827"
+ "l-*-1828"
+ "l-*-1829"
+ "l-*-1830"
+ "l-*-1831"
+ "l-*-1832"))
#(ribcage
(lambda-var-list
gen-var
@@ -3573,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
@@ -3720,303 +3737,303 @@
((top)
(top)
(top))
- ("l-*-2098"
- "l-*-2097"
- "l-*-2096")))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
(hygiene guile)))
'(())
- s-22821
- mod-22823))
- tmp-23166)
+ s-20827
+ mod-20829))
+ tmp-21209)
(syntax-violation
#f
"source expression failed
to match any pattern"
- e-22818)))))))
- (if (eqv? ftype-22862 'define-syntax)
- (let ((tmp-23218
+ e-20824)))))))
+ (if (eqv? ftype-20877 'define-syntax)
+ (let ((tmp-21264
($sc-dispatch
- e-22818
+ e-20824
'(_ any any))))
- (if (if tmp-23218
+ (if (if tmp-21264
(@apply
- (lambda (name-23222 val-23223)
- (if (symbol? name-23222)
+ (lambda (name-21268 val-21269)
+ (if (symbol? name-21268)
#t
(if (if (vector?
- name-23222)
+ name-21268)
(if (=
(vector-length
- name-23222)
+ name-21268)
4)
(eq? (vector-ref
- name-23222
+ name-21268
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- name-23222
+ name-21268
1))
#f)))
- tmp-23218)
+ tmp-21264)
#f)
(@apply
- (lambda (name-23250 val-23251)
+ (lambda (name-21296 val-21297)
(values
'define-syntax-form
- name-23250
- e-22818
- val-23251
- w-22820
- s-22821
- mod-22823))
- tmp-23218)
+ 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-22818)))
- (if (eqv? ftype-22862
+ e-20824)))
+ (if (eqv? ftype-20877
'define-syntax-parameter)
- (let ((tmp-23262
+ (let ((tmp-21311
($sc-dispatch
- e-22818
+ e-20824
'(_ any any))))
- (if (if tmp-23262
+ (if (if tmp-21311
(@apply
- (lambda (name-23266
- val-23267)
- (if (symbol? name-23266)
+ (lambda (name-21315
+ val-21316)
+ (if (symbol? name-21315)
#t
(if (if (vector?
- name-23266)
+ name-21315)
(if (=
(vector-length
-
name-23266)
+
name-21315)
4)
(eq? (vector-ref
-
name-23266
+
name-21315
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- name-23266
+ name-21315
1))
#f)))
- tmp-23262)
+ tmp-21311)
#f)
(@apply
- (lambda (name-23294 val-23295)
+ (lambda (name-21343 val-21344)
(values
'define-syntax-parameter-form
- name-23294
- e-22818
- val-23295
- w-22820
- s-22821
- mod-22823))
- tmp-23262)
+ 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-22818)))
+ e-20824)))
(values
'call
#f
- e-22818
- e-22818
- w-22820
- s-22821
- mod-22823)))))))))))))))
- (if (if (vector? e-22818)
- (if (= (vector-length e-22818) 4)
- (eq? (vector-ref e-22818 0) 'syntax-object)
+ e-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-6584
- (vector-ref e-22818 1)
- r-22819
- (join-wraps-6565 w-22820 (vector-ref e-22818 2))
- (let ((t-23322 (source-annotation-6542 e-22818)))
- (if t-23322 t-23322 s-22821))
- rib-22822
- (let ((t-23557 (vector-ref e-22818 3)))
- (if t-23557 t-23557 mod-22823))
- for-car?-22824)
- (if (self-evaluating? e-22818)
+ (syntax-type-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-22818
- e-22818
- w-22820
- s-22821
- mod-22823)
+ e-20824
+ e-20824
+ w-20826
+ s-20827
+ mod-20829)
(values
'other
#f
- e-22818
- e-22818
- w-22820
- s-22821
- mod-22823)))))))
- (expand-6585
- (lambda (e-23566 r-23567 w-23568 mod-23569)
+ e-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-6584
- e-23566
- r-23567
- w-23568
- (source-annotation-6542 e-23566)
+ (syntax-type-4329
+ e-21615
+ r-21616
+ w-21617
+ (source-annotation-4287 e-21615)
#f
- mod-23569
+ mod-21618
#f))
- (lambda (type-23724
- value-23725
- form-23726
- e-23727
- w-23728
- s-23729
- mod-23730)
- (expand-expr-6586
- type-23724
- value-23725
- form-23726
- e-23727
- r-23567
- w-23728
- s-23729
- mod-23730)))))
- (expand-expr-6586
- (lambda (type-23733
- value-23734
- form-23735
- e-23736
- r-23737
- w-23738
- s-23739
- mod-23740)
- (if (eqv? type-23733 'lexical)
+ (lambda (type-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-23739
- e-23736
- value-23734)
- (if (if (eqv? type-23733 'core)
+ s-21788
+ e-21785
+ value-21783)
+ (if (if (eqv? type-21782 'core)
#t
- (eqv? type-23733 'core-form))
- (value-23734
- e-23736
- r-23737
- w-23738
- s-23739
- mod-23740)
- (if (eqv? type-23733 'module-ref)
+ (eqv? type-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-23734 e-23736 r-23737 w-23738))
- (lambda (e-23766 r-23767 w-23768 s-23769 mod-23770)
- (expand-6585 e-23766 r-23767 w-23768 mod-23770)))
- (if (eqv? type-23733 'lexical-call)
- (expand-application-6587
- (let ((id-23845 (car e-23736)))
- (build-lexical-reference-6519
+ (lambda () (value-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-6542 id-23845)
- (if (if (vector? id-23845)
- (if (= (vector-length id-23845) 4)
- (eq? (vector-ref id-23845 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-23845)
- id-23845)
- value-23734))
- e-23736
- r-23737
- w-23738
- s-23739
- mod-23740)
- (if (eqv? type-23733 'global-call)
- (expand-application-6587
- (build-global-reference-6522
- (source-annotation-6542 (car e-23736))
- (if (if (vector? value-23734)
- (if (= (vector-length value-23734) 4)
- (eq? (vector-ref value-23734 0) 'syntax-object)
+ (syntax->datum id-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-23734 1)
- value-23734)
- (if (if (vector? value-23734)
- (if (= (vector-length value-23734) 4)
- (eq? (vector-ref value-23734 0) 'syntax-object)
+ (vector-ref value-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-23734 3)
- mod-23740))
- e-23736
- r-23737
- w-23738
- s-23739
- mod-23740)
- (if (eqv? type-23733 'constant)
- (let ((exp-24182
- (strip-6598
- (wrap-6578
+ (vector-ref value-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-23736) s-23739 #f)
- (set-source-properties! e-23736 s-23739))
- e-23736)
- w-23738
- mod-23740)
+ (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-23739
- exp-24182))
- (if (eqv? type-23733 'global)
- (analyze-variable-6521
- mod-23740
- value-23734
- (lambda (mod-24218 var-24219 public?-24220)
+ 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-23739
- mod-24218
- var-24219
- public?-24220))
- (lambda (var-24229)
+ s-21788
+ mod-22289
+ var-22290
+ public?-22291))
+ (lambda (var-22300)
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
- s-23739
- var-24229)))
- (if (eqv? type-23733 'call)
- (expand-application-6587
- (expand-6585
- (car e-23736)
- r-23737
- w-23738
- mod-23740)
- e-23736
- r-23737
- w-23738
- s-23739
- mod-23740)
- (if (eqv? type-23733 'begin-form)
- (let ((tmp-24304
- ($sc-dispatch e-23736 '(_ any . each-any))))
- (if tmp-24304
+ s-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-24308 e2-24309)
- (expand-sequence-6580
- (cons e1-24308 e2-24309)
- r-23737
- w-23738
- s-23739
- mod-23740))
- tmp-24304)
- (let ((tmp-24396 ($sc-dispatch e-23736 '(_))))
- (if tmp-24396
+ (lambda (e1-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)
@@ -4029,801 +4046,801 @@
(syntax-violation
#f
"sequence of zero expressions"
- (wrap-6578
+ (wrap-4323
(begin
- (if (if (pair? e-23736)
- s-23739
+ (if (if (pair? e-21785)
+ s-21788
#f)
(set-source-properties!
- e-23736
- s-23739))
- e-23736)
- w-23738
- mod-23740))))
- tmp-24396)
+ e-21785
+ s-21788))
+ e-21785)
+ w-21787
+ mod-21789))))
+ tmp-22473)
(syntax-violation
#f
"source expression failed to match any
pattern"
- e-23736)))))
- (if (eqv? type-23733 'local-syntax-form)
- (expand-local-syntax-6590
- value-23734
- e-23736
- r-23737
- w-23738
- s-23739
- mod-23740
- expand-sequence-6580)
- (if (eqv? type-23733 'eval-when-form)
- (let ((tmp-24507
+ e-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-23736
+ e-21785
'(_ each-any any . each-any))))
- (if tmp-24507
+ (if tmp-22590
(@apply
- (lambda (x-24511 e1-24512 e2-24513)
- (let ((when-list-24514
- (parse-when-list-6583
- e-23736
- x-24511)))
- (if (memq 'eval when-list-24514)
- (expand-sequence-6580
- (cons e1-24512 e2-24513)
- r-23737
- w-23738
- s-23739
- mod-23740)
+ (lambda (x-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-24507)
+ tmp-22590)
(syntax-violation
#f
"source expression failed to match any
pattern"
- e-23736)))
- (if (if (eqv? type-23733 'define-form)
+ e-21785)))
+ (if (if (eqv? type-21782 'define-form)
#t
- (if (eqv? type-23733 'define-syntax-form)
+ (if (eqv? type-21782 'define-syntax-form)
#t
- (eqv? type-23733
+ (eqv? type-21782
'define-syntax-parameter-form)))
(syntax-violation
#f
"definition in expression context, where
definitions are not allowed,"
- (wrap-6578
+ (wrap-4323
(begin
- (if (if (pair? form-23735) s-23739 #f)
+ (if (if (pair? form-21784) s-21788 #f)
(set-source-properties!
- form-23735
- s-23739))
- form-23735)
- w-23738
- mod-23740))
- (if (eqv? type-23733 '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-6578
+ (wrap-4323
(begin
- (if (if (pair? e-23736) s-23739 #f)
+ (if (if (pair? e-21785) s-21788 #f)
(set-source-properties!
- e-23736
- s-23739))
- e-23736)
- w-23738
- mod-23740))
- (if (eqv? type-23733 '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-6578
+ (wrap-4323
(begin
- (if (if (pair? e-23736) s-23739 #f)
+ (if (if (pair? e-21785) s-21788 #f)
(set-source-properties!
- e-23736
- s-23739))
- e-23736)
- w-23738
- mod-23740))
+ e-21785
+ s-21788))
+ e-21785)
+ w-21787
+ mod-21789))
(syntax-violation
#f
"unexpected syntax"
- (wrap-6578
+ (wrap-4323
(begin
- (if (if (pair? e-23736) s-23739 #f)
+ (if (if (pair? e-21785) s-21788 #f)
(set-source-properties!
- e-23736
- s-23739))
- e-23736)
- w-23738
- mod-23740))))))))))))))))))
- (expand-application-6587
- (lambda (x-24774
- e-24775
- r-24776
- w-24777
- s-24778
- mod-24779)
- (let ((tmp-24781
- ($sc-dispatch e-24775 '(any . each-any))))
- (if tmp-24781
+ e-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-24785 e1-24786)
- (build-application-6516
- s-24778
- x-24774
- (map (lambda (e-24866)
- (expand-6585 e-24866 r-24776 w-24777 mod-24779))
- e1-24786)))
- tmp-24781)
+ (lambda (e0-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-24775)))))
- (expand-macro-6588
- (lambda (p-24942
- e-24943
- r-24944
- w-24945
- s-24946
- rib-24947
- mod-24948)
+ e-22867)))))
+ (expand-macro-4333
+ (lambda (p-23034
+ e-23035
+ r-23036
+ w-23037
+ s-23038
+ rib-23039
+ mod-23040)
(letrec*
- ((rebuild-macro-output-24949
- (lambda (x-24982 m-24983)
- (if (pair? x-24982)
- (let ((e-24987
- (cons (rebuild-macro-output-24949
- (car x-24982)
- m-24983)
- (rebuild-macro-output-24949
- (cdr x-24982)
- m-24983))))
+ ((rebuild-macro-output-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-24987) s-24946 #f)
- (set-source-properties! e-24987 s-24946))
- e-24987))
- (if (if (vector? x-24982)
- (if (= (vector-length x-24982) 4)
- (eq? (vector-ref x-24982 0) 'syntax-object)
+ (if (if (pair? e-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-25003 (vector-ref x-24982 2)))
- (let ((ms-25004 (car w-25003))
- (s-25005 (cdr w-25003)))
- (if (if (pair? ms-25004) (eq? (car ms-25004) #f) #f)
- (let ((expression-25013 (vector-ref x-24982 1))
- (wrap-25014
- (cons (cdr ms-25004)
- (if rib-24947
- (cons rib-24947 (cdr s-25005))
- (cdr s-25005))))
- (module-25015 (vector-ref x-24982 3)))
+ (let ((w-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-25013
- wrap-25014
- module-25015))
- (let ((expression-25025
- (let ((e-25030 (vector-ref x-24982 1)))
+ expression-23105
+ wrap-23106
+ module-23107))
+ (let ((expression-23117
+ (let ((e-23122 (vector-ref x-23074 1)))
(begin
- (if (if (pair? e-25030) s-25005 #f)
+ (if (if (pair? e-23122) s-23038 #f)
(set-source-properties!
- e-25030
- s-25005))
- e-25030)))
- (wrap-25026
- (cons (cons m-24983 ms-25004)
- (if rib-24947
- (cons rib-24947
- (cons 'shift s-25005))
- (cons 'shift s-25005))))
- (module-25027 (vector-ref x-24982 3)))
+ e-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-25025
- wrap-25026
- module-25027)))))
- (if (vector? x-24982)
- (let ((n-25042 (vector-length x-24982)))
- (let ((v-25043
- (let ((e-25051 (make-vector n-25042)))
+ expression-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-25051) x-24982 #f)
- (set-source-properties! e-25051 x-24982))
- e-25051))))
+ (if (if (pair? e-23143) s-23038 #f)
+ (set-source-properties! e-23143 s-23038))
+ e-23143))))
(letrec*
- ((loop-25044
- (lambda (i-25096)
- (if (= i-25096 n-25042)
- v-25043
+ ((loop-23136
+ (lambda (i-23188)
+ (if (= i-23188 n-23134)
+ v-23135
(begin
(vector-set!
- v-25043
- i-25096
- (rebuild-macro-output-24949
- (vector-ref x-24982 i-25096)
- m-24983))
- (loop-25044 (#{1+}# i-25096)))))))
- (loop-25044 0))))
- (if (symbol? x-24982)
+ v-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-25102 (cdr w-24945)))
- (wrap-6578
+ (let ((s-23194 (cdr w-23037)))
+ (wrap-4323
(begin
- (if (if (pair? e-24943) s-25102 #f)
- (set-source-properties! e-24943 s-25102))
- e-24943)
- w-24945
- mod-24948))
- x-24982)
+ (if (if (pair? e-23035) s-23194 #f)
+ (set-source-properties! e-23035 s-23194))
+ e-23035)
+ w-23037
+ mod-23040))
+ x-23074)
(begin
- (if (if (pair? x-24982) s-24946 #f)
- (set-source-properties! x-24982 s-24946))
- x-24982))))))))
+ (if (if (pair? x-23074) s-23038 #f)
+ (set-source-properties! x-23074 s-23038))
+ x-23074))))))))
(with-fluids
- ((transformer-environment-6571
- (lambda (k-24950)
- (k-24950
- e-24943
- r-24944
- w-24945
- s-24946
- rib-24947
- mod-24948))))
- (rebuild-macro-output-24949
- (p-24942
- (let ((w-24957
- (cons (cons #f (car w-24945))
- (cons 'shift (cdr w-24945)))))
- (wrap-6578
+ ((transformer-environment-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-24943) s-24946 #f)
- (set-source-properties! e-24943 s-24946))
- e-24943)
- w-24957
- mod-24948)))
+ (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-6510) "-")))))))
- (expand-body-6589
- (lambda (body-25134
- outer-form-25135
- r-25136
- w-25137
- mod-25138)
- (let ((r-25139
- (cons '("placeholder" placeholder) r-25136)))
- (let ((ribcage-25140 (vector 'ribcage '() '() '())))
- (let ((w-25141
- (cons (car w-25137)
- (cons ribcage-25140 (cdr w-25137)))))
+ (string-append "m-" (session-id-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-25142
- (lambda (body-25155
- ids-25156
- labels-25157
- var-ids-25158
- vars-25159
- vals-25160
- bindings-25161)
- (if (null? body-25155)
+ ((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-25135)
- (let ((e-25162 (cdr (car body-25155)))
- (er-25163 (car (car body-25155))))
+ outer-form-23227)
+ (let ((e-23254 (cdr (car body-23247)))
+ (er-23255 (car (car body-23247))))
(call-with-values
(lambda ()
- (syntax-type-6584
- e-25162
- er-25163
+ (syntax-type-4329
+ e-23254
+ er-23255
'(())
- (source-annotation-6542 er-25163)
- ribcage-25140
- mod-25138
+ (source-annotation-4287 er-23255)
+ ribcage-23232
+ mod-23230
#f))
- (lambda (type-25320
- value-25321
- form-25322
- e-25323
- w-25324
- s-25325
- mod-25326)
- (if (eqv? type-25320 'define-form)
- (let ((id-25330
- (wrap-6578
- value-25321
- w-25324
- mod-25326))
- (label-25331
+ (lambda (type-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-6510)
+ (session-id-4255)
(symbol->string (gensym "-")))))
- (let ((var-25332
- (let ((id-25392
- (if (if (vector? id-25330)
+ (let ((var-23428
+ (let ((id-23488
+ (if (if (vector? id-23426)
(if (= (vector-length
- id-25330)
+ id-23426)
4)
(eq? (vector-ref
- id-25330
+ id-23426
0)
'syntax-object)
#f)
#f)
- (vector-ref id-25330 1)
- id-25330)))
+ (vector-ref id-23426 1)
+ id-23426)))
(gensym
(string-append
- (symbol->string id-25392)
+ (symbol->string id-23488)
"-")))))
(begin
- (let ((update-25382
- (cons (vector-ref id-25330 1)
+ (let ((update-23478
+ (cons (vector-ref id-23426 1)
(vector-ref
- ribcage-25140
+ ribcage-23232
1))))
(vector-set!
- ribcage-25140
+ ribcage-23232
1
- update-25382))
- (let ((update-25384
+ update-23478))
+ (let ((update-23480
(cons (car (vector-ref
- id-25330
+ id-23426
2))
(vector-ref
- ribcage-25140
+ ribcage-23232
2))))
(vector-set!
- ribcage-25140
+ ribcage-23232
2
- update-25384))
- (let ((update-25386
- (cons label-25331
+ update-23480))
+ (let ((update-23482
+ (cons label-23427
(vector-ref
- ribcage-25140
+ ribcage-23232
3))))
(vector-set!
- ribcage-25140
+ ribcage-23232
3
- update-25386))
- (parse-25142
- (cdr body-25155)
- (cons id-25330 ids-25156)
- (cons label-25331 labels-25157)
- (cons id-25330 var-ids-25158)
- (cons var-25332 vars-25159)
- (cons (cons er-25163
- (wrap-6578
- e-25323
- w-25324
- mod-25326))
- vals-25160)
- (cons (cons 'lexical var-25332)
- bindings-25161)))))
- (if (if (eqv? type-25320 'define-syntax-form)
+ update-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-25320
+ (eqv? type-23412
'define-syntax-parameter-form))
- (let ((id-25425
- (wrap-6578
- value-25321
- w-25324
- mod-25326))
- (label-25426
+ (let ((id-23524
+ (wrap-4323
+ value-23413
+ w-23416
+ mod-23418))
+ (label-23525
(string-append
"l-"
- (session-id-6510)
+ (session-id-4255)
(symbol->string (gensym "-")))))
(begin
- (let ((update-25476
- (cons (vector-ref id-25425 1)
+ (let ((update-23575
+ (cons (vector-ref id-23524 1)
(vector-ref
- ribcage-25140
+ ribcage-23232
1))))
(vector-set!
- ribcage-25140
+ ribcage-23232
1
- update-25476))
- (let ((update-25478
+ update-23575))
+ (let ((update-23577
(cons (car (vector-ref
- id-25425
+ id-23524
2))
(vector-ref
- ribcage-25140
+ ribcage-23232
2))))
(vector-set!
- ribcage-25140
+ ribcage-23232
2
- update-25478))
- (let ((update-25480
- (cons label-25426
+ update-23577))
+ (let ((update-23579
+ (cons label-23525
(vector-ref
- ribcage-25140
+ ribcage-23232
3))))
(vector-set!
- ribcage-25140
+ ribcage-23232
3
- update-25480))
- (parse-25142
- (cdr body-25155)
- (cons id-25425 ids-25156)
- (cons label-25426 labels-25157)
- var-ids-25158
- vars-25159
- vals-25160
+ update-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-25163
- (wrap-6578
- e-25323
- w-25324
- mod-25326)))
- bindings-25161))))
- (if (eqv? type-25320 'begin-form)
- (let ((tmp-25488
+ (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-25323
+ e-23415
'(_ . each-any))))
- (if tmp-25488
+ (if tmp-23590
(@apply
- (lambda (e1-25492)
- (parse-25142
+ (lambda (e1-23594)
+ (parse-23234
(letrec*
- ((f-25493
- (lambda (forms-25556)
- (if (null? forms-25556)
- (cdr body-25155)
- (cons (cons er-25163
- (wrap-6578
- (car
forms-25556)
- w-25324
-
mod-25326))
- (f-25493
- (cdr
forms-25556)))))))
- (f-25493 e1-25492))
- ids-25156
- labels-25157
- var-ids-25158
- vars-25159
- vals-25160
- bindings-25161))
- tmp-25488)
+ ((f-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-25323)))
- (if (eqv? type-25320 'local-syntax-form)
- (expand-local-syntax-6590
- value-25321
- e-25323
- er-25163
- w-25324
- s-25325
- mod-25326
- (lambda (forms-25570
- er-25571
- w-25572
- s-25573
- mod-25574)
- (parse-25142
+ e-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-25575
- (lambda (forms-25638)
- (if (null? forms-25638)
- (cdr body-25155)
- (cons (cons er-25571
- (wrap-6578
- (car
forms-25638)
- w-25572
- mod-25574))
- (f-25575
- (cdr
forms-25638)))))))
- (f-25575 forms-25570))
- ids-25156
- labels-25157
- var-ids-25158
- vars-25159
- vals-25160
- bindings-25161)))
- (if (null? ids-25156)
- (build-sequence-6530
+ ((f-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-25703)
- (let ((e-25707 (cdr x-25703))
- (r-25708 (car x-25703)))
+ (map (lambda (x-23808)
+ (let ((e-23812 (cdr x-23808))
+ (r-23813 (car x-23808)))
(call-with-values
(lambda ()
- (syntax-type-6584
- e-25707
- r-25708
+ (syntax-type-4329
+ e-23812
+ r-23813
'(())
-
(source-annotation-6542
- e-25707)
+
(source-annotation-4287
+ e-23812)
#f
- mod-25326
+ mod-23418
#f))
- (lambda (type-25712
- value-25713
- form-25714
- e-25715
- w-25716
- s-25717
- mod-25718)
- (expand-expr-6586
- type-25712
- value-25713
- form-25714
- e-25715
- r-25708
- w-25716
- s-25717
- mod-25718)))))
- (cons (cons er-25163
- (wrap-6578
+ (lambda (type-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-25323)
- s-25325
+ (if (if (pair?
e-23415)
+ s-23417
#f)
(set-source-properties!
- e-25323
- s-25325))
- e-25323)
- w-25324
- mod-25326))
- (cdr body-25155))))
+ e-23415
+ s-23417))
+ e-23415)
+ w-23416
+ mod-23418))
+ (cdr body-23247))))
(begin
- (if (not (valid-bound-ids?-6575
- ids-25156))
+ (if (not (valid-bound-ids?-4320
+ ids-23248))
(syntax-violation
#f
"invalid or duplicate identifier
in definition"
- outer-form-25135))
+ outer-form-23227))
(letrec*
- ((loop-25819
- (lambda (bs-25822
- er-cache-25823
- r-cache-25824)
- (if (not (null? bs-25822))
- (let ((b-25825
- (car bs-25822)))
- (if (eq? (car b-25825)
+ ((loop-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-25827
- (car (cdr
b-25825))))
- (let ((r-cache-25828
- (if (eq?
er-25827
-
er-cache-25823)
-
r-cache-25824
-
(macros-only-env-6545
-
er-25827))))
+ (let ((er-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-25825
-
(eval-local-transformer-6591
- (expand-6585
- (cdr (cdr
b-25825))
-
r-cache-25828
+ b-23930
+
(eval-local-transformer-4336
+ (expand-4330
+ (cdr (cdr
b-23930))
+
r-cache-23933
'(())
- mod-25326)
- mod-25326))
- (loop-25819
- (cdr bs-25822)
- er-25827
-
r-cache-25828))))
- (loop-25819
- (cdr bs-25822)
- er-cache-25823
- r-cache-25824)))))))
- (loop-25819 bindings-25161 #f #f))
+ mod-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-25139
- (extend-env-6543
- labels-25157
- bindings-25161
- (cdr r-25139)))
- (build-letrec-6533
+ r-23231
+ (extend-env-4288
+ labels-23249
+ bindings-23253
+ (cdr r-23231)))
+ (build-letrec-4278
#f
#t
(reverse
(map syntax->datum
- var-ids-25158))
- (reverse vars-25159)
- (map (lambda (x-26171)
- (let ((e-26175
- (cdr x-26171))
- (r-26176
- (car x-26171)))
+ var-ids-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-6584
- e-26175
- r-26176
+ (syntax-type-4329
+ e-24280
+ r-24281
'(())
-
(source-annotation-6542
- e-26175)
+
(source-annotation-4287
+ e-24280)
#f
- mod-25326
+ mod-23418
#f))
- (lambda (type-26180
- value-26181
- form-26182
- e-26183
- w-26184
- s-26185
- mod-26186)
- (expand-expr-6586
- type-26180
- value-26181
- form-26182
- e-26183
- r-26176
- w-26184
- s-26185
- mod-26186)))))
- (reverse vals-25160))
- (let ((exps-26192
- (map (lambda (x-26193)
- (let ((e-26196
- (cdr
x-26193))
- (r-26197
- (car
x-26193)))
+ (lambda (type-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-6584
- e-26196
- r-26197
+
(syntax-type-4329
+ e-24301
+ r-24302
'(())
-
(source-annotation-6542
- e-26196)
+
(source-annotation-4287
+ e-24301)
#f
- mod-25326
+ mod-23418
#f))
- (lambda
(type-26201
-
value-26202
-
form-26203
- e-26204
- w-26205
- s-26206
-
mod-26207)
-
(expand-expr-6586
- type-26201
- value-26202
- form-26203
- e-26204
- r-26197
- w-26205
- s-26206
-
mod-26207)))))
- (cons (cons er-25163
- (wrap-6578
+ (lambda
(type-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-25323)
-
s-25325
+ (if
(if (pair? e-23415)
+
s-23417
#f)
(set-source-properties!
-
e-25323
-
s-25325))
-
e-25323)
- w-25324
-
mod-25326))
- (cdr
body-25155)))))
- (if (null? (cdr exps-26192))
- (car exps-26192)
+
e-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-26192)))))))))))))))))
- (parse-25142
- (map (lambda (x-25145)
- (cons r-25139
- (wrap-6578 x-25145 w-25141 mod-25138)))
- body-25134)
+ exps-24297)))))))))))))))))
+ (parse-23234
+ (map (lambda (x-23237)
+ (cons r-23231
+ (wrap-4323 x-23237 w-23233 mod-23230)))
+ body-23226)
'()
'()
'()
'()
'()
'())))))))
- (expand-local-syntax-6590
- (lambda (rec?-26233
- e-26234
- r-26235
- w-26236
- s-26237
- mod-26238
- k-26239)
- (let ((tmp-26241
+ (expand-local-syntax-4335
+ (lambda (rec?-24338
+ e-24339
+ r-24340
+ w-24341
+ s-24342
+ mod-24343
+ k-24344)
+ (let ((tmp-24346
($sc-dispatch
- e-26234
+ e-24339
'(_ #(each (any any)) any . each-any))))
- (if tmp-26241
+ (if tmp-24346
(@apply
- (lambda (id-26245 val-26246 e1-26247 e2-26248)
- (if (not (valid-bound-ids?-6575 id-26245))
+ (lambda (id-24350 val-24351 e1-24352 e2-24353)
+ (if (not (valid-bound-ids?-4320 id-24350))
(syntax-violation
#f
"duplicate bound keyword"
- e-26234)
- (let ((labels-26338 (gen-labels-6552 id-26245)))
- (let ((new-w-26339
- (make-binding-wrap-6563
- id-26245
- labels-26338
- w-26236)))
- (k-26239
- (cons e1-26247 e2-26248)
- (extend-env-6543
- labels-26338
- (let ((trans-r-26375
- (macros-only-env-6545 r-26235)))
+ e-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?-26233 new-w-26339 w-26236)
- (map (lambda (x-26376)
+ (if rec?-24338 new-w-24444 w-24341)
+ (map (lambda (x-24481)
(cons 'macro
- (eval-local-transformer-6591
- (expand-6585
- x-26376
- trans-r-26375
+ (eval-local-transformer-4336
+ (expand-4330
+ x-24481
+ trans-r-24480
(values
- (if rec?-26233
- new-w-26339
- w-26236))
- mod-26238)
- mod-26238)))
- val-26246)))
- r-26235)
- new-w-26339
- s-26237
- mod-26238)))))
- tmp-26241)
+ (if rec?-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-6578
+ (wrap-4323
(begin
- (if (if (pair? e-26234) s-26237 #f)
- (set-source-properties! e-26234 s-26237))
- e-26234)
- w-26236
- mod-26238))))))
- (eval-local-transformer-6591
- (lambda (expanded-26656 mod-26657)
- (let ((p-26658 (primitive-eval expanded-26656)))
- (if (procedure? p-26658)
- p-26658
+ (if (if (pair? e-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-26658)))))
- (ellipsis?-6593
- (lambda (x-7254)
- (if (if (if (vector? x-7254)
- (if (= (vector-length x-7254) 4)
- (eq? (vector-ref x-7254 0) 'syntax-object)
+ p-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-7254 1))
+ (symbol? (vector-ref x-4999 1))
#f)
- (if (eq? (if (if (vector? x-7254)
- (if (= (vector-length x-7254) 4)
- (eq? (vector-ref x-7254 0) 'syntax-object)
+ (if (eq? (if (if (vector? x-4999)
+ (if (= (vector-length x-4999) 4)
+ (eq? (vector-ref x-4999 0) 'syntax-object)
#f)
#f)
- (vector-ref x-7254 1)
- x-7254)
+ (vector-ref x-4999 1)
+ x-4999)
(if (if (= (vector-length
'#(syntax-object
...
((top)
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-4404"))
+ #(ribcage #(x) #((top)) #("l-*-2266"))
#(ribcage
(lambda-var-list
gen-var
@@ -5105,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
@@ -5261,7 +5278,7 @@
((top)
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-4404"))
+ #(ribcage #(x) #((top)) #("l-*-2266"))
#(ribcage
(lambda-var-list
gen-var
@@ -5543,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-6568 x-7254 '(()))
- (id-var-name-6568
+ (eq? (id-var-name-4313 x-4999 '(()))
+ (id-var-name-4313
'#(syntax-object
...
((top)
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-4404"))
+ #(ribcage #(x) #((top)) #("l-*-2266"))
#(ribcage
(lambda-var-list
gen-var
@@ -5979,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-6594
- (lambda (orig-args-26663)
+ (lambda-formals-4339
+ (lambda (orig-args-24768)
(letrec*
- ((req-26664
- (lambda (args-26668 rreq-26669)
- (let ((tmp-26671 ($sc-dispatch args-26668 '())))
- (if tmp-26671
+ ((req-24769
+ (lambda (args-24773 rreq-24774)
+ (let ((tmp-24776 ($sc-dispatch args-24773 '())))
+ (if tmp-24776
(@apply
- (lambda () (check-26665 (reverse rreq-26669) #f))
- tmp-26671)
- (let ((tmp-26794
- ($sc-dispatch args-26668 '(any . any))))
- (if (if tmp-26794
+ (lambda () (check-24770 (reverse rreq-24774) #f))
+ tmp-24776)
+ (let ((tmp-24899
+ ($sc-dispatch args-24773 '(any . any))))
+ (if (if tmp-24899
(@apply
- (lambda (a-26798 b-26799)
- (if (symbol? a-26798)
+ (lambda (a-24903 b-24904)
+ (if (symbol? a-24903)
#t
- (if (if (vector? a-26798)
- (if (= (vector-length a-26798) 4)
- (eq? (vector-ref a-26798 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-26798 1))
+ (symbol? (vector-ref a-24903 1))
#f)))
- tmp-26794)
+ tmp-24899)
#f)
(@apply
- (lambda (a-26826 b-26827)
- (req-26664 b-26827 (cons a-26826 rreq-26669)))
- tmp-26794)
- (let ((tmp-26828 (list args-26668)))
+ (lambda (a-24931 b-24932)
+ (req-24769 b-24932 (cons a-24931 rreq-24774)))
+ tmp-24899)
+ (let ((tmp-24933 (list args-24773)))
(if (@apply
- (lambda (r-26830)
- (if (symbol? r-26830)
+ (lambda (r-24935)
+ (if (symbol? r-24935)
#t
- (if (if (vector? r-26830)
- (if (= (vector-length r-26830) 4)
- (eq? (vector-ref r-26830 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-26830 1))
+ (symbol? (vector-ref r-24935 1))
#f)))
- tmp-26828)
+ tmp-24933)
(@apply
- (lambda (r-26860)
- (check-26665 (reverse rreq-26669) r-26860))
- tmp-26828)
+ (lambda (r-24965)
+ (check-24770 (reverse rreq-24774) r-24965))
+ tmp-24933)
(syntax-violation
'lambda
"invalid argument list"
- orig-args-26663
- args-26668)))))))))
- (check-26665
- (lambda (req-26991 rest-26992)
- (if (distinct-bound-ids?-6576
- (if rest-26992
- (cons rest-26992 req-26991)
- req-26991))
- (values req-26991 #f rest-26992 #f)
+ orig-args-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-26663)))))
- (req-26664 orig-args-26663 '()))))
- (expand-simple-lambda-6595
- (lambda (e-27108
- r-27109
- w-27110
- s-27111
- mod-27112
- req-27113
- rest-27114
- meta-27115
- body-27116)
- (let ((ids-27117
- (if rest-27114
- (append req-27113 (list rest-27114))
- req-27113)))
- (let ((vars-27118 (map gen-var-6599 ids-27117)))
- (let ((labels-27119 (gen-labels-6552 ids-27117)))
- (build-simple-lambda-6525
- s-27111
- (map syntax->datum req-27113)
- (if rest-27114 (syntax->datum rest-27114) #f)
- vars-27118
- meta-27115
- (expand-body-6589
- body-27116
- (wrap-6578
+ orig-args-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-27108) s-27111 #f)
- (set-source-properties! e-27108 s-27111))
- e-27108)
- w-27110
- mod-27112)
- (extend-var-env-6544
- labels-27119
- vars-27118
- r-27109)
- (make-binding-wrap-6563
- ids-27117
- labels-27119
- w-27110)
- mod-27112)))))))
- (lambda*-formals-6596
- (lambda (orig-args-27399)
+ (if (if (pair? e-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-27400
- (lambda (args-27407 rreq-27408)
- (let ((tmp-27410 ($sc-dispatch args-27407 '())))
- (if tmp-27410
+ ((req-25505
+ (lambda (args-25512 rreq-25513)
+ (let ((tmp-25515 ($sc-dispatch args-25512 '())))
+ (if tmp-25515
(@apply
(lambda ()
- (check-27404 (reverse rreq-27408) '() #f '()))
- tmp-27410)
- (let ((tmp-27416
- ($sc-dispatch args-27407 '(any . any))))
- (if (if tmp-27416
+ (check-25509 (reverse rreq-25513) '() #f '()))
+ tmp-25515)
+ (let ((tmp-25521
+ ($sc-dispatch args-25512 '(any . any))))
+ (if (if tmp-25521
(@apply
- (lambda (a-27420 b-27421)
- (if (symbol? a-27420)
+ (lambda (a-25525 b-25526)
+ (if (symbol? a-25525)
#t
- (if (if (vector? a-27420)
- (if (= (vector-length a-27420) 4)
- (eq? (vector-ref a-27420 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-27420 1))
+ (symbol? (vector-ref a-25525 1))
#f)))
- tmp-27416)
+ tmp-25521)
#f)
(@apply
- (lambda (a-27448 b-27449)
- (req-27400 b-27449 (cons a-27448 rreq-27408)))
- tmp-27416)
- (let ((tmp-27450
- ($sc-dispatch args-27407 '(any . any))))
- (if (if tmp-27450
+ (lambda (a-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-27454 b-27455)
- (eq? (syntax->datum a-27454) #:optional))
- tmp-27450)
+ (lambda (a-25559 b-25560)
+ (eq? (syntax->datum a-25559) #:optional))
+ tmp-25555)
#f)
(@apply
- (lambda (a-27456 b-27457)
- (opt-27401 b-27457 (reverse rreq-27408) '()))
- tmp-27450)
- (let ((tmp-27460
- ($sc-dispatch args-27407 '(any . any))))
- (if (if tmp-27460
+ (lambda (a-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-27464 b-27465)
- (eq? (syntax->datum a-27464) #:key))
- tmp-27460)
+ (lambda (a-25569 b-25570)
+ (eq? (syntax->datum a-25569) #:key))
+ tmp-25565)
#f)
(@apply
- (lambda (a-27466 b-27467)
- (key-27402
- b-27467
- (reverse rreq-27408)
+ (lambda (a-25571 b-25572)
+ (key-25507
+ b-25572
+ (reverse rreq-25513)
'()
'()))
- tmp-27460)
- (let ((tmp-27470
- ($sc-dispatch args-27407 '(any any))))
- (if (if tmp-27470
+ tmp-25565)
+ (let ((tmp-25575
+ ($sc-dispatch args-25512 '(any any))))
+ (if (if tmp-25575
(@apply
- (lambda (a-27474 b-27475)
- (eq? (syntax->datum a-27474)
+ (lambda (a-25579 b-25580)
+ (eq? (syntax->datum a-25579)
#:rest))
- tmp-27470)
+ tmp-25575)
#f)
(@apply
- (lambda (a-27476 b-27477)
- (rest-27403
- b-27477
- (reverse rreq-27408)
+ (lambda (a-25581 b-25582)
+ (rest-25508
+ b-25582
+ (reverse rreq-25513)
'()
'()))
- tmp-27470)
- (let ((tmp-27480 (list args-27407)))
+ tmp-25575)
+ (let ((tmp-25585 (list args-25512)))
(if (@apply
- (lambda (r-27482)
- (if (symbol? r-27482)
+ (lambda (r-25587)
+ (if (symbol? r-25587)
#t
- (if (if (vector? r-27482)
+ (if (if (vector? r-25587)
(if (= (vector-length
- r-27482)
+ r-25587)
4)
(eq? (vector-ref
- r-27482
+ r-25587
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref r-27482 1))
+ (vector-ref r-25587 1))
#f)))
- tmp-27480)
+ tmp-25585)
(@apply
- (lambda (r-27512)
- (rest-27403
- r-27512
- (reverse rreq-27408)
+ (lambda (r-25617)
+ (rest-25508
+ r-25617
+ (reverse rreq-25513)
'()
'()))
- tmp-27480)
+ tmp-25585)
(syntax-violation
'lambda*
"invalid argument list"
- orig-args-27399
- args-27407)))))))))))))))
- (opt-27401
- (lambda (args-27531 req-27532 ropt-27533)
- (let ((tmp-27535 ($sc-dispatch args-27531 '())))
- (if tmp-27535
+ orig-args-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-27404
- req-27532
- (reverse ropt-27533)
+ (check-25509
+ req-25637
+ (reverse ropt-25638)
#f
'()))
- tmp-27535)
- (let ((tmp-27541
- ($sc-dispatch args-27531 '(any . any))))
- (if (if tmp-27541
+ tmp-25640)
+ (let ((tmp-25646
+ ($sc-dispatch args-25636 '(any . any))))
+ (if (if tmp-25646
(@apply
- (lambda (a-27545 b-27546)
- (if (symbol? a-27545)
+ (lambda (a-25650 b-25651)
+ (if (symbol? a-25650)
#t
- (if (if (vector? a-27545)
- (if (= (vector-length a-27545) 4)
- (eq? (vector-ref a-27545 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-27545 1))
+ (symbol? (vector-ref a-25650 1))
#f)))
- tmp-27541)
+ tmp-25646)
#f)
(@apply
- (lambda (a-27573 b-27574)
- (opt-27401
- b-27574
- req-27532
- (cons (cons a-27573
+ (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-*-4543" "l-*-4544"))
+ #("l-*-2403" "l-*-2404"))
#(ribcage () () ())
#(ribcage
#(args req ropt)
#((top) (top) (top))
- #("l-*-4533"
- "l-*-4534"
- "l-*-4535"))
+ #("l-*-2393"
+ "l-*-2394"
+ "l-*-2395"))
#(ribcage
(check rest key opt req)
((top)
@@ -6400,15 +6417,15 @@
(top)
(top)
(top))
- ("l-*-4479"
- "l-*-4477"
- "l-*-4475"
- "l-*-4473"
- "l-*-4471"))
+ ("l-*-2339"
+ "l-*-2337"
+ "l-*-2335"
+ "l-*-2333"
+ "l-*-2331"))
#(ribcage
#(orig-args)
#((top))
- #("l-*-4470"))
+ #("l-*-2330"))
#(ribcage
(lambda-var-list
gen-var
@@ -6690,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-27533)))
- tmp-27541)
- (let ((tmp-27575
- ($sc-dispatch args-27531 '((any any) . any))))
- (if (if tmp-27575
+ ropt-25638)))
+ tmp-25646)
+ (let ((tmp-25680
+ ($sc-dispatch args-25636 '((any any) . any))))
+ (if (if tmp-25680
(@apply
- (lambda (a-27579 init-27580 b-27581)
- (if (symbol? a-27579)
+ (lambda (a-25684 init-25685 b-25686)
+ (if (symbol? a-25684)
#t
- (if (if (vector? a-27579)
- (if (= (vector-length a-27579) 4)
- (eq? (vector-ref a-27579 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-27579 1))
+ (symbol? (vector-ref a-25684 1))
#f)))
- tmp-27575)
+ tmp-25680)
#f)
(@apply
- (lambda (a-27608 init-27609 b-27610)
- (opt-27401
- b-27610
- req-27532
- (cons (list a-27608 init-27609) ropt-27533)))
- tmp-27575)
- (let ((tmp-27611
- ($sc-dispatch args-27531 '(any . any))))
- (if (if tmp-27611
+ (lambda (a-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-27615 b-27616)
- (eq? (syntax->datum a-27615) #:key))
- tmp-27611)
+ (lambda (a-25720 b-25721)
+ (eq? (syntax->datum a-25720) #:key))
+ tmp-25716)
#f)
(@apply
- (lambda (a-27617 b-27618)
- (key-27402
- b-27618
- req-27532
- (reverse ropt-27533)
+ (lambda (a-25722 b-25723)
+ (key-25507
+ b-25723
+ req-25637
+ (reverse ropt-25638)
'()))
- tmp-27611)
- (let ((tmp-27621
- ($sc-dispatch args-27531 '(any any))))
- (if (if tmp-27621
+ tmp-25716)
+ (let ((tmp-25726
+ ($sc-dispatch args-25636 '(any any))))
+ (if (if tmp-25726
(@apply
- (lambda (a-27625 b-27626)
- (eq? (syntax->datum a-27625)
+ (lambda (a-25730 b-25731)
+ (eq? (syntax->datum a-25730)
#:rest))
- tmp-27621)
+ tmp-25726)
#f)
(@apply
- (lambda (a-27627 b-27628)
- (rest-27403
- b-27628
- req-27532
- (reverse ropt-27533)
+ (lambda (a-25732 b-25733)
+ (rest-25508
+ b-25733
+ req-25637
+ (reverse ropt-25638)
'()))
- tmp-27621)
- (let ((tmp-27631 (list args-27531)))
+ tmp-25726)
+ (let ((tmp-25736 (list args-25636)))
(if (@apply
- (lambda (r-27633)
- (if (symbol? r-27633)
+ (lambda (r-25738)
+ (if (symbol? r-25738)
#t
- (if (if (vector? r-27633)
+ (if (if (vector? r-25738)
(if (= (vector-length
- r-27633)
+ r-25738)
4)
(eq? (vector-ref
- r-27633
+ r-25738
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref r-27633 1))
+ (vector-ref r-25738 1))
#f)))
- tmp-27631)
+ tmp-25736)
(@apply
- (lambda (r-27663)
- (rest-27403
- r-27663
- req-27532
- (reverse ropt-27533)
+ (lambda (r-25768)
+ (rest-25508
+ r-25768
+ req-25637
+ (reverse ropt-25638)
'()))
- tmp-27631)
+ tmp-25736)
(syntax-violation
'lambda*
"invalid optional argument list"
- orig-args-27399
- args-27531)))))))))))))))
- (key-27402
- (lambda (args-27682 req-27683 opt-27684 rkey-27685)
- (let ((tmp-27687 ($sc-dispatch args-27682 '())))
- (if tmp-27687
+ orig-args-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-27404
- req-27683
- opt-27684
+ (check-25509
+ req-25788
+ opt-25789
#f
- (cons #f (reverse rkey-27685))))
- tmp-27687)
- (let ((tmp-27693
- ($sc-dispatch args-27682 '(any . any))))
- (if (if tmp-27693
+ (cons #f (reverse rkey-25790))))
+ tmp-25792)
+ (let ((tmp-25798
+ ($sc-dispatch args-25787 '(any . any))))
+ (if (if tmp-25798
(@apply
- (lambda (a-27697 b-27698)
- (if (symbol? a-27697)
+ (lambda (a-25802 b-25803)
+ (if (symbol? a-25802)
#t
- (if (if (vector? a-27697)
- (if (= (vector-length a-27697) 4)
- (eq? (vector-ref a-27697 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-27697 1))
+ (symbol? (vector-ref a-25802 1))
#f)))
- tmp-27693)
+ tmp-25798)
#f)
(@apply
- (lambda (a-27725 b-27726)
- (let ((tmp-27727
- (symbol->keyword (syntax->datum a-27725))))
- (key-27402
- b-27726
- req-27683
- opt-27684
- (cons (cons tmp-27727
- (cons a-27725
+ (lambda (a-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)
@@ -6976,12 +6991,12 @@
#(ribcage
#(k)
#((top))
- #("l-*-4606"))
+ #("l-*-2466"))
#(ribcage
#(a b)
#((top) (top))
- #("l-*-4600"
- "l-*-4601"))
+ #("l-*-2460"
+ "l-*-2461"))
#(ribcage () () ())
#(ribcage
#(args req opt rkey)
@@ -6989,10 +7004,10 @@
(top)
(top)
(top))
- #("l-*-4589"
- "l-*-4590"
- "l-*-4591"
- "l-*-4592"))
+ #("l-*-2449"
+ "l-*-2450"
+ "l-*-2451"
+ "l-*-2452"))
#(ribcage
(check rest
key
@@ -7003,15 +7018,15 @@
(top)
(top)
(top))
- ("l-*-4479"
- "l-*-4477"
- "l-*-4475"
- "l-*-4473"
- "l-*-4471"))
+ ("l-*-2339"
+ "l-*-2337"
+ "l-*-2335"
+ "l-*-2333"
+ "l-*-2331"))
#(ribcage
#(orig-args)
#((top))
- #("l-*-4470"))
+ #("l-*-2330"))
#(ribcage
(lambda-var-list
gen-var
@@ -7293,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-27685))))
- tmp-27693)
- (let ((tmp-27730
- ($sc-dispatch args-27682 '((any any) . any))))
- (if (if tmp-27730
+ rkey-25790))))
+ tmp-25798)
+ (let ((tmp-25835
+ ($sc-dispatch args-25787 '((any any) . any))))
+ (if (if tmp-25835
(@apply
- (lambda (a-27734 init-27735 b-27736)
- (if (symbol? a-27734)
+ (lambda (a-25839 init-25840 b-25841)
+ (if (symbol? a-25839)
#t
- (if (if (vector? a-27734)
- (if (= (vector-length a-27734) 4)
- (eq? (vector-ref a-27734 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-27734 1))
+ (symbol? (vector-ref a-25839 1))
#f)))
- tmp-27730)
+ tmp-25835)
#f)
(@apply
- (lambda (a-27763 init-27764 b-27765)
- (let ((tmp-27766
+ (lambda (a-25868 init-25869 b-25870)
+ (let ((tmp-25871
(symbol->keyword
- (syntax->datum a-27763))))
- (key-27402
- b-27765
- req-27683
- opt-27684
- (cons (list tmp-27766 a-27763 init-27764)
- rkey-27685))))
- tmp-27730)
- (let ((tmp-27769
+ (syntax->datum a-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-27682
+ args-25787
'((any any any) . any))))
- (if (if tmp-27769
+ (if (if tmp-25874
(@apply
- (lambda (a-27773
- init-27774
- k-27775
- b-27776)
- (if (if (symbol? a-27773)
+ (lambda (a-25878
+ init-25879
+ k-25880
+ b-25881)
+ (if (if (symbol? a-25878)
#t
- (if (if (vector? a-27773)
+ (if (if (vector? a-25878)
(if (= (vector-length
- a-27773)
+ a-25878)
4)
(eq? (vector-ref
- a-27773
+ a-25878
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref a-27773 1))
+ (vector-ref a-25878 1))
#f))
- (keyword? (syntax->datum k-27775))
+ (keyword? (syntax->datum k-25880))
#f))
- tmp-27769)
+ tmp-25874)
#f)
(@apply
- (lambda (a-27803 init-27804 k-27805 b-27806)
- (key-27402
- b-27806
- req-27683
- opt-27684
- (cons (list k-27805 a-27803 init-27804)
- rkey-27685)))
- tmp-27769)
- (let ((tmp-27807
- ($sc-dispatch args-27682 '(any))))
- (if (if tmp-27807
+ (lambda (a-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-27811)
- (eq? (syntax->datum aok-27811)
+ (lambda (aok-25916)
+ (eq? (syntax->datum aok-25916)
#:allow-other-keys))
- tmp-27807)
+ tmp-25912)
#f)
(@apply
- (lambda (aok-27812)
- (check-27404
- req-27683
- opt-27684
+ (lambda (aok-25917)
+ (check-25509
+ req-25788
+ opt-25789
#f
- (cons #t (reverse rkey-27685))))
- tmp-27807)
- (let ((tmp-27815
+ (cons #t (reverse rkey-25790))))
+ tmp-25912)
+ (let ((tmp-25920
($sc-dispatch
- args-27682
+ args-25787
'(any any any))))
- (if (if tmp-27815
+ (if (if tmp-25920
(@apply
- (lambda (aok-27819
- a-27820
- b-27821)
+ (lambda (aok-25924
+ a-25925
+ b-25926)
(if (eq? (syntax->datum
- aok-27819)
+ aok-25924)
#:allow-other-keys)
- (eq? (syntax->datum a-27820)
+ (eq? (syntax->datum a-25925)
#:rest)
#f))
- tmp-27815)
+ tmp-25920)
#f)
(@apply
- (lambda (aok-27822 a-27823 b-27824)
- (rest-27403
- b-27824
- req-27683
- opt-27684
- (cons #t (reverse rkey-27685))))
- tmp-27815)
- (let ((tmp-27827
+ (lambda (aok-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-27682
+ args-25787
'(any . any))))
- (if (if tmp-27827
+ (if (if tmp-25932
(@apply
- (lambda (aok-27831 r-27832)
+ (lambda (aok-25936 r-25937)
(if (eq? (syntax->datum
- aok-27831)
+ aok-25936)
#:allow-other-keys)
- (if (symbol? r-27832)
+ (if (symbol? r-25937)
#t
(if (if (vector?
- r-27832)
+ r-25937)
(if (=
(vector-length
- r-27832)
+ r-25937)
4)
(eq?
(vector-ref
- r-27832
+ r-25937
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- r-27832
+ r-25937
1))
#f))
#f))
- tmp-27827)
+ tmp-25932)
#f)
(@apply
- (lambda (aok-27859 r-27860)
- (rest-27403
- r-27860
- req-27683
- opt-27684
+ (lambda (aok-25964 r-25965)
+ (rest-25508
+ r-25965
+ req-25788
+ opt-25789
(cons #t
- (reverse rkey-27685))))
- tmp-27827)
- (let ((tmp-27863
+ (reverse rkey-25790))))
+ tmp-25932)
+ (let ((tmp-25968
($sc-dispatch
- args-27682
+ args-25787
'(any any))))
- (if (if tmp-27863
+ (if (if tmp-25968
(@apply
- (lambda (a-27867 b-27868)
+ (lambda (a-25972 b-25973)
(eq? (syntax->datum
- a-27867)
+ a-25972)
#:rest))
- tmp-27863)
+ tmp-25968)
#f)
(@apply
- (lambda (a-27869 b-27870)
- (rest-27403
- b-27870
- req-27683
- opt-27684
+ (lambda (a-25974 b-25975)
+ (rest-25508
+ b-25975
+ req-25788
+ opt-25789
(cons #f
(reverse
- rkey-27685))))
- tmp-27863)
- (let ((tmp-27873
- (list args-27682)))
+ rkey-25790))))
+ tmp-25968)
+ (let ((tmp-25978
+ (list args-25787)))
(if (@apply
- (lambda (r-27875)
- (if (symbol? r-27875)
+ (lambda (r-25980)
+ (if (symbol? r-25980)
#t
(if (if (vector?
- r-27875)
+ r-25980)
(if (=
(vector-length
-
r-27875)
+
r-25980)
4)
(eq?
(vector-ref
-
r-27875
+
r-25980
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- r-27875
+ r-25980
1))
#f)))
- tmp-27873)
+ tmp-25978)
(@apply
- (lambda (r-27905)
- (rest-27403
- r-27905
- req-27683
- opt-27684
+ (lambda (r-26010)
+ (rest-25508
+ r-26010
+ req-25788
+ opt-25789
(cons #f
(reverse
-
rkey-27685))))
- tmp-27873)
+
rkey-25790))))
+ tmp-25978)
(syntax-violation
'lambda*
"invalid keyword
argument list"
- orig-args-27399
-
args-27682)))))))))))))))))))))
- (rest-27403
- (lambda (args-27933 req-27934 opt-27935 kw-27936)
- (let ((tmp-27938 (list args-27933)))
+ orig-args-25504
+
args-25787)))))))))))))))))))))
+ (rest-25508
+ (lambda (args-26038 req-26039 opt-26040 kw-26041)
+ (let ((tmp-26043 (list args-26038)))
(if (@apply
- (lambda (r-27940)
- (if (symbol? r-27940)
+ (lambda (r-26045)
+ (if (symbol? r-26045)
#t
- (if (if (vector? r-27940)
- (if (= (vector-length r-27940) 4)
- (eq? (vector-ref r-27940 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-27940 1))
+ (symbol? (vector-ref r-26045 1))
#f)))
- tmp-27938)
+ tmp-26043)
(@apply
- (lambda (r-27970)
- (check-27404
- req-27934
- opt-27935
- r-27970
- kw-27936))
- tmp-27938)
+ (lambda (r-26075)
+ (check-25509
+ req-26039
+ opt-26040
+ r-26075
+ kw-26041))
+ tmp-26043)
(syntax-violation
'lambda*
"invalid rest argument"
- orig-args-27399
- args-27933)))))
- (check-27404
- (lambda (req-27974 opt-27975 rest-27976 kw-27977)
- (if (distinct-bound-ids?-6576
+ orig-args-25504
+ args-26038)))))
+ (check-25509
+ (lambda (req-26079 opt-26080 rest-26081 kw-26082)
+ (if (distinct-bound-ids?-4321
(append
- req-27974
- (map car opt-27975)
- (if rest-27976 (list rest-27976) '())
- (if (pair? kw-27977)
- (map cadr (cdr kw-27977))
+ req-26079
+ (map car opt-26080)
+ (if rest-26081 (list rest-26081) '())
+ (if (pair? kw-26082)
+ (map cadr (cdr kw-26082))
'())))
- (values req-27974 opt-27975 rest-27976 kw-27977)
+ (values req-26079 opt-26080 rest-26081 kw-26082)
(syntax-violation
'lambda*
"duplicate identifier in argument list"
- orig-args-27399)))))
- (req-27400 orig-args-27399 '()))))
- (expand-lambda-case-6597
- (lambda (e-28093
- r-28094
- w-28095
- s-28096
- mod-28097
- get-formals-28098
- clauses-28099)
+ orig-args-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-28100
- (lambda (req-28231
- opt-28232
- rest-28233
- kw-28234
- body-28235)
- (let ((vars-28236 (map gen-var-6599 req-28231))
- (labels-28237 (gen-labels-6552 req-28231)))
- (let ((r*-28238
- (extend-var-env-6544
- labels-28237
- vars-28236
- r-28094))
- (w*-28239
- (make-binding-wrap-6563
- req-28231
- labels-28237
- w-28095)))
- (parse-opt-28101
- (map syntax->datum req-28231)
- opt-28232
- rest-28233
- kw-28234
- body-28235
- (reverse vars-28236)
- r*-28238
- w*-28239
+ ((parse-req-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-28101
- (lambda (req-28425
- opt-28426
- rest-28427
- kw-28428
- body-28429
- vars-28430
- r*-28431
- w*-28432
- out-28433
- inits-28434)
- (if (pair? opt-28426)
- (let ((tmp-28435 (car opt-28426)))
- (let ((tmp-28436 ($sc-dispatch tmp-28435 '(any any))))
- (if tmp-28436
+ (parse-opt-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-28438 i-28439)
- (let ((v-28440
- (let ((id-28448
- (if (if (vector? id-28438)
+ (lambda (id-26543 i-26544)
+ (let ((v-26545
+ (let ((id-26553
+ (if (if (vector? id-26543)
(if (= (vector-length
- id-28438)
+ id-26543)
4)
(eq? (vector-ref
- id-28438
+ id-26543
0)
'syntax-object)
#f)
#f)
- (vector-ref id-28438 1)
- id-28438)))
+ (vector-ref id-26543 1)
+ id-26543)))
(gensym
(string-append
- (symbol->string id-28448)
+ (symbol->string id-26553)
"-")))))
- (let ((l-28441 (gen-labels-6552 (list v-28440))))
- (let ((r**-28442
- (extend-var-env-6544
- l-28441
- (list v-28440)
- r*-28431)))
- (let ((w**-28443
- (make-binding-wrap-6563
- (list id-28438)
- l-28441
- w*-28432)))
- (parse-opt-28101
- req-28425
- (cdr opt-28426)
- rest-28427
- kw-28428
- body-28429
- (cons v-28440 vars-28430)
- r**-28442
- w**-28443
- (cons (syntax->datum id-28438) out-28433)
- (cons (expand-6585
- i-28439
- r*-28431
- w*-28432
- mod-28097)
- inits-28434)))))))
- tmp-28436)
+ (let ((l-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-28435))))
- (if rest-28427
- (let ((v-28686
- (let ((id-28696
- (if (if (vector? rest-28427)
- (if (= (vector-length rest-28427) 4)
- (eq? (vector-ref rest-28427 0)
+ tmp-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-28427 1)
- rest-28427)))
+ (vector-ref rest-26532 1)
+ rest-26532)))
(gensym
(string-append
- (symbol->string id-28696)
+ (symbol->string id-26801)
"-")))))
- (let ((l-28687 (gen-labels-6552 (list v-28686))))
- (let ((r*-28688
- (extend-var-env-6544
- l-28687
- (list v-28686)
- r*-28431)))
- (let ((w*-28689
- (make-binding-wrap-6563
- (list rest-28427)
- l-28687
- w*-28432)))
- (parse-kw-28102
- req-28425
- (if (pair? out-28433) (reverse out-28433) #f)
- (syntax->datum rest-28427)
- (if (pair? kw-28428) (cdr kw-28428) kw-28428)
- body-28429
- (cons v-28686 vars-28430)
- r*-28688
- w*-28689
- (if (pair? kw-28428) (car kw-28428) #f)
+ (let ((l-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-28434)))))
- (parse-kw-28102
- req-28425
- (if (pair? out-28433) (reverse out-28433) #f)
+ inits-26539)))))
+ (parse-kw-26207
+ req-26530
+ (if (pair? out-26538) (reverse out-26538) #f)
#f
- (if (pair? kw-28428) (cdr kw-28428) kw-28428)
- body-28429
- vars-28430
- r*-28431
- w*-28432
- (if (pair? kw-28428) (car kw-28428) #f)
+ (if (pair? kw-26533) (cdr kw-26533) kw-26533)
+ body-26534
+ vars-26535
+ r*-26536
+ w*-26537
+ (if (pair? kw-26533) (car kw-26533) #f)
'()
- inits-28434)))))
- (parse-kw-28102
- (lambda (req-28867
- opt-28868
- rest-28869
- kw-28870
- body-28871
- vars-28872
- r*-28873
- w*-28874
- aok-28875
- out-28876
- inits-28877)
- (if (pair? kw-28870)
- (let ((tmp-28878 (car kw-28870)))
- (let ((tmp-28879
- ($sc-dispatch tmp-28878 '(any any any))))
- (if tmp-28879
+ inits-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-28881 id-28882 i-28883)
- (let ((v-28884
- (let ((id-28892
- (if (if (vector? id-28882)
+ (lambda (k-26986 id-26987 i-26988)
+ (let ((v-26989
+ (let ((id-26997
+ (if (if (vector? id-26987)
(if (= (vector-length
- id-28882)
+ id-26987)
4)
(eq? (vector-ref
- id-28882
+ id-26987
0)
'syntax-object)
#f)
#f)
- (vector-ref id-28882 1)
- id-28882)))
+ (vector-ref id-26987 1)
+ id-26987)))
(gensym
(string-append
- (symbol->string id-28892)
+ (symbol->string id-26997)
"-")))))
- (let ((l-28885 (gen-labels-6552 (list v-28884))))
- (let ((r**-28886
- (extend-var-env-6544
- l-28885
- (list v-28884)
- r*-28873)))
- (let ((w**-28887
- (make-binding-wrap-6563
- (list id-28882)
- l-28885
- w*-28874)))
- (parse-kw-28102
- req-28867
- opt-28868
- rest-28869
- (cdr kw-28870)
- body-28871
- (cons v-28884 vars-28872)
- r**-28886
- w**-28887
- aok-28875
- (cons (list (syntax->datum k-28881)
- (syntax->datum id-28882)
- v-28884)
- out-28876)
- (cons (expand-6585
- i-28883
- r*-28873
- w*-28874
- mod-28097)
- inits-28877)))))))
- tmp-28879)
+ (let ((l-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-28878))))
- (parse-body-28103
- req-28867
- opt-28868
- rest-28869
- (if (if aok-28875 aok-28875 (pair? out-28876))
- (cons aok-28875 (reverse out-28876))
+ tmp-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-28871
- (reverse vars-28872)
- r*-28873
- w*-28874
- (reverse inits-28877)
+ body-26976
+ (reverse vars-26977)
+ r*-26978
+ w*-26979
+ (reverse inits-26982)
'()))))
- (parse-body-28103
- (lambda (req-29139
- opt-29140
- rest-29141
- kw-29142
- body-29143
- vars-29144
- r*-29145
- w*-29146
- inits-29147
- meta-29148)
- (let ((tmp-29150
- ($sc-dispatch body-29143 '(any any . each-any))))
- (if (if tmp-29150
+ (parse-body-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-29154 e1-29155 e2-29156)
- (string? (syntax->datum docstring-29154)))
- tmp-29150)
+ (lambda (docstring-27259 e1-27260 e2-27261)
+ (string? (syntax->datum docstring-27259)))
+ tmp-27255)
#f)
(@apply
- (lambda (docstring-29157 e1-29158 e2-29159)
- (parse-body-28103
- req-29139
- opt-29140
- rest-29141
- kw-29142
- (cons e1-29158 e2-29159)
- vars-29144
- r*-29145
- w*-29146
- inits-29147
+ (lambda (docstring-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-29148
+ meta-27253
(list (cons 'documentation
- (syntax->datum docstring-29157))))))
- tmp-29150)
- (let ((tmp-29160
+ (syntax->datum docstring-27262))))))
+ tmp-27255)
+ (let ((tmp-27265
($sc-dispatch
- body-29143
+ body-27248
'(#(vector #(each (any . any)))
any
.
each-any))))
- (if tmp-29160
+ (if tmp-27265
(@apply
- (lambda (k-29164 v-29165 e1-29166 e2-29167)
- (parse-body-28103
- req-29139
- opt-29140
- rest-29141
- kw-29142
- (cons e1-29166 e2-29167)
- vars-29144
- r*-29145
- w*-29146
- inits-29147
+ (lambda (k-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-29148
- (syntax->datum (map cons k-29164 v-29165)))))
- tmp-29160)
- (let ((tmp-29168
- ($sc-dispatch body-29143 '(any . each-any))))
- (if tmp-29168
+ meta-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-29172 e2-29173)
+ (lambda (e1-27277 e2-27278)
(values
- meta-29148
- req-29139
- opt-29140
- rest-29141
- kw-29142
- inits-29147
- vars-29144
- (expand-body-6589
- (cons e1-29172 e2-29173)
- (wrap-6578
+ meta-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-28093) s-28096 #f)
+ (if (if (pair? e-26198) s-26201 #f)
(set-source-properties!
- e-28093
- s-28096))
- e-28093)
- w-28095
- mod-28097)
- r*-29145
- w*-29146
- mod-28097)))
- tmp-29168)
+ 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-29143))))))))))
- (let ((tmp-28105 ($sc-dispatch clauses-28099 '())))
- (if tmp-28105
- (@apply (lambda () (values '() #f)) tmp-28105)
- (let ((tmp-28109
+ body-27248))))))))))
+ (let ((tmp-26210 ($sc-dispatch clauses-26204 '())))
+ (if tmp-26210
+ (@apply (lambda () (values '() #f)) tmp-26210)
+ (let ((tmp-26214
($sc-dispatch
- clauses-28099
+ clauses-26204
'((any any . each-any)
.
#(each (any any . each-any))))))
- (if tmp-28109
+ (if tmp-26214
(@apply
- (lambda (args-28113
- e1-28114
- e2-28115
- args*-28116
- e1*-28117
- e2*-28118)
+ (lambda (args-26218
+ e1-26219
+ e2-26220
+ args*-26221
+ e1*-26222
+ e2*-26223)
(call-with-values
- (lambda () (get-formals-28098 args-28113))
- (lambda (req-28119 opt-28120 rest-28121 kw-28122)
+ (lambda () (get-formals-26203 args-26218))
+ (lambda (req-26224 opt-26225 rest-26226 kw-26227)
(call-with-values
(lambda ()
- (parse-req-28100
- req-28119
- opt-28120
- rest-28121
- kw-28122
- (cons e1-28114 e2-28115)))
- (lambda (meta-28187
- req-28188
- opt-28189
- rest-28190
- kw-28191
- inits-28192
- vars-28193
- body-28194)
+ (parse-req-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-6597
- e-28093
- r-28094
- w-28095
- s-28096
- mod-28097
- get-formals-28098
- (map (lambda (tmp-4949-28195
- tmp-4948-28196
- tmp-4947-28197)
- (cons tmp-4947-28197
- (cons tmp-4948-28196
- tmp-4949-28195)))
- e2*-28118
- e1*-28117
- args*-28116)))
- (lambda (meta*-28198 else*-28199)
+ (expand-lambda-case-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-28187 meta*-28198)
+ (append meta-26292 meta*-26303)
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
- s-28096
- req-28188
- opt-28189
- rest-28190
- kw-28191
- inits-28192
- vars-28193
- body-28194
- else*-28199)))))))))
- tmp-28109)
+ s-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-28099))))))))
- (strip-6598
- (lambda (x-29210 w-29211)
- (if (memq 'top (car w-29211))
- x-29210
+ clauses-26204))))))))
+ (strip-4343
+ (lambda (x-27315 w-27316)
+ (if (memq 'top (car w-27316))
+ x-27315
(letrec*
- ((f-29212
- (lambda (x-29215)
- (if (if (vector? x-29215)
- (if (= (vector-length x-29215) 4)
- (eq? (vector-ref x-29215 0) 'syntax-object)
+ ((f-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-6598
- (vector-ref x-29215 1)
- (vector-ref x-29215 2))
- (if (pair? x-29215)
- (let ((a-29234 (f-29212 (car x-29215)))
- (d-29235 (f-29212 (cdr x-29215))))
- (if (if (eq? a-29234 (car x-29215))
- (eq? d-29235 (cdr x-29215))
+ (strip-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-29215
- (cons a-29234 d-29235)))
- (if (vector? x-29215)
- (let ((old-29238 (vector->list x-29215)))
- (let ((new-29239 (map f-29212 old-29238)))
+ x-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-29240
- (lambda (l1-29316 l2-29317)
- (if (null? l1-29316)
- x-29215
- (if (eq? (car l1-29316) (car l2-29317))
- (lp-29240 (cdr l1-29316) (cdr l2-29317))
- (list->vector new-29239))))))
- (lp-29240 old-29238 new-29239))))
- x-29215))))))
- (f-29212 x-29210)))))
- (gen-var-6599
- (lambda (id-28243)
- (let ((id-28244
- (if (if (vector? id-28243)
- (if (= (vector-length id-28243) 4)
- (eq? (vector-ref id-28243 0) 'syntax-object)
+ ((lp-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-28243 1)
- id-28243)))
+ (vector-ref id-26348 1)
+ id-26348)))
(gensym
- (string-append (symbol->string id-28244) "-"))))))
+ (string-append (symbol->string id-26349) "-"))))))
(begin
- (set! session-id-6510
- (let ((v-17707
+ (set! session-id-4255
+ (let ((v-15684
(module-variable
(current-module)
'syntax-session-id)))
- (lambda () ((variable-ref v-17707)))))
- (set! transformer-environment-6571
+ (lambda () ((variable-ref v-15684)))))
+ (set! transformer-environment-4316
(make-fluid
- (lambda (k-16750)
+ (lambda (k-14716)
(error "called outside the dynamic extent of a syntax
transformer"))))
(module-define!
(current-module)
@@ -8177,1113 +8192,1104 @@
'let-syntax
'local-syntax
#f))
- (global-extend-6547
+ (global-extend-4292
'core
'syntax-parameterize
- (lambda (e-6720 r-6721 w-6722 s-6723 mod-6724)
- (let ((tmp-6726
+ (lambda (e-4465 r-4466 w-4467 s-4468 mod-4469)
+ (let ((tmp-4471
($sc-dispatch
- e-6720
+ e-4465
'(_ #(each (any any)) any . each-any))))
- (if (if tmp-6726
+ (if (if tmp-4471
(@apply
- (lambda (var-6730 val-6731 e1-6732 e2-6733)
- (valid-bound-ids?-6575 var-6730))
- tmp-6726)
+ (lambda (var-4475 val-4476 e1-4477 e2-4478)
+ (valid-bound-ids?-4320 var-4475))
+ tmp-4471)
#f)
(@apply
- (lambda (var-6811 val-6812 e1-6813 e2-6814)
- (let ((names-6815
- (map (lambda (x-6865)
- (id-var-name-6568 x-6865 w-6722))
- var-6811)))
+ (lambda (var-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-6816 n-6817)
- (let ((atom-key-6818
- (car (let ((t-6825 (assq n-6817 r-6721)))
- (if t-6825
- (cdr t-6825)
- (if (symbol? n-6817)
- (let ((t-6830
-
(get-global-definition-hook-6512
- n-6817
- mod-6724)))
- (if t-6830 t-6830 '(global)))
+ (lambda (id-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? atom-key-6818 'displaced-lexical)
+ (if (eqv? key-4563 'displaced-lexical)
(syntax-violation
'syntax-parameterize
"identifier out of context"
- e-6720
- (wrap-6578
+ e-4465
+ (wrap-4323
(begin
- (if (if (pair? id-6816) s-6723 #f)
- (set-source-properties! id-6816 s-6723))
- id-6816)
- w-6722
- mod-6724)))))
- var-6811
- names-6815)
- (expand-body-6589
- (cons e1-6813 e2-6814)
- (wrap-6578
+ (if (if (pair? id-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-6720) s-6723 #f)
- (set-source-properties! e-6720 s-6723))
- e-6720)
- w-6722
- mod-6724)
- (extend-env-6543
- names-6815
- (let ((trans-r-6951 (macros-only-env-6545 r-6721)))
- (map (lambda (x-6952)
+ (if (if (pair? e-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-6591
- (expand-6585
- x-6952
- trans-r-6951
- w-6722
- mod-6724)
- mod-6724)))
- val-6812))
- r-6721)
- w-6722
- mod-6724))))
- tmp-6726)
+ (eval-local-transformer-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-6578
+ (wrap-4323
(begin
- (if (if (pair? e-6720) s-6723 #f)
- (set-source-properties! e-6720 s-6723))
- e-6720)
- w-6722
- mod-6724))))))
+ (if (if (pair? e-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-7161 r-7162 w-7163 s-7164 mod-7165)
- (let ((tmp-7167 ($sc-dispatch e-7161 '(_ any))))
- (if tmp-7167
+ (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-7170)
- (let ((exp-7174 (strip-6598 e-7170 w-7163)))
+ (lambda (e-4915)
+ (let ((exp-4919 (strip-4343 e-4915 w-4908)))
(make-struct/no-tail
(vector-ref %expanded-vtables 1)
- s-7164
- exp-7174)))
- tmp-7167)
+ s-4909
+ exp-4919)))
+ tmp-4912)
(syntax-violation
'quote
"bad syntax"
- (wrap-6578
+ (wrap-4323
(begin
- (if (if (pair? e-7161) s-7164 #f)
- (set-source-properties! e-7161 s-7164))
- e-7161)
- w-7163
- mod-7165)))))))
- (global-extend-6547
+ (if (if (pair? e-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-7394
- (lambda (src-7496
- e-7497
- r-7498
- maps-7499
- ellipsis?-7500
- mod-7501)
- (if (if (symbol? e-7497)
+ ((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-7497)
- (if (= (vector-length e-7497) 4)
- (eq? (vector-ref e-7497 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-7497 1))
+ (symbol? (vector-ref e-5242 1))
#f))
- (let ((label-7528 (id-var-name-6568 e-7497 '(()))))
- (let ((b-7529
- (let ((t-7536 (assq label-7528 r-7498)))
- (if t-7536
- (cdr t-7536)
- (if (symbol? label-7528)
- (let ((t-7542
- (get-global-definition-hook-6512
- label-7528
- mod-7501)))
- (if t-7542 t-7542 '(global)))
+ (let ((label-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-7529) 'syntax)
+ (if (eq? (car b-5274) 'syntax)
(call-with-values
(lambda ()
- (let ((var.lev-7551 (cdr b-7529)))
- (gen-ref-7395
- src-7496
- (car var.lev-7551)
- (cdr var.lev-7551)
- maps-7499)))
- (lambda (var-7555 maps-7556)
- (values (list 'ref var-7555) maps-7556)))
- (if (ellipsis?-7500 e-7497)
+ (let ((var.lev-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-7496)
- (values (list 'quote e-7497) maps-7499)))))
- (let ((tmp-7558 ($sc-dispatch e-7497 '(any any))))
- (if (if tmp-7558
+ 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-7562 e-7563)
- (ellipsis?-7500 dots-7562))
- tmp-7558)
+ (lambda (dots-5307 e-5308)
+ (ellipsis?-5245 dots-5307))
+ tmp-5303)
#f)
(@apply
- (lambda (dots-7564 e-7565)
- (gen-syntax-7394
- src-7496
- e-7565
- r-7498
- maps-7499
- (lambda (x-7566) #f)
- mod-7501))
- tmp-7558)
- (let ((tmp-7567 ($sc-dispatch e-7497 '(any any . any))))
- (if (if tmp-7567
+ (lambda (dots-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-7571 dots-7572 y-7573)
- (ellipsis?-7500 dots-7572))
- tmp-7567)
+ (lambda (x-5316 dots-5317 y-5318)
+ (ellipsis?-5245 dots-5317))
+ tmp-5312)
#f)
(@apply
- (lambda (x-7574 dots-7575 y-7576)
+ (lambda (x-5319 dots-5320 y-5321)
(letrec*
- ((f-7577
- (lambda (y-7585 k-7586)
- (let ((tmp-7588
+ ((f-5322
+ (lambda (y-5330 k-5331)
+ (let ((tmp-5333
($sc-dispatch
- y-7585
+ y-5330
'(any . any))))
- (if (if tmp-7588
+ (if (if tmp-5333
(@apply
- (lambda (dots-7592 y-7593)
- (ellipsis?-7500 dots-7592))
- tmp-7588)
+ (lambda (dots-5337 y-5338)
+ (ellipsis?-5245 dots-5337))
+ tmp-5333)
#f)
(@apply
- (lambda (dots-7594 y-7595)
- (f-7577
- y-7595
- (lambda (maps-7596)
+ (lambda (dots-5339 y-5340)
+ (f-5322
+ y-5340
+ (lambda (maps-5341)
(call-with-values
(lambda ()
- (k-7586
- (cons '() maps-7596)))
- (lambda (x-7597 maps-7598)
- (if (null? (car maps-7598))
+ (k-5331
+ (cons '() maps-5341)))
+ (lambda (x-5342 maps-5343)
+ (if (null? (car maps-5343))
(syntax-violation
'syntax
"extra ellipsis"
- src-7496)
+ src-5241)
(values
- (let ((map-env-7602
- (car
maps-7598)))
+ (let ((map-env-5347
+ (car
maps-5343)))
(list 'apply
'(primitive
append)
- (gen-map-7397
- x-7597
-
map-env-7602)))
- (cdr maps-7598))))))))
- tmp-7588)
+ (gen-map-5142
+ x-5342
+
map-env-5347)))
+ (cdr maps-5343))))))))
+ tmp-5333)
(call-with-values
(lambda ()
- (gen-syntax-7394
- src-7496
- y-7585
- r-7498
- maps-7499
- ellipsis?-7500
- mod-7501))
- (lambda (y-7605 maps-7606)
+ (gen-syntax-5139
+ src-5241
+ y-5330
+ r-5243
+ maps-5244
+ ellipsis?-5245
+ mod-5246))
+ (lambda (y-5350 maps-5351)
(call-with-values
- (lambda () (k-7586 maps-7606))
- (lambda (x-7607 maps-7608)
+ (lambda () (k-5331 maps-5351))
+ (lambda (x-5352 maps-5353)
(values
- (if (equal? y-7605 ''())
- x-7607
+ (if (equal? y-5350 ''())
+ x-5352
(list 'append
- x-7607
- y-7605))
- maps-7608))))))))))
- (f-7577
- y-7576
- (lambda (maps-7580)
+ x-5352
+ y-5350))
+ maps-5353))))))))))
+ (f-5322
+ y-5321
+ (lambda (maps-5325)
(call-with-values
(lambda ()
- (gen-syntax-7394
- src-7496
- x-7574
- r-7498
- (cons '() maps-7580)
- ellipsis?-7500
- mod-7501))
- (lambda (x-7581 maps-7582)
- (if (null? (car maps-7582))
+ (gen-syntax-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-7496)
+ src-5241)
(values
- (gen-map-7397
- x-7581
- (car maps-7582))
- (cdr maps-7582)))))))))
- tmp-7567)
- (let ((tmp-7624 ($sc-dispatch e-7497 '(any . any))))
- (if tmp-7624
+ (gen-map-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-7628 y-7629)
+ (lambda (x-5373 y-5374)
(call-with-values
(lambda ()
- (gen-syntax-7394
- src-7496
- x-7628
- r-7498
- maps-7499
- ellipsis?-7500
- mod-7501))
- (lambda (x-7630 maps-7631)
+ (gen-syntax-5139
+ src-5241
+ x-5373
+ r-5243
+ maps-5244
+ ellipsis?-5245
+ mod-5246))
+ (lambda (x-5375 maps-5376)
(call-with-values
(lambda ()
- (gen-syntax-7394
- src-7496
- y-7629
- r-7498
- maps-7631
- ellipsis?-7500
- mod-7501))
- (lambda (y-7632 maps-7633)
+ (gen-syntax-5139
+ src-5241
+ y-5374
+ r-5243
+ maps-5376
+ ellipsis?-5245
+ mod-5246))
+ (lambda (y-5377 maps-5378)
(values
- (let ((atom-key-7638 (car y-7632)))
- (if (eqv? atom-key-7638 'quote)
- (if (eq? (car x-7630) 'quote)
+ (let ((key-5383 (car y-5377)))
+ (if (eqv? key-5383 'quote)
+ (if (eq? (car x-5375) 'quote)
(list 'quote
- (cons (car (cdr x-7630))
- (car (cdr
y-7632))))
- (if (eq? (car (cdr y-7632))
+ (cons (car (cdr x-5375))
+ (car (cdr
y-5377))))
+ (if (eq? (car (cdr y-5377))
'())
- (list 'list x-7630)
- (list 'cons x-7630 y-7632)))
- (if (eqv? atom-key-7638 'list)
+ (list 'list x-5375)
+ (list 'cons x-5375 y-5377)))
+ (if (eqv? key-5383 'list)
(cons 'list
- (cons x-7630
- (cdr y-7632)))
- (list 'cons x-7630 y-7632))))
- maps-7633))))))
- tmp-7624)
- (let ((tmp-7667
+ (cons x-5375
+ (cdr y-5377)))
+ (list 'cons x-5375 y-5377))))
+ maps-5378))))))
+ tmp-5369)
+ (let ((tmp-5412
($sc-dispatch
- e-7497
+ e-5242
'#(vector (any . each-any)))))
- (if tmp-7667
+ (if tmp-5412
(@apply
- (lambda (e1-7671 e2-7672)
+ (lambda (e1-5416 e2-5417)
(call-with-values
(lambda ()
- (gen-syntax-7394
- src-7496
- (cons e1-7671 e2-7672)
- r-7498
- maps-7499
- ellipsis?-7500
- mod-7501))
- (lambda (e-7673 maps-7674)
+ (gen-syntax-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-7673) 'list)
- (cons 'vector (cdr e-7673))
- (if (eq? (car e-7673) '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-7673))))
- (list 'list->vector e-7673)))
- maps-7674))))
- tmp-7667)
+ (car (cdr e-5418))))
+ (list 'list->vector e-5418)))
+ maps-5419))))
+ tmp-5412)
(values
- (list 'quote e-7497)
- maps-7499))))))))))))
- (gen-ref-7395
- (lambda (src-7701 var-7702 level-7703 maps-7704)
- (if (= level-7703 0)
- (values var-7702 maps-7704)
- (if (null? maps-7704)
+ (list 'quote e-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-7701)
+ src-5446)
(call-with-values
(lambda ()
- (gen-ref-7395
- src-7701
- var-7702
- (#{1-}# level-7703)
- (cdr maps-7704)))
- (lambda (outer-var-7705 outer-maps-7706)
- (let ((b-7707 (assq outer-var-7705 (car maps-7704))))
- (if b-7707
- (values (cdr b-7707) maps-7704)
- (let ((inner-var-7709
+ (gen-ref-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-7709
- (cons (cons (cons outer-var-7705 inner-var-7709)
- (car maps-7704))
- outer-maps-7706)))))))))))
- (gen-map-7397
- (lambda (e-7723 map-env-7724)
- (let ((formals-7725 (map cdr map-env-7724))
- (actuals-7726
- (map (lambda (x-7728) (list 'ref (car x-7728)))
- map-env-7724)))
- (if (eq? (car e-7723) 'ref)
- (car actuals-7726)
+ inner-var-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-7729)
- (if (eq? (car x-7729) 'ref)
- (memq (car (cdr x-7729)) formals-7725)
+ (lambda (x-5474)
+ (if (eq? (car x-5474) 'ref)
+ (memq (car (cdr x-5474)) formals-5470)
#f))
- (cdr e-7723))
+ (cdr e-5468))
(cons 'map
- (cons (list 'primitive (car e-7723))
- (map (let ((r-7731
+ (cons (list 'primitive (car e-5468))
+ (map (let ((r-5476
(map cons
- formals-7725
- actuals-7726)))
- (lambda (x-7732)
- (cdr (assq (car (cdr x-7732))
- r-7731))))
- (cdr e-7723))))
+ formals-5470
+ actuals-5471)))
+ (lambda (x-5477)
+ (cdr (assq (car (cdr x-5477))
+ r-5476))))
+ (cdr e-5468))))
(cons 'map
- (cons (list 'lambda formals-7725 e-7723)
- actuals-7726)))))))
- (regen-7401
- (lambda (x-7734)
- (let ((atom-key-7735 (car x-7734)))
- (if (eqv? atom-key-7735 'ref)
- (let ((name-7745 (car (cdr x-7734)))
- (var-7746 (car (cdr x-7734))))
+ (cons (list 'lambda formals-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-7745
- var-7746))
- (if (eqv? atom-key-7735 'primitive)
- (let ((name-7758 (car (cdr x-7734))))
+ 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-7758)
+ name-5503)
(make-struct/no-tail
(vector-ref %expanded-vtables 5)
#f
'(guile)
- name-7758
+ name-5503
#f)))
- (if (eqv? atom-key-7735 'quote)
- (let ((exp-7776 (car (cdr x-7734))))
+ (if (eqv? key-5480 'quote)
+ (let ((exp-5521 (car (cdr x-5479))))
(make-struct/no-tail
(vector-ref %expanded-vtables 1)
#f
- exp-7776))
- (if (eqv? atom-key-7735 'lambda)
- (if (list? (car (cdr x-7734)))
- (let ((req-7787 (car (cdr x-7734)))
- (vars-7789 (car (cdr x-7734)))
- (exp-7791
- (regen-7401 (car (cdr (cdr x-7734))))))
- (let ((body-7796
+ exp-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-7787
+ req-5532
#f
#f
#f
'()
- vars-7789
- exp-7791
+ vars-5534
+ exp-5536
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
#f
'()
- body-7796)))
- (error "how did we get here" x-7734))
- (let ((fun-exp-7812
- (let ((name-7821 (car x-7734)))
+ body-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-7821)
+ name-5566)
(make-struct/no-tail
(vector-ref %expanded-vtables 5)
#f
'(guile)
- name-7821
+ name-5566
#f))))
- (arg-exps-7813 (map regen-7401 (cdr x-7734))))
+ (arg-exps-5558 (map regen-5146 (cdr x-5479))))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
#f
- fun-exp-7812
- arg-exps-7813))))))))))
- (lambda (e-7402 r-7403 w-7404 s-7405 mod-7406)
- (let ((e-7407
- (wrap-6578
+ fun-exp-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-7402) s-7405 #f)
- (set-source-properties! e-7402 s-7405))
- e-7402)
- w-7404
- mod-7406)))
- (let ((tmp-7409 ($sc-dispatch e-7407 '(_ any))))
- (if tmp-7409
+ (if (if (pair? e-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-7434)
+ (lambda (x-5179)
(call-with-values
(lambda ()
- (gen-syntax-7394
- e-7407
- x-7434
- r-7403
+ (gen-syntax-5139
+ e-5152
+ x-5179
+ r-5148
'()
- ellipsis?-6593
- mod-7406))
- (lambda (e-7488 maps-7489) (regen-7401 e-7488))))
- tmp-7409)
+ ellipsis?-4338
+ mod-5151))
+ (lambda (e-5233 maps-5234) (regen-5146 e-5233))))
+ tmp-5154)
(syntax-violation
'syntax
"bad `syntax' form"
- e-7407)))))))
- (global-extend-6547
+ e-5152)))))))
+ (global-extend-4292
'core
'lambda
- (lambda (e-8009 r-8010 w-8011 s-8012 mod-8013)
- (let ((tmp-8015
- ($sc-dispatch e-8009 '(_ any any . each-any))))
- (if tmp-8015
+ (lambda (e-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-8019 e1-8020 e2-8021)
+ (lambda (args-5764 e1-5765 e2-5766)
(call-with-values
- (lambda () (lambda-formals-6594 args-8019))
- (lambda (req-8024 opt-8025 rest-8026 kw-8027)
+ (lambda () (lambda-formals-4339 args-5764))
+ (lambda (req-5769 opt-5770 rest-5771 kw-5772)
(letrec*
- ((lp-8028
- (lambda (body-8031 meta-8032)
- (let ((tmp-8034
+ ((lp-5773
+ (lambda (body-5776 meta-5777)
+ (let ((tmp-5779
($sc-dispatch
- body-8031
+ body-5776
'(any any . each-any))))
- (if (if tmp-8034
+ (if (if tmp-5779
(@apply
- (lambda (docstring-8038 e1-8039 e2-8040)
+ (lambda (docstring-5783 e1-5784 e2-5785)
(string?
- (syntax->datum docstring-8038)))
- tmp-8034)
+ (syntax->datum docstring-5783)))
+ tmp-5779)
#f)
(@apply
- (lambda (docstring-8041 e1-8042 e2-8043)
- (lp-8028
- (cons e1-8042 e2-8043)
+ (lambda (docstring-5786 e1-5787 e2-5788)
+ (lp-5773
+ (cons e1-5787 e2-5788)
(append
- meta-8032
+ meta-5777
(list (cons 'documentation
(syntax->datum
- docstring-8041))))))
- tmp-8034)
- (let ((tmp-8044
+ docstring-5786))))))
+ tmp-5779)
+ (let ((tmp-5789
($sc-dispatch
- body-8031
+ body-5776
'(#(vector #(each (any . any)))
any
.
each-any))))
- (if tmp-8044
+ (if tmp-5789
(@apply
- (lambda (k-8048 v-8049 e1-8050 e2-8051)
- (lp-8028
- (cons e1-8050 e2-8051)
+ (lambda (k-5793 v-5794 e1-5795 e2-5796)
+ (lp-5773
+ (cons e1-5795 e2-5796)
(append
- meta-8032
+ meta-5777
(syntax->datum
- (map cons k-8048 v-8049)))))
- tmp-8044)
- (expand-simple-lambda-6595
- e-8009
- r-8010
- w-8011
- s-8012
- mod-8013
- req-8024
- rest-8026
- meta-8032
- body-8031))))))))
- (lp-8028 (cons e1-8020 e2-8021) '())))))
- tmp-8015)
- (syntax-violation 'lambda "bad lambda" e-8009)))))
- (global-extend-6547
+ (map cons k-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-8340 r-8341 w-8342 s-8343 mod-8344)
- (let ((tmp-8346
- ($sc-dispatch e-8340 '(_ any any . each-any))))
- (if tmp-8346
+ (lambda (e-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-8350 e1-8351 e2-8352)
+ (lambda (args-6095 e1-6096 e2-6097)
(call-with-values
(lambda ()
- (expand-lambda-case-6597
- e-8340
- r-8341
- w-8342
- s-8343
- mod-8344
- lambda*-formals-6596
- (list (cons args-8350 (cons e1-8351 e2-8352)))))
- (lambda (meta-8355 lcase-8356)
+ (expand-lambda-case-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-8343
- meta-8355
- lcase-8356))))
- tmp-8346)
- (syntax-violation 'lambda "bad lambda*" e-8340)))))
- (global-extend-6547
+ s-6088
+ meta-6100
+ lcase-6101))))
+ tmp-6091)
+ (syntax-violation 'lambda "bad lambda*" e-6085)))))
+ (global-extend-4292
'core
'case-lambda
- (lambda (e-8526 r-8527 w-8528 s-8529 mod-8530)
- (let ((tmp-8532
+ (lambda (e-6271 r-6272 w-6273 s-6274 mod-6275)
+ (let ((tmp-6277
($sc-dispatch
- e-8526
+ e-6271
'(_ (any any . each-any)
.
#(each (any any . each-any))))))
- (if tmp-8532
+ (if tmp-6277
(@apply
- (lambda (args-8536
- e1-8537
- e2-8538
- args*-8539
- e1*-8540
- e2*-8541)
+ (lambda (args-6281
+ e1-6282
+ e2-6283
+ args*-6284
+ e1*-6285
+ e2*-6286)
(call-with-values
(lambda ()
- (expand-lambda-case-6597
- e-8526
- r-8527
- w-8528
- s-8529
- mod-8530
- lambda-formals-6594
- (cons (cons args-8536 (cons e1-8537 e2-8538))
- (map (lambda (tmp-5448-8544
- tmp-5447-8545
- tmp-5446-8546)
- (cons tmp-5446-8546
- (cons tmp-5447-8545 tmp-5448-8544)))
- e2*-8541
- e1*-8540
- args*-8539))))
- (lambda (meta-8547 lcase-8548)
+ (expand-lambda-case-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-8529
- meta-8547
- lcase-8548))))
- tmp-8532)
+ s-6274
+ meta-6292
+ lcase-6293))))
+ tmp-6277)
(syntax-violation
'case-lambda
"bad case-lambda"
- e-8526)))))
- (global-extend-6547
+ e-6271)))))
+ (global-extend-4292
'core
'case-lambda*
- (lambda (e-8710 r-8711 w-8712 s-8713 mod-8714)
- (let ((tmp-8716
+ (lambda (e-6455 r-6456 w-6457 s-6458 mod-6459)
+ (let ((tmp-6461
($sc-dispatch
- e-8710
+ e-6455
'(_ (any any . each-any)
.
#(each (any any . each-any))))))
- (if tmp-8716
+ (if tmp-6461
(@apply
- (lambda (args-8720
- e1-8721
- e2-8722
- args*-8723
- e1*-8724
- e2*-8725)
+ (lambda (args-6465
+ e1-6466
+ e2-6467
+ args*-6468
+ e1*-6469
+ e2*-6470)
(call-with-values
(lambda ()
- (expand-lambda-case-6597
- e-8710
- r-8711
- w-8712
- s-8713
- mod-8714
- lambda*-formals-6596
- (cons (cons args-8720 (cons e1-8721 e2-8722))
- (map (lambda (tmp-5483-8728
- tmp-5482-8729
- tmp-5481-8730)
- (cons tmp-5481-8730
- (cons tmp-5482-8729 tmp-5483-8728)))
- e2*-8725
- e1*-8724
- args*-8723))))
- (lambda (meta-8731 lcase-8732)
+ (expand-lambda-case-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-8713
- meta-8731
- lcase-8732))))
- tmp-8716)
+ s-6458
+ meta-6476
+ lcase-6477))))
+ tmp-6461)
(syntax-violation
'case-lambda
"bad case-lambda*"
- e-8710)))))
- (global-extend-6547
+ e-6455)))))
+ (global-extend-4292
'core
'let
(letrec*
- ((expand-let-8923
- (lambda (e-9072
- r-9073
- w-9074
- s-9075
- mod-9076
- constructor-9077
- ids-9078
- vals-9079
- exps-9080)
- (if (not (valid-bound-ids?-6575 ids-9078))
+ ((expand-let-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-9072)
- (let ((labels-9158 (gen-labels-6552 ids-9078))
- (new-vars-9159 (map gen-var-6599 ids-9078)))
- (let ((nw-9160
- (make-binding-wrap-6563
- ids-9078
- labels-9158
- w-9074))
- (nr-9161
- (extend-var-env-6544
- labels-9158
- new-vars-9159
- r-9073)))
- (constructor-9077
- s-9075
- (map syntax->datum ids-9078)
- new-vars-9159
- (map (lambda (x-9178)
- (expand-6585 x-9178 r-9073 w-9074 mod-9076))
- vals-9079)
- (expand-body-6589
- exps-9080
- (source-wrap-6579 e-9072 nw-9160 s-9075 mod-9076)
- nr-9161
- nw-9160
- mod-9076))))))))
- (lambda (e-8924 r-8925 w-8926 s-8927 mod-8928)
- (let ((tmp-8930
+ e-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-8924
+ e-6669
'(_ #(each (any any)) any . each-any))))
- (if (if tmp-8930
+ (if (if tmp-6675
(@apply
- (lambda (id-8934 val-8935 e1-8936 e2-8937)
- (and-map id?-6549 id-8934))
- tmp-8930)
+ (lambda (id-6679 val-6680 e1-6681 e2-6682)
+ (and-map id?-4294 id-6679))
+ tmp-6675)
#f)
(@apply
- (lambda (id-8953 val-8954 e1-8955 e2-8956)
- (expand-let-8923
- e-8924
- r-8925
- w-8926
- s-8927
- mod-8928
- build-let-6531
- id-8953
- val-8954
- (cons e1-8955 e2-8956)))
- tmp-8930)
- (let ((tmp-8986
+ (lambda (id-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-8924
+ e-6669
'(_ any #(each (any any)) any . each-any))))
- (if (if tmp-8986
+ (if (if tmp-6731
(@apply
- (lambda (f-8990 id-8991 val-8992 e1-8993 e2-8994)
- (if (if (symbol? f-8990)
+ (lambda (f-6735 id-6736 val-6737 e1-6738 e2-6739)
+ (if (if (symbol? f-6735)
#t
- (if (if (vector? f-8990)
- (if (= (vector-length f-8990) 4)
- (eq? (vector-ref f-8990 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-8990 1))
+ (symbol? (vector-ref f-6735 1))
#f))
- (and-map id?-6549 id-8991)
+ (and-map id?-4294 id-6736)
#f))
- tmp-8986)
+ tmp-6731)
#f)
(@apply
- (lambda (f-9036 id-9037 val-9038 e1-9039 e2-9040)
- (expand-let-8923
- e-8924
- r-8925
- w-8926
- s-8927
- mod-8928
- build-named-let-6532
- (cons f-9036 id-9037)
- val-9038
- (cons e1-9039 e2-9040)))
- tmp-8986)
+ (lambda (f-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-6578
+ (wrap-4323
(begin
- (if (if (pair? e-8924) s-8927 #f)
- (set-source-properties! e-8924 s-8927))
- e-8924)
- w-8926
- mod-8928)))))))))
- (global-extend-6547
+ (if (if (pair? e-6669) s-6672 #f)
+ (set-source-properties! e-6669 s-6672))
+ e-6669)
+ w-6671
+ mod-6673)))))))))
+ (global-extend-4292
'core
'letrec
- (lambda (e-9590 r-9591 w-9592 s-9593 mod-9594)
- (let ((tmp-9596
+ (lambda (e-7335 r-7336 w-7337 s-7338 mod-7339)
+ (let ((tmp-7341
($sc-dispatch
- e-9590
+ e-7335
'(_ #(each (any any)) any . each-any))))
- (if (if tmp-9596
+ (if (if tmp-7341
(@apply
- (lambda (id-9600 val-9601 e1-9602 e2-9603)
- (and-map id?-6549 id-9600))
- tmp-9596)
+ (lambda (id-7345 val-7346 e1-7347 e2-7348)
+ (and-map id?-4294 id-7345))
+ tmp-7341)
#f)
(@apply
- (lambda (id-9619 val-9620 e1-9621 e2-9622)
- (if (not (valid-bound-ids?-6575 id-9619))
+ (lambda (id-7364 val-7365 e1-7366 e2-7367)
+ (if (not (valid-bound-ids?-4320 id-7364))
(syntax-violation
'letrec
"duplicate bound variable"
- e-9590)
- (let ((labels-9712 (gen-labels-6552 id-9619))
- (new-vars-9713 (map gen-var-6599 id-9619)))
- (let ((w-9714
- (make-binding-wrap-6563
- id-9619
- labels-9712
- w-9592))
- (r-9715
- (extend-var-env-6544
- labels-9712
- new-vars-9713
- r-9591)))
- (build-letrec-6533
- s-9593
+ e-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-9619)
- new-vars-9713
- (map (lambda (x-9800)
- (expand-6585 x-9800 r-9715 w-9714 mod-9594))
- val-9620)
- (expand-body-6589
- (cons e1-9621 e2-9622)
- (wrap-6578
+ (map syntax->datum id-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-9590) s-9593 #f)
- (set-source-properties! e-9590 s-9593))
- e-9590)
- w-9714
- mod-9594)
- r-9715
- w-9714
- mod-9594))))))
- tmp-9596)
+ (if (if (pair? e-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-6578
+ (wrap-4323
(begin
- (if (if (pair? e-9590) s-9593 #f)
- (set-source-properties! e-9590 s-9593))
- e-9590)
- w-9592
- mod-9594))))))
- (global-extend-6547
+ (if (if (pair? e-7335) s-7338 #f)
+ (set-source-properties! e-7335 s-7338))
+ e-7335)
+ w-7337
+ mod-7339))))))
+ (global-extend-4292
'core
'letrec*
- (lambda (e-10195 r-10196 w-10197 s-10198 mod-10199)
- (let ((tmp-10201
+ (lambda (e-7940 r-7941 w-7942 s-7943 mod-7944)
+ (let ((tmp-7946
($sc-dispatch
- e-10195
+ e-7940
'(_ #(each (any any)) any . each-any))))
- (if (if tmp-10201
+ (if (if tmp-7946
(@apply
- (lambda (id-10205 val-10206 e1-10207 e2-10208)
- (and-map id?-6549 id-10205))
- tmp-10201)
+ (lambda (id-7950 val-7951 e1-7952 e2-7953)
+ (and-map id?-4294 id-7950))
+ tmp-7946)
#f)
(@apply
- (lambda (id-10224 val-10225 e1-10226 e2-10227)
- (if (not (valid-bound-ids?-6575 id-10224))
+ (lambda (id-7969 val-7970 e1-7971 e2-7972)
+ (if (not (valid-bound-ids?-4320 id-7969))
(syntax-violation
'letrec*
"duplicate bound variable"
- e-10195)
- (let ((labels-10317 (gen-labels-6552 id-10224))
- (new-vars-10318 (map gen-var-6599 id-10224)))
- (let ((w-10319
- (make-binding-wrap-6563
- id-10224
- labels-10317
- w-10197))
- (r-10320
- (extend-var-env-6544
- labels-10317
- new-vars-10318
- r-10196)))
- (build-letrec-6533
- s-10198
+ e-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-10224)
- new-vars-10318
- (map (lambda (x-10405)
- (expand-6585
- x-10405
- r-10320
- w-10319
- mod-10199))
- val-10225)
- (expand-body-6589
- (cons e1-10226 e2-10227)
- (wrap-6578
+ (map syntax->datum id-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-10195) s-10198 #f)
- (set-source-properties! e-10195 s-10198))
- e-10195)
- w-10319
- mod-10199)
- r-10320
- w-10319
- mod-10199))))))
- tmp-10201)
+ (if (if (pair? e-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-6578
+ (wrap-4323
(begin
- (if (if (pair? e-10195) s-10198 #f)
- (set-source-properties! e-10195 s-10198))
- e-10195)
- w-10197
- mod-10199))))))
- (global-extend-6547
+ (if (if (pair? e-7940) s-7943 #f)
+ (set-source-properties! e-7940 s-7943))
+ e-7940)
+ w-7942
+ mod-7944))))))
+ (global-extend-4292
'core
'set!
- (lambda (e-10839 r-10840 w-10841 s-10842 mod-10843)
- (let ((tmp-10845 ($sc-dispatch e-10839 '(_ any any))))
- (if (if tmp-10845
+ (lambda (e-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-10849 val-10850)
- (if (symbol? id-10849)
+ (lambda (id-8594 val-8595)
+ (if (symbol? id-8594)
#t
- (if (if (vector? id-10849)
- (if (= (vector-length id-10849) 4)
- (eq? (vector-ref id-10849 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-10849 1))
+ (symbol? (vector-ref id-8594 1))
#f)))
- tmp-10845)
+ tmp-8590)
#f)
(@apply
- (lambda (id-10877 val-10878)
- (let ((n-10879 (id-var-name-6568 id-10877 w-10841))
- (id-mod-10880
- (if (if (vector? id-10877)
- (if (= (vector-length id-10877) 4)
- (eq? (vector-ref id-10877 0) 'syntax-object)
+ (lambda (id-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-10877 3)
- mod-10843)))
- (let ((b-10881
- (let ((t-10922 (assq n-10879 r-10840)))
- (if t-10922
- (cdr t-10922)
- (if (symbol? n-10879)
- (let ((t-10927
- (get-global-definition-hook-6512
- n-10879
- id-mod-10880)))
- (if t-10927 t-10927 '(global)))
+ (vector-ref id-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 ((atom-key-10882 (car b-10881)))
- (if (eqv? atom-key-10882 'lexical)
- (build-lexical-assignment-6520
- s-10842
- (syntax->datum id-10877)
- (cdr b-10881)
- (expand-6585 val-10878 r-10840 w-10841 mod-10843))
- (if (eqv? atom-key-10882 'global)
- (build-global-assignment-6523
- s-10842
- n-10879
- (expand-6585 val-10878 r-10840 w-10841 mod-10843)
- id-mod-10880)
- (if (eqv? atom-key-10882 'macro)
- (let ((p-11241 (cdr b-10881)))
+ (let ((key-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-11241
+ p-8986
'variable-transformer)
- (expand-6585
- (expand-macro-6588
- p-11241
- e-10839
- r-10840
- w-10841
- s-10842
+ (expand-4330
+ (expand-macro-4333
+ p-8986
+ e-8584
+ r-8585
+ w-8586
+ s-8587
#f
- mod-10843)
- r-10840
+ mod-8588)
+ r-8585
'(())
- mod-10843)
+ mod-8588)
(syntax-violation
'set!
"not a variable transformer"
- (wrap-6578 e-10839 w-10841 mod-10843)
- (wrap-6578
- id-10877
- w-10841
- id-mod-10880))))
- (if (eqv? atom-key-10882 'displaced-lexical)
+ (wrap-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-6578 id-10877 w-10841 mod-10843))
+ (wrap-4323 id-8622 w-8586 mod-8588))
(syntax-violation
'set!
"bad set!"
- (wrap-6578
+ (wrap-4323
(begin
- (if (if (pair? e-10839) s-10842 #f)
- (set-source-properties!
- e-10839
- s-10842))
- e-10839)
- w-10841
- mod-10843))))))))))
- tmp-10845)
- (let ((tmp-11336
- ($sc-dispatch e-10839 '(_ (any . each-any) any))))
- (if tmp-11336
+ (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-11340 tail-11341 val-11342)
+ (lambda (head-9085 tail-9086 val-9087)
(call-with-values
(lambda ()
- (syntax-type-6584
- head-11340
- r-10840
+ (syntax-type-4329
+ head-9085
+ r-8585
'(())
#f
#f
- mod-10843
+ mod-8588
#t))
- (lambda (type-11345
- value-11346
- formform-11347
- ee-11348
- ww-11349
- ss-11350
- modmod-11351)
- (if (eqv? type-11345 'module-ref)
- (let ((val-11355
- (expand-6585
- val-11342
- r-10840
- w-10841
- mod-10843)))
+ (lambda (type-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-11346
- (cons head-11340 tail-11341)
- r-10840
- w-10841))
- (lambda (e-11356
- r-11357
- w-11358
- s*-11359
- mod-11360)
- (let ((tmp-11362 (list e-11356)))
+ (value-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-11364)
- (if (symbol? e-11364)
+ (lambda (e-9111)
+ (if (symbol? e-9111)
#t
- (if (if (vector? e-11364)
+ (if (if (vector? e-9111)
(if (= (vector-length
- e-11364)
+ e-9111)
4)
(eq? (vector-ref
- e-11364
+ e-9111
0)
'syntax-object)
#f)
#f)
- (symbol?
- (vector-ref e-11364 1))
+ (symbol? (vector-ref e-9111 1))
#f)))
- tmp-11362)
+ tmp-9109)
(@apply
- (lambda (e-11394)
- (build-global-assignment-6523
- s-10842
- (syntax->datum e-11394)
- val-11355
- mod-11360))
- tmp-11362)
+ (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-11356))))))
- (build-application-6516
- s-10842
- (let ((e-11619
+ e-9103))))))
+ (build-application-4261
+ s-8587
+ (let ((e-9366
(list '#(syntax-object
setter
((top)
#(ribcage () () ())
+ #(ribcage
+ #(key)
+ #((m-*-3553 top))
+ #("l-*-3554"))
+ #(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(type
@@ -9300,19 +9306,19 @@
(top)
(top)
(top))
- #("l-*-5730"
- "l-*-5731"
- "l-*-5732"
- "l-*-5733"
- "l-*-5734"
- "l-*-5735"
- "l-*-5736"))
+ #("l-*-3546"
+ "l-*-3547"
+ "l-*-3548"
+ "l-*-3549"
+ "l-*-3550"
+ "l-*-3551"
+ "l-*-3552"))
#(ribcage
#(head tail val)
#((top) (top) (top))
- #("l-*-5715"
- "l-*-5716"
- "l-*-5717"))
+ #("l-*-3531"
+ "l-*-3532"
+ "l-*-3533"))
#(ribcage () () ())
#(ribcage
#(e r w s mod)
@@ -9321,11 +9327,11 @@
(top)
(top)
(top))
- #("l-*-5679"
- "l-*-5680"
- "l-*-5681"
- "l-*-5682"
- "l-*-5683"))
+ #("l-*-3500"
+ "l-*-3501"
+ "l-*-3502"
+ "l-*-3503"
+ "l-*-3504"))
#(ribcage
(lambda-var-list
gen-var
@@ -9607,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-11340)))
+ head-9085)))
(call-with-values
(lambda ()
- (syntax-type-6584
- e-11619
- r-10840
- w-10841
- (source-annotation-6542 e-11619)
+ (syntax-type-4329
+ e-9366
+ r-8585
+ w-8586
+ (source-annotation-4287 e-9366)
#f
- mod-10843
+ mod-8588
#f))
- (lambda (type-11626
- value-11627
- form-11628
- e-11629
- w-11630
- s-11631
- mod-11632)
- (expand-expr-6586
- type-11626
- value-11627
- form-11628
- e-11629
- r-10840
- w-11630
- s-11631
- mod-11632))))
- (map (lambda (e-11636)
+ (lambda (type-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-6584
- e-11636
- r-10840
- w-10841
- (source-annotation-6542 e-11636)
+ (syntax-type-4329
+ e-9383
+ r-8585
+ w-8586
+ (source-annotation-4287 e-9383)
#f
- mod-10843
+ mod-8588
#f))
- (lambda (type-11651
- value-11652
- form-11653
- e-11654
- w-11655
- s-11656
- mod-11657)
- (expand-expr-6586
- type-11651
- value-11652
- form-11653
- e-11654
- r-10840
- w-11655
- s-11656
- mod-11657))))
- (append tail-11341 (list val-11342))))))))
- tmp-11336)
+ (lambda (type-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-6578
+ (wrap-4323
(begin
- (if (if (pair? e-10839) s-10842 #f)
- (set-source-properties! e-10839 s-10842))
- e-10839)
- w-10841
- mod-10843))))))))
+ (if (if (pair? e-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-11700 r-11701 w-11702)
- (let ((tmp-11704
- ($sc-dispatch e-11700 '(_ each-any any))))
- (if (if tmp-11704
+ (lambda (e-9447 r-9448 w-9449)
+ (let ((tmp-9451
+ ($sc-dispatch e-9447 '(_ each-any any))))
+ (if (if tmp-9451
(@apply
- (lambda (mod-11707 id-11708)
- (if (and-map id?-6549 mod-11707)
- (if (symbol? id-11708)
+ (lambda (mod-9454 id-9455)
+ (if (and-map id?-4294 mod-9454)
+ (if (symbol? id-9455)
#t
- (if (if (vector? id-11708)
- (if (= (vector-length id-11708) 4)
- (eq? (vector-ref id-11708 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-11708 1))
+ (symbol? (vector-ref id-9455 1))
#f))
#f))
- tmp-11704)
+ tmp-9451)
#f)
(@apply
- (lambda (mod-11748 id-11749)
+ (lambda (mod-9495 id-9496)
(values
- (syntax->datum id-11749)
- r-11701
- w-11702
+ (syntax->datum id-9496)
+ r-9448
+ w-9449
#f
(syntax->datum
(cons '#(syntax-object
@@ -9862,12 +9867,12 @@
#(ribcage
#(mod id)
#((top) (top))
- #("l-*-5778" "l-*-5779"))
+ #("l-*-3595" "l-*-3596"))
#(ribcage () () ())
#(ribcage
#(e r w)
#((top) (top) (top))
- #("l-*-5766" "l-*-5767" "l-*-5768"))
+ #("l-*-3583" "l-*-3584" "l-*-3585"))
#(ribcage
(lambda-var-list
gen-var
@@ -10149,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-11748))))
- tmp-11704)
+ mod-9495))))
+ tmp-9451)
(syntax-violation
#f
"source expression failed to match any pattern"
- e-11700))))))
- (global-extend-6547
+ e-9447))))))
+ (global-extend-4292
'module-ref
'@@
- (lambda (e-11841 r-11842 w-11843)
+ (lambda (e-9588 r-9589 w-9590)
(letrec*
- ((remodulate-11844
- (lambda (x-11879 mod-11880)
- (if (pair? x-11879)
- (cons (remodulate-11844 (car x-11879) mod-11880)
- (remodulate-11844 (cdr x-11879) mod-11880))
- (if (if (vector? x-11879)
- (if (= (vector-length x-11879) 4)
- (eq? (vector-ref x-11879 0) 'syntax-object)
+ ((remodulate-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-11894
- (remodulate-11844
- (vector-ref x-11879 1)
- mod-11880))
- (wrap-11895 (vector-ref x-11879 2)))
+ (let ((expression-9641
+ (remodulate-9591 (vector-ref x-9626 1) mod-9627))
+ (wrap-9642 (vector-ref x-9626 2)))
(vector
'syntax-object
- expression-11894
- wrap-11895
- mod-11880))
- (if (vector? x-11879)
- (let ((n-11903 (vector-length x-11879)))
- (let ((v-11904 (make-vector n-11903)))
+ expression-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-11905
- (lambda (i-11952)
- (if (= i-11952 n-11903)
- v-11904
+ ((loop-9652
+ (lambda (i-9699)
+ (if (= i-9699 n-9650)
+ v-9651
(begin
(vector-set!
- v-11904
- i-11952
- (remodulate-11844
- (vector-ref x-11879 i-11952)
- mod-11880))
- (loop-11905 (#{1+}# i-11952)))))))
- (loop-11905 0))))
- x-11879))))))
- (let ((tmp-11846
- ($sc-dispatch e-11841 '(_ each-any any))))
- (if (if tmp-11846
+ v-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-11850 exp-11851)
- (and-map id?-6549 mod-11850))
- tmp-11846)
+ (lambda (mod-9597 exp-9598)
+ (and-map id?-4294 mod-9597))
+ tmp-9593)
#f)
(@apply
- (lambda (mod-11867 exp-11868)
- (let ((mod-11869
+ (lambda (mod-9614 exp-9615)
+ (let ((mod-9616
(syntax->datum
(cons '#(syntax-object
private
@@ -10363,15 +10366,15 @@
#(ribcage
#(mod exp)
#((top) (top))
- #("l-*-5822" "l-*-5823"))
+ #("l-*-3633" "l-*-3634"))
#(ribcage
(remodulate)
((top))
- ("l-*-5789"))
+ ("l-*-3606"))
#(ribcage
#(e r w)
#((top) (top) (top))
- #("l-*-5786" "l-*-5787" "l-*-5788"))
+ #("l-*-3603" "l-*-3604" "l-*-3605"))
#(ribcage
(lambda-var-list
gen-var
@@ -10653,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-11867))))
+ mod-9614))))
(values
- (remodulate-11844 exp-11868 mod-11869)
- r-11842
- w-11843
- (source-annotation-6542 exp-11868)
- mod-11869)))
- tmp-11846)
+ (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-11841))))))
- (global-extend-6547
+ e-9588))))))
+ (global-extend-4292
'core
'if
- (lambda (e-12053 r-12054 w-12055 s-12056 mod-12057)
- (let ((tmp-12059 ($sc-dispatch e-12053 '(_ any any))))
- (if tmp-12059
+ (lambda (e-9800 r-9801 w-9802 s-9803 mod-9804)
+ (let ((tmp-9806 ($sc-dispatch e-9800 '(_ any any))))
+ (if tmp-9806
(@apply
- (lambda (test-12063 then-12064)
- (build-conditional-6517
- s-12056
- (expand-6585
- test-12063
- r-12054
- w-12055
- mod-12057)
- (expand-6585
- then-12064
- r-12054
- w-12055
- mod-12057)
+ (lambda (test-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-12059)
- (let ((tmp-12289
- ($sc-dispatch e-12053 '(_ any any any))))
- (if tmp-12289
+ tmp-9806)
+ (let ((tmp-10036
+ ($sc-dispatch e-9800 '(_ any any any))))
+ (if tmp-10036
(@apply
- (lambda (test-12293 then-12294 else-12295)
- (build-conditional-6517
- s-12056
- (expand-6585
- test-12293
- r-12054
- w-12055
- mod-12057)
- (expand-6585
- then-12294
- r-12054
- w-12055
- mod-12057)
- (expand-6585
- else-12295
- r-12054
- w-12055
- mod-12057)))
- tmp-12289)
+ (lambda (test-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-12053)))))))
- (global-extend-6547
+ e-9800)))))))
+ (global-extend-4292
'core
'with-fluids
- (lambda (e-12694 r-12695 w-12696 s-12697 mod-12698)
- (let ((tmp-12700
+ (lambda (e-10441 r-10442 w-10443 s-10444 mod-10445)
+ (let ((tmp-10447
($sc-dispatch
- e-12694
+ e-10441
'(_ #(each (any any)) any . each-any))))
- (if tmp-12700
+ (if tmp-10447
(@apply
- (lambda (fluid-12704 val-12705 b-12706 b*-12707)
- (build-dynlet-6518
- s-12697
- (map (lambda (x-12788)
- (expand-6585 x-12788 r-12695 w-12696 mod-12698))
- fluid-12704)
- (map (lambda (x-12858)
- (expand-6585 x-12858 r-12695 w-12696 mod-12698))
- val-12705)
- (expand-body-6589
- (cons b-12706 b*-12707)
- (wrap-6578
+ (lambda (fluid-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-12694) s-12697 #f)
- (set-source-properties! e-12694 s-12697))
- e-12694)
- w-12696
- mod-12698)
- r-12695
- w-12696
- mod-12698)))
- tmp-12700)
+ (if (if (pair? e-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-12694)))))
+ e-10441)))))
(module-define!
(current-module)
'begin
@@ -10928,60 +10911,60 @@
'eval-when
'eval-when
'()))
- (global-extend-6547
+ (global-extend-4292
'core
'syntax-case
(letrec*
- ((convert-pattern-13226
- (lambda (pattern-14823 keys-14824)
+ ((convert-pattern-10973
+ (lambda (pattern-12570 keys-12571)
(letrec*
- ((cvt*-14825
- (lambda (p*-15449 n-15450 ids-15451)
- (if (not (pair? p*-15449))
- (cvt-14827 p*-15449 n-15450 ids-15451)
+ ((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*-14825 (cdr p*-15449) n-15450 ids-15451))
- (lambda (y-15454 ids-15455)
+ (cvt*-12572 (cdr p*-13196) n-13197 ids-13198))
+ (lambda (y-13201 ids-13202)
(call-with-values
(lambda ()
- (cvt-14827 (car p*-15449) n-15450 ids-15455))
- (lambda (x-15458 ids-15459)
+ (cvt-12574 (car p*-13196) n-13197 ids-13202))
+ (lambda (x-13205 ids-13206)
(values
- (cons x-15458 y-15454)
- ids-15459))))))))
- (v-reverse-14826
- (lambda (x-15460)
+ (cons x-13205 y-13201)
+ ids-13206))))))))
+ (v-reverse-12573
+ (lambda (x-13207)
(letrec*
- ((loop-15461
- (lambda (r-15541 x-15542)
- (if (not (pair? x-15542))
- (values r-15541 x-15542)
- (loop-15461
- (cons (car x-15542) r-15541)
- (cdr x-15542))))))
- (loop-15461 '() x-15460))))
- (cvt-14827
- (lambda (p-14830 n-14831 ids-14832)
- (if (if (symbol? p-14830)
+ ((loop-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-14830)
- (if (= (vector-length p-14830) 4)
- (eq? (vector-ref p-14830 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-14830 1))
+ (symbol? (vector-ref p-12577 1))
#f))
- (if (bound-id-member?-6577 p-14830 keys-14824)
- (values (vector 'free-id p-14830) ids-14832)
- (if (if (eq? (if (if (vector? p-14830)
- (if (= (vector-length p-14830) 4)
- (eq? (vector-ref p-14830 0)
+ (if (bound-id-member?-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-14830 1)
- p-14830)
+ (vector-ref p-12577 1)
+ p-12577)
(if (if (= (vector-length
'#(syntax-object
_
@@ -10990,20 +10973,20 @@
#(ribcage
#(p n ids)
#((top) (top) (top))
- #("l-*-5923"
- "l-*-5924"
- "l-*-5925"))
+ #("l-*-3734"
+ "l-*-3735"
+ "l-*-3736"))
#(ribcage
(cvt v-reverse cvt*)
((top) (top) (top))
- ("l-*-5896"
- "l-*-5894"
- "l-*-5892"))
+ ("l-*-3707"
+ "l-*-3705"
+ "l-*-3703"))
#(ribcage
#(pattern keys)
#((top) (top))
- #("l-*-5890"
- "l-*-5891"))
+ #("l-*-3701"
+ "l-*-3702"))
#(ribcage
(gen-syntax-case
gen-clause
@@ -11013,10 +10996,10 @@
(top)
(top)
(top))
- ("l-*-5886"
- "l-*-5884"
- "l-*-5882"
- "l-*-5880"))
+ ("l-*-3697"
+ "l-*-3695"
+ "l-*-3693"
+ "l-*-3691"))
#(ribcage
(lambda-var-list
gen-var
@@ -11298,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
@@ -11458,29 +11441,29 @@
#(ribcage
#(p n ids)
#((top) (top) (top))
- #("l-*-5923"
- "l-*-5924"
- "l-*-5925"))
+ #("l-*-3734"
+ "l-*-3735"
+ "l-*-3736"))
#(ribcage
(cvt v-reverse cvt*)
((top) (top) (top))
- ("l-*-5896"
- "l-*-5894"
- "l-*-5892"))
+ ("l-*-3707"
+ "l-*-3705"
+ "l-*-3703"))
#(ribcage
#(pattern keys)
#((top) (top))
- #("l-*-5890" "l-*-5891"))
+ #("l-*-3701" "l-*-3702"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("l-*-5886"
- "l-*-5884"
- "l-*-5882"
- "l-*-5880"))
+ ("l-*-3697"
+ "l-*-3695"
+ "l-*-3693"
+ "l-*-3691"))
#(ribcage
(lambda-var-list
gen-var
@@ -11762,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-6568 p-14830 '(()))
- (id-var-name-6568
+ (eq? (id-var-name-4313 p-12577 '(()))
+ (id-var-name-4313
'#(syntax-object
_
((top)
@@ -11920,29 +11901,29 @@
#(ribcage
#(p n ids)
#((top) (top) (top))
- #("l-*-5923"
- "l-*-5924"
- "l-*-5925"))
+ #("l-*-3734"
+ "l-*-3735"
+ "l-*-3736"))
#(ribcage
(cvt v-reverse cvt*)
((top) (top) (top))
- ("l-*-5896"
- "l-*-5894"
- "l-*-5892"))
+ ("l-*-3707"
+ "l-*-3705"
+ "l-*-3703"))
#(ribcage
#(pattern keys)
#((top) (top))
- #("l-*-5890" "l-*-5891"))
+ #("l-*-3701" "l-*-3702"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("l-*-5886"
- "l-*-5884"
- "l-*-5882"
- "l-*-5880"))
+ ("l-*-3697"
+ "l-*-3695"
+ "l-*-3693"
+ "l-*-3691"))
#(ribcage
(lambda-var-list
gen-var
@@ -12224,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-14832)
+ (values '_ ids-12579)
(values
'any
- (cons (cons p-14830 n-14831) ids-14832))))
- (let ((tmp-15152 ($sc-dispatch p-14830 '(any any))))
- (if (if tmp-15152
+ (cons (cons p-12577 n-12578) ids-12579))))
+ (let ((tmp-12899 ($sc-dispatch p-12577 '(any any))))
+ (if (if tmp-12899
(@apply
- (lambda (x-15156 dots-15157)
- (if (if (if (vector? dots-15157)
- (if (= (vector-length dots-15157)
+ (lambda (x-12903 dots-12904)
+ (if (if (if (vector? dots-12904)
+ (if (= (vector-length dots-12904)
4)
- (eq? (vector-ref dots-15157 0)
+ (eq? (vector-ref dots-12904 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref dots-15157 1))
+ (symbol? (vector-ref dots-12904 1))
#f)
- (if (eq? (if (if (vector? dots-15157)
+ (if (eq? (if (if (vector? dots-12904)
(if (= (vector-length
- dots-15157)
+ dots-12904)
4)
(eq? (vector-ref
- dots-15157
+ dots-12904
0)
'syntax-object)
#f)
#f)
- (vector-ref dots-15157 1)
- dots-15157)
+ (vector-ref dots-12904 1)
+ dots-12904)
(if (if (= (vector-length
'#(syntax-object
...
@@ -12419,7 +12398,7 @@
#(ribcage
#(x)
#((top))
-
#("l-*-4404"))
+
#("l-*-2266"))
#(ribcage
(lambda-var-list
gen-var
@@ -12701,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
@@ -12848,9 +12827,9 @@
((top)
(top)
(top))
- ("l-*-2098"
- "l-*-2097"
-
"l-*-2096")))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
(hygiene
guile)))
4)
@@ -12865,7 +12844,7 @@
#(ribcage
#(x)
#((top))
- #("l-*-4404"))
+ #("l-*-2266"))
#(ribcage
(lambda-var-list
gen-var
@@ -13147,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-6568
- dots-15157
+ (eq? (id-var-name-4313
+ dots-12904
'(()))
- (id-var-name-6568
+ (id-var-name-4313
'#(syntax-object
...
((top)
@@ -13308,7 +13287,7 @@
#(ribcage
#(x)
#((top))
- #("l-*-4404"))
+ #("l-*-2266"))
#(ribcage
(lambda-var-list
gen-var
@@ -13590,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-15152)
+ tmp-12899)
#f)
(@apply
- (lambda (x-15257 dots-15258)
+ (lambda (x-13004 dots-13005)
(call-with-values
(lambda ()
- (cvt-14827
- x-15257
- (#{1+}# n-14831)
- ids-14832))
- (lambda (p-15259 ids-15260)
+ (cvt-12574
+ x-13004
+ (#{1+}# n-12578)
+ ids-12579))
+ (lambda (p-13006 ids-13007)
(values
- (if (eq? p-15259 'any)
+ (if (eq? p-13006 'any)
'each-any
- (vector 'each p-15259))
- ids-15260))))
- tmp-15152)
- (let ((tmp-15261
- ($sc-dispatch p-14830 '(any any . any))))
- (if (if tmp-15261
+ (vector 'each p-13006))
+ ids-13007))))
+ tmp-12899)
+ (let ((tmp-13008
+ ($sc-dispatch p-12577 '(any any . any))))
+ (if (if tmp-13008
(@apply
- (lambda (x-15265 dots-15266 ys-15267)
- (if (if (if (vector? dots-15266)
+ (lambda (x-13012 dots-13013 ys-13014)
+ (if (if (if (vector? dots-13013)
(if (= (vector-length
- dots-15266)
+ dots-13013)
4)
(eq? (vector-ref
- dots-15266
+ dots-13013
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref dots-15266 1))
+ (vector-ref dots-13013 1))
#f)
- (if (eq? (if (if (vector? dots-15266)
+ (if (eq? (if (if (vector? dots-13013)
(if (= (vector-length
- dots-15266)
+ dots-13013)
4)
(eq? (vector-ref
- dots-15266
+ dots-13013
0)
'syntax-object)
#f)
#f)
- (vector-ref dots-15266 1)
- dots-15266)
+ (vector-ref dots-13013 1)
+ dots-13013)
(if (if (= (vector-length
'#(syntax-object
...
@@ -13804,7 +13783,7 @@
#(ribcage
#(x)
#((top))
-
#("l-*-4404"))
+
#("l-*-2266"))
#(ribcage
(lambda-var-list
gen-var
@@ -14086,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
@@ -14233,9 +14212,9 @@
((top)
(top)
(top))
-
("l-*-2098"
-
"l-*-2097"
-
"l-*-2096")))
+ ("l-*-47"
+ "l-*-46"
+
"l-*-45")))
(hygiene
guile)))
4)
@@ -14250,7 +14229,7 @@
#(ribcage
#(x)
#((top))
- #("l-*-4404"))
+ #("l-*-2266"))
#(ribcage
(lambda-var-list
gen-var
@@ -14532,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-6568
- dots-15266
+ (eq? (id-var-name-4313
+ dots-13013
'(()))
- (id-var-name-6568
+ (id-var-name-4313
'#(syntax-object
...
((top)
@@ -14693,7 +14672,7 @@
#(ribcage
#(x)
#((top))
- #("l-*-4404"))
+ #("l-*-2266"))
#(ribcage
(lambda-var-list
gen-var
@@ -14975,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-15261)
+ tmp-13008)
#f)
(@apply
- (lambda (x-15367 dots-15368 ys-15369)
+ (lambda (x-13114 dots-13115 ys-13116)
(call-with-values
(lambda ()
- (cvt*-14825
- ys-15369
- n-14831
- ids-14832))
- (lambda (ys-15372 ids-15373)
+ (cvt*-12572
+ ys-13116
+ n-12578
+ ids-12579))
+ (lambda (ys-13119 ids-13120)
(call-with-values
(lambda ()
- (cvt-14827
- x-15367
- (#{1+}# n-14831)
- ids-15373))
- (lambda (x-15374 ids-15375)
+ (cvt-12574
+ x-13114
+ (#{1+}# n-12578)
+ ids-13120))
+ (lambda (x-13121 ids-13122)
(call-with-values
(lambda ()
- (v-reverse-14826 ys-15372))
- (lambda (ys-15408 e-15409)
+ (v-reverse-12573 ys-13119))
+ (lambda (ys-13155 e-13156)
(values
(vector
'each+
- x-15374
- ys-15408
- e-15409)
- ids-15375))))))))
- tmp-15261)
- (let ((tmp-15410
- ($sc-dispatch p-14830 '(any . any))))
- (if tmp-15410
+ x-13121
+ ys-13155
+ e-13156)
+ ids-13122))))))))
+ tmp-13008)
+ (let ((tmp-13157
+ ($sc-dispatch p-12577 '(any . any))))
+ (if tmp-13157
(@apply
- (lambda (x-15414 y-15415)
+ (lambda (x-13161 y-13162)
(call-with-values
(lambda ()
- (cvt-14827
- y-15415
- n-14831
- ids-14832))
- (lambda (y-15416 ids-15417)
+ (cvt-12574
+ y-13162
+ n-12578
+ ids-12579))
+ (lambda (y-13163 ids-13164)
(call-with-values
(lambda ()
- (cvt-14827
- x-15414
- n-14831
- ids-15417))
- (lambda (x-15418 ids-15419)
+ (cvt-12574
+ x-13161
+ n-12578
+ ids-13164))
+ (lambda (x-13165 ids-13166)
(values
- (cons x-15418 y-15416)
- ids-15419))))))
- tmp-15410)
- (let ((tmp-15420
- ($sc-dispatch p-14830 '())))
- (if tmp-15420
+ (cons x-13165 y-13163)
+ ids-13166))))))
+ tmp-13157)
+ (let ((tmp-13167
+ ($sc-dispatch p-12577 '())))
+ (if tmp-13167
(@apply
- (lambda () (values '() ids-14832))
- tmp-15420)
- (let ((tmp-15424
+ (lambda () (values '() ids-12579))
+ tmp-13167)
+ (let ((tmp-13171
($sc-dispatch
- p-14830
+ p-12577
'#(vector each-any))))
- (if tmp-15424
+ (if tmp-13171
(@apply
- (lambda (x-15428)
+ (lambda (x-13175)
(call-with-values
(lambda ()
- (cvt-14827
- x-15428
- n-14831
- ids-14832))
- (lambda (p-15429 ids-15430)
+ (cvt-12574
+ x-13175
+ n-12578
+ ids-12579))
+ (lambda (p-13176 ids-13177)
(values
- (vector 'vector p-15429)
- ids-15430))))
- tmp-15424)
+ (vector 'vector p-13176)
+ ids-13177))))
+ tmp-13171)
(values
(vector
'atom
- (strip-6598 p-14830 '(())))
- ids-14832)))))))))))))))
- (cvt-14827 pattern-14823 0 '()))))
- (build-dispatch-call-13227
- (lambda (pvars-15543 exp-15544 y-15545 r-15546 mod-15547)
- (let ((ids-15548 (map car pvars-15543)))
+ (strip-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-15543)
- (let ((labels-15550 (gen-labels-6552 ids-15548))
- (new-vars-15551 (map gen-var-6599 ids-15548)))
- (build-application-6516
+ (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
@@ -15230,73 +15209,73 @@
'(guile)
'apply
#f))
- (list (build-simple-lambda-6525
+ (list (build-simple-lambda-4270
#f
- (map syntax->datum ids-15548)
+ (map syntax->datum ids-13295)
#f
- new-vars-15551
+ new-vars-13298
'()
- (expand-6585
- exp-15544
- (extend-env-6543
- labels-15550
- (map (lambda (var-15874 level-15875)
+ (expand-4330
+ exp-13291
+ (extend-env-4288
+ labels-13297
+ (map (lambda (var-13621 level-13622)
(cons 'syntax
- (cons var-15874 level-15875)))
- new-vars-15551
- (map cdr pvars-15543))
- r-15546)
- (make-binding-wrap-6563
- ids-15548
- labels-15550
+ (cons var-13621 level-13622)))
+ new-vars-13298
+ (map cdr pvars-13290))
+ r-13293)
+ (make-binding-wrap-4308
+ ids-13295
+ labels-13297
'(()))
- mod-15547))
- y-15545)))))))
- (gen-clause-13228
- (lambda (x-14195
- keys-14196
- clauses-14197
- r-14198
- pat-14199
- fender-14200
- exp-14201
- mod-14202)
+ mod-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-13226 pat-14199 keys-14196))
- (lambda (p-14357 pvars-14358)
- (if (not (distinct-bound-ids?-6576 (map car pvars-14358)))
+ (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-14199)
+ pat-11946)
(if (not (and-map
- (lambda (x-14474)
- (not (let ((x-14478 (car x-14474)))
- (if (if (if (vector? x-14478)
+ (lambda (x-12221)
+ (not (let ((x-12225 (car x-12221)))
+ (if (if (if (vector? x-12225)
(if (= (vector-length
- x-14478)
+ x-12225)
4)
(eq? (vector-ref
- x-14478
+ x-12225
0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref x-14478 1))
+ (symbol? (vector-ref x-12225 1))
#f)
- (if (eq? (if (if (vector? x-14478)
+ (if (eq? (if (if (vector? x-12225)
(if (= (vector-length
- x-14478)
+ x-12225)
4)
(eq? (vector-ref
- x-14478
+ x-12225
0)
'syntax-object)
#f)
#f)
- (vector-ref x-14478 1)
- x-14478)
+ (vector-ref x-12225 1)
+ x-12225)
(if (if (= (vector-length
'#(syntax-object
...
@@ -15312,7 +15291,7 @@
#(ribcage
#(x)
#((top))
-
#("l-*-4404"))
+
#("l-*-2266"))
#(ribcage
(lambda-var-list
gen-var
@@ -15594,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
@@ -15741,9 +15720,9 @@
((top)
(top)
(top))
-
("l-*-2098"
-
"l-*-2097"
-
"l-*-2096")))
+
("l-*-47"
+
"l-*-46"
+
"l-*-45")))
(hygiene
guile)))
4)
@@ -15758,7 +15737,7 @@
#(ribcage
#(x)
#((top))
- #("l-*-4404"))
+ #("l-*-2266"))
#(ribcage
(lambda-var-list
gen-var
@@ -16040,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-6568
- x-14478
+ (eq? (id-var-name-4313
+ x-12225
'(()))
- (id-var-name-6568
+ (id-var-name-4313
'#(syntax-object
...
((top)
@@ -16201,7 +16180,7 @@
#(ribcage
#(x)
#((top))
- #("l-*-4404"))
+ #("l-*-2266"))
#(ribcage
(lambda-var-list
gen-var
@@ -16483,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-14358))
+ pvars-12105))
(syntax-violation
'syntax-case
"misplaced ellipsis"
- pat-14199)
- (let ((y-14554
+ pat-11946)
+ (let ((y-12301
(gensym
(string-append (symbol->string 'tmp) "-"))))
- (build-application-6516
+ (build-application-4261
#f
- (let ((req-14697 (list 'tmp))
- (vars-14699 (list y-14554))
- (exp-14701
- (let ((y-14718
+ (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-14554)))
- (let ((test-exp-14722
- (let ((tmp-14731
+ y-12301)))
+ (let ((test-exp-12469
+ (let ((tmp-12478
($sc-dispatch
- fender-14200
+ fender-11947
'#(atom #t))))
- (if tmp-14731
+ (if tmp-12478
(@apply
- (lambda () y-14718)
- tmp-14731)
- (let ((then-exp-14749
-
(build-dispatch-call-13227
- pvars-14358
- fender-14200
- y-14718
- r-14198
- mod-14202))
- (else-exp-14750
+ (lambda () y-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
@@ -16682,48 +16661,48 @@
%expanded-vtables
10)
#f
- y-14718
- then-exp-14749
- else-exp-14750)))))
- (then-exp-14723
- (build-dispatch-call-13227
- pvars-14358
- exp-14201
- y-14718
- r-14198
- mod-14202))
- (else-exp-14724
- (gen-syntax-case-13229
- x-14195
- keys-14196
- clauses-14197
- r-14198
- mod-14202)))
+ y-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-14722
- then-exp-14723
- else-exp-14724)))))
- (let ((body-14706
+ test-exp-12469
+ then-exp-12470
+ else-exp-12471)))))
+ (let ((body-12453
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
#f
- req-14697
+ req-12444
#f
#f
#f
'()
- vars-14699
- exp-14701
+ vars-12446
+ exp-12448
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
#f
'()
- body-14706)))
- (list (if (eq? p-14357 'any)
- (let ((fun-exp-14772
+ body-12453)))
+ (list (if (eq? p-12104 'any)
+ (let ((fun-exp-12519
(if (equal?
(module-name (current-module))
'(guile))
@@ -16737,13 +16716,13 @@
'(guile)
'list
#f)))
- (arg-exps-14773 (list x-14195)))
+ (arg-exps-12520 (list x-11942)))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
#f
- fun-exp-14772
- arg-exps-14773))
- (let ((fun-exp-14796
+ fun-exp-12519
+ arg-exps-12520))
+ (let ((fun-exp-12543
(if (equal?
(module-name (current-module))
'(guile))
@@ -16757,27 +16736,27 @@
'(guile)
'$sc-dispatch
#f)))
- (arg-exps-14797
- (list x-14195
+ (arg-exps-12544
+ (list x-11942
(make-struct/no-tail
(vector-ref
%expanded-vtables
1)
#f
- p-14357))))
+ p-12104))))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
#f
- fun-exp-14796
- arg-exps-14797))))))))))))
- (gen-syntax-case-13229
- (lambda (x-13628
- keys-13629
- clauses-13630
- r-13631
- mod-13632)
- (if (null? clauses-13630)
- (let ((fun-exp-13637
+ fun-exp-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)
@@ -16789,7 +16768,7 @@
'(guile)
'syntax-violation
#f)))
- (arg-exps-13638
+ (arg-exps-11385
(list (make-struct/no-tail
(vector-ref %expanded-vtables 1)
#f
@@ -16798,58 +16777,58 @@
(vector-ref %expanded-vtables 1)
#f
"source expression failed to match any
pattern")
- x-13628)))
+ x-11375)))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
#f
- fun-exp-13637
- arg-exps-13638))
- (let ((tmp-13671 (car clauses-13630)))
- (let ((tmp-13672 ($sc-dispatch tmp-13671 '(any any))))
- (if tmp-13672
+ fun-exp-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-13674 exp-13675)
- (if (if (if (symbol? pat-13674)
+ (lambda (pat-11421 exp-11422)
+ (if (if (if (symbol? pat-11421)
#t
- (if (if (vector? pat-13674)
- (if (= (vector-length pat-13674) 4)
- (eq? (vector-ref pat-13674 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-13674 1))
+ (symbol? (vector-ref pat-11421 1))
#f))
(and-map
- (lambda (x-13702)
- (not (if (eq? (if (if (vector? pat-13674)
+ (lambda (x-11449)
+ (not (if (eq? (if (if (vector? pat-11421)
(if (= (vector-length
- pat-13674)
+ pat-11421)
4)
(eq? (vector-ref
- pat-13674
+ pat-11421
0)
'syntax-object)
#f)
#f)
- (vector-ref pat-13674 1)
- pat-13674)
- (if (if (vector? x-13702)
+ (vector-ref pat-11421 1)
+ pat-11421)
+ (if (if (vector? x-11449)
(if (= (vector-length
- x-13702)
+ x-11449)
4)
(eq? (vector-ref
- x-13702
+ x-11449
0)
'syntax-object)
#f)
#f)
- (vector-ref x-13702 1)
- x-13702))
- (eq? (id-var-name-6568
- pat-13674
+ (vector-ref x-11449 1)
+ x-11449))
+ (eq? (id-var-name-4313
+ pat-11421
'(()))
- (id-var-name-6568
- x-13702
+ (id-var-name-4313
+ x-11449
'(())))
#f)))
(cons '#(syntax-object
@@ -16858,26 +16837,26 @@
#(ribcage
#(pat exp)
#((top) (top))
- #("l-*-6087" "l-*-6088"))
+ #("l-*-3890" "l-*-3891"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
#((top) (top) (top) (top) (top))
- #("l-*-6076"
- "l-*-6077"
- "l-*-6078"
- "l-*-6079"
- "l-*-6080"))
+ #("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-*-5886"
- "l-*-5884"
- "l-*-5882"
- "l-*-5880"))
+ ("l-*-3697"
+ "l-*-3695"
+ "l-*-3693"
+ "l-*-3691"))
#(ribcage
(lambda-var-list
gen-var
@@ -17159,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-13629))
+ keys-11376))
#f)
(if (if (eq? (if (if (= (vector-length
'#(syntax-object
@@ -17317,8 +17294,8 @@
#(ribcage
#(pat exp)
#((top) (top))
- #("l-*-6087"
- "l-*-6088"))
+ #("l-*-3890"
+ "l-*-3891"))
#(ribcage () () ())
#(ribcage
#(x
@@ -17331,11 +17308,11 @@
(top)
(top)
(top))
- #("l-*-6076"
- "l-*-6077"
- "l-*-6078"
- "l-*-6079"
- "l-*-6080"))
+ #("l-*-3879"
+ "l-*-3880"
+ "l-*-3881"
+ "l-*-3882"
+ "l-*-3883"))
#(ribcage
(gen-syntax-case
gen-clause
@@ -17345,10 +17322,10 @@
(top)
(top)
(top))
- ("l-*-5886"
- "l-*-5884"
- "l-*-5882"
- "l-*-5880"))
+ ("l-*-3697"
+ "l-*-3695"
+ "l-*-3693"
+ "l-*-3691"))
#(ribcage
(lambda-var-list
gen-var
@@ -17630,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
@@ -17777,9 +17754,9 @@
((top)
(top)
(top))
- ("l-*-2098"
- "l-*-2097"
- "l-*-2096")))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
(hygiene guile)))
4)
#t
@@ -17791,7 +17768,7 @@
#(ribcage
#(pat exp)
#((top) (top))
- #("l-*-6087" "l-*-6088"))
+ #("l-*-3890" "l-*-3891"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
@@ -17800,21 +17777,21 @@
(top)
(top)
(top))
- #("l-*-6076"
- "l-*-6077"
- "l-*-6078"
- "l-*-6079"
- "l-*-6080"))
+ #("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-*-5886"
- "l-*-5884"
- "l-*-5882"
- "l-*-5880"))
+ ("l-*-3697"
+ "l-*-3695"
+ "l-*-3693"
+ "l-*-3691"))
#(ribcage
(lambda-var-list
gen-var
@@ -18096,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
@@ -18252,8 +18229,8 @@
#(ribcage
#(pat exp)
#((top) (top))
- #("l-*-6087"
- "l-*-6088"))
+ #("l-*-3890"
+ "l-*-3891"))
#(ribcage () () ())
#(ribcage
#(x
@@ -18266,11 +18243,11 @@
(top)
(top)
(top))
- #("l-*-6076"
- "l-*-6077"
- "l-*-6078"
- "l-*-6079"
- "l-*-6080"))
+ #("l-*-3879"
+ "l-*-3880"
+ "l-*-3881"
+ "l-*-3882"
+ "l-*-3883"))
#(ribcage
(gen-syntax-case
gen-clause
@@ -18280,10 +18257,10 @@
(top)
(top)
(top))
- ("l-*-5886"
- "l-*-5884"
- "l-*-5882"
- "l-*-5880"))
+ ("l-*-3697"
+ "l-*-3695"
+ "l-*-3693"
+ "l-*-3691"))
#(ribcage
(lambda-var-list
gen-var
@@ -18565,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
@@ -18712,9 +18689,9 @@
((top)
(top)
(top))
- ("l-*-2098"
- "l-*-2097"
- "l-*-2096")))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
(hygiene guile)))
4)
#t
@@ -18726,7 +18703,7 @@
#(ribcage
#(pat exp)
#((top) (top))
- #("l-*-6087" "l-*-6088"))
+ #("l-*-3890" "l-*-3891"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
@@ -18735,21 +18712,21 @@
(top)
(top)
(top))
- #("l-*-6076"
- "l-*-6077"
- "l-*-6078"
- "l-*-6079"
- "l-*-6080"))
+ #("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-*-5886"
- "l-*-5884"
- "l-*-5882"
- "l-*-5880"))
+ ("l-*-3697"
+ "l-*-3695"
+ "l-*-3693"
+ "l-*-3691"))
#(ribcage
(lambda-var-list
gen-var
@@ -19031,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-6568
+ (eq? (id-var-name-4313
'#(syntax-object
pad
((top)
#(ribcage
#(pat exp)
#((top) (top))
- #("l-*-6087" "l-*-6088"))
+ #("l-*-3890" "l-*-3891"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
@@ -19196,21 +19173,21 @@
(top)
(top)
(top))
- #("l-*-6076"
- "l-*-6077"
- "l-*-6078"
- "l-*-6079"
- "l-*-6080"))
+ #("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-*-5886"
- "l-*-5884"
- "l-*-5882"
- "l-*-5880"))
+ ("l-*-3697"
+ "l-*-3695"
+ "l-*-3693"
+ "l-*-3691"))
#(ribcage
(lambda-var-list
gen-var
@@ -19492,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-6568
+ (id-var-name-4313
'#(syntax-object
_
((top)
#(ribcage
#(pat exp)
#((top) (top))
- #("l-*-6087" "l-*-6088"))
+ #("l-*-3890" "l-*-3891"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
@@ -19658,21 +19633,21 @@
(top)
(top)
(top))
- #("l-*-6076"
- "l-*-6077"
- "l-*-6078"
- "l-*-6079"
- "l-*-6080"))
+ #("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-*-5886"
- "l-*-5884"
- "l-*-5882"
- "l-*-5880"))
+ ("l-*-3697"
+ "l-*-3695"
+ "l-*-3693"
+ "l-*-3691"))
#(ribcage
(lambda-var-list
gen-var
@@ -19954,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-6585 exp-13675 r-13631 '(()) mod-13632)
- (let ((labels-13878
+ (expand-4330 exp-11422 r-11378 '(()) mod-11379)
+ (let ((labels-11625
(list (string-append
"l-"
- (session-id-6510)
+ (session-id-4255)
(symbol->string (gensym "-")))))
- (var-13879
- (let ((id-13917
- (if (if (vector? pat-13674)
+ (var-11626
+ (let ((id-11664
+ (if (if (vector? pat-11421)
(if (= (vector-length
- pat-13674)
+ pat-11421)
4)
(eq? (vector-ref
- pat-13674
+ pat-11421
0)
'syntax-object)
#f)
#f)
- (vector-ref pat-13674 1)
- pat-13674)))
+ (vector-ref pat-11421 1)
+ pat-11421)))
(gensym
(string-append
- (symbol->string id-13917)
+ (symbol->string id-11664)
"-")))))
- (build-application-6516
+ (build-application-4261
#f
- (build-simple-lambda-6525
+ (build-simple-lambda-4270
#f
- (list (syntax->datum pat-13674))
+ (list (syntax->datum pat-11421))
#f
- (list var-13879)
+ (list var-11626)
'()
- (expand-6585
- exp-13675
- (extend-env-6543
- labels-13878
+ (expand-4330
+ exp-11422
+ (extend-env-4288
+ labels-11625
(list (cons 'syntax
- (cons var-13879 0)))
- r-13631)
- (make-binding-wrap-6563
- (list pat-13674)
- labels-13878
+ (cons var-11626 0)))
+ r-11378)
+ (make-binding-wrap-4308
+ (list pat-11421)
+ labels-11625
'(()))
- mod-13632))
- (list x-13628))))
- (gen-clause-13228
- x-13628
- keys-13629
- (cdr clauses-13630)
- r-13631
- pat-13674
+ mod-11379))
+ (list x-11375))))
+ (gen-clause-10975
+ x-11375
+ keys-11376
+ (cdr clauses-11377)
+ r-11378
+ pat-11421
#t
- exp-13675
- mod-13632)))
- tmp-13672)
- (let ((tmp-14187
- ($sc-dispatch tmp-13671 '(any any any))))
- (if tmp-14187
+ exp-11422
+ mod-11379)))
+ tmp-11419)
+ (let ((tmp-11934
+ ($sc-dispatch tmp-11418 '(any any any))))
+ (if tmp-11934
(@apply
- (lambda (pat-14189 fender-14190 exp-14191)
- (gen-clause-13228
- x-13628
- keys-13629
- (cdr clauses-13630)
- r-13631
- pat-14189
- fender-14190
- exp-14191
- mod-13632))
- tmp-14187)
+ (lambda (pat-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-13630)))))))))))
- (lambda (e-13230 r-13231 w-13232 s-13233 mod-13234)
- (let ((e-13235
- (wrap-6578
+ (car clauses-11377)))))))))))
+ (lambda (e-10977 r-10978 w-10979 s-10980 mod-10981)
+ (let ((e-10982
+ (wrap-4323
(begin
- (if (if (pair? e-13230) s-13233 #f)
- (set-source-properties! e-13230 s-13233))
- e-13230)
- w-13232
- mod-13234)))
- (let ((tmp-13237
+ (if (if (pair? e-10977) s-10980 #f)
+ (set-source-properties! e-10977 s-10980))
+ e-10977)
+ w-10979
+ mod-10981)))
+ (let ((tmp-10984
($sc-dispatch
- e-13235
+ e-10982
'(_ any each-any . each-any))))
- (if tmp-13237
+ (if tmp-10984
(@apply
- (lambda (val-13262 key-13263 m-13264)
+ (lambda (val-11009 key-11010 m-11011)
(if (and-map
- (lambda (x-13265)
- (if (if (symbol? x-13265)
+ (lambda (x-11012)
+ (if (if (symbol? x-11012)
#t
- (if (if (vector? x-13265)
- (if (= (vector-length x-13265) 4)
- (eq? (vector-ref x-13265 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-13265 1))
+ (symbol? (vector-ref x-11012 1))
#f))
- (not (if (if (if (vector? x-13265)
- (if (= (vector-length x-13265)
+ (not (if (if (if (vector? x-11012)
+ (if (= (vector-length x-11012)
4)
- (eq? (vector-ref x-13265 0)
+ (eq? (vector-ref x-11012 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref x-13265 1))
+ (symbol? (vector-ref x-11012 1))
#f)
- (if (eq? (if (if (vector? x-13265)
+ (if (eq? (if (if (vector? x-11012)
(if (= (vector-length
- x-13265)
+ x-11012)
4)
(eq? (vector-ref
- x-13265
+ x-11012
0)
'syntax-object)
#f)
#f)
- (vector-ref x-13265 1)
- x-13265)
+ (vector-ref x-11012 1)
+ x-11012)
(if (if (= (vector-length
'#(syntax-object
...
@@ -20243,7 +20216,7 @@
#(ribcage
#(x)
#((top))
-
#("l-*-4404"))
+
#("l-*-2266"))
#(ribcage
(lambda-var-list
gen-var
@@ -20525,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
@@ -20672,9 +20645,9 @@
((top)
(top)
(top))
- ("l-*-2098"
- "l-*-2097"
-
"l-*-2096")))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
(hygiene
guile)))
4)
@@ -20689,7 +20662,7 @@
#(ribcage
#(x)
#((top))
- #("l-*-4404"))
+ #("l-*-2266"))
#(ribcage
(lambda-var-list
gen-var
@@ -20971,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-6568 x-13265 '(()))
- (id-var-name-6568
+ (eq? (id-var-name-4313 x-11012 '(()))
+ (id-var-name-4313
'#(syntax-object
...
((top)
@@ -21130,7 +21103,7 @@
#(ribcage
#(x)
#((top))
- #("l-*-4404"))
+ #("l-*-2266"))
#(ribcage
(lambda-var-list
gen-var
@@ -21412,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-13263)
- (let ((x-13391
+ key-11010)
+ (let ((x-11138
(gensym
(string-append (symbol->string 'tmp) "-"))))
- (build-application-6516
- s-13233
- (let ((req-13521 (list 'tmp))
- (vars-13523 (list x-13391))
- (exp-13525
- (gen-syntax-case-13229
+ (build-application-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-13391)
- key-13263
- m-13264
- r-13231
- mod-13234)))
- (let ((body-13530
+ x-11138)
+ key-11010
+ m-11011
+ r-10978
+ mod-10981)))
+ (let ((body-11277
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
#f
- req-13521
+ req-11268
#f
#f
#f
'()
- vars-13523
- exp-13525
+ vars-11270
+ exp-11272
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
#f
'()
- body-13530)))
- (list (expand-6585
- val-13262
- r-13231
+ body-11277)))
+ (list (expand-4330
+ val-11009
+ r-10978
'(())
- mod-13234))))
+ mod-10981))))
(syntax-violation
'syntax-case
"invalid literals list"
- e-13235)))
- tmp-13237)
+ e-10982)))
+ tmp-10984)
(syntax-violation
#f
"source expression failed to match any pattern"
- e-13235)))))))
+ e-10982)))))))
(set! macroexpand
(lambda*
- (x-15948
+ (x-13695
#:optional
- (m-15949 'e)
- (esew-15950 '(eval)))
- (expand-top-sequence-6581
- (list x-15948)
+ (m-13696 'e)
+ (esew-13697 '(eval)))
+ (expand-top-sequence-4326
+ (list x-13695)
'()
'((top))
#f
- m-15949
- esew-15950
+ m-13696
+ esew-13697
(cons 'hygiene (module-name (current-module))))))
(set! identifier?
- (lambda (x-15953)
- (if (if (vector? x-15953)
- (if (= (vector-length x-15953) 4)
- (eq? (vector-ref x-15953 0) 'syntax-object)
+ (lambda (x-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-15953 1))
+ (symbol? (vector-ref x-13700 1))
#f)))
(set! datum->syntax
- (lambda (id-15978 datum-15979)
- (let ((wrap-15984 (vector-ref id-15978 2))
- (module-15985 (vector-ref id-15978 3)))
+ (lambda (id-13725 datum-13726)
+ (let ((wrap-13731 (vector-ref id-13725 2))
+ (module-13732 (vector-ref id-13725 3)))
(vector
'syntax-object
- datum-15979
- wrap-15984
- module-15985))))
+ datum-13726
+ wrap-13731
+ module-13732))))
(set! syntax->datum
- (lambda (x-15992) (strip-6598 x-15992 '(()))))
+ (lambda (x-13739) (strip-4343 x-13739 '(()))))
(set! syntax-source
- (lambda (x-15995)
- (source-annotation-6542 x-15995)))
+ (lambda (x-13742)
+ (source-annotation-4287 x-13742)))
(set! generate-temporaries
- (lambda (ls-16148)
+ (lambda (ls-13895)
(begin
- (if (not (list? ls-16148))
+ (if (not (list? ls-13895))
(syntax-violation
'generate-temporaries
"invalid argument"
- ls-16148))
- (let ((mod-16156
+ ls-13895))
+ (let ((mod-13903
(cons 'hygiene (module-name (current-module)))))
- (map (lambda (x-16157)
- (wrap-6578 (gensym "t-") '((top)) mod-16156))
- ls-16148)))))
+ (map (lambda (x-13904)
+ (wrap-4323 (gensym "t-") '((top)) mod-13903))
+ ls-13895)))))
(set! free-identifier=?
- (lambda (x-16161 y-16162)
+ (lambda (x-13908 y-13909)
(begin
- (if (not (if (if (vector? x-16161)
- (if (= (vector-length x-16161) 4)
- (eq? (vector-ref x-16161 0) 'syntax-object)
+ (if (not (if (if (vector? x-13908)
+ (if (= (vector-length x-13908) 4)
+ (eq? (vector-ref x-13908 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref x-16161 1))
+ (symbol? (vector-ref x-13908 1))
#f))
(syntax-violation
'free-identifier=?
"invalid argument"
- x-16161))
- (if (not (if (if (vector? y-16162)
- (if (= (vector-length y-16162) 4)
- (eq? (vector-ref y-16162 0) 'syntax-object)
+ x-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-16162 1))
+ (symbol? (vector-ref y-13909 1))
#f))
(syntax-violation
'free-identifier=?
"invalid argument"
- y-16162))
- (if (eq? (if (if (vector? x-16161)
- (if (= (vector-length x-16161) 4)
- (eq? (vector-ref x-16161 0) 'syntax-object)
+ y-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-16161 1)
- x-16161)
- (if (if (vector? y-16162)
- (if (= (vector-length y-16162) 4)
- (eq? (vector-ref y-16162 0) 'syntax-object)
+ (vector-ref x-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-16162 1)
- y-16162))
- (eq? (id-var-name-6568 x-16161 '(()))
- (id-var-name-6568 y-16162 '(())))
+ (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-16312 y-16313)
+ (lambda (x-14059 y-14060)
(begin
- (if (not (if (if (vector? x-16312)
- (if (= (vector-length x-16312) 4)
- (eq? (vector-ref x-16312 0) 'syntax-object)
+ (if (not (if (if (vector? x-14059)
+ (if (= (vector-length x-14059) 4)
+ (eq? (vector-ref x-14059 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref x-16312 1))
+ (symbol? (vector-ref x-14059 1))
#f))
(syntax-violation
'bound-identifier=?
"invalid argument"
- x-16312))
- (if (not (if (if (vector? y-16313)
- (if (= (vector-length y-16313) 4)
- (eq? (vector-ref y-16313 0) 'syntax-object)
+ x-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-16313 1))
+ (symbol? (vector-ref y-14060 1))
#f))
(syntax-violation
'bound-identifier=?
"invalid argument"
- y-16313))
- (if (if (if (vector? x-16312)
- (if (= (vector-length x-16312) 4)
- (eq? (vector-ref x-16312 0) 'syntax-object)
+ y-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-16313)
- (if (= (vector-length y-16313) 4)
- (eq? (vector-ref y-16313 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-16312 1)
- (vector-ref y-16313 1))
- (same-marks?-6567
- (car (vector-ref x-16312 2))
- (car (vector-ref y-16313 2)))
+ (if (eq? (vector-ref x-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-16312 y-16313)))))
+ (eq? x-14059 y-14060)))))
(set! syntax-violation
(lambda*
- (who-16446
- message-16447
- form-16448
+ (who-14193
+ message-14194
+ form-14195
#:optional
- (subform-16449 #f))
+ (subform-14196 #f))
(begin
- (if (not (if (not who-16446)
- (not who-16446)
- (let ((t-16467 (string? who-16446)))
- (if t-16467 t-16467 (symbol? who-16446)))))
+ (if (not (if (not who-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-16446))
- (if (not (string? message-16447))
+ who-14193))
+ (if (not (string? message-14194))
(syntax-violation
'syntax-violation
"invalid argument"
- message-16447))
+ message-14194))
(throw 'syntax-error
- who-16446
- message-16447
- (source-annotation-6542
- (if form-16448 form-16448 subform-16449))
- (strip-6598 form-16448 '(()))
- (if subform-16449
- (strip-6598 subform-16449 '(()))
+ who-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-16671
- (lambda (id-16804)
+ ((syntax-local-binding-14637
+ (lambda (id-14770)
(begin
- (if (not (if (if (vector? id-16804)
- (if (= (vector-length id-16804) 4)
- (eq? (vector-ref id-16804 0) 'syntax-object)
+ (if (not (if (if (vector? id-14770)
+ (if (= (vector-length id-14770) 4)
+ (eq? (vector-ref id-14770 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref id-16804 1))
+ (symbol? (vector-ref id-14770 1))
#f))
(syntax-violation
'syntax-local-binding
"invalid argument"
- id-16804))
- ((fluid-ref transformer-environment-6571)
- (lambda (e-16844
- r-16845
- w-16846
- s-16847
- rib-16848
- mod-16849)
+ id-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-16852 (vector-ref id-16804 1))
- (w-16853
- (let ((w-16864 (vector-ref id-16804 2)))
- (let ((ms-16865 (car w-16864))
- (s-16866 (cdr w-16864)))
- (if (if (pair? ms-16865)
- (eq? (car ms-16865) #f)
+ (let ((id-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-16865)
- (if rib-16848
- (cons rib-16848 (cdr s-16866))
- (cdr s-16866)))
- (cons ms-16865
- (if rib-16848
- (cons rib-16848 s-16866)
- s-16866))))))
- (mod-16855 (vector-ref id-16804 3)))
- (let ((n-16858 (id-var-name-6568 id-16852 w-16853)))
- (if (symbol? n-16858)
- (let ((mod-16872
- (if (if (vector? id-16852)
- (if (= (vector-length id-16852) 4)
- (eq? (vector-ref id-16852 0)
+ (cons (cdr ms-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-16852 3)
- mod-16855)))
- (let ((b-16873
- (let ((t-16874
- (get-global-definition-hook-6512
- n-16858
- mod-16872)))
- (if t-16874 t-16874 '(global)))))
- (if (eq? (car b-16873) 'global)
- (values 'global n-16858 mod-16872)
+ (vector-ref id-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-16873)
- (cdr b-16873)
- mod-16872))))
- (if (string? n-16858)
- (let ((mod-16900
- (if (if (vector? id-16852)
- (if (= (vector-length id-16852) 4)
- (eq? (vector-ref id-16852 0)
+ (car b-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-16852 3)
- mod-16855)))
- (let ((b-16901
- (let ((t-16902
- (assq-ref r-16845 n-16858)))
- (if t-16902
- t-16902
+ (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-16901)
- (cdr b-16901)
- mod-16900)))
+ (car b-14867)
+ (cdr b-14867)
+ mod-14866)))
(error "unexpected id-var-name"
- id-16852
- w-16853
- n-16858))))))
- (lambda (type-16915 value-16916 mod-16917)
- (if (eqv? type-16915 'lexical)
- (values 'lexical value-16916)
- (if (eqv? type-16915 'macro)
- (values 'macro value-16916)
- (if (eqv? type-16915 'syntax)
- (values 'pattern-variable value-16916)
- (if (eqv? type-16915 'displaced-lexical)
+ id-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-16915 'global)
+ (if (eqv? type-14881 'global)
(values
'global
- (cons value-16916 (cdr mod-16917)))
+ (cons value-14882 (cdr mod-14883)))
(values 'other #f)))))))))))))
- (syntax-locally-bound-identifiers-16672
- (lambda (id-16928)
+ (syntax-locally-bound-identifiers-14638
+ (lambda (id-14905)
(begin
- (if (not (if (if (vector? id-16928)
- (if (= (vector-length id-16928) 4)
- (eq? (vector-ref id-16928 0) 'syntax-object)
+ (if (not (if (if (vector? id-14905)
+ (if (= (vector-length id-14905) 4)
+ (eq? (vector-ref id-14905 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref id-16928 1))
+ (symbol? (vector-ref id-14905 1))
#f))
(syntax-violation
'syntax-locally-bound-identifiers
"invalid argument"
- id-16928))
- (locally-bound-identifiers-6569
- (vector-ref id-16928 2)
- (vector-ref id-16928 3))))))
+ id-14905))
+ (locally-bound-identifiers-4314
+ (vector-ref id-14905 2)
+ (vector-ref id-14905 3))))))
(begin
(define!
'syntax-module
- (lambda (id-16674)
+ (lambda (id-14640)
(begin
- (if (not (if (if (vector? id-16674)
- (if (= (vector-length id-16674) 4)
- (eq? (vector-ref id-16674 0) 'syntax-object)
+ (if (not (if (if (vector? id-14640)
+ (if (= (vector-length id-14640) 4)
+ (eq? (vector-ref id-14640 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref id-16674 1))
+ (symbol? (vector-ref id-14640 1))
#f))
(syntax-violation
'syntax-module
"invalid argument"
- id-16674))
- (cdr (vector-ref id-16674 3)))))
+ id-14640))
+ (cdr (vector-ref id-14640 3)))))
(define!
'syntax-local-binding
- syntax-local-binding-16671)
+ syntax-local-binding-14637)
(define!
'syntax-locally-bound-identifiers
- syntax-locally-bound-identifiers-16672)))
+ syntax-locally-bound-identifiers-14638)))
(letrec*
- ((match-each-17035
- (lambda (e-17622 p-17623 w-17624 mod-17625)
- (if (pair? e-17622)
- (let ((first-17626
- (match-17041
- (car e-17622)
- p-17623
- w-17624
+ ((match-each-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-17625)))
- (if first-17626
- (let ((rest-17629
- (match-each-17035
- (cdr e-17622)
- p-17623
- w-17624
- mod-17625)))
- (if rest-17629 (cons first-17626 rest-17629) #f))
+ mod-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-17622)
+ (if (null? e-15599)
'()
- (if (if (vector? e-17622)
- (if (= (vector-length e-17622) 4)
- (eq? (vector-ref e-17622 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-17035
- (vector-ref e-17622 1)
- p-17623
- (join-wraps-6565 w-17624 (vector-ref e-17622 2))
- (vector-ref e-17622 3))
+ (match-each-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-17037
- (lambda (e-17657 w-17658 mod-17659)
- (if (pair? e-17657)
- (let ((l-17660
- (match-each-any-17037
- (cdr e-17657)
- w-17658
- mod-17659)))
- (if l-17660
- (cons (wrap-6578 (car e-17657) w-17658 mod-17659)
- l-17660)
+ (match-each-any-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-17657)
+ (if (null? e-15634)
'()
- (if (if (vector? e-17657)
- (if (= (vector-length e-17657) 4)
- (eq? (vector-ref e-17657 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-17037
- (vector-ref e-17657 1)
- (join-wraps-6565 w-17658 (vector-ref e-17657 2))
- mod-17659)
+ (match-each-any-15014
+ (vector-ref e-15634 1)
+ (join-wraps-4310 w-15635 (vector-ref e-15634 2))
+ mod-15636)
#f)))))
- (match-empty-17038
- (lambda (p-17684 r-17685)
- (if (null? p-17684)
- r-17685
- (if (eq? p-17684 '_)
- r-17685
- (if (eq? p-17684 'any)
- (cons '() r-17685)
- (if (pair? p-17684)
- (match-empty-17038
- (car p-17684)
- (match-empty-17038 (cdr p-17684) r-17685))
- (if (eq? p-17684 'each-any)
- (cons '() r-17685)
- (let ((atom-key-17686 (vector-ref p-17684 0)))
- (if (eqv? atom-key-17686 'each)
- (match-empty-17038
- (vector-ref p-17684 1)
- r-17685)
- (if (eqv? atom-key-17686 'each+)
- (match-empty-17038
- (vector-ref p-17684 1)
- (match-empty-17038
- (reverse (vector-ref p-17684 2))
- (match-empty-17038
- (vector-ref p-17684 3)
- r-17685)))
- (if (if (eqv? atom-key-17686 'free-id)
+ (match-empty-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? atom-key-17686 'atom))
- r-17685
- (if (eqv? atom-key-17686 'vector)
- (match-empty-17038
- (vector-ref p-17684 1)
- r-17685)))))))))))))
- (combine-17039
- (lambda (r*-17705 r-17706)
- (if (null? (car r*-17705))
- r-17706
- (cons (map car r*-17705)
- (combine-17039 (map cdr r*-17705) r-17706)))))
- (match*-17040
- (lambda (e-17070 p-17071 w-17072 r-17073 mod-17074)
- (if (null? p-17071)
- (if (null? e-17070) r-17073 #f)
- (if (pair? p-17071)
- (if (pair? e-17070)
- (match-17041
- (car e-17070)
- (car p-17071)
- w-17072
- (match-17041
- (cdr e-17070)
- (cdr p-17071)
- w-17072
- r-17073
- mod-17074)
- mod-17074)
+ (eqv? key-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-17071 'each-any)
- (let ((l-17079
- (match-each-any-17037 e-17070 w-17072 mod-17074)))
- (if l-17079 (cons l-17079 r-17073) #f))
- (let ((atom-key-17084 (vector-ref p-17071 0)))
- (if (eqv? atom-key-17084 'each)
- (if (null? e-17070)
- (match-empty-17038
- (vector-ref p-17071 1)
- r-17073)
- (let ((l-17091
- (match-each-17035
- e-17070
- (vector-ref p-17071 1)
- w-17072
- mod-17074)))
- (if l-17091
+ (if (eq? p-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-17094
- (lambda (l-17145)
- (if (null? (car l-17145))
- r-17073
- (cons (map car l-17145)
- (collect-17094
- (map cdr l-17145)))))))
- (collect-17094 l-17091))
+ ((collect-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? atom-key-17084 'each+)
+ (if (eqv? key-15061 'each+)
(call-with-values
(lambda ()
- (let ((x-pat-17154 (vector-ref p-17071 1))
- (y-pat-17155 (vector-ref p-17071 2))
- (z-pat-17156 (vector-ref p-17071 3)))
+ (let ((x-pat-15131 (vector-ref p-15048 1))
+ (y-pat-15132 (vector-ref p-15048 2))
+ (z-pat-15133 (vector-ref p-15048 3)))
(letrec*
- ((f-17160
- (lambda (e-17162 w-17163)
- (if (pair? e-17162)
+ ((f-15137
+ (lambda (e-15139 w-15140)
+ (if (pair? e-15139)
(call-with-values
(lambda ()
- (f-17160 (cdr e-17162) w-17163))
- (lambda (xr*-17164
- y-pat-17165
- r-17166)
- (if r-17166
- (if (null? y-pat-17165)
- (let ((xr-17167
- (match-17041
- (car e-17162)
- x-pat-17154
- w-17163
+ (f-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-17074)))
- (if xr-17167
+ mod-15051)))
+ (if xr-15144
(values
- (cons xr-17167 xr*-17164)
- y-pat-17165
- r-17166)
+ (cons xr-15144 xr*-15141)
+ y-pat-15142
+ r-15143)
(values #f #f #f)))
(values
'()
- (cdr y-pat-17165)
- (match-17041
- (car e-17162)
- (car y-pat-17165)
- w-17163
- r-17166
- mod-17074)))
+ (cdr y-pat-15142)
+ (match-15018
+ (car e-15139)
+ (car y-pat-15142)
+ w-15140
+ r-15143
+ mod-15051)))
(values #f #f #f))))
- (if (if (vector? e-17162)
- (if (= (vector-length e-17162) 4)
- (eq? (vector-ref e-17162 0)
+ (if (if (vector? e-15139)
+ (if (= (vector-length e-15139) 4)
+ (eq? (vector-ref e-15139 0)
'syntax-object)
#f)
#f)
- (f-17160
- (vector-ref e-17162 1)
- (join-wraps-6565 w-17163 e-17162))
+ (f-15137
+ (vector-ref e-15139 1)
+ (join-wraps-4310 w-15140 e-15139))
(values
'()
- y-pat-17155
- (match-17041
- e-17162
- z-pat-17156
- w-17163
- r-17073
- mod-17074)))))))
- (f-17160 e-17070 w-17072))))
- (lambda (xr*-17193 y-pat-17194 r-17195)
- (if r-17195
- (if (null? y-pat-17194)
- (if (null? xr*-17193)
- (match-empty-17038
- (vector-ref p-17071 1)
- r-17195)
- (combine-17039 xr*-17193 r-17195))
+ y-pat-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? atom-key-17084 'free-id)
- (if (if (symbol? e-17070)
+ (if (eqv? key-15061 'free-id)
+ (if (if (symbol? e-15047)
#t
- (if (if (vector? e-17070)
- (if (= (vector-length e-17070) 4)
- (eq? (vector-ref e-17070 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-17070 1))
+ (symbol? (vector-ref e-15047 1))
#f))
- (if (let ((i-17526
- (wrap-6578 e-17070 w-17072 mod-17074))
- (j-17527 (vector-ref p-17071 1)))
- (if (eq? (if (if (vector? i-17526)
+ (if (let ((i-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-17526)
+ i-15503)
4)
- (eq? (vector-ref i-17526 0)
+ (eq? (vector-ref i-15503 0)
'syntax-object)
#f)
#f)
- (vector-ref i-17526 1)
- i-17526)
- (if (if (vector? j-17527)
+ (vector-ref i-15503 1)
+ i-15503)
+ (if (if (vector? j-15504)
(if (= (vector-length
- j-17527)
+ j-15504)
4)
- (eq? (vector-ref j-17527 0)
+ (eq? (vector-ref j-15504 0)
'syntax-object)
#f)
#f)
- (vector-ref j-17527 1)
- j-17527))
- (eq? (id-var-name-6568 i-17526 '(()))
- (id-var-name-6568 j-17527 '(())))
+ (vector-ref j-15504 1)
+ j-15504))
+ (eq? (id-var-name-4313 i-15503 '(()))
+ (id-var-name-4313 j-15504 '(())))
#f))
- r-17073
+ r-15050
#f)
#f)
- (if (eqv? atom-key-17084 'atom)
+ (if (eqv? key-15061 'atom)
(if (equal?
- (vector-ref p-17071 1)
- (strip-6598 e-17070 w-17072))
- r-17073
+ (vector-ref p-15048 1)
+ (strip-4343 e-15047 w-15049))
+ r-15050
#f)
- (if (eqv? atom-key-17084 'vector)
- (if (vector? e-17070)
- (match-17041
- (vector->list e-17070)
- (vector-ref p-17071 1)
- w-17072
- r-17073
- mod-17074)
+ (if (eqv? key-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-17041
- (lambda (e-17587 p-17588 w-17589 r-17590 mod-17591)
- (if (not r-17590)
+ (match-15018
+ (lambda (e-15564 p-15565 w-15566 r-15567 mod-15568)
+ (if (not r-15567)
#f
- (if (eq? p-17588 '_)
- r-17590
- (if (eq? p-17588 'any)
- (cons (wrap-6578 e-17587 w-17589 mod-17591)
- r-17590)
- (if (if (vector? e-17587)
- (if (= (vector-length e-17587) 4)
- (eq? (vector-ref e-17587 0) 'syntax-object)
+ (if (eq? p-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*-17040
- (vector-ref e-17587 1)
- p-17588
- (join-wraps-6565 w-17589 (vector-ref e-17587 2))
- r-17590
- (vector-ref e-17587 3))
- (match*-17040
- e-17587
- p-17588
- w-17589
- r-17590
- mod-17591))))))))
+ (match*-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-17042 p-17043)
- (if (eq? p-17043 'any)
- (list e-17042)
- (if (eq? p-17043 '_)
+ (lambda (e-15019 p-15020)
+ (if (eq? p-15020 'any)
+ (list e-15019)
+ (if (eq? p-15020 '_)
'()
- (if (if (vector? e-17042)
- (if (= (vector-length e-17042) 4)
- (eq? (vector-ref e-17042 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*-17040
- (vector-ref e-17042 1)
- p-17043
- (vector-ref e-17042 2)
+ (match*-15017
+ (vector-ref e-15019 1)
+ p-15020
+ (vector-ref e-15019 2)
'()
- (vector-ref e-17042 3))
- (match*-17040 e-17042 p-17043 '(()) '() #f))))))))))
+ (vector-ref e-15019 3))
+ (match*-15017 e-15019 p-15020 '(()) '() #f))))))))))
(define with-syntax
(make-syntax-transformer
'with-syntax
'macro
- (lambda (x-29889)
- (let ((tmp-29891
- ($sc-dispatch x-29889 '(_ () any . each-any))))
- (if tmp-29891
+ (lambda (x-28006)
+ (let ((tmp-28008
+ ($sc-dispatch x-28006 '(_ () any . each-any))))
+ (if tmp-28008
(@apply
- (lambda (e1-29895 e2-29896)
+ (lambda (e1-28012 e2-28013)
(cons '#(syntax-object
let
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("l-*-29862" "l-*-29863"))
+ #("l-*-27979" "l-*-27980"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-29859")))
+ #(ribcage #(x) #((top)) #("l-*-27976")))
(hygiene guile))
- (cons '() (cons e1-29895 e2-29896))))
- tmp-29891)
- (let ((tmp-29897
+ (cons '() (cons e1-28012 e2-28013))))
+ tmp-28008)
+ (let ((tmp-28014
($sc-dispatch
- x-29889
+ x-28006
'(_ ((any any)) any . each-any))))
- (if tmp-29897
+ (if tmp-28014
(@apply
- (lambda (out-29901 in-29902 e1-29903 e2-29904)
+ (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-*-29868"
- "l-*-29869"
- "l-*-29870"
- "l-*-29871"))
+ #("l-*-27985"
+ "l-*-27986"
+ "l-*-27987"
+ "l-*-27988"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-29859")))
+ #(ribcage #(x) #((top)) #("l-*-27976")))
(hygiene guile))
- in-29902
+ in-28019
'()
- (list out-29901
+ (list out-28018
(cons '#(syntax-object
let
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("l-*-29868"
- "l-*-29869"
- "l-*-29870"
- "l-*-29871"))
+ #("l-*-27985"
+ "l-*-27986"
+ "l-*-27987"
+ "l-*-27988"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-29859")))
+ #("l-*-27976")))
(hygiene guile))
- (cons '() (cons e1-29903 e2-29904))))))
- tmp-29897)
- (let ((tmp-29905
+ (cons '() (cons e1-28020 e2-28021))))))
+ tmp-28014)
+ (let ((tmp-28022
($sc-dispatch
- x-29889
+ x-28006
'(_ #(each (any any)) any . each-any))))
- (if tmp-29905
+ (if tmp-28022
(@apply
- (lambda (out-29909 in-29910 e1-29911 e2-29912)
+ (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-*-29878"
- "l-*-29879"
- "l-*-29880"
- "l-*-29881"))
+ #("l-*-27995"
+ "l-*-27996"
+ "l-*-27997"
+ "l-*-27998"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-29859")))
+ #(ribcage #(x) #((top)) #("l-*-27976")))
(hygiene guile))
(cons '#(syntax-object
list
@@ -22324,66 +22299,66 @@
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("l-*-29878"
- "l-*-29879"
- "l-*-29880"
- "l-*-29881"))
+ #("l-*-27995"
+ "l-*-27996"
+ "l-*-27997"
+ "l-*-27998"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-29859")))
+ #(ribcage #(x) #((top)) #("l-*-27976")))
(hygiene guile))
- in-29910)
+ in-28027)
'()
- (list out-29909
+ (list out-28026
(cons '#(syntax-object
let
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("l-*-29878"
- "l-*-29879"
- "l-*-29880"
- "l-*-29881"))
+ #("l-*-27995"
+ "l-*-27996"
+ "l-*-27997"
+ "l-*-27998"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-29859")))
+ #("l-*-27976")))
(hygiene guile))
- (cons '() (cons e1-29911 e2-29912))))))
- tmp-29905)
+ (cons '() (cons e1-28028 e2-28029))))))
+ tmp-28022)
(syntax-violation
#f
"source expression failed to match any pattern"
- x-29889))))))))))
+ x-28006))))))))))
(define syntax-rules
(make-syntax-transformer
'syntax-rules
'macro
- (lambda (x-29966)
- (let ((tmp-29968
+ (lambda (x-28083)
+ (let ((tmp-28085
($sc-dispatch
- x-29966
+ x-28083
'(_ each-any . #(each ((any . any) any))))))
- (if tmp-29968
+ (if tmp-28085
(@apply
- (lambda (k-29972
- keyword-29973
- pattern-29974
- template-29975)
+ (lambda (k-28089
+ keyword-28090
+ pattern-28091
+ template-28092)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("l-*-29929"
- "l-*-29930"
- "l-*-29931"
- "l-*-29932"))
+ #("l-*-28046"
+ "l-*-28047"
+ "l-*-28048"
+ "l-*-28049"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-29926")))
+ #(ribcage #(x) #((top)) #("l-*-28043")))
(hygiene guile))
'(#(syntax-object
x
@@ -22391,12 +22366,12 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("l-*-29929"
- "l-*-29930"
- "l-*-29931"
- "l-*-29932"))
+ #("l-*-28046"
+ "l-*-28047"
+ "l-*-28048"
+ "l-*-28049"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-29926")))
+ #(ribcage #(x) #((top)) #("l-*-28043")))
(hygiene guile)))
(vector
'(#(syntax-object
@@ -22405,12 +22380,12 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("l-*-29929"
- "l-*-29930"
- "l-*-29931"
- "l-*-29932"))
+ #("l-*-28046"
+ "l-*-28047"
+ "l-*-28048"
+ "l-*-28049"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-29926")))
+ #(ribcage #(x) #((top)) #("l-*-28043")))
(hygiene guile))
.
#(syntax-object
@@ -22419,12 +22394,12 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("l-*-29929"
- "l-*-29930"
- "l-*-29931"
- "l-*-29932"))
+ #("l-*-28046"
+ "l-*-28047"
+ "l-*-28048"
+ "l-*-28049"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-29926")))
+ #(ribcage #(x) #((top)) #("l-*-28043")))
(hygiene guile)))
(cons '#(syntax-object
patterns
@@ -22432,26 +22407,26 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("l-*-29929"
- "l-*-29930"
- "l-*-29931"
- "l-*-29932"))
+ #("l-*-28046"
+ "l-*-28047"
+ "l-*-28048"
+ "l-*-28049"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-29926")))
+ #(ribcage #(x) #((top)) #("l-*-28043")))
(hygiene guile))
- pattern-29974))
+ pattern-28091))
(cons '#(syntax-object
syntax-case
((top)
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("l-*-29929"
- "l-*-29930"
- "l-*-29931"
- "l-*-29932"))
+ #("l-*-28046"
+ "l-*-28047"
+ "l-*-28048"
+ "l-*-28049"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-29926")))
+ #(ribcage #(x) #((top)) #("l-*-28043")))
(hygiene guile))
(cons '#(syntax-object
x
@@ -22459,16 +22434,16 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("l-*-29929"
- "l-*-29930"
- "l-*-29931"
- "l-*-29932"))
+ #("l-*-28046"
+ "l-*-28047"
+ "l-*-28048"
+ "l-*-28049"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-29926")))
+ #(ribcage #(x) #((top)) #("l-*-28043")))
(hygiene guile))
- (cons k-29972
- (map (lambda (tmp-29940-29976
- tmp-29939-29977)
+ (cons k-28089
+ (map (lambda (tmp-28057-28093
+ tmp-28056-28094)
(list (cons '#(syntax-object
dummy
((top)
@@ -22481,10 +22456,10 @@
(top)
(top)
(top))
- #("l-*-29929"
- "l-*-29930"
- "l-*-29931"
- "l-*-29932"))
+ #("l-*-28046"
+ "l-*-28047"
+ "l-*-28048"
+ "l-*-28049"))
#(ribcage
()
()
@@ -22492,9 +22467,9 @@
#(ribcage
#(x)
#((top))
- #("l-*-29926")))
+ #("l-*-28043")))
(hygiene guile))
- tmp-29939-29977)
+ tmp-28056-28094)
(list '#(syntax-object
syntax
((top)
@@ -22507,10 +22482,10 @@
(top)
(top)
(top))
- #("l-*-29929"
- "l-*-29930"
- "l-*-29931"
- "l-*-29932"))
+ #("l-*-28046"
+ "l-*-28047"
+ "l-*-28048"
+ "l-*-28049"))
#(ribcage
()
()
@@ -22518,45 +22493,45 @@
#(ribcage
#(x)
#((top))
- #("l-*-29926")))
+ #("l-*-28043")))
(hygiene guile))
- tmp-29940-29976)))
- template-29975
- pattern-29974))))))
- tmp-29968)
- (let ((tmp-29978
+ tmp-28057-28093)))
+ template-28092
+ pattern-28091))))))
+ tmp-28085)
+ (let ((tmp-28095
($sc-dispatch
- x-29966
+ x-28083
'(_ each-any any . #(each ((any . any) any))))))
- (if (if tmp-29978
+ (if (if tmp-28095
(@apply
- (lambda (k-29982
- docstring-29983
- keyword-29984
- pattern-29985
- template-29986)
- (string? (syntax->datum docstring-29983)))
- tmp-29978)
+ (lambda (k-28099
+ docstring-28100
+ keyword-28101
+ pattern-28102
+ template-28103)
+ (string? (syntax->datum docstring-28100)))
+ tmp-28095)
#f)
(@apply
- (lambda (k-29987
- docstring-29988
- keyword-29989
- pattern-29990
- template-29991)
+ (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-*-29952"
- "l-*-29953"
- "l-*-29954"
- "l-*-29955"
- "l-*-29956"))
+ #("l-*-28069"
+ "l-*-28070"
+ "l-*-28071"
+ "l-*-28072"
+ "l-*-28073"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-29926")))
+ #(ribcage #(x) #((top)) #("l-*-28043")))
(hygiene guile))
'(#(syntax-object
x
@@ -22564,15 +22539,15 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("l-*-29952"
- "l-*-29953"
- "l-*-29954"
- "l-*-29955"
- "l-*-29956"))
+ #("l-*-28069"
+ "l-*-28070"
+ "l-*-28071"
+ "l-*-28072"
+ "l-*-28073"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-29926")))
+ #(ribcage #(x) #((top)) #("l-*-28043")))
(hygiene guile)))
- docstring-29988
+ docstring-28105
(vector
'(#(syntax-object
macro-type
@@ -22580,13 +22555,13 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("l-*-29952"
- "l-*-29953"
- "l-*-29954"
- "l-*-29955"
- "l-*-29956"))
+ #("l-*-28069"
+ "l-*-28070"
+ "l-*-28071"
+ "l-*-28072"
+ "l-*-28073"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-29926")))
+ #(ribcage #(x) #((top)) #("l-*-28043")))
(hygiene guile))
.
#(syntax-object
@@ -22595,13 +22570,13 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("l-*-29952"
- "l-*-29953"
- "l-*-29954"
- "l-*-29955"
- "l-*-29956"))
+ #("l-*-28069"
+ "l-*-28070"
+ "l-*-28071"
+ "l-*-28072"
+ "l-*-28073"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-29926")))
+ #(ribcage #(x) #((top)) #("l-*-28043")))
(hygiene guile)))
(cons '#(syntax-object
patterns
@@ -22609,28 +22584,28 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("l-*-29952"
- "l-*-29953"
- "l-*-29954"
- "l-*-29955"
- "l-*-29956"))
+ #("l-*-28069"
+ "l-*-28070"
+ "l-*-28071"
+ "l-*-28072"
+ "l-*-28073"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-29926")))
+ #(ribcage #(x) #((top)) #("l-*-28043")))
(hygiene guile))
- pattern-29990))
+ pattern-28107))
(cons '#(syntax-object
syntax-case
((top)
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("l-*-29952"
- "l-*-29953"
- "l-*-29954"
- "l-*-29955"
- "l-*-29956"))
+ #("l-*-28069"
+ "l-*-28070"
+ "l-*-28071"
+ "l-*-28072"
+ "l-*-28073"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-29926")))
+ #(ribcage #(x) #((top)) #("l-*-28043")))
(hygiene guile))
(cons '#(syntax-object
x
@@ -22642,20 +22617,20 @@
pattern
template)
#((top) (top) (top) (top) (top))
- #("l-*-29952"
- "l-*-29953"
- "l-*-29954"
- "l-*-29955"
- "l-*-29956"))
+ #("l-*-28069"
+ "l-*-28070"
+ "l-*-28071"
+ "l-*-28072"
+ "l-*-28073"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-29926")))
+ #("l-*-28043")))
(hygiene guile))
- (cons k-29987
- (map (lambda (tmp-29965-29992
- tmp-29964-29993)
+ (cons k-28104
+ (map (lambda (tmp-28082-28109
+ tmp-28081-28110)
(list (cons '#(syntax-object
dummy
((top)
@@ -22670,11 +22645,11 @@
(top)
(top)
(top))
-
#("l-*-29952"
-
"l-*-29953"
-
"l-*-29954"
-
"l-*-29955"
-
"l-*-29956"))
+
#("l-*-28069"
+
"l-*-28070"
+
"l-*-28071"
+
"l-*-28072"
+
"l-*-28073"))
#(ribcage
()
()
@@ -22682,10 +22657,10 @@
#(ribcage
#(x)
#((top))
-
#("l-*-29926")))
+
#("l-*-28043")))
(hygiene
guile))
- tmp-29964-29993)
+ tmp-28081-28110)
(list '#(syntax-object
syntax
((top)
@@ -22700,11 +22675,11 @@
(top)
(top)
(top))
-
#("l-*-29952"
-
"l-*-29953"
-
"l-*-29954"
-
"l-*-29955"
-
"l-*-29956"))
+
#("l-*-28069"
+
"l-*-28070"
+
"l-*-28071"
+
"l-*-28072"
+
"l-*-28073"))
#(ribcage
()
()
@@ -22712,48 +22687,48 @@
#(ribcage
#(x)
#((top))
-
#("l-*-29926")))
+
#("l-*-28043")))
(hygiene
guile))
- tmp-29965-29992)))
- template-29991
- pattern-29990))))))
- tmp-29978)
+ tmp-28082-28109)))
+ template-28108
+ pattern-28107))))))
+ tmp-28095)
(syntax-violation
#f
"source expression failed to match any pattern"
- x-29966))))))))
+ x-28083))))))))
(define define-syntax-rule
(make-syntax-transformer
'define-syntax-rule
'macro
- (lambda (x-30030)
- (let ((tmp-30032
- ($sc-dispatch x-30030 '(_ (any . any) any))))
- (if tmp-30032
+ (lambda (x-28147)
+ (let ((tmp-28149
+ ($sc-dispatch x-28147 '(_ (any . any) any))))
+ (if tmp-28149
(@apply
- (lambda (name-30036 pattern-30037 template-30038)
+ (lambda (name-28153 pattern-28154 template-28155)
(list '#(syntax-object
define-syntax
((top)
#(ribcage
#(name pattern template)
#((top) (top) (top))
- #("l-*-30007" "l-*-30008" "l-*-30009"))
+ #("l-*-28124" "l-*-28125" "l-*-28126"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-30004")))
+ #(ribcage #(x) #((top)) #("l-*-28121")))
(hygiene guile))
- name-30036
+ name-28153
(list '#(syntax-object
syntax-rules
((top)
#(ribcage
#(name pattern template)
#((top) (top) (top))
- #("l-*-30007" "l-*-30008" "l-*-30009"))
+ #("l-*-28124" "l-*-28125" "l-*-28126"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-30004")))
+ #(ribcage #(x) #((top)) #("l-*-28121")))
(hygiene guile))
'()
(list (cons '#(syntax-object
@@ -22762,63 +22737,63 @@
#(ribcage
#(name pattern template)
#((top) (top) (top))
- #("l-*-30007"
- "l-*-30008"
- "l-*-30009"))
+ #("l-*-28124"
+ "l-*-28125"
+ "l-*-28126"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-30004")))
+ #("l-*-28121")))
(hygiene guile))
- pattern-30037)
- template-30038))))
- tmp-30032)
- (let ((tmp-30039
- ($sc-dispatch x-30030 '(_ (any . any) any any))))
- (if (if tmp-30039
+ pattern-28154)
+ template-28155))))
+ tmp-28149)
+ (let ((tmp-28156
+ ($sc-dispatch x-28147 '(_ (any . any) any any))))
+ (if (if tmp-28156
(@apply
- (lambda (name-30043
- pattern-30044
- docstring-30045
- template-30046)
- (string? (syntax->datum docstring-30045)))
- tmp-30039)
+ (lambda (name-28160
+ pattern-28161
+ docstring-28162
+ template-28163)
+ (string? (syntax->datum docstring-28162)))
+ tmp-28156)
#f)
(@apply
- (lambda (name-30047
- pattern-30048
- docstring-30049
- template-30050)
+ (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-*-30022"
- "l-*-30023"
- "l-*-30024"
- "l-*-30025"))
+ #("l-*-28139"
+ "l-*-28140"
+ "l-*-28141"
+ "l-*-28142"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-30004")))
+ #(ribcage #(x) #((top)) #("l-*-28121")))
(hygiene guile))
- name-30047
+ name-28164
(list '#(syntax-object
syntax-rules
((top)
#(ribcage
#(name pattern docstring template)
#((top) (top) (top) (top))
- #("l-*-30022"
- "l-*-30023"
- "l-*-30024"
- "l-*-30025"))
+ #("l-*-28139"
+ "l-*-28140"
+ "l-*-28141"
+ "l-*-28142"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-30004")))
+ #(ribcage #(x) #((top)) #("l-*-28121")))
(hygiene guile))
'()
- docstring-30049
+ docstring-28166
(list (cons '#(syntax-object
_
((top)
@@ -22828,45 +22803,45 @@
docstring
template)
#((top) (top) (top) (top))
- #("l-*-30022"
- "l-*-30023"
- "l-*-30024"
- "l-*-30025"))
+ #("l-*-28139"
+ "l-*-28140"
+ "l-*-28141"
+ "l-*-28142"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-30004")))
+ #("l-*-28121")))
(hygiene guile))
- pattern-30048)
- template-30050))))
- tmp-30039)
+ pattern-28165)
+ template-28167))))
+ tmp-28156)
(syntax-violation
#f
"source expression failed to match any pattern"
- x-30030))))))))
+ x-28147))))))))
(define let*
(make-syntax-transformer
'let*
'macro
- (lambda (x-30099)
- (let ((tmp-30101
+ (lambda (x-28216)
+ (let ((tmp-28218
($sc-dispatch
- x-30099
+ x-28216
'(any #(each (any any)) any . each-any))))
- (if (if tmp-30101
+ (if (if tmp-28218
(@apply
- (lambda (let*-30105 x-30106 v-30107 e1-30108 e2-30109)
- (and-map identifier? x-30106))
- tmp-30101)
+ (lambda (let*-28222 x-28223 v-28224 e1-28225 e2-28226)
+ (and-map identifier? x-28223))
+ tmp-28218)
#f)
(@apply
- (lambda (let*-30110 x-30111 v-30112 e1-30113 e2-30114)
+ (lambda (let*-28227 x-28228 v-28229 e1-28230 e2-28231)
(letrec*
- ((f-30115
- (lambda (bindings-30118)
- (if (null? bindings-30118)
+ ((f-28232
+ (lambda (bindings-28235)
+ (if (null? bindings-28235)
(cons '#(syntax-object
let
((top)
@@ -22874,26 +22849,26 @@
#(ribcage
#(f bindings)
#((top) (top))
- #("l-*-30085" "l-*-30086"))
+ #("l-*-28202" "l-*-28203"))
#(ribcage
#(let* x v e1 e2)
#((top) (top) (top) (top) (top))
- #("l-*-30075"
- "l-*-30076"
- "l-*-30077"
- "l-*-30078"
- "l-*-30079"))
+ #("l-*-28192"
+ "l-*-28193"
+ "l-*-28194"
+ "l-*-28195"
+ "l-*-28196"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-30061")))
+ #(ribcage #(x) #((top)) #("l-*-28178")))
(hygiene guile))
- (cons '() (cons e1-30113 e2-30114)))
- (let ((tmp-30119
- (list (f-30115 (cdr bindings-30118))
- (car bindings-30118))))
- (let ((tmp-30120 ($sc-dispatch tmp-30119 '(any any))))
- (if tmp-30120
+ (cons '() (cons e1-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-30122 binding-30123)
+ (lambda (body-28239 binding-28240)
(list '#(syntax-object
let
((top)
@@ -22901,84 +22876,84 @@
#(ribcage
#(body binding)
#((top) (top))
- #("l-*-30095" "l-*-30096"))
+ #("l-*-28212" "l-*-28213"))
#(ribcage () () ())
#(ribcage
#(f bindings)
#((top) (top))
- #("l-*-30085" "l-*-30086"))
+ #("l-*-28202" "l-*-28203"))
#(ribcage
#(let* x v e1 e2)
#((top) (top) (top) (top) (top))
- #("l-*-30075"
- "l-*-30076"
- "l-*-30077"
- "l-*-30078"
- "l-*-30079"))
+ #("l-*-28192"
+ "l-*-28193"
+ "l-*-28194"
+ "l-*-28195"
+ "l-*-28196"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-30061")))
+ #("l-*-28178")))
(hygiene guile))
- (list binding-30123)
- body-30122))
- tmp-30120)
+ (list binding-28240)
+ body-28239))
+ tmp-28237)
(syntax-violation
#f
"source expression failed to match any pattern"
- tmp-30119))))))))
- (f-30115 (map list x-30111 v-30112))))
- tmp-30101)
+ tmp-28236))))))))
+ (f-28232 (map list x-28228 v-28229))))
+ tmp-28218)
(syntax-violation
#f
"source expression failed to match any pattern"
- x-30099))))))
+ x-28216))))))
(define do
(make-syntax-transformer
'do
'macro
- (lambda (orig-x-30181)
- (let ((tmp-30183
+ (lambda (orig-x-28298)
+ (let ((tmp-28300
($sc-dispatch
- orig-x-30181
+ orig-x-28298
'(_ #(each (any any . any))
(any . each-any)
.
each-any))))
- (if tmp-30183
+ (if tmp-28300
(@apply
- (lambda (var-30187
- init-30188
- step-30189
- e0-30190
- e1-30191
- c-30192)
- (let ((tmp-30193
- (map (lambda (v-30196 s-30197)
- (let ((tmp-30199 ($sc-dispatch s-30197 '())))
- (if tmp-30199
- (@apply (lambda () v-30196) tmp-30199)
- (let ((tmp-30202
- ($sc-dispatch s-30197 '(any))))
- (if tmp-30202
+ (lambda (var-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-30205) e-30205)
- tmp-30202)
+ (lambda (e-28322) e-28322)
+ tmp-28319)
(syntax-violation
'do
"bad step expression"
- orig-x-30181
- s-30197))))))
- var-30187
- step-30189)))
- (let ((tmp-30194 ($sc-dispatch tmp-30193 'each-any)))
- (if tmp-30194
+ orig-x-28298
+ s-28314))))))
+ var-28304
+ step-28306)))
+ (let ((tmp-28311 ($sc-dispatch tmp-28310 'each-any)))
+ (if tmp-28311
(@apply
- (lambda (step-30211)
- (let ((tmp-30213 ($sc-dispatch e1-30191 '())))
- (if tmp-30213
+ (lambda (step-28328)
+ (let ((tmp-28330 ($sc-dispatch e1-28308 '())))
+ (if tmp-28330
(@apply
(lambda ()
(list '#(syntax-object
@@ -22988,7 +22963,7 @@
#(ribcage
#(step)
#((top))
- #("l-*-30149"))
+ #("l-*-28266"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -22997,17 +22972,17 @@
(top)
(top)
(top))
- #("l-*-30134"
- "l-*-30135"
- "l-*-30136"
- "l-*-30137"
- "l-*-30138"
- "l-*-30139"))
+ #("l-*-28251"
+ "l-*-28252"
+ "l-*-28253"
+ "l-*-28254"
+ "l-*-28255"
+ "l-*-28256"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("l-*-30131")))
+ #("l-*-28248")))
(hygiene guile))
'#(syntax-object
doloop
@@ -23016,7 +22991,7 @@
#(ribcage
#(step)
#((top))
- #("l-*-30149"))
+ #("l-*-28266"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -23025,19 +23000,19 @@
(top)
(top)
(top))
- #("l-*-30134"
- "l-*-30135"
- "l-*-30136"
- "l-*-30137"
- "l-*-30138"
- "l-*-30139"))
+ #("l-*-28251"
+ "l-*-28252"
+ "l-*-28253"
+ "l-*-28254"
+ "l-*-28255"
+ "l-*-28256"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("l-*-30131")))
+ #("l-*-28248")))
(hygiene guile))
- (map list var-30187 init-30188)
+ (map list var-28304 init-28305)
(list '#(syntax-object
if
((top)
@@ -23045,7 +23020,7 @@
#(ribcage
#(step)
#((top))
- #("l-*-30149"))
+ #("l-*-28266"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -23054,17 +23029,17 @@
(top)
(top)
(top))
- #("l-*-30134"
- "l-*-30135"
- "l-*-30136"
- "l-*-30137"
- "l-*-30138"
- "l-*-30139"))
+ #("l-*-28251"
+ "l-*-28252"
+ "l-*-28253"
+ "l-*-28254"
+ "l-*-28255"
+ "l-*-28256"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("l-*-30131")))
+ #("l-*-28248")))
(hygiene guile))
(list '#(syntax-object
not
@@ -23073,7 +23048,7 @@
#(ribcage
#(step)
#((top))
- #("l-*-30149"))
+ #("l-*-28266"))
#(ribcage
#(var
init
@@ -23087,19 +23062,19 @@
(top)
(top)
(top))
- #("l-*-30134"
- "l-*-30135"
- "l-*-30136"
- "l-*-30137"
- "l-*-30138"
- "l-*-30139"))
+ #("l-*-28251"
+ "l-*-28252"
+ "l-*-28253"
+ "l-*-28254"
+ "l-*-28255"
+ "l-*-28256"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("l-*-30131")))
+ #("l-*-28248")))
(hygiene guile))
- e0-30190)
+ e0-28307)
(cons '#(syntax-object
begin
((top)
@@ -23107,7 +23082,7 @@
#(ribcage
#(step)
#((top))
- #("l-*-30149"))
+ #("l-*-28266"))
#(ribcage
#(var
init
@@ -23121,20 +23096,20 @@
(top)
(top)
(top))
- #("l-*-30134"
- "l-*-30135"
- "l-*-30136"
- "l-*-30137"
- "l-*-30138"
- "l-*-30139"))
+ #("l-*-28251"
+ "l-*-28252"
+ "l-*-28253"
+ "l-*-28254"
+ "l-*-28255"
+ "l-*-28256"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("l-*-30131")))
+ #("l-*-28248")))
(hygiene guile))
(append
- c-30192
+ c-28309
(list (cons
'#(syntax-object
doloop
((top)
@@ -23145,7 +23120,7 @@
#(ribcage
#(step)
#((top))
-
#("l-*-30149"))
+
#("l-*-28266"))
#(ribcage
#(var
init
@@ -23159,12 +23134,12 @@
(top)
(top)
(top))
-
#("l-*-30134"
-
"l-*-30135"
-
"l-*-30136"
-
"l-*-30137"
-
"l-*-30138"
-
"l-*-30139"))
+
#("l-*-28251"
+
"l-*-28252"
+
"l-*-28253"
+
"l-*-28254"
+
"l-*-28255"
+
"l-*-28256"))
#(ribcage
()
()
@@ -23172,28 +23147,28 @@
#(ribcage
#(orig-x)
#((top))
-
#("l-*-30131")))
+
#("l-*-28248")))
(hygiene
guile))
-
step-30211)))))))
- tmp-30213)
- (let ((tmp-30217
- ($sc-dispatch e1-30191 '(any . each-any))))
- (if tmp-30217
+
step-28328)))))))
+ tmp-28330)
+ (let ((tmp-28334
+ ($sc-dispatch e1-28308 '(any . each-any))))
+ (if tmp-28334
(@apply
- (lambda (e1-30221 e2-30222)
+ (lambda (e1-28338 e2-28339)
(list '#(syntax-object
let
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("l-*-30158" "l-*-30159"))
+ #("l-*-28275" "l-*-28276"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("l-*-30149"))
+ #("l-*-28266"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -23202,17 +23177,17 @@
(top)
(top)
(top))
- #("l-*-30134"
- "l-*-30135"
- "l-*-30136"
- "l-*-30137"
- "l-*-30138"
- "l-*-30139"))
+ #("l-*-28251"
+ "l-*-28252"
+ "l-*-28253"
+ "l-*-28254"
+ "l-*-28255"
+ "l-*-28256"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("l-*-30131")))
+ #("l-*-28248")))
(hygiene guile))
'#(syntax-object
doloop
@@ -23220,12 +23195,12 @@
#(ribcage
#(e1 e2)
#((top) (top))
- #("l-*-30158" "l-*-30159"))
+ #("l-*-28275" "l-*-28276"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("l-*-30149"))
+ #("l-*-28266"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -23234,32 +23209,32 @@
(top)
(top)
(top))
- #("l-*-30134"
- "l-*-30135"
- "l-*-30136"
- "l-*-30137"
- "l-*-30138"
- "l-*-30139"))
+ #("l-*-28251"
+ "l-*-28252"
+ "l-*-28253"
+ "l-*-28254"
+ "l-*-28255"
+ "l-*-28256"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("l-*-30131")))
+ #("l-*-28248")))
(hygiene guile))
- (map list var-30187 init-30188)
+ (map list var-28304 init-28305)
(list '#(syntax-object
if
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("l-*-30158"
- "l-*-30159"))
+ #("l-*-28275"
+ "l-*-28276"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("l-*-30149"))
+ #("l-*-28266"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -23268,32 +23243,32 @@
(top)
(top)
(top))
- #("l-*-30134"
- "l-*-30135"
- "l-*-30136"
- "l-*-30137"
- "l-*-30138"
- "l-*-30139"))
+ #("l-*-28251"
+ "l-*-28252"
+ "l-*-28253"
+ "l-*-28254"
+ "l-*-28255"
+ "l-*-28256"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("l-*-30131")))
+ #("l-*-28248")))
(hygiene guile))
- e0-30190
+ e0-28307
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("l-*-30158"
- "l-*-30159"))
+ #("l-*-28275"
+ "l-*-28276"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("l-*-30149"))
+ #("l-*-28266"))
#(ribcage
#(var
init
@@ -23307,32 +23282,32 @@
(top)
(top)
(top))
- #("l-*-30134"
- "l-*-30135"
- "l-*-30136"
- "l-*-30137"
- "l-*-30138"
- "l-*-30139"))
+ #("l-*-28251"
+ "l-*-28252"
+ "l-*-28253"
+ "l-*-28254"
+ "l-*-28255"
+ "l-*-28256"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("l-*-30131")))
+ #("l-*-28248")))
(hygiene guile))
- (cons e1-30221 e2-30222))
+ (cons e1-28338 e2-28339))
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("l-*-30158"
- "l-*-30159"))
+ #("l-*-28275"
+ "l-*-28276"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("l-*-30149"))
+ #("l-*-28266"))
#(ribcage
#(var
init
@@ -23346,20 +23321,20 @@
(top)
(top)
(top))
- #("l-*-30134"
- "l-*-30135"
- "l-*-30136"
- "l-*-30137"
- "l-*-30138"
- "l-*-30139"))
+ #("l-*-28251"
+ "l-*-28252"
+ "l-*-28253"
+ "l-*-28254"
+ "l-*-28255"
+ "l-*-28256"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("l-*-30131")))
+ #("l-*-28248")))
(hygiene guile))
(append
- c-30192
+ c-28309
(list (cons
'#(syntax-object
doloop
((top)
@@ -23368,8 +23343,8 @@
e2)
#((top)
(top))
-
#("l-*-30158"
-
"l-*-30159"))
+
#("l-*-28275"
+
"l-*-28276"))
#(ribcage
()
()
@@ -23377,7 +23352,7 @@
#(ribcage
#(step)
#((top))
-
#("l-*-30149"))
+
#("l-*-28266"))
#(ribcage
#(var
init
@@ -23391,12 +23366,12 @@
(top)
(top)
(top))
-
#("l-*-30134"
-
"l-*-30135"
-
"l-*-30136"
-
"l-*-30137"
-
"l-*-30138"
-
"l-*-30139"))
+
#("l-*-28251"
+
"l-*-28252"
+
"l-*-28253"
+
"l-*-28254"
+
"l-*-28255"
+
"l-*-28256"))
#(ribcage
()
()
@@ -23404,36 +23379,36 @@
#(ribcage
#(orig-x)
#((top))
-
#("l-*-30131")))
+
#("l-*-28248")))
(hygiene
guile))
-
step-30211)))))))
- tmp-30217)
+
step-28328)))))))
+ tmp-28334)
(syntax-violation
#f
"source expression failed to match any
pattern"
- e1-30191))))))
- tmp-30194)
+ e1-28308))))))
+ tmp-28311)
(syntax-violation
#f
"source expression failed to match any pattern"
- tmp-30193)))))
- tmp-30183)
+ tmp-28310)))))
+ tmp-28300)
(syntax-violation
#f
"source expression failed to match any pattern"
- orig-x-30181))))))
+ orig-x-28298))))))
(define quasiquote
(make-syntax-transformer
'quasiquote
'macro
(letrec*
- ((quasi-30508
- (lambda (p-30532 lev-30533)
- (let ((tmp-30535
+ ((quasi-28619
+ (lambda (p-28643 lev-28644)
+ (let ((tmp-28646
($sc-dispatch
- p-30532
+ p-28643
'(#(free-id
#(syntax-object
unquote
@@ -23442,7 +23417,7 @@
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-30254" "l-*-30255"))
+ #("l-*-28371" "l-*-28372"))
#(ribcage
(emit quasivector
quasilist*
@@ -23451,28 +23426,28 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile)))
any))))
- (if tmp-30535
+ (if tmp-28646
(@apply
- (lambda (p-30539)
- (if (= lev-30533 0)
+ (lambda (p-28650)
+ (if (= lev-28644 0)
(list '#(syntax-object
"value"
((top)
- #(ribcage #(p) #((top)) #("l-*-30258"))
+ #(ribcage #(p) #((top)) #("l-*-28375"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-30254" "l-*-30255"))
+ #("l-*-28371" "l-*-28372"))
#(ribcage
(emit quasivector
quasilist*
@@ -23481,25 +23456,25 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile))
- p-30539)
- (quasicons-30510
+ p-28650)
+ (quasicons-28621
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("l-*-30258"))
+ #(ribcage #(p) #((top)) #("l-*-28375"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-30254" "l-*-30255"))
+ #("l-*-28371" "l-*-28372"))
#(ribcage
(emit quasivector
quasilist*
@@ -23508,23 +23483,23 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile))
#(syntax-object
unquote
((top)
- #(ribcage #(p) #((top)) #("l-*-30258"))
+ #(ribcage #(p) #((top)) #("l-*-28375"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-30254" "l-*-30255"))
+ #("l-*-28371" "l-*-28372"))
#(ribcage
(emit quasivector
quasilist*
@@ -23533,19 +23508,19 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile)))
- (quasi-30508 (list p-30539) (#{1-}# lev-30533)))))
- tmp-30535)
- (let ((tmp-30542
+ (quasi-28619 (list p-28650) (#{1-}# lev-28644)))))
+ tmp-28646)
+ (let ((tmp-28653
($sc-dispatch
- p-30532
+ p-28643
'(#(free-id
#(syntax-object
quasiquote
@@ -23554,7 +23529,7 @@
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-30254" "l-*-30255"))
+ #("l-*-28371" "l-*-28372"))
#(ribcage
(emit quasivector
quasilist*
@@ -23563,28 +23538,28 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile)))
any))))
- (if tmp-30542
+ (if tmp-28653
(@apply
- (lambda (p-30546)
- (quasicons-30510
+ (lambda (p-28657)
+ (quasicons-28621
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("l-*-30261"))
+ #(ribcage #(p) #((top)) #("l-*-28378"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-30254" "l-*-30255"))
+ #("l-*-28371" "l-*-28372"))
#(ribcage
(emit quasivector
quasilist*
@@ -23593,23 +23568,23 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile))
#(syntax-object
quasiquote
((top)
- #(ribcage #(p) #((top)) #("l-*-30261"))
+ #(ribcage #(p) #((top)) #("l-*-28378"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-30254" "l-*-30255"))
+ #("l-*-28371" "l-*-28372"))
#(ribcage
(emit quasivector
quasilist*
@@ -23618,23 +23593,23 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile)))
- (quasi-30508 (list p-30546) (#{1+}# lev-30533))))
- tmp-30542)
- (let ((tmp-30549 ($sc-dispatch p-30532 '(any . any))))
- (if tmp-30549
+ (quasi-28619 (list p-28657) (#{1+}# lev-28644))))
+ tmp-28653)
+ (let ((tmp-28660 ($sc-dispatch p-28643 '(any . any))))
+ (if tmp-28660
(@apply
- (lambda (p-30553 q-30554)
- (let ((tmp-30556
+ (lambda (p-28664 q-28665)
+ (let ((tmp-28667
($sc-dispatch
- p-30553
+ p-28664
'(#(free-id
#(syntax-object
unquote
@@ -23642,12 +23617,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("l-*-30264" "l-*-30265"))
+ #("l-*-28381" "l-*-28382"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-30254" "l-*-30255"))
+ #("l-*-28371" "l-*-28372"))
#(ribcage
(emit quasivector
quasilist*
@@ -23662,40 +23637,40 @@
(top)
(top)
(top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile)))
.
each-any))))
- (if tmp-30556
+ (if tmp-28667
(@apply
- (lambda (p-30560)
- (if (= lev-30533 0)
- (quasilist*-30512
- (map (lambda (tmp-30272-30596)
+ (lambda (p-28671)
+ (if (= lev-28644 0)
+ (quasilist*-28623
+ (map (lambda (tmp-28389-28707)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("l-*-30270"))
+ #("l-*-28387"))
#(ribcage
#(p q)
#((top) (top))
- #("l-*-30264"
- "l-*-30265"))
+ #("l-*-28381"
+ "l-*-28382"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-30254"
- "l-*-30255"))
+ #("l-*-28371"
+ "l-*-28372"))
#(ribcage
(emit quasivector
quasilist*
@@ -23710,35 +23685,35 @@
(top)
(top)
(top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile))
- tmp-30272-30596))
- p-30560)
- (quasi-30508 q-30554 lev-30533))
- (quasicons-30510
- (quasicons-30510
+ tmp-28389-28707))
+ p-28671)
+ (quasi-28619 q-28665 lev-28644))
+ (quasicons-28621
+ (quasicons-28621
'(#(syntax-object
"quote"
((top)
#(ribcage
#(p)
#((top))
- #("l-*-30270"))
+ #("l-*-28387"))
#(ribcage
#(p q)
#((top) (top))
- #("l-*-30264" "l-*-30265"))
+ #("l-*-28381" "l-*-28382"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-30254" "l-*-30255"))
+ #("l-*-28371" "l-*-28372"))
#(ribcage
(emit quasivector
quasilist*
@@ -23753,13 +23728,13 @@
(top)
(top)
(top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile))
#(syntax-object
unquote
@@ -23767,16 +23742,16 @@
#(ribcage
#(p)
#((top))
- #("l-*-30270"))
+ #("l-*-28387"))
#(ribcage
#(p q)
#((top) (top))
- #("l-*-30264" "l-*-30265"))
+ #("l-*-28381" "l-*-28382"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-30254" "l-*-30255"))
+ #("l-*-28371" "l-*-28372"))
#(ribcage
(emit quasivector
quasilist*
@@ -23791,22 +23766,22 @@
(top)
(top)
(top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile)))
- (quasi-30508
- p-30560
- (#{1-}# lev-30533)))
- (quasi-30508 q-30554 lev-30533))))
- tmp-30556)
- (let ((tmp-30601
+ (quasi-28619
+ p-28671
+ (#{1-}# lev-28644)))
+ (quasi-28619 q-28665 lev-28644))))
+ tmp-28667)
+ (let ((tmp-28712
($sc-dispatch
- p-30553
+ p-28664
'(#(free-id
#(syntax-object
unquote-splicing
@@ -23814,12 +23789,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("l-*-30264" "l-*-30265"))
+ #("l-*-28381" "l-*-28382"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-30254" "l-*-30255"))
+ #("l-*-28371" "l-*-28372"))
#(ribcage
(emit quasivector
quasilist*
@@ -23834,40 +23809,40 @@
(top)
(top)
(top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile)))
.
each-any))))
- (if tmp-30601
+ (if tmp-28712
(@apply
- (lambda (p-30605)
- (if (= lev-30533 0)
- (quasiappend-30511
- (map (lambda (tmp-30277-30608)
+ (lambda (p-28716)
+ (if (= lev-28644 0)
+ (quasiappend-28622
+ (map (lambda (tmp-28394-28719)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("l-*-30275"))
+ #("l-*-28392"))
#(ribcage
#(p q)
#((top) (top))
- #("l-*-30264"
- "l-*-30265"))
+ #("l-*-28381"
+ "l-*-28382"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-30254"
- "l-*-30255"))
+ #("l-*-28371"
+ "l-*-28372"))
#(ribcage
(emit quasivector
quasilist*
@@ -23882,35 +23857,35 @@
(top)
(top)
(top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile))
- tmp-30277-30608))
- p-30605)
- (quasi-30508 q-30554 lev-30533))
- (quasicons-30510
- (quasicons-30510
+ tmp-28394-28719))
+ p-28716)
+ (quasi-28619 q-28665 lev-28644))
+ (quasicons-28621
+ (quasicons-28621
'(#(syntax-object
"quote"
((top)
#(ribcage
#(p)
#((top))
- #("l-*-30275"))
+ #("l-*-28392"))
#(ribcage
#(p q)
#((top) (top))
- #("l-*-30264" "l-*-30265"))
+ #("l-*-28381" "l-*-28382"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-30254" "l-*-30255"))
+ #("l-*-28371" "l-*-28372"))
#(ribcage
(emit quasivector
quasilist*
@@ -23925,13 +23900,13 @@
(top)
(top)
(top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile))
#(syntax-object
unquote-splicing
@@ -23939,16 +23914,16 @@
#(ribcage
#(p)
#((top))
- #("l-*-30275"))
+ #("l-*-28392"))
#(ribcage
#(p q)
#((top) (top))
- #("l-*-30264" "l-*-30265"))
+ #("l-*-28381" "l-*-28382"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-30254" "l-*-30255"))
+ #("l-*-28371" "l-*-28372"))
#(ribcage
(emit quasivector
quasilist*
@@ -23963,49 +23938,49 @@
(top)
(top)
(top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile)))
- (quasi-30508
- p-30605
- (#{1-}# lev-30533)))
- (quasi-30508 q-30554 lev-30533))))
- tmp-30601)
- (quasicons-30510
- (quasi-30508 p-30553 lev-30533)
- (quasi-30508 q-30554 lev-30533)))))))
- tmp-30549)
- (let ((tmp-30622
- ($sc-dispatch p-30532 '#(vector each-any))))
- (if tmp-30622
+ (quasi-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-30626)
- (let ((x-30629
- (vquasi-30509 x-30626 lev-30533)))
- (let ((tmp-30631
+ (lambda (x-28737)
+ (let ((x-28740
+ (vquasi-28620 x-28737 lev-28644)))
+ (let ((tmp-28742
($sc-dispatch
- x-30629
+ x-28740
'(#(atom "quote") each-any))))
- (if tmp-30631
+ (if tmp-28742
(@apply
- (lambda (x-30635)
+ (lambda (x-28746)
(list '#(syntax-object
"quote"
((top)
#(ribcage
#(x)
#((top))
- #("l-*-30382"))
+ #("l-*-28493"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-30379"))
+ #("l-*-28490"))
#(ribcage
(emit quasivector
quasilist*
@@ -24020,36 +23995,36 @@
(top)
(top)
(top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile))
- (list->vector x-30635)))
- tmp-30631)
+ (list->vector x-28746)))
+ tmp-28742)
(letrec*
- ((f-30637
- (lambda (y-30649 k-30650)
- (let ((tmp-30652
+ ((f-28748
+ (lambda (y-28760 k-28761)
+ (let ((tmp-28763
($sc-dispatch
- y-30649
+ y-28760
'(#(atom "quote")
each-any))))
- (if tmp-30652
+ (if tmp-28763
(@apply
- (lambda (y-30655)
- (k-30650
- (map (lambda
(tmp-30407-30656)
+ (lambda (y-28766)
+ (k-28761
+ (map (lambda
(tmp-28518-28767)
(list
'#(syntax-object
"quote"
((top)
#(ribcage
#(y)
#((top))
-
#("l-*-30405"))
+
#("l-*-28516"))
#(ribcage
()
()
@@ -24061,13 +24036,13 @@
#((top)
(top)
(top))
-
#("l-*-30387"
-
"l-*-30388"
-
"l-*-30389"))
+
#("l-*-28498"
+
"l-*-28499"
+
"l-*-28500"))
#(ribcage
#(_)
#((top))
-
#("l-*-30385"))
+
#("l-*-28496"))
#(ribcage
()
()
@@ -24075,7 +24050,7 @@
#(ribcage
#(x)
#((top))
-
#("l-*-30379"))
+
#("l-*-28490"))
#(ribcage
(emit
quasivector
quasilist*
@@ -24090,50 +24065,50 @@
(top)
(top)
(top))
-
("l-*-30250"
-
"l-*-30248"
-
"l-*-30246"
-
"l-*-30244"
-
"l-*-30242"
-
"l-*-30240"
-
"l-*-30238")))
+
("l-*-28367"
+
"l-*-28365"
+
"l-*-28363"
+
"l-*-28361"
+
"l-*-28359"
+
"l-*-28357"
+
"l-*-28355")))
(hygiene
guile))
-
tmp-30407-30656))
- y-30655)))
- tmp-30652)
- (let ((tmp-30657
+
tmp-28518-28767))
+ y-28766)))
+ tmp-28763)
+ (let ((tmp-28768
($sc-dispatch
- y-30649
+ y-28760
'(#(atom "list")
.
each-any))))
- (if tmp-30657
+ (if tmp-28768
(@apply
- (lambda (y-30660)
- (k-30650 y-30660))
- tmp-30657)
- (let ((tmp-30661
+ (lambda (y-28771)
+ (k-28761 y-28771))
+ tmp-28768)
+ (let ((tmp-28772
($sc-dispatch
- y-30649
+ y-28760
'(#(atom "list*")
.
#(each+
any
(any)
())))))
- (if tmp-30661
+ (if tmp-28772
(@apply
- (lambda (y-30664
- z-30665)
- (f-30637
- z-30665
- (lambda
(ls-30666)
- (k-30650
+ (lambda (y-28775
+ z-28776)
+ (f-28748
+ z-28776
+ (lambda
(ls-28777)
+ (k-28761
(append
- y-30664
-
ls-30666)))))
- tmp-30661)
+ y-28775
+
ls-28777)))))
+ tmp-28772)
(list '#(syntax-object
"list->vector"
((top)
@@ -24142,14 +24117,14 @@
()
())
#(ribcage
- #(t-30422)
-
#((m-*-30423
+ #(t-28533)
+
#((m-*-28534
top))
-
#("l-*-30426"))
+
#("l-*-28537"))
#(ribcage
#(else)
#((top))
-
#("l-*-30420"))
+
#("l-*-28531"))
#(ribcage
()
()
@@ -24159,13 +24134,13 @@
#((top)
(top)
(top))
-
#("l-*-30387"
-
"l-*-30388"
-
"l-*-30389"))
+
#("l-*-28498"
+
"l-*-28499"
+
"l-*-28500"))
#(ribcage
#(_)
#((top))
-
#("l-*-30385"))
+
#("l-*-28496"))
#(ribcage
()
()
@@ -24173,7 +24148,7 @@
#(ribcage
#(x)
#((top))
-
#("l-*-30379"))
+
#("l-*-28490"))
#(ribcage
(emit
quasivector
quasilist*
@@ -24188,26 +24163,26 @@
(top)
(top)
(top))
-
("l-*-30250"
-
"l-*-30248"
-
"l-*-30246"
-
"l-*-30244"
-
"l-*-30242"
-
"l-*-30240"
-
"l-*-30238")))
+
("l-*-28367"
+
"l-*-28365"
+
"l-*-28363"
+
"l-*-28361"
+
"l-*-28359"
+
"l-*-28357"
+
"l-*-28355")))
(hygiene
guile))
- x-30629))))))))))
- (f-30637
- x-30629
- (lambda (ls-30639)
- (let ((tmp-30641
+ x-28740))))))))))
+ (f-28748
+ x-28740
+ (lambda (ls-28750)
+ (let ((tmp-28752
($sc-dispatch
- ls-30639
+ ls-28750
'each-any)))
- (if tmp-30641
+ (if tmp-28752
(@apply
- (lambda (t-30395-30644)
+ (lambda (t-28506-28755)
(cons '#(syntax-object
"vector"
((top)
@@ -24216,10 +24191,10 @@
()
())
#(ribcage
- #(t-30395)
- #((m-*-30396
+ #(t-28506)
+ #((m-*-28507
top))
- #("l-*-30400"))
+ #("l-*-28511"))
#(ribcage
()
()
@@ -24235,11 +24210,11 @@
#(ribcage
#(ls)
#((top))
- #("l-*-30394"))
+ #("l-*-28505"))
#(ribcage
#(_)
#((top))
- #("l-*-30385"))
+ #("l-*-28496"))
#(ribcage
()
()
@@ -24247,7 +24222,7 @@
#(ribcage
#(x)
#((top))
- #("l-*-30379"))
+ #("l-*-28490"))
#(ribcage
(emit
quasivector
quasilist*
@@ -24262,30 +24237,30 @@
(top)
(top)
(top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile))
- t-30395-30644))
- tmp-30641)
+ t-28506-28755))
+ tmp-28752)
(syntax-violation
#f
"source expression failed to
match any pattern"
- ls-30639))))))))))
- tmp-30622)
+ ls-28750))))))))))
+ tmp-28733)
(list '#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("l-*-30285"))
+ #(ribcage #(p) #((top)) #("l-*-28402"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-30254" "l-*-30255"))
+ #("l-*-28371" "l-*-28372"))
#(ribcage
(emit quasivector
quasilist*
@@ -24300,24 +24275,24 @@
(top)
(top)
(top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile))
- p-30532)))))))))))
- (vquasi-30509
- (lambda (p-30694 lev-30695)
- (let ((tmp-30697 ($sc-dispatch p-30694 '(any . any))))
- (if tmp-30697
+ p-28643)))))))))))
+ (vquasi-28620
+ (lambda (p-28805 lev-28806)
+ (let ((tmp-28808 ($sc-dispatch p-28805 '(any . any))))
+ (if tmp-28808
(@apply
- (lambda (p-30701 q-30702)
- (let ((tmp-30704
+ (lambda (p-28812 q-28813)
+ (let ((tmp-28815
($sc-dispatch
- p-30701
+ p-28812
'(#(free-id
#(syntax-object
unquote
@@ -24325,12 +24300,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("l-*-30293" "l-*-30294"))
+ #("l-*-28410" "l-*-28411"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-30289" "l-*-30290"))
+ #("l-*-28406" "l-*-28407"))
#(ribcage
(emit quasivector
quasilist*
@@ -24345,38 +24320,38 @@
(top)
(top)
(top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile)))
.
each-any))))
- (if tmp-30704
+ (if tmp-28815
(@apply
- (lambda (p-30708)
- (if (= lev-30695 0)
- (quasilist*-30512
- (map (lambda (tmp-30301-30744)
+ (lambda (p-28819)
+ (if (= lev-28806 0)
+ (quasilist*-28623
+ (map (lambda (tmp-28418-28855)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("l-*-30299"))
+ #("l-*-28416"))
#(ribcage
#(p q)
#((top) (top))
- #("l-*-30293" "l-*-30294"))
+ #("l-*-28410" "l-*-28411"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-30289" "l-*-30290"))
+ #("l-*-28406" "l-*-28407"))
#(ribcage
(emit quasivector
quasilist*
@@ -24391,32 +24366,32 @@
(top)
(top)
(top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile))
- tmp-30301-30744))
- p-30708)
- (vquasi-30509 q-30702 lev-30695))
- (quasicons-30510
- (quasicons-30510
+ tmp-28418-28855))
+ p-28819)
+ (vquasi-28620 q-28813 lev-28806))
+ (quasicons-28621
+ (quasicons-28621
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("l-*-30299"))
+ #(ribcage #(p) #((top)) #("l-*-28416"))
#(ribcage
#(p q)
#((top) (top))
- #("l-*-30293" "l-*-30294"))
+ #("l-*-28410" "l-*-28411"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-30289" "l-*-30290"))
+ #("l-*-28406" "l-*-28407"))
#(ribcage
(emit quasivector
quasilist*
@@ -24431,27 +24406,27 @@
(top)
(top)
(top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile))
#(syntax-object
unquote
((top)
- #(ribcage #(p) #((top)) #("l-*-30299"))
+ #(ribcage #(p) #((top)) #("l-*-28416"))
#(ribcage
#(p q)
#((top) (top))
- #("l-*-30293" "l-*-30294"))
+ #("l-*-28410" "l-*-28411"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-30289" "l-*-30290"))
+ #("l-*-28406" "l-*-28407"))
#(ribcage
(emit quasivector
quasilist*
@@ -24466,20 +24441,20 @@
(top)
(top)
(top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile)))
- (quasi-30508 p-30708 (#{1-}# lev-30695)))
- (vquasi-30509 q-30702 lev-30695))))
- tmp-30704)
- (let ((tmp-30751
+ (quasi-28619 p-28819 (#{1-}# lev-28806)))
+ (vquasi-28620 q-28813 lev-28806))))
+ tmp-28815)
+ (let ((tmp-28862
($sc-dispatch
- p-30701
+ p-28812
'(#(free-id
#(syntax-object
unquote-splicing
@@ -24487,12 +24462,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("l-*-30293" "l-*-30294"))
+ #("l-*-28410" "l-*-28411"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-30289" "l-*-30290"))
+ #("l-*-28406" "l-*-28407"))
#(ribcage
(emit quasivector
quasilist*
@@ -24507,40 +24482,40 @@
(top)
(top)
(top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile)))
.
each-any))))
- (if tmp-30751
+ (if tmp-28862
(@apply
- (lambda (p-30755)
- (if (= lev-30695 0)
- (quasiappend-30511
- (map (lambda (tmp-30306-30758)
+ (lambda (p-28866)
+ (if (= lev-28806 0)
+ (quasiappend-28622
+ (map (lambda (tmp-28423-28869)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("l-*-30304"))
+ #("l-*-28421"))
#(ribcage
#(p q)
#((top) (top))
- #("l-*-30293"
- "l-*-30294"))
+ #("l-*-28410"
+ "l-*-28411"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-30289"
- "l-*-30290"))
+ #("l-*-28406"
+ "l-*-28407"))
#(ribcage
(emit quasivector
quasilist*
@@ -24555,35 +24530,35 @@
(top)
(top)
(top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile))
- tmp-30306-30758))
- p-30755)
- (vquasi-30509 q-30702 lev-30695))
- (quasicons-30510
- (quasicons-30510
+ tmp-28423-28869))
+ p-28866)
+ (vquasi-28620 q-28813 lev-28806))
+ (quasicons-28621
+ (quasicons-28621
'(#(syntax-object
"quote"
((top)
#(ribcage
#(p)
#((top))
- #("l-*-30304"))
+ #("l-*-28421"))
#(ribcage
#(p q)
#((top) (top))
- #("l-*-30293" "l-*-30294"))
+ #("l-*-28410" "l-*-28411"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-30289" "l-*-30290"))
+ #("l-*-28406" "l-*-28407"))
#(ribcage
(emit quasivector
quasilist*
@@ -24598,13 +24573,13 @@
(top)
(top)
(top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile))
#(syntax-object
unquote-splicing
@@ -24612,16 +24587,16 @@
#(ribcage
#(p)
#((top))
- #("l-*-30304"))
+ #("l-*-28421"))
#(ribcage
#(p q)
#((top) (top))
- #("l-*-30293" "l-*-30294"))
+ #("l-*-28410" "l-*-28411"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-30289" "l-*-30290"))
+ #("l-*-28406" "l-*-28407"))
#(ribcage
(emit quasivector
quasilist*
@@ -24636,23 +24611,23 @@
(top)
(top)
(top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile)))
- (quasi-30508 p-30755 (#{1-}# lev-30695)))
- (vquasi-30509 q-30702 lev-30695))))
- tmp-30751)
- (quasicons-30510
- (quasi-30508 p-30701 lev-30695)
- (vquasi-30509 q-30702 lev-30695)))))))
- tmp-30697)
- (let ((tmp-30776 ($sc-dispatch p-30694 '())))
- (if tmp-30776
+ (quasi-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
@@ -24662,7 +24637,7 @@
#(ribcage
#(p lev)
#((top) (top))
- #("l-*-30289" "l-*-30290"))
+ #("l-*-28406" "l-*-28407"))
#(ribcage
(emit quasivector
quasilist*
@@ -24671,61 +24646,61 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile))
()))
- tmp-30776)
+ tmp-28887)
(syntax-violation
#f
"source expression failed to match any pattern"
- p-30694)))))))
- (quasicons-30510
- (lambda (x-30789 y-30790)
- (let ((tmp-30791 (list x-30789 y-30790)))
- (let ((tmp-30792 ($sc-dispatch tmp-30791 '(any any))))
- (if tmp-30792
+ p-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-30794 y-30795)
- (let ((tmp-30797
- ($sc-dispatch y-30795 '(#(atom "quote") any))))
- (if tmp-30797
+ (lambda (x-28905 y-28906)
+ (let ((tmp-28908
+ ($sc-dispatch y-28906 '(#(atom "quote") any))))
+ (if tmp-28908
(@apply
- (lambda (dy-30801)
- (let ((tmp-30803
+ (lambda (dy-28912)
+ (let ((tmp-28914
($sc-dispatch
- x-30794
+ x-28905
'(#(atom "quote") any))))
- (if tmp-30803
+ (if tmp-28914
(@apply
- (lambda (dx-30807)
+ (lambda (dx-28918)
(list '#(syntax-object
"quote"
((top)
#(ribcage
#(dx)
#((top))
- #("l-*-30328"))
+ #("l-*-28445"))
#(ribcage
#(dy)
#((top))
- #("l-*-30324"))
+ #("l-*-28441"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("l-*-30318" "l-*-30319"))
+ #("l-*-28435" "l-*-28436"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("l-*-30313" "l-*-30314"))
+ #("l-*-28430" "l-*-28431"))
#(ribcage
(emit quasivector
quasilist*
@@ -24740,39 +24715,39 @@
(top)
(top)
(top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile))
- (cons dx-30807 dy-30801)))
- tmp-30803)
- (if (null? dy-30801)
+ (cons dx-28918 dy-28912)))
+ tmp-28914)
+ (if (null? dy-28912)
(list '#(syntax-object
"list"
((top)
#(ribcage
#(_)
#((top))
- #("l-*-30330"))
+ #("l-*-28447"))
#(ribcage
#(dy)
#((top))
- #("l-*-30324"))
+ #("l-*-28441"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("l-*-30318" "l-*-30319"))
+ #("l-*-28435" "l-*-28436"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("l-*-30313" "l-*-30314"))
+ #("l-*-28430" "l-*-28431"))
#(ribcage
(emit quasivector
quasilist*
@@ -24787,37 +24762,37 @@
(top)
(top)
(top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile))
- x-30794)
+ x-28905)
(list '#(syntax-object
"list*"
((top)
#(ribcage
#(_)
#((top))
- #("l-*-30330"))
+ #("l-*-28447"))
#(ribcage
#(dy)
#((top))
- #("l-*-30324"))
+ #("l-*-28441"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("l-*-30318" "l-*-30319"))
+ #("l-*-28435" "l-*-28436"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("l-*-30313" "l-*-30314"))
+ #("l-*-28430" "l-*-28431"))
#(ribcage
(emit quasivector
quasilist*
@@ -24832,42 +24807,42 @@
(top)
(top)
(top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile))
- x-30794
- y-30795)))))
- tmp-30797)
- (let ((tmp-30812
+ x-28905
+ y-28906)))))
+ tmp-28908)
+ (let ((tmp-28923
($sc-dispatch
- y-30795
+ y-28906
'(#(atom "list") . any))))
- (if tmp-30812
+ (if tmp-28923
(@apply
- (lambda (stuff-30816)
+ (lambda (stuff-28927)
(cons '#(syntax-object
"list"
((top)
#(ribcage
#(stuff)
#((top))
- #("l-*-30333"))
+ #("l-*-28450"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("l-*-30318" "l-*-30319"))
+ #("l-*-28435" "l-*-28436"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("l-*-30313" "l-*-30314"))
+ #("l-*-28430" "l-*-28431"))
#(ribcage
(emit quasivector
quasilist*
@@ -24882,41 +24857,41 @@
(top)
(top)
(top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile))
- (cons x-30794 stuff-30816)))
- tmp-30812)
- (let ((tmp-30817
+ (cons x-28905 stuff-28927)))
+ tmp-28923)
+ (let ((tmp-28928
($sc-dispatch
- y-30795
+ y-28906
'(#(atom "list*") . any))))
- (if tmp-30817
+ (if tmp-28928
(@apply
- (lambda (stuff-30821)
+ (lambda (stuff-28932)
(cons '#(syntax-object
"list*"
((top)
#(ribcage
#(stuff)
#((top))
- #("l-*-30336"))
+ #("l-*-28453"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("l-*-30318" "l-*-30319"))
+ #("l-*-28435" "l-*-28436"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("l-*-30313" "l-*-30314"))
+ #("l-*-28430" "l-*-28431"))
#(ribcage
(emit quasivector
quasilist*
@@ -24931,34 +24906,34 @@
(top)
(top)
(top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile))
- (cons x-30794 stuff-30821)))
- tmp-30817)
+ (cons x-28905 stuff-28932)))
+ tmp-28928)
(list '#(syntax-object
"list*"
((top)
#(ribcage
#(_)
#((top))
- #("l-*-30338"))
+ #("l-*-28455"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("l-*-30318" "l-*-30319"))
+ #("l-*-28435" "l-*-28436"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("l-*-30313" "l-*-30314"))
+ #("l-*-28430" "l-*-28431"))
#(ribcage
(emit quasivector
quasilist*
@@ -24973,29 +24948,29 @@
(top)
(top)
(top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile))
- x-30794
- y-30795))))))))
- tmp-30792)
+ x-28905
+ y-28906))))))))
+ tmp-28903)
(syntax-violation
#f
"source expression failed to match any pattern"
- tmp-30791))))))
- (quasiappend-30511
- (lambda (x-30832 y-30833)
- (let ((tmp-30835
- ($sc-dispatch y-30833 '(#(atom "quote") ()))))
- (if tmp-30835
+ tmp-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-30832)
+ (if (null? x-28943)
'(#(syntax-object
"quote"
((top)
@@ -25003,7 +24978,7 @@
#(ribcage
#(x y)
#((top) (top))
- #("l-*-30342" "l-*-30343"))
+ #("l-*-28459" "l-*-28460"))
#(ribcage
(emit quasivector
quasilist*
@@ -25012,21 +24987,21 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile))
())
- (if (null? (cdr x-30832))
- (car x-30832)
- (let ((tmp-30840 ($sc-dispatch x-30832 'each-any)))
- (if tmp-30840
+ (if (null? (cdr x-28943))
+ (car x-28943)
+ (let ((tmp-28951 ($sc-dispatch x-28943 'each-any)))
+ (if tmp-28951
(@apply
- (lambda (p-30844)
+ (lambda (p-28955)
(cons '#(syntax-object
"append"
((top)
@@ -25034,12 +25009,12 @@
#(ribcage
#(p)
#((top))
- #("l-*-30354"))
+ #("l-*-28467"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("l-*-30342" "l-*-30343"))
+ #("l-*-28459" "l-*-28460"))
#(ribcage
(emit quasivector
quasilist*
@@ -25054,29 +25029,29 @@
(top)
(top)
(top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile))
- p-30844))
- tmp-30840)
+ p-28955))
+ tmp-28951)
(syntax-violation
#f
"source expression failed to match any pattern"
- x-30832))))))
- tmp-30835)
- (if (null? x-30832)
- y-30833
- (let ((tmp-30852 (list x-30832 y-30833)))
- (let ((tmp-30853
- ($sc-dispatch tmp-30852 '(each-any any))))
- (if tmp-30853
+ x-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-30855 y-30856)
+ (lambda (p-28966 y-28967)
(cons '#(syntax-object
"append"
((top)
@@ -25084,13 +25059,13 @@
#(ribcage
#(p y)
#((top) (top))
- #("l-*-30365" "l-*-30366"))
- #(ribcage #(_) #((top)) #("l-*-30357"))
+ #("l-*-28476" "l-*-28477"))
+ #(ribcage #(_) #((top)) #("l-*-28470"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("l-*-30342" "l-*-30343"))
+ #("l-*-28459" "l-*-28460"))
#(ribcage
(emit quasivector
quasilist*
@@ -25105,44 +25080,44 @@
(top)
(top)
(top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile))
- (append p-30855 (list y-30856))))
- tmp-30853)
+ (append p-28966 (list y-28967))))
+ tmp-28964)
(syntax-violation
#f
"source expression failed to match any pattern"
- tmp-30852)))))))))
- (quasilist*-30512
- (lambda (x-30860 y-30861)
+ tmp-28963)))))))))
+ (quasilist*-28623
+ (lambda (x-28971 y-28972)
(letrec*
- ((f-30862
- (lambda (x-30951)
- (if (null? x-30951)
- y-30861
- (quasicons-30510
- (car x-30951)
- (f-30862 (cdr x-30951)))))))
- (f-30862 x-30860))))
- (emit-30514
- (lambda (x-30954)
- (let ((tmp-30956
- ($sc-dispatch x-30954 '(#(atom "quote") any))))
- (if tmp-30956
+ ((f-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-30960)
+ (lambda (x-29071)
(list '#(syntax-object
quote
((top)
- #(ribcage #(x) #((top)) #("l-*-30432"))
+ #(ribcage #(x) #((top)) #("l-*-28543"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-30429"))
+ #(ribcage #(x) #((top)) #("l-*-28540"))
#(ribcage
(emit quasivector
quasilist*
@@ -25151,45 +25126,45 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile))
- x-30960))
- tmp-30956)
- (let ((tmp-30961
+ x-29071))
+ tmp-29067)
+ (let ((tmp-29072
($sc-dispatch
- x-30954
+ x-29065
'(#(atom "list") . each-any))))
- (if tmp-30961
+ (if tmp-29072
(@apply
- (lambda (x-30965)
- (let ((tmp-30966 (map emit-30514 x-30965)))
- (let ((tmp-30967 ($sc-dispatch tmp-30966 'each-any)))
- (if tmp-30967
+ (lambda (x-29076)
+ (let ((tmp-29077 (map emit-28625 x-29076)))
+ (let ((tmp-29078 ($sc-dispatch tmp-29077 'each-any)))
+ (if tmp-29078
(@apply
- (lambda (t-30437-30969)
+ (lambda (t-28548-29080)
(cons '#(syntax-object
list
((top)
#(ribcage () () ())
#(ribcage
- #(t-30437)
- #((m-*-30438 top))
- #("l-*-30442"))
+ #(t-28548)
+ #((m-*-28549 top))
+ #("l-*-28553"))
#(ribcage
#(x)
#((top))
- #("l-*-30435"))
+ #("l-*-28546"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-30429"))
+ #("l-*-28540"))
#(ribcage
(emit quasivector
quasilist*
@@ -25204,70 +25179,70 @@
(top)
(top)
(top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile))
- t-30437-30969))
- tmp-30967)
+ t-28548-29080))
+ tmp-29078)
(syntax-violation
#f
"source expression failed to match any pattern"
- tmp-30966)))))
- tmp-30961)
- (let ((tmp-30970
+ tmp-29077)))))
+ tmp-29072)
+ (let ((tmp-29081
($sc-dispatch
- x-30954
+ x-29065
'(#(atom "list*") . #(each+ any (any) ())))))
- (if tmp-30970
+ (if tmp-29081
(@apply
- (lambda (x-30974 y-30975)
+ (lambda (x-29085 y-29086)
(letrec*
- ((f-30976
- (lambda (x*-30979)
- (if (null? x*-30979)
- (emit-30514 y-30975)
- (let ((tmp-30980
- (list (emit-30514 (car x*-30979))
- (f-30976 (cdr x*-30979)))))
- (let ((tmp-30981
+ ((f-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-30980
+ tmp-29091
'(any any))))
- (if tmp-30981
+ (if tmp-29092
(@apply
- (lambda (t-30457-30983
- t-30456-30984)
+ (lambda (t-28568-29094
+ t-28567-29095)
(list '#(syntax-object
cons
((top)
#(ribcage () () ())
#(ribcage
- #(t-30457 t-30456)
- #((m-*-30458 top)
- (m-*-30458 top))
- #("l-*-30462"
- "l-*-30463"))
+ #(t-28568 t-28567)
+ #((m-*-28569 top)
+ (m-*-28569 top))
+ #("l-*-28573"
+ "l-*-28574"))
#(ribcage () () ())
#(ribcage
#(f x*)
#((top) (top))
- #("l-*-30451"
- "l-*-30452"))
+ #("l-*-28562"
+ "l-*-28563"))
#(ribcage
#(x y)
#((top) (top))
- #("l-*-30447"
- "l-*-30448"))
+ #("l-*-28558"
+ "l-*-28559"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-30429"))
+ #("l-*-28540"))
#(ribcage
(emit quasivector
quasilist*
@@ -25282,53 +25257,53 @@
(top)
(top)
(top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile))
- t-30457-30983
- t-30456-30984))
- tmp-30981)
+ t-28568-29094
+ t-28567-29095))
+ tmp-29092)
(syntax-violation
#f
"source expression failed to match
any pattern"
- tmp-30980))))))))
- (f-30976 x-30974)))
- tmp-30970)
- (let ((tmp-30985
+ tmp-29091))))))))
+ (f-29087 x-29085)))
+ tmp-29081)
+ (let ((tmp-29096
($sc-dispatch
- x-30954
+ x-29065
'(#(atom "append") . each-any))))
- (if tmp-30985
+ (if tmp-29096
(@apply
- (lambda (x-30989)
- (let ((tmp-30990 (map emit-30514 x-30989)))
- (let ((tmp-30991
- ($sc-dispatch tmp-30990 'each-any)))
- (if tmp-30991
+ (lambda (x-29100)
+ (let ((tmp-29101 (map emit-28625 x-29100)))
+ (let ((tmp-29102
+ ($sc-dispatch tmp-29101 'each-any)))
+ (if tmp-29102
(@apply
- (lambda (t-30469-30993)
+ (lambda (t-28580-29104)
(cons '#(syntax-object
append
((top)
#(ribcage () () ())
#(ribcage
- #(t-30469)
- #((m-*-30470 top))
- #("l-*-30474"))
+ #(t-28580)
+ #((m-*-28581 top))
+ #("l-*-28585"))
#(ribcage
#(x)
#((top))
- #("l-*-30467"))
+ #("l-*-28578"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-30429"))
+ #("l-*-28540"))
#(ribcage
(emit quasivector
quasilist*
@@ -25343,53 +25318,53 @@
(top)
(top)
(top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile))
- t-30469-30993))
- tmp-30991)
+ t-28580-29104))
+ tmp-29102)
(syntax-violation
#f
"source expression failed to match any
pattern"
- tmp-30990)))))
- tmp-30985)
- (let ((tmp-30994
+ tmp-29101)))))
+ tmp-29096)
+ (let ((tmp-29105
($sc-dispatch
- x-30954
+ x-29065
'(#(atom "vector") . each-any))))
- (if tmp-30994
+ (if tmp-29105
(@apply
- (lambda (x-30998)
- (let ((tmp-30999 (map emit-30514 x-30998)))
- (let ((tmp-31000
+ (lambda (x-29109)
+ (let ((tmp-29110 (map emit-28625 x-29109)))
+ (let ((tmp-29111
($sc-dispatch
- tmp-30999
+ tmp-29110
'each-any)))
- (if tmp-31000
+ (if tmp-29111
(@apply
- (lambda (t-30481-31002)
+ (lambda (t-28592-29113)
(cons '#(syntax-object
vector
((top)
#(ribcage () () ())
#(ribcage
- #(t-30481)
- #((m-*-30482 top))
- #("l-*-30486"))
+ #(t-28592)
+ #((m-*-28593 top))
+ #("l-*-28597"))
#(ribcage
#(x)
#((top))
- #("l-*-30479"))
+ #("l-*-28590"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-30429"))
+ #("l-*-28540"))
#(ribcage
(emit quasivector
quasilist*
@@ -25404,46 +25379,46 @@
(top)
(top)
(top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile))
- t-30481-31002))
- tmp-31000)
+ t-28592-29113))
+ tmp-29111)
(syntax-violation
#f
"source expression failed to match
any pattern"
- tmp-30999)))))
- tmp-30994)
- (let ((tmp-31003
+ tmp-29110)))))
+ tmp-29105)
+ (let ((tmp-29114
($sc-dispatch
- x-30954
+ x-29065
'(#(atom "list->vector") any))))
- (if tmp-31003
+ (if tmp-29114
(@apply
- (lambda (x-31007)
- (let ((tmp-31008 (emit-30514 x-31007)))
+ (lambda (x-29118)
+ (let ((tmp-29119 (emit-28625 x-29118)))
(list '#(syntax-object
list->vector
((top)
#(ribcage () () ())
#(ribcage
- #(t-30493)
- #((m-*-30494 top))
- #("l-*-30497"))
+ #(t-28604)
+ #((m-*-28605 top))
+ #("l-*-28608"))
#(ribcage
#(x)
#((top))
- #("l-*-30491"))
+ #("l-*-28602"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-30429"))
+ #("l-*-28540"))
#(ribcage
(emit quasivector
quasilist*
@@ -25458,183 +25433,183 @@
(top)
(top)
(top))
- ("l-*-30250"
- "l-*-30248"
- "l-*-30246"
- "l-*-30244"
- "l-*-30242"
- "l-*-30240"
- "l-*-30238")))
+ ("l-*-28367"
+ "l-*-28365"
+ "l-*-28363"
+ "l-*-28361"
+ "l-*-28359"
+ "l-*-28357"
+ "l-*-28355")))
(hygiene guile))
- tmp-31008)))
- tmp-31003)
- (let ((tmp-31011
+ tmp-29119)))
+ tmp-29114)
+ (let ((tmp-29122
($sc-dispatch
- x-30954
+ x-29065
'(#(atom "value") any))))
- (if tmp-31011
+ (if tmp-29122
(@apply
- (lambda (x-31015) x-31015)
- tmp-31011)
+ (lambda (x-29126) x-29126)
+ tmp-29122)
(syntax-violation
#f
"source expression failed to match
any pattern"
- x-30954))))))))))))))))))
- (lambda (x-30515)
- (let ((tmp-30517 ($sc-dispatch x-30515 '(_ any))))
- (if tmp-30517
+ x-29065))))))))))))))))))
+ (lambda (x-28626)
+ (let ((tmp-28628 ($sc-dispatch x-28626 '(_ any))))
+ (if tmp-28628
(@apply
- (lambda (e-30521)
- (emit-30514 (quasi-30508 e-30521 0)))
- tmp-30517)
+ (lambda (e-28632)
+ (emit-28625 (quasi-28619 e-28632 0)))
+ tmp-28628)
(syntax-violation
#f
"source expression failed to match any pattern"
- x-30515)))))))
+ x-28626)))))))
(define include
(make-syntax-transformer
'include
'macro
- (lambda (x-31070)
+ (lambda (x-29181)
(letrec*
- ((read-file-31071
- (lambda (fn-31180 k-31181)
- (let ((p-31182 (open-input-file fn-31180)))
+ ((read-file-29182
+ (lambda (fn-29291 k-29292)
+ (let ((p-29293 (open-input-file fn-29291)))
(letrec*
- ((f-31183
- (lambda (x-31237 result-31238)
- (if (eof-object? x-31237)
+ ((f-29294
+ (lambda (x-29348 result-29349)
+ (if (eof-object? x-29348)
(begin
- (close-input-port p-31182)
- (reverse result-31238))
- (f-31183
- (read p-31182)
- (cons (datum->syntax k-31181 x-31237)
- result-31238))))))
- (f-31183 (read p-31182) '()))))))
- (let ((tmp-31073 ($sc-dispatch x-31070 '(any any))))
- (if tmp-31073
+ (close-input-port p-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-31077 filename-31078)
- (let ((fn-31079 (syntax->datum filename-31078)))
- (let ((tmp-31080
- (read-file-31071 fn-31079 filename-31078)))
- (let ((tmp-31081 ($sc-dispatch tmp-31080 'each-any)))
- (if tmp-31081
+ (lambda (k-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-31099)
+ (lambda (exp-29210)
(cons '#(syntax-object
begin
((top)
#(ribcage () () ())
- #(ribcage #(exp) #((top)) #("l-*-31067"))
+ #(ribcage #(exp) #((top)) #("l-*-29178"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("l-*-31062"))
+ #(ribcage #(fn) #((top)) #("l-*-29173"))
#(ribcage
#(k filename)
#((top) (top))
- #("l-*-31058" "l-*-31059"))
+ #("l-*-29169" "l-*-29170"))
#(ribcage
(read-file)
((top))
- ("l-*-31042"))
- #(ribcage #(x) #((top)) #("l-*-31041")))
+ ("l-*-29153"))
+ #(ribcage #(x) #((top)) #("l-*-29152")))
(hygiene guile))
- exp-31099))
- tmp-31081)
+ exp-29210))
+ tmp-29192)
(syntax-violation
#f
"source expression failed to match any pattern"
- tmp-31080))))))
- tmp-31073)
+ tmp-29191))))))
+ tmp-29184)
(syntax-violation
#f
"source expression failed to match any pattern"
- x-31070)))))))
+ x-29181)))))))
(define include-from-path
(make-syntax-transformer
'include-from-path
'macro
- (lambda (x-31257)
- (let ((tmp-31259 ($sc-dispatch x-31257 '(any any))))
- (if tmp-31259
+ (lambda (x-29368)
+ (let ((tmp-29370 ($sc-dispatch x-29368 '(any any))))
+ (if tmp-29370
(@apply
- (lambda (k-31263 filename-31264)
- (let ((fn-31265 (syntax->datum filename-31264)))
- (let ((tmp-31266
+ (lambda (k-29374 filename-29375)
+ (let ((fn-29376 (syntax->datum filename-29375)))
+ (let ((tmp-29377
(datum->syntax
- filename-31264
- (let ((t-31269 (%search-load-path fn-31265)))
- (if t-31269
- t-31269
+ 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-31257
- filename-31264))))))
+ x-29368
+ filename-29375))))))
(list '#(syntax-object
include
((top)
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("l-*-31251"))
+ #(ribcage #(fn) #((top)) #("l-*-29362"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("l-*-31247"))
+ #(ribcage #(fn) #((top)) #("l-*-29358"))
#(ribcage
#(k filename)
#((top) (top))
- #("l-*-31243" "l-*-31244"))
+ #("l-*-29354" "l-*-29355"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-31240")))
+ #(ribcage #(x) #((top)) #("l-*-29351")))
(hygiene guile))
- tmp-31266))))
- tmp-31259)
+ tmp-29377))))
+ tmp-29370)
(syntax-violation
#f
"source expression failed to match any pattern"
- x-31257))))))
+ x-29368))))))
(define unquote
(make-syntax-transformer
'unquote
'macro
- (lambda (x-31278)
+ (lambda (x-29389)
(syntax-violation
'unquote
"expression not valid outside of quasiquote"
- x-31278))))
+ x-29389))))
(define unquote-splicing
(make-syntax-transformer
'unquote-splicing
'macro
- (lambda (x-31281)
+ (lambda (x-29392)
(syntax-violation
'unquote-splicing
"expression not valid outside of quasiquote"
- x-31281))))
+ x-29392))))
(define case
(make-syntax-transformer
'case
'macro
- (lambda (x-31337)
- (let ((tmp-31339
- ($sc-dispatch x-31337 '(_ any any . each-any))))
- (if tmp-31339
+ (lambda (x-29448)
+ (let ((tmp-29450
+ ($sc-dispatch x-29448 '(_ any any . each-any))))
+ (if tmp-29450
(@apply
- (lambda (e-31343 m1-31344 m2-31345)
- (let ((tmp-31346
+ (lambda (e-29454 m1-29455 m2-29456)
+ (let ((tmp-29457
(letrec*
- ((f-31388
- (lambda (clause-31391 clauses-31392)
- (if (null? clauses-31392)
- (let ((tmp-31394
+ ((f-29499
+ (lambda (clause-29502 clauses-29503)
+ (if (null? clauses-29503)
+ (let ((tmp-29505
($sc-dispatch
- clause-31391
+ clause-29502
'(#(free-id
#(syntax-object
else
@@ -25643,89 +25618,89 @@
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("l-*-31296"
- "l-*-31297"
- "l-*-31298"))
+ #("l-*-29407"
+ "l-*-29408"
+ "l-*-29409"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("l-*-31286"
- "l-*-31287"
- "l-*-31288"))
+ #("l-*-29397"
+ "l-*-29398"
+ "l-*-29399"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31283")))
+ #("l-*-29394")))
(hygiene guile)))
any
.
each-any))))
- (if tmp-31394
+ (if tmp-29505
(@apply
- (lambda (e1-31398 e2-31399)
+ (lambda (e1-29509 e2-29510)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("l-*-31305" "l-*-31306"))
+ #("l-*-29416" "l-*-29417"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("l-*-31296"
- "l-*-31297"
- "l-*-31298"))
+ #("l-*-29407"
+ "l-*-29408"
+ "l-*-29409"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("l-*-31286"
- "l-*-31287"
- "l-*-31288"))
+ #("l-*-29397"
+ "l-*-29398"
+ "l-*-29399"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31283")))
+ #("l-*-29394")))
(hygiene guile))
- (cons e1-31398 e2-31399)))
- tmp-31394)
- (let ((tmp-31400
+ (cons e1-29509 e2-29510)))
+ tmp-29505)
+ (let ((tmp-29511
($sc-dispatch
- clause-31391
+ clause-29502
'(each-any any . each-any))))
- (if tmp-31400
+ (if tmp-29511
(@apply
- (lambda (k-31404 e1-31405 e2-31406)
+ (lambda (k-29515 e1-29516 e2-29517)
(list '#(syntax-object
if
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("l-*-31311"
- "l-*-31312"
- "l-*-31313"))
+ #("l-*-29422"
+ "l-*-29423"
+ "l-*-29424"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("l-*-31296"
- "l-*-31297"
- "l-*-31298"))
+ #("l-*-29407"
+ "l-*-29408"
+ "l-*-29409"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("l-*-31286"
- "l-*-31287"
- "l-*-31288"))
+ #("l-*-29397"
+ "l-*-29398"
+ "l-*-29399"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31283")))
+ #("l-*-29394")))
(hygiene guile))
(list '#(syntax-object
memv
@@ -25735,9 +25710,9 @@
#((top)
(top)
(top))
- #("l-*-31311"
- "l-*-31312"
- "l-*-31313"))
+ #("l-*-29422"
+ "l-*-29423"
+ "l-*-29424"))
#(ribcage () () ())
#(ribcage
#(f
@@ -25746,22 +25721,22 @@
#((top)
(top)
(top))
- #("l-*-31296"
- "l-*-31297"
- "l-*-31298"))
+ #("l-*-29407"
+ "l-*-29408"
+ "l-*-29409"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("l-*-31286"
- "l-*-31287"
- "l-*-31288"))
+ #("l-*-29397"
+ "l-*-29398"
+ "l-*-29399"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31283")))
+ #("l-*-29394")))
(hygiene guile))
'#(syntax-object
t
@@ -25771,9 +25746,9 @@
#((top)
(top)
(top))
- #("l-*-31311"
- "l-*-31312"
- "l-*-31313"))
+ #("l-*-29422"
+ "l-*-29423"
+ "l-*-29424"))
#(ribcage () () ())
#(ribcage
#(f
@@ -25782,22 +25757,22 @@
#((top)
(top)
(top))
- #("l-*-31296"
- "l-*-31297"
- "l-*-31298"))
+ #("l-*-29407"
+ "l-*-29408"
+ "l-*-29409"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("l-*-31286"
- "l-*-31287"
- "l-*-31288"))
+ #("l-*-29397"
+ "l-*-29398"
+ "l-*-29399"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31283")))
+ #("l-*-29394")))
(hygiene guile))
(list '#(syntax-object
quote
@@ -25807,9 +25782,9 @@
#((top)
(top)
(top))
-
#("l-*-31311"
-
"l-*-31312"
-
"l-*-31313"))
+
#("l-*-29422"
+
"l-*-29423"
+
"l-*-29424"))
#(ribcage
()
()
@@ -25821,17 +25796,17 @@
#((top)
(top)
(top))
-
#("l-*-31296"
-
"l-*-31297"
-
"l-*-31298"))
+
#("l-*-29407"
+
"l-*-29408"
+
"l-*-29409"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
-
#("l-*-31286"
-
"l-*-31287"
-
"l-*-31288"))
+
#("l-*-29397"
+
"l-*-29398"
+
"l-*-29399"))
#(ribcage
()
()
@@ -25839,10 +25814,10 @@
#(ribcage
#(x)
#((top))
-
#("l-*-31283")))
+
#("l-*-29394")))
(hygiene
guile))
- k-31404))
+ k-29515))
(cons '#(syntax-object
begin
((top)
@@ -25851,9 +25826,9 @@
#((top)
(top)
(top))
- #("l-*-31311"
- "l-*-31312"
- "l-*-31313"))
+ #("l-*-29422"
+ "l-*-29423"
+ "l-*-29424"))
#(ribcage () () ())
#(ribcage
#(f
@@ -25862,74 +25837,74 @@
#((top)
(top)
(top))
- #("l-*-31296"
- "l-*-31297"
- "l-*-31298"))
+ #("l-*-29407"
+ "l-*-29408"
+ "l-*-29409"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("l-*-31286"
- "l-*-31287"
- "l-*-31288"))
+ #("l-*-29397"
+ "l-*-29398"
+ "l-*-29399"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31283")))
+ #("l-*-29394")))
(hygiene guile))
- (cons e1-31405
- e2-31406))))
- tmp-31400)
+ (cons e1-29516
+ e2-29517))))
+ tmp-29511)
(syntax-violation
'case
"bad clause"
- x-31337
- clause-31391)))))
- (let ((tmp-31414
- (f-31388
- (car clauses-31392)
- (cdr clauses-31392))))
- (let ((tmp-31417
+ x-29448
+ clause-29502)))))
+ (let ((tmp-29525
+ (f-29499
+ (car clauses-29503)
+ (cdr clauses-29503))))
+ (let ((tmp-29528
($sc-dispatch
- clause-31391
+ clause-29502
'(each-any any . each-any))))
- (if tmp-31417
+ (if tmp-29528
(@apply
- (lambda (k-31421 e1-31422 e2-31423)
+ (lambda (k-29532 e1-29533 e2-29534)
(list '#(syntax-object
if
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("l-*-31327"
- "l-*-31328"
- "l-*-31329"))
+ #("l-*-29438"
+ "l-*-29439"
+ "l-*-29440"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("l-*-31323"))
+ #("l-*-29434"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("l-*-31296"
- "l-*-31297"
- "l-*-31298"))
+ #("l-*-29407"
+ "l-*-29408"
+ "l-*-29409"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("l-*-31286"
- "l-*-31287"
- "l-*-31288"))
+ #("l-*-29397"
+ "l-*-29398"
+ "l-*-29399"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31283")))
+ #("l-*-29394")))
(hygiene guile))
(list '#(syntax-object
memv
@@ -25937,32 +25912,32 @@
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("l-*-31327"
- "l-*-31328"
- "l-*-31329"))
+ #("l-*-29438"
+ "l-*-29439"
+ "l-*-29440"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("l-*-31323"))
+ #("l-*-29434"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("l-*-31296"
- "l-*-31297"
- "l-*-31298"))
+ #("l-*-29407"
+ "l-*-29408"
+ "l-*-29409"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("l-*-31286"
- "l-*-31287"
- "l-*-31288"))
+ #("l-*-29397"
+ "l-*-29398"
+ "l-*-29399"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31283")))
+ #("l-*-29394")))
(hygiene guile))
'#(syntax-object
t
@@ -25970,32 +25945,32 @@
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("l-*-31327"
- "l-*-31328"
- "l-*-31329"))
+ #("l-*-29438"
+ "l-*-29439"
+ "l-*-29440"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("l-*-31323"))
+ #("l-*-29434"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("l-*-31296"
- "l-*-31297"
- "l-*-31298"))
+ #("l-*-29407"
+ "l-*-29408"
+ "l-*-29409"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("l-*-31286"
- "l-*-31287"
- "l-*-31288"))
+ #("l-*-29397"
+ "l-*-29398"
+ "l-*-29399"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31283")))
+ #("l-*-29394")))
(hygiene guile))
(list '#(syntax-object
quote
@@ -26005,9 +25980,9 @@
#((top)
(top)
(top))
- #("l-*-31327"
- "l-*-31328"
-
"l-*-31329"))
+ #("l-*-29438"
+ "l-*-29439"
+
"l-*-29440"))
#(ribcage
()
()
@@ -26015,7 +25990,7 @@
#(ribcage
#(rest)
#((top))
-
#("l-*-31323"))
+
#("l-*-29434"))
#(ribcage
()
()
@@ -26027,17 +26002,17 @@
#((top)
(top)
(top))
- #("l-*-31296"
- "l-*-31297"
-
"l-*-31298"))
+ #("l-*-29407"
+ "l-*-29408"
+
"l-*-29409"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("l-*-31286"
- "l-*-31287"
-
"l-*-31288"))
+ #("l-*-29397"
+ "l-*-29398"
+
"l-*-29399"))
#(ribcage
()
()
@@ -26045,63 +26020,63 @@
#(ribcage
#(x)
#((top))
-
#("l-*-31283")))
+
#("l-*-29394")))
(hygiene guile))
- k-31421))
+ k-29532))
(cons '#(syntax-object
begin
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("l-*-31327"
- "l-*-31328"
- "l-*-31329"))
+ #("l-*-29438"
+ "l-*-29439"
+ "l-*-29440"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("l-*-31323"))
+ #("l-*-29434"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("l-*-31296"
- "l-*-31297"
- "l-*-31298"))
+ #("l-*-29407"
+ "l-*-29408"
+ "l-*-29409"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("l-*-31286"
- "l-*-31287"
- "l-*-31288"))
+ #("l-*-29397"
+ "l-*-29398"
+ "l-*-29399"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31283")))
+ #("l-*-29394")))
(hygiene guile))
- (cons e1-31422 e2-31423))
- tmp-31414))
- tmp-31417)
+ (cons e1-29533 e2-29534))
+ tmp-29525))
+ tmp-29528)
(syntax-violation
'case
"bad clause"
- x-31337
- clause-31391))))))))
- (f-31388 m1-31344 m2-31345))))
- (let ((body-31347 tmp-31346))
+ 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-*-31294"))
+ #(ribcage #(body) #((top)) #("l-*-29405"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("l-*-31286" "l-*-31287" "l-*-31288"))
+ #("l-*-29397" "l-*-29398" "l-*-29399"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-31283")))
+ #(ribcage #(x) #((top)) #("l-*-29394")))
(hygiene guile))
(list (list '#(syntax-object
t
@@ -26110,122 +26085,122 @@
#(ribcage
#(body)
#((top))
- #("l-*-31294"))
+ #("l-*-29405"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("l-*-31286"
- "l-*-31287"
- "l-*-31288"))
+ #("l-*-29397"
+ "l-*-29398"
+ "l-*-29399"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31283")))
+ #("l-*-29394")))
(hygiene guile))
- e-31343))
- body-31347))))
- tmp-31339)
+ e-29454))
+ body-29458))))
+ tmp-29450)
(syntax-violation
#f
"source expression failed to match any pattern"
- x-31337))))))
+ x-29448))))))
(define make-variable-transformer
- (lambda (proc-31441)
- (if (procedure? proc-31441)
+ (lambda (proc-29552)
+ (if (procedure? proc-29552)
(letrec*
- ((trans-31442
- (lambda (x-31448) (proc-31441 x-31448))))
+ ((trans-29553
+ (lambda (x-29559) (proc-29552 x-29559))))
(begin
(set-procedure-property!
- trans-31442
+ trans-29553
'variable-transformer
#t)
- trans-31442))
+ trans-29553))
(error "variable transformer not a procedure"
- proc-31441))))
+ proc-29552))))
(define identifier-syntax
(make-syntax-transformer
'identifier-syntax
'macro
- (lambda (x-31480)
- (let ((tmp-31482 ($sc-dispatch x-31480 '(_ any))))
- (if tmp-31482
+ (lambda (x-29591)
+ (let ((tmp-29593 ($sc-dispatch x-29591 '(_ any))))
+ (if tmp-29593
(@apply
- (lambda (e-31486)
+ (lambda (e-29597)
(list '#(syntax-object
lambda
((top)
- #(ribcage #(e) #((top)) #("l-*-31455"))
+ #(ribcage #(e) #((top)) #("l-*-29566"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-31452")))
+ #(ribcage #(x) #((top)) #("l-*-29563")))
(hygiene guile))
'(#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("l-*-31455"))
+ #(ribcage #(e) #((top)) #("l-*-29566"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-31452")))
+ #(ribcage #(x) #((top)) #("l-*-29563")))
(hygiene guile)))
'#((#(syntax-object
macro-type
((top)
- #(ribcage #(e) #((top)) #("l-*-31455"))
+ #(ribcage #(e) #((top)) #("l-*-29566"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-31452")))
+ #(ribcage #(x) #((top)) #("l-*-29563")))
(hygiene guile))
.
#(syntax-object
identifier-syntax
((top)
- #(ribcage #(e) #((top)) #("l-*-31455"))
+ #(ribcage #(e) #((top)) #("l-*-29566"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-31452")))
+ #(ribcage #(x) #((top)) #("l-*-29563")))
(hygiene guile))))
(list '#(syntax-object
syntax-case
((top)
- #(ribcage #(e) #((top)) #("l-*-31455"))
+ #(ribcage #(e) #((top)) #("l-*-29566"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-31452")))
+ #(ribcage #(x) #((top)) #("l-*-29563")))
(hygiene guile))
'#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("l-*-31455"))
+ #(ribcage #(e) #((top)) #("l-*-29566"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-31452")))
+ #(ribcage #(x) #((top)) #("l-*-29563")))
(hygiene guile))
'()
(list '#(syntax-object
id
((top)
- #(ribcage #(e) #((top)) #("l-*-31455"))
+ #(ribcage #(e) #((top)) #("l-*-29566"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-31452")))
+ #(ribcage #(x) #((top)) #("l-*-29563")))
(hygiene guile))
'(#(syntax-object
identifier?
((top)
- #(ribcage #(e) #((top)) #("l-*-31455"))
+ #(ribcage #(e) #((top)) #("l-*-29566"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-31452")))
+ #(ribcage #(x) #((top)) #("l-*-29563")))
(hygiene guile))
(#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("l-*-31455"))
+ #(ribcage #(e) #((top)) #("l-*-29566"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-31452")))
+ #(ribcage #(x) #((top)) #("l-*-29563")))
(hygiene guile))
#(syntax-object
id
((top)
- #(ribcage #(e) #((top)) #("l-*-31455"))
+ #(ribcage #(e) #((top)) #("l-*-29566"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-31452")))
+ #(ribcage #(x) #((top)) #("l-*-29563")))
(hygiene guile))))
(list '#(syntax-object
syntax
@@ -26233,34 +26208,34 @@
#(ribcage
#(e)
#((top))
- #("l-*-31455"))
+ #("l-*-29566"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31452")))
+ #("l-*-29563")))
(hygiene guile))
- e-31486))
+ e-29597))
(list '(#(syntax-object
_
((top)
- #(ribcage #(e) #((top)) #("l-*-31455"))
+ #(ribcage #(e) #((top)) #("l-*-29566"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-31452")))
+ #(ribcage #(x) #((top)) #("l-*-29563")))
(hygiene guile))
#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("l-*-31455"))
+ #(ribcage #(e) #((top)) #("l-*-29566"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-31452")))
+ #(ribcage #(x) #((top)) #("l-*-29563")))
(hygiene guile))
#(syntax-object
...
((top)
- #(ribcage #(e) #((top)) #("l-*-31455"))
+ #(ribcage #(e) #((top)) #("l-*-29566"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-31452")))
+ #(ribcage #(x) #((top)) #("l-*-29563")))
(hygiene guile)))
(list '#(syntax-object
syntax
@@ -26268,26 +26243,26 @@
#(ribcage
#(e)
#((top))
- #("l-*-31455"))
+ #("l-*-29566"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31452")))
+ #("l-*-29563")))
(hygiene guile))
- (cons e-31486
+ (cons e-29597
'(#(syntax-object
x
((top)
#(ribcage
#(e)
#((top))
- #("l-*-31455"))
+ #("l-*-29566"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31452")))
+ #("l-*-29563")))
(hygiene guile))
#(syntax-object
...
@@ -26295,59 +26270,59 @@
#(ribcage
#(e)
#((top))
- #("l-*-31455"))
+ #("l-*-29566"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31452")))
+ #("l-*-29563")))
(hygiene guile)))))))))
- tmp-31482)
- (let ((tmp-31487
+ tmp-29593)
+ (let ((tmp-29598
($sc-dispatch
- x-31480
+ x-29591
'(_ (any any)
((#(free-id
#(syntax-object
set!
((top)
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-31452")))
+ #(ribcage #(x) #((top)) #("l-*-29563")))
(hygiene guile)))
any
any)
any)))))
- (if (if tmp-31487
+ (if (if tmp-29598
(@apply
- (lambda (id-31491
- exp1-31492
- var-31493
- val-31494
- exp2-31495)
- (if (identifier? id-31491)
- (identifier? var-31493)
+ (lambda (id-29602
+ exp1-29603
+ var-29604
+ val-29605
+ exp2-29606)
+ (if (identifier? id-29602)
+ (identifier? var-29604)
#f))
- tmp-31487)
+ tmp-29598)
#f)
(@apply
- (lambda (id-31496
- exp1-31497
- var-31498
- val-31499
- exp2-31500)
+ (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-*-31470"
- "l-*-31471"
- "l-*-31472"
- "l-*-31473"
- "l-*-31474"))
+ #("l-*-29581"
+ "l-*-29582"
+ "l-*-29583"
+ "l-*-29584"
+ "l-*-29585"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-31452")))
+ #(ribcage #(x) #((top)) #("l-*-29563")))
(hygiene guile))
(list '#(syntax-object
lambda
@@ -26355,13 +26330,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("l-*-31470"
- "l-*-31471"
- "l-*-31472"
- "l-*-31473"
- "l-*-31474"))
+ #("l-*-29581"
+ "l-*-29582"
+ "l-*-29583"
+ "l-*-29584"
+ "l-*-29585"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-31452")))
+ #(ribcage #(x) #((top)) #("l-*-29563")))
(hygiene guile))
'(#(syntax-object
x
@@ -26369,13 +26344,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("l-*-31470"
- "l-*-31471"
- "l-*-31472"
- "l-*-31473"
- "l-*-31474"))
+ #("l-*-29581"
+ "l-*-29582"
+ "l-*-29583"
+ "l-*-29584"
+ "l-*-29585"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-31452")))
+ #(ribcage #(x) #((top)) #("l-*-29563")))
(hygiene guile)))
'#((#(syntax-object
macro-type
@@ -26383,13 +26358,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("l-*-31470"
- "l-*-31471"
- "l-*-31472"
- "l-*-31473"
- "l-*-31474"))
+ #("l-*-29581"
+ "l-*-29582"
+ "l-*-29583"
+ "l-*-29584"
+ "l-*-29585"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-31452")))
+ #(ribcage #(x) #((top)) #("l-*-29563")))
(hygiene guile))
.
#(syntax-object
@@ -26398,13 +26373,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("l-*-31470"
- "l-*-31471"
- "l-*-31472"
- "l-*-31473"
- "l-*-31474"))
+ #("l-*-29581"
+ "l-*-29582"
+ "l-*-29583"
+ "l-*-29584"
+ "l-*-29585"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-31452")))
+ #(ribcage #(x) #((top)) #("l-*-29563")))
(hygiene guile))))
(list '#(syntax-object
syntax-case
@@ -26412,16 +26387,16 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("l-*-31470"
- "l-*-31471"
- "l-*-31472"
- "l-*-31473"
- "l-*-31474"))
+ #("l-*-29581"
+ "l-*-29582"
+ "l-*-29583"
+ "l-*-29584"
+ "l-*-29585"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31452")))
+ #("l-*-29563")))
(hygiene guile))
'#(syntax-object
x
@@ -26429,16 +26404,16 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("l-*-31470"
- "l-*-31471"
- "l-*-31472"
- "l-*-31473"
- "l-*-31474"))
+ #("l-*-29581"
+ "l-*-29582"
+ "l-*-29583"
+ "l-*-29584"
+ "l-*-29585"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31452")))
+ #("l-*-29563")))
(hygiene guile))
'(#(syntax-object
set!
@@ -26446,16 +26421,16 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("l-*-31470"
- "l-*-31471"
- "l-*-31472"
- "l-*-31473"
- "l-*-31474"))
+ #("l-*-29581"
+ "l-*-29582"
+ "l-*-29583"
+ "l-*-29584"
+ "l-*-29585"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31452")))
+ #("l-*-29563")))
(hygiene guile)))
(list (list '#(syntax-object
set!
@@ -26467,19 +26442,19 @@
(top)
(top)
(top))
- #("l-*-31470"
- "l-*-31471"
- "l-*-31472"
- "l-*-31473"
- "l-*-31474"))
+ #("l-*-29581"
+ "l-*-29582"
+ "l-*-29583"
+ "l-*-29584"
+ "l-*-29585"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31452")))
+ #("l-*-29563")))
(hygiene guile))
- var-31498
- val-31499)
+ var-29609
+ val-29610)
(list '#(syntax-object
syntax
((top)
@@ -26490,19 +26465,19 @@
(top)
(top)
(top))
- #("l-*-31470"
- "l-*-31471"
- "l-*-31472"
- "l-*-31473"
- "l-*-31474"))
+ #("l-*-29581"
+ "l-*-29582"
+ "l-*-29583"
+ "l-*-29584"
+ "l-*-29585"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31452")))
+ #("l-*-29563")))
(hygiene guile))
- exp2-31500))
- (list (cons id-31496
+ exp2-29611))
+ (list (cons id-29607
'(#(syntax-object
x
((top)
@@ -26513,16 +26488,16 @@
(top)
(top)
(top))
- #("l-*-31470"
- "l-*-31471"
- "l-*-31472"
- "l-*-31473"
- "l-*-31474"))
+ #("l-*-29581"
+ "l-*-29582"
+ "l-*-29583"
+ "l-*-29584"
+ "l-*-29585"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31452")))
+ #("l-*-29563")))
(hygiene guile))
#(syntax-object
...
@@ -26534,16 +26509,16 @@
(top)
(top)
(top))
- #("l-*-31470"
- "l-*-31471"
- "l-*-31472"
- "l-*-31473"
- "l-*-31474"))
+ #("l-*-29581"
+ "l-*-29582"
+ "l-*-29583"
+ "l-*-29584"
+ "l-*-29585"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31452")))
+ #("l-*-29563")))
(hygiene guile))))
(list '#(syntax-object
syntax
@@ -26555,18 +26530,18 @@
(top)
(top)
(top))
- #("l-*-31470"
- "l-*-31471"
- "l-*-31472"
- "l-*-31473"
- "l-*-31474"))
+ #("l-*-29581"
+ "l-*-29582"
+ "l-*-29583"
+ "l-*-29584"
+ "l-*-29585"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31452")))
+ #("l-*-29563")))
(hygiene guile))
- (cons exp1-31497
+ (cons exp1-29608
'(#(syntax-object
x
((top)
@@ -26581,16 +26556,16 @@
(top)
(top)
(top))
- #("l-*-31470"
- "l-*-31471"
- "l-*-31472"
- "l-*-31473"
- "l-*-31474"))
+ #("l-*-29581"
+ "l-*-29582"
+ "l-*-29583"
+ "l-*-29584"
+ "l-*-29585"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31452")))
+ #("l-*-29563")))
(hygiene guile))
#(syntax-object
...
@@ -26606,18 +26581,18 @@
(top)
(top)
(top))
- #("l-*-31470"
- "l-*-31471"
- "l-*-31472"
- "l-*-31473"
- "l-*-31474"))
+ #("l-*-29581"
+ "l-*-29582"
+ "l-*-29583"
+ "l-*-29584"
+ "l-*-29585"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31452")))
+ #("l-*-29563")))
(hygiene guile))))))
- (list id-31496
+ (list id-29607
(list '#(syntax-object
identifier?
((top)
@@ -26628,16 +26603,16 @@
(top)
(top)
(top))
- #("l-*-31470"
- "l-*-31471"
- "l-*-31472"
- "l-*-31473"
- "l-*-31474"))
+ #("l-*-29581"
+ "l-*-29582"
+ "l-*-29583"
+ "l-*-29584"
+ "l-*-29585"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31452")))
+ #("l-*-29563")))
(hygiene guile))
(list '#(syntax-object
syntax
@@ -26653,18 +26628,18 @@
(top)
(top)
(top))
- #("l-*-31470"
- "l-*-31471"
- "l-*-31472"
- "l-*-31473"
- "l-*-31474"))
+ #("l-*-29581"
+ "l-*-29582"
+ "l-*-29583"
+ "l-*-29584"
+ "l-*-29585"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31452")))
+ #("l-*-29563")))
(hygiene guile))
- id-31496))
+ id-29607))
(list '#(syntax-object
syntax
((top)
@@ -26675,69 +26650,69 @@
(top)
(top)
(top))
- #("l-*-31470"
- "l-*-31471"
- "l-*-31472"
- "l-*-31473"
- "l-*-31474"))
+ #("l-*-29581"
+ "l-*-29582"
+ "l-*-29583"
+ "l-*-29584"
+ "l-*-29585"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("l-*-31452")))
+ #("l-*-29563")))
(hygiene guile))
- exp1-31497))))))
- tmp-31487)
+ exp1-29608))))))
+ tmp-29598)
(syntax-violation
#f
"source expression failed to match any pattern"
- x-31480))))))))
+ x-29591))))))))
(define define*
(make-syntax-transformer
'define*
'macro
- (lambda (x-31532)
- (let ((tmp-31534
+ (lambda (x-29643)
+ (let ((tmp-29645
($sc-dispatch
- x-31532
+ x-29643
'(_ (any . any) any . each-any))))
- (if tmp-31534
+ (if tmp-29645
(@apply
- (lambda (id-31538 args-31539 b0-31540 b1-31541)
+ (lambda (id-29649 args-29650 b0-29651 b1-29652)
(list '#(syntax-object
define
((top)
#(ribcage
#(id args b0 b1)
#((top) (top) (top) (top))
- #("l-*-31514"
- "l-*-31515"
- "l-*-31516"
- "l-*-31517"))
+ #("l-*-29625"
+ "l-*-29626"
+ "l-*-29627"
+ "l-*-29628"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-31511")))
+ #(ribcage #(x) #((top)) #("l-*-29622")))
(hygiene guile))
- id-31538
+ id-29649
(cons '#(syntax-object
lambda*
((top)
#(ribcage
#(id args b0 b1)
#((top) (top) (top) (top))
- #("l-*-31514"
- "l-*-31515"
- "l-*-31516"
- "l-*-31517"))
+ #("l-*-29625"
+ "l-*-29626"
+ "l-*-29627"
+ "l-*-29628"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-31511")))
+ #(ribcage #(x) #((top)) #("l-*-29622")))
(hygiene guile))
- (cons args-31539 (cons b0-31540 b1-31541)))))
- tmp-31534)
- (let ((tmp-31542 ($sc-dispatch x-31532 '(_ any any))))
- (if (if tmp-31542
+ (cons args-29650 (cons b0-29651 b1-29652)))))
+ tmp-29645)
+ (let ((tmp-29653 ($sc-dispatch x-29643 '(_ any any))))
+ (if (if tmp-29653
(@apply
- (lambda (id-31546 val-31547)
+ (lambda (id-29657 val-29658)
(identifier?
'#(syntax-object
x
@@ -26745,29 +26720,29 @@
#(ribcage
#(id val)
#((top) (top))
- #("l-*-31524" "l-*-31525"))
+ #("l-*-29635" "l-*-29636"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-31511")))
+ #(ribcage #(x) #((top)) #("l-*-29622")))
(hygiene guile))))
- tmp-31542)
+ tmp-29653)
#f)
(@apply
- (lambda (id-31548 val-31549)
+ (lambda (id-29659 val-29660)
(list '#(syntax-object
define
((top)
#(ribcage
#(id val)
#((top) (top))
- #("l-*-31528" "l-*-31529"))
+ #("l-*-29639" "l-*-29640"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("l-*-31511")))
+ #(ribcage #(x) #((top)) #("l-*-29622")))
(hygiene guile))
- id-31548
- val-31549))
- tmp-31542)
+ id-29659
+ val-29660))
+ tmp-29653)
(syntax-violation
#f
"source expression failed to match any pattern"
- x-31532))))))))
+ x-29643))))))))
diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm
index 728ab12..729ae6e 100644
--- a/module/ice-9/psyntax.scm
+++ b/module/ice-9/psyntax.scm
@@ -1385,25 +1385,25 @@
s))
((syntax-object? x)
(let ((w (syntax-object-wrap x)))
- (let ((ms (wrap-marks w)) (s (wrap-subst w)))
+ (let ((ms (wrap-marks w)) (ss (wrap-subst w)))
(if (and (pair? ms) (eq? (car ms) the-anti-mark))
;; output is from original text
(make-syntax-object
(syntax-object-expression x)
- (make-wrap (cdr ms) (if rib (cons rib (cdr s))
(cdr s)))
+ (make-wrap (cdr ms) (if rib (cons rib (cdr ss))
(cdr ss)))
(syntax-object-module x))
;; output introduced by macro
(make-syntax-object
(decorate-source (syntax-object-expression x) s)
(make-wrap (cons m ms)
(if rib
- (cons rib (cons 'shift s))
- (cons 'shift s)))
+ (cons rib (cons 'shift ss))
+ (cons 'shift ss)))
(syntax-object-module x))))))
((vector? x)
(let* ((n (vector-length x))
- (v (decorate-source (make-vector n) x)))
+ (v (decorate-source (make-vector n) s)))
(do ((i 0 (fx+ i 1)))
((fx= i n) v)
(vector-set! v i
@@ -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)))))
diff --git a/module/system/base/message.scm b/module/system/base/message.scm
index 9accf71..26d1a18 100644
--- a/module/system/base/message.scm
+++ b/module/system/base/message.scm
@@ -75,7 +75,7 @@
(printer warning-type-printer))
(define %warning-types
- ;; List of know warning types.
+ ;; List of known warning types.
(map (lambda (args)
(apply make-warning-type args))
hooks/post-receive
--
GNU Guile
| [Prev in Thread] | Current Thread | [Next in Thread] |