diff options
author | Mark H Weaver <mhw@netris.org> | 2012-02-15 00:41:24 -0500 |
---|---|---|
committer | Mark H Weaver <mhw@netris.org> | 2012-02-15 00:41:24 -0500 |
commit | bbd1281ae5551e31d1bc720c7e93528619e0a693 (patch) | |
tree | 5ef1ff575b34f5f427f49fbc875b3e8e02af5e6c | |
parent | 30398e94f9cadfaff44117bbff214b0b7ba703ca (diff) | |
download | guile-bbd1281ae5551e31d1bc720c7e93528619e0a693.tar.gz |
syntax-violation: prefer 'subform' for source info, with 'form' as fallback
* module/ice-9/psyntax.scm (syntax-violation): Look for source
properties of 'subform' first. If 'subform' has none, 'form' is used.
Previously, the source information of 'form' was used unless 'form'
_itself_ was '#f', in which case 'subform' was used.
* module/ice-9/psyntax-pp.scm: Regenerate.
-rw-r--r-- | module/ice-9/psyntax-pp.scm | 22785 | ||||
-rw-r--r-- | module/ice-9/psyntax.scm | 3 |
2 files changed, 11371 insertions, 11417 deletions
diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm index 43b273c36..41d7db426 100644 --- a/module/ice-9/psyntax-pp.scm +++ b/module/ice-9/psyntax-pp.scm @@ -1,1268 +1,1268 @@ (eval-when (compile) (set-current-module (resolve-module (quote (guile))))) (if #f #f) -(let ((session-id-6306 (if #f #f)) - (transformer-environment-6367 (if #f #f))) +(let ((session-id-4255 (if #f #f)) + (transformer-environment-4316 (if #f #f))) (letrec* - ((top-level-eval-hook-6304 - (lambda (x-29255 mod-29256) - (primitive-eval x-29255))) - (get-global-definition-hook-6308 - (lambda (symbol-17518 module-17519) + ((top-level-eval-hook-4253 + (lambda (x-27423 mod-27424) + (primitive-eval x-27423))) + (get-global-definition-hook-4257 + (lambda (symbol-15686 module-15687) (begin - (if (if (not module-17519) (current-module) #f) + (if (if (not module-15687) (current-module) #f) (warn "module system is booted, we should have a module" - symbol-17518)) - (let ((v-17520 + symbol-15686)) + (let ((v-15688 (module-variable - (if module-17519 - (resolve-module (cdr module-17519)) + (if module-15687 + (resolve-module (cdr module-15687)) (current-module)) - symbol-17518))) - (if v-17520 - (if (variable-bound? v-17520) - (let ((val-17522 (variable-ref v-17520))) - (if (macro? val-17522) - (if (macro-type val-17522) - (cons (macro-type val-17522) - (macro-binding val-17522)) + symbol-15686))) + (if v-15688 + (if (variable-bound? v-15688) + (let ((val-15690 (variable-ref v-15688))) + (if (macro? val-15690) + (if (macro-type val-15690) + (cons (macro-type val-15690) + (macro-binding val-15690)) #f) #f)) #f) #f))))) - (maybe-name-value!-6310 - (lambda (name-17799 val-17800) - (if (if (struct? val-17800) - (eq? (struct-vtable val-17800) + (maybe-name-value!-4259 + (lambda (name-15967 val-15968) + (if (if (struct? val-15968) + (eq? (struct-vtable val-15968) (vector-ref %expanded-vtables 13)) #f) - (let ((meta-17807 (struct-ref val-17800 1))) - (if (not (assq 'name meta-17807)) - (let ((v-17812 - (cons (cons 'name name-17799) meta-17807))) - (struct-set! val-17800 1 v-17812))))))) - (build-application-6312 - (lambda (source-17524 fun-exp-17525 arg-exps-17526) + (let ((meta-15975 (struct-ref val-15968 1))) + (if (not (assq 'name meta-15975)) + (let ((v-15980 + (cons (cons 'name name-15967) meta-15975))) + (struct-set! val-15968 1 v-15980))))))) + (build-application-4261 + (lambda (source-15692 fun-exp-15693 arg-exps-15694) (make-struct/no-tail (vector-ref %expanded-vtables 11) - source-17524 - fun-exp-17525 - arg-exps-17526))) - (build-conditional-6313 - (lambda (source-17532 - test-exp-17533 - then-exp-17534 - else-exp-17535) + source-15692 + fun-exp-15693 + arg-exps-15694))) + (build-conditional-4262 + (lambda (source-15700 + test-exp-15701 + then-exp-15702 + else-exp-15703) (make-struct/no-tail (vector-ref %expanded-vtables 10) - source-17532 - test-exp-17533 - then-exp-17534 - else-exp-17535))) - (build-dynlet-6314 - (lambda (source-17542 fluids-17543 vals-17544 body-17545) + source-15700 + test-exp-15701 + then-exp-15702 + else-exp-15703))) + (build-dynlet-4263 + (lambda (source-15710 fluids-15711 vals-15712 body-15713) (make-struct/no-tail (vector-ref %expanded-vtables 17) - source-17542 - fluids-17543 - vals-17544 - body-17545))) - (build-lexical-reference-6315 - (lambda (type-29257 source-29258 name-29259 var-29260) + source-15710 + fluids-15711 + vals-15712 + body-15713))) + (build-lexical-reference-4264 + (lambda (type-27425 source-27426 name-27427 var-27428) (make-struct/no-tail (vector-ref %expanded-vtables 3) - source-29258 - name-29259 - var-29260))) - (build-lexical-assignment-6316 - (lambda (source-17552 name-17553 var-17554 exp-17555) + source-27426 + name-27427 + var-27428))) + (build-lexical-assignment-4265 + (lambda (source-15720 name-15721 var-15722 exp-15723) (begin - (if (if (struct? exp-17555) - (eq? (struct-vtable exp-17555) + (if (if (struct? exp-15723) + (eq? (struct-vtable exp-15723) (vector-ref %expanded-vtables 13)) #f) - (let ((meta-17571 (struct-ref exp-17555 1))) - (if (not (assq 'name meta-17571)) - (let ((v-17578 - (cons (cons 'name name-17553) meta-17571))) - (struct-set! exp-17555 1 v-17578))))) + (let ((meta-15739 (struct-ref exp-15723 1))) + (if (not (assq 'name meta-15739)) + (let ((v-15746 + (cons (cons 'name name-15721) meta-15739))) + (struct-set! exp-15723 1 v-15746))))) (make-struct/no-tail (vector-ref %expanded-vtables 4) - source-17552 - name-17553 - var-17554 - exp-17555)))) - (analyze-variable-6317 - (lambda (mod-29266 - var-29267 - modref-cont-29268 - bare-cont-29269) - (if (not mod-29266) - (bare-cont-29269 var-29267) - (let ((kind-29270 (car mod-29266)) - (mod-29271 (cdr mod-29266))) - (if (eqv? kind-29270 'public) - (modref-cont-29268 mod-29271 var-29267 #t) - (if (eqv? kind-29270 'private) - (if (not (equal? mod-29271 (module-name (current-module)))) - (modref-cont-29268 mod-29271 var-29267 #f) - (bare-cont-29269 var-29267)) - (if (eqv? kind-29270 'bare) - (bare-cont-29269 var-29267) - (if (eqv? kind-29270 'hygiene) + source-15720 + name-15721 + var-15722 + exp-15723)))) + (analyze-variable-4266 + (lambda (mod-27434 + var-27435 + modref-cont-27436 + bare-cont-27437) + (if (not mod-27434) + (bare-cont-27437 var-27435) + (let ((kind-27438 (car mod-27434)) + (mod-27439 (cdr mod-27434))) + (if (eqv? kind-27438 'public) + (modref-cont-27436 mod-27439 var-27435 #t) + (if (eqv? kind-27438 'private) + (if (not (equal? mod-27439 (module-name (current-module)))) + (modref-cont-27436 mod-27439 var-27435 #f) + (bare-cont-27437 var-27435)) + (if (eqv? kind-27438 'bare) + (bare-cont-27437 var-27435) + (if (eqv? kind-27438 'hygiene) (if (if (not (equal? - mod-29271 + mod-27439 (module-name (current-module)))) (module-variable - (resolve-module mod-29271) - var-29267) + (resolve-module mod-27439) + var-27435) #f) - (modref-cont-29268 mod-29271 var-29267 #f) - (bare-cont-29269 var-29267)) + (modref-cont-27436 mod-27439 var-27435 #f) + (bare-cont-27437 var-27435)) (syntax-violation #f "bad module kind" - var-29267 - mod-29271))))))))) - (build-global-reference-6318 - (lambda (source-29298 var-29299 mod-29300) - (analyze-variable-6317 - mod-29300 - var-29299 - (lambda (mod-29303 var-29304 public?-29305) + var-27435 + mod-27439))))))))) + (build-global-reference-4267 + (lambda (source-27466 var-27467 mod-27468) + (analyze-variable-4266 + mod-27468 + var-27467 + (lambda (mod-27471 var-27472 public?-27473) (make-struct/no-tail (vector-ref %expanded-vtables 5) - source-29298 - mod-29303 - var-29304 - public?-29305)) - (lambda (var-29313) + source-27466 + mod-27471 + var-27472 + public?-27473)) + (lambda (var-27481) (make-struct/no-tail (vector-ref %expanded-vtables 7) - source-29298 - var-29313))))) - (build-global-assignment-6319 - (lambda (source-17587 var-17588 exp-17589 mod-17590) + source-27466 + var-27481))))) + (build-global-assignment-4268 + (lambda (source-15755 var-15756 exp-15757 mod-15758) (begin - (if (if (struct? exp-17589) - (eq? (struct-vtable exp-17589) + (if (if (struct? exp-15757) + (eq? (struct-vtable exp-15757) (vector-ref %expanded-vtables 13)) #f) - (let ((meta-17606 (struct-ref exp-17589 1))) - (if (not (assq 'name meta-17606)) - (let ((v-17613 - (cons (cons 'name var-17588) meta-17606))) - (struct-set! exp-17589 1 v-17613))))) - (analyze-variable-6317 - mod-17590 - var-17588 - (lambda (mod-17618 var-17619 public?-17620) + (let ((meta-15774 (struct-ref exp-15757 1))) + (if (not (assq 'name meta-15774)) + (let ((v-15781 + (cons (cons 'name var-15756) meta-15774))) + (struct-set! exp-15757 1 v-15781))))) + (analyze-variable-4266 + mod-15758 + var-15756 + (lambda (mod-15786 var-15787 public?-15788) (make-struct/no-tail (vector-ref %expanded-vtables 6) - source-17587 - mod-17618 - var-17619 - public?-17620 - exp-17589)) - (lambda (var-17628) + source-15755 + mod-15786 + var-15787 + public?-15788 + exp-15757)) + (lambda (var-15796) (make-struct/no-tail (vector-ref %expanded-vtables 8) - source-17587 - var-17628 - exp-17589)))))) - (build-global-definition-6320 - (lambda (source-29319 var-29320 exp-29321) + source-15755 + var-15796 + exp-15757)))))) + (build-global-definition-4269 + (lambda (source-27487 var-27488 exp-27489) (begin - (if (if (struct? exp-29321) - (eq? (struct-vtable exp-29321) + (if (if (struct? exp-27489) + (eq? (struct-vtable exp-27489) (vector-ref %expanded-vtables 13)) #f) - (let ((meta-29337 (struct-ref exp-29321 1))) - (if (not (assq 'name meta-29337)) - (let ((v-29344 - (cons (cons 'name var-29320) meta-29337))) - (struct-set! exp-29321 1 v-29344))))) + (let ((meta-27505 (struct-ref exp-27489 1))) + (if (not (assq 'name meta-27505)) + (let ((v-27512 + (cons (cons 'name var-27488) meta-27505))) + (struct-set! exp-27489 1 v-27512))))) (make-struct/no-tail (vector-ref %expanded-vtables 9) - source-29319 - var-29320 - exp-29321)))) - (build-simple-lambda-6321 - (lambda (src-17634 - req-17635 - rest-17636 - vars-17637 - meta-17638 - exp-17639) - (let ((body-17645 + source-27487 + var-27488 + exp-27489)))) + (build-simple-lambda-4270 + (lambda (src-15802 + req-15803 + rest-15804 + vars-15805 + meta-15806 + exp-15807) + (let ((body-15813 (make-struct/no-tail (vector-ref %expanded-vtables 14) - src-17634 - req-17635 + src-15802 + req-15803 #f - rest-17636 + rest-15804 #f '() - vars-17637 - exp-17639 + vars-15805 + exp-15807 #f))) (make-struct/no-tail (vector-ref %expanded-vtables 13) - src-17634 - meta-17638 - body-17645)))) - (build-sequence-6326 - (lambda (src-29352 exps-29353) - (if (null? (cdr exps-29353)) - (car exps-29353) + src-15802 + meta-15806 + body-15813)))) + (build-sequence-4275 + (lambda (src-27520 exps-27521) + (if (null? (cdr exps-27521)) + (car exps-27521) (make-struct/no-tail (vector-ref %expanded-vtables 12) - src-29352 - exps-29353)))) - (build-let-6327 - (lambda (src-17657 - ids-17658 - vars-17659 - val-exps-17660 - body-exp-17661) + src-27520 + exps-27521)))) + (build-let-4276 + (lambda (src-15825 + ids-15826 + vars-15827 + val-exps-15828 + body-exp-15829) (begin (for-each - maybe-name-value!-6310 - ids-17658 - val-exps-17660) - (if (null? vars-17659) - body-exp-17661 + maybe-name-value!-4259 + ids-15826 + val-exps-15828) + (if (null? vars-15827) + body-exp-15829 (make-struct/no-tail (vector-ref %expanded-vtables 15) - src-17657 - ids-17658 - vars-17659 - val-exps-17660 - body-exp-17661))))) - (build-named-let-6328 - (lambda (src-17685 - ids-17686 - vars-17687 - val-exps-17688 - body-exp-17689) - (let ((f-17690 (car vars-17687)) - (f-name-17691 (car ids-17686)) - (vars-17692 (cdr vars-17687)) - (ids-17693 (cdr ids-17686))) - (let ((proc-17694 - (let ((body-17714 + src-15825 + ids-15826 + vars-15827 + val-exps-15828 + body-exp-15829))))) + (build-named-let-4277 + (lambda (src-15853 + ids-15854 + vars-15855 + val-exps-15856 + body-exp-15857) + (let ((f-15858 (car vars-15855)) + (f-name-15859 (car ids-15854)) + (vars-15860 (cdr vars-15855)) + (ids-15861 (cdr ids-15854))) + (let ((proc-15862 + (let ((body-15882 (make-struct/no-tail (vector-ref %expanded-vtables 14) - src-17685 - ids-17693 + src-15853 + ids-15861 #f #f #f '() - vars-17692 - body-exp-17689 + vars-15860 + body-exp-15857 #f))) (make-struct/no-tail (vector-ref %expanded-vtables 13) - src-17685 + src-15853 '() - body-17714)))) + body-15882)))) (begin - (if (if (struct? proc-17694) - (eq? (struct-vtable proc-17694) + (if (if (struct? proc-15862) + (eq? (struct-vtable proc-15862) (vector-ref %expanded-vtables 13)) #f) - (let ((meta-17738 (struct-ref proc-17694 1))) - (if (not (assq 'name meta-17738)) - (let ((v-17745 - (cons (cons 'name f-name-17691) meta-17738))) - (struct-set! proc-17694 1 v-17745))))) + (let ((meta-15906 (struct-ref proc-15862 1))) + (if (not (assq 'name meta-15906)) + (let ((v-15913 + (cons (cons 'name f-name-15859) meta-15906))) + (struct-set! proc-15862 1 v-15913))))) (for-each - maybe-name-value!-6310 - ids-17693 - val-exps-17688) - (let ((names-17769 (list f-name-17691)) - (gensyms-17770 (list f-17690)) - (vals-17771 (list proc-17694)) - (body-17772 - (let ((fun-exp-17776 + maybe-name-value!-4259 + ids-15861 + val-exps-15856) + (let ((names-15937 (list f-name-15859)) + (gensyms-15938 (list f-15858)) + (vals-15939 (list proc-15862)) + (body-15940 + (let ((fun-exp-15944 (make-struct/no-tail (vector-ref %expanded-vtables 3) - src-17685 - f-name-17691 - f-17690))) + src-15853 + f-name-15859 + f-15858))) (make-struct/no-tail (vector-ref %expanded-vtables 11) - src-17685 - fun-exp-17776 - val-exps-17688)))) + src-15853 + fun-exp-15944 + val-exps-15856)))) (make-struct/no-tail (vector-ref %expanded-vtables 16) - src-17685 + src-15853 #f - names-17769 - gensyms-17770 - vals-17771 - body-17772))))))) - (build-letrec-6329 - (lambda (src-17792 - in-order?-17793 - ids-17794 - vars-17795 - val-exps-17796 - body-exp-17797) - (if (null? vars-17795) - body-exp-17797 + names-15937 + gensyms-15938 + vals-15939 + body-15940))))))) + (build-letrec-4278 + (lambda (src-15960 + in-order?-15961 + ids-15962 + vars-15963 + val-exps-15964 + body-exp-15965) + (if (null? vars-15963) + body-exp-15965 (begin (for-each - maybe-name-value!-6310 - ids-17794 - val-exps-17796) + maybe-name-value!-4259 + ids-15962 + val-exps-15964) (make-struct/no-tail (vector-ref %expanded-vtables 16) - src-17792 - in-order?-17793 - ids-17794 - vars-17795 - val-exps-17796 - body-exp-17797))))) - (source-annotation-6338 - (lambda (x-17823) - (if (if (vector? x-17823) - (if (= (vector-length x-17823) 4) - (eq? (vector-ref x-17823 0) 'syntax-object) + src-15960 + in-order?-15961 + ids-15962 + vars-15963 + val-exps-15964 + body-exp-15965))))) + (source-annotation-4287 + (lambda (x-15991) + (if (if (vector? x-15991) + (if (= (vector-length x-15991) 4) + (eq? (vector-ref x-15991 0) 'syntax-object) #f) #f) - (source-annotation-6338 (vector-ref x-17823 1)) - (if (pair? x-17823) - (let ((props-17838 (source-properties x-17823))) - (if (pair? props-17838) props-17838 #f)) + (source-annotation-4287 (vector-ref x-15991 1)) + (if (pair? x-15991) + (let ((props-16006 (source-properties x-15991))) + (if (pair? props-16006) props-16006 #f)) #f)))) - (extend-env-6339 - (lambda (labels-17840 bindings-17841 r-17842) - (if (null? labels-17840) - r-17842 - (extend-env-6339 - (cdr labels-17840) - (cdr bindings-17841) - (cons (cons (car labels-17840) (car bindings-17841)) - r-17842))))) - (extend-var-env-6340 - (lambda (labels-17843 vars-17844 r-17845) - (if (null? labels-17843) - r-17845 - (extend-var-env-6340 - (cdr labels-17843) - (cdr vars-17844) - (cons (cons (car labels-17843) - (cons 'lexical (car vars-17844))) - r-17845))))) - (macros-only-env-6341 - (lambda (r-17846) - (if (null? r-17846) + (extend-env-4288 + (lambda (labels-16008 bindings-16009 r-16010) + (if (null? labels-16008) + r-16010 + (extend-env-4288 + (cdr labels-16008) + (cdr bindings-16009) + (cons (cons (car labels-16008) (car bindings-16009)) + r-16010))))) + (extend-var-env-4289 + (lambda (labels-16011 vars-16012 r-16013) + (if (null? labels-16011) + r-16013 + (extend-var-env-4289 + (cdr labels-16011) + (cdr vars-16012) + (cons (cons (car labels-16011) + (cons 'lexical (car vars-16012))) + r-16013))))) + (macros-only-env-4290 + (lambda (r-16014) + (if (null? r-16014) '() - (let ((a-17847 (car r-17846))) - (if (eq? (car (cdr a-17847)) 'macro) - (cons a-17847 - (macros-only-env-6341 (cdr r-17846))) - (macros-only-env-6341 (cdr r-17846))))))) - (global-extend-6343 - (lambda (type-17849 sym-17850 val-17851) + (let ((a-16015 (car r-16014))) + (if (eq? (car (cdr a-16015)) 'macro) + (cons a-16015 + (macros-only-env-4290 (cdr r-16014))) + (macros-only-env-4290 (cdr r-16014))))))) + (global-extend-4292 + (lambda (type-16017 sym-16018 val-16019) (module-define! (current-module) - sym-17850 + sym-16018 (make-syntax-transformer - sym-17850 - type-17849 - val-17851)))) - (id?-6345 - (lambda (x-11651) - (if (symbol? x-11651) + sym-16018 + type-16017 + val-16019)))) + (id?-4294 + (lambda (x-9600) + (if (symbol? x-9600) #t - (if (if (vector? x-11651) - (if (= (vector-length x-11651) 4) - (eq? (vector-ref x-11651 0) 'syntax-object) + (if (if (vector? x-9600) + (if (= (vector-length x-9600) 4) + (eq? (vector-ref x-9600 0) 'syntax-object) #f) #f) - (symbol? (vector-ref x-11651 1)) + (symbol? (vector-ref x-9600 1)) #f)))) - (gen-labels-6348 - (lambda (ls-17861) - (if (null? ls-17861) + (gen-labels-4297 + (lambda (ls-16029) + (if (null? ls-16029) '() (cons (string-append "l-" - (session-id-6306) + (session-id-4255) (symbol->string (gensym "-"))) - (gen-labels-6348 (cdr ls-17861)))))) - (make-binding-wrap-6359 - (lambda (ids-17865 labels-17866 w-17867) - (if (null? ids-17865) - w-17867 - (cons (car w-17867) - (cons (let ((labelvec-17868 (list->vector labels-17866))) - (let ((n-17869 (vector-length labelvec-17868))) - (let ((symnamevec-17870 (make-vector n-17869)) - (marksvec-17871 (make-vector n-17869))) + (gen-labels-4297 (cdr ls-16029)))))) + (make-binding-wrap-4308 + (lambda (ids-16033 labels-16034 w-16035) + (if (null? ids-16033) + w-16035 + (cons (car w-16035) + (cons (let ((labelvec-16036 (list->vector labels-16034))) + (let ((n-16037 (vector-length labelvec-16036))) + (let ((symnamevec-16038 (make-vector n-16037)) + (marksvec-16039 (make-vector n-16037))) (begin (letrec* - ((f-17872 - (lambda (ids-17875 i-17876) - (if (not (null? ids-17875)) + ((f-16040 + (lambda (ids-16043 i-16044) + (if (not (null? ids-16043)) (call-with-values (lambda () - (let ((x-17879 (car ids-17875))) - (if (if (vector? x-17879) + (let ((x-16047 (car ids-16043))) + (if (if (vector? x-16047) (if (= (vector-length - x-17879) + x-16047) 4) (eq? (vector-ref - x-17879 + x-16047 0) 'syntax-object) #f) #f) (values - (vector-ref x-17879 1) - (let ((m1-17895 - (car w-17867)) - (m2-17896 + (vector-ref x-16047 1) + (let ((m1-16063 + (car w-16035)) + (m2-16064 (car (vector-ref - x-17879 + x-16047 2)))) - (if (null? m2-17896) - m1-17895 + (if (null? m2-16064) + m1-16063 (append - m1-17895 - m2-17896)))) + m1-16063 + m2-16064)))) (values - x-17879 - (car w-17867))))) - (lambda (symname-17916 marks-17917) + x-16047 + (car w-16035))))) + (lambda (symname-16084 marks-16085) (begin (vector-set! - symnamevec-17870 - i-17876 - symname-17916) + symnamevec-16038 + i-16044 + symname-16084) (vector-set! - marksvec-17871 - i-17876 - marks-17917) - (f-17872 - (cdr ids-17875) - (#{1+}# i-17876))))))))) - (f-17872 ids-17865 0)) + marksvec-16039 + i-16044 + marks-16085) + (f-16040 + (cdr ids-16043) + (#{1+}# i-16044))))))))) + (f-16040 ids-16033 0)) (vector 'ribcage - symnamevec-17870 - marksvec-17871 - labelvec-17868))))) - (cdr w-17867)))))) - (join-wraps-6361 - (lambda (w1-17926 w2-17927) - (let ((m1-17928 (car w1-17926)) - (s1-17929 (cdr w1-17926))) - (if (null? m1-17928) - (if (null? s1-17929) - w2-17927 - (cons (car w2-17927) - (let ((m2-17936 (cdr w2-17927))) - (if (null? m2-17936) - s1-17929 - (append s1-17929 m2-17936))))) - (cons (let ((m2-17945 (car w2-17927))) - (if (null? m2-17945) - m1-17928 - (append m1-17928 m2-17945))) - (let ((m2-17954 (cdr w2-17927))) - (if (null? m2-17954) - s1-17929 - (append s1-17929 m2-17954)))))))) - (same-marks?-6363 - (lambda (x-17959 y-17960) - (if (eq? x-17959 y-17960) - (eq? x-17959 y-17960) - (if (not (null? x-17959)) - (if (not (null? y-17960)) - (if (eq? (car x-17959) (car y-17960)) - (same-marks?-6363 (cdr x-17959) (cdr y-17960)) + symnamevec-16038 + marksvec-16039 + labelvec-16036))))) + (cdr w-16035)))))) + (join-wraps-4310 + (lambda (w1-16094 w2-16095) + (let ((m1-16096 (car w1-16094)) + (s1-16097 (cdr w1-16094))) + (if (null? m1-16096) + (if (null? s1-16097) + w2-16095 + (cons (car w2-16095) + (let ((m2-16104 (cdr w2-16095))) + (if (null? m2-16104) + s1-16097 + (append s1-16097 m2-16104))))) + (cons (let ((m2-16113 (car w2-16095))) + (if (null? m2-16113) + m1-16096 + (append m1-16096 m2-16113))) + (let ((m2-16122 (cdr w2-16095))) + (if (null? m2-16122) + s1-16097 + (append s1-16097 m2-16122)))))))) + (same-marks?-4312 + (lambda (x-16127 y-16128) + (if (eq? x-16127 y-16128) + (eq? x-16127 y-16128) + (if (not (null? x-16127)) + (if (not (null? y-16128)) + (if (eq? (car x-16127) (car y-16128)) + (same-marks?-4312 (cdr x-16127) (cdr y-16128)) #f) #f) #f)))) - (id-var-name-6364 - (lambda (id-17968 w-17969) + (id-var-name-4313 + (lambda (id-16136 w-16137) (letrec* - ((search-17970 - (lambda (sym-18031 subst-18032 marks-18033) - (if (null? subst-18032) - (values #f marks-18033) - (let ((fst-18034 (car subst-18032))) - (if (eq? fst-18034 'shift) - (search-17970 - sym-18031 - (cdr subst-18032) - (cdr marks-18033)) - (let ((symnames-18036 (vector-ref fst-18034 1))) - (if (vector? symnames-18036) - (let ((n-18048 (vector-length symnames-18036))) + ((search-16138 + (lambda (sym-16199 subst-16200 marks-16201) + (if (null? subst-16200) + (values #f marks-16201) + (let ((fst-16202 (car subst-16200))) + (if (eq? fst-16202 'shift) + (search-16138 + sym-16199 + (cdr subst-16200) + (cdr marks-16201)) + (let ((symnames-16204 (vector-ref fst-16202 1))) + (if (vector? symnames-16204) + (let ((n-16216 (vector-length symnames-16204))) (letrec* - ((f-18049 - (lambda (i-18051) - (if (= i-18051 n-18048) - (search-17970 - sym-18031 - (cdr subst-18032) - marks-18033) + ((f-16217 + (lambda (i-16219) + (if (= i-16219 n-16216) + (search-16138 + sym-16199 + (cdr subst-16200) + marks-16201) (if (if (eq? (vector-ref - symnames-18036 - i-18051) - sym-18031) - (same-marks?-6363 - marks-18033 + symnames-16204 + i-16219) + sym-16199) + (same-marks?-4312 + marks-16201 (vector-ref - (vector-ref fst-18034 2) - i-18051)) + (vector-ref fst-16202 2) + i-16219)) #f) (values (vector-ref - (vector-ref fst-18034 3) - i-18051) - marks-18033) - (f-18049 (#{1+}# i-18051))))))) - (f-18049 0))) + (vector-ref fst-16202 3) + i-16219) + marks-16201) + (f-16217 (#{1+}# i-16219))))))) + (f-16217 0))) (letrec* - ((f-18084 - (lambda (symnames-18086 i-18087) - (if (null? symnames-18086) - (search-17970 - sym-18031 - (cdr subst-18032) - marks-18033) - (if (if (eq? (car symnames-18086) sym-18031) - (same-marks?-6363 - marks-18033 + ((f-16252 + (lambda (symnames-16254 i-16255) + (if (null? symnames-16254) + (search-16138 + sym-16199 + (cdr subst-16200) + marks-16201) + (if (if (eq? (car symnames-16254) sym-16199) + (same-marks?-4312 + marks-16201 (list-ref - (vector-ref fst-18034 2) - i-18087)) + (vector-ref fst-16202 2) + i-16255)) #f) (values (list-ref - (vector-ref fst-18034 3) - i-18087) - marks-18033) - (f-18084 - (cdr symnames-18086) - (#{1+}# i-18087))))))) - (f-18084 symnames-18036 0)))))))))) - (if (symbol? id-17968) - (let ((t-17973 - (search-17970 - id-17968 - (cdr w-17969) - (car w-17969)))) - (if t-17973 t-17973 id-17968)) - (if (if (vector? id-17968) - (if (= (vector-length id-17968) 4) - (eq? (vector-ref id-17968 0) 'syntax-object) + (vector-ref fst-16202 3) + i-16255) + marks-16201) + (f-16252 + (cdr symnames-16254) + (#{1+}# i-16255))))))) + (f-16252 symnames-16204 0)))))))))) + (if (symbol? id-16136) + (let ((t-16141 + (search-16138 + id-16136 + (cdr w-16137) + (car w-16137)))) + (if t-16141 t-16141 id-16136)) + (if (if (vector? id-16136) + (if (= (vector-length id-16136) 4) + (eq? (vector-ref id-16136 0) 'syntax-object) #f) #f) - (let ((id-17988 (vector-ref id-17968 1)) - (w1-17989 (vector-ref id-17968 2))) - (let ((marks-17990 - (let ((m1-18000 (car w-17969)) - (m2-18001 (car w1-17989))) - (if (null? m2-18001) - m1-18000 - (append m1-18000 m2-18001))))) + (let ((id-16156 (vector-ref id-16136 1)) + (w1-16157 (vector-ref id-16136 2))) + (let ((marks-16158 + (let ((m1-16168 (car w-16137)) + (m2-16169 (car w1-16157))) + (if (null? m2-16169) + m1-16168 + (append m1-16168 m2-16169))))) (call-with-values (lambda () - (search-17970 id-17988 (cdr w-17969) marks-17990)) - (lambda (new-id-18017 marks-18018) - (if new-id-18017 - new-id-18017 - (let ((t-18026 - (search-17970 - id-17988 - (cdr w1-17989) - marks-18018))) - (if t-18026 t-18026 id-17988))))))) + (search-16138 id-16156 (cdr w-16137) marks-16158)) + (lambda (new-id-16185 marks-16186) + (if new-id-16185 + new-id-16185 + (let ((t-16194 + (search-16138 + id-16156 + (cdr w1-16157) + marks-16186))) + (if t-16194 t-16194 id-16156))))))) (syntax-violation 'id-var-name "invalid id" - id-17968)))))) - (locally-bound-identifiers-6365 - (lambda (w-18109 mod-18110) + id-16136)))))) + (locally-bound-identifiers-4314 + (lambda (w-16277 mod-16278) (letrec* - ((scan-18111 - (lambda (subst-18116 results-18117) - (if (null? subst-18116) - results-18117 - (let ((fst-18118 (car subst-18116))) - (if (eq? fst-18118 'shift) - (scan-18111 (cdr subst-18116) results-18117) - (let ((symnames-18120 (vector-ref fst-18118 1)) - (marks-18121 (vector-ref fst-18118 2))) - (if (vector? symnames-18120) - (scan-vector-rib-18113 - subst-18116 - symnames-18120 - marks-18121 - results-18117) - (scan-list-rib-18112 - subst-18116 - symnames-18120 - marks-18121 - results-18117)))))))) - (scan-list-rib-18112 - (lambda (subst-18219 - symnames-18220 - marks-18221 - results-18222) + ((scan-16279 + (lambda (subst-16284 results-16285) + (if (null? subst-16284) + results-16285 + (let ((fst-16286 (car subst-16284))) + (if (eq? fst-16286 'shift) + (scan-16279 (cdr subst-16284) results-16285) + (let ((symnames-16288 (vector-ref fst-16286 1)) + (marks-16289 (vector-ref fst-16286 2))) + (if (vector? symnames-16288) + (scan-vector-rib-16281 + subst-16284 + symnames-16288 + marks-16289 + results-16285) + (scan-list-rib-16280 + subst-16284 + symnames-16288 + marks-16289 + results-16285)))))))) + (scan-list-rib-16280 + (lambda (subst-16387 + symnames-16388 + marks-16389 + results-16390) (letrec* - ((f-18223 - (lambda (symnames-18323 marks-18324 results-18325) - (if (null? symnames-18323) - (scan-18111 (cdr subst-18219) results-18325) - (f-18223 - (cdr symnames-18323) - (cdr marks-18324) - (cons (wrap-6374 - (car symnames-18323) - (let ((w-18333 - (cons (car marks-18324) - subst-18219))) - (cons (cons #f (car w-18333)) - (cons 'shift (cdr w-18333)))) - mod-18110) - results-18325)))))) - (f-18223 - symnames-18220 - marks-18221 - results-18222)))) - (scan-vector-rib-18113 - (lambda (subst-18334 - symnames-18335 - marks-18336 - results-18337) - (let ((n-18338 (vector-length symnames-18335))) + ((f-16391 + (lambda (symnames-16491 marks-16492 results-16493) + (if (null? symnames-16491) + (scan-16279 (cdr subst-16387) results-16493) + (f-16391 + (cdr symnames-16491) + (cdr marks-16492) + (cons (wrap-4323 + (car symnames-16491) + (let ((w-16501 + (cons (car marks-16492) + subst-16387))) + (cons (cons #f (car w-16501)) + (cons 'shift (cdr w-16501)))) + mod-16278) + results-16493)))))) + (f-16391 + symnames-16388 + marks-16389 + results-16390)))) + (scan-vector-rib-16281 + (lambda (subst-16502 + symnames-16503 + marks-16504 + results-16505) + (let ((n-16506 (vector-length symnames-16503))) (letrec* - ((f-18339 - (lambda (i-18422 results-18423) - (if (= i-18422 n-18338) - (scan-18111 (cdr subst-18334) results-18423) - (f-18339 - (#{1+}# i-18422) - (cons (wrap-6374 - (vector-ref symnames-18335 i-18422) - (let ((w-18431 + ((f-16507 + (lambda (i-16590 results-16591) + (if (= i-16590 n-16506) + (scan-16279 (cdr subst-16502) results-16591) + (f-16507 + (#{1+}# i-16590) + (cons (wrap-4323 + (vector-ref symnames-16503 i-16590) + (let ((w-16599 (cons (vector-ref - marks-18336 - i-18422) - subst-18334))) - (cons (cons #f (car w-18431)) - (cons 'shift (cdr w-18431)))) - mod-18110) - results-18423)))))) - (f-18339 0 results-18337)))))) - (scan-18111 (cdr w-18109) '())))) - (valid-bound-ids?-6371 - (lambda (ids-18432) + marks-16504 + i-16590) + subst-16502))) + (cons (cons #f (car w-16599)) + (cons 'shift (cdr w-16599)))) + mod-16278) + results-16591)))))) + (f-16507 0 results-16505)))))) + (scan-16279 (cdr w-16277) '())))) + (valid-bound-ids?-4320 + (lambda (ids-16600) (if (letrec* - ((all-ids?-18433 - (lambda (ids-18595) - (if (null? ids-18595) - (null? ids-18595) - (if (let ((x-18606 (car ids-18595))) - (if (symbol? x-18606) + ((all-ids?-16601 + (lambda (ids-16763) + (if (null? ids-16763) + (null? ids-16763) + (if (let ((x-16774 (car ids-16763))) + (if (symbol? x-16774) #t - (if (if (vector? x-18606) - (if (= (vector-length x-18606) 4) - (eq? (vector-ref x-18606 0) + (if (if (vector? x-16774) + (if (= (vector-length x-16774) 4) + (eq? (vector-ref x-16774 0) 'syntax-object) #f) #f) - (symbol? (vector-ref x-18606 1)) + (symbol? (vector-ref x-16774 1)) #f))) - (all-ids?-18433 (cdr ids-18595)) + (all-ids?-16601 (cdr ids-16763)) #f))))) - (all-ids?-18433 ids-18432)) - (distinct-bound-ids?-6372 ids-18432) + (all-ids?-16601 ids-16600)) + (distinct-bound-ids?-4321 ids-16600) #f))) - (distinct-bound-ids?-6372 - (lambda (ids-18734) + (distinct-bound-ids?-4321 + (lambda (ids-16902) (letrec* - ((distinct?-18735 - (lambda (ids-18847) - (if (null? ids-18847) - (null? ids-18847) - (if (not (bound-id-member?-6373 - (car ids-18847) - (cdr ids-18847))) - (distinct?-18735 (cdr ids-18847)) + ((distinct?-16903 + (lambda (ids-17015) + (if (null? ids-17015) + (null? ids-17015) + (if (not (bound-id-member?-4322 + (car ids-17015) + (cdr ids-17015))) + (distinct?-16903 (cdr ids-17015)) #f))))) - (distinct?-18735 ids-18734)))) - (bound-id-member?-6373 - (lambda (x-19057 list-19058) - (if (not (null? list-19058)) - (let ((t-19059 - (let ((j-19140 (car list-19058))) - (if (if (if (vector? x-19057) - (if (= (vector-length x-19057) 4) - (eq? (vector-ref x-19057 0) 'syntax-object) + (distinct?-16903 ids-16902)))) + (bound-id-member?-4322 + (lambda (x-17225 list-17226) + (if (not (null? list-17226)) + (let ((t-17227 + (let ((j-17308 (car list-17226))) + (if (if (if (vector? x-17225) + (if (= (vector-length x-17225) 4) + (eq? (vector-ref x-17225 0) 'syntax-object) #f) #f) - (if (vector? j-19140) - (if (= (vector-length j-19140) 4) - (eq? (vector-ref j-19140 0) 'syntax-object) + (if (vector? j-17308) + (if (= (vector-length j-17308) 4) + (eq? (vector-ref j-17308 0) 'syntax-object) #f) #f) #f) - (if (eq? (vector-ref x-19057 1) - (vector-ref j-19140 1)) - (same-marks?-6363 - (car (vector-ref x-19057 2)) - (car (vector-ref j-19140 2))) + (if (eq? (vector-ref x-17225 1) + (vector-ref j-17308 1)) + (same-marks?-4312 + (car (vector-ref x-17225 2)) + (car (vector-ref j-17308 2))) #f) - (eq? x-19057 j-19140))))) - (if t-19059 - t-19059 - (bound-id-member?-6373 x-19057 (cdr list-19058)))) + (eq? x-17225 j-17308))))) + (if t-17227 + t-17227 + (bound-id-member?-4322 x-17225 (cdr list-17226)))) #f))) - (wrap-6374 - (lambda (x-19184 w-19185 defmod-19186) - (if (if (null? (car w-19185)) - (null? (cdr w-19185)) + (wrap-4323 + (lambda (x-17352 w-17353 defmod-17354) + (if (if (null? (car w-17353)) + (null? (cdr w-17353)) #f) - x-19184 - (if (if (vector? x-19184) - (if (= (vector-length x-19184) 4) - (eq? (vector-ref x-19184 0) 'syntax-object) + x-17352 + (if (if (vector? x-17352) + (if (= (vector-length x-17352) 4) + (eq? (vector-ref x-17352 0) 'syntax-object) #f) #f) - (let ((expression-19200 (vector-ref x-19184 1)) - (wrap-19201 - (join-wraps-6361 w-19185 (vector-ref x-19184 2))) - (module-19202 (vector-ref x-19184 3))) + (let ((expression-17368 (vector-ref x-17352 1)) + (wrap-17369 + (join-wraps-4310 w-17353 (vector-ref x-17352 2))) + (module-17370 (vector-ref x-17352 3))) (vector 'syntax-object - expression-19200 - wrap-19201 - module-19202)) - (if (null? x-19184) - x-19184 + expression-17368 + wrap-17369 + module-17370)) + (if (null? x-17352) + x-17352 (vector 'syntax-object - x-19184 - w-19185 - defmod-19186)))))) - (source-wrap-6375 - (lambda (x-19219 w-19220 s-19221 defmod-19222) - (wrap-6374 + x-17352 + w-17353 + defmod-17354)))))) + (source-wrap-4324 + (lambda (x-17387 w-17388 s-17389 defmod-17390) + (wrap-4323 (begin - (if (if (pair? x-19219) s-19221 #f) - (set-source-properties! x-19219 s-19221)) - x-19219) - w-19220 - defmod-19222))) - (expand-sequence-6376 - (lambda (body-29358 r-29359 w-29360 s-29361 mod-29362) - (build-sequence-6326 - s-29361 + (if (if (pair? x-17387) s-17389 #f) + (set-source-properties! x-17387 s-17389)) + x-17387) + w-17388 + defmod-17390))) + (expand-sequence-4325 + (lambda (body-27526 r-27527 w-27528 s-27529 mod-27530) + (build-sequence-4275 + s-27529 (letrec* - ((dobody-29442 - (lambda (body-29782 r-29783 w-29784 mod-29785) - (if (null? body-29782) + ((dobody-27610 + (lambda (body-27950 r-27951 w-27952 mod-27953) + (if (null? body-27950) '() - (let ((first-29786 - (let ((e-29790 (car body-29782))) + (let ((first-27954 + (let ((e-27958 (car body-27950))) (call-with-values (lambda () - (syntax-type-6380 - e-29790 - r-29783 - w-29784 - (source-annotation-6338 e-29790) + (syntax-type-4329 + e-27958 + r-27951 + w-27952 + (source-annotation-4287 e-27958) #f - mod-29785 + mod-27953 #f)) - (lambda (type-29797 - value-29798 - form-29799 - e-29800 - w-29801 - s-29802 - mod-29803) - (expand-expr-6382 - type-29797 - value-29798 - form-29799 - e-29800 - r-29783 - w-29801 - s-29802 - mod-29803)))))) - (cons first-29786 - (dobody-29442 - (cdr body-29782) - r-29783 - w-29784 - mod-29785))))))) - (dobody-29442 - body-29358 - r-29359 - w-29360 - mod-29362))))) - (expand-top-sequence-6377 - (lambda (body-19240 - r-19241 - w-19242 - s-19243 - m-19244 - esew-19245 - mod-19246) + (lambda (type-27965 + value-27966 + form-27967 + e-27968 + w-27969 + s-27970 + mod-27971) + (expand-expr-4331 + type-27965 + value-27966 + form-27967 + e-27968 + r-27951 + w-27969 + s-27970 + mod-27971)))))) + (cons first-27954 + (dobody-27610 + (cdr body-27950) + r-27951 + w-27952 + mod-27953))))))) + (dobody-27610 + body-27526 + r-27527 + w-27528 + mod-27530))))) + (expand-top-sequence-4326 + (lambda (body-17408 + r-17409 + w-17410 + s-17411 + m-17412 + esew-17413 + mod-17414) (letrec* - ((scan-19247 - (lambda (body-19378 - r-19379 - w-19380 - s-19381 - m-19382 - esew-19383 - mod-19384 - exps-19385) - (if (null? body-19378) - exps-19385 + ((scan-17415 + (lambda (body-17546 + r-17547 + w-17548 + s-17549 + m-17550 + esew-17551 + mod-17552 + exps-17553) + (if (null? body-17546) + exps-17553 (call-with-values (lambda () (call-with-values (lambda () - (let ((e-19386 (car body-19378))) - (syntax-type-6380 - e-19386 - r-19379 - w-19380 - (let ((t-19390 (source-annotation-6338 e-19386))) - (if t-19390 t-19390 s-19381)) + (let ((e-17554 (car body-17546))) + (syntax-type-4329 + e-17554 + r-17547 + w-17548 + (let ((t-17558 (source-annotation-4287 e-17554))) + (if t-17558 t-17558 s-17549)) #f - mod-19384 + mod-17552 #f))) - (lambda (type-19625 - value-19626 - form-19627 - e-19628 - w-19629 - s-19630 - mod-19631) - (if (eqv? type-19625 'begin-form) - (let ((tmp-19640 ($sc-dispatch e-19628 '(_)))) - (if tmp-19640 - (@apply (lambda () exps-19385) tmp-19640) - (let ((tmp-19644 + (lambda (type-17793 + value-17794 + form-17795 + e-17796 + w-17797 + s-17798 + mod-17799) + (if (eqv? type-17793 'begin-form) + (let ((tmp-17808 ($sc-dispatch e-17796 '(_)))) + (if tmp-17808 + (@apply (lambda () exps-17553) tmp-17808) + (let ((tmp-17812 ($sc-dispatch - e-19628 + e-17796 '(_ any . each-any)))) - (if tmp-19644 + (if tmp-17812 (@apply - (lambda (e1-19648 e2-19649) - (scan-19247 - (cons e1-19648 e2-19649) - r-19379 - w-19629 - s-19630 - m-19382 - esew-19383 - mod-19631 - exps-19385)) - tmp-19644) + (lambda (e1-17816 e2-17817) + (scan-17415 + (cons e1-17816 e2-17817) + r-17547 + w-17797 + s-17798 + m-17550 + esew-17551 + mod-17799 + exps-17553)) + tmp-17812) (syntax-violation #f "source expression failed to match any pattern" - e-19628))))) - (if (eqv? type-19625 'local-syntax-form) - (expand-local-syntax-6386 - value-19626 - e-19628 - r-19379 - w-19629 - s-19630 - mod-19631 - (lambda (body-19667 - r-19668 - w-19669 - s-19670 - mod-19671) - (scan-19247 - body-19667 - r-19668 - w-19669 - s-19670 - m-19382 - esew-19383 - mod-19671 - exps-19385))) - (if (eqv? type-19625 'eval-when-form) - (let ((tmp-19679 + e-17796))))) + (if (eqv? type-17793 'local-syntax-form) + (expand-local-syntax-4335 + value-17794 + e-17796 + r-17547 + w-17797 + s-17798 + mod-17799 + (lambda (body-17835 + r-17836 + w-17837 + s-17838 + mod-17839) + (scan-17415 + body-17835 + r-17836 + w-17837 + s-17838 + m-17550 + esew-17551 + mod-17839 + exps-17553))) + (if (eqv? type-17793 'eval-when-form) + (let ((tmp-17847 ($sc-dispatch - e-19628 + e-17796 '(_ each-any any . each-any)))) - (if tmp-19679 + (if tmp-17847 (@apply - (lambda (x-19683 e1-19684 e2-19685) - (let ((when-list-19686 - (parse-when-list-6379 - e-19628 - x-19683)) - (body-19687 - (cons e1-19684 e2-19685))) - (if (eq? m-19382 'e) - (if (memq 'eval when-list-19686) - (scan-19247 - body-19687 - r-19379 - w-19629 - s-19630 + (lambda (x-17851 e1-17852 e2-17853) + (let ((when-list-17854 + (parse-when-list-4328 + e-17796 + x-17851)) + (body-17855 + (cons e1-17852 e2-17853))) + (if (eq? m-17550 'e) + (if (memq 'eval when-list-17854) + (scan-17415 + body-17855 + r-17547 + w-17797 + s-17798 (if (memq 'expand - when-list-19686) + when-list-17854) 'c&e 'e) '(eval) - mod-19631 - exps-19385) + mod-17799 + exps-17553) (begin (if (memq 'expand - when-list-19686) - (let ((x-19764 - (expand-top-sequence-6377 - body-19687 - r-19379 - w-19629 - s-19630 + when-list-17854) + (let ((x-17932 + (expand-top-sequence-4326 + body-17855 + r-17547 + w-17797 + s-17798 'e '(eval) - mod-19631))) - (primitive-eval x-19764))) - exps-19385)) - (if (memq 'load when-list-19686) - (if (let ((t-19790 + mod-17799))) + (primitive-eval x-17932))) + exps-17553)) + (if (memq 'load when-list-17854) + (if (let ((t-17958 (memq 'compile - when-list-19686))) - (if t-19790 - t-19790 - (let ((t-19839 + when-list-17854))) + (if t-17958 + t-17958 + (let ((t-18007 (memq 'expand - when-list-19686))) - (if t-19839 - t-19839 - (if (eq? m-19382 + when-list-17854))) + (if t-18007 + t-18007 + (if (eq? m-17550 'c&e) (memq 'eval - when-list-19686) + when-list-17854) #f))))) - (scan-19247 - body-19687 - r-19379 - w-19629 - s-19630 + (scan-17415 + body-17855 + r-17547 + w-17797 + s-17798 'c&e '(compile load) - mod-19631 - exps-19385) - (if (if (eq? m-19382 'c) + mod-17799 + exps-17553) + (if (if (eq? m-17550 'c) #t - (eq? m-19382 'c&e)) - (scan-19247 - body-19687 - r-19379 - w-19629 - s-19630 + (eq? m-17550 'c&e)) + (scan-17415 + body-17855 + r-17547 + w-17797 + s-17798 'c '(load) - mod-19631 - exps-19385) - exps-19385)) - (if (let ((t-19968 + mod-17799 + exps-17553) + exps-17553)) + (if (let ((t-18136 (memq 'compile - when-list-19686))) - (if t-19968 - t-19968 - (let ((t-20017 + when-list-17854))) + (if t-18136 + t-18136 + (let ((t-18185 (memq 'expand - when-list-19686))) - (if t-20017 - t-20017 - (if (eq? m-19382 + when-list-17854))) + (if t-18185 + t-18185 + (if (eq? m-17550 'c&e) (memq 'eval - when-list-19686) + when-list-17854) #f))))) (begin - (let ((x-20141 - (expand-top-sequence-6377 - body-19687 - r-19379 - w-19629 - s-19630 + (let ((x-18309 + (expand-top-sequence-4326 + body-17855 + r-17547 + w-17797 + s-17798 'e '(eval) - mod-19631))) - (primitive-eval x-20141)) - exps-19385) - exps-19385))))) - tmp-19679) + mod-17799))) + (primitive-eval x-18309)) + exps-17553) + exps-17553))))) + tmp-17847) (syntax-violation #f "source expression failed to match any pattern" - e-19628))) - (if (if (eqv? type-19625 'define-syntax-form) + e-17796))) + (if (if (eqv? type-17793 'define-syntax-form) #t - (eqv? type-19625 + (eqv? type-17793 'define-syntax-parameter-form)) - (let ((n-20190 - (id-var-name-6364 - value-19626 - w-19629)) - (r-20191 - (macros-only-env-6341 r-19379))) - (if (eqv? m-19382 'c) - (if (memq 'compile esew-19383) - (let ((e-20199 - (expand-install-global-6378 - n-20190 - (expand-6381 - e-19628 - r-20191 - w-19629 - mod-19631)))) + (let ((n-18358 + (id-var-name-4313 + value-17794 + w-17797)) + (r-18359 + (macros-only-env-4290 r-17547))) + (if (eqv? m-17550 'c) + (if (memq 'compile esew-17551) + (let ((e-18367 + (expand-install-global-4327 + n-18358 + (expand-4330 + e-17796 + r-18359 + w-17797 + mod-17799)))) (begin - (top-level-eval-hook-6304 - e-20199 - mod-19631) - (if (memq 'load esew-19383) - (cons e-20199 exps-19385) - exps-19385))) - (if (memq 'load esew-19383) - (cons (expand-install-global-6378 - n-20190 - (expand-6381 - e-19628 - r-20191 - w-19629 - mod-19631)) - exps-19385) - exps-19385)) - (if (eqv? m-19382 'c&e) - (let ((e-20844 - (expand-install-global-6378 - n-20190 - (expand-6381 - e-19628 - r-20191 - w-19629 - mod-19631)))) + (top-level-eval-hook-4253 + e-18367 + mod-17799) + (if (memq 'load esew-17551) + (cons e-18367 exps-17553) + exps-17553))) + (if (memq 'load esew-17551) + (cons (expand-install-global-4327 + n-18358 + (expand-4330 + e-17796 + r-18359 + w-17797 + mod-17799)) + exps-17553) + exps-17553)) + (if (eqv? m-17550 'c&e) + (let ((e-19012 + (expand-install-global-4327 + n-18358 + (expand-4330 + e-17796 + r-18359 + w-17797 + mod-17799)))) (begin - (top-level-eval-hook-6304 - e-20844 - mod-19631) - (cons e-20844 exps-19385))) + (top-level-eval-hook-4253 + e-19012 + mod-17799) + (cons e-19012 exps-17553))) (begin - (if (memq 'eval esew-19383) - (top-level-eval-hook-6304 - (expand-install-global-6378 - n-20190 - (expand-6381 - e-19628 - r-20191 - w-19629 - mod-19631)) - mod-19631)) - exps-19385)))) - (if (eqv? type-19625 'define-form) - (let ((n-21521 - (id-var-name-6364 - value-19626 - w-19629))) - (let ((type-21522 - (car (let ((t-21530 - (assq n-21521 - r-19379))) - (if t-21530 - (cdr t-21530) - (if (symbol? n-21521) - (let ((t-21536 - (get-global-definition-hook-6308 - n-21521 - mod-19631))) - (if t-21536 - t-21536 + (if (memq 'eval esew-17551) + (top-level-eval-hook-4253 + (expand-install-global-4327 + n-18358 + (expand-4330 + e-17796 + r-18359 + w-17797 + mod-17799)) + mod-17799)) + exps-17553)))) + (if (eqv? type-17793 'define-form) + (let ((n-19689 + (id-var-name-4313 + value-17794 + w-17797))) + (let ((type-19690 + (car (let ((t-19698 + (assq n-19689 + r-17547))) + (if t-19698 + (cdr t-19698) + (if (symbol? n-19689) + (let ((t-19704 + (get-global-definition-hook-4257 + n-19689 + mod-17799))) + (if t-19704 + t-19704 '(global))) '(displaced-lexical))))))) - (if (if (eqv? type-21522 'global) + (if (if (eqv? type-19690 'global) #t - (if (eqv? type-21522 'core) + (if (eqv? type-19690 'core) #t - (if (eqv? type-21522 'macro) + (if (eqv? type-19690 'macro) #t - (eqv? type-21522 + (eqv? type-19690 'module-ref)))) (begin - (if (if (if (eq? m-19382 'c) + (if (if (if (eq? m-17550 'c) #t - (eq? m-19382 'c&e)) + (eq? m-17550 'c&e)) (if (not (module-local-variable (current-module) - n-21521)) + n-19689)) (current-module) #f) #f) - (let ((old-21569 + (let ((old-19737 (module-variable (current-module) - n-21521))) - (if (if (variable? old-21569) + n-19689))) + (if (if (variable? old-19737) (variable-bound? - old-21569) + old-19737) #f) (module-define! (current-module) - n-21521 - (variable-ref old-21569)) + n-19689 + (variable-ref old-19737)) (module-add! (current-module) - n-21521 + n-19689 (make-undefined-variable))))) - (cons (if (eq? m-19382 'c&e) - (let ((x-22010 - (build-global-definition-6320 - s-19630 - n-21521 - (expand-6381 - e-19628 - r-19379 - w-19629 - mod-19631)))) + (cons (if (eq? m-17550 'c&e) + (let ((x-20178 + (build-global-definition-4269 + s-17798 + n-19689 + (expand-4330 + e-17796 + r-17547 + w-17797 + mod-17799)))) (begin - (top-level-eval-hook-6304 - x-22010 - mod-19631) - x-22010)) + (top-level-eval-hook-4253 + x-20178 + mod-17799) + x-20178)) (lambda () - (build-global-definition-6320 - s-19630 - n-21521 - (expand-6381 - e-19628 - r-19379 - w-19629 - mod-19631)))) - exps-19385)) - (if (eqv? type-21522 + (build-global-definition-4269 + s-17798 + n-19689 + (expand-4330 + e-17796 + r-17547 + w-17797 + mod-17799)))) + exps-17553)) + (if (eqv? type-19690 'displaced-lexical) (syntax-violation #f "identifier out of context" - (wrap-6374 + (wrap-4323 (begin - (if (if (pair? form-19627) - s-19630 + (if (if (pair? form-17795) + s-17798 #f) (set-source-properties! - form-19627 - s-19630)) - form-19627) - w-19629 - mod-19631) - (wrap-6374 - value-19626 - w-19629 - mod-19631)) + form-17795 + s-17798)) + form-17795) + w-17797 + mod-17799) + (wrap-4323 + value-17794 + w-17797 + mod-17799)) (syntax-violation #f "cannot define keyword at top level" - (wrap-6374 + (wrap-4323 (begin - (if (if (pair? form-19627) - s-19630 + (if (if (pair? form-17795) + s-17798 #f) (set-source-properties! - form-19627 - s-19630)) - form-19627) - w-19629 - mod-19631) - (wrap-6374 - value-19626 - w-19629 - mod-19631)))))) - (cons (if (eq? m-19382 'c&e) - (let ((x-22512 - (expand-expr-6382 - type-19625 - value-19626 - form-19627 - e-19628 - r-19379 - w-19629 - s-19630 - mod-19631))) + form-17795 + s-17798)) + form-17795) + w-17797 + mod-17799) + (wrap-4323 + value-17794 + w-17797 + mod-17799)))))) + (cons (if (eq? m-17550 'c&e) + (let ((x-20680 + (expand-expr-4331 + type-17793 + value-17794 + form-17795 + e-17796 + r-17547 + w-17797 + s-17798 + mod-17799))) (begin - (primitive-eval x-22512) - x-22512)) + (primitive-eval x-20680) + x-20680)) (lambda () - (expand-expr-6382 - type-19625 - value-19626 - form-19627 - e-19628 - r-19379 - w-19629 - s-19630 - mod-19631))) - exps-19385))))))))) - (lambda (exps-22517) - (scan-19247 - (cdr body-19378) - r-19379 - w-19380 - s-19381 - m-19382 - esew-19383 - mod-19384 - exps-22517))))))) + (expand-expr-4331 + type-17793 + value-17794 + form-17795 + e-17796 + r-17547 + w-17797 + s-17798 + mod-17799))) + exps-17553))))))))) + (lambda (exps-20685) + (scan-17415 + (cdr body-17546) + r-17547 + w-17548 + s-17549 + m-17550 + esew-17551 + mod-17552 + exps-20685))))))) (call-with-values (lambda () - (scan-19247 - body-19240 - r-19241 - w-19242 - s-19243 - m-19244 - esew-19245 - mod-19246 + (scan-17415 + body-17408 + r-17409 + w-17410 + s-17411 + m-17412 + esew-17413 + mod-17414 '())) - (lambda (exps-19250) - (if (null? exps-19250) + (lambda (exps-17418) + (if (null? exps-17418) (make-struct/no-tail (vector-ref %expanded-vtables 0) - s-19243) - (build-sequence-6326 - s-19243 + s-17411) + (build-sequence-4275 + s-17411 (letrec* - ((lp-19290 - (lambda (in-19374 out-19375) - (if (null? in-19374) - out-19375 - (let ((e-19376 (car in-19374))) - (lp-19290 - (cdr in-19374) - (cons (if (procedure? e-19376) - (e-19376) - e-19376) - out-19375))))))) - (lp-19290 exps-19250 '()))))))))) - (expand-install-global-6378 - (lambda (name-22518 e-22519) - (let ((exp-22525 - (let ((fun-exp-22535 + ((lp-17458 + (lambda (in-17542 out-17543) + (if (null? in-17542) + out-17543 + (let ((e-17544 (car in-17542))) + (lp-17458 + (cdr in-17542) + (cons (if (procedure? e-17544) + (e-17544) + e-17544) + out-17543))))))) + (lp-17458 exps-17418 '()))))))))) + (expand-install-global-4327 + (lambda (name-20686 e-20687) + (let ((exp-20693 + (let ((fun-exp-20703 (if (equal? (module-name (current-module)) '(guile)) (make-struct/no-tail (vector-ref %expanded-vtables 7) @@ -1274,398 +1274,398 @@ '(guile) 'make-syntax-transformer #f))) - (arg-exps-22536 + (arg-exps-20704 (list (make-struct/no-tail (vector-ref %expanded-vtables 1) #f - name-22518) + name-20686) (make-struct/no-tail (vector-ref %expanded-vtables 1) #f 'macro) - e-22519))) + e-20687))) (make-struct/no-tail (vector-ref %expanded-vtables 11) #f - fun-exp-22535 - arg-exps-22536)))) + fun-exp-20703 + arg-exps-20704)))) (begin - (if (if (struct? exp-22525) - (eq? (struct-vtable exp-22525) + (if (if (struct? exp-20693) + (eq? (struct-vtable exp-20693) (vector-ref %expanded-vtables 13)) #f) - (let ((meta-22577 (struct-ref exp-22525 1))) - (if (not (assq 'name meta-22577)) - (let ((v-22584 - (cons (cons 'name name-22518) meta-22577))) - (struct-set! exp-22525 1 v-22584))))) + (let ((meta-20745 (struct-ref exp-20693 1))) + (if (not (assq 'name meta-20745)) + (let ((v-20752 + (cons (cons 'name name-20686) meta-20745))) + (struct-set! exp-20693 1 v-20752))))) (make-struct/no-tail (vector-ref %expanded-vtables 9) #f - name-22518 - exp-22525))))) - (parse-when-list-6379 - (lambda (e-22595 when-list-22596) - (let ((result-22597 (strip-6394 when-list-22596 '(())))) + name-20686 + exp-20693))))) + (parse-when-list-4328 + (lambda (e-20763 when-list-20764) + (let ((result-20765 (strip-4343 when-list-20764 '(())))) (letrec* - ((lp-22598 - (lambda (l-22652) - (if (null? l-22652) - result-22597 - (if (let ((t-22654 (car l-22652))) - (if (eq? t-22654 'compile) + ((lp-20766 + (lambda (l-20820) + (if (null? l-20820) + result-20765 + (if (let ((t-20822 (car l-20820))) + (if (eq? t-20822 'compile) #t - (if (eq? t-22654 'load) + (if (eq? t-20822 'load) #t - (if (eq? t-22654 'eval) + (if (eq? t-20822 'eval) #t - (eq? t-22654 'expand))))) - (lp-22598 (cdr l-22652)) + (eq? t-20822 'expand))))) + (lp-20766 (cdr l-20820)) (syntax-violation 'eval-when "invalid situation" - e-22595 - (car l-22652))))))) - (lp-22598 result-22597))))) - (syntax-type-6380 - (lambda (e-22656 - r-22657 - w-22658 - s-22659 - rib-22660 - mod-22661 - for-car?-22662) - (if (symbol? e-22656) - (let ((n-22663 (id-var-name-6364 e-22656 w-22658))) - (let ((b-22664 - (let ((t-22673 (assq n-22663 r-22657))) - (if t-22673 - (cdr t-22673) - (if (symbol? n-22663) - (let ((t-22679 - (get-global-definition-hook-6308 - n-22663 - mod-22661))) - (if t-22679 t-22679 '(global))) + e-20763 + (car l-20820))))))) + (lp-20766 result-20765))))) + (syntax-type-4329 + (lambda (e-20824 + r-20825 + w-20826 + s-20827 + rib-20828 + mod-20829 + for-car?-20830) + (if (symbol? e-20824) + (let ((n-20831 (id-var-name-4313 e-20824 w-20826))) + (let ((b-20832 + (let ((t-20841 (assq n-20831 r-20825))) + (if t-20841 + (cdr t-20841) + (if (symbol? n-20831) + (let ((t-20847 + (get-global-definition-hook-4257 + n-20831 + mod-20829))) + (if t-20847 t-20847 '(global))) '(displaced-lexical)))))) - (let ((type-22665 (car b-22664))) - (if (eqv? type-22665 'lexical) + (let ((type-20833 (car b-20832))) + (if (eqv? type-20833 'lexical) (values - type-22665 - (cdr b-22664) - e-22656 - e-22656 - w-22658 - s-22659 - mod-22661) - (if (eqv? type-22665 'global) + type-20833 + (cdr b-20832) + e-20824 + e-20824 + w-20826 + s-20827 + mod-20829) + (if (eqv? type-20833 'global) (values - type-22665 - n-22663 - e-22656 - e-22656 - w-22658 - s-22659 - mod-22661) - (if (eqv? type-22665 'macro) - (if for-car?-22662 + type-20833 + n-20831 + e-20824 + e-20824 + w-20826 + s-20827 + mod-20829) + (if (eqv? type-20833 'macro) + (if for-car?-20830 (values - type-22665 - (cdr b-22664) - e-22656 - e-22656 - w-22658 - s-22659 - mod-22661) - (syntax-type-6380 - (expand-macro-6384 - (cdr b-22664) - e-22656 - r-22657 - w-22658 - s-22659 - rib-22660 - mod-22661) - r-22657 + type-20833 + (cdr b-20832) + e-20824 + e-20824 + w-20826 + s-20827 + mod-20829) + (syntax-type-4329 + (expand-macro-4333 + (cdr b-20832) + e-20824 + r-20825 + w-20826 + s-20827 + rib-20828 + mod-20829) + r-20825 '(()) - s-22659 - rib-22660 - mod-22661 + s-20827 + rib-20828 + mod-20829 #f)) (values - type-22665 - (cdr b-22664) - e-22656 - e-22656 - w-22658 - s-22659 - mod-22661))))))) - (if (pair? e-22656) - (let ((first-22707 (car e-22656))) + type-20833 + (cdr b-20832) + e-20824 + e-20824 + w-20826 + s-20827 + mod-20829))))))) + (if (pair? e-20824) + (let ((first-20875 (car e-20824))) (call-with-values (lambda () - (syntax-type-6380 - first-22707 - r-22657 - w-22658 - s-22659 - rib-22660 - mod-22661 + (syntax-type-4329 + first-20875 + r-20825 + w-20826 + s-20827 + rib-20828 + mod-20829 #t)) - (lambda (ftype-22709 - fval-22710 - fform-22711 - fe-22712 - fw-22713 - fs-22714 - fmod-22715) - (if (eqv? ftype-22709 'lexical) + (lambda (ftype-20877 + fval-20878 + fform-20879 + fe-20880 + fw-20881 + fs-20882 + fmod-20883) + (if (eqv? ftype-20877 'lexical) (values 'lexical-call - fval-22710 - e-22656 - e-22656 - w-22658 - s-22659 - mod-22661) - (if (eqv? ftype-22709 'global) + fval-20878 + e-20824 + e-20824 + w-20826 + s-20827 + mod-20829) + (if (eqv? ftype-20877 'global) (values 'global-call (vector 'syntax-object - fval-22710 - w-22658 - fmod-22715) - e-22656 - e-22656 - w-22658 - s-22659 - mod-22661) - (if (eqv? ftype-22709 'macro) - (syntax-type-6380 - (expand-macro-6384 - fval-22710 - e-22656 - r-22657 - w-22658 - s-22659 - rib-22660 - mod-22661) - r-22657 + fval-20878 + w-20826 + fmod-20883) + e-20824 + e-20824 + w-20826 + s-20827 + mod-20829) + (if (eqv? ftype-20877 'macro) + (syntax-type-4329 + (expand-macro-4333 + fval-20878 + e-20824 + r-20825 + w-20826 + s-20827 + rib-20828 + mod-20829) + r-20825 '(()) - s-22659 - rib-22660 - mod-22661 - for-car?-22662) - (if (eqv? ftype-22709 'module-ref) + s-20827 + rib-20828 + mod-20829 + for-car?-20830) + (if (eqv? ftype-20877 'module-ref) (call-with-values - (lambda () (fval-22710 e-22656 r-22657 w-22658)) - (lambda (e-22749 - r-22750 - w-22751 - s-22752 - mod-22753) - (syntax-type-6380 - e-22749 - r-22750 - w-22751 - s-22752 - rib-22660 - mod-22753 - for-car?-22662))) - (if (eqv? ftype-22709 'core) + (lambda () (fval-20878 e-20824 r-20825 w-20826)) + (lambda (e-20917 + r-20918 + w-20919 + s-20920 + mod-20921) + (syntax-type-4329 + e-20917 + r-20918 + w-20919 + s-20920 + rib-20828 + mod-20921 + for-car?-20830))) + (if (eqv? ftype-20877 'core) (values 'core-form - fval-22710 - e-22656 - e-22656 - w-22658 - s-22659 - mod-22661) - (if (eqv? ftype-22709 'local-syntax) + fval-20878 + e-20824 + e-20824 + w-20826 + s-20827 + mod-20829) + (if (eqv? ftype-20877 'local-syntax) (values 'local-syntax-form - fval-22710 - e-22656 - e-22656 - w-22658 - s-22659 - mod-22661) - (if (eqv? ftype-22709 'begin) + fval-20878 + e-20824 + e-20824 + w-20826 + s-20827 + mod-20829) + (if (eqv? ftype-20877 'begin) (values 'begin-form #f - e-22656 - e-22656 - w-22658 - s-22659 - mod-22661) - (if (eqv? ftype-22709 'eval-when) + e-20824 + e-20824 + w-20826 + s-20827 + mod-20829) + (if (eqv? ftype-20877 'eval-when) (values 'eval-when-form #f - e-22656 - e-22656 - w-22658 - s-22659 - mod-22661) - (if (eqv? ftype-22709 'define) - (let ((tmp-22785 + e-20824 + e-20824 + w-20826 + s-20827 + mod-20829) + (if (eqv? ftype-20877 'define) + (let ((tmp-20953 ($sc-dispatch - e-22656 + e-20824 '(_ any any)))) - (if (if tmp-22785 + (if (if tmp-20953 (@apply - (lambda (name-22789 val-22790) - (if (symbol? name-22789) + (lambda (name-20957 val-20958) + (if (symbol? name-20957) #t - (if (if (vector? name-22789) + (if (if (vector? name-20957) (if (= (vector-length - name-22789) + name-20957) 4) (eq? (vector-ref - name-22789 + name-20957 0) 'syntax-object) #f) #f) (symbol? (vector-ref - name-22789 + name-20957 1)) #f))) - tmp-22785) + tmp-20953) #f) (@apply - (lambda (name-22817 val-22818) + (lambda (name-20985 val-20986) (values 'define-form - name-22817 - e-22656 - val-22818 - w-22658 - s-22659 - mod-22661)) - tmp-22785) - (let ((tmp-22819 + name-20985 + e-20824 + val-20986 + w-20826 + s-20827 + mod-20829)) + tmp-20953) + (let ((tmp-20987 ($sc-dispatch - e-22656 + e-20824 '(_ (any . any) any . each-any)))) - (if (if tmp-22819 + (if (if tmp-20987 (@apply - (lambda (name-22823 - args-22824 - e1-22825 - e2-22826) + (lambda (name-20991 + args-20992 + e1-20993 + e2-20994) (if (if (symbol? - name-22823) + name-20991) #t (if (if (vector? - name-22823) + name-20991) (if (= (vector-length - name-22823) + name-20991) 4) (eq? (vector-ref - name-22823 + name-20991 0) 'syntax-object) #f) #f) (symbol? (vector-ref - name-22823 + name-20991 1)) #f)) - (valid-bound-ids?-6371 + (valid-bound-ids?-4320 (letrec* - ((lvl-22975 - (lambda (vars-22977 - ls-22978 - w-22979) - (if (pair? vars-22977) - (lvl-22975 - (cdr vars-22977) - (cons (wrap-6374 - (car vars-22977) - w-22979 + ((lvl-21143 + (lambda (vars-21145 + ls-21146 + w-21147) + (if (pair? vars-21145) + (lvl-21143 + (cdr vars-21145) + (cons (wrap-4323 + (car vars-21145) + w-21147 #f) - ls-22978) - w-22979) + ls-21146) + w-21147) (if (if (symbol? - vars-22977) + vars-21145) #t (if (if (vector? - vars-22977) + vars-21145) (if (= (vector-length - vars-22977) + vars-21145) 4) (eq? (vector-ref - vars-22977 + vars-21145 0) 'syntax-object) #f) #f) (symbol? (vector-ref - vars-22977 + vars-21145 1)) #f)) - (cons (wrap-6374 - vars-22977 - w-22979 + (cons (wrap-4323 + vars-21145 + w-21147 #f) - ls-22978) - (if (null? vars-22977) - ls-22978 + ls-21146) + (if (null? vars-21145) + ls-21146 (if (if (vector? - vars-22977) + vars-21145) (if (= (vector-length - vars-22977) + vars-21145) 4) (eq? (vector-ref - vars-22977 + vars-21145 0) 'syntax-object) #f) #f) - (lvl-22975 + (lvl-21143 (vector-ref - vars-22977 + vars-21145 1) - ls-22978 - (join-wraps-6361 - w-22979 + ls-21146 + (join-wraps-4310 + w-21147 (vector-ref - vars-22977 + vars-21145 2))) - (cons vars-22977 - ls-22978)))))))) - (lvl-22975 - args-22824 + (cons vars-21145 + ls-21146)))))))) + (lvl-21143 + args-20992 '() '(())))) #f)) - tmp-22819) + tmp-20987) #f) (@apply - (lambda (name-23023 - args-23024 - e1-23025 - e2-23026) + (lambda (name-21191 + args-21192 + e1-21193 + e2-21194) (values 'define-form - (wrap-6374 - name-23023 - w-22658 - mod-22661) - (wrap-6374 - e-22656 - w-22658 - mod-22661) - (let ((e-23034 + (wrap-4323 + name-21191 + w-20826 + mod-20829) + (wrap-4323 + e-20824 + w-20826 + mod-20829) + (let ((e-21202 (cons '#(syntax-object lambda ((top) @@ -1678,19 +1678,19 @@ (top) (top) (top)) - #("l-*-3952" - "l-*-3953" - "l-*-3954" - "l-*-3955")) + #("l-*-1901" + "l-*-1902" + "l-*-1903" + "l-*-1904")) #(ribcage () () ()) #(ribcage #(key) - #((m-*-3917 + #((m-*-1866 top)) - #("l-*-3918")) + #("l-*-1867")) #(ribcage () () @@ -1714,13 +1714,13 @@ (top) (top) (top)) - #("l-*-3910" - "l-*-3911" - "l-*-3912" - "l-*-3913" - "l-*-3914" - "l-*-3915" - "l-*-3916")) + #("l-*-1859" + "l-*-1860" + "l-*-1861" + "l-*-1862" + "l-*-1863" + "l-*-1864" + "l-*-1865")) #(ribcage () () @@ -1728,7 +1728,7 @@ #(ribcage #(first) #((top)) - #("l-*-3901")) + #("l-*-1850")) #(ribcage () () @@ -1752,13 +1752,13 @@ (top) (top) (top)) - #("l-*-3877" - "l-*-3878" - "l-*-3879" - "l-*-3880" - "l-*-3881" - "l-*-3882" - "l-*-3883")) + #("l-*-1826" + "l-*-1827" + "l-*-1828" + "l-*-1829" + "l-*-1830" + "l-*-1831" + "l-*-1832")) #(ribcage (lambda-var-list gen-var @@ -2040,146 +2040,146 @@ (top) (top) (top)) - ("l-*-2527" - "l-*-2525" - "l-*-2523" - "l-*-2521" - "l-*-2519" - "l-*-2517" - "l-*-2515" - "l-*-2513" - "l-*-2511" - "l-*-2509" - "l-*-2507" - "l-*-2505" - "l-*-2503" - "l-*-2501" - "l-*-2499" - "l-*-2497" - "l-*-2495" - "l-*-2493" - "l-*-2491" - "l-*-2489" - "l-*-2487" - "l-*-2485" - "l-*-2483" - "l-*-2481" - "l-*-2479" - "l-*-2477" - "l-*-2475" - "l-*-2473" - "l-*-2471" - "l-*-2469" - "l-*-2467" - "l-*-2465" - "l-*-2463" - "l-*-2461" - "l-*-2459" - "l-*-2457" - "l-*-2455" - "l-*-2453" - "l-*-2451" - "l-*-2450" - "l-*-2448" - "l-*-2445" - "l-*-2444" - "l-*-2443" - "l-*-2441" - "l-*-2440" - "l-*-2438" - "l-*-2436" - "l-*-2434" - "l-*-2432" - "l-*-2430" - "l-*-2428" - "l-*-2426" - "l-*-2424" - "l-*-2421" - "l-*-2419" - "l-*-2418" - "l-*-2416" - "l-*-2414" - "l-*-2412" - "l-*-2410" - "l-*-2409" - "l-*-2408" - "l-*-2407" - "l-*-2405" - "l-*-2404" - "l-*-2401" - "l-*-2399" - "l-*-2397" - "l-*-2395" - "l-*-2393" - "l-*-2391" - "l-*-2389" - "l-*-2388" - "l-*-2387" - "l-*-2385" - "l-*-2383" - "l-*-2382" - "l-*-2379" - "l-*-2378" - "l-*-2376" - "l-*-2374" - "l-*-2372" - "l-*-2370" - "l-*-2368" - "l-*-2366" - "l-*-2364" - "l-*-2362" - "l-*-2360" - "l-*-2357" - "l-*-2355" - "l-*-2353" - "l-*-2351" - "l-*-2349" - "l-*-2347" - "l-*-2345" - "l-*-2343" - "l-*-2341" - "l-*-2339" - "l-*-2337" - "l-*-2335" - "l-*-2333" - "l-*-2331" - "l-*-2329" - "l-*-2327" - "l-*-2325" - "l-*-2323" - "l-*-2321" - "l-*-2319" - "l-*-2317" - "l-*-2315" - "l-*-2313" - "l-*-2311" - "l-*-2309" - "l-*-2307" - "l-*-2306" - "l-*-2305" - "l-*-2304" - "l-*-2303" - "l-*-2301" - "l-*-2299" - "l-*-2297" - "l-*-2294" - "l-*-2292" - "l-*-2290" - "l-*-2288" - "l-*-2286" - "l-*-2284" - "l-*-2282" - "l-*-2280" - "l-*-2278" - "l-*-2276" - "l-*-2274" - "l-*-2272" - "l-*-2270" - "l-*-2268" - "l-*-2266" - "l-*-2264" - "l-*-2262" - "l-*-2260")) + ("l-*-476" + "l-*-474" + "l-*-472" + "l-*-470" + "l-*-468" + "l-*-466" + "l-*-464" + "l-*-462" + "l-*-460" + "l-*-458" + "l-*-456" + "l-*-454" + "l-*-452" + "l-*-450" + "l-*-448" + "l-*-446" + "l-*-444" + "l-*-442" + "l-*-440" + "l-*-438" + "l-*-436" + "l-*-434" + "l-*-432" + "l-*-430" + "l-*-428" + "l-*-426" + "l-*-424" + "l-*-422" + "l-*-420" + "l-*-418" + "l-*-416" + "l-*-414" + "l-*-412" + "l-*-410" + "l-*-408" + "l-*-406" + "l-*-404" + "l-*-402" + "l-*-400" + "l-*-399" + "l-*-397" + "l-*-394" + "l-*-393" + "l-*-392" + "l-*-390" + "l-*-389" + "l-*-387" + "l-*-385" + "l-*-383" + "l-*-381" + "l-*-379" + "l-*-377" + "l-*-375" + "l-*-373" + "l-*-370" + "l-*-368" + "l-*-367" + "l-*-365" + "l-*-363" + "l-*-361" + "l-*-359" + "l-*-358" + "l-*-357" + "l-*-356" + "l-*-354" + "l-*-353" + "l-*-350" + "l-*-348" + "l-*-346" + "l-*-344" + "l-*-342" + "l-*-340" + "l-*-338" + "l-*-337" + "l-*-336" + "l-*-334" + "l-*-332" + "l-*-331" + "l-*-328" + "l-*-327" + "l-*-325" + "l-*-323" + "l-*-321" + "l-*-319" + "l-*-317" + "l-*-315" + "l-*-313" + "l-*-311" + "l-*-309" + "l-*-306" + "l-*-304" + "l-*-302" + "l-*-300" + "l-*-298" + "l-*-296" + "l-*-294" + "l-*-292" + "l-*-290" + "l-*-288" + "l-*-286" + "l-*-284" + "l-*-282" + "l-*-280" + "l-*-278" + "l-*-276" + "l-*-274" + "l-*-272" + "l-*-270" + "l-*-268" + "l-*-266" + "l-*-264" + "l-*-262" + "l-*-260" + "l-*-258" + "l-*-256" + "l-*-255" + "l-*-254" + "l-*-253" + "l-*-252" + "l-*-250" + "l-*-248" + "l-*-246" + "l-*-243" + "l-*-241" + "l-*-239" + "l-*-237" + "l-*-235" + "l-*-233" + "l-*-231" + "l-*-229" + "l-*-227" + "l-*-225" + "l-*-223" + "l-*-221" + "l-*-219" + "l-*-217" + "l-*-215" + "l-*-213" + "l-*-211" + "l-*-209")) #(ribcage (define-structure define-expansion-accessors @@ -2187,81 +2187,81 @@ ((top) (top) (top)) - ("l-*-2098" - "l-*-2097" - "l-*-2096"))) + ("l-*-47" + "l-*-46" + "l-*-45"))) (hygiene guile)) - (wrap-6374 - (cons args-23024 - (cons e1-23025 - e2-23026)) - w-22658 - mod-22661)))) + (wrap-4323 + (cons args-21192 + (cons e1-21193 + e2-21194)) + w-20826 + mod-20829)))) (begin - (if (if (pair? e-23034) - s-22659 + (if (if (pair? e-21202) + s-20827 #f) (set-source-properties! - e-23034 - s-22659)) - e-23034)) + e-21202 + s-20827)) + e-21202)) '(()) - s-22659 - mod-22661)) - tmp-22819) - (let ((tmp-23041 + s-20827 + mod-20829)) + tmp-20987) + (let ((tmp-21209 ($sc-dispatch - e-22656 + e-20824 '(_ any)))) - (if (if tmp-23041 + (if (if tmp-21209 (@apply - (lambda (name-23045) + (lambda (name-21213) (if (symbol? - name-23045) + name-21213) #t (if (if (vector? - name-23045) + name-21213) (if (= (vector-length - name-23045) + name-21213) 4) (eq? (vector-ref - name-23045 + name-21213 0) 'syntax-object) #f) #f) (symbol? (vector-ref - name-23045 + name-21213 1)) #f))) - tmp-23041) + tmp-21209) #f) (@apply - (lambda (name-23072) + (lambda (name-21240) (values 'define-form - (wrap-6374 - name-23072 - w-22658 - mod-22661) - (wrap-6374 - e-22656 - w-22658 - mod-22661) + (wrap-4323 + name-21240 + w-20826 + mod-20829) + (wrap-4323 + e-20824 + w-20826 + mod-20829) '(#(syntax-object if ((top) #(ribcage #(name) #((top)) - #("l-*-3965")) + #("l-*-1914")) #(ribcage () () ()) #(ribcage #(key) - #((m-*-3917 top)) - #("l-*-3918")) + #((m-*-1866 top)) + #("l-*-1867")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage @@ -2279,18 +2279,18 @@ (top) (top) (top)) - #("l-*-3910" - "l-*-3911" - "l-*-3912" - "l-*-3913" - "l-*-3914" - "l-*-3915" - "l-*-3916")) + #("l-*-1859" + "l-*-1860" + "l-*-1861" + "l-*-1862" + "l-*-1863" + "l-*-1864" + "l-*-1865")) #(ribcage () () ()) #(ribcage #(first) #((top)) - #("l-*-3901")) + #("l-*-1850")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage @@ -2308,13 +2308,13 @@ (top) (top) (top)) - #("l-*-3877" - "l-*-3878" - "l-*-3879" - "l-*-3880" - "l-*-3881" - "l-*-3882" - "l-*-3883")) + #("l-*-1826" + "l-*-1827" + "l-*-1828" + "l-*-1829" + "l-*-1830" + "l-*-1831" + "l-*-1832")) #(ribcage (lambda-var-list gen-var @@ -2596,146 +2596,146 @@ (top) (top) (top)) - ("l-*-2527" - "l-*-2525" - "l-*-2523" - "l-*-2521" - "l-*-2519" - "l-*-2517" - "l-*-2515" - "l-*-2513" - "l-*-2511" - "l-*-2509" - "l-*-2507" - "l-*-2505" - "l-*-2503" - "l-*-2501" - "l-*-2499" - "l-*-2497" - "l-*-2495" - "l-*-2493" - "l-*-2491" - "l-*-2489" - "l-*-2487" - "l-*-2485" - "l-*-2483" - "l-*-2481" - "l-*-2479" - "l-*-2477" - "l-*-2475" - "l-*-2473" - "l-*-2471" - "l-*-2469" - "l-*-2467" - "l-*-2465" - "l-*-2463" - "l-*-2461" - "l-*-2459" - "l-*-2457" - "l-*-2455" - "l-*-2453" - "l-*-2451" - "l-*-2450" - "l-*-2448" - "l-*-2445" - "l-*-2444" - "l-*-2443" - "l-*-2441" - "l-*-2440" - "l-*-2438" - "l-*-2436" - "l-*-2434" - "l-*-2432" - "l-*-2430" - "l-*-2428" - "l-*-2426" - "l-*-2424" - "l-*-2421" - "l-*-2419" - "l-*-2418" - "l-*-2416" - "l-*-2414" - "l-*-2412" - "l-*-2410" - "l-*-2409" - "l-*-2408" - "l-*-2407" - "l-*-2405" - "l-*-2404" - "l-*-2401" - "l-*-2399" - "l-*-2397" - "l-*-2395" - "l-*-2393" - "l-*-2391" - "l-*-2389" - "l-*-2388" - "l-*-2387" - "l-*-2385" - "l-*-2383" - "l-*-2382" - "l-*-2379" - "l-*-2378" - "l-*-2376" - "l-*-2374" - "l-*-2372" - "l-*-2370" - "l-*-2368" - "l-*-2366" - "l-*-2364" - "l-*-2362" - "l-*-2360" - "l-*-2357" - "l-*-2355" - "l-*-2353" - "l-*-2351" - "l-*-2349" - "l-*-2347" - "l-*-2345" - "l-*-2343" - "l-*-2341" - "l-*-2339" - "l-*-2337" - "l-*-2335" - "l-*-2333" - "l-*-2331" - "l-*-2329" - "l-*-2327" - "l-*-2325" - "l-*-2323" - "l-*-2321" - "l-*-2319" - "l-*-2317" - "l-*-2315" - "l-*-2313" - "l-*-2311" - "l-*-2309" - "l-*-2307" - "l-*-2306" - "l-*-2305" - "l-*-2304" - "l-*-2303" - "l-*-2301" - "l-*-2299" - "l-*-2297" - "l-*-2294" - "l-*-2292" - "l-*-2290" - "l-*-2288" - "l-*-2286" - "l-*-2284" - "l-*-2282" - "l-*-2280" - "l-*-2278" - "l-*-2276" - "l-*-2274" - "l-*-2272" - "l-*-2270" - "l-*-2268" - "l-*-2266" - "l-*-2264" - "l-*-2262" - "l-*-2260")) + ("l-*-476" + "l-*-474" + "l-*-472" + "l-*-470" + "l-*-468" + "l-*-466" + "l-*-464" + "l-*-462" + "l-*-460" + "l-*-458" + "l-*-456" + "l-*-454" + "l-*-452" + "l-*-450" + "l-*-448" + "l-*-446" + "l-*-444" + "l-*-442" + "l-*-440" + "l-*-438" + "l-*-436" + "l-*-434" + "l-*-432" + "l-*-430" + "l-*-428" + "l-*-426" + "l-*-424" + "l-*-422" + "l-*-420" + "l-*-418" + "l-*-416" + "l-*-414" + "l-*-412" + "l-*-410" + "l-*-408" + "l-*-406" + "l-*-404" + "l-*-402" + "l-*-400" + "l-*-399" + "l-*-397" + "l-*-394" + "l-*-393" + "l-*-392" + "l-*-390" + "l-*-389" + "l-*-387" + "l-*-385" + "l-*-383" + "l-*-381" + "l-*-379" + "l-*-377" + "l-*-375" + "l-*-373" + "l-*-370" + "l-*-368" + "l-*-367" + "l-*-365" + "l-*-363" + "l-*-361" + "l-*-359" + "l-*-358" + "l-*-357" + "l-*-356" + "l-*-354" + "l-*-353" + "l-*-350" + "l-*-348" + "l-*-346" + "l-*-344" + "l-*-342" + "l-*-340" + "l-*-338" + "l-*-337" + "l-*-336" + "l-*-334" + "l-*-332" + "l-*-331" + "l-*-328" + "l-*-327" + "l-*-325" + "l-*-323" + "l-*-321" + "l-*-319" + "l-*-317" + "l-*-315" + "l-*-313" + "l-*-311" + "l-*-309" + "l-*-306" + "l-*-304" + "l-*-302" + "l-*-300" + "l-*-298" + "l-*-296" + "l-*-294" + "l-*-292" + "l-*-290" + "l-*-288" + "l-*-286" + "l-*-284" + "l-*-282" + "l-*-280" + "l-*-278" + "l-*-276" + "l-*-274" + "l-*-272" + "l-*-270" + "l-*-268" + "l-*-266" + "l-*-264" + "l-*-262" + "l-*-260" + "l-*-258" + "l-*-256" + "l-*-255" + "l-*-254" + "l-*-253" + "l-*-252" + "l-*-250" + "l-*-248" + "l-*-246" + "l-*-243" + "l-*-241" + "l-*-239" + "l-*-237" + "l-*-235" + "l-*-233" + "l-*-231" + "l-*-229" + "l-*-227" + "l-*-225" + "l-*-223" + "l-*-221" + "l-*-219" + "l-*-217" + "l-*-215" + "l-*-213" + "l-*-211" + "l-*-209")) #(ribcage (define-structure define-expansion-accessors @@ -2743,9 +2743,9 @@ ((top) (top) (top)) - ("l-*-2098" - "l-*-2097" - "l-*-2096"))) + ("l-*-47" + "l-*-46" + "l-*-45"))) (hygiene guile)) #(syntax-object #f @@ -2753,12 +2753,12 @@ #(ribcage #(name) #((top)) - #("l-*-3965")) + #("l-*-1914")) #(ribcage () () ()) #(ribcage #(key) - #((m-*-3917 top)) - #("l-*-3918")) + #((m-*-1866 top)) + #("l-*-1867")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage @@ -2776,18 +2776,18 @@ (top) (top) (top)) - #("l-*-3910" - "l-*-3911" - "l-*-3912" - "l-*-3913" - "l-*-3914" - "l-*-3915" - "l-*-3916")) + #("l-*-1859" + "l-*-1860" + "l-*-1861" + "l-*-1862" + "l-*-1863" + "l-*-1864" + "l-*-1865")) #(ribcage () () ()) #(ribcage #(first) #((top)) - #("l-*-3901")) + #("l-*-1850")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage @@ -2805,13 +2805,13 @@ (top) (top) (top)) - #("l-*-3877" - "l-*-3878" - "l-*-3879" - "l-*-3880" - "l-*-3881" - "l-*-3882" - "l-*-3883")) + #("l-*-1826" + "l-*-1827" + "l-*-1828" + "l-*-1829" + "l-*-1830" + "l-*-1831" + "l-*-1832")) #(ribcage (lambda-var-list gen-var @@ -3093,146 +3093,146 @@ (top) (top) (top)) - ("l-*-2527" - "l-*-2525" - "l-*-2523" - "l-*-2521" - "l-*-2519" - "l-*-2517" - "l-*-2515" - "l-*-2513" - "l-*-2511" - "l-*-2509" - "l-*-2507" - "l-*-2505" - "l-*-2503" - "l-*-2501" - "l-*-2499" - "l-*-2497" - "l-*-2495" - "l-*-2493" - "l-*-2491" - "l-*-2489" - "l-*-2487" - "l-*-2485" - "l-*-2483" - "l-*-2481" - "l-*-2479" - "l-*-2477" - "l-*-2475" - "l-*-2473" - "l-*-2471" - "l-*-2469" - "l-*-2467" - "l-*-2465" - "l-*-2463" - "l-*-2461" - "l-*-2459" - "l-*-2457" - "l-*-2455" - "l-*-2453" - "l-*-2451" - "l-*-2450" - "l-*-2448" - "l-*-2445" - "l-*-2444" - "l-*-2443" - "l-*-2441" - "l-*-2440" - "l-*-2438" - "l-*-2436" - "l-*-2434" - "l-*-2432" - "l-*-2430" - "l-*-2428" - "l-*-2426" - "l-*-2424" - "l-*-2421" - "l-*-2419" - "l-*-2418" - "l-*-2416" - "l-*-2414" - "l-*-2412" - "l-*-2410" - "l-*-2409" - "l-*-2408" - "l-*-2407" - "l-*-2405" - "l-*-2404" - "l-*-2401" - "l-*-2399" - "l-*-2397" - "l-*-2395" - "l-*-2393" - "l-*-2391" - "l-*-2389" - "l-*-2388" - "l-*-2387" - "l-*-2385" - "l-*-2383" - "l-*-2382" - "l-*-2379" - "l-*-2378" - "l-*-2376" - "l-*-2374" - "l-*-2372" - "l-*-2370" - "l-*-2368" - "l-*-2366" - "l-*-2364" - "l-*-2362" - "l-*-2360" - "l-*-2357" - "l-*-2355" - "l-*-2353" - "l-*-2351" - "l-*-2349" - "l-*-2347" - "l-*-2345" - "l-*-2343" - "l-*-2341" - "l-*-2339" - "l-*-2337" - "l-*-2335" - "l-*-2333" - "l-*-2331" - "l-*-2329" - "l-*-2327" - "l-*-2325" - "l-*-2323" - "l-*-2321" - "l-*-2319" - "l-*-2317" - "l-*-2315" - "l-*-2313" - "l-*-2311" - "l-*-2309" - "l-*-2307" - "l-*-2306" - "l-*-2305" - "l-*-2304" - "l-*-2303" - "l-*-2301" - "l-*-2299" - "l-*-2297" - "l-*-2294" - "l-*-2292" - "l-*-2290" - "l-*-2288" - "l-*-2286" - "l-*-2284" - "l-*-2282" - "l-*-2280" - "l-*-2278" - "l-*-2276" - "l-*-2274" - "l-*-2272" - "l-*-2270" - "l-*-2268" - "l-*-2266" - "l-*-2264" - "l-*-2262" - "l-*-2260")) + ("l-*-476" + "l-*-474" + "l-*-472" + "l-*-470" + "l-*-468" + "l-*-466" + "l-*-464" + "l-*-462" + "l-*-460" + "l-*-458" + "l-*-456" + "l-*-454" + "l-*-452" + "l-*-450" + "l-*-448" + "l-*-446" + "l-*-444" + "l-*-442" + "l-*-440" + "l-*-438" + "l-*-436" + "l-*-434" + "l-*-432" + "l-*-430" + "l-*-428" + "l-*-426" + "l-*-424" + "l-*-422" + "l-*-420" + "l-*-418" + "l-*-416" + "l-*-414" + "l-*-412" + "l-*-410" + "l-*-408" + "l-*-406" + "l-*-404" + "l-*-402" + "l-*-400" + "l-*-399" + "l-*-397" + "l-*-394" + "l-*-393" + "l-*-392" + "l-*-390" + "l-*-389" + "l-*-387" + "l-*-385" + "l-*-383" + "l-*-381" + "l-*-379" + "l-*-377" + "l-*-375" + "l-*-373" + "l-*-370" + "l-*-368" + "l-*-367" + "l-*-365" + "l-*-363" + "l-*-361" + "l-*-359" + "l-*-358" + "l-*-357" + "l-*-356" + "l-*-354" + "l-*-353" + "l-*-350" + "l-*-348" + "l-*-346" + "l-*-344" + "l-*-342" + "l-*-340" + "l-*-338" + "l-*-337" + "l-*-336" + "l-*-334" + "l-*-332" + "l-*-331" + "l-*-328" + "l-*-327" + "l-*-325" + "l-*-323" + "l-*-321" + "l-*-319" + "l-*-317" + "l-*-315" + "l-*-313" + "l-*-311" + "l-*-309" + "l-*-306" + "l-*-304" + "l-*-302" + "l-*-300" + "l-*-298" + "l-*-296" + "l-*-294" + "l-*-292" + "l-*-290" + "l-*-288" + "l-*-286" + "l-*-284" + "l-*-282" + "l-*-280" + "l-*-278" + "l-*-276" + "l-*-274" + "l-*-272" + "l-*-270" + "l-*-268" + "l-*-266" + "l-*-264" + "l-*-262" + "l-*-260" + "l-*-258" + "l-*-256" + "l-*-255" + "l-*-254" + "l-*-253" + "l-*-252" + "l-*-250" + "l-*-248" + "l-*-246" + "l-*-243" + "l-*-241" + "l-*-239" + "l-*-237" + "l-*-235" + "l-*-233" + "l-*-231" + "l-*-229" + "l-*-227" + "l-*-225" + "l-*-223" + "l-*-221" + "l-*-219" + "l-*-217" + "l-*-215" + "l-*-213" + "l-*-211" + "l-*-209")) #(ribcage (define-structure define-expansion-accessors @@ -3240,9 +3240,9 @@ ((top) (top) (top)) - ("l-*-2098" - "l-*-2097" - "l-*-2096"))) + ("l-*-47" + "l-*-46" + "l-*-45"))) (hygiene guile)) #(syntax-object #f @@ -3250,12 +3250,12 @@ #(ribcage #(name) #((top)) - #("l-*-3965")) + #("l-*-1914")) #(ribcage () () ()) #(ribcage #(key) - #((m-*-3917 top)) - #("l-*-3918")) + #((m-*-1866 top)) + #("l-*-1867")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage @@ -3273,18 +3273,18 @@ (top) (top) (top)) - #("l-*-3910" - "l-*-3911" - "l-*-3912" - "l-*-3913" - "l-*-3914" - "l-*-3915" - "l-*-3916")) + #("l-*-1859" + "l-*-1860" + "l-*-1861" + "l-*-1862" + "l-*-1863" + "l-*-1864" + "l-*-1865")) #(ribcage () () ()) #(ribcage #(first) #((top)) - #("l-*-3901")) + #("l-*-1850")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage @@ -3302,13 +3302,13 @@ (top) (top) (top)) - #("l-*-3877" - "l-*-3878" - "l-*-3879" - "l-*-3880" - "l-*-3881" - "l-*-3882" - "l-*-3883")) + #("l-*-1826" + "l-*-1827" + "l-*-1828" + "l-*-1829" + "l-*-1830" + "l-*-1831" + "l-*-1832")) #(ribcage (lambda-var-list gen-var @@ -3590,146 +3590,146 @@ (top) (top) (top)) - ("l-*-2527" - "l-*-2525" - "l-*-2523" - "l-*-2521" - "l-*-2519" - "l-*-2517" - "l-*-2515" - "l-*-2513" - "l-*-2511" - "l-*-2509" - "l-*-2507" - "l-*-2505" - "l-*-2503" - "l-*-2501" - "l-*-2499" - "l-*-2497" - "l-*-2495" - "l-*-2493" - "l-*-2491" - "l-*-2489" - "l-*-2487" - "l-*-2485" - "l-*-2483" - "l-*-2481" - "l-*-2479" - "l-*-2477" - "l-*-2475" - "l-*-2473" - "l-*-2471" - "l-*-2469" - "l-*-2467" - "l-*-2465" - "l-*-2463" - "l-*-2461" - "l-*-2459" - "l-*-2457" - "l-*-2455" - "l-*-2453" - "l-*-2451" - "l-*-2450" - "l-*-2448" - "l-*-2445" - "l-*-2444" - "l-*-2443" - "l-*-2441" - "l-*-2440" - "l-*-2438" - "l-*-2436" - "l-*-2434" - "l-*-2432" - "l-*-2430" - "l-*-2428" - "l-*-2426" - "l-*-2424" - "l-*-2421" - "l-*-2419" - "l-*-2418" - "l-*-2416" - "l-*-2414" - "l-*-2412" - "l-*-2410" - "l-*-2409" - "l-*-2408" - "l-*-2407" - "l-*-2405" - "l-*-2404" - "l-*-2401" - "l-*-2399" - "l-*-2397" - "l-*-2395" - "l-*-2393" - "l-*-2391" - "l-*-2389" - "l-*-2388" - "l-*-2387" - "l-*-2385" - "l-*-2383" - "l-*-2382" - "l-*-2379" - "l-*-2378" - "l-*-2376" - "l-*-2374" - "l-*-2372" - "l-*-2370" - "l-*-2368" - "l-*-2366" - "l-*-2364" - "l-*-2362" - "l-*-2360" - "l-*-2357" - "l-*-2355" - "l-*-2353" - "l-*-2351" - "l-*-2349" - "l-*-2347" - "l-*-2345" - "l-*-2343" - "l-*-2341" - "l-*-2339" - "l-*-2337" - "l-*-2335" - "l-*-2333" - "l-*-2331" - "l-*-2329" - "l-*-2327" - "l-*-2325" - "l-*-2323" - "l-*-2321" - "l-*-2319" - "l-*-2317" - "l-*-2315" - "l-*-2313" - "l-*-2311" - "l-*-2309" - "l-*-2307" - "l-*-2306" - "l-*-2305" - "l-*-2304" - "l-*-2303" - "l-*-2301" - "l-*-2299" - "l-*-2297" - "l-*-2294" - "l-*-2292" - "l-*-2290" - "l-*-2288" - "l-*-2286" - "l-*-2284" - "l-*-2282" - "l-*-2280" - "l-*-2278" - "l-*-2276" - "l-*-2274" - "l-*-2272" - "l-*-2270" - "l-*-2268" - "l-*-2266" - "l-*-2264" - "l-*-2262" - "l-*-2260")) + ("l-*-476" + "l-*-474" + "l-*-472" + "l-*-470" + "l-*-468" + "l-*-466" + "l-*-464" + "l-*-462" + "l-*-460" + "l-*-458" + "l-*-456" + "l-*-454" + "l-*-452" + "l-*-450" + "l-*-448" + "l-*-446" + "l-*-444" + "l-*-442" + "l-*-440" + "l-*-438" + "l-*-436" + "l-*-434" + "l-*-432" + "l-*-430" + "l-*-428" + "l-*-426" + "l-*-424" + "l-*-422" + "l-*-420" + "l-*-418" + "l-*-416" + "l-*-414" + "l-*-412" + "l-*-410" + "l-*-408" + "l-*-406" + "l-*-404" + "l-*-402" + "l-*-400" + "l-*-399" + "l-*-397" + "l-*-394" + "l-*-393" + "l-*-392" + "l-*-390" + "l-*-389" + "l-*-387" + "l-*-385" + "l-*-383" + "l-*-381" + "l-*-379" + "l-*-377" + "l-*-375" + "l-*-373" + "l-*-370" + "l-*-368" + "l-*-367" + "l-*-365" + "l-*-363" + "l-*-361" + "l-*-359" + "l-*-358" + "l-*-357" + "l-*-356" + "l-*-354" + "l-*-353" + "l-*-350" + "l-*-348" + "l-*-346" + "l-*-344" + "l-*-342" + "l-*-340" + "l-*-338" + "l-*-337" + "l-*-336" + "l-*-334" + "l-*-332" + "l-*-331" + "l-*-328" + "l-*-327" + "l-*-325" + "l-*-323" + "l-*-321" + "l-*-319" + "l-*-317" + "l-*-315" + "l-*-313" + "l-*-311" + "l-*-309" + "l-*-306" + "l-*-304" + "l-*-302" + "l-*-300" + "l-*-298" + "l-*-296" + "l-*-294" + "l-*-292" + "l-*-290" + "l-*-288" + "l-*-286" + "l-*-284" + "l-*-282" + "l-*-280" + "l-*-278" + "l-*-276" + "l-*-274" + "l-*-272" + "l-*-270" + "l-*-268" + "l-*-266" + "l-*-264" + "l-*-262" + "l-*-260" + "l-*-258" + "l-*-256" + "l-*-255" + "l-*-254" + "l-*-253" + "l-*-252" + "l-*-250" + "l-*-248" + "l-*-246" + "l-*-243" + "l-*-241" + "l-*-239" + "l-*-237" + "l-*-235" + "l-*-233" + "l-*-231" + "l-*-229" + "l-*-227" + "l-*-225" + "l-*-223" + "l-*-221" + "l-*-219" + "l-*-217" + "l-*-215" + "l-*-213" + "l-*-211" + "l-*-209")) #(ribcage (define-structure define-expansion-accessors @@ -3737,303 +3737,303 @@ ((top) (top) (top)) - ("l-*-2098" - "l-*-2097" - "l-*-2096"))) + ("l-*-47" + "l-*-46" + "l-*-45"))) (hygiene guile))) '(()) - s-22659 - mod-22661)) - tmp-23041) + s-20827 + mod-20829)) + tmp-21209) (syntax-violation #f "source expression failed to match any pattern" - e-22656))))))) - (if (eqv? ftype-22709 'define-syntax) - (let ((tmp-23096 + e-20824))))))) + (if (eqv? ftype-20877 'define-syntax) + (let ((tmp-21264 ($sc-dispatch - e-22656 + e-20824 '(_ any any)))) - (if (if tmp-23096 + (if (if tmp-21264 (@apply - (lambda (name-23100 val-23101) - (if (symbol? name-23100) + (lambda (name-21268 val-21269) + (if (symbol? name-21268) #t (if (if (vector? - name-23100) + name-21268) (if (= (vector-length - name-23100) + name-21268) 4) (eq? (vector-ref - name-23100 + name-21268 0) 'syntax-object) #f) #f) (symbol? (vector-ref - name-23100 + name-21268 1)) #f))) - tmp-23096) + tmp-21264) #f) (@apply - (lambda (name-23128 val-23129) + (lambda (name-21296 val-21297) (values 'define-syntax-form - name-23128 - e-22656 - val-23129 - w-22658 - s-22659 - mod-22661)) - tmp-23096) + name-21296 + e-20824 + val-21297 + w-20826 + s-20827 + mod-20829)) + tmp-21264) (syntax-violation #f "source expression failed to match any pattern" - e-22656))) - (if (eqv? ftype-22709 + e-20824))) + (if (eqv? ftype-20877 'define-syntax-parameter) - (let ((tmp-23143 + (let ((tmp-21311 ($sc-dispatch - e-22656 + e-20824 '(_ any any)))) - (if (if tmp-23143 + (if (if tmp-21311 (@apply - (lambda (name-23147 - val-23148) - (if (symbol? name-23147) + (lambda (name-21315 + val-21316) + (if (symbol? name-21315) #t (if (if (vector? - name-23147) + name-21315) (if (= (vector-length - name-23147) + name-21315) 4) (eq? (vector-ref - name-23147 + name-21315 0) 'syntax-object) #f) #f) (symbol? (vector-ref - name-23147 + name-21315 1)) #f))) - tmp-23143) + tmp-21311) #f) (@apply - (lambda (name-23175 val-23176) + (lambda (name-21343 val-21344) (values 'define-syntax-parameter-form - name-23175 - e-22656 - val-23176 - w-22658 - s-22659 - mod-22661)) - tmp-23143) + name-21343 + e-20824 + val-21344 + w-20826 + s-20827 + mod-20829)) + tmp-21311) (syntax-violation #f "source expression failed to match any pattern" - e-22656))) + e-20824))) (values 'call #f - e-22656 - e-22656 - w-22658 - s-22659 - mod-22661))))))))))))))) - (if (if (vector? e-22656) - (if (= (vector-length e-22656) 4) - (eq? (vector-ref e-22656 0) 'syntax-object) + e-20824 + e-20824 + w-20826 + s-20827 + mod-20829))))))))))))))) + (if (if (vector? e-20824) + (if (= (vector-length e-20824) 4) + (eq? (vector-ref e-20824 0) 'syntax-object) #f) #f) - (syntax-type-6380 - (vector-ref e-22656 1) - r-22657 - (join-wraps-6361 w-22658 (vector-ref e-22656 2)) - (let ((t-23203 (source-annotation-6338 e-22656))) - (if t-23203 t-23203 s-22659)) - rib-22660 - (let ((t-23438 (vector-ref e-22656 3))) - (if t-23438 t-23438 mod-22661)) - for-car?-22662) - (if (self-evaluating? e-22656) + (syntax-type-4329 + (vector-ref e-20824 1) + r-20825 + (join-wraps-4310 w-20826 (vector-ref e-20824 2)) + (let ((t-21371 (source-annotation-4287 e-20824))) + (if t-21371 t-21371 s-20827)) + rib-20828 + (let ((t-21606 (vector-ref e-20824 3))) + (if t-21606 t-21606 mod-20829)) + for-car?-20830) + (if (self-evaluating? e-20824) (values 'constant #f - e-22656 - e-22656 - w-22658 - s-22659 - mod-22661) + e-20824 + e-20824 + w-20826 + s-20827 + mod-20829) (values 'other #f - e-22656 - e-22656 - w-22658 - s-22659 - mod-22661))))))) - (expand-6381 - (lambda (e-23447 r-23448 w-23449 mod-23450) + e-20824 + e-20824 + w-20826 + s-20827 + mod-20829))))))) + (expand-4330 + (lambda (e-21615 r-21616 w-21617 mod-21618) (call-with-values (lambda () - (syntax-type-6380 - e-23447 - r-23448 - w-23449 - (source-annotation-6338 e-23447) + (syntax-type-4329 + e-21615 + r-21616 + w-21617 + (source-annotation-4287 e-21615) #f - mod-23450 + mod-21618 #f)) - (lambda (type-23605 - value-23606 - form-23607 - e-23608 - w-23609 - s-23610 - mod-23611) - (expand-expr-6382 - type-23605 - value-23606 - form-23607 - e-23608 - r-23448 - w-23609 - s-23610 - mod-23611))))) - (expand-expr-6382 - (lambda (type-23614 - value-23615 - form-23616 - e-23617 - r-23618 - w-23619 - s-23620 - mod-23621) - (if (eqv? type-23614 'lexical) + (lambda (type-21773 + value-21774 + form-21775 + e-21776 + w-21777 + s-21778 + mod-21779) + (expand-expr-4331 + type-21773 + value-21774 + form-21775 + e-21776 + r-21616 + w-21777 + s-21778 + mod-21779))))) + (expand-expr-4331 + (lambda (type-21782 + value-21783 + form-21784 + e-21785 + r-21786 + w-21787 + s-21788 + mod-21789) + (if (eqv? type-21782 'lexical) (make-struct/no-tail (vector-ref %expanded-vtables 3) - s-23620 - e-23617 - value-23615) - (if (if (eqv? type-23614 'core) + s-21788 + e-21785 + value-21783) + (if (if (eqv? type-21782 'core) #t - (eqv? type-23614 'core-form)) - (value-23615 - e-23617 - r-23618 - w-23619 - s-23620 - mod-23621) - (if (eqv? type-23614 'module-ref) + (eqv? type-21782 'core-form)) + (value-21783 + e-21785 + r-21786 + w-21787 + s-21788 + mod-21789) + (if (eqv? type-21782 'module-ref) (call-with-values - (lambda () (value-23615 e-23617 r-23618 w-23619)) - (lambda (e-23657 r-23658 w-23659 s-23660 mod-23661) - (expand-6381 e-23657 r-23658 w-23659 mod-23661))) - (if (eqv? type-23614 'lexical-call) - (expand-application-6383 - (let ((id-23739 (car e-23617))) - (build-lexical-reference-6315 + (lambda () (value-21783 e-21785 r-21786 w-21787)) + (lambda (e-21825 r-21826 w-21827 s-21828 mod-21829) + (expand-4330 e-21825 r-21826 w-21827 mod-21829))) + (if (eqv? type-21782 'lexical-call) + (expand-application-4332 + (let ((id-21907 (car e-21785))) + (build-lexical-reference-4264 'fun - (source-annotation-6338 id-23739) - (if (if (vector? id-23739) - (if (= (vector-length id-23739) 4) - (eq? (vector-ref id-23739 0) 'syntax-object) + (source-annotation-4287 id-21907) + (if (if (vector? id-21907) + (if (= (vector-length id-21907) 4) + (eq? (vector-ref id-21907 0) 'syntax-object) #f) #f) - (syntax->datum id-23739) - id-23739) - value-23615)) - e-23617 - r-23618 - w-23619 - s-23620 - mod-23621) - (if (eqv? type-23614 'global-call) - (expand-application-6383 - (build-global-reference-6318 - (source-annotation-6338 (car e-23617)) - (if (if (vector? value-23615) - (if (= (vector-length value-23615) 4) - (eq? (vector-ref value-23615 0) 'syntax-object) + (syntax->datum id-21907) + id-21907) + value-21783)) + e-21785 + r-21786 + w-21787 + s-21788 + mod-21789) + (if (eqv? type-21782 'global-call) + (expand-application-4332 + (build-global-reference-4267 + (source-annotation-4287 (car e-21785)) + (if (if (vector? value-21783) + (if (= (vector-length value-21783) 4) + (eq? (vector-ref value-21783 0) 'syntax-object) #f) #f) - (vector-ref value-23615 1) - value-23615) - (if (if (vector? value-23615) - (if (= (vector-length value-23615) 4) - (eq? (vector-ref value-23615 0) 'syntax-object) + (vector-ref value-21783 1) + value-21783) + (if (if (vector? value-21783) + (if (= (vector-length value-21783) 4) + (eq? (vector-ref value-21783 0) 'syntax-object) #f) #f) - (vector-ref value-23615 3) - mod-23621)) - e-23617 - r-23618 - w-23619 - s-23620 - mod-23621) - (if (eqv? type-23614 'constant) - (let ((exp-24082 - (strip-6394 - (wrap-6374 + (vector-ref value-21783 3) + mod-21789)) + e-21785 + r-21786 + w-21787 + s-21788 + mod-21789) + (if (eqv? type-21782 'constant) + (let ((exp-22250 + (strip-4343 + (wrap-4323 (begin - (if (if (pair? e-23617) s-23620 #f) - (set-source-properties! e-23617 s-23620)) - e-23617) - w-23619 - mod-23621) + (if (if (pair? e-21785) s-21788 #f) + (set-source-properties! e-21785 s-21788)) + e-21785) + w-21787 + mod-21789) '(())))) (make-struct/no-tail (vector-ref %expanded-vtables 1) - s-23620 - exp-24082)) - (if (eqv? type-23614 'global) - (analyze-variable-6317 - mod-23621 - value-23615 - (lambda (mod-24121 var-24122 public?-24123) + s-21788 + exp-22250)) + (if (eqv? type-21782 'global) + (analyze-variable-4266 + mod-21789 + value-21783 + (lambda (mod-22289 var-22290 public?-22291) (make-struct/no-tail (vector-ref %expanded-vtables 5) - s-23620 - mod-24121 - var-24122 - public?-24123)) - (lambda (var-24132) + s-21788 + mod-22289 + var-22290 + public?-22291)) + (lambda (var-22300) (make-struct/no-tail (vector-ref %expanded-vtables 7) - s-23620 - var-24132))) - (if (eqv? type-23614 'call) - (expand-application-6383 - (expand-6381 - (car e-23617) - r-23618 - w-23619 - mod-23621) - e-23617 - r-23618 - w-23619 - s-23620 - mod-23621) - (if (eqv? type-23614 'begin-form) - (let ((tmp-24213 - ($sc-dispatch e-23617 '(_ any . each-any)))) - (if tmp-24213 + s-21788 + var-22300))) + (if (eqv? type-21782 'call) + (expand-application-4332 + (expand-4330 + (car e-21785) + r-21786 + w-21787 + mod-21789) + e-21785 + r-21786 + w-21787 + s-21788 + mod-21789) + (if (eqv? type-21782 'begin-form) + (let ((tmp-22381 + ($sc-dispatch e-21785 '(_ any . each-any)))) + (if tmp-22381 (@apply - (lambda (e1-24217 e2-24218) - (expand-sequence-6376 - (cons e1-24217 e2-24218) - r-23618 - w-23619 - s-23620 - mod-23621)) - tmp-24213) - (let ((tmp-24305 ($sc-dispatch e-23617 '(_)))) - (if tmp-24305 + (lambda (e1-22385 e2-22386) + (expand-sequence-4325 + (cons e1-22385 e2-22386) + r-21786 + w-21787 + s-21788 + mod-21789)) + tmp-22381) + (let ((tmp-22473 ($sc-dispatch e-21785 '(_)))) + (if tmp-22473 (@apply (lambda () (if (include-deprecated-features) @@ -4046,801 +4046,801 @@ (syntax-violation #f "sequence of zero expressions" - (wrap-6374 + (wrap-4323 (begin - (if (if (pair? e-23617) - s-23620 + (if (if (pair? e-21785) + s-21788 #f) (set-source-properties! - e-23617 - s-23620)) - e-23617) - w-23619 - mod-23621)))) - tmp-24305) + e-21785 + s-21788)) + e-21785) + w-21787 + mod-21789)))) + tmp-22473) (syntax-violation #f "source expression failed to match any pattern" - e-23617))))) - (if (eqv? type-23614 'local-syntax-form) - (expand-local-syntax-6386 - value-23615 - e-23617 - r-23618 - w-23619 - s-23620 - mod-23621 - expand-sequence-6376) - (if (eqv? type-23614 'eval-when-form) - (let ((tmp-24422 + e-21785))))) + (if (eqv? type-21782 'local-syntax-form) + (expand-local-syntax-4335 + value-21783 + e-21785 + r-21786 + w-21787 + s-21788 + mod-21789 + expand-sequence-4325) + (if (eqv? type-21782 'eval-when-form) + (let ((tmp-22590 ($sc-dispatch - e-23617 + e-21785 '(_ each-any any . each-any)))) - (if tmp-24422 + (if tmp-22590 (@apply - (lambda (x-24426 e1-24427 e2-24428) - (let ((when-list-24429 - (parse-when-list-6379 - e-23617 - x-24426))) - (if (memq 'eval when-list-24429) - (expand-sequence-6376 - (cons e1-24427 e2-24428) - r-23618 - w-23619 - s-23620 - mod-23621) + (lambda (x-22594 e1-22595 e2-22596) + (let ((when-list-22597 + (parse-when-list-4328 + e-21785 + x-22594))) + (if (memq 'eval when-list-22597) + (expand-sequence-4325 + (cons e1-22595 e2-22596) + r-21786 + w-21787 + s-21788 + mod-21789) (make-struct/no-tail (vector-ref %expanded-vtables 0) #f)))) - tmp-24422) + tmp-22590) (syntax-violation #f "source expression failed to match any pattern" - e-23617))) - (if (if (eqv? type-23614 'define-form) + e-21785))) + (if (if (eqv? type-21782 'define-form) #t - (if (eqv? type-23614 'define-syntax-form) + (if (eqv? type-21782 'define-syntax-form) #t - (eqv? type-23614 + (eqv? type-21782 'define-syntax-parameter-form))) (syntax-violation #f "definition in expression context, where definitions are not allowed," - (wrap-6374 + (wrap-4323 (begin - (if (if (pair? form-23616) s-23620 #f) + (if (if (pair? form-21784) s-21788 #f) (set-source-properties! - form-23616 - s-23620)) - form-23616) - w-23619 - mod-23621)) - (if (eqv? type-23614 'syntax) + form-21784 + s-21788)) + form-21784) + w-21787 + mod-21789)) + (if (eqv? type-21782 'syntax) (syntax-violation #f "reference to pattern variable outside syntax form" - (wrap-6374 + (wrap-4323 (begin - (if (if (pair? e-23617) s-23620 #f) + (if (if (pair? e-21785) s-21788 #f) (set-source-properties! - e-23617 - s-23620)) - e-23617) - w-23619 - mod-23621)) - (if (eqv? type-23614 'displaced-lexical) + e-21785 + s-21788)) + e-21785) + w-21787 + mod-21789)) + (if (eqv? type-21782 'displaced-lexical) (syntax-violation #f "reference to identifier outside its scope" - (wrap-6374 + (wrap-4323 (begin - (if (if (pair? e-23617) s-23620 #f) + (if (if (pair? e-21785) s-21788 #f) (set-source-properties! - e-23617 - s-23620)) - e-23617) - w-23619 - mod-23621)) + e-21785 + s-21788)) + e-21785) + w-21787 + mod-21789)) (syntax-violation #f "unexpected syntax" - (wrap-6374 + (wrap-4323 (begin - (if (if (pair? e-23617) s-23620 #f) + (if (if (pair? e-21785) s-21788 #f) (set-source-properties! - e-23617 - s-23620)) - e-23617) - w-23619 - mod-23621)))))))))))))))))) - (expand-application-6383 - (lambda (x-24698 - e-24699 - r-24700 - w-24701 - s-24702 - mod-24703) - (let ((tmp-24705 - ($sc-dispatch e-24699 '(any . each-any)))) - (if tmp-24705 + e-21785 + s-21788)) + e-21785) + w-21787 + mod-21789)))))))))))))))))) + (expand-application-4332 + (lambda (x-22866 + e-22867 + r-22868 + w-22869 + s-22870 + mod-22871) + (let ((tmp-22873 + ($sc-dispatch e-22867 '(any . each-any)))) + (if tmp-22873 (@apply - (lambda (e0-24709 e1-24710) - (build-application-6312 - s-24702 - x-24698 - (map (lambda (e-24790) - (expand-6381 e-24790 r-24700 w-24701 mod-24703)) - e1-24710))) - tmp-24705) + (lambda (e0-22877 e1-22878) + (build-application-4261 + s-22870 + x-22866 + (map (lambda (e-22958) + (expand-4330 e-22958 r-22868 w-22869 mod-22871)) + e1-22878))) + tmp-22873) (syntax-violation #f "source expression failed to match any pattern" - e-24699))))) - (expand-macro-6384 - (lambda (p-24866 - e-24867 - r-24868 - w-24869 - s-24870 - rib-24871 - mod-24872) + e-22867))))) + (expand-macro-4333 + (lambda (p-23034 + e-23035 + r-23036 + w-23037 + s-23038 + rib-23039 + mod-23040) (letrec* - ((rebuild-macro-output-24873 - (lambda (x-24906 m-24907) - (if (pair? x-24906) - (let ((e-24911 - (cons (rebuild-macro-output-24873 - (car x-24906) - m-24907) - (rebuild-macro-output-24873 - (cdr x-24906) - m-24907)))) + ((rebuild-macro-output-23041 + (lambda (x-23074 m-23075) + (if (pair? x-23074) + (let ((e-23079 + (cons (rebuild-macro-output-23041 + (car x-23074) + m-23075) + (rebuild-macro-output-23041 + (cdr x-23074) + m-23075)))) (begin - (if (if (pair? e-24911) s-24870 #f) - (set-source-properties! e-24911 s-24870)) - e-24911)) - (if (if (vector? x-24906) - (if (= (vector-length x-24906) 4) - (eq? (vector-ref x-24906 0) 'syntax-object) + (if (if (pair? e-23079) s-23038 #f) + (set-source-properties! e-23079 s-23038)) + e-23079)) + (if (if (vector? x-23074) + (if (= (vector-length x-23074) 4) + (eq? (vector-ref x-23074 0) 'syntax-object) #f) #f) - (let ((w-24927 (vector-ref x-24906 2))) - (let ((ms-24928 (car w-24927)) - (ss-24929 (cdr w-24927))) - (if (if (pair? ms-24928) (eq? (car ms-24928) #f) #f) - (let ((expression-24937 (vector-ref x-24906 1)) - (wrap-24938 - (cons (cdr ms-24928) - (if rib-24871 - (cons rib-24871 (cdr ss-24929)) - (cdr ss-24929)))) - (module-24939 (vector-ref x-24906 3))) + (let ((w-23095 (vector-ref x-23074 2))) + (let ((ms-23096 (car w-23095)) + (ss-23097 (cdr w-23095))) + (if (if (pair? ms-23096) (eq? (car ms-23096) #f) #f) + (let ((expression-23105 (vector-ref x-23074 1)) + (wrap-23106 + (cons (cdr ms-23096) + (if rib-23039 + (cons rib-23039 (cdr ss-23097)) + (cdr ss-23097)))) + (module-23107 (vector-ref x-23074 3))) (vector 'syntax-object - expression-24937 - wrap-24938 - module-24939)) - (let ((expression-24949 - (let ((e-24954 (vector-ref x-24906 1))) + expression-23105 + wrap-23106 + module-23107)) + (let ((expression-23117 + (let ((e-23122 (vector-ref x-23074 1))) (begin - (if (if (pair? e-24954) s-24870 #f) + (if (if (pair? e-23122) s-23038 #f) (set-source-properties! - e-24954 - s-24870)) - e-24954))) - (wrap-24950 - (cons (cons m-24907 ms-24928) - (if rib-24871 - (cons rib-24871 - (cons 'shift ss-24929)) - (cons 'shift ss-24929)))) - (module-24951 (vector-ref x-24906 3))) + e-23122 + s-23038)) + e-23122))) + (wrap-23118 + (cons (cons m-23075 ms-23096) + (if rib-23039 + (cons rib-23039 + (cons 'shift ss-23097)) + (cons 'shift ss-23097)))) + (module-23119 (vector-ref x-23074 3))) (vector 'syntax-object - expression-24949 - wrap-24950 - module-24951))))) - (if (vector? x-24906) - (let ((n-24966 (vector-length x-24906))) - (let ((v-24967 - (let ((e-24975 (make-vector n-24966))) + expression-23117 + wrap-23118 + module-23119))))) + (if (vector? x-23074) + (let ((n-23134 (vector-length x-23074))) + (let ((v-23135 + (let ((e-23143 (make-vector n-23134))) (begin - (if (if (pair? e-24975) s-24870 #f) - (set-source-properties! e-24975 s-24870)) - e-24975)))) + (if (if (pair? e-23143) s-23038 #f) + (set-source-properties! e-23143 s-23038)) + e-23143)))) (letrec* - ((loop-24968 - (lambda (i-25020) - (if (= i-25020 n-24966) - v-24967 + ((loop-23136 + (lambda (i-23188) + (if (= i-23188 n-23134) + v-23135 (begin (vector-set! - v-24967 - i-25020 - (rebuild-macro-output-24873 - (vector-ref x-24906 i-25020) - m-24907)) - (loop-24968 (#{1+}# i-25020))))))) - (loop-24968 0)))) - (if (symbol? x-24906) + v-23135 + i-23188 + (rebuild-macro-output-23041 + (vector-ref x-23074 i-23188) + m-23075)) + (loop-23136 (#{1+}# i-23188))))))) + (loop-23136 0)))) + (if (symbol? x-23074) (syntax-violation #f "encountered raw symbol in macro output" - (let ((s-25026 (cdr w-24869))) - (wrap-6374 + (let ((s-23194 (cdr w-23037))) + (wrap-4323 (begin - (if (if (pair? e-24867) s-25026 #f) - (set-source-properties! e-24867 s-25026)) - e-24867) - w-24869 - mod-24872)) - x-24906) + (if (if (pair? e-23035) s-23194 #f) + (set-source-properties! e-23035 s-23194)) + e-23035) + w-23037 + mod-23040)) + x-23074) (begin - (if (if (pair? x-24906) s-24870 #f) - (set-source-properties! x-24906 s-24870)) - x-24906)))))))) + (if (if (pair? x-23074) s-23038 #f) + (set-source-properties! x-23074 s-23038)) + x-23074)))))))) (with-fluids - ((transformer-environment-6367 - (lambda (k-24874) - (k-24874 - e-24867 - r-24868 - w-24869 - s-24870 - rib-24871 - mod-24872)))) - (rebuild-macro-output-24873 - (p-24866 - (let ((w-24881 - (cons (cons #f (car w-24869)) - (cons 'shift (cdr w-24869))))) - (wrap-6374 + ((transformer-environment-4316 + (lambda (k-23042) + (k-23042 + e-23035 + r-23036 + w-23037 + s-23038 + rib-23039 + mod-23040)))) + (rebuild-macro-output-23041 + (p-23034 + (let ((w-23049 + (cons (cons #f (car w-23037)) + (cons 'shift (cdr w-23037))))) + (wrap-4323 (begin - (if (if (pair? e-24867) s-24870 #f) - (set-source-properties! e-24867 s-24870)) - e-24867) - w-24881 - mod-24872))) + (if (if (pair? e-23035) s-23038 #f) + (set-source-properties! e-23035 s-23038)) + e-23035) + w-23049 + mod-23040))) (gensym - (string-append "m-" (session-id-6306) "-"))))))) - (expand-body-6385 - (lambda (body-25058 - outer-form-25059 - r-25060 - w-25061 - mod-25062) - (let ((r-25063 - (cons '("placeholder" placeholder) r-25060))) - (let ((ribcage-25064 (vector 'ribcage '() '() '()))) - (let ((w-25065 - (cons (car w-25061) - (cons ribcage-25064 (cdr w-25061))))) + (string-append "m-" (session-id-4255) "-"))))))) + (expand-body-4334 + (lambda (body-23226 + outer-form-23227 + r-23228 + w-23229 + mod-23230) + (let ((r-23231 + (cons '("placeholder" placeholder) r-23228))) + (let ((ribcage-23232 (vector 'ribcage '() '() '()))) + (let ((w-23233 + (cons (car w-23229) + (cons ribcage-23232 (cdr w-23229))))) (letrec* - ((parse-25066 - (lambda (body-25079 - ids-25080 - labels-25081 - var-ids-25082 - vars-25083 - vals-25084 - bindings-25085) - (if (null? body-25079) + ((parse-23234 + (lambda (body-23247 + ids-23248 + labels-23249 + var-ids-23250 + vars-23251 + vals-23252 + bindings-23253) + (if (null? body-23247) (syntax-violation #f "no expressions in body" - outer-form-25059) - (let ((e-25086 (cdr (car body-25079))) - (er-25087 (car (car body-25079)))) + outer-form-23227) + (let ((e-23254 (cdr (car body-23247))) + (er-23255 (car (car body-23247)))) (call-with-values (lambda () - (syntax-type-6380 - e-25086 - er-25087 + (syntax-type-4329 + e-23254 + er-23255 '(()) - (source-annotation-6338 er-25087) - ribcage-25064 - mod-25062 + (source-annotation-4287 er-23255) + ribcage-23232 + mod-23230 #f)) - (lambda (type-25244 - value-25245 - form-25246 - e-25247 - w-25248 - s-25249 - mod-25250) - (if (eqv? type-25244 'define-form) - (let ((id-25258 - (wrap-6374 - value-25245 - w-25248 - mod-25250)) - (label-25259 + (lambda (type-23412 + value-23413 + form-23414 + e-23415 + w-23416 + s-23417 + mod-23418) + (if (eqv? type-23412 'define-form) + (let ((id-23426 + (wrap-4323 + value-23413 + w-23416 + mod-23418)) + (label-23427 (string-append "l-" - (session-id-6306) + (session-id-4255) (symbol->string (gensym "-"))))) - (let ((var-25260 - (let ((id-25320 - (if (if (vector? id-25258) + (let ((var-23428 + (let ((id-23488 + (if (if (vector? id-23426) (if (= (vector-length - id-25258) + id-23426) 4) (eq? (vector-ref - id-25258 + id-23426 0) 'syntax-object) #f) #f) - (vector-ref id-25258 1) - id-25258))) + (vector-ref id-23426 1) + id-23426))) (gensym (string-append - (symbol->string id-25320) + (symbol->string id-23488) "-"))))) (begin - (let ((update-25310 - (cons (vector-ref id-25258 1) + (let ((update-23478 + (cons (vector-ref id-23426 1) (vector-ref - ribcage-25064 + ribcage-23232 1)))) (vector-set! - ribcage-25064 + ribcage-23232 1 - update-25310)) - (let ((update-25312 + update-23478)) + (let ((update-23480 (cons (car (vector-ref - id-25258 + id-23426 2)) (vector-ref - ribcage-25064 + ribcage-23232 2)))) (vector-set! - ribcage-25064 + ribcage-23232 2 - update-25312)) - (let ((update-25314 - (cons label-25259 + update-23480)) + (let ((update-23482 + (cons label-23427 (vector-ref - ribcage-25064 + ribcage-23232 3)))) (vector-set! - ribcage-25064 + ribcage-23232 3 - update-25314)) - (parse-25066 - (cdr body-25079) - (cons id-25258 ids-25080) - (cons label-25259 labels-25081) - (cons id-25258 var-ids-25082) - (cons var-25260 vars-25083) - (cons (cons er-25087 - (wrap-6374 - e-25247 - w-25248 - mod-25250)) - vals-25084) - (cons (cons 'lexical var-25260) - bindings-25085))))) - (if (if (eqv? type-25244 'define-syntax-form) + update-23482)) + (parse-23234 + (cdr body-23247) + (cons id-23426 ids-23248) + (cons label-23427 labels-23249) + (cons id-23426 var-ids-23250) + (cons var-23428 vars-23251) + (cons (cons er-23255 + (wrap-4323 + e-23415 + w-23416 + mod-23418)) + vals-23252) + (cons (cons 'lexical var-23428) + bindings-23253))))) + (if (if (eqv? type-23412 'define-syntax-form) #t - (eqv? type-25244 + (eqv? type-23412 'define-syntax-parameter-form)) - (let ((id-25356 - (wrap-6374 - value-25245 - w-25248 - mod-25250)) - (label-25357 + (let ((id-23524 + (wrap-4323 + value-23413 + w-23416 + mod-23418)) + (label-23525 (string-append "l-" - (session-id-6306) + (session-id-4255) (symbol->string (gensym "-"))))) (begin - (let ((update-25407 - (cons (vector-ref id-25356 1) + (let ((update-23575 + (cons (vector-ref id-23524 1) (vector-ref - ribcage-25064 + ribcage-23232 1)))) (vector-set! - ribcage-25064 + ribcage-23232 1 - update-25407)) - (let ((update-25409 + update-23575)) + (let ((update-23577 (cons (car (vector-ref - id-25356 + id-23524 2)) (vector-ref - ribcage-25064 + ribcage-23232 2)))) (vector-set! - ribcage-25064 + ribcage-23232 2 - update-25409)) - (let ((update-25411 - (cons label-25357 + update-23577)) + (let ((update-23579 + (cons label-23525 (vector-ref - ribcage-25064 + ribcage-23232 3)))) (vector-set! - ribcage-25064 + ribcage-23232 3 - update-25411)) - (parse-25066 - (cdr body-25079) - (cons id-25356 ids-25080) - (cons label-25357 labels-25081) - var-ids-25082 - vars-25083 - vals-25084 + update-23579)) + (parse-23234 + (cdr body-23247) + (cons id-23524 ids-23248) + (cons label-23525 labels-23249) + var-ids-23250 + vars-23251 + vals-23252 (cons (cons 'macro - (cons er-25087 - (wrap-6374 - e-25247 - w-25248 - mod-25250))) - bindings-25085)))) - (if (eqv? type-25244 'begin-form) - (let ((tmp-25422 + (cons er-23255 + (wrap-4323 + e-23415 + w-23416 + mod-23418))) + bindings-23253)))) + (if (eqv? type-23412 'begin-form) + (let ((tmp-23590 ($sc-dispatch - e-25247 + e-23415 '(_ . each-any)))) - (if tmp-25422 + (if tmp-23590 (@apply - (lambda (e1-25426) - (parse-25066 + (lambda (e1-23594) + (parse-23234 (letrec* - ((f-25427 - (lambda (forms-25490) - (if (null? forms-25490) - (cdr body-25079) - (cons (cons er-25087 - (wrap-6374 - (car forms-25490) - w-25248 - mod-25250)) - (f-25427 - (cdr forms-25490))))))) - (f-25427 e1-25426)) - ids-25080 - labels-25081 - var-ids-25082 - vars-25083 - vals-25084 - bindings-25085)) - tmp-25422) + ((f-23595 + (lambda (forms-23658) + (if (null? forms-23658) + (cdr body-23247) + (cons (cons er-23255 + (wrap-4323 + (car forms-23658) + w-23416 + mod-23418)) + (f-23595 + (cdr forms-23658))))))) + (f-23595 e1-23594)) + ids-23248 + labels-23249 + var-ids-23250 + vars-23251 + vals-23252 + bindings-23253)) + tmp-23590) (syntax-violation #f "source expression failed to match any pattern" - e-25247))) - (if (eqv? type-25244 'local-syntax-form) - (expand-local-syntax-6386 - value-25245 - e-25247 - er-25087 - w-25248 - s-25249 - mod-25250 - (lambda (forms-25507 - er-25508 - w-25509 - s-25510 - mod-25511) - (parse-25066 + e-23415))) + (if (eqv? type-23412 'local-syntax-form) + (expand-local-syntax-4335 + value-23413 + e-23415 + er-23255 + w-23416 + s-23417 + mod-23418 + (lambda (forms-23675 + er-23676 + w-23677 + s-23678 + mod-23679) + (parse-23234 (letrec* - ((f-25512 - (lambda (forms-25575) - (if (null? forms-25575) - (cdr body-25079) - (cons (cons er-25508 - (wrap-6374 - (car forms-25575) - w-25509 - mod-25511)) - (f-25512 - (cdr forms-25575))))))) - (f-25512 forms-25507)) - ids-25080 - labels-25081 - var-ids-25082 - vars-25083 - vals-25084 - bindings-25085))) - (if (null? ids-25080) - (build-sequence-6326 + ((f-23680 + (lambda (forms-23743) + (if (null? forms-23743) + (cdr body-23247) + (cons (cons er-23676 + (wrap-4323 + (car forms-23743) + w-23677 + mod-23679)) + (f-23680 + (cdr forms-23743))))))) + (f-23680 forms-23675)) + ids-23248 + labels-23249 + var-ids-23250 + vars-23251 + vals-23252 + bindings-23253))) + (if (null? ids-23248) + (build-sequence-4275 #f - (map (lambda (x-25640) - (let ((e-25644 (cdr x-25640)) - (r-25645 (car x-25640))) + (map (lambda (x-23808) + (let ((e-23812 (cdr x-23808)) + (r-23813 (car x-23808))) (call-with-values (lambda () - (syntax-type-6380 - e-25644 - r-25645 + (syntax-type-4329 + e-23812 + r-23813 '(()) - (source-annotation-6338 - e-25644) + (source-annotation-4287 + e-23812) #f - mod-25250 + mod-23418 #f)) - (lambda (type-25649 - value-25650 - form-25651 - e-25652 - w-25653 - s-25654 - mod-25655) - (expand-expr-6382 - type-25649 - value-25650 - form-25651 - e-25652 - r-25645 - w-25653 - s-25654 - mod-25655))))) - (cons (cons er-25087 - (wrap-6374 + (lambda (type-23817 + value-23818 + form-23819 + e-23820 + w-23821 + s-23822 + mod-23823) + (expand-expr-4331 + type-23817 + value-23818 + form-23819 + e-23820 + r-23813 + w-23821 + s-23822 + mod-23823))))) + (cons (cons er-23255 + (wrap-4323 (begin - (if (if (pair? e-25247) - s-25249 + (if (if (pair? e-23415) + s-23417 #f) (set-source-properties! - e-25247 - s-25249)) - e-25247) - w-25248 - mod-25250)) - (cdr body-25079)))) + e-23415 + s-23417)) + e-23415) + w-23416 + mod-23418)) + (cdr body-23247)))) (begin - (if (not (valid-bound-ids?-6371 - ids-25080)) + (if (not (valid-bound-ids?-4320 + ids-23248)) (syntax-violation #f "invalid or duplicate identifier in definition" - outer-form-25059)) + outer-form-23227)) (letrec* - ((loop-25756 - (lambda (bs-25759 - er-cache-25760 - r-cache-25761) - (if (not (null? bs-25759)) - (let ((b-25762 - (car bs-25759))) - (if (eq? (car b-25762) + ((loop-23924 + (lambda (bs-23927 + er-cache-23928 + r-cache-23929) + (if (not (null? bs-23927)) + (let ((b-23930 + (car bs-23927))) + (if (eq? (car b-23930) 'macro) - (let ((er-25764 - (car (cdr b-25762)))) - (let ((r-cache-25765 - (if (eq? er-25764 - er-cache-25760) - r-cache-25761 - (macros-only-env-6341 - er-25764)))) + (let ((er-23932 + (car (cdr b-23930)))) + (let ((r-cache-23933 + (if (eq? er-23932 + er-cache-23928) + r-cache-23929 + (macros-only-env-4290 + er-23932)))) (begin (set-cdr! - b-25762 - (eval-local-transformer-6387 - (expand-6381 - (cdr (cdr b-25762)) - r-cache-25765 + b-23930 + (eval-local-transformer-4336 + (expand-4330 + (cdr (cdr b-23930)) + r-cache-23933 '(()) - mod-25250) - mod-25250)) - (loop-25756 - (cdr bs-25759) - er-25764 - r-cache-25765)))) - (loop-25756 - (cdr bs-25759) - er-cache-25760 - r-cache-25761))))))) - (loop-25756 bindings-25085 #f #f)) + mod-23418) + mod-23418)) + (loop-23924 + (cdr bs-23927) + er-23932 + r-cache-23933)))) + (loop-23924 + (cdr bs-23927) + er-cache-23928 + r-cache-23929))))))) + (loop-23924 bindings-23253 #f #f)) (set-cdr! - r-25063 - (extend-env-6339 - labels-25081 - bindings-25085 - (cdr r-25063))) - (build-letrec-6329 + r-23231 + (extend-env-4288 + labels-23249 + bindings-23253 + (cdr r-23231))) + (build-letrec-4278 #f #t (reverse (map syntax->datum - var-ids-25082)) - (reverse vars-25083) - (map (lambda (x-26108) - (let ((e-26112 - (cdr x-26108)) - (r-26113 - (car x-26108))) + var-ids-23250)) + (reverse vars-23251) + (map (lambda (x-24276) + (let ((e-24280 + (cdr x-24276)) + (r-24281 + (car x-24276))) (call-with-values (lambda () - (syntax-type-6380 - e-26112 - r-26113 + (syntax-type-4329 + e-24280 + r-24281 '(()) - (source-annotation-6338 - e-26112) + (source-annotation-4287 + e-24280) #f - mod-25250 + mod-23418 #f)) - (lambda (type-26117 - value-26118 - form-26119 - e-26120 - w-26121 - s-26122 - mod-26123) - (expand-expr-6382 - type-26117 - value-26118 - form-26119 - e-26120 - r-26113 - w-26121 - s-26122 - mod-26123))))) - (reverse vals-25084)) - (let ((exps-26129 - (map (lambda (x-26130) - (let ((e-26133 - (cdr x-26130)) - (r-26134 - (car x-26130))) + (lambda (type-24285 + value-24286 + form-24287 + e-24288 + w-24289 + s-24290 + mod-24291) + (expand-expr-4331 + type-24285 + value-24286 + form-24287 + e-24288 + r-24281 + w-24289 + s-24290 + mod-24291))))) + (reverse vals-23252)) + (let ((exps-24297 + (map (lambda (x-24298) + (let ((e-24301 + (cdr x-24298)) + (r-24302 + (car x-24298))) (call-with-values (lambda () - (syntax-type-6380 - e-26133 - r-26134 + (syntax-type-4329 + e-24301 + r-24302 '(()) - (source-annotation-6338 - e-26133) + (source-annotation-4287 + e-24301) #f - mod-25250 + mod-23418 #f)) - (lambda (type-26138 - value-26139 - form-26140 - e-26141 - w-26142 - s-26143 - mod-26144) - (expand-expr-6382 - type-26138 - value-26139 - form-26140 - e-26141 - r-26134 - w-26142 - s-26143 - mod-26144))))) - (cons (cons er-25087 - (wrap-6374 + (lambda (type-24306 + value-24307 + form-24308 + e-24309 + w-24310 + s-24311 + mod-24312) + (expand-expr-4331 + type-24306 + value-24307 + form-24308 + e-24309 + r-24302 + w-24310 + s-24311 + mod-24312))))) + (cons (cons er-23255 + (wrap-4323 (begin - (if (if (pair? e-25247) - s-25249 + (if (if (pair? e-23415) + s-23417 #f) (set-source-properties! - e-25247 - s-25249)) - e-25247) - w-25248 - mod-25250)) - (cdr body-25079))))) - (if (null? (cdr exps-26129)) - (car exps-26129) + e-23415 + s-23417)) + e-23415) + w-23416 + mod-23418)) + (cdr body-23247))))) + (if (null? (cdr exps-24297)) + (car exps-24297) (make-struct/no-tail (vector-ref %expanded-vtables 12) #f - exps-26129))))))))))))))))) - (parse-25066 - (map (lambda (x-25069) - (cons r-25063 - (wrap-6374 x-25069 w-25065 mod-25062))) - body-25058) + exps-24297))))))))))))))))) + (parse-23234 + (map (lambda (x-23237) + (cons r-23231 + (wrap-4323 x-23237 w-23233 mod-23230))) + body-23226) '() '() '() '() '() '()))))))) - (expand-local-syntax-6386 - (lambda (rec?-26170 - e-26171 - r-26172 - w-26173 - s-26174 - mod-26175 - k-26176) - (let ((tmp-26178 + (expand-local-syntax-4335 + (lambda (rec?-24338 + e-24339 + r-24340 + w-24341 + s-24342 + mod-24343 + k-24344) + (let ((tmp-24346 ($sc-dispatch - e-26171 + e-24339 '(_ #(each (any any)) any . each-any)))) - (if tmp-26178 + (if tmp-24346 (@apply - (lambda (id-26182 val-26183 e1-26184 e2-26185) - (if (not (valid-bound-ids?-6371 id-26182)) + (lambda (id-24350 val-24351 e1-24352 e2-24353) + (if (not (valid-bound-ids?-4320 id-24350)) (syntax-violation #f "duplicate bound keyword" - e-26171) - (let ((labels-26275 (gen-labels-6348 id-26182))) - (let ((new-w-26276 - (make-binding-wrap-6359 - id-26182 - labels-26275 - w-26173))) - (k-26176 - (cons e1-26184 e2-26185) - (extend-env-6339 - labels-26275 - (let ((trans-r-26312 - (macros-only-env-6341 r-26172))) + e-24339) + (let ((labels-24443 (gen-labels-4297 id-24350))) + (let ((new-w-24444 + (make-binding-wrap-4308 + id-24350 + labels-24443 + w-24341))) + (k-24344 + (cons e1-24352 e2-24353) + (extend-env-4288 + labels-24443 + (let ((trans-r-24480 + (macros-only-env-4290 r-24340))) (begin - (if rec?-26170 new-w-26276 w-26173) - (map (lambda (x-26313) + (if rec?-24338 new-w-24444 w-24341) + (map (lambda (x-24481) (cons 'macro - (eval-local-transformer-6387 - (expand-6381 - x-26313 - trans-r-26312 + (eval-local-transformer-4336 + (expand-4330 + x-24481 + trans-r-24480 (values - (if rec?-26170 - new-w-26276 - w-26173)) - mod-26175) - mod-26175))) - val-26183))) - r-26172) - new-w-26276 - s-26174 - mod-26175))))) - tmp-26178) + (if rec?-24338 + new-w-24444 + w-24341)) + mod-24343) + mod-24343))) + val-24351))) + r-24340) + new-w-24444 + s-24342 + mod-24343))))) + tmp-24346) (syntax-violation #f "bad local syntax definition" - (wrap-6374 + (wrap-4323 (begin - (if (if (pair? e-26171) s-26174 #f) - (set-source-properties! e-26171 s-26174)) - e-26171) - w-26173 - mod-26175)))))) - (eval-local-transformer-6387 - (lambda (expanded-26593 mod-26594) - (let ((p-26595 (primitive-eval expanded-26593))) - (if (procedure? p-26595) - p-26595 + (if (if (pair? e-24339) s-24342 #f) + (set-source-properties! e-24339 s-24342)) + e-24339) + w-24341 + mod-24343)))))) + (eval-local-transformer-4336 + (lambda (expanded-24761 mod-24762) + (let ((p-24763 (primitive-eval expanded-24761))) + (if (procedure? p-24763) + p-24763 (syntax-violation #f "nonprocedure transformer" - p-26595))))) - (ellipsis?-6389 - (lambda (x-7050) - (if (if (if (vector? x-7050) - (if (= (vector-length x-7050) 4) - (eq? (vector-ref x-7050 0) 'syntax-object) + p-24763))))) + (ellipsis?-4338 + (lambda (x-4999) + (if (if (if (vector? x-4999) + (if (= (vector-length x-4999) 4) + (eq? (vector-ref x-4999 0) 'syntax-object) #f) #f) - (symbol? (vector-ref x-7050 1)) + (symbol? (vector-ref x-4999 1)) #f) - (if (eq? (if (if (vector? x-7050) - (if (= (vector-length x-7050) 4) - (eq? (vector-ref x-7050 0) 'syntax-object) + (if (eq? (if (if (vector? x-4999) + (if (= (vector-length x-4999) 4) + (eq? (vector-ref x-4999 0) 'syntax-object) #f) #f) - (vector-ref x-7050 1) - x-7050) + (vector-ref x-4999 1) + x-4999) (if (if (= (vector-length '#(syntax-object ... ((top) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-4317")) + #(ribcage #(x) #((top)) #("l-*-2266")) #(ribcage (lambda-var-list gen-var @@ -5122,152 +5122,152 @@ (top) (top) (top)) - ("l-*-2527" - "l-*-2525" - "l-*-2523" - "l-*-2521" - "l-*-2519" - "l-*-2517" - "l-*-2515" - "l-*-2513" - "l-*-2511" - "l-*-2509" - "l-*-2507" - "l-*-2505" - "l-*-2503" - "l-*-2501" - "l-*-2499" - "l-*-2497" - "l-*-2495" - "l-*-2493" - "l-*-2491" - "l-*-2489" - "l-*-2487" - "l-*-2485" - "l-*-2483" - "l-*-2481" - "l-*-2479" - "l-*-2477" - "l-*-2475" - "l-*-2473" - "l-*-2471" - "l-*-2469" - "l-*-2467" - "l-*-2465" - "l-*-2463" - "l-*-2461" - "l-*-2459" - "l-*-2457" - "l-*-2455" - "l-*-2453" - "l-*-2451" - "l-*-2450" - "l-*-2448" - "l-*-2445" - "l-*-2444" - "l-*-2443" - "l-*-2441" - "l-*-2440" - "l-*-2438" - "l-*-2436" - "l-*-2434" - "l-*-2432" - "l-*-2430" - "l-*-2428" - "l-*-2426" - "l-*-2424" - "l-*-2421" - "l-*-2419" - "l-*-2418" - "l-*-2416" - "l-*-2414" - "l-*-2412" - "l-*-2410" - "l-*-2409" - "l-*-2408" - "l-*-2407" - "l-*-2405" - "l-*-2404" - "l-*-2401" - "l-*-2399" - "l-*-2397" - "l-*-2395" - "l-*-2393" - "l-*-2391" - "l-*-2389" - "l-*-2388" - "l-*-2387" - "l-*-2385" - "l-*-2383" - "l-*-2382" - "l-*-2379" - "l-*-2378" - "l-*-2376" - "l-*-2374" - "l-*-2372" - "l-*-2370" - "l-*-2368" - "l-*-2366" - "l-*-2364" - "l-*-2362" - "l-*-2360" - "l-*-2357" - "l-*-2355" - "l-*-2353" - "l-*-2351" - "l-*-2349" - "l-*-2347" - "l-*-2345" - "l-*-2343" - "l-*-2341" - "l-*-2339" - "l-*-2337" - "l-*-2335" - "l-*-2333" - "l-*-2331" - "l-*-2329" - "l-*-2327" - "l-*-2325" - "l-*-2323" - "l-*-2321" - "l-*-2319" - "l-*-2317" - "l-*-2315" - "l-*-2313" - "l-*-2311" - "l-*-2309" - "l-*-2307" - "l-*-2306" - "l-*-2305" - "l-*-2304" - "l-*-2303" - "l-*-2301" - "l-*-2299" - "l-*-2297" - "l-*-2294" - "l-*-2292" - "l-*-2290" - "l-*-2288" - "l-*-2286" - "l-*-2284" - "l-*-2282" - "l-*-2280" - "l-*-2278" - "l-*-2276" - "l-*-2274" - "l-*-2272" - "l-*-2270" - "l-*-2268" - "l-*-2266" - "l-*-2264" - "l-*-2262" - "l-*-2260")) + ("l-*-476" + "l-*-474" + "l-*-472" + "l-*-470" + "l-*-468" + "l-*-466" + "l-*-464" + "l-*-462" + "l-*-460" + "l-*-458" + "l-*-456" + "l-*-454" + "l-*-452" + "l-*-450" + "l-*-448" + "l-*-446" + "l-*-444" + "l-*-442" + "l-*-440" + "l-*-438" + "l-*-436" + "l-*-434" + "l-*-432" + "l-*-430" + "l-*-428" + "l-*-426" + "l-*-424" + "l-*-422" + "l-*-420" + "l-*-418" + "l-*-416" + "l-*-414" + "l-*-412" + "l-*-410" + "l-*-408" + "l-*-406" + "l-*-404" + "l-*-402" + "l-*-400" + "l-*-399" + "l-*-397" + "l-*-394" + "l-*-393" + "l-*-392" + "l-*-390" + "l-*-389" + "l-*-387" + "l-*-385" + "l-*-383" + "l-*-381" + "l-*-379" + "l-*-377" + "l-*-375" + "l-*-373" + "l-*-370" + "l-*-368" + "l-*-367" + "l-*-365" + "l-*-363" + "l-*-361" + "l-*-359" + "l-*-358" + "l-*-357" + "l-*-356" + "l-*-354" + "l-*-353" + "l-*-350" + "l-*-348" + "l-*-346" + "l-*-344" + "l-*-342" + "l-*-340" + "l-*-338" + "l-*-337" + "l-*-336" + "l-*-334" + "l-*-332" + "l-*-331" + "l-*-328" + "l-*-327" + "l-*-325" + "l-*-323" + "l-*-321" + "l-*-319" + "l-*-317" + "l-*-315" + "l-*-313" + "l-*-311" + "l-*-309" + "l-*-306" + "l-*-304" + "l-*-302" + "l-*-300" + "l-*-298" + "l-*-296" + "l-*-294" + "l-*-292" + "l-*-290" + "l-*-288" + "l-*-286" + "l-*-284" + "l-*-282" + "l-*-280" + "l-*-278" + "l-*-276" + "l-*-274" + "l-*-272" + "l-*-270" + "l-*-268" + "l-*-266" + "l-*-264" + "l-*-262" + "l-*-260" + "l-*-258" + "l-*-256" + "l-*-255" + "l-*-254" + "l-*-253" + "l-*-252" + "l-*-250" + "l-*-248" + "l-*-246" + "l-*-243" + "l-*-241" + "l-*-239" + "l-*-237" + "l-*-235" + "l-*-233" + "l-*-231" + "l-*-229" + "l-*-227" + "l-*-225" + "l-*-223" + "l-*-221" + "l-*-219" + "l-*-217" + "l-*-215" + "l-*-213" + "l-*-211" + "l-*-209")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("l-*-2098" "l-*-2097" "l-*-2096"))) + ("l-*-47" "l-*-46" "l-*-45"))) (hygiene guile))) 4) #t @@ -5278,7 +5278,7 @@ ((top) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-4317")) + #(ribcage #(x) #((top)) #("l-*-2266")) #(ribcage (lambda-var-list gen-var @@ -5560,161 +5560,161 @@ (top) (top) (top)) - ("l-*-2527" - "l-*-2525" - "l-*-2523" - "l-*-2521" - "l-*-2519" - "l-*-2517" - "l-*-2515" - "l-*-2513" - "l-*-2511" - "l-*-2509" - "l-*-2507" - "l-*-2505" - "l-*-2503" - "l-*-2501" - "l-*-2499" - "l-*-2497" - "l-*-2495" - "l-*-2493" - "l-*-2491" - "l-*-2489" - "l-*-2487" - "l-*-2485" - "l-*-2483" - "l-*-2481" - "l-*-2479" - "l-*-2477" - "l-*-2475" - "l-*-2473" - "l-*-2471" - "l-*-2469" - "l-*-2467" - "l-*-2465" - "l-*-2463" - "l-*-2461" - "l-*-2459" - "l-*-2457" - "l-*-2455" - "l-*-2453" - "l-*-2451" - "l-*-2450" - "l-*-2448" - "l-*-2445" - "l-*-2444" - "l-*-2443" - "l-*-2441" - "l-*-2440" - "l-*-2438" - "l-*-2436" - "l-*-2434" - "l-*-2432" - "l-*-2430" - "l-*-2428" - "l-*-2426" - "l-*-2424" - "l-*-2421" - "l-*-2419" - "l-*-2418" - "l-*-2416" - "l-*-2414" - "l-*-2412" - "l-*-2410" - "l-*-2409" - "l-*-2408" - "l-*-2407" - "l-*-2405" - "l-*-2404" - "l-*-2401" - "l-*-2399" - "l-*-2397" - "l-*-2395" - "l-*-2393" - "l-*-2391" - "l-*-2389" - "l-*-2388" - "l-*-2387" - "l-*-2385" - "l-*-2383" - "l-*-2382" - "l-*-2379" - "l-*-2378" - "l-*-2376" - "l-*-2374" - "l-*-2372" - "l-*-2370" - "l-*-2368" - "l-*-2366" - "l-*-2364" - "l-*-2362" - "l-*-2360" - "l-*-2357" - "l-*-2355" - "l-*-2353" - "l-*-2351" - "l-*-2349" - "l-*-2347" - "l-*-2345" - "l-*-2343" - "l-*-2341" - "l-*-2339" - "l-*-2337" - "l-*-2335" - "l-*-2333" - "l-*-2331" - "l-*-2329" - "l-*-2327" - "l-*-2325" - "l-*-2323" - "l-*-2321" - "l-*-2319" - "l-*-2317" - "l-*-2315" - "l-*-2313" - "l-*-2311" - "l-*-2309" - "l-*-2307" - "l-*-2306" - "l-*-2305" - "l-*-2304" - "l-*-2303" - "l-*-2301" - "l-*-2299" - "l-*-2297" - "l-*-2294" - "l-*-2292" - "l-*-2290" - "l-*-2288" - "l-*-2286" - "l-*-2284" - "l-*-2282" - "l-*-2280" - "l-*-2278" - "l-*-2276" - "l-*-2274" - "l-*-2272" - "l-*-2270" - "l-*-2268" - "l-*-2266" - "l-*-2264" - "l-*-2262" - "l-*-2260")) + ("l-*-476" + "l-*-474" + "l-*-472" + "l-*-470" + "l-*-468" + "l-*-466" + "l-*-464" + "l-*-462" + "l-*-460" + "l-*-458" + "l-*-456" + "l-*-454" + "l-*-452" + "l-*-450" + "l-*-448" + "l-*-446" + "l-*-444" + "l-*-442" + "l-*-440" + "l-*-438" + "l-*-436" + "l-*-434" + "l-*-432" + "l-*-430" + "l-*-428" + "l-*-426" + "l-*-424" + "l-*-422" + "l-*-420" + "l-*-418" + "l-*-416" + "l-*-414" + "l-*-412" + "l-*-410" + "l-*-408" + "l-*-406" + "l-*-404" + "l-*-402" + "l-*-400" + "l-*-399" + "l-*-397" + "l-*-394" + "l-*-393" + "l-*-392" + "l-*-390" + "l-*-389" + "l-*-387" + "l-*-385" + "l-*-383" + "l-*-381" + "l-*-379" + "l-*-377" + "l-*-375" + "l-*-373" + "l-*-370" + "l-*-368" + "l-*-367" + "l-*-365" + "l-*-363" + "l-*-361" + "l-*-359" + "l-*-358" + "l-*-357" + "l-*-356" + "l-*-354" + "l-*-353" + "l-*-350" + "l-*-348" + "l-*-346" + "l-*-344" + "l-*-342" + "l-*-340" + "l-*-338" + "l-*-337" + "l-*-336" + "l-*-334" + "l-*-332" + "l-*-331" + "l-*-328" + "l-*-327" + "l-*-325" + "l-*-323" + "l-*-321" + "l-*-319" + "l-*-317" + "l-*-315" + "l-*-313" + "l-*-311" + "l-*-309" + "l-*-306" + "l-*-304" + "l-*-302" + "l-*-300" + "l-*-298" + "l-*-296" + "l-*-294" + "l-*-292" + "l-*-290" + "l-*-288" + "l-*-286" + "l-*-284" + "l-*-282" + "l-*-280" + "l-*-278" + "l-*-276" + "l-*-274" + "l-*-272" + "l-*-270" + "l-*-268" + "l-*-266" + "l-*-264" + "l-*-262" + "l-*-260" + "l-*-258" + "l-*-256" + "l-*-255" + "l-*-254" + "l-*-253" + "l-*-252" + "l-*-250" + "l-*-248" + "l-*-246" + "l-*-243" + "l-*-241" + "l-*-239" + "l-*-237" + "l-*-235" + "l-*-233" + "l-*-231" + "l-*-229" + "l-*-227" + "l-*-225" + "l-*-223" + "l-*-221" + "l-*-219" + "l-*-217" + "l-*-215" + "l-*-213" + "l-*-211" + "l-*-209")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("l-*-2098" "l-*-2097" "l-*-2096"))) + ("l-*-47" "l-*-46" "l-*-45"))) (hygiene guile)))) - (eq? (id-var-name-6364 x-7050 '(())) - (id-var-name-6364 + (eq? (id-var-name-4313 x-4999 '(())) + (id-var-name-4313 '#(syntax-object ... ((top) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-4317")) + #(ribcage #(x) #((top)) #("l-*-2266")) #(ribcage (lambda-var-list gen-var @@ -5996,420 +5996,420 @@ (top) (top) (top)) - ("l-*-2527" - "l-*-2525" - "l-*-2523" - "l-*-2521" - "l-*-2519" - "l-*-2517" - "l-*-2515" - "l-*-2513" - "l-*-2511" - "l-*-2509" - "l-*-2507" - "l-*-2505" - "l-*-2503" - "l-*-2501" - "l-*-2499" - "l-*-2497" - "l-*-2495" - "l-*-2493" - "l-*-2491" - "l-*-2489" - "l-*-2487" - "l-*-2485" - "l-*-2483" - "l-*-2481" - "l-*-2479" - "l-*-2477" - "l-*-2475" - "l-*-2473" - "l-*-2471" - "l-*-2469" - "l-*-2467" - "l-*-2465" - "l-*-2463" - "l-*-2461" - "l-*-2459" - "l-*-2457" - "l-*-2455" - "l-*-2453" - "l-*-2451" - "l-*-2450" - "l-*-2448" - "l-*-2445" - "l-*-2444" - "l-*-2443" - "l-*-2441" - "l-*-2440" - "l-*-2438" - "l-*-2436" - "l-*-2434" - "l-*-2432" - "l-*-2430" - "l-*-2428" - "l-*-2426" - "l-*-2424" - "l-*-2421" - "l-*-2419" - "l-*-2418" - "l-*-2416" - "l-*-2414" - "l-*-2412" - "l-*-2410" - "l-*-2409" - "l-*-2408" - "l-*-2407" - "l-*-2405" - "l-*-2404" - "l-*-2401" - "l-*-2399" - "l-*-2397" - "l-*-2395" - "l-*-2393" - "l-*-2391" - "l-*-2389" - "l-*-2388" - "l-*-2387" - "l-*-2385" - "l-*-2383" - "l-*-2382" - "l-*-2379" - "l-*-2378" - "l-*-2376" - "l-*-2374" - "l-*-2372" - "l-*-2370" - "l-*-2368" - "l-*-2366" - "l-*-2364" - "l-*-2362" - "l-*-2360" - "l-*-2357" - "l-*-2355" - "l-*-2353" - "l-*-2351" - "l-*-2349" - "l-*-2347" - "l-*-2345" - "l-*-2343" - "l-*-2341" - "l-*-2339" - "l-*-2337" - "l-*-2335" - "l-*-2333" - "l-*-2331" - "l-*-2329" - "l-*-2327" - "l-*-2325" - "l-*-2323" - "l-*-2321" - "l-*-2319" - "l-*-2317" - "l-*-2315" - "l-*-2313" - "l-*-2311" - "l-*-2309" - "l-*-2307" - "l-*-2306" - "l-*-2305" - "l-*-2304" - "l-*-2303" - "l-*-2301" - "l-*-2299" - "l-*-2297" - "l-*-2294" - "l-*-2292" - "l-*-2290" - "l-*-2288" - "l-*-2286" - "l-*-2284" - "l-*-2282" - "l-*-2280" - "l-*-2278" - "l-*-2276" - "l-*-2274" - "l-*-2272" - "l-*-2270" - "l-*-2268" - "l-*-2266" - "l-*-2264" - "l-*-2262" - "l-*-2260")) + ("l-*-476" + "l-*-474" + "l-*-472" + "l-*-470" + "l-*-468" + "l-*-466" + "l-*-464" + "l-*-462" + "l-*-460" + "l-*-458" + "l-*-456" + "l-*-454" + "l-*-452" + "l-*-450" + "l-*-448" + "l-*-446" + "l-*-444" + "l-*-442" + "l-*-440" + "l-*-438" + "l-*-436" + "l-*-434" + "l-*-432" + "l-*-430" + "l-*-428" + "l-*-426" + "l-*-424" + "l-*-422" + "l-*-420" + "l-*-418" + "l-*-416" + "l-*-414" + "l-*-412" + "l-*-410" + "l-*-408" + "l-*-406" + "l-*-404" + "l-*-402" + "l-*-400" + "l-*-399" + "l-*-397" + "l-*-394" + "l-*-393" + "l-*-392" + "l-*-390" + "l-*-389" + "l-*-387" + "l-*-385" + "l-*-383" + "l-*-381" + "l-*-379" + "l-*-377" + "l-*-375" + "l-*-373" + "l-*-370" + "l-*-368" + "l-*-367" + "l-*-365" + "l-*-363" + "l-*-361" + "l-*-359" + "l-*-358" + "l-*-357" + "l-*-356" + "l-*-354" + "l-*-353" + "l-*-350" + "l-*-348" + "l-*-346" + "l-*-344" + "l-*-342" + "l-*-340" + "l-*-338" + "l-*-337" + "l-*-336" + "l-*-334" + "l-*-332" + "l-*-331" + "l-*-328" + "l-*-327" + "l-*-325" + "l-*-323" + "l-*-321" + "l-*-319" + "l-*-317" + "l-*-315" + "l-*-313" + "l-*-311" + "l-*-309" + "l-*-306" + "l-*-304" + "l-*-302" + "l-*-300" + "l-*-298" + "l-*-296" + "l-*-294" + "l-*-292" + "l-*-290" + "l-*-288" + "l-*-286" + "l-*-284" + "l-*-282" + "l-*-280" + "l-*-278" + "l-*-276" + "l-*-274" + "l-*-272" + "l-*-270" + "l-*-268" + "l-*-266" + "l-*-264" + "l-*-262" + "l-*-260" + "l-*-258" + "l-*-256" + "l-*-255" + "l-*-254" + "l-*-253" + "l-*-252" + "l-*-250" + "l-*-248" + "l-*-246" + "l-*-243" + "l-*-241" + "l-*-239" + "l-*-237" + "l-*-235" + "l-*-233" + "l-*-231" + "l-*-229" + "l-*-227" + "l-*-225" + "l-*-223" + "l-*-221" + "l-*-219" + "l-*-217" + "l-*-215" + "l-*-213" + "l-*-211" + "l-*-209")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("l-*-2098" "l-*-2097" "l-*-2096"))) + ("l-*-47" "l-*-46" "l-*-45"))) (hygiene guile)) '(()))) #f) #f))) - (lambda-formals-6390 - (lambda (orig-args-26600) + (lambda-formals-4339 + (lambda (orig-args-24768) (letrec* - ((req-26601 - (lambda (args-26605 rreq-26606) - (let ((tmp-26608 ($sc-dispatch args-26605 '()))) - (if tmp-26608 + ((req-24769 + (lambda (args-24773 rreq-24774) + (let ((tmp-24776 ($sc-dispatch args-24773 '()))) + (if tmp-24776 (@apply - (lambda () (check-26602 (reverse rreq-26606) #f)) - tmp-26608) - (let ((tmp-26731 - ($sc-dispatch args-26605 '(any . any)))) - (if (if tmp-26731 + (lambda () (check-24770 (reverse rreq-24774) #f)) + tmp-24776) + (let ((tmp-24899 + ($sc-dispatch args-24773 '(any . any)))) + (if (if tmp-24899 (@apply - (lambda (a-26735 b-26736) - (if (symbol? a-26735) + (lambda (a-24903 b-24904) + (if (symbol? a-24903) #t - (if (if (vector? a-26735) - (if (= (vector-length a-26735) 4) - (eq? (vector-ref a-26735 0) + (if (if (vector? a-24903) + (if (= (vector-length a-24903) 4) + (eq? (vector-ref a-24903 0) 'syntax-object) #f) #f) - (symbol? (vector-ref a-26735 1)) + (symbol? (vector-ref a-24903 1)) #f))) - tmp-26731) + tmp-24899) #f) (@apply - (lambda (a-26763 b-26764) - (req-26601 b-26764 (cons a-26763 rreq-26606))) - tmp-26731) - (let ((tmp-26765 (list args-26605))) + (lambda (a-24931 b-24932) + (req-24769 b-24932 (cons a-24931 rreq-24774))) + tmp-24899) + (let ((tmp-24933 (list args-24773))) (if (@apply - (lambda (r-26767) - (if (symbol? r-26767) + (lambda (r-24935) + (if (symbol? r-24935) #t - (if (if (vector? r-26767) - (if (= (vector-length r-26767) 4) - (eq? (vector-ref r-26767 0) + (if (if (vector? r-24935) + (if (= (vector-length r-24935) 4) + (eq? (vector-ref r-24935 0) 'syntax-object) #f) #f) - (symbol? (vector-ref r-26767 1)) + (symbol? (vector-ref r-24935 1)) #f))) - tmp-26765) + tmp-24933) (@apply - (lambda (r-26797) - (check-26602 (reverse rreq-26606) r-26797)) - tmp-26765) + (lambda (r-24965) + (check-24770 (reverse rreq-24774) r-24965)) + tmp-24933) (syntax-violation 'lambda "invalid argument list" - orig-args-26600 - args-26605))))))))) - (check-26602 - (lambda (req-26928 rest-26929) - (if (distinct-bound-ids?-6372 - (if rest-26929 - (cons rest-26929 req-26928) - req-26928)) - (values req-26928 #f rest-26929 #f) + orig-args-24768 + args-24773))))))))) + (check-24770 + (lambda (req-25096 rest-25097) + (if (distinct-bound-ids?-4321 + (if rest-25097 + (cons rest-25097 req-25096) + req-25096)) + (values req-25096 #f rest-25097 #f) (syntax-violation 'lambda "duplicate identifier in argument list" - orig-args-26600))))) - (req-26601 orig-args-26600 '())))) - (expand-simple-lambda-6391 - (lambda (e-27045 - r-27046 - w-27047 - s-27048 - mod-27049 - req-27050 - rest-27051 - meta-27052 - body-27053) - (let ((ids-27054 - (if rest-27051 - (append req-27050 (list rest-27051)) - req-27050))) - (let ((vars-27055 (map gen-var-6395 ids-27054))) - (let ((labels-27056 (gen-labels-6348 ids-27054))) - (build-simple-lambda-6321 - s-27048 - (map syntax->datum req-27050) - (if rest-27051 (syntax->datum rest-27051) #f) - vars-27055 - meta-27052 - (expand-body-6385 - body-27053 - (wrap-6374 + orig-args-24768))))) + (req-24769 orig-args-24768 '())))) + (expand-simple-lambda-4340 + (lambda (e-25213 + r-25214 + w-25215 + s-25216 + mod-25217 + req-25218 + rest-25219 + meta-25220 + body-25221) + (let ((ids-25222 + (if rest-25219 + (append req-25218 (list rest-25219)) + req-25218))) + (let ((vars-25223 (map gen-var-4344 ids-25222))) + (let ((labels-25224 (gen-labels-4297 ids-25222))) + (build-simple-lambda-4270 + s-25216 + (map syntax->datum req-25218) + (if rest-25219 (syntax->datum rest-25219) #f) + vars-25223 + meta-25220 + (expand-body-4334 + body-25221 + (wrap-4323 (begin - (if (if (pair? e-27045) s-27048 #f) - (set-source-properties! e-27045 s-27048)) - e-27045) - w-27047 - mod-27049) - (extend-var-env-6340 - labels-27056 - vars-27055 - r-27046) - (make-binding-wrap-6359 - ids-27054 - labels-27056 - w-27047) - mod-27049))))))) - (lambda*-formals-6392 - (lambda (orig-args-27336) + (if (if (pair? e-25213) s-25216 #f) + (set-source-properties! e-25213 s-25216)) + e-25213) + w-25215 + mod-25217) + (extend-var-env-4289 + labels-25224 + vars-25223 + r-25214) + (make-binding-wrap-4308 + ids-25222 + labels-25224 + w-25215) + mod-25217))))))) + (lambda*-formals-4341 + (lambda (orig-args-25504) (letrec* - ((req-27337 - (lambda (args-27344 rreq-27345) - (let ((tmp-27347 ($sc-dispatch args-27344 '()))) - (if tmp-27347 + ((req-25505 + (lambda (args-25512 rreq-25513) + (let ((tmp-25515 ($sc-dispatch args-25512 '()))) + (if tmp-25515 (@apply (lambda () - (check-27341 (reverse rreq-27345) '() #f '())) - tmp-27347) - (let ((tmp-27353 - ($sc-dispatch args-27344 '(any . any)))) - (if (if tmp-27353 + (check-25509 (reverse rreq-25513) '() #f '())) + tmp-25515) + (let ((tmp-25521 + ($sc-dispatch args-25512 '(any . any)))) + (if (if tmp-25521 (@apply - (lambda (a-27357 b-27358) - (if (symbol? a-27357) + (lambda (a-25525 b-25526) + (if (symbol? a-25525) #t - (if (if (vector? a-27357) - (if (= (vector-length a-27357) 4) - (eq? (vector-ref a-27357 0) + (if (if (vector? a-25525) + (if (= (vector-length a-25525) 4) + (eq? (vector-ref a-25525 0) 'syntax-object) #f) #f) - (symbol? (vector-ref a-27357 1)) + (symbol? (vector-ref a-25525 1)) #f))) - tmp-27353) + tmp-25521) #f) (@apply - (lambda (a-27385 b-27386) - (req-27337 b-27386 (cons a-27385 rreq-27345))) - tmp-27353) - (let ((tmp-27387 - ($sc-dispatch args-27344 '(any . any)))) - (if (if tmp-27387 + (lambda (a-25553 b-25554) + (req-25505 b-25554 (cons a-25553 rreq-25513))) + tmp-25521) + (let ((tmp-25555 + ($sc-dispatch args-25512 '(any . any)))) + (if (if tmp-25555 (@apply - (lambda (a-27391 b-27392) - (eq? (syntax->datum a-27391) #:optional)) - tmp-27387) + (lambda (a-25559 b-25560) + (eq? (syntax->datum a-25559) #:optional)) + tmp-25555) #f) (@apply - (lambda (a-27393 b-27394) - (opt-27338 b-27394 (reverse rreq-27345) '())) - tmp-27387) - (let ((tmp-27397 - ($sc-dispatch args-27344 '(any . any)))) - (if (if tmp-27397 + (lambda (a-25561 b-25562) + (opt-25506 b-25562 (reverse rreq-25513) '())) + tmp-25555) + (let ((tmp-25565 + ($sc-dispatch args-25512 '(any . any)))) + (if (if tmp-25565 (@apply - (lambda (a-27401 b-27402) - (eq? (syntax->datum a-27401) #:key)) - tmp-27397) + (lambda (a-25569 b-25570) + (eq? (syntax->datum a-25569) #:key)) + tmp-25565) #f) (@apply - (lambda (a-27403 b-27404) - (key-27339 - b-27404 - (reverse rreq-27345) + (lambda (a-25571 b-25572) + (key-25507 + b-25572 + (reverse rreq-25513) '() '())) - tmp-27397) - (let ((tmp-27407 - ($sc-dispatch args-27344 '(any any)))) - (if (if tmp-27407 + tmp-25565) + (let ((tmp-25575 + ($sc-dispatch args-25512 '(any any)))) + (if (if tmp-25575 (@apply - (lambda (a-27411 b-27412) - (eq? (syntax->datum a-27411) + (lambda (a-25579 b-25580) + (eq? (syntax->datum a-25579) #:rest)) - tmp-27407) + tmp-25575) #f) (@apply - (lambda (a-27413 b-27414) - (rest-27340 - b-27414 - (reverse rreq-27345) + (lambda (a-25581 b-25582) + (rest-25508 + b-25582 + (reverse rreq-25513) '() '())) - tmp-27407) - (let ((tmp-27417 (list args-27344))) + tmp-25575) + (let ((tmp-25585 (list args-25512))) (if (@apply - (lambda (r-27419) - (if (symbol? r-27419) + (lambda (r-25587) + (if (symbol? r-25587) #t - (if (if (vector? r-27419) + (if (if (vector? r-25587) (if (= (vector-length - r-27419) + r-25587) 4) (eq? (vector-ref - r-27419 + r-25587 0) 'syntax-object) #f) #f) (symbol? - (vector-ref r-27419 1)) + (vector-ref r-25587 1)) #f))) - tmp-27417) + tmp-25585) (@apply - (lambda (r-27449) - (rest-27340 - r-27449 - (reverse rreq-27345) + (lambda (r-25617) + (rest-25508 + r-25617 + (reverse rreq-25513) '() '())) - tmp-27417) + tmp-25585) (syntax-violation 'lambda* "invalid argument list" - orig-args-27336 - args-27344))))))))))))))) - (opt-27338 - (lambda (args-27468 req-27469 ropt-27470) - (let ((tmp-27472 ($sc-dispatch args-27468 '()))) - (if tmp-27472 + orig-args-25504 + args-25512))))))))))))))) + (opt-25506 + (lambda (args-25636 req-25637 ropt-25638) + (let ((tmp-25640 ($sc-dispatch args-25636 '()))) + (if tmp-25640 (@apply (lambda () - (check-27341 - req-27469 - (reverse ropt-27470) + (check-25509 + req-25637 + (reverse ropt-25638) #f '())) - tmp-27472) - (let ((tmp-27478 - ($sc-dispatch args-27468 '(any . any)))) - (if (if tmp-27478 + tmp-25640) + (let ((tmp-25646 + ($sc-dispatch args-25636 '(any . any)))) + (if (if tmp-25646 (@apply - (lambda (a-27482 b-27483) - (if (symbol? a-27482) + (lambda (a-25650 b-25651) + (if (symbol? a-25650) #t - (if (if (vector? a-27482) - (if (= (vector-length a-27482) 4) - (eq? (vector-ref a-27482 0) + (if (if (vector? a-25650) + (if (= (vector-length a-25650) 4) + (eq? (vector-ref a-25650 0) 'syntax-object) #f) #f) - (symbol? (vector-ref a-27482 1)) + (symbol? (vector-ref a-25650 1)) #f))) - tmp-27478) + tmp-25646) #f) (@apply - (lambda (a-27510 b-27511) - (opt-27338 - b-27511 - req-27469 - (cons (cons a-27510 + (lambda (a-25678 b-25679) + (opt-25506 + b-25679 + req-25637 + (cons (cons a-25678 '(#(syntax-object #f ((top) #(ribcage #(a b) #((top) (top)) - #("l-*-4454" "l-*-4455")) + #("l-*-2403" "l-*-2404")) #(ribcage () () ()) #(ribcage #(args req ropt) #((top) (top) (top)) - #("l-*-4444" - "l-*-4445" - "l-*-4446")) + #("l-*-2393" + "l-*-2394" + "l-*-2395")) #(ribcage (check rest key opt req) ((top) @@ -6417,15 +6417,15 @@ (top) (top) (top)) - ("l-*-4390" - "l-*-4388" - "l-*-4386" - "l-*-4384" - "l-*-4382")) + ("l-*-2339" + "l-*-2337" + "l-*-2335" + "l-*-2333" + "l-*-2331")) #(ribcage #(orig-args) #((top)) - #("l-*-4381")) + #("l-*-2330")) #(ribcage (lambda-var-list gen-var @@ -6707,285 +6707,283 @@ (top) (top) (top)) - ("l-*-2527" - "l-*-2525" - "l-*-2523" - "l-*-2521" - "l-*-2519" - "l-*-2517" - "l-*-2515" - "l-*-2513" - "l-*-2511" - "l-*-2509" - "l-*-2507" - "l-*-2505" - "l-*-2503" - "l-*-2501" - "l-*-2499" - "l-*-2497" - "l-*-2495" - "l-*-2493" - "l-*-2491" - "l-*-2489" - "l-*-2487" - "l-*-2485" - "l-*-2483" - "l-*-2481" - "l-*-2479" - "l-*-2477" - "l-*-2475" - "l-*-2473" - "l-*-2471" - "l-*-2469" - "l-*-2467" - "l-*-2465" - "l-*-2463" - "l-*-2461" - "l-*-2459" - "l-*-2457" - "l-*-2455" - "l-*-2453" - "l-*-2451" - "l-*-2450" - "l-*-2448" - "l-*-2445" - "l-*-2444" - "l-*-2443" - "l-*-2441" - "l-*-2440" - "l-*-2438" - "l-*-2436" - "l-*-2434" - "l-*-2432" - "l-*-2430" - "l-*-2428" - "l-*-2426" - "l-*-2424" - "l-*-2421" - "l-*-2419" - "l-*-2418" - "l-*-2416" - "l-*-2414" - "l-*-2412" - "l-*-2410" - "l-*-2409" - "l-*-2408" - "l-*-2407" - "l-*-2405" - "l-*-2404" - "l-*-2401" - "l-*-2399" - "l-*-2397" - "l-*-2395" - "l-*-2393" - "l-*-2391" - "l-*-2389" - "l-*-2388" - "l-*-2387" - "l-*-2385" - "l-*-2383" - "l-*-2382" - "l-*-2379" - "l-*-2378" - "l-*-2376" - "l-*-2374" - "l-*-2372" - "l-*-2370" - "l-*-2368" - "l-*-2366" - "l-*-2364" - "l-*-2362" - "l-*-2360" - "l-*-2357" - "l-*-2355" - "l-*-2353" - "l-*-2351" - "l-*-2349" - "l-*-2347" - "l-*-2345" - "l-*-2343" - "l-*-2341" - "l-*-2339" - "l-*-2337" - "l-*-2335" - "l-*-2333" - "l-*-2331" - "l-*-2329" - "l-*-2327" - "l-*-2325" - "l-*-2323" - "l-*-2321" - "l-*-2319" - "l-*-2317" - "l-*-2315" - "l-*-2313" - "l-*-2311" - "l-*-2309" - "l-*-2307" - "l-*-2306" - "l-*-2305" - "l-*-2304" - "l-*-2303" - "l-*-2301" - "l-*-2299" - "l-*-2297" - "l-*-2294" - "l-*-2292" - "l-*-2290" - "l-*-2288" - "l-*-2286" - "l-*-2284" - "l-*-2282" - "l-*-2280" - "l-*-2278" - "l-*-2276" - "l-*-2274" - "l-*-2272" - "l-*-2270" - "l-*-2268" - "l-*-2266" - "l-*-2264" - "l-*-2262" - "l-*-2260")) + ("l-*-476" + "l-*-474" + "l-*-472" + "l-*-470" + "l-*-468" + "l-*-466" + "l-*-464" + "l-*-462" + "l-*-460" + "l-*-458" + "l-*-456" + "l-*-454" + "l-*-452" + "l-*-450" + "l-*-448" + "l-*-446" + "l-*-444" + "l-*-442" + "l-*-440" + "l-*-438" + "l-*-436" + "l-*-434" + "l-*-432" + "l-*-430" + "l-*-428" + "l-*-426" + "l-*-424" + "l-*-422" + "l-*-420" + "l-*-418" + "l-*-416" + "l-*-414" + "l-*-412" + "l-*-410" + "l-*-408" + "l-*-406" + "l-*-404" + "l-*-402" + "l-*-400" + "l-*-399" + "l-*-397" + "l-*-394" + "l-*-393" + "l-*-392" + "l-*-390" + "l-*-389" + "l-*-387" + "l-*-385" + "l-*-383" + "l-*-381" + "l-*-379" + "l-*-377" + "l-*-375" + "l-*-373" + "l-*-370" + "l-*-368" + "l-*-367" + "l-*-365" + "l-*-363" + "l-*-361" + "l-*-359" + "l-*-358" + "l-*-357" + "l-*-356" + "l-*-354" + "l-*-353" + "l-*-350" + "l-*-348" + "l-*-346" + "l-*-344" + "l-*-342" + "l-*-340" + "l-*-338" + "l-*-337" + "l-*-336" + "l-*-334" + "l-*-332" + "l-*-331" + "l-*-328" + "l-*-327" + "l-*-325" + "l-*-323" + "l-*-321" + "l-*-319" + "l-*-317" + "l-*-315" + "l-*-313" + "l-*-311" + "l-*-309" + "l-*-306" + "l-*-304" + "l-*-302" + "l-*-300" + "l-*-298" + "l-*-296" + "l-*-294" + "l-*-292" + "l-*-290" + "l-*-288" + "l-*-286" + "l-*-284" + "l-*-282" + "l-*-280" + "l-*-278" + "l-*-276" + "l-*-274" + "l-*-272" + "l-*-270" + "l-*-268" + "l-*-266" + "l-*-264" + "l-*-262" + "l-*-260" + "l-*-258" + "l-*-256" + "l-*-255" + "l-*-254" + "l-*-253" + "l-*-252" + "l-*-250" + "l-*-248" + "l-*-246" + "l-*-243" + "l-*-241" + "l-*-239" + "l-*-237" + "l-*-235" + "l-*-233" + "l-*-231" + "l-*-229" + "l-*-227" + "l-*-225" + "l-*-223" + "l-*-221" + "l-*-219" + "l-*-217" + "l-*-215" + "l-*-213" + "l-*-211" + "l-*-209")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("l-*-2098" - "l-*-2097" - "l-*-2096"))) + ("l-*-47" "l-*-46" "l-*-45"))) (hygiene guile)))) - ropt-27470))) - tmp-27478) - (let ((tmp-27512 - ($sc-dispatch args-27468 '((any any) . any)))) - (if (if tmp-27512 + ropt-25638))) + tmp-25646) + (let ((tmp-25680 + ($sc-dispatch args-25636 '((any any) . any)))) + (if (if tmp-25680 (@apply - (lambda (a-27516 init-27517 b-27518) - (if (symbol? a-27516) + (lambda (a-25684 init-25685 b-25686) + (if (symbol? a-25684) #t - (if (if (vector? a-27516) - (if (= (vector-length a-27516) 4) - (eq? (vector-ref a-27516 0) + (if (if (vector? a-25684) + (if (= (vector-length a-25684) 4) + (eq? (vector-ref a-25684 0) 'syntax-object) #f) #f) - (symbol? (vector-ref a-27516 1)) + (symbol? (vector-ref a-25684 1)) #f))) - tmp-27512) + tmp-25680) #f) (@apply - (lambda (a-27545 init-27546 b-27547) - (opt-27338 - b-27547 - req-27469 - (cons (list a-27545 init-27546) ropt-27470))) - tmp-27512) - (let ((tmp-27548 - ($sc-dispatch args-27468 '(any . any)))) - (if (if tmp-27548 + (lambda (a-25713 init-25714 b-25715) + (opt-25506 + b-25715 + req-25637 + (cons (list a-25713 init-25714) ropt-25638))) + tmp-25680) + (let ((tmp-25716 + ($sc-dispatch args-25636 '(any . any)))) + (if (if tmp-25716 (@apply - (lambda (a-27552 b-27553) - (eq? (syntax->datum a-27552) #:key)) - tmp-27548) + (lambda (a-25720 b-25721) + (eq? (syntax->datum a-25720) #:key)) + tmp-25716) #f) (@apply - (lambda (a-27554 b-27555) - (key-27339 - b-27555 - req-27469 - (reverse ropt-27470) + (lambda (a-25722 b-25723) + (key-25507 + b-25723 + req-25637 + (reverse ropt-25638) '())) - tmp-27548) - (let ((tmp-27558 - ($sc-dispatch args-27468 '(any any)))) - (if (if tmp-27558 + tmp-25716) + (let ((tmp-25726 + ($sc-dispatch args-25636 '(any any)))) + (if (if tmp-25726 (@apply - (lambda (a-27562 b-27563) - (eq? (syntax->datum a-27562) + (lambda (a-25730 b-25731) + (eq? (syntax->datum a-25730) #:rest)) - tmp-27558) + tmp-25726) #f) (@apply - (lambda (a-27564 b-27565) - (rest-27340 - b-27565 - req-27469 - (reverse ropt-27470) + (lambda (a-25732 b-25733) + (rest-25508 + b-25733 + req-25637 + (reverse ropt-25638) '())) - tmp-27558) - (let ((tmp-27568 (list args-27468))) + tmp-25726) + (let ((tmp-25736 (list args-25636))) (if (@apply - (lambda (r-27570) - (if (symbol? r-27570) + (lambda (r-25738) + (if (symbol? r-25738) #t - (if (if (vector? r-27570) + (if (if (vector? r-25738) (if (= (vector-length - r-27570) + r-25738) 4) (eq? (vector-ref - r-27570 + r-25738 0) 'syntax-object) #f) #f) (symbol? - (vector-ref r-27570 1)) + (vector-ref r-25738 1)) #f))) - tmp-27568) + tmp-25736) (@apply - (lambda (r-27600) - (rest-27340 - r-27600 - req-27469 - (reverse ropt-27470) + (lambda (r-25768) + (rest-25508 + r-25768 + req-25637 + (reverse ropt-25638) '())) - tmp-27568) + tmp-25736) (syntax-violation 'lambda* "invalid optional argument list" - orig-args-27336 - args-27468))))))))))))))) - (key-27339 - (lambda (args-27619 req-27620 opt-27621 rkey-27622) - (let ((tmp-27624 ($sc-dispatch args-27619 '()))) - (if tmp-27624 + orig-args-25504 + args-25636))))))))))))))) + (key-25507 + (lambda (args-25787 req-25788 opt-25789 rkey-25790) + (let ((tmp-25792 ($sc-dispatch args-25787 '()))) + (if tmp-25792 (@apply (lambda () - (check-27341 - req-27620 - opt-27621 + (check-25509 + req-25788 + opt-25789 #f - (cons #f (reverse rkey-27622)))) - tmp-27624) - (let ((tmp-27630 - ($sc-dispatch args-27619 '(any . any)))) - (if (if tmp-27630 + (cons #f (reverse rkey-25790)))) + tmp-25792) + (let ((tmp-25798 + ($sc-dispatch args-25787 '(any . any)))) + (if (if tmp-25798 (@apply - (lambda (a-27634 b-27635) - (if (symbol? a-27634) + (lambda (a-25802 b-25803) + (if (symbol? a-25802) #t - (if (if (vector? a-27634) - (if (= (vector-length a-27634) 4) - (eq? (vector-ref a-27634 0) + (if (if (vector? a-25802) + (if (= (vector-length a-25802) 4) + (eq? (vector-ref a-25802 0) 'syntax-object) #f) #f) - (symbol? (vector-ref a-27634 1)) + (symbol? (vector-ref a-25802 1)) #f))) - tmp-27630) + tmp-25798) #f) (@apply - (lambda (a-27662 b-27663) - (let ((tmp-27664 - (symbol->keyword (syntax->datum a-27662)))) - (key-27339 - b-27663 - req-27620 - opt-27621 - (cons (cons tmp-27664 - (cons a-27662 + (lambda (a-25830 b-25831) + (let ((tmp-25832 + (symbol->keyword (syntax->datum a-25830)))) + (key-25507 + b-25831 + req-25788 + opt-25789 + (cons (cons tmp-25832 + (cons a-25830 '(#(syntax-object #f ((top) @@ -6993,12 +6991,12 @@ #(ribcage #(k) #((top)) - #("l-*-4517")) + #("l-*-2466")) #(ribcage #(a b) #((top) (top)) - #("l-*-4511" - "l-*-4512")) + #("l-*-2460" + "l-*-2461")) #(ribcage () () ()) #(ribcage #(args req opt rkey) @@ -7006,10 +7004,10 @@ (top) (top) (top)) - #("l-*-4500" - "l-*-4501" - "l-*-4502" - "l-*-4503")) + #("l-*-2449" + "l-*-2450" + "l-*-2451" + "l-*-2452")) #(ribcage (check rest key @@ -7020,15 +7018,15 @@ (top) (top) (top)) - ("l-*-4390" - "l-*-4388" - "l-*-4386" - "l-*-4384" - "l-*-4382")) + ("l-*-2339" + "l-*-2337" + "l-*-2335" + "l-*-2333" + "l-*-2331")) #(ribcage #(orig-args) #((top)) - #("l-*-4381")) + #("l-*-2330")) #(ribcage (lambda-var-list gen-var @@ -7310,875 +7308,875 @@ (top) (top) (top)) - ("l-*-2527" - "l-*-2525" - "l-*-2523" - "l-*-2521" - "l-*-2519" - "l-*-2517" - "l-*-2515" - "l-*-2513" - "l-*-2511" - "l-*-2509" - "l-*-2507" - "l-*-2505" - "l-*-2503" - "l-*-2501" - "l-*-2499" - "l-*-2497" - "l-*-2495" - "l-*-2493" - "l-*-2491" - "l-*-2489" - "l-*-2487" - "l-*-2485" - "l-*-2483" - "l-*-2481" - "l-*-2479" - "l-*-2477" - "l-*-2475" - "l-*-2473" - "l-*-2471" - "l-*-2469" - "l-*-2467" - "l-*-2465" - "l-*-2463" - "l-*-2461" - "l-*-2459" - "l-*-2457" - "l-*-2455" - "l-*-2453" - "l-*-2451" - "l-*-2450" - "l-*-2448" - "l-*-2445" - "l-*-2444" - "l-*-2443" - "l-*-2441" - "l-*-2440" - "l-*-2438" - "l-*-2436" - "l-*-2434" - "l-*-2432" - "l-*-2430" - "l-*-2428" - "l-*-2426" - "l-*-2424" - "l-*-2421" - "l-*-2419" - "l-*-2418" - "l-*-2416" - "l-*-2414" - "l-*-2412" - "l-*-2410" - "l-*-2409" - "l-*-2408" - "l-*-2407" - "l-*-2405" - "l-*-2404" - "l-*-2401" - "l-*-2399" - "l-*-2397" - "l-*-2395" - "l-*-2393" - "l-*-2391" - "l-*-2389" - "l-*-2388" - "l-*-2387" - "l-*-2385" - "l-*-2383" - "l-*-2382" - "l-*-2379" - "l-*-2378" - "l-*-2376" - "l-*-2374" - "l-*-2372" - "l-*-2370" - "l-*-2368" - "l-*-2366" - "l-*-2364" - "l-*-2362" - "l-*-2360" - "l-*-2357" - "l-*-2355" - "l-*-2353" - "l-*-2351" - "l-*-2349" - "l-*-2347" - "l-*-2345" - "l-*-2343" - "l-*-2341" - "l-*-2339" - "l-*-2337" - "l-*-2335" - "l-*-2333" - "l-*-2331" - "l-*-2329" - "l-*-2327" - "l-*-2325" - "l-*-2323" - "l-*-2321" - "l-*-2319" - "l-*-2317" - "l-*-2315" - "l-*-2313" - "l-*-2311" - "l-*-2309" - "l-*-2307" - "l-*-2306" - "l-*-2305" - "l-*-2304" - "l-*-2303" - "l-*-2301" - "l-*-2299" - "l-*-2297" - "l-*-2294" - "l-*-2292" - "l-*-2290" - "l-*-2288" - "l-*-2286" - "l-*-2284" - "l-*-2282" - "l-*-2280" - "l-*-2278" - "l-*-2276" - "l-*-2274" - "l-*-2272" - "l-*-2270" - "l-*-2268" - "l-*-2266" - "l-*-2264" - "l-*-2262" - "l-*-2260")) + ("l-*-476" + "l-*-474" + "l-*-472" + "l-*-470" + "l-*-468" + "l-*-466" + "l-*-464" + "l-*-462" + "l-*-460" + "l-*-458" + "l-*-456" + "l-*-454" + "l-*-452" + "l-*-450" + "l-*-448" + "l-*-446" + "l-*-444" + "l-*-442" + "l-*-440" + "l-*-438" + "l-*-436" + "l-*-434" + "l-*-432" + "l-*-430" + "l-*-428" + "l-*-426" + "l-*-424" + "l-*-422" + "l-*-420" + "l-*-418" + "l-*-416" + "l-*-414" + "l-*-412" + "l-*-410" + "l-*-408" + "l-*-406" + "l-*-404" + "l-*-402" + "l-*-400" + "l-*-399" + "l-*-397" + "l-*-394" + "l-*-393" + "l-*-392" + "l-*-390" + "l-*-389" + "l-*-387" + "l-*-385" + "l-*-383" + "l-*-381" + "l-*-379" + "l-*-377" + "l-*-375" + "l-*-373" + "l-*-370" + "l-*-368" + "l-*-367" + "l-*-365" + "l-*-363" + "l-*-361" + "l-*-359" + "l-*-358" + "l-*-357" + "l-*-356" + "l-*-354" + "l-*-353" + "l-*-350" + "l-*-348" + "l-*-346" + "l-*-344" + "l-*-342" + "l-*-340" + "l-*-338" + "l-*-337" + "l-*-336" + "l-*-334" + "l-*-332" + "l-*-331" + "l-*-328" + "l-*-327" + "l-*-325" + "l-*-323" + "l-*-321" + "l-*-319" + "l-*-317" + "l-*-315" + "l-*-313" + "l-*-311" + "l-*-309" + "l-*-306" + "l-*-304" + "l-*-302" + "l-*-300" + "l-*-298" + "l-*-296" + "l-*-294" + "l-*-292" + "l-*-290" + "l-*-288" + "l-*-286" + "l-*-284" + "l-*-282" + "l-*-280" + "l-*-278" + "l-*-276" + "l-*-274" + "l-*-272" + "l-*-270" + "l-*-268" + "l-*-266" + "l-*-264" + "l-*-262" + "l-*-260" + "l-*-258" + "l-*-256" + "l-*-255" + "l-*-254" + "l-*-253" + "l-*-252" + "l-*-250" + "l-*-248" + "l-*-246" + "l-*-243" + "l-*-241" + "l-*-239" + "l-*-237" + "l-*-235" + "l-*-233" + "l-*-231" + "l-*-229" + "l-*-227" + "l-*-225" + "l-*-223" + "l-*-221" + "l-*-219" + "l-*-217" + "l-*-215" + "l-*-213" + "l-*-211" + "l-*-209")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("l-*-2098" - "l-*-2097" - "l-*-2096"))) + ("l-*-47" + "l-*-46" + "l-*-45"))) (hygiene guile))))) - rkey-27622)))) - tmp-27630) - (let ((tmp-27667 - ($sc-dispatch args-27619 '((any any) . any)))) - (if (if tmp-27667 + rkey-25790)))) + tmp-25798) + (let ((tmp-25835 + ($sc-dispatch args-25787 '((any any) . any)))) + (if (if tmp-25835 (@apply - (lambda (a-27671 init-27672 b-27673) - (if (symbol? a-27671) + (lambda (a-25839 init-25840 b-25841) + (if (symbol? a-25839) #t - (if (if (vector? a-27671) - (if (= (vector-length a-27671) 4) - (eq? (vector-ref a-27671 0) + (if (if (vector? a-25839) + (if (= (vector-length a-25839) 4) + (eq? (vector-ref a-25839 0) 'syntax-object) #f) #f) - (symbol? (vector-ref a-27671 1)) + (symbol? (vector-ref a-25839 1)) #f))) - tmp-27667) + tmp-25835) #f) (@apply - (lambda (a-27700 init-27701 b-27702) - (let ((tmp-27703 + (lambda (a-25868 init-25869 b-25870) + (let ((tmp-25871 (symbol->keyword - (syntax->datum a-27700)))) - (key-27339 - b-27702 - req-27620 - opt-27621 - (cons (list tmp-27703 a-27700 init-27701) - rkey-27622)))) - tmp-27667) - (let ((tmp-27706 + (syntax->datum a-25868)))) + (key-25507 + b-25870 + req-25788 + opt-25789 + (cons (list tmp-25871 a-25868 init-25869) + rkey-25790)))) + tmp-25835) + (let ((tmp-25874 ($sc-dispatch - args-27619 + args-25787 '((any any any) . any)))) - (if (if tmp-27706 + (if (if tmp-25874 (@apply - (lambda (a-27710 - init-27711 - k-27712 - b-27713) - (if (if (symbol? a-27710) + (lambda (a-25878 + init-25879 + k-25880 + b-25881) + (if (if (symbol? a-25878) #t - (if (if (vector? a-27710) + (if (if (vector? a-25878) (if (= (vector-length - a-27710) + a-25878) 4) (eq? (vector-ref - a-27710 + a-25878 0) 'syntax-object) #f) #f) (symbol? - (vector-ref a-27710 1)) + (vector-ref a-25878 1)) #f)) - (keyword? (syntax->datum k-27712)) + (keyword? (syntax->datum k-25880)) #f)) - tmp-27706) + tmp-25874) #f) (@apply - (lambda (a-27740 init-27741 k-27742 b-27743) - (key-27339 - b-27743 - req-27620 - opt-27621 - (cons (list k-27742 a-27740 init-27741) - rkey-27622))) - tmp-27706) - (let ((tmp-27744 - ($sc-dispatch args-27619 '(any)))) - (if (if tmp-27744 + (lambda (a-25908 init-25909 k-25910 b-25911) + (key-25507 + b-25911 + req-25788 + opt-25789 + (cons (list k-25910 a-25908 init-25909) + rkey-25790))) + tmp-25874) + (let ((tmp-25912 + ($sc-dispatch args-25787 '(any)))) + (if (if tmp-25912 (@apply - (lambda (aok-27748) - (eq? (syntax->datum aok-27748) + (lambda (aok-25916) + (eq? (syntax->datum aok-25916) #:allow-other-keys)) - tmp-27744) + tmp-25912) #f) (@apply - (lambda (aok-27749) - (check-27341 - req-27620 - opt-27621 + (lambda (aok-25917) + (check-25509 + req-25788 + opt-25789 #f - (cons #t (reverse rkey-27622)))) - tmp-27744) - (let ((tmp-27752 + (cons #t (reverse rkey-25790)))) + tmp-25912) + (let ((tmp-25920 ($sc-dispatch - args-27619 + args-25787 '(any any any)))) - (if (if tmp-27752 + (if (if tmp-25920 (@apply - (lambda (aok-27756 - a-27757 - b-27758) + (lambda (aok-25924 + a-25925 + b-25926) (if (eq? (syntax->datum - aok-27756) + aok-25924) #:allow-other-keys) - (eq? (syntax->datum a-27757) + (eq? (syntax->datum a-25925) #:rest) #f)) - tmp-27752) + tmp-25920) #f) (@apply - (lambda (aok-27759 a-27760 b-27761) - (rest-27340 - b-27761 - req-27620 - opt-27621 - (cons #t (reverse rkey-27622)))) - tmp-27752) - (let ((tmp-27764 + (lambda (aok-25927 a-25928 b-25929) + (rest-25508 + b-25929 + req-25788 + opt-25789 + (cons #t (reverse rkey-25790)))) + tmp-25920) + (let ((tmp-25932 ($sc-dispatch - args-27619 + args-25787 '(any . any)))) - (if (if tmp-27764 + (if (if tmp-25932 (@apply - (lambda (aok-27768 r-27769) + (lambda (aok-25936 r-25937) (if (eq? (syntax->datum - aok-27768) + aok-25936) #:allow-other-keys) - (if (symbol? r-27769) + (if (symbol? r-25937) #t (if (if (vector? - r-27769) + r-25937) (if (= (vector-length - r-27769) + r-25937) 4) (eq? (vector-ref - r-27769 + r-25937 0) 'syntax-object) #f) #f) (symbol? (vector-ref - r-27769 + r-25937 1)) #f)) #f)) - tmp-27764) + tmp-25932) #f) (@apply - (lambda (aok-27796 r-27797) - (rest-27340 - r-27797 - req-27620 - opt-27621 + (lambda (aok-25964 r-25965) + (rest-25508 + r-25965 + req-25788 + opt-25789 (cons #t - (reverse rkey-27622)))) - tmp-27764) - (let ((tmp-27800 + (reverse rkey-25790)))) + tmp-25932) + (let ((tmp-25968 ($sc-dispatch - args-27619 + args-25787 '(any any)))) - (if (if tmp-27800 + (if (if tmp-25968 (@apply - (lambda (a-27804 b-27805) + (lambda (a-25972 b-25973) (eq? (syntax->datum - a-27804) + a-25972) #:rest)) - tmp-27800) + tmp-25968) #f) (@apply - (lambda (a-27806 b-27807) - (rest-27340 - b-27807 - req-27620 - opt-27621 + (lambda (a-25974 b-25975) + (rest-25508 + b-25975 + req-25788 + opt-25789 (cons #f (reverse - rkey-27622)))) - tmp-27800) - (let ((tmp-27810 - (list args-27619))) + rkey-25790)))) + tmp-25968) + (let ((tmp-25978 + (list args-25787))) (if (@apply - (lambda (r-27812) - (if (symbol? r-27812) + (lambda (r-25980) + (if (symbol? r-25980) #t (if (if (vector? - r-27812) + r-25980) (if (= (vector-length - r-27812) + r-25980) 4) (eq? (vector-ref - r-27812 + r-25980 0) 'syntax-object) #f) #f) (symbol? (vector-ref - r-27812 + r-25980 1)) #f))) - tmp-27810) + tmp-25978) (@apply - (lambda (r-27842) - (rest-27340 - r-27842 - req-27620 - opt-27621 + (lambda (r-26010) + (rest-25508 + r-26010 + req-25788 + opt-25789 (cons #f (reverse - rkey-27622)))) - tmp-27810) + rkey-25790)))) + tmp-25978) (syntax-violation 'lambda* "invalid keyword argument list" - orig-args-27336 - args-27619))))))))))))))))))))) - (rest-27340 - (lambda (args-27870 req-27871 opt-27872 kw-27873) - (let ((tmp-27875 (list args-27870))) + orig-args-25504 + args-25787))))))))))))))))))))) + (rest-25508 + (lambda (args-26038 req-26039 opt-26040 kw-26041) + (let ((tmp-26043 (list args-26038))) (if (@apply - (lambda (r-27877) - (if (symbol? r-27877) + (lambda (r-26045) + (if (symbol? r-26045) #t - (if (if (vector? r-27877) - (if (= (vector-length r-27877) 4) - (eq? (vector-ref r-27877 0) 'syntax-object) + (if (if (vector? r-26045) + (if (= (vector-length r-26045) 4) + (eq? (vector-ref r-26045 0) 'syntax-object) #f) #f) - (symbol? (vector-ref r-27877 1)) + (symbol? (vector-ref r-26045 1)) #f))) - tmp-27875) + tmp-26043) (@apply - (lambda (r-27907) - (check-27341 - req-27871 - opt-27872 - r-27907 - kw-27873)) - tmp-27875) + (lambda (r-26075) + (check-25509 + req-26039 + opt-26040 + r-26075 + kw-26041)) + tmp-26043) (syntax-violation 'lambda* "invalid rest argument" - orig-args-27336 - args-27870))))) - (check-27341 - (lambda (req-27911 opt-27912 rest-27913 kw-27914) - (if (distinct-bound-ids?-6372 + orig-args-25504 + args-26038))))) + (check-25509 + (lambda (req-26079 opt-26080 rest-26081 kw-26082) + (if (distinct-bound-ids?-4321 (append - req-27911 - (map car opt-27912) - (if rest-27913 (list rest-27913) '()) - (if (pair? kw-27914) - (map cadr (cdr kw-27914)) + req-26079 + (map car opt-26080) + (if rest-26081 (list rest-26081) '()) + (if (pair? kw-26082) + (map cadr (cdr kw-26082)) '()))) - (values req-27911 opt-27912 rest-27913 kw-27914) + (values req-26079 opt-26080 rest-26081 kw-26082) (syntax-violation 'lambda* "duplicate identifier in argument list" - orig-args-27336))))) - (req-27337 orig-args-27336 '())))) - (expand-lambda-case-6393 - (lambda (e-28030 - r-28031 - w-28032 - s-28033 - mod-28034 - get-formals-28035 - clauses-28036) + orig-args-25504))))) + (req-25505 orig-args-25504 '())))) + (expand-lambda-case-4342 + (lambda (e-26198 + r-26199 + w-26200 + s-26201 + mod-26202 + get-formals-26203 + clauses-26204) (letrec* - ((parse-req-28037 - (lambda (req-28168 - opt-28169 - rest-28170 - kw-28171 - body-28172) - (let ((vars-28173 (map gen-var-6395 req-28168)) - (labels-28174 (gen-labels-6348 req-28168))) - (let ((r*-28175 - (extend-var-env-6340 - labels-28174 - vars-28173 - r-28031)) - (w*-28176 - (make-binding-wrap-6359 - req-28168 - labels-28174 - w-28032))) - (parse-opt-28038 - (map syntax->datum req-28168) - opt-28169 - rest-28170 - kw-28171 - body-28172 - (reverse vars-28173) - r*-28175 - w*-28176 + ((parse-req-26205 + (lambda (req-26336 + opt-26337 + rest-26338 + kw-26339 + body-26340) + (let ((vars-26341 (map gen-var-4344 req-26336)) + (labels-26342 (gen-labels-4297 req-26336))) + (let ((r*-26343 + (extend-var-env-4289 + labels-26342 + vars-26341 + r-26199)) + (w*-26344 + (make-binding-wrap-4308 + req-26336 + labels-26342 + w-26200))) + (parse-opt-26206 + (map syntax->datum req-26336) + opt-26337 + rest-26338 + kw-26339 + body-26340 + (reverse vars-26341) + r*-26343 + w*-26344 '() '()))))) - (parse-opt-28038 - (lambda (req-28362 - opt-28363 - rest-28364 - kw-28365 - body-28366 - vars-28367 - r*-28368 - w*-28369 - out-28370 - inits-28371) - (if (pair? opt-28363) - (let ((tmp-28372 (car opt-28363))) - (let ((tmp-28373 ($sc-dispatch tmp-28372 '(any any)))) - (if tmp-28373 + (parse-opt-26206 + (lambda (req-26530 + opt-26531 + rest-26532 + kw-26533 + body-26534 + vars-26535 + r*-26536 + w*-26537 + out-26538 + inits-26539) + (if (pair? opt-26531) + (let ((tmp-26540 (car opt-26531))) + (let ((tmp-26541 ($sc-dispatch tmp-26540 '(any any)))) + (if tmp-26541 (@apply - (lambda (id-28375 i-28376) - (let ((v-28377 - (let ((id-28385 - (if (if (vector? id-28375) + (lambda (id-26543 i-26544) + (let ((v-26545 + (let ((id-26553 + (if (if (vector? id-26543) (if (= (vector-length - id-28375) + id-26543) 4) (eq? (vector-ref - id-28375 + id-26543 0) 'syntax-object) #f) #f) - (vector-ref id-28375 1) - id-28375))) + (vector-ref id-26543 1) + id-26543))) (gensym (string-append - (symbol->string id-28385) + (symbol->string id-26553) "-"))))) - (let ((l-28378 (gen-labels-6348 (list v-28377)))) - (let ((r**-28379 - (extend-var-env-6340 - l-28378 - (list v-28377) - r*-28368))) - (let ((w**-28380 - (make-binding-wrap-6359 - (list id-28375) - l-28378 - w*-28369))) - (parse-opt-28038 - req-28362 - (cdr opt-28363) - rest-28364 - kw-28365 - body-28366 - (cons v-28377 vars-28367) - r**-28379 - w**-28380 - (cons (syntax->datum id-28375) out-28370) - (cons (expand-6381 - i-28376 - r*-28368 - w*-28369 - mod-28034) - inits-28371))))))) - tmp-28373) + (let ((l-26546 (gen-labels-4297 (list v-26545)))) + (let ((r**-26547 + (extend-var-env-4289 + l-26546 + (list v-26545) + r*-26536))) + (let ((w**-26548 + (make-binding-wrap-4308 + (list id-26543) + l-26546 + w*-26537))) + (parse-opt-26206 + req-26530 + (cdr opt-26531) + rest-26532 + kw-26533 + body-26534 + (cons v-26545 vars-26535) + r**-26547 + w**-26548 + (cons (syntax->datum id-26543) out-26538) + (cons (expand-4330 + i-26544 + r*-26536 + w*-26537 + mod-26202) + inits-26539))))))) + tmp-26541) (syntax-violation #f "source expression failed to match any pattern" - tmp-28372)))) - (if rest-28364 - (let ((v-28623 - (let ((id-28633 - (if (if (vector? rest-28364) - (if (= (vector-length rest-28364) 4) - (eq? (vector-ref rest-28364 0) + tmp-26540)))) + (if rest-26532 + (let ((v-26791 + (let ((id-26801 + (if (if (vector? rest-26532) + (if (= (vector-length rest-26532) 4) + (eq? (vector-ref rest-26532 0) 'syntax-object) #f) #f) - (vector-ref rest-28364 1) - rest-28364))) + (vector-ref rest-26532 1) + rest-26532))) (gensym (string-append - (symbol->string id-28633) + (symbol->string id-26801) "-"))))) - (let ((l-28624 (gen-labels-6348 (list v-28623)))) - (let ((r*-28625 - (extend-var-env-6340 - l-28624 - (list v-28623) - r*-28368))) - (let ((w*-28626 - (make-binding-wrap-6359 - (list rest-28364) - l-28624 - w*-28369))) - (parse-kw-28039 - req-28362 - (if (pair? out-28370) (reverse out-28370) #f) - (syntax->datum rest-28364) - (if (pair? kw-28365) (cdr kw-28365) kw-28365) - body-28366 - (cons v-28623 vars-28367) - r*-28625 - w*-28626 - (if (pair? kw-28365) (car kw-28365) #f) + (let ((l-26792 (gen-labels-4297 (list v-26791)))) + (let ((r*-26793 + (extend-var-env-4289 + l-26792 + (list v-26791) + r*-26536))) + (let ((w*-26794 + (make-binding-wrap-4308 + (list rest-26532) + l-26792 + w*-26537))) + (parse-kw-26207 + req-26530 + (if (pair? out-26538) (reverse out-26538) #f) + (syntax->datum rest-26532) + (if (pair? kw-26533) (cdr kw-26533) kw-26533) + body-26534 + (cons v-26791 vars-26535) + r*-26793 + w*-26794 + (if (pair? kw-26533) (car kw-26533) #f) '() - inits-28371))))) - (parse-kw-28039 - req-28362 - (if (pair? out-28370) (reverse out-28370) #f) + inits-26539))))) + (parse-kw-26207 + req-26530 + (if (pair? out-26538) (reverse out-26538) #f) #f - (if (pair? kw-28365) (cdr kw-28365) kw-28365) - body-28366 - vars-28367 - r*-28368 - w*-28369 - (if (pair? kw-28365) (car kw-28365) #f) + (if (pair? kw-26533) (cdr kw-26533) kw-26533) + body-26534 + vars-26535 + r*-26536 + w*-26537 + (if (pair? kw-26533) (car kw-26533) #f) '() - inits-28371))))) - (parse-kw-28039 - (lambda (req-28804 - opt-28805 - rest-28806 - kw-28807 - body-28808 - vars-28809 - r*-28810 - w*-28811 - aok-28812 - out-28813 - inits-28814) - (if (pair? kw-28807) - (let ((tmp-28815 (car kw-28807))) - (let ((tmp-28816 - ($sc-dispatch tmp-28815 '(any any any)))) - (if tmp-28816 + inits-26539))))) + (parse-kw-26207 + (lambda (req-26972 + opt-26973 + rest-26974 + kw-26975 + body-26976 + vars-26977 + r*-26978 + w*-26979 + aok-26980 + out-26981 + inits-26982) + (if (pair? kw-26975) + (let ((tmp-26983 (car kw-26975))) + (let ((tmp-26984 + ($sc-dispatch tmp-26983 '(any any any)))) + (if tmp-26984 (@apply - (lambda (k-28818 id-28819 i-28820) - (let ((v-28821 - (let ((id-28829 - (if (if (vector? id-28819) + (lambda (k-26986 id-26987 i-26988) + (let ((v-26989 + (let ((id-26997 + (if (if (vector? id-26987) (if (= (vector-length - id-28819) + id-26987) 4) (eq? (vector-ref - id-28819 + id-26987 0) 'syntax-object) #f) #f) - (vector-ref id-28819 1) - id-28819))) + (vector-ref id-26987 1) + id-26987))) (gensym (string-append - (symbol->string id-28829) + (symbol->string id-26997) "-"))))) - (let ((l-28822 (gen-labels-6348 (list v-28821)))) - (let ((r**-28823 - (extend-var-env-6340 - l-28822 - (list v-28821) - r*-28810))) - (let ((w**-28824 - (make-binding-wrap-6359 - (list id-28819) - l-28822 - w*-28811))) - (parse-kw-28039 - req-28804 - opt-28805 - rest-28806 - (cdr kw-28807) - body-28808 - (cons v-28821 vars-28809) - r**-28823 - w**-28824 - aok-28812 - (cons (list (syntax->datum k-28818) - (syntax->datum id-28819) - v-28821) - out-28813) - (cons (expand-6381 - i-28820 - r*-28810 - w*-28811 - mod-28034) - inits-28814))))))) - tmp-28816) + (let ((l-26990 (gen-labels-4297 (list v-26989)))) + (let ((r**-26991 + (extend-var-env-4289 + l-26990 + (list v-26989) + r*-26978))) + (let ((w**-26992 + (make-binding-wrap-4308 + (list id-26987) + l-26990 + w*-26979))) + (parse-kw-26207 + req-26972 + opt-26973 + rest-26974 + (cdr kw-26975) + body-26976 + (cons v-26989 vars-26977) + r**-26991 + w**-26992 + aok-26980 + (cons (list (syntax->datum k-26986) + (syntax->datum id-26987) + v-26989) + out-26981) + (cons (expand-4330 + i-26988 + r*-26978 + w*-26979 + mod-26202) + inits-26982))))))) + tmp-26984) (syntax-violation #f "source expression failed to match any pattern" - tmp-28815)))) - (parse-body-28040 - req-28804 - opt-28805 - rest-28806 - (if (if aok-28812 aok-28812 (pair? out-28813)) - (cons aok-28812 (reverse out-28813)) + tmp-26983)))) + (parse-body-26208 + req-26972 + opt-26973 + rest-26974 + (if (if aok-26980 aok-26980 (pair? out-26981)) + (cons aok-26980 (reverse out-26981)) #f) - body-28808 - (reverse vars-28809) - r*-28810 - w*-28811 - (reverse inits-28814) + body-26976 + (reverse vars-26977) + r*-26978 + w*-26979 + (reverse inits-26982) '())))) - (parse-body-28040 - (lambda (req-29076 - opt-29077 - rest-29078 - kw-29079 - body-29080 - vars-29081 - r*-29082 - w*-29083 - inits-29084 - meta-29085) - (let ((tmp-29087 - ($sc-dispatch body-29080 '(any any . each-any)))) - (if (if tmp-29087 + (parse-body-26208 + (lambda (req-27244 + opt-27245 + rest-27246 + kw-27247 + body-27248 + vars-27249 + r*-27250 + w*-27251 + inits-27252 + meta-27253) + (let ((tmp-27255 + ($sc-dispatch body-27248 '(any any . each-any)))) + (if (if tmp-27255 (@apply - (lambda (docstring-29091 e1-29092 e2-29093) - (string? (syntax->datum docstring-29091))) - tmp-29087) + (lambda (docstring-27259 e1-27260 e2-27261) + (string? (syntax->datum docstring-27259))) + tmp-27255) #f) (@apply - (lambda (docstring-29094 e1-29095 e2-29096) - (parse-body-28040 - req-29076 - opt-29077 - rest-29078 - kw-29079 - (cons e1-29095 e2-29096) - vars-29081 - r*-29082 - w*-29083 - inits-29084 + (lambda (docstring-27262 e1-27263 e2-27264) + (parse-body-26208 + req-27244 + opt-27245 + rest-27246 + kw-27247 + (cons e1-27263 e2-27264) + vars-27249 + r*-27250 + w*-27251 + inits-27252 (append - meta-29085 + meta-27253 (list (cons 'documentation - (syntax->datum docstring-29094)))))) - tmp-29087) - (let ((tmp-29097 + (syntax->datum docstring-27262)))))) + tmp-27255) + (let ((tmp-27265 ($sc-dispatch - body-29080 + body-27248 '(#(vector #(each (any . any))) any . each-any)))) - (if tmp-29097 + (if tmp-27265 (@apply - (lambda (k-29101 v-29102 e1-29103 e2-29104) - (parse-body-28040 - req-29076 - opt-29077 - rest-29078 - kw-29079 - (cons e1-29103 e2-29104) - vars-29081 - r*-29082 - w*-29083 - inits-29084 + (lambda (k-27269 v-27270 e1-27271 e2-27272) + (parse-body-26208 + req-27244 + opt-27245 + rest-27246 + kw-27247 + (cons e1-27271 e2-27272) + vars-27249 + r*-27250 + w*-27251 + inits-27252 (append - meta-29085 - (syntax->datum (map cons k-29101 v-29102))))) - tmp-29097) - (let ((tmp-29105 - ($sc-dispatch body-29080 '(any . each-any)))) - (if tmp-29105 + meta-27253 + (syntax->datum (map cons k-27269 v-27270))))) + tmp-27265) + (let ((tmp-27273 + ($sc-dispatch body-27248 '(any . each-any)))) + (if tmp-27273 (@apply - (lambda (e1-29109 e2-29110) + (lambda (e1-27277 e2-27278) (values - meta-29085 - req-29076 - opt-29077 - rest-29078 - kw-29079 - inits-29084 - vars-29081 - (expand-body-6385 - (cons e1-29109 e2-29110) - (wrap-6374 + meta-27253 + req-27244 + opt-27245 + rest-27246 + kw-27247 + inits-27252 + vars-27249 + (expand-body-4334 + (cons e1-27277 e2-27278) + (wrap-4323 (begin - (if (if (pair? e-28030) s-28033 #f) + (if (if (pair? e-26198) s-26201 #f) (set-source-properties! - e-28030 - s-28033)) - e-28030) - w-28032 - mod-28034) - r*-29082 - w*-29083 - mod-28034))) - tmp-29105) + e-26198 + s-26201)) + e-26198) + w-26200 + mod-26202) + r*-27250 + w*-27251 + mod-26202))) + tmp-27273) (syntax-violation #f "source expression failed to match any pattern" - body-29080)))))))))) - (let ((tmp-28042 ($sc-dispatch clauses-28036 '()))) - (if tmp-28042 - (@apply (lambda () (values '() #f)) tmp-28042) - (let ((tmp-28046 + body-27248)))))))))) + (let ((tmp-26210 ($sc-dispatch clauses-26204 '()))) + (if tmp-26210 + (@apply (lambda () (values '() #f)) tmp-26210) + (let ((tmp-26214 ($sc-dispatch - clauses-28036 + clauses-26204 '((any any . each-any) . #(each (any any . each-any)))))) - (if tmp-28046 + (if tmp-26214 (@apply - (lambda (args-28050 - e1-28051 - e2-28052 - args*-28053 - e1*-28054 - e2*-28055) + (lambda (args-26218 + e1-26219 + e2-26220 + args*-26221 + e1*-26222 + e2*-26223) (call-with-values - (lambda () (get-formals-28035 args-28050)) - (lambda (req-28056 opt-28057 rest-28058 kw-28059) + (lambda () (get-formals-26203 args-26218)) + (lambda (req-26224 opt-26225 rest-26226 kw-26227) (call-with-values (lambda () - (parse-req-28037 - req-28056 - opt-28057 - rest-28058 - kw-28059 - (cons e1-28051 e2-28052))) - (lambda (meta-28124 - req-28125 - opt-28126 - rest-28127 - kw-28128 - inits-28129 - vars-28130 - body-28131) + (parse-req-26205 + req-26224 + opt-26225 + rest-26226 + kw-26227 + (cons e1-26219 e2-26220))) + (lambda (meta-26292 + req-26293 + opt-26294 + rest-26295 + kw-26296 + inits-26297 + vars-26298 + body-26299) (call-with-values (lambda () - (expand-lambda-case-6393 - e-28030 - r-28031 - w-28032 - s-28033 - mod-28034 - get-formals-28035 - (map (lambda (tmp-4852-28132 - tmp-4851-28133 - tmp-4850-28134) - (cons tmp-4850-28134 - (cons tmp-4851-28133 - tmp-4852-28132))) - e2*-28055 - e1*-28054 - args*-28053))) - (lambda (meta*-28135 else*-28136) + (expand-lambda-case-4342 + e-26198 + r-26199 + w-26200 + s-26201 + mod-26202 + get-formals-26203 + (map (lambda (tmp-2801-26300 + tmp-2800-26301 + tmp-2799-26302) + (cons tmp-2799-26302 + (cons tmp-2800-26301 + tmp-2801-26300))) + e2*-26223 + e1*-26222 + args*-26221))) + (lambda (meta*-26303 else*-26304) (values - (append meta-28124 meta*-28135) + (append meta-26292 meta*-26303) (make-struct/no-tail (vector-ref %expanded-vtables 14) - s-28033 - req-28125 - opt-28126 - rest-28127 - kw-28128 - inits-28129 - vars-28130 - body-28131 - else*-28136))))))))) - tmp-28046) + s-26201 + req-26293 + opt-26294 + rest-26295 + kw-26296 + inits-26297 + vars-26298 + body-26299 + else*-26304))))))))) + tmp-26214) (syntax-violation #f "source expression failed to match any pattern" - clauses-28036)))))))) - (strip-6394 - (lambda (x-29147 w-29148) - (if (memq 'top (car w-29148)) - x-29147 + clauses-26204)))))))) + (strip-4343 + (lambda (x-27315 w-27316) + (if (memq 'top (car w-27316)) + x-27315 (letrec* - ((f-29149 - (lambda (x-29152) - (if (if (vector? x-29152) - (if (= (vector-length x-29152) 4) - (eq? (vector-ref x-29152 0) 'syntax-object) + ((f-27317 + (lambda (x-27320) + (if (if (vector? x-27320) + (if (= (vector-length x-27320) 4) + (eq? (vector-ref x-27320 0) 'syntax-object) #f) #f) - (strip-6394 - (vector-ref x-29152 1) - (vector-ref x-29152 2)) - (if (pair? x-29152) - (let ((a-29171 (f-29149 (car x-29152))) - (d-29172 (f-29149 (cdr x-29152)))) - (if (if (eq? a-29171 (car x-29152)) - (eq? d-29172 (cdr x-29152)) + (strip-4343 + (vector-ref x-27320 1) + (vector-ref x-27320 2)) + (if (pair? x-27320) + (let ((a-27339 (f-27317 (car x-27320))) + (d-27340 (f-27317 (cdr x-27320)))) + (if (if (eq? a-27339 (car x-27320)) + (eq? d-27340 (cdr x-27320)) #f) - x-29152 - (cons a-29171 d-29172))) - (if (vector? x-29152) - (let ((old-29175 (vector->list x-29152))) - (let ((new-29176 (map f-29149 old-29175))) + x-27320 + (cons a-27339 d-27340))) + (if (vector? x-27320) + (let ((old-27343 (vector->list x-27320))) + (let ((new-27344 (map f-27317 old-27343))) (letrec* - ((lp-29177 - (lambda (l1-29253 l2-29254) - (if (null? l1-29253) - x-29152 - (if (eq? (car l1-29253) (car l2-29254)) - (lp-29177 (cdr l1-29253) (cdr l2-29254)) - (list->vector new-29176)))))) - (lp-29177 old-29175 new-29176)))) - x-29152)))))) - (f-29149 x-29147))))) - (gen-var-6395 - (lambda (id-28180) - (let ((id-28181 - (if (if (vector? id-28180) - (if (= (vector-length id-28180) 4) - (eq? (vector-ref id-28180 0) 'syntax-object) + ((lp-27345 + (lambda (l1-27421 l2-27422) + (if (null? l1-27421) + x-27320 + (if (eq? (car l1-27421) (car l2-27422)) + (lp-27345 (cdr l1-27421) (cdr l2-27422)) + (list->vector new-27344)))))) + (lp-27345 old-27343 new-27344)))) + x-27320)))))) + (f-27317 x-27315))))) + (gen-var-4344 + (lambda (id-26348) + (let ((id-26349 + (if (if (vector? id-26348) + (if (= (vector-length id-26348) 4) + (eq? (vector-ref id-26348 0) 'syntax-object) #f) #f) - (vector-ref id-28180 1) - id-28180))) + (vector-ref id-26348 1) + id-26348))) (gensym - (string-append (symbol->string id-28181) "-")))))) + (string-append (symbol->string id-26349) "-")))))) (begin - (set! session-id-6306 - (let ((v-17516 + (set! session-id-4255 + (let ((v-15684 (module-variable (current-module) 'syntax-session-id))) - (lambda () ((variable-ref v-17516))))) - (set! transformer-environment-6367 + (lambda () ((variable-ref v-15684))))) + (set! transformer-environment-4316 (make-fluid - (lambda (k-16548) + (lambda (k-14716) (error "called outside the dynamic extent of a syntax transformer")))) (module-define! (current-module) @@ -8194,1117 +8192,1103 @@ 'let-syntax 'local-syntax #f)) - (global-extend-6343 + (global-extend-4292 'core 'syntax-parameterize - (lambda (e-6516 r-6517 w-6518 s-6519 mod-6520) - (let ((tmp-6522 + (lambda (e-4465 r-4466 w-4467 s-4468 mod-4469) + (let ((tmp-4471 ($sc-dispatch - e-6516 + e-4465 '(_ #(each (any any)) any . each-any)))) - (if (if tmp-6522 + (if (if tmp-4471 (@apply - (lambda (var-6526 val-6527 e1-6528 e2-6529) - (valid-bound-ids?-6371 var-6526)) - tmp-6522) + (lambda (var-4475 val-4476 e1-4477 e2-4478) + (valid-bound-ids?-4320 var-4475)) + tmp-4471) #f) (@apply - (lambda (var-6607 val-6608 e1-6609 e2-6610) - (let ((names-6611 - (map (lambda (x-6661) - (id-var-name-6364 x-6661 w-6518)) - var-6607))) + (lambda (var-4556 val-4557 e1-4558 e2-4559) + (let ((names-4560 + (map (lambda (x-4610) + (id-var-name-4313 x-4610 w-4467)) + var-4556))) (begin (for-each - (lambda (id-6612 n-6613) - (let ((key-6614 - (car (let ((t-6621 (assq n-6613 r-6517))) - (if t-6621 - (cdr t-6621) - (if (symbol? n-6613) - (let ((t-6626 - (get-global-definition-hook-6308 - n-6613 - mod-6520))) - (if t-6626 t-6626 '(global))) + (lambda (id-4561 n-4562) + (let ((key-4563 + (car (let ((t-4570 (assq n-4562 r-4466))) + (if t-4570 + (cdr t-4570) + (if (symbol? n-4562) + (let ((t-4575 + (get-global-definition-hook-4257 + n-4562 + mod-4469))) + (if t-4575 t-4575 '(global))) '(displaced-lexical))))))) - (if (eqv? key-6614 'displaced-lexical) + (if (eqv? key-4563 'displaced-lexical) (syntax-violation 'syntax-parameterize "identifier out of context" - e-6516 - (wrap-6374 + e-4465 + (wrap-4323 (begin - (if (if (pair? id-6612) s-6519 #f) - (set-source-properties! id-6612 s-6519)) - id-6612) - w-6518 - mod-6520))))) - var-6607 - names-6611) - (expand-body-6385 - (cons e1-6609 e2-6610) - (wrap-6374 + (if (if (pair? id-4561) s-4468 #f) + (set-source-properties! id-4561 s-4468)) + id-4561) + w-4467 + mod-4469))))) + var-4556 + names-4560) + (expand-body-4334 + (cons e1-4558 e2-4559) + (wrap-4323 (begin - (if (if (pair? e-6516) s-6519 #f) - (set-source-properties! e-6516 s-6519)) - e-6516) - w-6518 - mod-6520) - (extend-env-6339 - names-6611 - (let ((trans-r-6747 (macros-only-env-6341 r-6517))) - (map (lambda (x-6748) + (if (if (pair? e-4465) s-4468 #f) + (set-source-properties! e-4465 s-4468)) + e-4465) + w-4467 + mod-4469) + (extend-env-4288 + names-4560 + (let ((trans-r-4696 (macros-only-env-4290 r-4466))) + (map (lambda (x-4697) (cons 'macro - (eval-local-transformer-6387 - (expand-6381 - x-6748 - trans-r-6747 - w-6518 - mod-6520) - mod-6520))) - val-6608)) - r-6517) - w-6518 - mod-6520)))) - tmp-6522) + (eval-local-transformer-4336 + (expand-4330 + x-4697 + trans-r-4696 + w-4467 + mod-4469) + mod-4469))) + val-4557)) + r-4466) + w-4467 + mod-4469)))) + tmp-4471) (syntax-violation 'syntax-parameterize "bad syntax" - (wrap-6374 + (wrap-4323 (begin - (if (if (pair? e-6516) s-6519 #f) - (set-source-properties! e-6516 s-6519)) - e-6516) - w-6518 - mod-6520)))))) + (if (if (pair? e-4465) s-4468 #f) + (set-source-properties! e-4465 s-4468)) + e-4465) + w-4467 + mod-4469)))))) (module-define! (current-module) 'quote (make-syntax-transformer 'quote 'core - (lambda (e-6957 r-6958 w-6959 s-6960 mod-6961) - (let ((tmp-6963 ($sc-dispatch e-6957 '(_ any)))) - (if tmp-6963 + (lambda (e-4906 r-4907 w-4908 s-4909 mod-4910) + (let ((tmp-4912 ($sc-dispatch e-4906 '(_ any)))) + (if tmp-4912 (@apply - (lambda (e-6966) - (let ((exp-6970 (strip-6394 e-6966 w-6959))) + (lambda (e-4915) + (let ((exp-4919 (strip-4343 e-4915 w-4908))) (make-struct/no-tail (vector-ref %expanded-vtables 1) - s-6960 - exp-6970))) - tmp-6963) + s-4909 + exp-4919))) + tmp-4912) (syntax-violation 'quote "bad syntax" - (wrap-6374 + (wrap-4323 (begin - (if (if (pair? e-6957) s-6960 #f) - (set-source-properties! e-6957 s-6960)) - e-6957) - w-6959 - mod-6961))))))) - (global-extend-6343 + (if (if (pair? e-4906) s-4909 #f) + (set-source-properties! e-4906 s-4909)) + e-4906) + w-4908 + mod-4910))))))) + (global-extend-4292 'core 'syntax (letrec* - ((gen-syntax-7190 - (lambda (src-7292 - e-7293 - r-7294 - maps-7295 - ellipsis?-7296 - mod-7297) - (if (if (symbol? e-7293) + ((gen-syntax-5139 + (lambda (src-5241 + e-5242 + r-5243 + maps-5244 + ellipsis?-5245 + mod-5246) + (if (if (symbol? e-5242) #t - (if (if (vector? e-7293) - (if (= (vector-length e-7293) 4) - (eq? (vector-ref e-7293 0) 'syntax-object) + (if (if (vector? e-5242) + (if (= (vector-length e-5242) 4) + (eq? (vector-ref e-5242 0) 'syntax-object) #f) #f) - (symbol? (vector-ref e-7293 1)) + (symbol? (vector-ref e-5242 1)) #f)) - (let ((label-7324 (id-var-name-6364 e-7293 '(())))) - (let ((b-7325 - (let ((t-7332 (assq label-7324 r-7294))) - (if t-7332 - (cdr t-7332) - (if (symbol? label-7324) - (let ((t-7338 - (get-global-definition-hook-6308 - label-7324 - mod-7297))) - (if t-7338 t-7338 '(global))) + (let ((label-5273 (id-var-name-4313 e-5242 '(())))) + (let ((b-5274 + (let ((t-5281 (assq label-5273 r-5243))) + (if t-5281 + (cdr t-5281) + (if (symbol? label-5273) + (let ((t-5287 + (get-global-definition-hook-4257 + label-5273 + mod-5246))) + (if t-5287 t-5287 '(global))) '(displaced-lexical)))))) - (if (eq? (car b-7325) 'syntax) + (if (eq? (car b-5274) 'syntax) (call-with-values (lambda () - (let ((var.lev-7347 (cdr b-7325))) - (gen-ref-7191 - src-7292 - (car var.lev-7347) - (cdr var.lev-7347) - maps-7295))) - (lambda (var-7351 maps-7352) - (values (list 'ref var-7351) maps-7352))) - (if (ellipsis?-7296 e-7293) + (let ((var.lev-5296 (cdr b-5274))) + (gen-ref-5140 + src-5241 + (car var.lev-5296) + (cdr var.lev-5296) + maps-5244))) + (lambda (var-5300 maps-5301) + (values (list 'ref var-5300) maps-5301))) + (if (ellipsis?-5245 e-5242) (syntax-violation 'syntax "misplaced ellipsis" - src-7292) - (values (list 'quote e-7293) maps-7295))))) - (let ((tmp-7354 ($sc-dispatch e-7293 '(any any)))) - (if (if tmp-7354 + src-5241) + (values (list 'quote e-5242) maps-5244))))) + (let ((tmp-5303 ($sc-dispatch e-5242 '(any any)))) + (if (if tmp-5303 (@apply - (lambda (dots-7358 e-7359) - (ellipsis?-7296 dots-7358)) - tmp-7354) + (lambda (dots-5307 e-5308) + (ellipsis?-5245 dots-5307)) + tmp-5303) #f) (@apply - (lambda (dots-7360 e-7361) - (gen-syntax-7190 - src-7292 - e-7361 - r-7294 - maps-7295 - (lambda (x-7362) #f) - mod-7297)) - tmp-7354) - (let ((tmp-7363 ($sc-dispatch e-7293 '(any any . any)))) - (if (if tmp-7363 + (lambda (dots-5309 e-5310) + (gen-syntax-5139 + src-5241 + e-5310 + r-5243 + maps-5244 + (lambda (x-5311) #f) + mod-5246)) + tmp-5303) + (let ((tmp-5312 ($sc-dispatch e-5242 '(any any . any)))) + (if (if tmp-5312 (@apply - (lambda (x-7367 dots-7368 y-7369) - (ellipsis?-7296 dots-7368)) - tmp-7363) + (lambda (x-5316 dots-5317 y-5318) + (ellipsis?-5245 dots-5317)) + tmp-5312) #f) (@apply - (lambda (x-7370 dots-7371 y-7372) + (lambda (x-5319 dots-5320 y-5321) (letrec* - ((f-7373 - (lambda (y-7381 k-7382) - (let ((tmp-7384 + ((f-5322 + (lambda (y-5330 k-5331) + (let ((tmp-5333 ($sc-dispatch - y-7381 + y-5330 '(any . any)))) - (if (if tmp-7384 + (if (if tmp-5333 (@apply - (lambda (dots-7388 y-7389) - (ellipsis?-7296 dots-7388)) - tmp-7384) + (lambda (dots-5337 y-5338) + (ellipsis?-5245 dots-5337)) + tmp-5333) #f) (@apply - (lambda (dots-7390 y-7391) - (f-7373 - y-7391 - (lambda (maps-7392) + (lambda (dots-5339 y-5340) + (f-5322 + y-5340 + (lambda (maps-5341) (call-with-values (lambda () - (k-7382 - (cons '() maps-7392))) - (lambda (x-7393 maps-7394) - (if (null? (car maps-7394)) + (k-5331 + (cons '() maps-5341))) + (lambda (x-5342 maps-5343) + (if (null? (car maps-5343)) (syntax-violation 'syntax "extra ellipsis" - src-7292) + src-5241) (values - (let ((map-env-7398 - (car maps-7394))) + (let ((map-env-5347 + (car maps-5343))) (list 'apply '(primitive append) - (gen-map-7193 - x-7393 - map-env-7398))) - (cdr maps-7394)))))))) - tmp-7384) + (gen-map-5142 + x-5342 + map-env-5347))) + (cdr maps-5343)))))))) + tmp-5333) (call-with-values (lambda () - (gen-syntax-7190 - src-7292 - y-7381 - r-7294 - maps-7295 - ellipsis?-7296 - mod-7297)) - (lambda (y-7401 maps-7402) + (gen-syntax-5139 + src-5241 + y-5330 + r-5243 + maps-5244 + ellipsis?-5245 + mod-5246)) + (lambda (y-5350 maps-5351) (call-with-values - (lambda () (k-7382 maps-7402)) - (lambda (x-7403 maps-7404) + (lambda () (k-5331 maps-5351)) + (lambda (x-5352 maps-5353) (values - (if (equal? y-7401 ''()) - x-7403 + (if (equal? y-5350 ''()) + x-5352 (list 'append - x-7403 - y-7401)) - maps-7404)))))))))) - (f-7373 - y-7372 - (lambda (maps-7376) + x-5352 + y-5350)) + maps-5353)))))))))) + (f-5322 + y-5321 + (lambda (maps-5325) (call-with-values (lambda () - (gen-syntax-7190 - src-7292 - x-7370 - r-7294 - (cons '() maps-7376) - ellipsis?-7296 - mod-7297)) - (lambda (x-7377 maps-7378) - (if (null? (car maps-7378)) + (gen-syntax-5139 + src-5241 + x-5319 + r-5243 + (cons '() maps-5325) + ellipsis?-5245 + mod-5246)) + (lambda (x-5326 maps-5327) + (if (null? (car maps-5327)) (syntax-violation 'syntax "extra ellipsis" - src-7292) + src-5241) (values - (gen-map-7193 - x-7377 - (car maps-7378)) - (cdr maps-7378))))))))) - tmp-7363) - (let ((tmp-7420 ($sc-dispatch e-7293 '(any . any)))) - (if tmp-7420 + (gen-map-5142 + x-5326 + (car maps-5327)) + (cdr maps-5327))))))))) + tmp-5312) + (let ((tmp-5369 ($sc-dispatch e-5242 '(any . any)))) + (if tmp-5369 (@apply - (lambda (x-7424 y-7425) + (lambda (x-5373 y-5374) (call-with-values (lambda () - (gen-syntax-7190 - src-7292 - x-7424 - r-7294 - maps-7295 - ellipsis?-7296 - mod-7297)) - (lambda (x-7426 maps-7427) + (gen-syntax-5139 + src-5241 + x-5373 + r-5243 + maps-5244 + ellipsis?-5245 + mod-5246)) + (lambda (x-5375 maps-5376) (call-with-values (lambda () - (gen-syntax-7190 - src-7292 - y-7425 - r-7294 - maps-7427 - ellipsis?-7296 - mod-7297)) - (lambda (y-7428 maps-7429) + (gen-syntax-5139 + src-5241 + y-5374 + r-5243 + maps-5376 + ellipsis?-5245 + mod-5246)) + (lambda (y-5377 maps-5378) (values - (let ((key-7434 (car y-7428))) - (if (eqv? key-7434 'quote) - (if (eq? (car x-7426) 'quote) + (let ((key-5383 (car y-5377))) + (if (eqv? key-5383 'quote) + (if (eq? (car x-5375) 'quote) (list 'quote - (cons (car (cdr x-7426)) - (car (cdr y-7428)))) - (if (eq? (car (cdr y-7428)) + (cons (car (cdr x-5375)) + (car (cdr y-5377)))) + (if (eq? (car (cdr y-5377)) '()) - (list 'list x-7426) - (list 'cons x-7426 y-7428))) - (if (eqv? key-7434 'list) + (list 'list x-5375) + (list 'cons x-5375 y-5377))) + (if (eqv? key-5383 'list) (cons 'list - (cons x-7426 - (cdr y-7428))) - (list 'cons x-7426 y-7428)))) - maps-7429)))))) - tmp-7420) - (let ((tmp-7463 + (cons x-5375 + (cdr y-5377))) + (list 'cons x-5375 y-5377)))) + maps-5378)))))) + tmp-5369) + (let ((tmp-5412 ($sc-dispatch - e-7293 + e-5242 '#(vector (any . each-any))))) - (if tmp-7463 + (if tmp-5412 (@apply - (lambda (e1-7467 e2-7468) + (lambda (e1-5416 e2-5417) (call-with-values (lambda () - (gen-syntax-7190 - src-7292 - (cons e1-7467 e2-7468) - r-7294 - maps-7295 - ellipsis?-7296 - mod-7297)) - (lambda (e-7469 maps-7470) + (gen-syntax-5139 + src-5241 + (cons e1-5416 e2-5417) + r-5243 + maps-5244 + ellipsis?-5245 + mod-5246)) + (lambda (e-5418 maps-5419) (values - (if (eq? (car e-7469) 'list) - (cons 'vector (cdr e-7469)) - (if (eq? (car e-7469) 'quote) + (if (eq? (car e-5418) 'list) + (cons 'vector (cdr e-5418)) + (if (eq? (car e-5418) 'quote) (list 'quote (list->vector - (car (cdr e-7469)))) - (list 'list->vector e-7469))) - maps-7470)))) - tmp-7463) + (car (cdr e-5418)))) + (list 'list->vector e-5418))) + maps-5419)))) + tmp-5412) (values - (list 'quote e-7293) - maps-7295)))))))))))) - (gen-ref-7191 - (lambda (src-7497 var-7498 level-7499 maps-7500) - (if (= level-7499 0) - (values var-7498 maps-7500) - (if (null? maps-7500) + (list 'quote e-5242) + maps-5244)))))))))))) + (gen-ref-5140 + (lambda (src-5446 var-5447 level-5448 maps-5449) + (if (= level-5448 0) + (values var-5447 maps-5449) + (if (null? maps-5449) (syntax-violation 'syntax "missing ellipsis" - src-7497) + src-5446) (call-with-values (lambda () - (gen-ref-7191 - src-7497 - var-7498 - (#{1-}# level-7499) - (cdr maps-7500))) - (lambda (outer-var-7501 outer-maps-7502) - (let ((b-7503 (assq outer-var-7501 (car maps-7500)))) - (if b-7503 - (values (cdr b-7503) maps-7500) - (let ((inner-var-7505 + (gen-ref-5140 + src-5446 + var-5447 + (#{1-}# level-5448) + (cdr maps-5449))) + (lambda (outer-var-5450 outer-maps-5451) + (let ((b-5452 (assq outer-var-5450 (car maps-5449)))) + (if b-5452 + (values (cdr b-5452) maps-5449) + (let ((inner-var-5454 (gensym (string-append (symbol->string 'tmp) "-")))) (values - inner-var-7505 - (cons (cons (cons outer-var-7501 inner-var-7505) - (car maps-7500)) - outer-maps-7502))))))))))) - (gen-map-7193 - (lambda (e-7519 map-env-7520) - (let ((formals-7521 (map cdr map-env-7520)) - (actuals-7522 - (map (lambda (x-7524) (list 'ref (car x-7524))) - map-env-7520))) - (if (eq? (car e-7519) 'ref) - (car actuals-7522) + inner-var-5454 + (cons (cons (cons outer-var-5450 inner-var-5454) + (car maps-5449)) + outer-maps-5451))))))))))) + (gen-map-5142 + (lambda (e-5468 map-env-5469) + (let ((formals-5470 (map cdr map-env-5469)) + (actuals-5471 + (map (lambda (x-5473) (list 'ref (car x-5473))) + map-env-5469))) + (if (eq? (car e-5468) 'ref) + (car actuals-5471) (if (and-map - (lambda (x-7525) - (if (eq? (car x-7525) 'ref) - (memq (car (cdr x-7525)) formals-7521) + (lambda (x-5474) + (if (eq? (car x-5474) 'ref) + (memq (car (cdr x-5474)) formals-5470) #f)) - (cdr e-7519)) + (cdr e-5468)) (cons 'map - (cons (list 'primitive (car e-7519)) - (map (let ((r-7527 + (cons (list 'primitive (car e-5468)) + (map (let ((r-5476 (map cons - formals-7521 - actuals-7522))) - (lambda (x-7528) - (cdr (assq (car (cdr x-7528)) - r-7527)))) - (cdr e-7519)))) + formals-5470 + actuals-5471))) + (lambda (x-5477) + (cdr (assq (car (cdr x-5477)) + r-5476)))) + (cdr e-5468)))) (cons 'map - (cons (list 'lambda formals-7521 e-7519) - actuals-7522))))))) - (regen-7197 - (lambda (x-7530) - (let ((key-7531 (car x-7530))) - (if (eqv? key-7531 'ref) - (let ((name-7541 (car (cdr x-7530))) - (var-7542 (car (cdr x-7530)))) + (cons (list 'lambda formals-5470 e-5468) + actuals-5471))))))) + (regen-5146 + (lambda (x-5479) + (let ((key-5480 (car x-5479))) + (if (eqv? key-5480 'ref) + (let ((name-5490 (car (cdr x-5479))) + (var-5491 (car (cdr x-5479)))) (make-struct/no-tail (vector-ref %expanded-vtables 3) #f - name-7541 - var-7542)) - (if (eqv? key-7531 'primitive) - (let ((name-7554 (car (cdr x-7530)))) + name-5490 + var-5491)) + (if (eqv? key-5480 'primitive) + (let ((name-5503 (car (cdr x-5479)))) (if (equal? (module-name (current-module)) '(guile)) (make-struct/no-tail (vector-ref %expanded-vtables 7) #f - name-7554) + name-5503) (make-struct/no-tail (vector-ref %expanded-vtables 5) #f '(guile) - name-7554 + name-5503 #f))) - (if (eqv? key-7531 'quote) - (let ((exp-7572 (car (cdr x-7530)))) + (if (eqv? key-5480 'quote) + (let ((exp-5521 (car (cdr x-5479)))) (make-struct/no-tail (vector-ref %expanded-vtables 1) #f - exp-7572)) - (if (eqv? key-7531 'lambda) - (if (list? (car (cdr x-7530))) - (let ((req-7583 (car (cdr x-7530))) - (vars-7585 (car (cdr x-7530))) - (exp-7587 - (regen-7197 (car (cdr (cdr x-7530)))))) - (let ((body-7592 + exp-5521)) + (if (eqv? key-5480 'lambda) + (if (list? (car (cdr x-5479))) + (let ((req-5532 (car (cdr x-5479))) + (vars-5534 (car (cdr x-5479))) + (exp-5536 + (regen-5146 (car (cdr (cdr x-5479)))))) + (let ((body-5541 (make-struct/no-tail (vector-ref %expanded-vtables 14) #f - req-7583 + req-5532 #f #f #f '() - vars-7585 - exp-7587 + vars-5534 + exp-5536 #f))) (make-struct/no-tail (vector-ref %expanded-vtables 13) #f '() - body-7592))) - (error "how did we get here" x-7530)) - (let ((fun-exp-7608 - (let ((name-7617 (car x-7530))) + body-5541))) + (error "how did we get here" x-5479)) + (let ((fun-exp-5557 + (let ((name-5566 (car x-5479))) (if (equal? (module-name (current-module)) '(guile)) (make-struct/no-tail (vector-ref %expanded-vtables 7) #f - name-7617) + name-5566) (make-struct/no-tail (vector-ref %expanded-vtables 5) #f '(guile) - name-7617 + name-5566 #f)))) - (arg-exps-7609 (map regen-7197 (cdr x-7530)))) + (arg-exps-5558 (map regen-5146 (cdr x-5479)))) (make-struct/no-tail (vector-ref %expanded-vtables 11) #f - fun-exp-7608 - arg-exps-7609)))))))))) - (lambda (e-7198 r-7199 w-7200 s-7201 mod-7202) - (let ((e-7203 - (wrap-6374 + fun-exp-5557 + arg-exps-5558)))))))))) + (lambda (e-5147 r-5148 w-5149 s-5150 mod-5151) + (let ((e-5152 + (wrap-4323 (begin - (if (if (pair? e-7198) s-7201 #f) - (set-source-properties! e-7198 s-7201)) - e-7198) - w-7200 - mod-7202))) - (let ((tmp-7205 ($sc-dispatch e-7203 '(_ any)))) - (if tmp-7205 + (if (if (pair? e-5147) s-5150 #f) + (set-source-properties! e-5147 s-5150)) + e-5147) + w-5149 + mod-5151))) + (let ((tmp-5154 ($sc-dispatch e-5152 '(_ any)))) + (if tmp-5154 (@apply - (lambda (x-7230) + (lambda (x-5179) (call-with-values (lambda () - (gen-syntax-7190 - e-7203 - x-7230 - r-7199 + (gen-syntax-5139 + e-5152 + x-5179 + r-5148 '() - ellipsis?-6389 - mod-7202)) - (lambda (e-7284 maps-7285) (regen-7197 e-7284)))) - tmp-7205) + ellipsis?-4338 + mod-5151)) + (lambda (e-5233 maps-5234) (regen-5146 e-5233)))) + tmp-5154) (syntax-violation 'syntax "bad `syntax' form" - e-7203))))))) - (global-extend-6343 + e-5152))))))) + (global-extend-4292 'core 'lambda - (lambda (e-7805 r-7806 w-7807 s-7808 mod-7809) - (let ((tmp-7811 - ($sc-dispatch e-7805 '(_ any any . each-any)))) - (if tmp-7811 + (lambda (e-5754 r-5755 w-5756 s-5757 mod-5758) + (let ((tmp-5760 + ($sc-dispatch e-5754 '(_ any any . each-any)))) + (if tmp-5760 (@apply - (lambda (args-7815 e1-7816 e2-7817) + (lambda (args-5764 e1-5765 e2-5766) (call-with-values - (lambda () (lambda-formals-6390 args-7815)) - (lambda (req-7820 opt-7821 rest-7822 kw-7823) + (lambda () (lambda-formals-4339 args-5764)) + (lambda (req-5769 opt-5770 rest-5771 kw-5772) (letrec* - ((lp-7824 - (lambda (body-7827 meta-7828) - (let ((tmp-7830 + ((lp-5773 + (lambda (body-5776 meta-5777) + (let ((tmp-5779 ($sc-dispatch - body-7827 + body-5776 '(any any . each-any)))) - (if (if tmp-7830 + (if (if tmp-5779 (@apply - (lambda (docstring-7834 e1-7835 e2-7836) + (lambda (docstring-5783 e1-5784 e2-5785) (string? - (syntax->datum docstring-7834))) - tmp-7830) + (syntax->datum docstring-5783))) + tmp-5779) #f) (@apply - (lambda (docstring-7837 e1-7838 e2-7839) - (lp-7824 - (cons e1-7838 e2-7839) + (lambda (docstring-5786 e1-5787 e2-5788) + (lp-5773 + (cons e1-5787 e2-5788) (append - meta-7828 + meta-5777 (list (cons 'documentation (syntax->datum - docstring-7837)))))) - tmp-7830) - (let ((tmp-7840 + docstring-5786)))))) + tmp-5779) + (let ((tmp-5789 ($sc-dispatch - body-7827 + body-5776 '(#(vector #(each (any . any))) any . each-any)))) - (if tmp-7840 + (if tmp-5789 (@apply - (lambda (k-7844 v-7845 e1-7846 e2-7847) - (lp-7824 - (cons e1-7846 e2-7847) + (lambda (k-5793 v-5794 e1-5795 e2-5796) + (lp-5773 + (cons e1-5795 e2-5796) (append - meta-7828 + meta-5777 (syntax->datum - (map cons k-7844 v-7845))))) - tmp-7840) - (expand-simple-lambda-6391 - e-7805 - r-7806 - w-7807 - s-7808 - mod-7809 - req-7820 - rest-7822 - meta-7828 - body-7827)))))))) - (lp-7824 (cons e1-7816 e2-7817) '()))))) - tmp-7811) - (syntax-violation 'lambda "bad lambda" e-7805))))) - (global-extend-6343 + (map cons k-5793 v-5794))))) + tmp-5789) + (expand-simple-lambda-4340 + e-5754 + r-5755 + w-5756 + s-5757 + mod-5758 + req-5769 + rest-5771 + meta-5777 + body-5776)))))))) + (lp-5773 (cons e1-5765 e2-5766) '()))))) + tmp-5760) + (syntax-violation 'lambda "bad lambda" e-5754))))) + (global-extend-4292 'core 'lambda* - (lambda (e-8136 r-8137 w-8138 s-8139 mod-8140) - (let ((tmp-8142 - ($sc-dispatch e-8136 '(_ any any . each-any)))) - (if tmp-8142 + (lambda (e-6085 r-6086 w-6087 s-6088 mod-6089) + (let ((tmp-6091 + ($sc-dispatch e-6085 '(_ any any . each-any)))) + (if tmp-6091 (@apply - (lambda (args-8146 e1-8147 e2-8148) + (lambda (args-6095 e1-6096 e2-6097) (call-with-values (lambda () - (expand-lambda-case-6393 - e-8136 - r-8137 - w-8138 - s-8139 - mod-8140 - lambda*-formals-6392 - (list (cons args-8146 (cons e1-8147 e2-8148))))) - (lambda (meta-8151 lcase-8152) + (expand-lambda-case-4342 + e-6085 + r-6086 + w-6087 + s-6088 + mod-6089 + lambda*-formals-4341 + (list (cons args-6095 (cons e1-6096 e2-6097))))) + (lambda (meta-6100 lcase-6101) (make-struct/no-tail (vector-ref %expanded-vtables 13) - s-8139 - meta-8151 - lcase-8152)))) - tmp-8142) - (syntax-violation 'lambda "bad lambda*" e-8136))))) - (global-extend-6343 + s-6088 + meta-6100 + lcase-6101)))) + tmp-6091) + (syntax-violation 'lambda "bad lambda*" e-6085))))) + (global-extend-4292 'core 'case-lambda - (lambda (e-8322 r-8323 w-8324 s-8325 mod-8326) - (let ((tmp-8328 + (lambda (e-6271 r-6272 w-6273 s-6274 mod-6275) + (let ((tmp-6277 ($sc-dispatch - e-8322 + e-6271 '(_ (any any . each-any) . #(each (any any . each-any)))))) - (if tmp-8328 + (if tmp-6277 (@apply - (lambda (args-8332 - e1-8333 - e2-8334 - args*-8335 - e1*-8336 - e2*-8337) + (lambda (args-6281 + e1-6282 + e2-6283 + args*-6284 + e1*-6285 + e2*-6286) (call-with-values (lambda () - (expand-lambda-case-6393 - e-8322 - r-8323 - w-8324 - s-8325 - mod-8326 - lambda-formals-6390 - (cons (cons args-8332 (cons e1-8333 e2-8334)) - (map (lambda (tmp-5320-8340 - tmp-5319-8341 - tmp-5318-8342) - (cons tmp-5318-8342 - (cons tmp-5319-8341 tmp-5320-8340))) - e2*-8337 - e1*-8336 - args*-8335)))) - (lambda (meta-8343 lcase-8344) + (expand-lambda-case-4342 + e-6271 + r-6272 + w-6273 + s-6274 + mod-6275 + lambda-formals-4339 + (cons (cons args-6281 (cons e1-6282 e2-6283)) + (map (lambda (tmp-3269-6289 + tmp-3268-6290 + tmp-3267-6291) + (cons tmp-3267-6291 + (cons tmp-3268-6290 tmp-3269-6289))) + e2*-6286 + e1*-6285 + args*-6284)))) + (lambda (meta-6292 lcase-6293) (make-struct/no-tail (vector-ref %expanded-vtables 13) - s-8325 - meta-8343 - lcase-8344)))) - tmp-8328) + s-6274 + meta-6292 + lcase-6293)))) + tmp-6277) (syntax-violation 'case-lambda "bad case-lambda" - e-8322))))) - (global-extend-6343 + e-6271))))) + (global-extend-4292 'core 'case-lambda* - (lambda (e-8506 r-8507 w-8508 s-8509 mod-8510) - (let ((tmp-8512 + (lambda (e-6455 r-6456 w-6457 s-6458 mod-6459) + (let ((tmp-6461 ($sc-dispatch - e-8506 + e-6455 '(_ (any any . each-any) . #(each (any any . each-any)))))) - (if tmp-8512 + (if tmp-6461 (@apply - (lambda (args-8516 - e1-8517 - e2-8518 - args*-8519 - e1*-8520 - e2*-8521) + (lambda (args-6465 + e1-6466 + e2-6467 + args*-6468 + e1*-6469 + e2*-6470) (call-with-values (lambda () - (expand-lambda-case-6393 - e-8506 - r-8507 - w-8508 - s-8509 - mod-8510 - lambda*-formals-6392 - (cons (cons args-8516 (cons e1-8517 e2-8518)) - (map (lambda (tmp-5355-8524 - tmp-5354-8525 - tmp-5353-8526) - (cons tmp-5353-8526 - (cons tmp-5354-8525 tmp-5355-8524))) - e2*-8521 - e1*-8520 - args*-8519)))) - (lambda (meta-8527 lcase-8528) + (expand-lambda-case-4342 + e-6455 + r-6456 + w-6457 + s-6458 + mod-6459 + lambda*-formals-4341 + (cons (cons args-6465 (cons e1-6466 e2-6467)) + (map (lambda (tmp-3304-6473 + tmp-3303-6474 + tmp-3302-6475) + (cons tmp-3302-6475 + (cons tmp-3303-6474 tmp-3304-6473))) + e2*-6470 + e1*-6469 + args*-6468)))) + (lambda (meta-6476 lcase-6477) (make-struct/no-tail (vector-ref %expanded-vtables 13) - s-8509 - meta-8527 - lcase-8528)))) - tmp-8512) + s-6458 + meta-6476 + lcase-6477)))) + tmp-6461) (syntax-violation 'case-lambda "bad case-lambda*" - e-8506))))) - (global-extend-6343 + e-6455))))) + (global-extend-4292 'core 'let (letrec* - ((expand-let-8719 - (lambda (e-8868 - r-8869 - w-8870 - s-8871 - mod-8872 - constructor-8873 - ids-8874 - vals-8875 - exps-8876) - (if (not (valid-bound-ids?-6371 ids-8874)) + ((expand-let-6668 + (lambda (e-6817 + r-6818 + w-6819 + s-6820 + mod-6821 + constructor-6822 + ids-6823 + vals-6824 + exps-6825) + (if (not (valid-bound-ids?-4320 ids-6823)) (syntax-violation 'let "duplicate bound variable" - e-8868) - (let ((labels-8954 (gen-labels-6348 ids-8874)) - (new-vars-8955 (map gen-var-6395 ids-8874))) - (let ((nw-8956 - (make-binding-wrap-6359 - ids-8874 - labels-8954 - w-8870)) - (nr-8957 - (extend-var-env-6340 - labels-8954 - new-vars-8955 - r-8869))) - (constructor-8873 - s-8871 - (map syntax->datum ids-8874) - new-vars-8955 - (map (lambda (x-8974) - (expand-6381 x-8974 r-8869 w-8870 mod-8872)) - vals-8875) - (expand-body-6385 - exps-8876 - (source-wrap-6375 e-8868 nw-8956 s-8871 mod-8872) - nr-8957 - nw-8956 - mod-8872)))))))) - (lambda (e-8720 r-8721 w-8722 s-8723 mod-8724) - (let ((tmp-8726 + e-6817) + (let ((labels-6903 (gen-labels-4297 ids-6823)) + (new-vars-6904 (map gen-var-4344 ids-6823))) + (let ((nw-6905 + (make-binding-wrap-4308 + ids-6823 + labels-6903 + w-6819)) + (nr-6906 + (extend-var-env-4289 + labels-6903 + new-vars-6904 + r-6818))) + (constructor-6822 + s-6820 + (map syntax->datum ids-6823) + new-vars-6904 + (map (lambda (x-6923) + (expand-4330 x-6923 r-6818 w-6819 mod-6821)) + vals-6824) + (expand-body-4334 + exps-6825 + (source-wrap-4324 e-6817 nw-6905 s-6820 mod-6821) + nr-6906 + nw-6905 + mod-6821)))))))) + (lambda (e-6669 r-6670 w-6671 s-6672 mod-6673) + (let ((tmp-6675 ($sc-dispatch - e-8720 + e-6669 '(_ #(each (any any)) any . each-any)))) - (if (if tmp-8726 + (if (if tmp-6675 (@apply - (lambda (id-8730 val-8731 e1-8732 e2-8733) - (and-map id?-6345 id-8730)) - tmp-8726) + (lambda (id-6679 val-6680 e1-6681 e2-6682) + (and-map id?-4294 id-6679)) + tmp-6675) #f) (@apply - (lambda (id-8749 val-8750 e1-8751 e2-8752) - (expand-let-8719 - e-8720 - r-8721 - w-8722 - s-8723 - mod-8724 - build-let-6327 - id-8749 - val-8750 - (cons e1-8751 e2-8752))) - tmp-8726) - (let ((tmp-8782 + (lambda (id-6698 val-6699 e1-6700 e2-6701) + (expand-let-6668 + e-6669 + r-6670 + w-6671 + s-6672 + mod-6673 + build-let-4276 + id-6698 + val-6699 + (cons e1-6700 e2-6701))) + tmp-6675) + (let ((tmp-6731 ($sc-dispatch - e-8720 + e-6669 '(_ any #(each (any any)) any . each-any)))) - (if (if tmp-8782 + (if (if tmp-6731 (@apply - (lambda (f-8786 id-8787 val-8788 e1-8789 e2-8790) - (if (if (symbol? f-8786) + (lambda (f-6735 id-6736 val-6737 e1-6738 e2-6739) + (if (if (symbol? f-6735) #t - (if (if (vector? f-8786) - (if (= (vector-length f-8786) 4) - (eq? (vector-ref f-8786 0) + (if (if (vector? f-6735) + (if (= (vector-length f-6735) 4) + (eq? (vector-ref f-6735 0) 'syntax-object) #f) #f) - (symbol? (vector-ref f-8786 1)) + (symbol? (vector-ref f-6735 1)) #f)) - (and-map id?-6345 id-8787) + (and-map id?-4294 id-6736) #f)) - tmp-8782) + tmp-6731) #f) (@apply - (lambda (f-8832 id-8833 val-8834 e1-8835 e2-8836) - (expand-let-8719 - e-8720 - r-8721 - w-8722 - s-8723 - mod-8724 - build-named-let-6328 - (cons f-8832 id-8833) - val-8834 - (cons e1-8835 e2-8836))) - tmp-8782) + (lambda (f-6781 id-6782 val-6783 e1-6784 e2-6785) + (expand-let-6668 + e-6669 + r-6670 + w-6671 + s-6672 + mod-6673 + build-named-let-4277 + (cons f-6781 id-6782) + val-6783 + (cons e1-6784 e2-6785))) + tmp-6731) (syntax-violation 'let "bad let" - (wrap-6374 + (wrap-4323 (begin - (if (if (pair? e-8720) s-8723 #f) - (set-source-properties! e-8720 s-8723)) - e-8720) - w-8722 - mod-8724))))))))) - (global-extend-6343 + (if (if (pair? e-6669) s-6672 #f) + (set-source-properties! e-6669 s-6672)) + e-6669) + w-6671 + mod-6673))))))))) + (global-extend-4292 'core 'letrec - (lambda (e-9386 r-9387 w-9388 s-9389 mod-9390) - (let ((tmp-9392 + (lambda (e-7335 r-7336 w-7337 s-7338 mod-7339) + (let ((tmp-7341 ($sc-dispatch - e-9386 + e-7335 '(_ #(each (any any)) any . each-any)))) - (if (if tmp-9392 + (if (if tmp-7341 (@apply - (lambda (id-9396 val-9397 e1-9398 e2-9399) - (and-map id?-6345 id-9396)) - tmp-9392) + (lambda (id-7345 val-7346 e1-7347 e2-7348) + (and-map id?-4294 id-7345)) + tmp-7341) #f) (@apply - (lambda (id-9415 val-9416 e1-9417 e2-9418) - (if (not (valid-bound-ids?-6371 id-9415)) + (lambda (id-7364 val-7365 e1-7366 e2-7367) + (if (not (valid-bound-ids?-4320 id-7364)) (syntax-violation 'letrec "duplicate bound variable" - e-9386) - (let ((labels-9508 (gen-labels-6348 id-9415)) - (new-vars-9509 (map gen-var-6395 id-9415))) - (let ((w-9510 - (make-binding-wrap-6359 - id-9415 - labels-9508 - w-9388)) - (r-9511 - (extend-var-env-6340 - labels-9508 - new-vars-9509 - r-9387))) - (build-letrec-6329 - s-9389 + e-7335) + (let ((labels-7457 (gen-labels-4297 id-7364)) + (new-vars-7458 (map gen-var-4344 id-7364))) + (let ((w-7459 + (make-binding-wrap-4308 + id-7364 + labels-7457 + w-7337)) + (r-7460 + (extend-var-env-4289 + labels-7457 + new-vars-7458 + r-7336))) + (build-letrec-4278 + s-7338 #f - (map syntax->datum id-9415) - new-vars-9509 - (map (lambda (x-9596) - (expand-6381 x-9596 r-9511 w-9510 mod-9390)) - val-9416) - (expand-body-6385 - (cons e1-9417 e2-9418) - (wrap-6374 + (map syntax->datum id-7364) + new-vars-7458 + (map (lambda (x-7545) + (expand-4330 x-7545 r-7460 w-7459 mod-7339)) + val-7365) + (expand-body-4334 + (cons e1-7366 e2-7367) + (wrap-4323 (begin - (if (if (pair? e-9386) s-9389 #f) - (set-source-properties! e-9386 s-9389)) - e-9386) - w-9510 - mod-9390) - r-9511 - w-9510 - mod-9390)))))) - tmp-9392) + (if (if (pair? e-7335) s-7338 #f) + (set-source-properties! e-7335 s-7338)) + e-7335) + w-7459 + mod-7339) + r-7460 + w-7459 + mod-7339)))))) + tmp-7341) (syntax-violation 'letrec "bad letrec" - (wrap-6374 + (wrap-4323 (begin - (if (if (pair? e-9386) s-9389 #f) - (set-source-properties! e-9386 s-9389)) - e-9386) - w-9388 - mod-9390)))))) - (global-extend-6343 + (if (if (pair? e-7335) s-7338 #f) + (set-source-properties! e-7335 s-7338)) + e-7335) + w-7337 + mod-7339)))))) + (global-extend-4292 'core 'letrec* - (lambda (e-9991 r-9992 w-9993 s-9994 mod-9995) - (let ((tmp-9997 + (lambda (e-7940 r-7941 w-7942 s-7943 mod-7944) + (let ((tmp-7946 ($sc-dispatch - e-9991 + e-7940 '(_ #(each (any any)) any . each-any)))) - (if (if tmp-9997 + (if (if tmp-7946 (@apply - (lambda (id-10001 val-10002 e1-10003 e2-10004) - (and-map id?-6345 id-10001)) - tmp-9997) + (lambda (id-7950 val-7951 e1-7952 e2-7953) + (and-map id?-4294 id-7950)) + tmp-7946) #f) (@apply - (lambda (id-10020 val-10021 e1-10022 e2-10023) - (if (not (valid-bound-ids?-6371 id-10020)) + (lambda (id-7969 val-7970 e1-7971 e2-7972) + (if (not (valid-bound-ids?-4320 id-7969)) (syntax-violation 'letrec* "duplicate bound variable" - e-9991) - (let ((labels-10113 (gen-labels-6348 id-10020)) - (new-vars-10114 (map gen-var-6395 id-10020))) - (let ((w-10115 - (make-binding-wrap-6359 - id-10020 - labels-10113 - w-9993)) - (r-10116 - (extend-var-env-6340 - labels-10113 - new-vars-10114 - r-9992))) - (build-letrec-6329 - s-9994 + e-7940) + (let ((labels-8062 (gen-labels-4297 id-7969)) + (new-vars-8063 (map gen-var-4344 id-7969))) + (let ((w-8064 + (make-binding-wrap-4308 + id-7969 + labels-8062 + w-7942)) + (r-8065 + (extend-var-env-4289 + labels-8062 + new-vars-8063 + r-7941))) + (build-letrec-4278 + s-7943 #t - (map syntax->datum id-10020) - new-vars-10114 - (map (lambda (x-10201) - (expand-6381 - x-10201 - r-10116 - w-10115 - mod-9995)) - val-10021) - (expand-body-6385 - (cons e1-10022 e2-10023) - (wrap-6374 + (map syntax->datum id-7969) + new-vars-8063 + (map (lambda (x-8150) + (expand-4330 x-8150 r-8065 w-8064 mod-7944)) + val-7970) + (expand-body-4334 + (cons e1-7971 e2-7972) + (wrap-4323 (begin - (if (if (pair? e-9991) s-9994 #f) - (set-source-properties! e-9991 s-9994)) - e-9991) - w-10115 - mod-9995) - r-10116 - w-10115 - mod-9995)))))) - tmp-9997) + (if (if (pair? e-7940) s-7943 #f) + (set-source-properties! e-7940 s-7943)) + e-7940) + w-8064 + mod-7944) + r-8065 + w-8064 + mod-7944)))))) + tmp-7946) (syntax-violation 'letrec* "bad letrec*" - (wrap-6374 + (wrap-4323 (begin - (if (if (pair? e-9991) s-9994 #f) - (set-source-properties! e-9991 s-9994)) - e-9991) - w-9993 - mod-9995)))))) - (global-extend-6343 + (if (if (pair? e-7940) s-7943 #f) + (set-source-properties! e-7940 s-7943)) + e-7940) + w-7942 + mod-7944)))))) + (global-extend-4292 'core 'set! - (lambda (e-10635 r-10636 w-10637 s-10638 mod-10639) - (let ((tmp-10641 ($sc-dispatch e-10635 '(_ any any)))) - (if (if tmp-10641 + (lambda (e-8584 r-8585 w-8586 s-8587 mod-8588) + (let ((tmp-8590 ($sc-dispatch e-8584 '(_ any any)))) + (if (if tmp-8590 (@apply - (lambda (id-10645 val-10646) - (if (symbol? id-10645) + (lambda (id-8594 val-8595) + (if (symbol? id-8594) #t - (if (if (vector? id-10645) - (if (= (vector-length id-10645) 4) - (eq? (vector-ref id-10645 0) 'syntax-object) + (if (if (vector? id-8594) + (if (= (vector-length id-8594) 4) + (eq? (vector-ref id-8594 0) 'syntax-object) #f) #f) - (symbol? (vector-ref id-10645 1)) + (symbol? (vector-ref id-8594 1)) #f))) - tmp-10641) + tmp-8590) #f) (@apply - (lambda (id-10673 val-10674) - (let ((n-10675 (id-var-name-6364 id-10673 w-10637)) - (id-mod-10676 - (if (if (vector? id-10673) - (if (= (vector-length id-10673) 4) - (eq? (vector-ref id-10673 0) 'syntax-object) + (lambda (id-8622 val-8623) + (let ((n-8624 (id-var-name-4313 id-8622 w-8586)) + (id-mod-8625 + (if (if (vector? id-8622) + (if (= (vector-length id-8622) 4) + (eq? (vector-ref id-8622 0) 'syntax-object) #f) #f) - (vector-ref id-10673 3) - mod-10639))) - (let ((b-10677 - (let ((t-10718 (assq n-10675 r-10636))) - (if t-10718 - (cdr t-10718) - (if (symbol? n-10675) - (let ((t-10723 - (get-global-definition-hook-6308 - n-10675 - id-mod-10676))) - (if t-10723 t-10723 '(global))) + (vector-ref id-8622 3) + mod-8588))) + (let ((b-8626 + (let ((t-8667 (assq n-8624 r-8585))) + (if t-8667 + (cdr t-8667) + (if (symbol? n-8624) + (let ((t-8672 + (get-global-definition-hook-4257 + n-8624 + id-mod-8625))) + (if t-8672 t-8672 '(global))) '(displaced-lexical)))))) - (let ((key-10678 (car b-10677))) - (if (eqv? key-10678 'lexical) - (build-lexical-assignment-6316 - s-10638 - (syntax->datum id-10673) - (cdr b-10677) - (expand-6381 val-10674 r-10636 w-10637 mod-10639)) - (if (eqv? key-10678 'global) - (build-global-assignment-6319 - s-10638 - n-10675 - (expand-6381 val-10674 r-10636 w-10637 mod-10639) - id-mod-10676) - (if (eqv? key-10678 'macro) - (let ((p-11037 (cdr b-10677))) + (let ((key-8627 (car b-8626))) + (if (eqv? key-8627 'lexical) + (build-lexical-assignment-4265 + s-8587 + (syntax->datum id-8622) + (cdr b-8626) + (expand-4330 val-8623 r-8585 w-8586 mod-8588)) + (if (eqv? key-8627 'global) + (build-global-assignment-4268 + s-8587 + n-8624 + (expand-4330 val-8623 r-8585 w-8586 mod-8588) + id-mod-8625) + (if (eqv? key-8627 'macro) + (let ((p-8986 (cdr b-8626))) (if (procedure-property - p-11037 + p-8986 'variable-transformer) - (expand-6381 - (expand-macro-6384 - p-11037 - e-10635 - r-10636 - w-10637 - s-10638 + (expand-4330 + (expand-macro-4333 + p-8986 + e-8584 + r-8585 + w-8586 + s-8587 #f - mod-10639) - r-10636 + mod-8588) + r-8585 '(()) - mod-10639) + mod-8588) (syntax-violation 'set! "not a variable transformer" - (wrap-6374 e-10635 w-10637 mod-10639) - (wrap-6374 - id-10673 - w-10637 - id-mod-10676)))) - (if (eqv? key-10678 'displaced-lexical) + (wrap-4323 e-8584 w-8586 mod-8588) + (wrap-4323 id-8622 w-8586 id-mod-8625)))) + (if (eqv? key-8627 'displaced-lexical) (syntax-violation 'set! "identifier out of context" - (wrap-6374 id-10673 w-10637 mod-10639)) + (wrap-4323 id-8622 w-8586 mod-8588)) (syntax-violation 'set! "bad set!" - (wrap-6374 + (wrap-4323 (begin - (if (if (pair? e-10635) s-10638 #f) - (set-source-properties! - e-10635 - s-10638)) - e-10635) - w-10637 - mod-10639)))))))))) - tmp-10641) - (let ((tmp-11132 - ($sc-dispatch e-10635 '(_ (any . each-any) any)))) - (if tmp-11132 + (if (if (pair? e-8584) s-8587 #f) + (set-source-properties! e-8584 s-8587)) + e-8584) + w-8586 + mod-8588)))))))))) + tmp-8590) + (let ((tmp-9081 + ($sc-dispatch e-8584 '(_ (any . each-any) any)))) + (if tmp-9081 (@apply - (lambda (head-11136 tail-11137 val-11138) + (lambda (head-9085 tail-9086 val-9087) (call-with-values (lambda () - (syntax-type-6380 - head-11136 - r-10636 + (syntax-type-4329 + head-9085 + r-8585 '(()) #f #f - mod-10639 + mod-8588 #t)) - (lambda (type-11141 - value-11142 - formform-11143 - ee-11144 - ww-11145 - ss-11146 - modmod-11147) - (if (eqv? type-11141 'module-ref) - (let ((val-11153 - (expand-6381 - val-11138 - r-10636 - w-10637 - mod-10639))) + (lambda (type-9090 + value-9091 + formform-9092 + ee-9093 + ww-9094 + ss-9095 + modmod-9096) + (if (eqv? type-9090 'module-ref) + (let ((val-9102 + (expand-4330 + val-9087 + r-8585 + w-8586 + mod-8588))) (call-with-values (lambda () - (value-11142 - (cons head-11136 tail-11137) - r-10636 - w-10637)) - (lambda (e-11154 - r-11155 - w-11156 - s*-11157 - mod-11158) - (let ((tmp-11160 (list e-11154))) + (value-9091 + (cons head-9085 tail-9086) + r-8585 + w-8586)) + (lambda (e-9103 r-9104 w-9105 s*-9106 mod-9107) + (let ((tmp-9109 (list e-9103))) (if (@apply - (lambda (e-11162) - (if (symbol? e-11162) + (lambda (e-9111) + (if (symbol? e-9111) #t - (if (if (vector? e-11162) + (if (if (vector? e-9111) (if (= (vector-length - e-11162) + e-9111) 4) (eq? (vector-ref - e-11162 + e-9111 0) 'syntax-object) #f) #f) - (symbol? - (vector-ref e-11162 1)) + (symbol? (vector-ref e-9111 1)) #f))) - tmp-11160) + tmp-9109) (@apply - (lambda (e-11192) - (build-global-assignment-6319 - s-10638 - (syntax->datum e-11192) - val-11153 - mod-11158)) - tmp-11160) + (lambda (e-9141) + (build-global-assignment-4268 + s-8587 + (syntax->datum e-9141) + val-9102 + mod-9107)) + tmp-9109) (syntax-violation #f "source expression failed to match any pattern" - e-11154)))))) - (build-application-6312 - s-10638 - (let ((e-11417 + e-9103)))))) + (build-application-4261 + s-8587 + (let ((e-9366 (list '#(syntax-object setter ((top) #(ribcage () () ()) #(ribcage #(key) - #((m-*-5604 top)) - #("l-*-5605")) + #((m-*-3553 top)) + #("l-*-3554")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage @@ -9322,19 +9306,19 @@ (top) (top) (top)) - #("l-*-5597" - "l-*-5598" - "l-*-5599" - "l-*-5600" - "l-*-5601" - "l-*-5602" - "l-*-5603")) + #("l-*-3546" + "l-*-3547" + "l-*-3548" + "l-*-3549" + "l-*-3550" + "l-*-3551" + "l-*-3552")) #(ribcage #(head tail val) #((top) (top) (top)) - #("l-*-5582" - "l-*-5583" - "l-*-5584")) + #("l-*-3531" + "l-*-3532" + "l-*-3533")) #(ribcage () () ()) #(ribcage #(e r w s mod) @@ -9343,11 +9327,11 @@ (top) (top) (top)) - #("l-*-5551" - "l-*-5552" - "l-*-5553" - "l-*-5554" - "l-*-5555")) + #("l-*-3500" + "l-*-3501" + "l-*-3502" + "l-*-3503" + "l-*-3504")) #(ribcage (lambda-var-list gen-var @@ -9629,253 +9613,252 @@ (top) (top) (top)) - ("l-*-2527" - "l-*-2525" - "l-*-2523" - "l-*-2521" - "l-*-2519" - "l-*-2517" - "l-*-2515" - "l-*-2513" - "l-*-2511" - "l-*-2509" - "l-*-2507" - "l-*-2505" - "l-*-2503" - "l-*-2501" - "l-*-2499" - "l-*-2497" - "l-*-2495" - "l-*-2493" - "l-*-2491" - "l-*-2489" - "l-*-2487" - "l-*-2485" - "l-*-2483" - "l-*-2481" - "l-*-2479" - "l-*-2477" - "l-*-2475" - "l-*-2473" - "l-*-2471" - "l-*-2469" - "l-*-2467" - "l-*-2465" - "l-*-2463" - "l-*-2461" - "l-*-2459" - "l-*-2457" - "l-*-2455" - "l-*-2453" - "l-*-2451" - "l-*-2450" - "l-*-2448" - "l-*-2445" - "l-*-2444" - "l-*-2443" - "l-*-2441" - "l-*-2440" - "l-*-2438" - "l-*-2436" - "l-*-2434" - "l-*-2432" - "l-*-2430" - "l-*-2428" - "l-*-2426" - "l-*-2424" - "l-*-2421" - "l-*-2419" - "l-*-2418" - "l-*-2416" - "l-*-2414" - "l-*-2412" - "l-*-2410" - "l-*-2409" - "l-*-2408" - "l-*-2407" - "l-*-2405" - "l-*-2404" - "l-*-2401" - "l-*-2399" - "l-*-2397" - "l-*-2395" - "l-*-2393" - "l-*-2391" - "l-*-2389" - "l-*-2388" - "l-*-2387" - "l-*-2385" - "l-*-2383" - "l-*-2382" - "l-*-2379" - "l-*-2378" - "l-*-2376" - "l-*-2374" - "l-*-2372" - "l-*-2370" - "l-*-2368" - "l-*-2366" - "l-*-2364" - "l-*-2362" - "l-*-2360" - "l-*-2357" - "l-*-2355" - "l-*-2353" - "l-*-2351" - "l-*-2349" - "l-*-2347" - "l-*-2345" - "l-*-2343" - "l-*-2341" - "l-*-2339" - "l-*-2337" - "l-*-2335" - "l-*-2333" - "l-*-2331" - "l-*-2329" - "l-*-2327" - "l-*-2325" - "l-*-2323" - "l-*-2321" - "l-*-2319" - "l-*-2317" - "l-*-2315" - "l-*-2313" - "l-*-2311" - "l-*-2309" - "l-*-2307" - "l-*-2306" - "l-*-2305" - "l-*-2304" - "l-*-2303" - "l-*-2301" - "l-*-2299" - "l-*-2297" - "l-*-2294" - "l-*-2292" - "l-*-2290" - "l-*-2288" - "l-*-2286" - "l-*-2284" - "l-*-2282" - "l-*-2280" - "l-*-2278" - "l-*-2276" - "l-*-2274" - "l-*-2272" - "l-*-2270" - "l-*-2268" - "l-*-2266" - "l-*-2264" - "l-*-2262" - "l-*-2260")) + ("l-*-476" + "l-*-474" + "l-*-472" + "l-*-470" + "l-*-468" + "l-*-466" + "l-*-464" + "l-*-462" + "l-*-460" + "l-*-458" + "l-*-456" + "l-*-454" + "l-*-452" + "l-*-450" + "l-*-448" + "l-*-446" + "l-*-444" + "l-*-442" + "l-*-440" + "l-*-438" + "l-*-436" + "l-*-434" + "l-*-432" + "l-*-430" + "l-*-428" + "l-*-426" + "l-*-424" + "l-*-422" + "l-*-420" + "l-*-418" + "l-*-416" + "l-*-414" + "l-*-412" + "l-*-410" + "l-*-408" + "l-*-406" + "l-*-404" + "l-*-402" + "l-*-400" + "l-*-399" + "l-*-397" + "l-*-394" + "l-*-393" + "l-*-392" + "l-*-390" + "l-*-389" + "l-*-387" + "l-*-385" + "l-*-383" + "l-*-381" + "l-*-379" + "l-*-377" + "l-*-375" + "l-*-373" + "l-*-370" + "l-*-368" + "l-*-367" + "l-*-365" + "l-*-363" + "l-*-361" + "l-*-359" + "l-*-358" + "l-*-357" + "l-*-356" + "l-*-354" + "l-*-353" + "l-*-350" + "l-*-348" + "l-*-346" + "l-*-344" + "l-*-342" + "l-*-340" + "l-*-338" + "l-*-337" + "l-*-336" + "l-*-334" + "l-*-332" + "l-*-331" + "l-*-328" + "l-*-327" + "l-*-325" + "l-*-323" + "l-*-321" + "l-*-319" + "l-*-317" + "l-*-315" + "l-*-313" + "l-*-311" + "l-*-309" + "l-*-306" + "l-*-304" + "l-*-302" + "l-*-300" + "l-*-298" + "l-*-296" + "l-*-294" + "l-*-292" + "l-*-290" + "l-*-288" + "l-*-286" + "l-*-284" + "l-*-282" + "l-*-280" + "l-*-278" + "l-*-276" + "l-*-274" + "l-*-272" + "l-*-270" + "l-*-268" + "l-*-266" + "l-*-264" + "l-*-262" + "l-*-260" + "l-*-258" + "l-*-256" + "l-*-255" + "l-*-254" + "l-*-253" + "l-*-252" + "l-*-250" + "l-*-248" + "l-*-246" + "l-*-243" + "l-*-241" + "l-*-239" + "l-*-237" + "l-*-235" + "l-*-233" + "l-*-231" + "l-*-229" + "l-*-227" + "l-*-225" + "l-*-223" + "l-*-221" + "l-*-219" + "l-*-217" + "l-*-215" + "l-*-213" + "l-*-211" + "l-*-209")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("l-*-2098" - "l-*-2097" - "l-*-2096"))) + ("l-*-47" + "l-*-46" + "l-*-45"))) (hygiene guile)) - head-11136))) + head-9085))) (call-with-values (lambda () - (syntax-type-6380 - e-11417 - r-10636 - w-10637 - (source-annotation-6338 e-11417) + (syntax-type-4329 + e-9366 + r-8585 + w-8586 + (source-annotation-4287 e-9366) #f - mod-10639 + mod-8588 #f)) - (lambda (type-11424 - value-11425 - form-11426 - e-11427 - w-11428 - s-11429 - mod-11430) - (expand-expr-6382 - type-11424 - value-11425 - form-11426 - e-11427 - r-10636 - w-11428 - s-11429 - mod-11430)))) - (map (lambda (e-11434) + (lambda (type-9373 + value-9374 + form-9375 + e-9376 + w-9377 + s-9378 + mod-9379) + (expand-expr-4331 + type-9373 + value-9374 + form-9375 + e-9376 + r-8585 + w-9377 + s-9378 + mod-9379)))) + (map (lambda (e-9383) (call-with-values (lambda () - (syntax-type-6380 - e-11434 - r-10636 - w-10637 - (source-annotation-6338 e-11434) + (syntax-type-4329 + e-9383 + r-8585 + w-8586 + (source-annotation-4287 e-9383) #f - mod-10639 + mod-8588 #f)) - (lambda (type-11449 - value-11450 - form-11451 - e-11452 - w-11453 - s-11454 - mod-11455) - (expand-expr-6382 - type-11449 - value-11450 - form-11451 - e-11452 - r-10636 - w-11453 - s-11454 - mod-11455)))) - (append tail-11137 (list val-11138)))))))) - tmp-11132) + (lambda (type-9398 + value-9399 + form-9400 + e-9401 + w-9402 + s-9403 + mod-9404) + (expand-expr-4331 + type-9398 + value-9399 + form-9400 + e-9401 + r-8585 + w-9402 + s-9403 + mod-9404)))) + (append tail-9086 (list val-9087)))))))) + tmp-9081) (syntax-violation 'set! "bad set!" - (wrap-6374 + (wrap-4323 (begin - (if (if (pair? e-10635) s-10638 #f) - (set-source-properties! e-10635 s-10638)) - e-10635) - w-10637 - mod-10639)))))))) + (if (if (pair? e-8584) s-8587 #f) + (set-source-properties! e-8584 s-8587)) + e-8584) + w-8586 + mod-8588)))))))) (module-define! (current-module) '@ (make-syntax-transformer '@ 'module-ref - (lambda (e-11498 r-11499 w-11500) - (let ((tmp-11502 - ($sc-dispatch e-11498 '(_ each-any any)))) - (if (if tmp-11502 + (lambda (e-9447 r-9448 w-9449) + (let ((tmp-9451 + ($sc-dispatch e-9447 '(_ each-any any)))) + (if (if tmp-9451 (@apply - (lambda (mod-11505 id-11506) - (if (and-map id?-6345 mod-11505) - (if (symbol? id-11506) + (lambda (mod-9454 id-9455) + (if (and-map id?-4294 mod-9454) + (if (symbol? id-9455) #t - (if (if (vector? id-11506) - (if (= (vector-length id-11506) 4) - (eq? (vector-ref id-11506 0) - 'syntax-object) + (if (if (vector? id-9455) + (if (= (vector-length id-9455) 4) + (eq? (vector-ref id-9455 0) 'syntax-object) #f) #f) - (symbol? (vector-ref id-11506 1)) + (symbol? (vector-ref id-9455 1)) #f)) #f)) - tmp-11502) + tmp-9451) #f) (@apply - (lambda (mod-11546 id-11547) + (lambda (mod-9495 id-9496) (values - (syntax->datum id-11547) - r-11499 - w-11500 + (syntax->datum id-9496) + r-9448 + w-9449 #f (syntax->datum (cons '#(syntax-object @@ -9884,12 +9867,12 @@ #(ribcage #(mod id) #((top) (top)) - #("l-*-5646" "l-*-5647")) + #("l-*-3595" "l-*-3596")) #(ribcage () () ()) #(ribcage #(e r w) #((top) (top) (top)) - #("l-*-5634" "l-*-5635" "l-*-5636")) + #("l-*-3583" "l-*-3584" "l-*-3585")) #(ribcage (lambda-var-list gen-var @@ -10171,213 +10154,211 @@ (top) (top) (top)) - ("l-*-2527" - "l-*-2525" - "l-*-2523" - "l-*-2521" - "l-*-2519" - "l-*-2517" - "l-*-2515" - "l-*-2513" - "l-*-2511" - "l-*-2509" - "l-*-2507" - "l-*-2505" - "l-*-2503" - "l-*-2501" - "l-*-2499" - "l-*-2497" - "l-*-2495" - "l-*-2493" - "l-*-2491" - "l-*-2489" - "l-*-2487" - "l-*-2485" - "l-*-2483" - "l-*-2481" - "l-*-2479" - "l-*-2477" - "l-*-2475" - "l-*-2473" - "l-*-2471" - "l-*-2469" - "l-*-2467" - "l-*-2465" - "l-*-2463" - "l-*-2461" - "l-*-2459" - "l-*-2457" - "l-*-2455" - "l-*-2453" - "l-*-2451" - "l-*-2450" - "l-*-2448" - "l-*-2445" - "l-*-2444" - "l-*-2443" - "l-*-2441" - "l-*-2440" - "l-*-2438" - "l-*-2436" - "l-*-2434" - "l-*-2432" - "l-*-2430" - "l-*-2428" - "l-*-2426" - "l-*-2424" - "l-*-2421" - "l-*-2419" - "l-*-2418" - "l-*-2416" - "l-*-2414" - "l-*-2412" - "l-*-2410" - "l-*-2409" - "l-*-2408" - "l-*-2407" - "l-*-2405" - "l-*-2404" - "l-*-2401" - "l-*-2399" - "l-*-2397" - "l-*-2395" - "l-*-2393" - "l-*-2391" - "l-*-2389" - "l-*-2388" - "l-*-2387" - "l-*-2385" - "l-*-2383" - "l-*-2382" - "l-*-2379" - "l-*-2378" - "l-*-2376" - "l-*-2374" - "l-*-2372" - "l-*-2370" - "l-*-2368" - "l-*-2366" - "l-*-2364" - "l-*-2362" - "l-*-2360" - "l-*-2357" - "l-*-2355" - "l-*-2353" - "l-*-2351" - "l-*-2349" - "l-*-2347" - "l-*-2345" - "l-*-2343" - "l-*-2341" - "l-*-2339" - "l-*-2337" - "l-*-2335" - "l-*-2333" - "l-*-2331" - "l-*-2329" - "l-*-2327" - "l-*-2325" - "l-*-2323" - "l-*-2321" - "l-*-2319" - "l-*-2317" - "l-*-2315" - "l-*-2313" - "l-*-2311" - "l-*-2309" - "l-*-2307" - "l-*-2306" - "l-*-2305" - "l-*-2304" - "l-*-2303" - "l-*-2301" - "l-*-2299" - "l-*-2297" - "l-*-2294" - "l-*-2292" - "l-*-2290" - "l-*-2288" - "l-*-2286" - "l-*-2284" - "l-*-2282" - "l-*-2280" - "l-*-2278" - "l-*-2276" - "l-*-2274" - "l-*-2272" - "l-*-2270" - "l-*-2268" - "l-*-2266" - "l-*-2264" - "l-*-2262" - "l-*-2260")) + ("l-*-476" + "l-*-474" + "l-*-472" + "l-*-470" + "l-*-468" + "l-*-466" + "l-*-464" + "l-*-462" + "l-*-460" + "l-*-458" + "l-*-456" + "l-*-454" + "l-*-452" + "l-*-450" + "l-*-448" + "l-*-446" + "l-*-444" + "l-*-442" + "l-*-440" + "l-*-438" + "l-*-436" + "l-*-434" + "l-*-432" + "l-*-430" + "l-*-428" + "l-*-426" + "l-*-424" + "l-*-422" + "l-*-420" + "l-*-418" + "l-*-416" + "l-*-414" + "l-*-412" + "l-*-410" + "l-*-408" + "l-*-406" + "l-*-404" + "l-*-402" + "l-*-400" + "l-*-399" + "l-*-397" + "l-*-394" + "l-*-393" + "l-*-392" + "l-*-390" + "l-*-389" + "l-*-387" + "l-*-385" + "l-*-383" + "l-*-381" + "l-*-379" + "l-*-377" + "l-*-375" + "l-*-373" + "l-*-370" + "l-*-368" + "l-*-367" + "l-*-365" + "l-*-363" + "l-*-361" + "l-*-359" + "l-*-358" + "l-*-357" + "l-*-356" + "l-*-354" + "l-*-353" + "l-*-350" + "l-*-348" + "l-*-346" + "l-*-344" + "l-*-342" + "l-*-340" + "l-*-338" + "l-*-337" + "l-*-336" + "l-*-334" + "l-*-332" + "l-*-331" + "l-*-328" + "l-*-327" + "l-*-325" + "l-*-323" + "l-*-321" + "l-*-319" + "l-*-317" + "l-*-315" + "l-*-313" + "l-*-311" + "l-*-309" + "l-*-306" + "l-*-304" + "l-*-302" + "l-*-300" + "l-*-298" + "l-*-296" + "l-*-294" + "l-*-292" + "l-*-290" + "l-*-288" + "l-*-286" + "l-*-284" + "l-*-282" + "l-*-280" + "l-*-278" + "l-*-276" + "l-*-274" + "l-*-272" + "l-*-270" + "l-*-268" + "l-*-266" + "l-*-264" + "l-*-262" + "l-*-260" + "l-*-258" + "l-*-256" + "l-*-255" + "l-*-254" + "l-*-253" + "l-*-252" + "l-*-250" + "l-*-248" + "l-*-246" + "l-*-243" + "l-*-241" + "l-*-239" + "l-*-237" + "l-*-235" + "l-*-233" + "l-*-231" + "l-*-229" + "l-*-227" + "l-*-225" + "l-*-223" + "l-*-221" + "l-*-219" + "l-*-217" + "l-*-215" + "l-*-213" + "l-*-211" + "l-*-209")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("l-*-2098" "l-*-2097" "l-*-2096"))) + ("l-*-47" "l-*-46" "l-*-45"))) (hygiene guile)) - mod-11546)))) - tmp-11502) + mod-9495)))) + tmp-9451) (syntax-violation #f "source expression failed to match any pattern" - e-11498)))))) - (global-extend-6343 + e-9447)))))) + (global-extend-4292 'module-ref '@@ - (lambda (e-11639 r-11640 w-11641) + (lambda (e-9588 r-9589 w-9590) (letrec* - ((remodulate-11642 - (lambda (x-11677 mod-11678) - (if (pair? x-11677) - (cons (remodulate-11642 (car x-11677) mod-11678) - (remodulate-11642 (cdr x-11677) mod-11678)) - (if (if (vector? x-11677) - (if (= (vector-length x-11677) 4) - (eq? (vector-ref x-11677 0) 'syntax-object) + ((remodulate-9591 + (lambda (x-9626 mod-9627) + (if (pair? x-9626) + (cons (remodulate-9591 (car x-9626) mod-9627) + (remodulate-9591 (cdr x-9626) mod-9627)) + (if (if (vector? x-9626) + (if (= (vector-length x-9626) 4) + (eq? (vector-ref x-9626 0) 'syntax-object) #f) #f) - (let ((expression-11692 - (remodulate-11642 - (vector-ref x-11677 1) - mod-11678)) - (wrap-11693 (vector-ref x-11677 2))) + (let ((expression-9641 + (remodulate-9591 (vector-ref x-9626 1) mod-9627)) + (wrap-9642 (vector-ref x-9626 2))) (vector 'syntax-object - expression-11692 - wrap-11693 - mod-11678)) - (if (vector? x-11677) - (let ((n-11701 (vector-length x-11677))) - (let ((v-11702 (make-vector n-11701))) + expression-9641 + wrap-9642 + mod-9627)) + (if (vector? x-9626) + (let ((n-9650 (vector-length x-9626))) + (let ((v-9651 (make-vector n-9650))) (letrec* - ((loop-11703 - (lambda (i-11750) - (if (= i-11750 n-11701) - v-11702 + ((loop-9652 + (lambda (i-9699) + (if (= i-9699 n-9650) + v-9651 (begin (vector-set! - v-11702 - i-11750 - (remodulate-11642 - (vector-ref x-11677 i-11750) - mod-11678)) - (loop-11703 (#{1+}# i-11750))))))) - (loop-11703 0)))) - x-11677)))))) - (let ((tmp-11644 - ($sc-dispatch e-11639 '(_ each-any any)))) - (if (if tmp-11644 + v-9651 + i-9699 + (remodulate-9591 + (vector-ref x-9626 i-9699) + mod-9627)) + (loop-9652 (#{1+}# i-9699))))))) + (loop-9652 0)))) + x-9626)))))) + (let ((tmp-9593 + ($sc-dispatch e-9588 '(_ each-any any)))) + (if (if tmp-9593 (@apply - (lambda (mod-11648 exp-11649) - (and-map id?-6345 mod-11648)) - tmp-11644) + (lambda (mod-9597 exp-9598) + (and-map id?-4294 mod-9597)) + tmp-9593) #f) (@apply - (lambda (mod-11665 exp-11666) - (let ((mod-11667 + (lambda (mod-9614 exp-9615) + (let ((mod-9616 (syntax->datum (cons '#(syntax-object private @@ -10385,15 +10366,15 @@ #(ribcage #(mod exp) #((top) (top)) - #("l-*-5684" "l-*-5685")) + #("l-*-3633" "l-*-3634")) #(ribcage (remodulate) ((top)) - ("l-*-5657")) + ("l-*-3606")) #(ribcage #(e r w) #((top) (top) (top)) - #("l-*-5654" "l-*-5655" "l-*-5656")) + #("l-*-3603" "l-*-3604" "l-*-3605")) #(ribcage (lambda-var-list gen-var @@ -10675,252 +10656,232 @@ (top) (top) (top)) - ("l-*-2527" - "l-*-2525" - "l-*-2523" - "l-*-2521" - "l-*-2519" - "l-*-2517" - "l-*-2515" - "l-*-2513" - "l-*-2511" - "l-*-2509" - "l-*-2507" - "l-*-2505" - "l-*-2503" - "l-*-2501" - "l-*-2499" - "l-*-2497" - "l-*-2495" - "l-*-2493" - "l-*-2491" - "l-*-2489" - "l-*-2487" - "l-*-2485" - "l-*-2483" - "l-*-2481" - "l-*-2479" - "l-*-2477" - "l-*-2475" - "l-*-2473" - "l-*-2471" - "l-*-2469" - "l-*-2467" - "l-*-2465" - "l-*-2463" - "l-*-2461" - "l-*-2459" - "l-*-2457" - "l-*-2455" - "l-*-2453" - "l-*-2451" - "l-*-2450" - "l-*-2448" - "l-*-2445" - "l-*-2444" - "l-*-2443" - "l-*-2441" - "l-*-2440" - "l-*-2438" - "l-*-2436" - "l-*-2434" - "l-*-2432" - "l-*-2430" - "l-*-2428" - "l-*-2426" - "l-*-2424" - "l-*-2421" - "l-*-2419" - "l-*-2418" - "l-*-2416" - "l-*-2414" - "l-*-2412" - "l-*-2410" - "l-*-2409" - "l-*-2408" - "l-*-2407" - "l-*-2405" - "l-*-2404" - "l-*-2401" - "l-*-2399" - "l-*-2397" - "l-*-2395" - "l-*-2393" - "l-*-2391" - "l-*-2389" - "l-*-2388" - "l-*-2387" - "l-*-2385" - "l-*-2383" - "l-*-2382" - "l-*-2379" - "l-*-2378" - "l-*-2376" - "l-*-2374" - "l-*-2372" - "l-*-2370" - "l-*-2368" - "l-*-2366" - "l-*-2364" - "l-*-2362" - "l-*-2360" - "l-*-2357" - "l-*-2355" - "l-*-2353" - "l-*-2351" - "l-*-2349" - "l-*-2347" - "l-*-2345" - "l-*-2343" - "l-*-2341" - "l-*-2339" - "l-*-2337" - "l-*-2335" - "l-*-2333" - "l-*-2331" - "l-*-2329" - "l-*-2327" - "l-*-2325" - "l-*-2323" - "l-*-2321" - "l-*-2319" - "l-*-2317" - "l-*-2315" - "l-*-2313" - "l-*-2311" - "l-*-2309" - "l-*-2307" - "l-*-2306" - "l-*-2305" - "l-*-2304" - "l-*-2303" - "l-*-2301" - "l-*-2299" - "l-*-2297" - "l-*-2294" - "l-*-2292" - "l-*-2290" - "l-*-2288" - "l-*-2286" - "l-*-2284" - "l-*-2282" - "l-*-2280" - "l-*-2278" - "l-*-2276" - "l-*-2274" - "l-*-2272" - "l-*-2270" - "l-*-2268" - "l-*-2266" - "l-*-2264" - "l-*-2262" - "l-*-2260")) + ("l-*-476" + "l-*-474" + "l-*-472" + "l-*-470" + "l-*-468" + "l-*-466" + "l-*-464" + "l-*-462" + "l-*-460" + "l-*-458" + "l-*-456" + "l-*-454" + "l-*-452" + "l-*-450" + "l-*-448" + "l-*-446" + "l-*-444" + "l-*-442" + "l-*-440" + "l-*-438" + "l-*-436" + "l-*-434" + "l-*-432" + "l-*-430" + "l-*-428" + "l-*-426" + "l-*-424" + "l-*-422" + "l-*-420" + "l-*-418" + "l-*-416" + "l-*-414" + "l-*-412" + "l-*-410" + "l-*-408" + "l-*-406" + "l-*-404" + "l-*-402" + "l-*-400" + "l-*-399" + "l-*-397" + "l-*-394" + "l-*-393" + "l-*-392" + "l-*-390" + "l-*-389" + "l-*-387" + "l-*-385" + "l-*-383" + "l-*-381" + "l-*-379" + "l-*-377" + "l-*-375" + "l-*-373" + "l-*-370" + "l-*-368" + "l-*-367" + "l-*-365" + "l-*-363" + "l-*-361" + "l-*-359" + "l-*-358" + "l-*-357" + "l-*-356" + "l-*-354" + "l-*-353" + "l-*-350" + "l-*-348" + "l-*-346" + "l-*-344" + "l-*-342" + "l-*-340" + "l-*-338" + "l-*-337" + "l-*-336" + "l-*-334" + "l-*-332" + "l-*-331" + "l-*-328" + "l-*-327" + "l-*-325" + "l-*-323" + "l-*-321" + "l-*-319" + "l-*-317" + "l-*-315" + "l-*-313" + "l-*-311" + "l-*-309" + "l-*-306" + "l-*-304" + "l-*-302" + "l-*-300" + "l-*-298" + "l-*-296" + "l-*-294" + "l-*-292" + "l-*-290" + "l-*-288" + "l-*-286" + "l-*-284" + "l-*-282" + "l-*-280" + "l-*-278" + "l-*-276" + "l-*-274" + "l-*-272" + "l-*-270" + "l-*-268" + "l-*-266" + "l-*-264" + "l-*-262" + "l-*-260" + "l-*-258" + "l-*-256" + "l-*-255" + "l-*-254" + "l-*-253" + "l-*-252" + "l-*-250" + "l-*-248" + "l-*-246" + "l-*-243" + "l-*-241" + "l-*-239" + "l-*-237" + "l-*-235" + "l-*-233" + "l-*-231" + "l-*-229" + "l-*-227" + "l-*-225" + "l-*-223" + "l-*-221" + "l-*-219" + "l-*-217" + "l-*-215" + "l-*-213" + "l-*-211" + "l-*-209")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("l-*-2098" "l-*-2097" "l-*-2096"))) + ("l-*-47" "l-*-46" "l-*-45"))) (hygiene guile)) - mod-11665)))) + mod-9614)))) (values - (remodulate-11642 exp-11666 mod-11667) - r-11640 - w-11641 - (source-annotation-6338 exp-11666) - mod-11667))) - tmp-11644) + (remodulate-9591 exp-9615 mod-9616) + r-9589 + w-9590 + (source-annotation-4287 exp-9615) + mod-9616))) + tmp-9593) (syntax-violation #f "source expression failed to match any pattern" - e-11639)))))) - (global-extend-6343 + e-9588)))))) + (global-extend-4292 'core 'if - (lambda (e-11851 r-11852 w-11853 s-11854 mod-11855) - (let ((tmp-11857 ($sc-dispatch e-11851 '(_ any any)))) - (if tmp-11857 + (lambda (e-9800 r-9801 w-9802 s-9803 mod-9804) + (let ((tmp-9806 ($sc-dispatch e-9800 '(_ any any)))) + (if tmp-9806 (@apply - (lambda (test-11861 then-11862) - (build-conditional-6313 - s-11854 - (expand-6381 - test-11861 - r-11852 - w-11853 - mod-11855) - (expand-6381 - then-11862 - r-11852 - w-11853 - mod-11855) + (lambda (test-9810 then-9811) + (build-conditional-4262 + s-9803 + (expand-4330 test-9810 r-9801 w-9802 mod-9804) + (expand-4330 then-9811 r-9801 w-9802 mod-9804) (make-struct/no-tail (vector-ref %expanded-vtables 0) #f))) - tmp-11857) - (let ((tmp-12087 - ($sc-dispatch e-11851 '(_ any any any)))) - (if tmp-12087 + tmp-9806) + (let ((tmp-10036 + ($sc-dispatch e-9800 '(_ any any any)))) + (if tmp-10036 (@apply - (lambda (test-12091 then-12092 else-12093) - (build-conditional-6313 - s-11854 - (expand-6381 - test-12091 - r-11852 - w-11853 - mod-11855) - (expand-6381 - then-12092 - r-11852 - w-11853 - mod-11855) - (expand-6381 - else-12093 - r-11852 - w-11853 - mod-11855))) - tmp-12087) + (lambda (test-10040 then-10041 else-10042) + (build-conditional-4262 + s-9803 + (expand-4330 test-10040 r-9801 w-9802 mod-9804) + (expand-4330 then-10041 r-9801 w-9802 mod-9804) + (expand-4330 else-10042 r-9801 w-9802 mod-9804))) + tmp-10036) (syntax-violation #f "source expression failed to match any pattern" - e-11851))))))) - (global-extend-6343 + e-9800))))))) + (global-extend-4292 'core 'with-fluids - (lambda (e-12492 r-12493 w-12494 s-12495 mod-12496) - (let ((tmp-12498 + (lambda (e-10441 r-10442 w-10443 s-10444 mod-10445) + (let ((tmp-10447 ($sc-dispatch - e-12492 + e-10441 '(_ #(each (any any)) any . each-any)))) - (if tmp-12498 + (if tmp-10447 (@apply - (lambda (fluid-12502 val-12503 b-12504 b*-12505) - (build-dynlet-6314 - s-12495 - (map (lambda (x-12586) - (expand-6381 x-12586 r-12493 w-12494 mod-12496)) - fluid-12502) - (map (lambda (x-12656) - (expand-6381 x-12656 r-12493 w-12494 mod-12496)) - val-12503) - (expand-body-6385 - (cons b-12504 b*-12505) - (wrap-6374 + (lambda (fluid-10451 val-10452 b-10453 b*-10454) + (build-dynlet-4263 + s-10444 + (map (lambda (x-10535) + (expand-4330 x-10535 r-10442 w-10443 mod-10445)) + fluid-10451) + (map (lambda (x-10605) + (expand-4330 x-10605 r-10442 w-10443 mod-10445)) + val-10452) + (expand-body-4334 + (cons b-10453 b*-10454) + (wrap-4323 (begin - (if (if (pair? e-12492) s-12495 #f) - (set-source-properties! e-12492 s-12495)) - e-12492) - w-12494 - mod-12496) - r-12493 - w-12494 - mod-12496))) - tmp-12498) + (if (if (pair? e-10441) s-10444 #f) + (set-source-properties! e-10441 s-10444)) + e-10441) + w-10443 + mod-10445) + r-10442 + w-10443 + mod-10445))) + tmp-10447) (syntax-violation #f "source expression failed to match any pattern" - e-12492))))) + e-10441))))) (module-define! (current-module) 'begin @@ -10950,60 +10911,60 @@ 'eval-when 'eval-when '())) - (global-extend-6343 + (global-extend-4292 'core 'syntax-case (letrec* - ((convert-pattern-13024 - (lambda (pattern-14621 keys-14622) + ((convert-pattern-10973 + (lambda (pattern-12570 keys-12571) (letrec* - ((cvt*-14623 - (lambda (p*-15247 n-15248 ids-15249) - (if (not (pair? p*-15247)) - (cvt-14625 p*-15247 n-15248 ids-15249) + ((cvt*-12572 + (lambda (p*-13196 n-13197 ids-13198) + (if (not (pair? p*-13196)) + (cvt-12574 p*-13196 n-13197 ids-13198) (call-with-values (lambda () - (cvt*-14623 (cdr p*-15247) n-15248 ids-15249)) - (lambda (y-15252 ids-15253) + (cvt*-12572 (cdr p*-13196) n-13197 ids-13198)) + (lambda (y-13201 ids-13202) (call-with-values (lambda () - (cvt-14625 (car p*-15247) n-15248 ids-15253)) - (lambda (x-15256 ids-15257) + (cvt-12574 (car p*-13196) n-13197 ids-13202)) + (lambda (x-13205 ids-13206) (values - (cons x-15256 y-15252) - ids-15257)))))))) - (v-reverse-14624 - (lambda (x-15258) + (cons x-13205 y-13201) + ids-13206)))))))) + (v-reverse-12573 + (lambda (x-13207) (letrec* - ((loop-15259 - (lambda (r-15339 x-15340) - (if (not (pair? x-15340)) - (values r-15339 x-15340) - (loop-15259 - (cons (car x-15340) r-15339) - (cdr x-15340)))))) - (loop-15259 '() x-15258)))) - (cvt-14625 - (lambda (p-14628 n-14629 ids-14630) - (if (if (symbol? p-14628) + ((loop-13208 + (lambda (r-13288 x-13289) + (if (not (pair? x-13289)) + (values r-13288 x-13289) + (loop-13208 + (cons (car x-13289) r-13288) + (cdr x-13289)))))) + (loop-13208 '() x-13207)))) + (cvt-12574 + (lambda (p-12577 n-12578 ids-12579) + (if (if (symbol? p-12577) #t - (if (if (vector? p-14628) - (if (= (vector-length p-14628) 4) - (eq? (vector-ref p-14628 0) 'syntax-object) + (if (if (vector? p-12577) + (if (= (vector-length p-12577) 4) + (eq? (vector-ref p-12577 0) 'syntax-object) #f) #f) - (symbol? (vector-ref p-14628 1)) + (symbol? (vector-ref p-12577 1)) #f)) - (if (bound-id-member?-6373 p-14628 keys-14622) - (values (vector 'free-id p-14628) ids-14630) - (if (if (eq? (if (if (vector? p-14628) - (if (= (vector-length p-14628) 4) - (eq? (vector-ref p-14628 0) + (if (bound-id-member?-4322 p-12577 keys-12571) + (values (vector 'free-id p-12577) ids-12579) + (if (if (eq? (if (if (vector? p-12577) + (if (= (vector-length p-12577) 4) + (eq? (vector-ref p-12577 0) 'syntax-object) #f) #f) - (vector-ref p-14628 1) - p-14628) + (vector-ref p-12577 1) + p-12577) (if (if (= (vector-length '#(syntax-object _ @@ -11012,20 +10973,20 @@ #(ribcage #(p n ids) #((top) (top) (top)) - #("l-*-5785" - "l-*-5786" - "l-*-5787")) + #("l-*-3734" + "l-*-3735" + "l-*-3736")) #(ribcage (cvt v-reverse cvt*) ((top) (top) (top)) - ("l-*-5758" - "l-*-5756" - "l-*-5754")) + ("l-*-3707" + "l-*-3705" + "l-*-3703")) #(ribcage #(pattern keys) #((top) (top)) - #("l-*-5752" - "l-*-5753")) + #("l-*-3701" + "l-*-3702")) #(ribcage (gen-syntax-case gen-clause @@ -11035,10 +10996,10 @@ (top) (top) (top)) - ("l-*-5748" - "l-*-5746" - "l-*-5744" - "l-*-5742")) + ("l-*-3697" + "l-*-3695" + "l-*-3693" + "l-*-3691")) #(ribcage (lambda-var-list gen-var @@ -11320,154 +11281,154 @@ (top) (top) (top)) - ("l-*-2527" - "l-*-2525" - "l-*-2523" - "l-*-2521" - "l-*-2519" - "l-*-2517" - "l-*-2515" - "l-*-2513" - "l-*-2511" - "l-*-2509" - "l-*-2507" - "l-*-2505" - "l-*-2503" - "l-*-2501" - "l-*-2499" - "l-*-2497" - "l-*-2495" - "l-*-2493" - "l-*-2491" - "l-*-2489" - "l-*-2487" - "l-*-2485" - "l-*-2483" - "l-*-2481" - "l-*-2479" - "l-*-2477" - "l-*-2475" - "l-*-2473" - "l-*-2471" - "l-*-2469" - "l-*-2467" - "l-*-2465" - "l-*-2463" - "l-*-2461" - "l-*-2459" - "l-*-2457" - "l-*-2455" - "l-*-2453" - "l-*-2451" - "l-*-2450" - "l-*-2448" - "l-*-2445" - "l-*-2444" - "l-*-2443" - "l-*-2441" - "l-*-2440" - "l-*-2438" - "l-*-2436" - "l-*-2434" - "l-*-2432" - "l-*-2430" - "l-*-2428" - "l-*-2426" - "l-*-2424" - "l-*-2421" - "l-*-2419" - "l-*-2418" - "l-*-2416" - "l-*-2414" - "l-*-2412" - "l-*-2410" - "l-*-2409" - "l-*-2408" - "l-*-2407" - "l-*-2405" - "l-*-2404" - "l-*-2401" - "l-*-2399" - "l-*-2397" - "l-*-2395" - "l-*-2393" - "l-*-2391" - "l-*-2389" - "l-*-2388" - "l-*-2387" - "l-*-2385" - "l-*-2383" - "l-*-2382" - "l-*-2379" - "l-*-2378" - "l-*-2376" - "l-*-2374" - "l-*-2372" - "l-*-2370" - "l-*-2368" - "l-*-2366" - "l-*-2364" - "l-*-2362" - "l-*-2360" - "l-*-2357" - "l-*-2355" - "l-*-2353" - "l-*-2351" - "l-*-2349" - "l-*-2347" - "l-*-2345" - "l-*-2343" - "l-*-2341" - "l-*-2339" - "l-*-2337" - "l-*-2335" - "l-*-2333" - "l-*-2331" - "l-*-2329" - "l-*-2327" - "l-*-2325" - "l-*-2323" - "l-*-2321" - "l-*-2319" - "l-*-2317" - "l-*-2315" - "l-*-2313" - "l-*-2311" - "l-*-2309" - "l-*-2307" - "l-*-2306" - "l-*-2305" - "l-*-2304" - "l-*-2303" - "l-*-2301" - "l-*-2299" - "l-*-2297" - "l-*-2294" - "l-*-2292" - "l-*-2290" - "l-*-2288" - "l-*-2286" - "l-*-2284" - "l-*-2282" - "l-*-2280" - "l-*-2278" - "l-*-2276" - "l-*-2274" - "l-*-2272" - "l-*-2270" - "l-*-2268" - "l-*-2266" - "l-*-2264" - "l-*-2262" - "l-*-2260")) + ("l-*-476" + "l-*-474" + "l-*-472" + "l-*-470" + "l-*-468" + "l-*-466" + "l-*-464" + "l-*-462" + "l-*-460" + "l-*-458" + "l-*-456" + "l-*-454" + "l-*-452" + "l-*-450" + "l-*-448" + "l-*-446" + "l-*-444" + "l-*-442" + "l-*-440" + "l-*-438" + "l-*-436" + "l-*-434" + "l-*-432" + "l-*-430" + "l-*-428" + "l-*-426" + "l-*-424" + "l-*-422" + "l-*-420" + "l-*-418" + "l-*-416" + "l-*-414" + "l-*-412" + "l-*-410" + "l-*-408" + "l-*-406" + "l-*-404" + "l-*-402" + "l-*-400" + "l-*-399" + "l-*-397" + "l-*-394" + "l-*-393" + "l-*-392" + "l-*-390" + "l-*-389" + "l-*-387" + "l-*-385" + "l-*-383" + "l-*-381" + "l-*-379" + "l-*-377" + "l-*-375" + "l-*-373" + "l-*-370" + "l-*-368" + "l-*-367" + "l-*-365" + "l-*-363" + "l-*-361" + "l-*-359" + "l-*-358" + "l-*-357" + "l-*-356" + "l-*-354" + "l-*-353" + "l-*-350" + "l-*-348" + "l-*-346" + "l-*-344" + "l-*-342" + "l-*-340" + "l-*-338" + "l-*-337" + "l-*-336" + "l-*-334" + "l-*-332" + "l-*-331" + "l-*-328" + "l-*-327" + "l-*-325" + "l-*-323" + "l-*-321" + "l-*-319" + "l-*-317" + "l-*-315" + "l-*-313" + "l-*-311" + "l-*-309" + "l-*-306" + "l-*-304" + "l-*-302" + "l-*-300" + "l-*-298" + "l-*-296" + "l-*-294" + "l-*-292" + "l-*-290" + "l-*-288" + "l-*-286" + "l-*-284" + "l-*-282" + "l-*-280" + "l-*-278" + "l-*-276" + "l-*-274" + "l-*-272" + "l-*-270" + "l-*-268" + "l-*-266" + "l-*-264" + "l-*-262" + "l-*-260" + "l-*-258" + "l-*-256" + "l-*-255" + "l-*-254" + "l-*-253" + "l-*-252" + "l-*-250" + "l-*-248" + "l-*-246" + "l-*-243" + "l-*-241" + "l-*-239" + "l-*-237" + "l-*-235" + "l-*-233" + "l-*-231" + "l-*-229" + "l-*-227" + "l-*-225" + "l-*-223" + "l-*-221" + "l-*-219" + "l-*-217" + "l-*-215" + "l-*-213" + "l-*-211" + "l-*-209")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("l-*-2098" - "l-*-2097" - "l-*-2096"))) + ("l-*-47" + "l-*-46" + "l-*-45"))) (hygiene guile))) 4) #t @@ -11480,29 +11441,29 @@ #(ribcage #(p n ids) #((top) (top) (top)) - #("l-*-5785" - "l-*-5786" - "l-*-5787")) + #("l-*-3734" + "l-*-3735" + "l-*-3736")) #(ribcage (cvt v-reverse cvt*) ((top) (top) (top)) - ("l-*-5758" - "l-*-5756" - "l-*-5754")) + ("l-*-3707" + "l-*-3705" + "l-*-3703")) #(ribcage #(pattern keys) #((top) (top)) - #("l-*-5752" "l-*-5753")) + #("l-*-3701" "l-*-3702")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("l-*-5748" - "l-*-5746" - "l-*-5744" - "l-*-5742")) + ("l-*-3697" + "l-*-3695" + "l-*-3693" + "l-*-3691")) #(ribcage (lambda-var-list gen-var @@ -11784,157 +11745,155 @@ (top) (top) (top)) - ("l-*-2527" - "l-*-2525" - "l-*-2523" - "l-*-2521" - "l-*-2519" - "l-*-2517" - "l-*-2515" - "l-*-2513" - "l-*-2511" - "l-*-2509" - "l-*-2507" - "l-*-2505" - "l-*-2503" - "l-*-2501" - "l-*-2499" - "l-*-2497" - "l-*-2495" - "l-*-2493" - "l-*-2491" - "l-*-2489" - "l-*-2487" - "l-*-2485" - "l-*-2483" - "l-*-2481" - "l-*-2479" - "l-*-2477" - "l-*-2475" - "l-*-2473" - "l-*-2471" - "l-*-2469" - "l-*-2467" - "l-*-2465" - "l-*-2463" - "l-*-2461" - "l-*-2459" - "l-*-2457" - "l-*-2455" - "l-*-2453" - "l-*-2451" - "l-*-2450" - "l-*-2448" - "l-*-2445" - "l-*-2444" - "l-*-2443" - "l-*-2441" - "l-*-2440" - "l-*-2438" - "l-*-2436" - "l-*-2434" - "l-*-2432" - "l-*-2430" - "l-*-2428" - "l-*-2426" - "l-*-2424" - "l-*-2421" - "l-*-2419" - "l-*-2418" - "l-*-2416" - "l-*-2414" - "l-*-2412" - "l-*-2410" - "l-*-2409" - "l-*-2408" - "l-*-2407" - "l-*-2405" - "l-*-2404" - "l-*-2401" - "l-*-2399" - "l-*-2397" - "l-*-2395" - "l-*-2393" - "l-*-2391" - "l-*-2389" - "l-*-2388" - "l-*-2387" - "l-*-2385" - "l-*-2383" - "l-*-2382" - "l-*-2379" - "l-*-2378" - "l-*-2376" - "l-*-2374" - "l-*-2372" - "l-*-2370" - "l-*-2368" - "l-*-2366" - "l-*-2364" - "l-*-2362" - "l-*-2360" - "l-*-2357" - "l-*-2355" - "l-*-2353" - "l-*-2351" - "l-*-2349" - "l-*-2347" - "l-*-2345" - "l-*-2343" - "l-*-2341" - "l-*-2339" - "l-*-2337" - "l-*-2335" - "l-*-2333" - "l-*-2331" - "l-*-2329" - "l-*-2327" - "l-*-2325" - "l-*-2323" - "l-*-2321" - "l-*-2319" - "l-*-2317" - "l-*-2315" - "l-*-2313" - "l-*-2311" - "l-*-2309" - "l-*-2307" - "l-*-2306" - "l-*-2305" - "l-*-2304" - "l-*-2303" - "l-*-2301" - "l-*-2299" - "l-*-2297" - "l-*-2294" - "l-*-2292" - "l-*-2290" - "l-*-2288" - "l-*-2286" - "l-*-2284" - "l-*-2282" - "l-*-2280" - "l-*-2278" - "l-*-2276" - "l-*-2274" - "l-*-2272" - "l-*-2270" - "l-*-2268" - "l-*-2266" - "l-*-2264" - "l-*-2262" - "l-*-2260")) + ("l-*-476" + "l-*-474" + "l-*-472" + "l-*-470" + "l-*-468" + "l-*-466" + "l-*-464" + "l-*-462" + "l-*-460" + "l-*-458" + "l-*-456" + "l-*-454" + "l-*-452" + "l-*-450" + "l-*-448" + "l-*-446" + "l-*-444" + "l-*-442" + "l-*-440" + "l-*-438" + "l-*-436" + "l-*-434" + "l-*-432" + "l-*-430" + "l-*-428" + "l-*-426" + "l-*-424" + "l-*-422" + "l-*-420" + "l-*-418" + "l-*-416" + "l-*-414" + "l-*-412" + "l-*-410" + "l-*-408" + "l-*-406" + "l-*-404" + "l-*-402" + "l-*-400" + "l-*-399" + "l-*-397" + "l-*-394" + "l-*-393" + "l-*-392" + "l-*-390" + "l-*-389" + "l-*-387" + "l-*-385" + "l-*-383" + "l-*-381" + "l-*-379" + "l-*-377" + "l-*-375" + "l-*-373" + "l-*-370" + "l-*-368" + "l-*-367" + "l-*-365" + "l-*-363" + "l-*-361" + "l-*-359" + "l-*-358" + "l-*-357" + "l-*-356" + "l-*-354" + "l-*-353" + "l-*-350" + "l-*-348" + "l-*-346" + "l-*-344" + "l-*-342" + "l-*-340" + "l-*-338" + "l-*-337" + "l-*-336" + "l-*-334" + "l-*-332" + "l-*-331" + "l-*-328" + "l-*-327" + "l-*-325" + "l-*-323" + "l-*-321" + "l-*-319" + "l-*-317" + "l-*-315" + "l-*-313" + "l-*-311" + "l-*-309" + "l-*-306" + "l-*-304" + "l-*-302" + "l-*-300" + "l-*-298" + "l-*-296" + "l-*-294" + "l-*-292" + "l-*-290" + "l-*-288" + "l-*-286" + "l-*-284" + "l-*-282" + "l-*-280" + "l-*-278" + "l-*-276" + "l-*-274" + "l-*-272" + "l-*-270" + "l-*-268" + "l-*-266" + "l-*-264" + "l-*-262" + "l-*-260" + "l-*-258" + "l-*-256" + "l-*-255" + "l-*-254" + "l-*-253" + "l-*-252" + "l-*-250" + "l-*-248" + "l-*-246" + "l-*-243" + "l-*-241" + "l-*-239" + "l-*-237" + "l-*-235" + "l-*-233" + "l-*-231" + "l-*-229" + "l-*-227" + "l-*-225" + "l-*-223" + "l-*-221" + "l-*-219" + "l-*-217" + "l-*-215" + "l-*-213" + "l-*-211" + "l-*-209")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("l-*-2098" - "l-*-2097" - "l-*-2096"))) + ("l-*-47" "l-*-46" "l-*-45"))) (hygiene guile)))) - (eq? (id-var-name-6364 p-14628 '(())) - (id-var-name-6364 + (eq? (id-var-name-4313 p-12577 '(())) + (id-var-name-4313 '#(syntax-object _ ((top) @@ -11942,29 +11901,29 @@ #(ribcage #(p n ids) #((top) (top) (top)) - #("l-*-5785" - "l-*-5786" - "l-*-5787")) + #("l-*-3734" + "l-*-3735" + "l-*-3736")) #(ribcage (cvt v-reverse cvt*) ((top) (top) (top)) - ("l-*-5758" - "l-*-5756" - "l-*-5754")) + ("l-*-3707" + "l-*-3705" + "l-*-3703")) #(ribcage #(pattern keys) #((top) (top)) - #("l-*-5752" "l-*-5753")) + #("l-*-3701" "l-*-3702")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("l-*-5748" - "l-*-5746" - "l-*-5744" - "l-*-5742")) + ("l-*-3697" + "l-*-3695" + "l-*-3693" + "l-*-3691")) #(ribcage (lambda-var-list gen-var @@ -12246,186 +12205,184 @@ (top) (top) (top)) - ("l-*-2527" - "l-*-2525" - "l-*-2523" - "l-*-2521" - "l-*-2519" - "l-*-2517" - "l-*-2515" - "l-*-2513" - "l-*-2511" - "l-*-2509" - "l-*-2507" - "l-*-2505" - "l-*-2503" - "l-*-2501" - "l-*-2499" - "l-*-2497" - "l-*-2495" - "l-*-2493" - "l-*-2491" - "l-*-2489" - "l-*-2487" - "l-*-2485" - "l-*-2483" - "l-*-2481" - "l-*-2479" - "l-*-2477" - "l-*-2475" - "l-*-2473" - "l-*-2471" - "l-*-2469" - "l-*-2467" - "l-*-2465" - "l-*-2463" - "l-*-2461" - "l-*-2459" - "l-*-2457" - "l-*-2455" - "l-*-2453" - "l-*-2451" - "l-*-2450" - "l-*-2448" - "l-*-2445" - "l-*-2444" - "l-*-2443" - "l-*-2441" - "l-*-2440" - "l-*-2438" - "l-*-2436" - "l-*-2434" - "l-*-2432" - "l-*-2430" - "l-*-2428" - "l-*-2426" - "l-*-2424" - "l-*-2421" - "l-*-2419" - "l-*-2418" - "l-*-2416" - "l-*-2414" - "l-*-2412" - "l-*-2410" - "l-*-2409" - "l-*-2408" - "l-*-2407" - "l-*-2405" - "l-*-2404" - "l-*-2401" - "l-*-2399" - "l-*-2397" - "l-*-2395" - "l-*-2393" - "l-*-2391" - "l-*-2389" - "l-*-2388" - "l-*-2387" - "l-*-2385" - "l-*-2383" - "l-*-2382" - "l-*-2379" - "l-*-2378" - "l-*-2376" - "l-*-2374" - "l-*-2372" - "l-*-2370" - "l-*-2368" - "l-*-2366" - "l-*-2364" - "l-*-2362" - "l-*-2360" - "l-*-2357" - "l-*-2355" - "l-*-2353" - "l-*-2351" - "l-*-2349" - "l-*-2347" - "l-*-2345" - "l-*-2343" - "l-*-2341" - "l-*-2339" - "l-*-2337" - "l-*-2335" - "l-*-2333" - "l-*-2331" - "l-*-2329" - "l-*-2327" - "l-*-2325" - "l-*-2323" - "l-*-2321" - "l-*-2319" - "l-*-2317" - "l-*-2315" - "l-*-2313" - "l-*-2311" - "l-*-2309" - "l-*-2307" - "l-*-2306" - "l-*-2305" - "l-*-2304" - "l-*-2303" - "l-*-2301" - "l-*-2299" - "l-*-2297" - "l-*-2294" - "l-*-2292" - "l-*-2290" - "l-*-2288" - "l-*-2286" - "l-*-2284" - "l-*-2282" - "l-*-2280" - "l-*-2278" - "l-*-2276" - "l-*-2274" - "l-*-2272" - "l-*-2270" - "l-*-2268" - "l-*-2266" - "l-*-2264" - "l-*-2262" - "l-*-2260")) + ("l-*-476" + "l-*-474" + "l-*-472" + "l-*-470" + "l-*-468" + "l-*-466" + "l-*-464" + "l-*-462" + "l-*-460" + "l-*-458" + "l-*-456" + "l-*-454" + "l-*-452" + "l-*-450" + "l-*-448" + "l-*-446" + "l-*-444" + "l-*-442" + "l-*-440" + "l-*-438" + "l-*-436" + "l-*-434" + "l-*-432" + "l-*-430" + "l-*-428" + "l-*-426" + "l-*-424" + "l-*-422" + "l-*-420" + "l-*-418" + "l-*-416" + "l-*-414" + "l-*-412" + "l-*-410" + "l-*-408" + "l-*-406" + "l-*-404" + "l-*-402" + "l-*-400" + "l-*-399" + "l-*-397" + "l-*-394" + "l-*-393" + "l-*-392" + "l-*-390" + "l-*-389" + "l-*-387" + "l-*-385" + "l-*-383" + "l-*-381" + "l-*-379" + "l-*-377" + "l-*-375" + "l-*-373" + "l-*-370" + "l-*-368" + "l-*-367" + "l-*-365" + "l-*-363" + "l-*-361" + "l-*-359" + "l-*-358" + "l-*-357" + "l-*-356" + "l-*-354" + "l-*-353" + "l-*-350" + "l-*-348" + "l-*-346" + "l-*-344" + "l-*-342" + "l-*-340" + "l-*-338" + "l-*-337" + "l-*-336" + "l-*-334" + "l-*-332" + "l-*-331" + "l-*-328" + "l-*-327" + "l-*-325" + "l-*-323" + "l-*-321" + "l-*-319" + "l-*-317" + "l-*-315" + "l-*-313" + "l-*-311" + "l-*-309" + "l-*-306" + "l-*-304" + "l-*-302" + "l-*-300" + "l-*-298" + "l-*-296" + "l-*-294" + "l-*-292" + "l-*-290" + "l-*-288" + "l-*-286" + "l-*-284" + "l-*-282" + "l-*-280" + "l-*-278" + "l-*-276" + "l-*-274" + "l-*-272" + "l-*-270" + "l-*-268" + "l-*-266" + "l-*-264" + "l-*-262" + "l-*-260" + "l-*-258" + "l-*-256" + "l-*-255" + "l-*-254" + "l-*-253" + "l-*-252" + "l-*-250" + "l-*-248" + "l-*-246" + "l-*-243" + "l-*-241" + "l-*-239" + "l-*-237" + "l-*-235" + "l-*-233" + "l-*-231" + "l-*-229" + "l-*-227" + "l-*-225" + "l-*-223" + "l-*-221" + "l-*-219" + "l-*-217" + "l-*-215" + "l-*-213" + "l-*-211" + "l-*-209")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("l-*-2098" - "l-*-2097" - "l-*-2096"))) + ("l-*-47" "l-*-46" "l-*-45"))) (hygiene guile)) '(()))) #f) - (values '_ ids-14630) + (values '_ ids-12579) (values 'any - (cons (cons p-14628 n-14629) ids-14630)))) - (let ((tmp-14950 ($sc-dispatch p-14628 '(any any)))) - (if (if tmp-14950 + (cons (cons p-12577 n-12578) ids-12579)))) + (let ((tmp-12899 ($sc-dispatch p-12577 '(any any)))) + (if (if tmp-12899 (@apply - (lambda (x-14954 dots-14955) - (if (if (if (vector? dots-14955) - (if (= (vector-length dots-14955) + (lambda (x-12903 dots-12904) + (if (if (if (vector? dots-12904) + (if (= (vector-length dots-12904) 4) - (eq? (vector-ref dots-14955 0) + (eq? (vector-ref dots-12904 0) 'syntax-object) #f) #f) - (symbol? (vector-ref dots-14955 1)) + (symbol? (vector-ref dots-12904 1)) #f) - (if (eq? (if (if (vector? dots-14955) + (if (eq? (if (if (vector? dots-12904) (if (= (vector-length - dots-14955) + dots-12904) 4) (eq? (vector-ref - dots-14955 + dots-12904 0) 'syntax-object) #f) #f) - (vector-ref dots-14955 1) - dots-14955) + (vector-ref dots-12904 1) + dots-12904) (if (if (= (vector-length '#(syntax-object ... @@ -12441,7 +12398,7 @@ #(ribcage #(x) #((top)) - #("l-*-4317")) + #("l-*-2266")) #(ribcage (lambda-var-list gen-var @@ -12723,146 +12680,146 @@ (top) (top) (top)) - ("l-*-2527" - "l-*-2525" - "l-*-2523" - "l-*-2521" - "l-*-2519" - "l-*-2517" - "l-*-2515" - "l-*-2513" - "l-*-2511" - "l-*-2509" - "l-*-2507" - "l-*-2505" - "l-*-2503" - "l-*-2501" - "l-*-2499" - "l-*-2497" - "l-*-2495" - "l-*-2493" - "l-*-2491" - "l-*-2489" - "l-*-2487" - "l-*-2485" - "l-*-2483" - "l-*-2481" - "l-*-2479" - "l-*-2477" - "l-*-2475" - "l-*-2473" - "l-*-2471" - "l-*-2469" - "l-*-2467" - "l-*-2465" - "l-*-2463" - "l-*-2461" - "l-*-2459" - "l-*-2457" - "l-*-2455" - "l-*-2453" - "l-*-2451" - "l-*-2450" - "l-*-2448" - "l-*-2445" - "l-*-2444" - "l-*-2443" - "l-*-2441" - "l-*-2440" - "l-*-2438" - "l-*-2436" - "l-*-2434" - "l-*-2432" - "l-*-2430" - "l-*-2428" - "l-*-2426" - "l-*-2424" - "l-*-2421" - "l-*-2419" - "l-*-2418" - "l-*-2416" - "l-*-2414" - "l-*-2412" - "l-*-2410" - "l-*-2409" - "l-*-2408" - "l-*-2407" - "l-*-2405" - "l-*-2404" - "l-*-2401" - "l-*-2399" - "l-*-2397" - "l-*-2395" - "l-*-2393" - "l-*-2391" - "l-*-2389" - "l-*-2388" - "l-*-2387" - "l-*-2385" - "l-*-2383" - "l-*-2382" - "l-*-2379" - "l-*-2378" - "l-*-2376" - "l-*-2374" - "l-*-2372" - "l-*-2370" - "l-*-2368" - "l-*-2366" - "l-*-2364" - "l-*-2362" - "l-*-2360" - "l-*-2357" - "l-*-2355" - "l-*-2353" - "l-*-2351" - "l-*-2349" - "l-*-2347" - "l-*-2345" - "l-*-2343" - "l-*-2341" - "l-*-2339" - "l-*-2337" - "l-*-2335" - "l-*-2333" - "l-*-2331" - "l-*-2329" - "l-*-2327" - "l-*-2325" - "l-*-2323" - "l-*-2321" - "l-*-2319" - "l-*-2317" - "l-*-2315" - "l-*-2313" - "l-*-2311" - "l-*-2309" - "l-*-2307" - "l-*-2306" - "l-*-2305" - "l-*-2304" - "l-*-2303" - "l-*-2301" - "l-*-2299" - "l-*-2297" - "l-*-2294" - "l-*-2292" - "l-*-2290" - "l-*-2288" - "l-*-2286" - "l-*-2284" - "l-*-2282" - "l-*-2280" - "l-*-2278" - "l-*-2276" - "l-*-2274" - "l-*-2272" - "l-*-2270" - "l-*-2268" - "l-*-2266" - "l-*-2264" - "l-*-2262" - "l-*-2260")) + ("l-*-476" + "l-*-474" + "l-*-472" + "l-*-470" + "l-*-468" + "l-*-466" + "l-*-464" + "l-*-462" + "l-*-460" + "l-*-458" + "l-*-456" + "l-*-454" + "l-*-452" + "l-*-450" + "l-*-448" + "l-*-446" + "l-*-444" + "l-*-442" + "l-*-440" + "l-*-438" + "l-*-436" + "l-*-434" + "l-*-432" + "l-*-430" + "l-*-428" + "l-*-426" + "l-*-424" + "l-*-422" + "l-*-420" + "l-*-418" + "l-*-416" + "l-*-414" + "l-*-412" + "l-*-410" + "l-*-408" + "l-*-406" + "l-*-404" + "l-*-402" + "l-*-400" + "l-*-399" + "l-*-397" + "l-*-394" + "l-*-393" + "l-*-392" + "l-*-390" + "l-*-389" + "l-*-387" + "l-*-385" + "l-*-383" + "l-*-381" + "l-*-379" + "l-*-377" + "l-*-375" + "l-*-373" + "l-*-370" + "l-*-368" + "l-*-367" + "l-*-365" + "l-*-363" + "l-*-361" + "l-*-359" + "l-*-358" + "l-*-357" + "l-*-356" + "l-*-354" + "l-*-353" + "l-*-350" + "l-*-348" + "l-*-346" + "l-*-344" + "l-*-342" + "l-*-340" + "l-*-338" + "l-*-337" + "l-*-336" + "l-*-334" + "l-*-332" + "l-*-331" + "l-*-328" + "l-*-327" + "l-*-325" + "l-*-323" + "l-*-321" + "l-*-319" + "l-*-317" + "l-*-315" + "l-*-313" + "l-*-311" + "l-*-309" + "l-*-306" + "l-*-304" + "l-*-302" + "l-*-300" + "l-*-298" + "l-*-296" + "l-*-294" + "l-*-292" + "l-*-290" + "l-*-288" + "l-*-286" + "l-*-284" + "l-*-282" + "l-*-280" + "l-*-278" + "l-*-276" + "l-*-274" + "l-*-272" + "l-*-270" + "l-*-268" + "l-*-266" + "l-*-264" + "l-*-262" + "l-*-260" + "l-*-258" + "l-*-256" + "l-*-255" + "l-*-254" + "l-*-253" + "l-*-252" + "l-*-250" + "l-*-248" + "l-*-246" + "l-*-243" + "l-*-241" + "l-*-239" + "l-*-237" + "l-*-235" + "l-*-233" + "l-*-231" + "l-*-229" + "l-*-227" + "l-*-225" + "l-*-223" + "l-*-221" + "l-*-219" + "l-*-217" + "l-*-215" + "l-*-213" + "l-*-211" + "l-*-209")) #(ribcage (define-structure define-expansion-accessors @@ -12870,9 +12827,9 @@ ((top) (top) (top)) - ("l-*-2098" - "l-*-2097" - "l-*-2096"))) + ("l-*-47" + "l-*-46" + "l-*-45"))) (hygiene guile))) 4) @@ -12887,7 +12844,7 @@ #(ribcage #(x) #((top)) - #("l-*-4317")) + #("l-*-2266")) #(ribcage (lambda-var-list gen-var @@ -13169,159 +13126,159 @@ (top) (top) (top)) - ("l-*-2527" - "l-*-2525" - "l-*-2523" - "l-*-2521" - "l-*-2519" - "l-*-2517" - "l-*-2515" - "l-*-2513" - "l-*-2511" - "l-*-2509" - "l-*-2507" - "l-*-2505" - "l-*-2503" - "l-*-2501" - "l-*-2499" - "l-*-2497" - "l-*-2495" - "l-*-2493" - "l-*-2491" - "l-*-2489" - "l-*-2487" - "l-*-2485" - "l-*-2483" - "l-*-2481" - "l-*-2479" - "l-*-2477" - "l-*-2475" - "l-*-2473" - "l-*-2471" - "l-*-2469" - "l-*-2467" - "l-*-2465" - "l-*-2463" - "l-*-2461" - "l-*-2459" - "l-*-2457" - "l-*-2455" - "l-*-2453" - "l-*-2451" - "l-*-2450" - "l-*-2448" - "l-*-2445" - "l-*-2444" - "l-*-2443" - "l-*-2441" - "l-*-2440" - "l-*-2438" - "l-*-2436" - "l-*-2434" - "l-*-2432" - "l-*-2430" - "l-*-2428" - "l-*-2426" - "l-*-2424" - "l-*-2421" - "l-*-2419" - "l-*-2418" - "l-*-2416" - "l-*-2414" - "l-*-2412" - "l-*-2410" - "l-*-2409" - "l-*-2408" - "l-*-2407" - "l-*-2405" - "l-*-2404" - "l-*-2401" - "l-*-2399" - "l-*-2397" - "l-*-2395" - "l-*-2393" - "l-*-2391" - "l-*-2389" - "l-*-2388" - "l-*-2387" - "l-*-2385" - "l-*-2383" - "l-*-2382" - "l-*-2379" - "l-*-2378" - "l-*-2376" - "l-*-2374" - "l-*-2372" - "l-*-2370" - "l-*-2368" - "l-*-2366" - "l-*-2364" - "l-*-2362" - "l-*-2360" - "l-*-2357" - "l-*-2355" - "l-*-2353" - "l-*-2351" - "l-*-2349" - "l-*-2347" - "l-*-2345" - "l-*-2343" - "l-*-2341" - "l-*-2339" - "l-*-2337" - "l-*-2335" - "l-*-2333" - "l-*-2331" - "l-*-2329" - "l-*-2327" - "l-*-2325" - "l-*-2323" - "l-*-2321" - "l-*-2319" - "l-*-2317" - "l-*-2315" - "l-*-2313" - "l-*-2311" - "l-*-2309" - "l-*-2307" - "l-*-2306" - "l-*-2305" - "l-*-2304" - "l-*-2303" - "l-*-2301" - "l-*-2299" - "l-*-2297" - "l-*-2294" - "l-*-2292" - "l-*-2290" - "l-*-2288" - "l-*-2286" - "l-*-2284" - "l-*-2282" - "l-*-2280" - "l-*-2278" - "l-*-2276" - "l-*-2274" - "l-*-2272" - "l-*-2270" - "l-*-2268" - "l-*-2266" - "l-*-2264" - "l-*-2262" - "l-*-2260")) + ("l-*-476" + "l-*-474" + "l-*-472" + "l-*-470" + "l-*-468" + "l-*-466" + "l-*-464" + "l-*-462" + "l-*-460" + "l-*-458" + "l-*-456" + "l-*-454" + "l-*-452" + "l-*-450" + "l-*-448" + "l-*-446" + "l-*-444" + "l-*-442" + "l-*-440" + "l-*-438" + "l-*-436" + "l-*-434" + "l-*-432" + "l-*-430" + "l-*-428" + "l-*-426" + "l-*-424" + "l-*-422" + "l-*-420" + "l-*-418" + "l-*-416" + "l-*-414" + "l-*-412" + "l-*-410" + "l-*-408" + "l-*-406" + "l-*-404" + "l-*-402" + "l-*-400" + "l-*-399" + "l-*-397" + "l-*-394" + "l-*-393" + "l-*-392" + "l-*-390" + "l-*-389" + "l-*-387" + "l-*-385" + "l-*-383" + "l-*-381" + "l-*-379" + "l-*-377" + "l-*-375" + "l-*-373" + "l-*-370" + "l-*-368" + "l-*-367" + "l-*-365" + "l-*-363" + "l-*-361" + "l-*-359" + "l-*-358" + "l-*-357" + "l-*-356" + "l-*-354" + "l-*-353" + "l-*-350" + "l-*-348" + "l-*-346" + "l-*-344" + "l-*-342" + "l-*-340" + "l-*-338" + "l-*-337" + "l-*-336" + "l-*-334" + "l-*-332" + "l-*-331" + "l-*-328" + "l-*-327" + "l-*-325" + "l-*-323" + "l-*-321" + "l-*-319" + "l-*-317" + "l-*-315" + "l-*-313" + "l-*-311" + "l-*-309" + "l-*-306" + "l-*-304" + "l-*-302" + "l-*-300" + "l-*-298" + "l-*-296" + "l-*-294" + "l-*-292" + "l-*-290" + "l-*-288" + "l-*-286" + "l-*-284" + "l-*-282" + "l-*-280" + "l-*-278" + "l-*-276" + "l-*-274" + "l-*-272" + "l-*-270" + "l-*-268" + "l-*-266" + "l-*-264" + "l-*-262" + "l-*-260" + "l-*-258" + "l-*-256" + "l-*-255" + "l-*-254" + "l-*-253" + "l-*-252" + "l-*-250" + "l-*-248" + "l-*-246" + "l-*-243" + "l-*-241" + "l-*-239" + "l-*-237" + "l-*-235" + "l-*-233" + "l-*-231" + "l-*-229" + "l-*-227" + "l-*-225" + "l-*-223" + "l-*-221" + "l-*-219" + "l-*-217" + "l-*-215" + "l-*-213" + "l-*-211" + "l-*-209")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("l-*-2098" - "l-*-2097" - "l-*-2096"))) + ("l-*-47" + "l-*-46" + "l-*-45"))) (hygiene guile)))) - (eq? (id-var-name-6364 - dots-14955 + (eq? (id-var-name-4313 + dots-12904 '(())) - (id-var-name-6364 + (id-var-name-4313 '#(syntax-object ... ((top) @@ -13330,7 +13287,7 @@ #(ribcage #(x) #((top)) - #("l-*-4317")) + #("l-*-2266")) #(ribcage (lambda-var-list gen-var @@ -13612,205 +13569,205 @@ (top) (top) (top)) - ("l-*-2527" - "l-*-2525" - "l-*-2523" - "l-*-2521" - "l-*-2519" - "l-*-2517" - "l-*-2515" - "l-*-2513" - "l-*-2511" - "l-*-2509" - "l-*-2507" - "l-*-2505" - "l-*-2503" - "l-*-2501" - "l-*-2499" - "l-*-2497" - "l-*-2495" - "l-*-2493" - "l-*-2491" - "l-*-2489" - "l-*-2487" - "l-*-2485" - "l-*-2483" - "l-*-2481" - "l-*-2479" - "l-*-2477" - "l-*-2475" - "l-*-2473" - "l-*-2471" - "l-*-2469" - "l-*-2467" - "l-*-2465" - "l-*-2463" - "l-*-2461" - "l-*-2459" - "l-*-2457" - "l-*-2455" - "l-*-2453" - "l-*-2451" - "l-*-2450" - "l-*-2448" - "l-*-2445" - "l-*-2444" - "l-*-2443" - "l-*-2441" - "l-*-2440" - "l-*-2438" - "l-*-2436" - "l-*-2434" - "l-*-2432" - "l-*-2430" - "l-*-2428" - "l-*-2426" - "l-*-2424" - "l-*-2421" - "l-*-2419" - "l-*-2418" - "l-*-2416" - "l-*-2414" - "l-*-2412" - "l-*-2410" - "l-*-2409" - "l-*-2408" - "l-*-2407" - "l-*-2405" - "l-*-2404" - "l-*-2401" - "l-*-2399" - "l-*-2397" - "l-*-2395" - "l-*-2393" - "l-*-2391" - "l-*-2389" - "l-*-2388" - "l-*-2387" - "l-*-2385" - "l-*-2383" - "l-*-2382" - "l-*-2379" - "l-*-2378" - "l-*-2376" - "l-*-2374" - "l-*-2372" - "l-*-2370" - "l-*-2368" - "l-*-2366" - "l-*-2364" - "l-*-2362" - "l-*-2360" - "l-*-2357" - "l-*-2355" - "l-*-2353" - "l-*-2351" - "l-*-2349" - "l-*-2347" - "l-*-2345" - "l-*-2343" - "l-*-2341" - "l-*-2339" - "l-*-2337" - "l-*-2335" - "l-*-2333" - "l-*-2331" - "l-*-2329" - "l-*-2327" - "l-*-2325" - "l-*-2323" - "l-*-2321" - "l-*-2319" - "l-*-2317" - "l-*-2315" - "l-*-2313" - "l-*-2311" - "l-*-2309" - "l-*-2307" - "l-*-2306" - "l-*-2305" - "l-*-2304" - "l-*-2303" - "l-*-2301" - "l-*-2299" - "l-*-2297" - "l-*-2294" - "l-*-2292" - "l-*-2290" - "l-*-2288" - "l-*-2286" - "l-*-2284" - "l-*-2282" - "l-*-2280" - "l-*-2278" - "l-*-2276" - "l-*-2274" - "l-*-2272" - "l-*-2270" - "l-*-2268" - "l-*-2266" - "l-*-2264" - "l-*-2262" - "l-*-2260")) + ("l-*-476" + "l-*-474" + "l-*-472" + "l-*-470" + "l-*-468" + "l-*-466" + "l-*-464" + "l-*-462" + "l-*-460" + "l-*-458" + "l-*-456" + "l-*-454" + "l-*-452" + "l-*-450" + "l-*-448" + "l-*-446" + "l-*-444" + "l-*-442" + "l-*-440" + "l-*-438" + "l-*-436" + "l-*-434" + "l-*-432" + "l-*-430" + "l-*-428" + "l-*-426" + "l-*-424" + "l-*-422" + "l-*-420" + "l-*-418" + "l-*-416" + "l-*-414" + "l-*-412" + "l-*-410" + "l-*-408" + "l-*-406" + "l-*-404" + "l-*-402" + "l-*-400" + "l-*-399" + "l-*-397" + "l-*-394" + "l-*-393" + "l-*-392" + "l-*-390" + "l-*-389" + "l-*-387" + "l-*-385" + "l-*-383" + "l-*-381" + "l-*-379" + "l-*-377" + "l-*-375" + "l-*-373" + "l-*-370" + "l-*-368" + "l-*-367" + "l-*-365" + "l-*-363" + "l-*-361" + "l-*-359" + "l-*-358" + "l-*-357" + "l-*-356" + "l-*-354" + "l-*-353" + "l-*-350" + "l-*-348" + "l-*-346" + "l-*-344" + "l-*-342" + "l-*-340" + "l-*-338" + "l-*-337" + "l-*-336" + "l-*-334" + "l-*-332" + "l-*-331" + "l-*-328" + "l-*-327" + "l-*-325" + "l-*-323" + "l-*-321" + "l-*-319" + "l-*-317" + "l-*-315" + "l-*-313" + "l-*-311" + "l-*-309" + "l-*-306" + "l-*-304" + "l-*-302" + "l-*-300" + "l-*-298" + "l-*-296" + "l-*-294" + "l-*-292" + "l-*-290" + "l-*-288" + "l-*-286" + "l-*-284" + "l-*-282" + "l-*-280" + "l-*-278" + "l-*-276" + "l-*-274" + "l-*-272" + "l-*-270" + "l-*-268" + "l-*-266" + "l-*-264" + "l-*-262" + "l-*-260" + "l-*-258" + "l-*-256" + "l-*-255" + "l-*-254" + "l-*-253" + "l-*-252" + "l-*-250" + "l-*-248" + "l-*-246" + "l-*-243" + "l-*-241" + "l-*-239" + "l-*-237" + "l-*-235" + "l-*-233" + "l-*-231" + "l-*-229" + "l-*-227" + "l-*-225" + "l-*-223" + "l-*-221" + "l-*-219" + "l-*-217" + "l-*-215" + "l-*-213" + "l-*-211" + "l-*-209")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("l-*-2098" - "l-*-2097" - "l-*-2096"))) + ("l-*-47" + "l-*-46" + "l-*-45"))) (hygiene guile)) '(()))) #f) #f)) - tmp-14950) + tmp-12899) #f) (@apply - (lambda (x-15055 dots-15056) + (lambda (x-13004 dots-13005) (call-with-values (lambda () - (cvt-14625 - x-15055 - (#{1+}# n-14629) - ids-14630)) - (lambda (p-15057 ids-15058) + (cvt-12574 + x-13004 + (#{1+}# n-12578) + ids-12579)) + (lambda (p-13006 ids-13007) (values - (if (eq? p-15057 'any) + (if (eq? p-13006 'any) 'each-any - (vector 'each p-15057)) - ids-15058)))) - tmp-14950) - (let ((tmp-15059 - ($sc-dispatch p-14628 '(any any . any)))) - (if (if tmp-15059 + (vector 'each p-13006)) + ids-13007)))) + tmp-12899) + (let ((tmp-13008 + ($sc-dispatch p-12577 '(any any . any)))) + (if (if tmp-13008 (@apply - (lambda (x-15063 dots-15064 ys-15065) - (if (if (if (vector? dots-15064) + (lambda (x-13012 dots-13013 ys-13014) + (if (if (if (vector? dots-13013) (if (= (vector-length - dots-15064) + dots-13013) 4) (eq? (vector-ref - dots-15064 + dots-13013 0) 'syntax-object) #f) #f) (symbol? - (vector-ref dots-15064 1)) + (vector-ref dots-13013 1)) #f) - (if (eq? (if (if (vector? dots-15064) + (if (eq? (if (if (vector? dots-13013) (if (= (vector-length - dots-15064) + dots-13013) 4) (eq? (vector-ref - dots-15064 + dots-13013 0) 'syntax-object) #f) #f) - (vector-ref dots-15064 1) - dots-15064) + (vector-ref dots-13013 1) + dots-13013) (if (if (= (vector-length '#(syntax-object ... @@ -13826,7 +13783,7 @@ #(ribcage #(x) #((top)) - #("l-*-4317")) + #("l-*-2266")) #(ribcage (lambda-var-list gen-var @@ -14108,146 +14065,146 @@ (top) (top) (top)) - ("l-*-2527" - "l-*-2525" - "l-*-2523" - "l-*-2521" - "l-*-2519" - "l-*-2517" - "l-*-2515" - "l-*-2513" - "l-*-2511" - "l-*-2509" - "l-*-2507" - "l-*-2505" - "l-*-2503" - "l-*-2501" - "l-*-2499" - "l-*-2497" - "l-*-2495" - "l-*-2493" - "l-*-2491" - "l-*-2489" - "l-*-2487" - "l-*-2485" - "l-*-2483" - "l-*-2481" - "l-*-2479" - "l-*-2477" - "l-*-2475" - "l-*-2473" - "l-*-2471" - "l-*-2469" - "l-*-2467" - "l-*-2465" - "l-*-2463" - "l-*-2461" - "l-*-2459" - "l-*-2457" - "l-*-2455" - "l-*-2453" - "l-*-2451" - "l-*-2450" - "l-*-2448" - "l-*-2445" - "l-*-2444" - "l-*-2443" - "l-*-2441" - "l-*-2440" - "l-*-2438" - "l-*-2436" - "l-*-2434" - "l-*-2432" - "l-*-2430" - "l-*-2428" - "l-*-2426" - "l-*-2424" - "l-*-2421" - "l-*-2419" - "l-*-2418" - "l-*-2416" - "l-*-2414" - "l-*-2412" - "l-*-2410" - "l-*-2409" - "l-*-2408" - "l-*-2407" - "l-*-2405" - "l-*-2404" - "l-*-2401" - "l-*-2399" - "l-*-2397" - "l-*-2395" - "l-*-2393" - "l-*-2391" - "l-*-2389" - "l-*-2388" - "l-*-2387" - "l-*-2385" - "l-*-2383" - "l-*-2382" - "l-*-2379" - "l-*-2378" - "l-*-2376" - "l-*-2374" - "l-*-2372" - "l-*-2370" - "l-*-2368" - "l-*-2366" - "l-*-2364" - "l-*-2362" - "l-*-2360" - "l-*-2357" - "l-*-2355" - "l-*-2353" - "l-*-2351" - "l-*-2349" - "l-*-2347" - "l-*-2345" - "l-*-2343" - "l-*-2341" - "l-*-2339" - "l-*-2337" - "l-*-2335" - "l-*-2333" - "l-*-2331" - "l-*-2329" - "l-*-2327" - "l-*-2325" - "l-*-2323" - "l-*-2321" - "l-*-2319" - "l-*-2317" - "l-*-2315" - "l-*-2313" - "l-*-2311" - "l-*-2309" - "l-*-2307" - "l-*-2306" - "l-*-2305" - "l-*-2304" - "l-*-2303" - "l-*-2301" - "l-*-2299" - "l-*-2297" - "l-*-2294" - "l-*-2292" - "l-*-2290" - "l-*-2288" - "l-*-2286" - "l-*-2284" - "l-*-2282" - "l-*-2280" - "l-*-2278" - "l-*-2276" - "l-*-2274" - "l-*-2272" - "l-*-2270" - "l-*-2268" - "l-*-2266" - "l-*-2264" - "l-*-2262" - "l-*-2260")) + ("l-*-476" + "l-*-474" + "l-*-472" + "l-*-470" + "l-*-468" + "l-*-466" + "l-*-464" + "l-*-462" + "l-*-460" + "l-*-458" + "l-*-456" + "l-*-454" + "l-*-452" + "l-*-450" + "l-*-448" + "l-*-446" + "l-*-444" + "l-*-442" + "l-*-440" + "l-*-438" + "l-*-436" + "l-*-434" + "l-*-432" + "l-*-430" + "l-*-428" + "l-*-426" + "l-*-424" + "l-*-422" + "l-*-420" + "l-*-418" + "l-*-416" + "l-*-414" + "l-*-412" + "l-*-410" + "l-*-408" + "l-*-406" + "l-*-404" + "l-*-402" + "l-*-400" + "l-*-399" + "l-*-397" + "l-*-394" + "l-*-393" + "l-*-392" + "l-*-390" + "l-*-389" + "l-*-387" + "l-*-385" + "l-*-383" + "l-*-381" + "l-*-379" + "l-*-377" + "l-*-375" + "l-*-373" + "l-*-370" + "l-*-368" + "l-*-367" + "l-*-365" + "l-*-363" + "l-*-361" + "l-*-359" + "l-*-358" + "l-*-357" + "l-*-356" + "l-*-354" + "l-*-353" + "l-*-350" + "l-*-348" + "l-*-346" + "l-*-344" + "l-*-342" + "l-*-340" + "l-*-338" + "l-*-337" + "l-*-336" + "l-*-334" + "l-*-332" + "l-*-331" + "l-*-328" + "l-*-327" + "l-*-325" + "l-*-323" + "l-*-321" + "l-*-319" + "l-*-317" + "l-*-315" + "l-*-313" + "l-*-311" + "l-*-309" + "l-*-306" + "l-*-304" + "l-*-302" + "l-*-300" + "l-*-298" + "l-*-296" + "l-*-294" + "l-*-292" + "l-*-290" + "l-*-288" + "l-*-286" + "l-*-284" + "l-*-282" + "l-*-280" + "l-*-278" + "l-*-276" + "l-*-274" + "l-*-272" + "l-*-270" + "l-*-268" + "l-*-266" + "l-*-264" + "l-*-262" + "l-*-260" + "l-*-258" + "l-*-256" + "l-*-255" + "l-*-254" + "l-*-253" + "l-*-252" + "l-*-250" + "l-*-248" + "l-*-246" + "l-*-243" + "l-*-241" + "l-*-239" + "l-*-237" + "l-*-235" + "l-*-233" + "l-*-231" + "l-*-229" + "l-*-227" + "l-*-225" + "l-*-223" + "l-*-221" + "l-*-219" + "l-*-217" + "l-*-215" + "l-*-213" + "l-*-211" + "l-*-209")) #(ribcage (define-structure define-expansion-accessors @@ -14255,9 +14212,9 @@ ((top) (top) (top)) - ("l-*-2098" - "l-*-2097" - "l-*-2096"))) + ("l-*-47" + "l-*-46" + "l-*-45"))) (hygiene guile))) 4) @@ -14272,7 +14229,7 @@ #(ribcage #(x) #((top)) - #("l-*-4317")) + #("l-*-2266")) #(ribcage (lambda-var-list gen-var @@ -14554,159 +14511,159 @@ (top) (top) (top)) - ("l-*-2527" - "l-*-2525" - "l-*-2523" - "l-*-2521" - "l-*-2519" - "l-*-2517" - "l-*-2515" - "l-*-2513" - "l-*-2511" - "l-*-2509" - "l-*-2507" - "l-*-2505" - "l-*-2503" - "l-*-2501" - "l-*-2499" - "l-*-2497" - "l-*-2495" - "l-*-2493" - "l-*-2491" - "l-*-2489" - "l-*-2487" - "l-*-2485" - "l-*-2483" - "l-*-2481" - "l-*-2479" - "l-*-2477" - "l-*-2475" - "l-*-2473" - "l-*-2471" - "l-*-2469" - "l-*-2467" - "l-*-2465" - "l-*-2463" - "l-*-2461" - "l-*-2459" - "l-*-2457" - "l-*-2455" - "l-*-2453" - "l-*-2451" - "l-*-2450" - "l-*-2448" - "l-*-2445" - "l-*-2444" - "l-*-2443" - "l-*-2441" - "l-*-2440" - "l-*-2438" - "l-*-2436" - "l-*-2434" - "l-*-2432" - "l-*-2430" - "l-*-2428" - "l-*-2426" - "l-*-2424" - "l-*-2421" - "l-*-2419" - "l-*-2418" - "l-*-2416" - "l-*-2414" - "l-*-2412" - "l-*-2410" - "l-*-2409" - "l-*-2408" - "l-*-2407" - "l-*-2405" - "l-*-2404" - "l-*-2401" - "l-*-2399" - "l-*-2397" - "l-*-2395" - "l-*-2393" - "l-*-2391" - "l-*-2389" - "l-*-2388" - "l-*-2387" - "l-*-2385" - "l-*-2383" - "l-*-2382" - "l-*-2379" - "l-*-2378" - "l-*-2376" - "l-*-2374" - "l-*-2372" - "l-*-2370" - "l-*-2368" - "l-*-2366" - "l-*-2364" - "l-*-2362" - "l-*-2360" - "l-*-2357" - "l-*-2355" - "l-*-2353" - "l-*-2351" - "l-*-2349" - "l-*-2347" - "l-*-2345" - "l-*-2343" - "l-*-2341" - "l-*-2339" - "l-*-2337" - "l-*-2335" - "l-*-2333" - "l-*-2331" - "l-*-2329" - "l-*-2327" - "l-*-2325" - "l-*-2323" - "l-*-2321" - "l-*-2319" - "l-*-2317" - "l-*-2315" - "l-*-2313" - "l-*-2311" - "l-*-2309" - "l-*-2307" - "l-*-2306" - "l-*-2305" - "l-*-2304" - "l-*-2303" - "l-*-2301" - "l-*-2299" - "l-*-2297" - "l-*-2294" - "l-*-2292" - "l-*-2290" - "l-*-2288" - "l-*-2286" - "l-*-2284" - "l-*-2282" - "l-*-2280" - "l-*-2278" - "l-*-2276" - "l-*-2274" - "l-*-2272" - "l-*-2270" - "l-*-2268" - "l-*-2266" - "l-*-2264" - "l-*-2262" - "l-*-2260")) + ("l-*-476" + "l-*-474" + "l-*-472" + "l-*-470" + "l-*-468" + "l-*-466" + "l-*-464" + "l-*-462" + "l-*-460" + "l-*-458" + "l-*-456" + "l-*-454" + "l-*-452" + "l-*-450" + "l-*-448" + "l-*-446" + "l-*-444" + "l-*-442" + "l-*-440" + "l-*-438" + "l-*-436" + "l-*-434" + "l-*-432" + "l-*-430" + "l-*-428" + "l-*-426" + "l-*-424" + "l-*-422" + "l-*-420" + "l-*-418" + "l-*-416" + "l-*-414" + "l-*-412" + "l-*-410" + "l-*-408" + "l-*-406" + "l-*-404" + "l-*-402" + "l-*-400" + "l-*-399" + "l-*-397" + "l-*-394" + "l-*-393" + "l-*-392" + "l-*-390" + "l-*-389" + "l-*-387" + "l-*-385" + "l-*-383" + "l-*-381" + "l-*-379" + "l-*-377" + "l-*-375" + "l-*-373" + "l-*-370" + "l-*-368" + "l-*-367" + "l-*-365" + "l-*-363" + "l-*-361" + "l-*-359" + "l-*-358" + "l-*-357" + "l-*-356" + "l-*-354" + "l-*-353" + "l-*-350" + "l-*-348" + "l-*-346" + "l-*-344" + "l-*-342" + "l-*-340" + "l-*-338" + "l-*-337" + "l-*-336" + "l-*-334" + "l-*-332" + "l-*-331" + "l-*-328" + "l-*-327" + "l-*-325" + "l-*-323" + "l-*-321" + "l-*-319" + "l-*-317" + "l-*-315" + "l-*-313" + "l-*-311" + "l-*-309" + "l-*-306" + "l-*-304" + "l-*-302" + "l-*-300" + "l-*-298" + "l-*-296" + "l-*-294" + "l-*-292" + "l-*-290" + "l-*-288" + "l-*-286" + "l-*-284" + "l-*-282" + "l-*-280" + "l-*-278" + "l-*-276" + "l-*-274" + "l-*-272" + "l-*-270" + "l-*-268" + "l-*-266" + "l-*-264" + "l-*-262" + "l-*-260" + "l-*-258" + "l-*-256" + "l-*-255" + "l-*-254" + "l-*-253" + "l-*-252" + "l-*-250" + "l-*-248" + "l-*-246" + "l-*-243" + "l-*-241" + "l-*-239" + "l-*-237" + "l-*-235" + "l-*-233" + "l-*-231" + "l-*-229" + "l-*-227" + "l-*-225" + "l-*-223" + "l-*-221" + "l-*-219" + "l-*-217" + "l-*-215" + "l-*-213" + "l-*-211" + "l-*-209")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("l-*-2098" - "l-*-2097" - "l-*-2096"))) + ("l-*-47" + "l-*-46" + "l-*-45"))) (hygiene guile)))) - (eq? (id-var-name-6364 - dots-15064 + (eq? (id-var-name-4313 + dots-13013 '(())) - (id-var-name-6364 + (id-var-name-4313 '#(syntax-object ... ((top) @@ -14715,7 +14672,7 @@ #(ribcage #(x) #((top)) - #("l-*-4317")) + #("l-*-2266")) #(ribcage (lambda-var-list gen-var @@ -14997,249 +14954,249 @@ (top) (top) (top)) - ("l-*-2527" - "l-*-2525" - "l-*-2523" - "l-*-2521" - "l-*-2519" - "l-*-2517" - "l-*-2515" - "l-*-2513" - "l-*-2511" - "l-*-2509" - "l-*-2507" - "l-*-2505" - "l-*-2503" - "l-*-2501" - "l-*-2499" - "l-*-2497" - "l-*-2495" - "l-*-2493" - "l-*-2491" - "l-*-2489" - "l-*-2487" - "l-*-2485" - "l-*-2483" - "l-*-2481" - "l-*-2479" - "l-*-2477" - "l-*-2475" - "l-*-2473" - "l-*-2471" - "l-*-2469" - "l-*-2467" - "l-*-2465" - "l-*-2463" - "l-*-2461" - "l-*-2459" - "l-*-2457" - "l-*-2455" - "l-*-2453" - "l-*-2451" - "l-*-2450" - "l-*-2448" - "l-*-2445" - "l-*-2444" - "l-*-2443" - "l-*-2441" - "l-*-2440" - "l-*-2438" - "l-*-2436" - "l-*-2434" - "l-*-2432" - "l-*-2430" - "l-*-2428" - "l-*-2426" - "l-*-2424" - "l-*-2421" - "l-*-2419" - "l-*-2418" - "l-*-2416" - "l-*-2414" - "l-*-2412" - "l-*-2410" - "l-*-2409" - "l-*-2408" - "l-*-2407" - "l-*-2405" - "l-*-2404" - "l-*-2401" - "l-*-2399" - "l-*-2397" - "l-*-2395" - "l-*-2393" - "l-*-2391" - "l-*-2389" - "l-*-2388" - "l-*-2387" - "l-*-2385" - "l-*-2383" - "l-*-2382" - "l-*-2379" - "l-*-2378" - "l-*-2376" - "l-*-2374" - "l-*-2372" - "l-*-2370" - "l-*-2368" - "l-*-2366" - "l-*-2364" - "l-*-2362" - "l-*-2360" - "l-*-2357" - "l-*-2355" - "l-*-2353" - "l-*-2351" - "l-*-2349" - "l-*-2347" - "l-*-2345" - "l-*-2343" - "l-*-2341" - "l-*-2339" - "l-*-2337" - "l-*-2335" - "l-*-2333" - "l-*-2331" - "l-*-2329" - "l-*-2327" - "l-*-2325" - "l-*-2323" - "l-*-2321" - "l-*-2319" - "l-*-2317" - "l-*-2315" - "l-*-2313" - "l-*-2311" - "l-*-2309" - "l-*-2307" - "l-*-2306" - "l-*-2305" - "l-*-2304" - "l-*-2303" - "l-*-2301" - "l-*-2299" - "l-*-2297" - "l-*-2294" - "l-*-2292" - "l-*-2290" - "l-*-2288" - "l-*-2286" - "l-*-2284" - "l-*-2282" - "l-*-2280" - "l-*-2278" - "l-*-2276" - "l-*-2274" - "l-*-2272" - "l-*-2270" - "l-*-2268" - "l-*-2266" - "l-*-2264" - "l-*-2262" - "l-*-2260")) + ("l-*-476" + "l-*-474" + "l-*-472" + "l-*-470" + "l-*-468" + "l-*-466" + "l-*-464" + "l-*-462" + "l-*-460" + "l-*-458" + "l-*-456" + "l-*-454" + "l-*-452" + "l-*-450" + "l-*-448" + "l-*-446" + "l-*-444" + "l-*-442" + "l-*-440" + "l-*-438" + "l-*-436" + "l-*-434" + "l-*-432" + "l-*-430" + "l-*-428" + "l-*-426" + "l-*-424" + "l-*-422" + "l-*-420" + "l-*-418" + "l-*-416" + "l-*-414" + "l-*-412" + "l-*-410" + "l-*-408" + "l-*-406" + "l-*-404" + "l-*-402" + "l-*-400" + "l-*-399" + "l-*-397" + "l-*-394" + "l-*-393" + "l-*-392" + "l-*-390" + "l-*-389" + "l-*-387" + "l-*-385" + "l-*-383" + "l-*-381" + "l-*-379" + "l-*-377" + "l-*-375" + "l-*-373" + "l-*-370" + "l-*-368" + "l-*-367" + "l-*-365" + "l-*-363" + "l-*-361" + "l-*-359" + "l-*-358" + "l-*-357" + "l-*-356" + "l-*-354" + "l-*-353" + "l-*-350" + "l-*-348" + "l-*-346" + "l-*-344" + "l-*-342" + "l-*-340" + "l-*-338" + "l-*-337" + "l-*-336" + "l-*-334" + "l-*-332" + "l-*-331" + "l-*-328" + "l-*-327" + "l-*-325" + "l-*-323" + "l-*-321" + "l-*-319" + "l-*-317" + "l-*-315" + "l-*-313" + "l-*-311" + "l-*-309" + "l-*-306" + "l-*-304" + "l-*-302" + "l-*-300" + "l-*-298" + "l-*-296" + "l-*-294" + "l-*-292" + "l-*-290" + "l-*-288" + "l-*-286" + "l-*-284" + "l-*-282" + "l-*-280" + "l-*-278" + "l-*-276" + "l-*-274" + "l-*-272" + "l-*-270" + "l-*-268" + "l-*-266" + "l-*-264" + "l-*-262" + "l-*-260" + "l-*-258" + "l-*-256" + "l-*-255" + "l-*-254" + "l-*-253" + "l-*-252" + "l-*-250" + "l-*-248" + "l-*-246" + "l-*-243" + "l-*-241" + "l-*-239" + "l-*-237" + "l-*-235" + "l-*-233" + "l-*-231" + "l-*-229" + "l-*-227" + "l-*-225" + "l-*-223" + "l-*-221" + "l-*-219" + "l-*-217" + "l-*-215" + "l-*-213" + "l-*-211" + "l-*-209")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("l-*-2098" - "l-*-2097" - "l-*-2096"))) + ("l-*-47" + "l-*-46" + "l-*-45"))) (hygiene guile)) '(()))) #f) #f)) - tmp-15059) + tmp-13008) #f) (@apply - (lambda (x-15165 dots-15166 ys-15167) + (lambda (x-13114 dots-13115 ys-13116) (call-with-values (lambda () - (cvt*-14623 - ys-15167 - n-14629 - ids-14630)) - (lambda (ys-15170 ids-15171) + (cvt*-12572 + ys-13116 + n-12578 + ids-12579)) + (lambda (ys-13119 ids-13120) (call-with-values (lambda () - (cvt-14625 - x-15165 - (#{1+}# n-14629) - ids-15171)) - (lambda (x-15172 ids-15173) + (cvt-12574 + x-13114 + (#{1+}# n-12578) + ids-13120)) + (lambda (x-13121 ids-13122) (call-with-values (lambda () - (v-reverse-14624 ys-15170)) - (lambda (ys-15206 e-15207) + (v-reverse-12573 ys-13119)) + (lambda (ys-13155 e-13156) (values (vector 'each+ - x-15172 - ys-15206 - e-15207) - ids-15173)))))))) - tmp-15059) - (let ((tmp-15208 - ($sc-dispatch p-14628 '(any . any)))) - (if tmp-15208 + x-13121 + ys-13155 + e-13156) + ids-13122)))))))) + tmp-13008) + (let ((tmp-13157 + ($sc-dispatch p-12577 '(any . any)))) + (if tmp-13157 (@apply - (lambda (x-15212 y-15213) + (lambda (x-13161 y-13162) (call-with-values (lambda () - (cvt-14625 - y-15213 - n-14629 - ids-14630)) - (lambda (y-15214 ids-15215) + (cvt-12574 + y-13162 + n-12578 + ids-12579)) + (lambda (y-13163 ids-13164) (call-with-values (lambda () - (cvt-14625 - x-15212 - n-14629 - ids-15215)) - (lambda (x-15216 ids-15217) + (cvt-12574 + x-13161 + n-12578 + ids-13164)) + (lambda (x-13165 ids-13166) (values - (cons x-15216 y-15214) - ids-15217)))))) - tmp-15208) - (let ((tmp-15218 - ($sc-dispatch p-14628 '()))) - (if tmp-15218 + (cons x-13165 y-13163) + ids-13166)))))) + tmp-13157) + (let ((tmp-13167 + ($sc-dispatch p-12577 '()))) + (if tmp-13167 (@apply - (lambda () (values '() ids-14630)) - tmp-15218) - (let ((tmp-15222 + (lambda () (values '() ids-12579)) + tmp-13167) + (let ((tmp-13171 ($sc-dispatch - p-14628 + p-12577 '#(vector each-any)))) - (if tmp-15222 + (if tmp-13171 (@apply - (lambda (x-15226) + (lambda (x-13175) (call-with-values (lambda () - (cvt-14625 - x-15226 - n-14629 - ids-14630)) - (lambda (p-15227 ids-15228) + (cvt-12574 + x-13175 + n-12578 + ids-12579)) + (lambda (p-13176 ids-13177) (values - (vector 'vector p-15227) - ids-15228)))) - tmp-15222) + (vector 'vector p-13176) + ids-13177)))) + tmp-13171) (values (vector 'atom - (strip-6394 p-14628 '(()))) - ids-14630))))))))))))))) - (cvt-14625 pattern-14621 0 '())))) - (build-dispatch-call-13025 - (lambda (pvars-15341 exp-15342 y-15343 r-15344 mod-15345) - (let ((ids-15346 (map car pvars-15341))) + (strip-4343 p-12577 '(()))) + ids-12579))))))))))))))) + (cvt-12574 pattern-12570 0 '())))) + (build-dispatch-call-10974 + (lambda (pvars-13290 exp-13291 y-13292 r-13293 mod-13294) + (let ((ids-13295 (map car pvars-13290))) (begin - (map cdr pvars-15341) - (let ((labels-15348 (gen-labels-6348 ids-15346)) - (new-vars-15349 (map gen-var-6395 ids-15346))) - (build-application-6312 + (map cdr pvars-13290) + (let ((labels-13297 (gen-labels-4297 ids-13295)) + (new-vars-13298 (map gen-var-4344 ids-13295))) + (build-application-4261 #f (if (equal? (module-name (current-module)) '(guile)) (make-struct/no-tail @@ -15252,73 +15209,73 @@ '(guile) 'apply #f)) - (list (build-simple-lambda-6321 + (list (build-simple-lambda-4270 #f - (map syntax->datum ids-15346) + (map syntax->datum ids-13295) #f - new-vars-15349 + new-vars-13298 '() - (expand-6381 - exp-15342 - (extend-env-6339 - labels-15348 - (map (lambda (var-15672 level-15673) + (expand-4330 + exp-13291 + (extend-env-4288 + labels-13297 + (map (lambda (var-13621 level-13622) (cons 'syntax - (cons var-15672 level-15673))) - new-vars-15349 - (map cdr pvars-15341)) - r-15344) - (make-binding-wrap-6359 - ids-15346 - labels-15348 + (cons var-13621 level-13622))) + new-vars-13298 + (map cdr pvars-13290)) + r-13293) + (make-binding-wrap-4308 + ids-13295 + labels-13297 '(())) - mod-15345)) - y-15343))))))) - (gen-clause-13026 - (lambda (x-13993 - keys-13994 - clauses-13995 - r-13996 - pat-13997 - fender-13998 - exp-13999 - mod-14000) + mod-13294)) + y-13292))))))) + (gen-clause-10975 + (lambda (x-11942 + keys-11943 + clauses-11944 + r-11945 + pat-11946 + fender-11947 + exp-11948 + mod-11949) (call-with-values (lambda () - (convert-pattern-13024 pat-13997 keys-13994)) - (lambda (p-14155 pvars-14156) - (if (not (distinct-bound-ids?-6372 (map car pvars-14156))) + (convert-pattern-10973 pat-11946 keys-11943)) + (lambda (p-12104 pvars-12105) + (if (not (distinct-bound-ids?-4321 (map car pvars-12105))) (syntax-violation 'syntax-case "duplicate pattern variable" - pat-13997) + pat-11946) (if (not (and-map - (lambda (x-14272) - (not (let ((x-14276 (car x-14272))) - (if (if (if (vector? x-14276) + (lambda (x-12221) + (not (let ((x-12225 (car x-12221))) + (if (if (if (vector? x-12225) (if (= (vector-length - x-14276) + x-12225) 4) (eq? (vector-ref - x-14276 + x-12225 0) 'syntax-object) #f) #f) - (symbol? (vector-ref x-14276 1)) + (symbol? (vector-ref x-12225 1)) #f) - (if (eq? (if (if (vector? x-14276) + (if (eq? (if (if (vector? x-12225) (if (= (vector-length - x-14276) + x-12225) 4) (eq? (vector-ref - x-14276 + x-12225 0) 'syntax-object) #f) #f) - (vector-ref x-14276 1) - x-14276) + (vector-ref x-12225 1) + x-12225) (if (if (= (vector-length '#(syntax-object ... @@ -15334,7 +15291,7 @@ #(ribcage #(x) #((top)) - #("l-*-4317")) + #("l-*-2266")) #(ribcage (lambda-var-list gen-var @@ -15616,146 +15573,146 @@ (top) (top) (top)) - ("l-*-2527" - "l-*-2525" - "l-*-2523" - "l-*-2521" - "l-*-2519" - "l-*-2517" - "l-*-2515" - "l-*-2513" - "l-*-2511" - "l-*-2509" - "l-*-2507" - "l-*-2505" - "l-*-2503" - "l-*-2501" - "l-*-2499" - "l-*-2497" - "l-*-2495" - "l-*-2493" - "l-*-2491" - "l-*-2489" - "l-*-2487" - "l-*-2485" - "l-*-2483" - "l-*-2481" - "l-*-2479" - "l-*-2477" - "l-*-2475" - "l-*-2473" - "l-*-2471" - "l-*-2469" - "l-*-2467" - "l-*-2465" - "l-*-2463" - "l-*-2461" - "l-*-2459" - "l-*-2457" - "l-*-2455" - "l-*-2453" - "l-*-2451" - "l-*-2450" - "l-*-2448" - "l-*-2445" - "l-*-2444" - "l-*-2443" - "l-*-2441" - "l-*-2440" - "l-*-2438" - "l-*-2436" - "l-*-2434" - "l-*-2432" - "l-*-2430" - "l-*-2428" - "l-*-2426" - "l-*-2424" - "l-*-2421" - "l-*-2419" - "l-*-2418" - "l-*-2416" - "l-*-2414" - "l-*-2412" - "l-*-2410" - "l-*-2409" - "l-*-2408" - "l-*-2407" - "l-*-2405" - "l-*-2404" - "l-*-2401" - "l-*-2399" - "l-*-2397" - "l-*-2395" - "l-*-2393" - "l-*-2391" - "l-*-2389" - "l-*-2388" - "l-*-2387" - "l-*-2385" - "l-*-2383" - "l-*-2382" - "l-*-2379" - "l-*-2378" - "l-*-2376" - "l-*-2374" - "l-*-2372" - "l-*-2370" - "l-*-2368" - "l-*-2366" - "l-*-2364" - "l-*-2362" - "l-*-2360" - "l-*-2357" - "l-*-2355" - "l-*-2353" - "l-*-2351" - "l-*-2349" - "l-*-2347" - "l-*-2345" - "l-*-2343" - "l-*-2341" - "l-*-2339" - "l-*-2337" - "l-*-2335" - "l-*-2333" - "l-*-2331" - "l-*-2329" - "l-*-2327" - "l-*-2325" - "l-*-2323" - "l-*-2321" - "l-*-2319" - "l-*-2317" - "l-*-2315" - "l-*-2313" - "l-*-2311" - "l-*-2309" - "l-*-2307" - "l-*-2306" - "l-*-2305" - "l-*-2304" - "l-*-2303" - "l-*-2301" - "l-*-2299" - "l-*-2297" - "l-*-2294" - "l-*-2292" - "l-*-2290" - "l-*-2288" - "l-*-2286" - "l-*-2284" - "l-*-2282" - "l-*-2280" - "l-*-2278" - "l-*-2276" - "l-*-2274" - "l-*-2272" - "l-*-2270" - "l-*-2268" - "l-*-2266" - "l-*-2264" - "l-*-2262" - "l-*-2260")) + ("l-*-476" + "l-*-474" + "l-*-472" + "l-*-470" + "l-*-468" + "l-*-466" + "l-*-464" + "l-*-462" + "l-*-460" + "l-*-458" + "l-*-456" + "l-*-454" + "l-*-452" + "l-*-450" + "l-*-448" + "l-*-446" + "l-*-444" + "l-*-442" + "l-*-440" + "l-*-438" + "l-*-436" + "l-*-434" + "l-*-432" + "l-*-430" + "l-*-428" + "l-*-426" + "l-*-424" + "l-*-422" + "l-*-420" + "l-*-418" + "l-*-416" + "l-*-414" + "l-*-412" + "l-*-410" + "l-*-408" + "l-*-406" + "l-*-404" + "l-*-402" + "l-*-400" + "l-*-399" + "l-*-397" + "l-*-394" + "l-*-393" + "l-*-392" + "l-*-390" + "l-*-389" + "l-*-387" + "l-*-385" + "l-*-383" + "l-*-381" + "l-*-379" + "l-*-377" + "l-*-375" + "l-*-373" + "l-*-370" + "l-*-368" + "l-*-367" + "l-*-365" + "l-*-363" + "l-*-361" + "l-*-359" + "l-*-358" + "l-*-357" + "l-*-356" + "l-*-354" + "l-*-353" + "l-*-350" + "l-*-348" + "l-*-346" + "l-*-344" + "l-*-342" + "l-*-340" + "l-*-338" + "l-*-337" + "l-*-336" + "l-*-334" + "l-*-332" + "l-*-331" + "l-*-328" + "l-*-327" + "l-*-325" + "l-*-323" + "l-*-321" + "l-*-319" + "l-*-317" + "l-*-315" + "l-*-313" + "l-*-311" + "l-*-309" + "l-*-306" + "l-*-304" + "l-*-302" + "l-*-300" + "l-*-298" + "l-*-296" + "l-*-294" + "l-*-292" + "l-*-290" + "l-*-288" + "l-*-286" + "l-*-284" + "l-*-282" + "l-*-280" + "l-*-278" + "l-*-276" + "l-*-274" + "l-*-272" + "l-*-270" + "l-*-268" + "l-*-266" + "l-*-264" + "l-*-262" + "l-*-260" + "l-*-258" + "l-*-256" + "l-*-255" + "l-*-254" + "l-*-253" + "l-*-252" + "l-*-250" + "l-*-248" + "l-*-246" + "l-*-243" + "l-*-241" + "l-*-239" + "l-*-237" + "l-*-235" + "l-*-233" + "l-*-231" + "l-*-229" + "l-*-227" + "l-*-225" + "l-*-223" + "l-*-221" + "l-*-219" + "l-*-217" + "l-*-215" + "l-*-213" + "l-*-211" + "l-*-209")) #(ribcage (define-structure define-expansion-accessors @@ -15763,9 +15720,9 @@ ((top) (top) (top)) - ("l-*-2098" - "l-*-2097" - "l-*-2096"))) + ("l-*-47" + "l-*-46" + "l-*-45"))) (hygiene guile))) 4) @@ -15780,7 +15737,7 @@ #(ribcage #(x) #((top)) - #("l-*-4317")) + #("l-*-2266")) #(ribcage (lambda-var-list gen-var @@ -16062,159 +16019,159 @@ (top) (top) (top)) - ("l-*-2527" - "l-*-2525" - "l-*-2523" - "l-*-2521" - "l-*-2519" - "l-*-2517" - "l-*-2515" - "l-*-2513" - "l-*-2511" - "l-*-2509" - "l-*-2507" - "l-*-2505" - "l-*-2503" - "l-*-2501" - "l-*-2499" - "l-*-2497" - "l-*-2495" - "l-*-2493" - "l-*-2491" - "l-*-2489" - "l-*-2487" - "l-*-2485" - "l-*-2483" - "l-*-2481" - "l-*-2479" - "l-*-2477" - "l-*-2475" - "l-*-2473" - "l-*-2471" - "l-*-2469" - "l-*-2467" - "l-*-2465" - "l-*-2463" - "l-*-2461" - "l-*-2459" - "l-*-2457" - "l-*-2455" - "l-*-2453" - "l-*-2451" - "l-*-2450" - "l-*-2448" - "l-*-2445" - "l-*-2444" - "l-*-2443" - "l-*-2441" - "l-*-2440" - "l-*-2438" - "l-*-2436" - "l-*-2434" - "l-*-2432" - "l-*-2430" - "l-*-2428" - "l-*-2426" - "l-*-2424" - "l-*-2421" - "l-*-2419" - "l-*-2418" - "l-*-2416" - "l-*-2414" - "l-*-2412" - "l-*-2410" - "l-*-2409" - "l-*-2408" - "l-*-2407" - "l-*-2405" - "l-*-2404" - "l-*-2401" - "l-*-2399" - "l-*-2397" - "l-*-2395" - "l-*-2393" - "l-*-2391" - "l-*-2389" - "l-*-2388" - "l-*-2387" - "l-*-2385" - "l-*-2383" - "l-*-2382" - "l-*-2379" - "l-*-2378" - "l-*-2376" - "l-*-2374" - "l-*-2372" - "l-*-2370" - "l-*-2368" - "l-*-2366" - "l-*-2364" - "l-*-2362" - "l-*-2360" - "l-*-2357" - "l-*-2355" - "l-*-2353" - "l-*-2351" - "l-*-2349" - "l-*-2347" - "l-*-2345" - "l-*-2343" - "l-*-2341" - "l-*-2339" - "l-*-2337" - "l-*-2335" - "l-*-2333" - "l-*-2331" - "l-*-2329" - "l-*-2327" - "l-*-2325" - "l-*-2323" - "l-*-2321" - "l-*-2319" - "l-*-2317" - "l-*-2315" - "l-*-2313" - "l-*-2311" - "l-*-2309" - "l-*-2307" - "l-*-2306" - "l-*-2305" - "l-*-2304" - "l-*-2303" - "l-*-2301" - "l-*-2299" - "l-*-2297" - "l-*-2294" - "l-*-2292" - "l-*-2290" - "l-*-2288" - "l-*-2286" - "l-*-2284" - "l-*-2282" - "l-*-2280" - "l-*-2278" - "l-*-2276" - "l-*-2274" - "l-*-2272" - "l-*-2270" - "l-*-2268" - "l-*-2266" - "l-*-2264" - "l-*-2262" - "l-*-2260")) + ("l-*-476" + "l-*-474" + "l-*-472" + "l-*-470" + "l-*-468" + "l-*-466" + "l-*-464" + "l-*-462" + "l-*-460" + "l-*-458" + "l-*-456" + "l-*-454" + "l-*-452" + "l-*-450" + "l-*-448" + "l-*-446" + "l-*-444" + "l-*-442" + "l-*-440" + "l-*-438" + "l-*-436" + "l-*-434" + "l-*-432" + "l-*-430" + "l-*-428" + "l-*-426" + "l-*-424" + "l-*-422" + "l-*-420" + "l-*-418" + "l-*-416" + "l-*-414" + "l-*-412" + "l-*-410" + "l-*-408" + "l-*-406" + "l-*-404" + "l-*-402" + "l-*-400" + "l-*-399" + "l-*-397" + "l-*-394" + "l-*-393" + "l-*-392" + "l-*-390" + "l-*-389" + "l-*-387" + "l-*-385" + "l-*-383" + "l-*-381" + "l-*-379" + "l-*-377" + "l-*-375" + "l-*-373" + "l-*-370" + "l-*-368" + "l-*-367" + "l-*-365" + "l-*-363" + "l-*-361" + "l-*-359" + "l-*-358" + "l-*-357" + "l-*-356" + "l-*-354" + "l-*-353" + "l-*-350" + "l-*-348" + "l-*-346" + "l-*-344" + "l-*-342" + "l-*-340" + "l-*-338" + "l-*-337" + "l-*-336" + "l-*-334" + "l-*-332" + "l-*-331" + "l-*-328" + "l-*-327" + "l-*-325" + "l-*-323" + "l-*-321" + "l-*-319" + "l-*-317" + "l-*-315" + "l-*-313" + "l-*-311" + "l-*-309" + "l-*-306" + "l-*-304" + "l-*-302" + "l-*-300" + "l-*-298" + "l-*-296" + "l-*-294" + "l-*-292" + "l-*-290" + "l-*-288" + "l-*-286" + "l-*-284" + "l-*-282" + "l-*-280" + "l-*-278" + "l-*-276" + "l-*-274" + "l-*-272" + "l-*-270" + "l-*-268" + "l-*-266" + "l-*-264" + "l-*-262" + "l-*-260" + "l-*-258" + "l-*-256" + "l-*-255" + "l-*-254" + "l-*-253" + "l-*-252" + "l-*-250" + "l-*-248" + "l-*-246" + "l-*-243" + "l-*-241" + "l-*-239" + "l-*-237" + "l-*-235" + "l-*-233" + "l-*-231" + "l-*-229" + "l-*-227" + "l-*-225" + "l-*-223" + "l-*-221" + "l-*-219" + "l-*-217" + "l-*-215" + "l-*-213" + "l-*-211" + "l-*-209")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("l-*-2098" - "l-*-2097" - "l-*-2096"))) + ("l-*-47" + "l-*-46" + "l-*-45"))) (hygiene guile)))) - (eq? (id-var-name-6364 - x-14276 + (eq? (id-var-name-4313 + x-12225 '(())) - (id-var-name-6364 + (id-var-name-4313 '#(syntax-object ... ((top) @@ -16223,7 +16180,7 @@ #(ribcage #(x) #((top)) - #("l-*-4317")) + #("l-*-2266")) #(ribcage (lambda-var-list gen-var @@ -16505,194 +16462,194 @@ (top) (top) (top)) - ("l-*-2527" - "l-*-2525" - "l-*-2523" - "l-*-2521" - "l-*-2519" - "l-*-2517" - "l-*-2515" - "l-*-2513" - "l-*-2511" - "l-*-2509" - "l-*-2507" - "l-*-2505" - "l-*-2503" - "l-*-2501" - "l-*-2499" - "l-*-2497" - "l-*-2495" - "l-*-2493" - "l-*-2491" - "l-*-2489" - "l-*-2487" - "l-*-2485" - "l-*-2483" - "l-*-2481" - "l-*-2479" - "l-*-2477" - "l-*-2475" - "l-*-2473" - "l-*-2471" - "l-*-2469" - "l-*-2467" - "l-*-2465" - "l-*-2463" - "l-*-2461" - "l-*-2459" - "l-*-2457" - "l-*-2455" - "l-*-2453" - "l-*-2451" - "l-*-2450" - "l-*-2448" - "l-*-2445" - "l-*-2444" - "l-*-2443" - "l-*-2441" - "l-*-2440" - "l-*-2438" - "l-*-2436" - "l-*-2434" - "l-*-2432" - "l-*-2430" - "l-*-2428" - "l-*-2426" - "l-*-2424" - "l-*-2421" - "l-*-2419" - "l-*-2418" - "l-*-2416" - "l-*-2414" - "l-*-2412" - "l-*-2410" - "l-*-2409" - "l-*-2408" - "l-*-2407" - "l-*-2405" - "l-*-2404" - "l-*-2401" - "l-*-2399" - "l-*-2397" - "l-*-2395" - "l-*-2393" - "l-*-2391" - "l-*-2389" - "l-*-2388" - "l-*-2387" - "l-*-2385" - "l-*-2383" - "l-*-2382" - "l-*-2379" - "l-*-2378" - "l-*-2376" - "l-*-2374" - "l-*-2372" - "l-*-2370" - "l-*-2368" - "l-*-2366" - "l-*-2364" - "l-*-2362" - "l-*-2360" - "l-*-2357" - "l-*-2355" - "l-*-2353" - "l-*-2351" - "l-*-2349" - "l-*-2347" - "l-*-2345" - "l-*-2343" - "l-*-2341" - "l-*-2339" - "l-*-2337" - "l-*-2335" - "l-*-2333" - "l-*-2331" - "l-*-2329" - "l-*-2327" - "l-*-2325" - "l-*-2323" - "l-*-2321" - "l-*-2319" - "l-*-2317" - "l-*-2315" - "l-*-2313" - "l-*-2311" - "l-*-2309" - "l-*-2307" - "l-*-2306" - "l-*-2305" - "l-*-2304" - "l-*-2303" - "l-*-2301" - "l-*-2299" - "l-*-2297" - "l-*-2294" - "l-*-2292" - "l-*-2290" - "l-*-2288" - "l-*-2286" - "l-*-2284" - "l-*-2282" - "l-*-2280" - "l-*-2278" - "l-*-2276" - "l-*-2274" - "l-*-2272" - "l-*-2270" - "l-*-2268" - "l-*-2266" - "l-*-2264" - "l-*-2262" - "l-*-2260")) + ("l-*-476" + "l-*-474" + "l-*-472" + "l-*-470" + "l-*-468" + "l-*-466" + "l-*-464" + "l-*-462" + "l-*-460" + "l-*-458" + "l-*-456" + "l-*-454" + "l-*-452" + "l-*-450" + "l-*-448" + "l-*-446" + "l-*-444" + "l-*-442" + "l-*-440" + "l-*-438" + "l-*-436" + "l-*-434" + "l-*-432" + "l-*-430" + "l-*-428" + "l-*-426" + "l-*-424" + "l-*-422" + "l-*-420" + "l-*-418" + "l-*-416" + "l-*-414" + "l-*-412" + "l-*-410" + "l-*-408" + "l-*-406" + "l-*-404" + "l-*-402" + "l-*-400" + "l-*-399" + "l-*-397" + "l-*-394" + "l-*-393" + "l-*-392" + "l-*-390" + "l-*-389" + "l-*-387" + "l-*-385" + "l-*-383" + "l-*-381" + "l-*-379" + "l-*-377" + "l-*-375" + "l-*-373" + "l-*-370" + "l-*-368" + "l-*-367" + "l-*-365" + "l-*-363" + "l-*-361" + "l-*-359" + "l-*-358" + "l-*-357" + "l-*-356" + "l-*-354" + "l-*-353" + "l-*-350" + "l-*-348" + "l-*-346" + "l-*-344" + "l-*-342" + "l-*-340" + "l-*-338" + "l-*-337" + "l-*-336" + "l-*-334" + "l-*-332" + "l-*-331" + "l-*-328" + "l-*-327" + "l-*-325" + "l-*-323" + "l-*-321" + "l-*-319" + "l-*-317" + "l-*-315" + "l-*-313" + "l-*-311" + "l-*-309" + "l-*-306" + "l-*-304" + "l-*-302" + "l-*-300" + "l-*-298" + "l-*-296" + "l-*-294" + "l-*-292" + "l-*-290" + "l-*-288" + "l-*-286" + "l-*-284" + "l-*-282" + "l-*-280" + "l-*-278" + "l-*-276" + "l-*-274" + "l-*-272" + "l-*-270" + "l-*-268" + "l-*-266" + "l-*-264" + "l-*-262" + "l-*-260" + "l-*-258" + "l-*-256" + "l-*-255" + "l-*-254" + "l-*-253" + "l-*-252" + "l-*-250" + "l-*-248" + "l-*-246" + "l-*-243" + "l-*-241" + "l-*-239" + "l-*-237" + "l-*-235" + "l-*-233" + "l-*-231" + "l-*-229" + "l-*-227" + "l-*-225" + "l-*-223" + "l-*-221" + "l-*-219" + "l-*-217" + "l-*-215" + "l-*-213" + "l-*-211" + "l-*-209")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("l-*-2098" - "l-*-2097" - "l-*-2096"))) + ("l-*-47" + "l-*-46" + "l-*-45"))) (hygiene guile)) '(()))) #f) #f)))) - pvars-14156)) + pvars-12105)) (syntax-violation 'syntax-case "misplaced ellipsis" - pat-13997) - (let ((y-14352 + pat-11946) + (let ((y-12301 (gensym (string-append (symbol->string 'tmp) "-")))) - (build-application-6312 + (build-application-4261 #f - (let ((req-14495 (list 'tmp)) - (vars-14497 (list y-14352)) - (exp-14499 - (let ((y-14516 + (let ((req-12444 (list 'tmp)) + (vars-12446 (list y-12301)) + (exp-12448 + (let ((y-12465 (make-struct/no-tail (vector-ref %expanded-vtables 3) #f 'tmp - y-14352))) - (let ((test-exp-14520 - (let ((tmp-14529 + y-12301))) + (let ((test-exp-12469 + (let ((tmp-12478 ($sc-dispatch - fender-13998 + fender-11947 '#(atom #t)))) - (if tmp-14529 + (if tmp-12478 (@apply - (lambda () y-14516) - tmp-14529) - (let ((then-exp-14547 - (build-dispatch-call-13025 - pvars-14156 - fender-13998 - y-14516 - r-13996 - mod-14000)) - (else-exp-14548 + (lambda () y-12465) + tmp-12478) + (let ((then-exp-12496 + (build-dispatch-call-10974 + pvars-12105 + fender-11947 + y-12465 + r-11945 + mod-11949)) + (else-exp-12497 (make-struct/no-tail (vector-ref %expanded-vtables @@ -16704,48 +16661,48 @@ %expanded-vtables 10) #f - y-14516 - then-exp-14547 - else-exp-14548))))) - (then-exp-14521 - (build-dispatch-call-13025 - pvars-14156 - exp-13999 - y-14516 - r-13996 - mod-14000)) - (else-exp-14522 - (gen-syntax-case-13027 - x-13993 - keys-13994 - clauses-13995 - r-13996 - mod-14000))) + y-12465 + then-exp-12496 + else-exp-12497))))) + (then-exp-12470 + (build-dispatch-call-10974 + pvars-12105 + exp-11948 + y-12465 + r-11945 + mod-11949)) + (else-exp-12471 + (gen-syntax-case-10976 + x-11942 + keys-11943 + clauses-11944 + r-11945 + mod-11949))) (make-struct/no-tail (vector-ref %expanded-vtables 10) #f - test-exp-14520 - then-exp-14521 - else-exp-14522))))) - (let ((body-14504 + test-exp-12469 + then-exp-12470 + else-exp-12471))))) + (let ((body-12453 (make-struct/no-tail (vector-ref %expanded-vtables 14) #f - req-14495 + req-12444 #f #f #f '() - vars-14497 - exp-14499 + vars-12446 + exp-12448 #f))) (make-struct/no-tail (vector-ref %expanded-vtables 13) #f '() - body-14504))) - (list (if (eq? p-14155 'any) - (let ((fun-exp-14570 + body-12453))) + (list (if (eq? p-12104 'any) + (let ((fun-exp-12519 (if (equal? (module-name (current-module)) '(guile)) @@ -16759,13 +16716,13 @@ '(guile) 'list #f))) - (arg-exps-14571 (list x-13993))) + (arg-exps-12520 (list x-11942))) (make-struct/no-tail (vector-ref %expanded-vtables 11) #f - fun-exp-14570 - arg-exps-14571)) - (let ((fun-exp-14594 + fun-exp-12519 + arg-exps-12520)) + (let ((fun-exp-12543 (if (equal? (module-name (current-module)) '(guile)) @@ -16779,27 +16736,27 @@ '(guile) '$sc-dispatch #f))) - (arg-exps-14595 - (list x-13993 + (arg-exps-12544 + (list x-11942 (make-struct/no-tail (vector-ref %expanded-vtables 1) #f - p-14155)))) + p-12104)))) (make-struct/no-tail (vector-ref %expanded-vtables 11) #f - fun-exp-14594 - arg-exps-14595)))))))))))) - (gen-syntax-case-13027 - (lambda (x-13426 - keys-13427 - clauses-13428 - r-13429 - mod-13430) - (if (null? clauses-13428) - (let ((fun-exp-13435 + fun-exp-12543 + arg-exps-12544)))))))))))) + (gen-syntax-case-10976 + (lambda (x-11375 + keys-11376 + clauses-11377 + r-11378 + mod-11379) + (if (null? clauses-11377) + (let ((fun-exp-11384 (if (equal? (module-name (current-module)) '(guile)) (make-struct/no-tail (vector-ref %expanded-vtables 7) @@ -16811,7 +16768,7 @@ '(guile) 'syntax-violation #f))) - (arg-exps-13436 + (arg-exps-11385 (list (make-struct/no-tail (vector-ref %expanded-vtables 1) #f @@ -16820,58 +16777,58 @@ (vector-ref %expanded-vtables 1) #f "source expression failed to match any pattern") - x-13426))) + x-11375))) (make-struct/no-tail (vector-ref %expanded-vtables 11) #f - fun-exp-13435 - arg-exps-13436)) - (let ((tmp-13469 (car clauses-13428))) - (let ((tmp-13470 ($sc-dispatch tmp-13469 '(any any)))) - (if tmp-13470 + fun-exp-11384 + arg-exps-11385)) + (let ((tmp-11418 (car clauses-11377))) + (let ((tmp-11419 ($sc-dispatch tmp-11418 '(any any)))) + (if tmp-11419 (@apply - (lambda (pat-13472 exp-13473) - (if (if (if (symbol? pat-13472) + (lambda (pat-11421 exp-11422) + (if (if (if (symbol? pat-11421) #t - (if (if (vector? pat-13472) - (if (= (vector-length pat-13472) 4) - (eq? (vector-ref pat-13472 0) + (if (if (vector? pat-11421) + (if (= (vector-length pat-11421) 4) + (eq? (vector-ref pat-11421 0) 'syntax-object) #f) #f) - (symbol? (vector-ref pat-13472 1)) + (symbol? (vector-ref pat-11421 1)) #f)) (and-map - (lambda (x-13500) - (not (if (eq? (if (if (vector? pat-13472) + (lambda (x-11449) + (not (if (eq? (if (if (vector? pat-11421) (if (= (vector-length - pat-13472) + pat-11421) 4) (eq? (vector-ref - pat-13472 + pat-11421 0) 'syntax-object) #f) #f) - (vector-ref pat-13472 1) - pat-13472) - (if (if (vector? x-13500) + (vector-ref pat-11421 1) + pat-11421) + (if (if (vector? x-11449) (if (= (vector-length - x-13500) + x-11449) 4) (eq? (vector-ref - x-13500 + x-11449 0) 'syntax-object) #f) #f) - (vector-ref x-13500 1) - x-13500)) - (eq? (id-var-name-6364 - pat-13472 + (vector-ref x-11449 1) + x-11449)) + (eq? (id-var-name-4313 + pat-11421 '(())) - (id-var-name-6364 - x-13500 + (id-var-name-4313 + x-11449 '(()))) #f))) (cons '#(syntax-object @@ -16880,26 +16837,26 @@ #(ribcage #(pat exp) #((top) (top)) - #("l-*-5941" "l-*-5942")) + #("l-*-3890" "l-*-3891")) #(ribcage () () ()) #(ribcage #(x keys clauses r mod) #((top) (top) (top) (top) (top)) - #("l-*-5930" - "l-*-5931" - "l-*-5932" - "l-*-5933" - "l-*-5934")) + #("l-*-3879" + "l-*-3880" + "l-*-3881" + "l-*-3882" + "l-*-3883")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("l-*-5748" - "l-*-5746" - "l-*-5744" - "l-*-5742")) + ("l-*-3697" + "l-*-3695" + "l-*-3693" + "l-*-3691")) #(ribcage (lambda-var-list gen-var @@ -17181,156 +17138,154 @@ (top) (top) (top)) - ("l-*-2527" - "l-*-2525" - "l-*-2523" - "l-*-2521" - "l-*-2519" - "l-*-2517" - "l-*-2515" - "l-*-2513" - "l-*-2511" - "l-*-2509" - "l-*-2507" - "l-*-2505" - "l-*-2503" - "l-*-2501" - "l-*-2499" - "l-*-2497" - "l-*-2495" - "l-*-2493" - "l-*-2491" - "l-*-2489" - "l-*-2487" - "l-*-2485" - "l-*-2483" - "l-*-2481" - "l-*-2479" - "l-*-2477" - "l-*-2475" - "l-*-2473" - "l-*-2471" - "l-*-2469" - "l-*-2467" - "l-*-2465" - "l-*-2463" - "l-*-2461" - "l-*-2459" - "l-*-2457" - "l-*-2455" - "l-*-2453" - "l-*-2451" - "l-*-2450" - "l-*-2448" - "l-*-2445" - "l-*-2444" - "l-*-2443" - "l-*-2441" - "l-*-2440" - "l-*-2438" - "l-*-2436" - "l-*-2434" - "l-*-2432" - "l-*-2430" - "l-*-2428" - "l-*-2426" - "l-*-2424" - "l-*-2421" - "l-*-2419" - "l-*-2418" - "l-*-2416" - "l-*-2414" - "l-*-2412" - "l-*-2410" - "l-*-2409" - "l-*-2408" - "l-*-2407" - "l-*-2405" - "l-*-2404" - "l-*-2401" - "l-*-2399" - "l-*-2397" - "l-*-2395" - "l-*-2393" - "l-*-2391" - "l-*-2389" - "l-*-2388" - "l-*-2387" - "l-*-2385" - "l-*-2383" - "l-*-2382" - "l-*-2379" - "l-*-2378" - "l-*-2376" - "l-*-2374" - "l-*-2372" - "l-*-2370" - "l-*-2368" - "l-*-2366" - "l-*-2364" - "l-*-2362" - "l-*-2360" - "l-*-2357" - "l-*-2355" - "l-*-2353" - "l-*-2351" - "l-*-2349" - "l-*-2347" - "l-*-2345" - "l-*-2343" - "l-*-2341" - "l-*-2339" - "l-*-2337" - "l-*-2335" - "l-*-2333" - "l-*-2331" - "l-*-2329" - "l-*-2327" - "l-*-2325" - "l-*-2323" - "l-*-2321" - "l-*-2319" - "l-*-2317" - "l-*-2315" - "l-*-2313" - "l-*-2311" - "l-*-2309" - "l-*-2307" - "l-*-2306" - "l-*-2305" - "l-*-2304" - "l-*-2303" - "l-*-2301" - "l-*-2299" - "l-*-2297" - "l-*-2294" - "l-*-2292" - "l-*-2290" - "l-*-2288" - "l-*-2286" - "l-*-2284" - "l-*-2282" - "l-*-2280" - "l-*-2278" - "l-*-2276" - "l-*-2274" - "l-*-2272" - "l-*-2270" - "l-*-2268" - "l-*-2266" - "l-*-2264" - "l-*-2262" - "l-*-2260")) + ("l-*-476" + "l-*-474" + "l-*-472" + "l-*-470" + "l-*-468" + "l-*-466" + "l-*-464" + "l-*-462" + "l-*-460" + "l-*-458" + "l-*-456" + "l-*-454" + "l-*-452" + "l-*-450" + "l-*-448" + "l-*-446" + "l-*-444" + "l-*-442" + "l-*-440" + "l-*-438" + "l-*-436" + "l-*-434" + "l-*-432" + "l-*-430" + "l-*-428" + "l-*-426" + "l-*-424" + "l-*-422" + "l-*-420" + "l-*-418" + "l-*-416" + "l-*-414" + "l-*-412" + "l-*-410" + "l-*-408" + "l-*-406" + "l-*-404" + "l-*-402" + "l-*-400" + "l-*-399" + "l-*-397" + "l-*-394" + "l-*-393" + "l-*-392" + "l-*-390" + "l-*-389" + "l-*-387" + "l-*-385" + "l-*-383" + "l-*-381" + "l-*-379" + "l-*-377" + "l-*-375" + "l-*-373" + "l-*-370" + "l-*-368" + "l-*-367" + "l-*-365" + "l-*-363" + "l-*-361" + "l-*-359" + "l-*-358" + "l-*-357" + "l-*-356" + "l-*-354" + "l-*-353" + "l-*-350" + "l-*-348" + "l-*-346" + "l-*-344" + "l-*-342" + "l-*-340" + "l-*-338" + "l-*-337" + "l-*-336" + "l-*-334" + "l-*-332" + "l-*-331" + "l-*-328" + "l-*-327" + "l-*-325" + "l-*-323" + "l-*-321" + "l-*-319" + "l-*-317" + "l-*-315" + "l-*-313" + "l-*-311" + "l-*-309" + "l-*-306" + "l-*-304" + "l-*-302" + "l-*-300" + "l-*-298" + "l-*-296" + "l-*-294" + "l-*-292" + "l-*-290" + "l-*-288" + "l-*-286" + "l-*-284" + "l-*-282" + "l-*-280" + "l-*-278" + "l-*-276" + "l-*-274" + "l-*-272" + "l-*-270" + "l-*-268" + "l-*-266" + "l-*-264" + "l-*-262" + "l-*-260" + "l-*-258" + "l-*-256" + "l-*-255" + "l-*-254" + "l-*-253" + "l-*-252" + "l-*-250" + "l-*-248" + "l-*-246" + "l-*-243" + "l-*-241" + "l-*-239" + "l-*-237" + "l-*-235" + "l-*-233" + "l-*-231" + "l-*-229" + "l-*-227" + "l-*-225" + "l-*-223" + "l-*-221" + "l-*-219" + "l-*-217" + "l-*-215" + "l-*-213" + "l-*-211" + "l-*-209")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("l-*-2098" - "l-*-2097" - "l-*-2096"))) + ("l-*-47" "l-*-46" "l-*-45"))) (hygiene guile)) - keys-13427)) + keys-11376)) #f) (if (if (eq? (if (if (= (vector-length '#(syntax-object @@ -17339,8 +17294,8 @@ #(ribcage #(pat exp) #((top) (top)) - #("l-*-5941" - "l-*-5942")) + #("l-*-3890" + "l-*-3891")) #(ribcage () () ()) #(ribcage #(x @@ -17353,11 +17308,11 @@ (top) (top) (top)) - #("l-*-5930" - "l-*-5931" - "l-*-5932" - "l-*-5933" - "l-*-5934")) + #("l-*-3879" + "l-*-3880" + "l-*-3881" + "l-*-3882" + "l-*-3883")) #(ribcage (gen-syntax-case gen-clause @@ -17367,10 +17322,10 @@ (top) (top) (top)) - ("l-*-5748" - "l-*-5746" - "l-*-5744" - "l-*-5742")) + ("l-*-3697" + "l-*-3695" + "l-*-3693" + "l-*-3691")) #(ribcage (lambda-var-list gen-var @@ -17652,146 +17607,146 @@ (top) (top) (top)) - ("l-*-2527" - "l-*-2525" - "l-*-2523" - "l-*-2521" - "l-*-2519" - "l-*-2517" - "l-*-2515" - "l-*-2513" - "l-*-2511" - "l-*-2509" - "l-*-2507" - "l-*-2505" - "l-*-2503" - "l-*-2501" - "l-*-2499" - "l-*-2497" - "l-*-2495" - "l-*-2493" - "l-*-2491" - "l-*-2489" - "l-*-2487" - "l-*-2485" - "l-*-2483" - "l-*-2481" - "l-*-2479" - "l-*-2477" - "l-*-2475" - "l-*-2473" - "l-*-2471" - "l-*-2469" - "l-*-2467" - "l-*-2465" - "l-*-2463" - "l-*-2461" - "l-*-2459" - "l-*-2457" - "l-*-2455" - "l-*-2453" - "l-*-2451" - "l-*-2450" - "l-*-2448" - "l-*-2445" - "l-*-2444" - "l-*-2443" - "l-*-2441" - "l-*-2440" - "l-*-2438" - "l-*-2436" - "l-*-2434" - "l-*-2432" - "l-*-2430" - "l-*-2428" - "l-*-2426" - "l-*-2424" - "l-*-2421" - "l-*-2419" - "l-*-2418" - "l-*-2416" - "l-*-2414" - "l-*-2412" - "l-*-2410" - "l-*-2409" - "l-*-2408" - "l-*-2407" - "l-*-2405" - "l-*-2404" - "l-*-2401" - "l-*-2399" - "l-*-2397" - "l-*-2395" - "l-*-2393" - "l-*-2391" - "l-*-2389" - "l-*-2388" - "l-*-2387" - "l-*-2385" - "l-*-2383" - "l-*-2382" - "l-*-2379" - "l-*-2378" - "l-*-2376" - "l-*-2374" - "l-*-2372" - "l-*-2370" - "l-*-2368" - "l-*-2366" - "l-*-2364" - "l-*-2362" - "l-*-2360" - "l-*-2357" - "l-*-2355" - "l-*-2353" - "l-*-2351" - "l-*-2349" - "l-*-2347" - "l-*-2345" - "l-*-2343" - "l-*-2341" - "l-*-2339" - "l-*-2337" - "l-*-2335" - "l-*-2333" - "l-*-2331" - "l-*-2329" - "l-*-2327" - "l-*-2325" - "l-*-2323" - "l-*-2321" - "l-*-2319" - "l-*-2317" - "l-*-2315" - "l-*-2313" - "l-*-2311" - "l-*-2309" - "l-*-2307" - "l-*-2306" - "l-*-2305" - "l-*-2304" - "l-*-2303" - "l-*-2301" - "l-*-2299" - "l-*-2297" - "l-*-2294" - "l-*-2292" - "l-*-2290" - "l-*-2288" - "l-*-2286" - "l-*-2284" - "l-*-2282" - "l-*-2280" - "l-*-2278" - "l-*-2276" - "l-*-2274" - "l-*-2272" - "l-*-2270" - "l-*-2268" - "l-*-2266" - "l-*-2264" - "l-*-2262" - "l-*-2260")) + ("l-*-476" + "l-*-474" + "l-*-472" + "l-*-470" + "l-*-468" + "l-*-466" + "l-*-464" + "l-*-462" + "l-*-460" + "l-*-458" + "l-*-456" + "l-*-454" + "l-*-452" + "l-*-450" + "l-*-448" + "l-*-446" + "l-*-444" + "l-*-442" + "l-*-440" + "l-*-438" + "l-*-436" + "l-*-434" + "l-*-432" + "l-*-430" + "l-*-428" + "l-*-426" + "l-*-424" + "l-*-422" + "l-*-420" + "l-*-418" + "l-*-416" + "l-*-414" + "l-*-412" + "l-*-410" + "l-*-408" + "l-*-406" + "l-*-404" + "l-*-402" + "l-*-400" + "l-*-399" + "l-*-397" + "l-*-394" + "l-*-393" + "l-*-392" + "l-*-390" + "l-*-389" + "l-*-387" + "l-*-385" + "l-*-383" + "l-*-381" + "l-*-379" + "l-*-377" + "l-*-375" + "l-*-373" + "l-*-370" + "l-*-368" + "l-*-367" + "l-*-365" + "l-*-363" + "l-*-361" + "l-*-359" + "l-*-358" + "l-*-357" + "l-*-356" + "l-*-354" + "l-*-353" + "l-*-350" + "l-*-348" + "l-*-346" + "l-*-344" + "l-*-342" + "l-*-340" + "l-*-338" + "l-*-337" + "l-*-336" + "l-*-334" + "l-*-332" + "l-*-331" + "l-*-328" + "l-*-327" + "l-*-325" + "l-*-323" + "l-*-321" + "l-*-319" + "l-*-317" + "l-*-315" + "l-*-313" + "l-*-311" + "l-*-309" + "l-*-306" + "l-*-304" + "l-*-302" + "l-*-300" + "l-*-298" + "l-*-296" + "l-*-294" + "l-*-292" + "l-*-290" + "l-*-288" + "l-*-286" + "l-*-284" + "l-*-282" + "l-*-280" + "l-*-278" + "l-*-276" + "l-*-274" + "l-*-272" + "l-*-270" + "l-*-268" + "l-*-266" + "l-*-264" + "l-*-262" + "l-*-260" + "l-*-258" + "l-*-256" + "l-*-255" + "l-*-254" + "l-*-253" + "l-*-252" + "l-*-250" + "l-*-248" + "l-*-246" + "l-*-243" + "l-*-241" + "l-*-239" + "l-*-237" + "l-*-235" + "l-*-233" + "l-*-231" + "l-*-229" + "l-*-227" + "l-*-225" + "l-*-223" + "l-*-221" + "l-*-219" + "l-*-217" + "l-*-215" + "l-*-213" + "l-*-211" + "l-*-209")) #(ribcage (define-structure define-expansion-accessors @@ -17799,9 +17754,9 @@ ((top) (top) (top)) - ("l-*-2098" - "l-*-2097" - "l-*-2096"))) + ("l-*-47" + "l-*-46" + "l-*-45"))) (hygiene guile))) 4) #t @@ -17813,7 +17768,7 @@ #(ribcage #(pat exp) #((top) (top)) - #("l-*-5941" "l-*-5942")) + #("l-*-3890" "l-*-3891")) #(ribcage () () ()) #(ribcage #(x keys clauses r mod) @@ -17822,21 +17777,21 @@ (top) (top) (top)) - #("l-*-5930" - "l-*-5931" - "l-*-5932" - "l-*-5933" - "l-*-5934")) + #("l-*-3879" + "l-*-3880" + "l-*-3881" + "l-*-3882" + "l-*-3883")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("l-*-5748" - "l-*-5746" - "l-*-5744" - "l-*-5742")) + ("l-*-3697" + "l-*-3695" + "l-*-3693" + "l-*-3691")) #(ribcage (lambda-var-list gen-var @@ -18118,154 +18073,154 @@ (top) (top) (top)) - ("l-*-2527" - "l-*-2525" - "l-*-2523" - "l-*-2521" - "l-*-2519" - "l-*-2517" - "l-*-2515" - "l-*-2513" - "l-*-2511" - "l-*-2509" - "l-*-2507" - "l-*-2505" - "l-*-2503" - "l-*-2501" - "l-*-2499" - "l-*-2497" - "l-*-2495" - "l-*-2493" - "l-*-2491" - "l-*-2489" - "l-*-2487" - "l-*-2485" - "l-*-2483" - "l-*-2481" - "l-*-2479" - "l-*-2477" - "l-*-2475" - "l-*-2473" - "l-*-2471" - "l-*-2469" - "l-*-2467" - "l-*-2465" - "l-*-2463" - "l-*-2461" - "l-*-2459" - "l-*-2457" - "l-*-2455" - "l-*-2453" - "l-*-2451" - "l-*-2450" - "l-*-2448" - "l-*-2445" - "l-*-2444" - "l-*-2443" - "l-*-2441" - "l-*-2440" - "l-*-2438" - "l-*-2436" - "l-*-2434" - "l-*-2432" - "l-*-2430" - "l-*-2428" - "l-*-2426" - "l-*-2424" - "l-*-2421" - "l-*-2419" - "l-*-2418" - "l-*-2416" - "l-*-2414" - "l-*-2412" - "l-*-2410" - "l-*-2409" - "l-*-2408" - "l-*-2407" - "l-*-2405" - "l-*-2404" - "l-*-2401" - "l-*-2399" - "l-*-2397" - "l-*-2395" - "l-*-2393" - "l-*-2391" - "l-*-2389" - "l-*-2388" - "l-*-2387" - "l-*-2385" - "l-*-2383" - "l-*-2382" - "l-*-2379" - "l-*-2378" - "l-*-2376" - "l-*-2374" - "l-*-2372" - "l-*-2370" - "l-*-2368" - "l-*-2366" - "l-*-2364" - "l-*-2362" - "l-*-2360" - "l-*-2357" - "l-*-2355" - "l-*-2353" - "l-*-2351" - "l-*-2349" - "l-*-2347" - "l-*-2345" - "l-*-2343" - "l-*-2341" - "l-*-2339" - "l-*-2337" - "l-*-2335" - "l-*-2333" - "l-*-2331" - "l-*-2329" - "l-*-2327" - "l-*-2325" - "l-*-2323" - "l-*-2321" - "l-*-2319" - "l-*-2317" - "l-*-2315" - "l-*-2313" - "l-*-2311" - "l-*-2309" - "l-*-2307" - "l-*-2306" - "l-*-2305" - "l-*-2304" - "l-*-2303" - "l-*-2301" - "l-*-2299" - "l-*-2297" - "l-*-2294" - "l-*-2292" - "l-*-2290" - "l-*-2288" - "l-*-2286" - "l-*-2284" - "l-*-2282" - "l-*-2280" - "l-*-2278" - "l-*-2276" - "l-*-2274" - "l-*-2272" - "l-*-2270" - "l-*-2268" - "l-*-2266" - "l-*-2264" - "l-*-2262" - "l-*-2260")) + ("l-*-476" + "l-*-474" + "l-*-472" + "l-*-470" + "l-*-468" + "l-*-466" + "l-*-464" + "l-*-462" + "l-*-460" + "l-*-458" + "l-*-456" + "l-*-454" + "l-*-452" + "l-*-450" + "l-*-448" + "l-*-446" + "l-*-444" + "l-*-442" + "l-*-440" + "l-*-438" + "l-*-436" + "l-*-434" + "l-*-432" + "l-*-430" + "l-*-428" + "l-*-426" + "l-*-424" + "l-*-422" + "l-*-420" + "l-*-418" + "l-*-416" + "l-*-414" + "l-*-412" + "l-*-410" + "l-*-408" + "l-*-406" + "l-*-404" + "l-*-402" + "l-*-400" + "l-*-399" + "l-*-397" + "l-*-394" + "l-*-393" + "l-*-392" + "l-*-390" + "l-*-389" + "l-*-387" + "l-*-385" + "l-*-383" + "l-*-381" + "l-*-379" + "l-*-377" + "l-*-375" + "l-*-373" + "l-*-370" + "l-*-368" + "l-*-367" + "l-*-365" + "l-*-363" + "l-*-361" + "l-*-359" + "l-*-358" + "l-*-357" + "l-*-356" + "l-*-354" + "l-*-353" + "l-*-350" + "l-*-348" + "l-*-346" + "l-*-344" + "l-*-342" + "l-*-340" + "l-*-338" + "l-*-337" + "l-*-336" + "l-*-334" + "l-*-332" + "l-*-331" + "l-*-328" + "l-*-327" + "l-*-325" + "l-*-323" + "l-*-321" + "l-*-319" + "l-*-317" + "l-*-315" + "l-*-313" + "l-*-311" + "l-*-309" + "l-*-306" + "l-*-304" + "l-*-302" + "l-*-300" + "l-*-298" + "l-*-296" + "l-*-294" + "l-*-292" + "l-*-290" + "l-*-288" + "l-*-286" + "l-*-284" + "l-*-282" + "l-*-280" + "l-*-278" + "l-*-276" + "l-*-274" + "l-*-272" + "l-*-270" + "l-*-268" + "l-*-266" + "l-*-264" + "l-*-262" + "l-*-260" + "l-*-258" + "l-*-256" + "l-*-255" + "l-*-254" + "l-*-253" + "l-*-252" + "l-*-250" + "l-*-248" + "l-*-246" + "l-*-243" + "l-*-241" + "l-*-239" + "l-*-237" + "l-*-235" + "l-*-233" + "l-*-231" + "l-*-229" + "l-*-227" + "l-*-225" + "l-*-223" + "l-*-221" + "l-*-219" + "l-*-217" + "l-*-215" + "l-*-213" + "l-*-211" + "l-*-209")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("l-*-2098" - "l-*-2097" - "l-*-2096"))) + ("l-*-47" + "l-*-46" + "l-*-45"))) (hygiene guile))) (if (if (= (vector-length '#(syntax-object @@ -18274,8 +18229,8 @@ #(ribcage #(pat exp) #((top) (top)) - #("l-*-5941" - "l-*-5942")) + #("l-*-3890" + "l-*-3891")) #(ribcage () () ()) #(ribcage #(x @@ -18288,11 +18243,11 @@ (top) (top) (top)) - #("l-*-5930" - "l-*-5931" - "l-*-5932" - "l-*-5933" - "l-*-5934")) + #("l-*-3879" + "l-*-3880" + "l-*-3881" + "l-*-3882" + "l-*-3883")) #(ribcage (gen-syntax-case gen-clause @@ -18302,10 +18257,10 @@ (top) (top) (top)) - ("l-*-5748" - "l-*-5746" - "l-*-5744" - "l-*-5742")) + ("l-*-3697" + "l-*-3695" + "l-*-3693" + "l-*-3691")) #(ribcage (lambda-var-list gen-var @@ -18587,146 +18542,146 @@ (top) (top) (top)) - ("l-*-2527" - "l-*-2525" - "l-*-2523" - "l-*-2521" - "l-*-2519" - "l-*-2517" - "l-*-2515" - "l-*-2513" - "l-*-2511" - "l-*-2509" - "l-*-2507" - "l-*-2505" - "l-*-2503" - "l-*-2501" - "l-*-2499" - "l-*-2497" - "l-*-2495" - "l-*-2493" - "l-*-2491" - "l-*-2489" - "l-*-2487" - "l-*-2485" - "l-*-2483" - "l-*-2481" - "l-*-2479" - "l-*-2477" - "l-*-2475" - "l-*-2473" - "l-*-2471" - "l-*-2469" - "l-*-2467" - "l-*-2465" - "l-*-2463" - "l-*-2461" - "l-*-2459" - "l-*-2457" - "l-*-2455" - "l-*-2453" - "l-*-2451" - "l-*-2450" - "l-*-2448" - "l-*-2445" - "l-*-2444" - "l-*-2443" - "l-*-2441" - "l-*-2440" - "l-*-2438" - "l-*-2436" - "l-*-2434" - "l-*-2432" - "l-*-2430" - "l-*-2428" - "l-*-2426" - "l-*-2424" - "l-*-2421" - "l-*-2419" - "l-*-2418" - "l-*-2416" - "l-*-2414" - "l-*-2412" - "l-*-2410" - "l-*-2409" - "l-*-2408" - "l-*-2407" - "l-*-2405" - "l-*-2404" - "l-*-2401" - "l-*-2399" - "l-*-2397" - "l-*-2395" - "l-*-2393" - "l-*-2391" - "l-*-2389" - "l-*-2388" - "l-*-2387" - "l-*-2385" - "l-*-2383" - "l-*-2382" - "l-*-2379" - "l-*-2378" - "l-*-2376" - "l-*-2374" - "l-*-2372" - "l-*-2370" - "l-*-2368" - "l-*-2366" - "l-*-2364" - "l-*-2362" - "l-*-2360" - "l-*-2357" - "l-*-2355" - "l-*-2353" - "l-*-2351" - "l-*-2349" - "l-*-2347" - "l-*-2345" - "l-*-2343" - "l-*-2341" - "l-*-2339" - "l-*-2337" - "l-*-2335" - "l-*-2333" - "l-*-2331" - "l-*-2329" - "l-*-2327" - "l-*-2325" - "l-*-2323" - "l-*-2321" - "l-*-2319" - "l-*-2317" - "l-*-2315" - "l-*-2313" - "l-*-2311" - "l-*-2309" - "l-*-2307" - "l-*-2306" - "l-*-2305" - "l-*-2304" - "l-*-2303" - "l-*-2301" - "l-*-2299" - "l-*-2297" - "l-*-2294" - "l-*-2292" - "l-*-2290" - "l-*-2288" - "l-*-2286" - "l-*-2284" - "l-*-2282" - "l-*-2280" - "l-*-2278" - "l-*-2276" - "l-*-2274" - "l-*-2272" - "l-*-2270" - "l-*-2268" - "l-*-2266" - "l-*-2264" - "l-*-2262" - "l-*-2260")) + ("l-*-476" + "l-*-474" + "l-*-472" + "l-*-470" + "l-*-468" + "l-*-466" + "l-*-464" + "l-*-462" + "l-*-460" + "l-*-458" + "l-*-456" + "l-*-454" + "l-*-452" + "l-*-450" + "l-*-448" + "l-*-446" + "l-*-444" + "l-*-442" + "l-*-440" + "l-*-438" + "l-*-436" + "l-*-434" + "l-*-432" + "l-*-430" + "l-*-428" + "l-*-426" + "l-*-424" + "l-*-422" + "l-*-420" + "l-*-418" + "l-*-416" + "l-*-414" + "l-*-412" + "l-*-410" + "l-*-408" + "l-*-406" + "l-*-404" + "l-*-402" + "l-*-400" + "l-*-399" + "l-*-397" + "l-*-394" + "l-*-393" + "l-*-392" + "l-*-390" + "l-*-389" + "l-*-387" + "l-*-385" + "l-*-383" + "l-*-381" + "l-*-379" + "l-*-377" + "l-*-375" + "l-*-373" + "l-*-370" + "l-*-368" + "l-*-367" + "l-*-365" + "l-*-363" + "l-*-361" + "l-*-359" + "l-*-358" + "l-*-357" + "l-*-356" + "l-*-354" + "l-*-353" + "l-*-350" + "l-*-348" + "l-*-346" + "l-*-344" + "l-*-342" + "l-*-340" + "l-*-338" + "l-*-337" + "l-*-336" + "l-*-334" + "l-*-332" + "l-*-331" + "l-*-328" + "l-*-327" + "l-*-325" + "l-*-323" + "l-*-321" + "l-*-319" + "l-*-317" + "l-*-315" + "l-*-313" + "l-*-311" + "l-*-309" + "l-*-306" + "l-*-304" + "l-*-302" + "l-*-300" + "l-*-298" + "l-*-296" + "l-*-294" + "l-*-292" + "l-*-290" + "l-*-288" + "l-*-286" + "l-*-284" + "l-*-282" + "l-*-280" + "l-*-278" + "l-*-276" + "l-*-274" + "l-*-272" + "l-*-270" + "l-*-268" + "l-*-266" + "l-*-264" + "l-*-262" + "l-*-260" + "l-*-258" + "l-*-256" + "l-*-255" + "l-*-254" + "l-*-253" + "l-*-252" + "l-*-250" + "l-*-248" + "l-*-246" + "l-*-243" + "l-*-241" + "l-*-239" + "l-*-237" + "l-*-235" + "l-*-233" + "l-*-231" + "l-*-229" + "l-*-227" + "l-*-225" + "l-*-223" + "l-*-221" + "l-*-219" + "l-*-217" + "l-*-215" + "l-*-213" + "l-*-211" + "l-*-209")) #(ribcage (define-structure define-expansion-accessors @@ -18734,9 +18689,9 @@ ((top) (top) (top)) - ("l-*-2098" - "l-*-2097" - "l-*-2096"))) + ("l-*-47" + "l-*-46" + "l-*-45"))) (hygiene guile))) 4) #t @@ -18748,7 +18703,7 @@ #(ribcage #(pat exp) #((top) (top)) - #("l-*-5941" "l-*-5942")) + #("l-*-3890" "l-*-3891")) #(ribcage () () ()) #(ribcage #(x keys clauses r mod) @@ -18757,21 +18712,21 @@ (top) (top) (top)) - #("l-*-5930" - "l-*-5931" - "l-*-5932" - "l-*-5933" - "l-*-5934")) + #("l-*-3879" + "l-*-3880" + "l-*-3881" + "l-*-3882" + "l-*-3883")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("l-*-5748" - "l-*-5746" - "l-*-5744" - "l-*-5742")) + ("l-*-3697" + "l-*-3695" + "l-*-3693" + "l-*-3691")) #(ribcage (lambda-var-list gen-var @@ -19053,163 +19008,163 @@ (top) (top) (top)) - ("l-*-2527" - "l-*-2525" - "l-*-2523" - "l-*-2521" - "l-*-2519" - "l-*-2517" - "l-*-2515" - "l-*-2513" - "l-*-2511" - "l-*-2509" - "l-*-2507" - "l-*-2505" - "l-*-2503" - "l-*-2501" - "l-*-2499" - "l-*-2497" - "l-*-2495" - "l-*-2493" - "l-*-2491" - "l-*-2489" - "l-*-2487" - "l-*-2485" - "l-*-2483" - "l-*-2481" - "l-*-2479" - "l-*-2477" - "l-*-2475" - "l-*-2473" - "l-*-2471" - "l-*-2469" - "l-*-2467" - "l-*-2465" - "l-*-2463" - "l-*-2461" - "l-*-2459" - "l-*-2457" - "l-*-2455" - "l-*-2453" - "l-*-2451" - "l-*-2450" - "l-*-2448" - "l-*-2445" - "l-*-2444" - "l-*-2443" - "l-*-2441" - "l-*-2440" - "l-*-2438" - "l-*-2436" - "l-*-2434" - "l-*-2432" - "l-*-2430" - "l-*-2428" - "l-*-2426" - "l-*-2424" - "l-*-2421" - "l-*-2419" - "l-*-2418" - "l-*-2416" - "l-*-2414" - "l-*-2412" - "l-*-2410" - "l-*-2409" - "l-*-2408" - "l-*-2407" - "l-*-2405" - "l-*-2404" - "l-*-2401" - "l-*-2399" - "l-*-2397" - "l-*-2395" - "l-*-2393" - "l-*-2391" - "l-*-2389" - "l-*-2388" - "l-*-2387" - "l-*-2385" - "l-*-2383" - "l-*-2382" - "l-*-2379" - "l-*-2378" - "l-*-2376" - "l-*-2374" - "l-*-2372" - "l-*-2370" - "l-*-2368" - "l-*-2366" - "l-*-2364" - "l-*-2362" - "l-*-2360" - "l-*-2357" - "l-*-2355" - "l-*-2353" - "l-*-2351" - "l-*-2349" - "l-*-2347" - "l-*-2345" - "l-*-2343" - "l-*-2341" - "l-*-2339" - "l-*-2337" - "l-*-2335" - "l-*-2333" - "l-*-2331" - "l-*-2329" - "l-*-2327" - "l-*-2325" - "l-*-2323" - "l-*-2321" - "l-*-2319" - "l-*-2317" - "l-*-2315" - "l-*-2313" - "l-*-2311" - "l-*-2309" - "l-*-2307" - "l-*-2306" - "l-*-2305" - "l-*-2304" - "l-*-2303" - "l-*-2301" - "l-*-2299" - "l-*-2297" - "l-*-2294" - "l-*-2292" - "l-*-2290" - "l-*-2288" - "l-*-2286" - "l-*-2284" - "l-*-2282" - "l-*-2280" - "l-*-2278" - "l-*-2276" - "l-*-2274" - "l-*-2272" - "l-*-2270" - "l-*-2268" - "l-*-2266" - "l-*-2264" - "l-*-2262" - "l-*-2260")) + ("l-*-476" + "l-*-474" + "l-*-472" + "l-*-470" + "l-*-468" + "l-*-466" + "l-*-464" + "l-*-462" + "l-*-460" + "l-*-458" + "l-*-456" + "l-*-454" + "l-*-452" + "l-*-450" + "l-*-448" + "l-*-446" + "l-*-444" + "l-*-442" + "l-*-440" + "l-*-438" + "l-*-436" + "l-*-434" + "l-*-432" + "l-*-430" + "l-*-428" + "l-*-426" + "l-*-424" + "l-*-422" + "l-*-420" + "l-*-418" + "l-*-416" + "l-*-414" + "l-*-412" + "l-*-410" + "l-*-408" + "l-*-406" + "l-*-404" + "l-*-402" + "l-*-400" + "l-*-399" + "l-*-397" + "l-*-394" + "l-*-393" + "l-*-392" + "l-*-390" + "l-*-389" + "l-*-387" + "l-*-385" + "l-*-383" + "l-*-381" + "l-*-379" + "l-*-377" + "l-*-375" + "l-*-373" + "l-*-370" + "l-*-368" + "l-*-367" + "l-*-365" + "l-*-363" + "l-*-361" + "l-*-359" + "l-*-358" + "l-*-357" + "l-*-356" + "l-*-354" + "l-*-353" + "l-*-350" + "l-*-348" + "l-*-346" + "l-*-344" + "l-*-342" + "l-*-340" + "l-*-338" + "l-*-337" + "l-*-336" + "l-*-334" + "l-*-332" + "l-*-331" + "l-*-328" + "l-*-327" + "l-*-325" + "l-*-323" + "l-*-321" + "l-*-319" + "l-*-317" + "l-*-315" + "l-*-313" + "l-*-311" + "l-*-309" + "l-*-306" + "l-*-304" + "l-*-302" + "l-*-300" + "l-*-298" + "l-*-296" + "l-*-294" + "l-*-292" + "l-*-290" + "l-*-288" + "l-*-286" + "l-*-284" + "l-*-282" + "l-*-280" + "l-*-278" + "l-*-276" + "l-*-274" + "l-*-272" + "l-*-270" + "l-*-268" + "l-*-266" + "l-*-264" + "l-*-262" + "l-*-260" + "l-*-258" + "l-*-256" + "l-*-255" + "l-*-254" + "l-*-253" + "l-*-252" + "l-*-250" + "l-*-248" + "l-*-246" + "l-*-243" + "l-*-241" + "l-*-239" + "l-*-237" + "l-*-235" + "l-*-233" + "l-*-231" + "l-*-229" + "l-*-227" + "l-*-225" + "l-*-223" + "l-*-221" + "l-*-219" + "l-*-217" + "l-*-215" + "l-*-213" + "l-*-211" + "l-*-209")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("l-*-2098" - "l-*-2097" - "l-*-2096"))) + ("l-*-47" + "l-*-46" + "l-*-45"))) (hygiene guile)))) - (eq? (id-var-name-6364 + (eq? (id-var-name-4313 '#(syntax-object pad ((top) #(ribcage #(pat exp) #((top) (top)) - #("l-*-5941" "l-*-5942")) + #("l-*-3890" "l-*-3891")) #(ribcage () () ()) #(ribcage #(x keys clauses r mod) @@ -19218,21 +19173,21 @@ (top) (top) (top)) - #("l-*-5930" - "l-*-5931" - "l-*-5932" - "l-*-5933" - "l-*-5934")) + #("l-*-3879" + "l-*-3880" + "l-*-3881" + "l-*-3882" + "l-*-3883")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("l-*-5748" - "l-*-5746" - "l-*-5744" - "l-*-5742")) + ("l-*-3697" + "l-*-3695" + "l-*-3693" + "l-*-3691")) #(ribcage (lambda-var-list gen-var @@ -19514,164 +19469,162 @@ (top) (top) (top)) - ("l-*-2527" - "l-*-2525" - "l-*-2523" - "l-*-2521" - "l-*-2519" - "l-*-2517" - "l-*-2515" - "l-*-2513" - "l-*-2511" - "l-*-2509" - "l-*-2507" - "l-*-2505" - "l-*-2503" - "l-*-2501" - "l-*-2499" - "l-*-2497" - "l-*-2495" - "l-*-2493" - "l-*-2491" - "l-*-2489" - "l-*-2487" - "l-*-2485" - "l-*-2483" - "l-*-2481" - "l-*-2479" - "l-*-2477" - "l-*-2475" - "l-*-2473" - "l-*-2471" - "l-*-2469" - "l-*-2467" - "l-*-2465" - "l-*-2463" - "l-*-2461" - "l-*-2459" - "l-*-2457" - "l-*-2455" - "l-*-2453" - "l-*-2451" - "l-*-2450" - "l-*-2448" - "l-*-2445" - "l-*-2444" - "l-*-2443" - "l-*-2441" - "l-*-2440" - "l-*-2438" - "l-*-2436" - "l-*-2434" - "l-*-2432" - "l-*-2430" - "l-*-2428" - "l-*-2426" - "l-*-2424" - "l-*-2421" - "l-*-2419" - "l-*-2418" - "l-*-2416" - "l-*-2414" - "l-*-2412" - "l-*-2410" - "l-*-2409" - "l-*-2408" - "l-*-2407" - "l-*-2405" - "l-*-2404" - "l-*-2401" - "l-*-2399" - "l-*-2397" - "l-*-2395" - "l-*-2393" - "l-*-2391" - "l-*-2389" - "l-*-2388" - "l-*-2387" - "l-*-2385" - "l-*-2383" - "l-*-2382" - "l-*-2379" - "l-*-2378" - "l-*-2376" - "l-*-2374" - "l-*-2372" - "l-*-2370" - "l-*-2368" - "l-*-2366" - "l-*-2364" - "l-*-2362" - "l-*-2360" - "l-*-2357" - "l-*-2355" - "l-*-2353" - "l-*-2351" - "l-*-2349" - "l-*-2347" - "l-*-2345" - "l-*-2343" - "l-*-2341" - "l-*-2339" - "l-*-2337" - "l-*-2335" - "l-*-2333" - "l-*-2331" - "l-*-2329" - "l-*-2327" - "l-*-2325" - "l-*-2323" - "l-*-2321" - "l-*-2319" - "l-*-2317" - "l-*-2315" - "l-*-2313" - "l-*-2311" - "l-*-2309" - "l-*-2307" - "l-*-2306" - "l-*-2305" - "l-*-2304" - "l-*-2303" - "l-*-2301" - "l-*-2299" - "l-*-2297" - "l-*-2294" - "l-*-2292" - "l-*-2290" - "l-*-2288" - "l-*-2286" - "l-*-2284" - "l-*-2282" - "l-*-2280" - "l-*-2278" - "l-*-2276" - "l-*-2274" - "l-*-2272" - "l-*-2270" - "l-*-2268" - "l-*-2266" - "l-*-2264" - "l-*-2262" - "l-*-2260")) + ("l-*-476" + "l-*-474" + "l-*-472" + "l-*-470" + "l-*-468" + "l-*-466" + "l-*-464" + "l-*-462" + "l-*-460" + "l-*-458" + "l-*-456" + "l-*-454" + "l-*-452" + "l-*-450" + "l-*-448" + "l-*-446" + "l-*-444" + "l-*-442" + "l-*-440" + "l-*-438" + "l-*-436" + "l-*-434" + "l-*-432" + "l-*-430" + "l-*-428" + "l-*-426" + "l-*-424" + "l-*-422" + "l-*-420" + "l-*-418" + "l-*-416" + "l-*-414" + "l-*-412" + "l-*-410" + "l-*-408" + "l-*-406" + "l-*-404" + "l-*-402" + "l-*-400" + "l-*-399" + "l-*-397" + "l-*-394" + "l-*-393" + "l-*-392" + "l-*-390" + "l-*-389" + "l-*-387" + "l-*-385" + "l-*-383" + "l-*-381" + "l-*-379" + "l-*-377" + "l-*-375" + "l-*-373" + "l-*-370" + "l-*-368" + "l-*-367" + "l-*-365" + "l-*-363" + "l-*-361" + "l-*-359" + "l-*-358" + "l-*-357" + "l-*-356" + "l-*-354" + "l-*-353" + "l-*-350" + "l-*-348" + "l-*-346" + "l-*-344" + "l-*-342" + "l-*-340" + "l-*-338" + "l-*-337" + "l-*-336" + "l-*-334" + "l-*-332" + "l-*-331" + "l-*-328" + "l-*-327" + "l-*-325" + "l-*-323" + "l-*-321" + "l-*-319" + "l-*-317" + "l-*-315" + "l-*-313" + "l-*-311" + "l-*-309" + "l-*-306" + "l-*-304" + "l-*-302" + "l-*-300" + "l-*-298" + "l-*-296" + "l-*-294" + "l-*-292" + "l-*-290" + "l-*-288" + "l-*-286" + "l-*-284" + "l-*-282" + "l-*-280" + "l-*-278" + "l-*-276" + "l-*-274" + "l-*-272" + "l-*-270" + "l-*-268" + "l-*-266" + "l-*-264" + "l-*-262" + "l-*-260" + "l-*-258" + "l-*-256" + "l-*-255" + "l-*-254" + "l-*-253" + "l-*-252" + "l-*-250" + "l-*-248" + "l-*-246" + "l-*-243" + "l-*-241" + "l-*-239" + "l-*-237" + "l-*-235" + "l-*-233" + "l-*-231" + "l-*-229" + "l-*-227" + "l-*-225" + "l-*-223" + "l-*-221" + "l-*-219" + "l-*-217" + "l-*-215" + "l-*-213" + "l-*-211" + "l-*-209")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("l-*-2098" - "l-*-2097" - "l-*-2096"))) + ("l-*-47" "l-*-46" "l-*-45"))) (hygiene guile)) '(())) - (id-var-name-6364 + (id-var-name-4313 '#(syntax-object _ ((top) #(ribcage #(pat exp) #((top) (top)) - #("l-*-5941" "l-*-5942")) + #("l-*-3890" "l-*-3891")) #(ribcage () () ()) #(ribcage #(x keys clauses r mod) @@ -19680,21 +19633,21 @@ (top) (top) (top)) - #("l-*-5930" - "l-*-5931" - "l-*-5932" - "l-*-5933" - "l-*-5934")) + #("l-*-3879" + "l-*-3880" + "l-*-3881" + "l-*-3882" + "l-*-3883")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("l-*-5748" - "l-*-5746" - "l-*-5744" - "l-*-5742")) + ("l-*-3697" + "l-*-3695" + "l-*-3693" + "l-*-3691")) #(ribcage (lambda-var-list gen-var @@ -19976,280 +19929,278 @@ (top) (top) (top)) - ("l-*-2527" - "l-*-2525" - "l-*-2523" - "l-*-2521" - "l-*-2519" - "l-*-2517" - "l-*-2515" - "l-*-2513" - "l-*-2511" - "l-*-2509" - "l-*-2507" - "l-*-2505" - "l-*-2503" - "l-*-2501" - "l-*-2499" - "l-*-2497" - "l-*-2495" - "l-*-2493" - "l-*-2491" - "l-*-2489" - "l-*-2487" - "l-*-2485" - "l-*-2483" - "l-*-2481" - "l-*-2479" - "l-*-2477" - "l-*-2475" - "l-*-2473" - "l-*-2471" - "l-*-2469" - "l-*-2467" - "l-*-2465" - "l-*-2463" - "l-*-2461" - "l-*-2459" - "l-*-2457" - "l-*-2455" - "l-*-2453" - "l-*-2451" - "l-*-2450" - "l-*-2448" - "l-*-2445" - "l-*-2444" - "l-*-2443" - "l-*-2441" - "l-*-2440" - "l-*-2438" - "l-*-2436" - "l-*-2434" - "l-*-2432" - "l-*-2430" - "l-*-2428" - "l-*-2426" - "l-*-2424" - "l-*-2421" - "l-*-2419" - "l-*-2418" - "l-*-2416" - "l-*-2414" - "l-*-2412" - "l-*-2410" - "l-*-2409" - "l-*-2408" - "l-*-2407" - "l-*-2405" - "l-*-2404" - "l-*-2401" - "l-*-2399" - "l-*-2397" - "l-*-2395" - "l-*-2393" - "l-*-2391" - "l-*-2389" - "l-*-2388" - "l-*-2387" - "l-*-2385" - "l-*-2383" - "l-*-2382" - "l-*-2379" - "l-*-2378" - "l-*-2376" - "l-*-2374" - "l-*-2372" - "l-*-2370" - "l-*-2368" - "l-*-2366" - "l-*-2364" - "l-*-2362" - "l-*-2360" - "l-*-2357" - "l-*-2355" - "l-*-2353" - "l-*-2351" - "l-*-2349" - "l-*-2347" - "l-*-2345" - "l-*-2343" - "l-*-2341" - "l-*-2339" - "l-*-2337" - "l-*-2335" - "l-*-2333" - "l-*-2331" - "l-*-2329" - "l-*-2327" - "l-*-2325" - "l-*-2323" - "l-*-2321" - "l-*-2319" - "l-*-2317" - "l-*-2315" - "l-*-2313" - "l-*-2311" - "l-*-2309" - "l-*-2307" - "l-*-2306" - "l-*-2305" - "l-*-2304" - "l-*-2303" - "l-*-2301" - "l-*-2299" - "l-*-2297" - "l-*-2294" - "l-*-2292" - "l-*-2290" - "l-*-2288" - "l-*-2286" - "l-*-2284" - "l-*-2282" - "l-*-2280" - "l-*-2278" - "l-*-2276" - "l-*-2274" - "l-*-2272" - "l-*-2270" - "l-*-2268" - "l-*-2266" - "l-*-2264" - "l-*-2262" - "l-*-2260")) + ("l-*-476" + "l-*-474" + "l-*-472" + "l-*-470" + "l-*-468" + "l-*-466" + "l-*-464" + "l-*-462" + "l-*-460" + "l-*-458" + "l-*-456" + "l-*-454" + "l-*-452" + "l-*-450" + "l-*-448" + "l-*-446" + "l-*-444" + "l-*-442" + "l-*-440" + "l-*-438" + "l-*-436" + "l-*-434" + "l-*-432" + "l-*-430" + "l-*-428" + "l-*-426" + "l-*-424" + "l-*-422" + "l-*-420" + "l-*-418" + "l-*-416" + "l-*-414" + "l-*-412" + "l-*-410" + "l-*-408" + "l-*-406" + "l-*-404" + "l-*-402" + "l-*-400" + "l-*-399" + "l-*-397" + "l-*-394" + "l-*-393" + "l-*-392" + "l-*-390" + "l-*-389" + "l-*-387" + "l-*-385" + "l-*-383" + "l-*-381" + "l-*-379" + "l-*-377" + "l-*-375" + "l-*-373" + "l-*-370" + "l-*-368" + "l-*-367" + "l-*-365" + "l-*-363" + "l-*-361" + "l-*-359" + "l-*-358" + "l-*-357" + "l-*-356" + "l-*-354" + "l-*-353" + "l-*-350" + "l-*-348" + "l-*-346" + "l-*-344" + "l-*-342" + "l-*-340" + "l-*-338" + "l-*-337" + "l-*-336" + "l-*-334" + "l-*-332" + "l-*-331" + "l-*-328" + "l-*-327" + "l-*-325" + "l-*-323" + "l-*-321" + "l-*-319" + "l-*-317" + "l-*-315" + "l-*-313" + "l-*-311" + "l-*-309" + "l-*-306" + "l-*-304" + "l-*-302" + "l-*-300" + "l-*-298" + "l-*-296" + "l-*-294" + "l-*-292" + "l-*-290" + "l-*-288" + "l-*-286" + "l-*-284" + "l-*-282" + "l-*-280" + "l-*-278" + "l-*-276" + "l-*-274" + "l-*-272" + "l-*-270" + "l-*-268" + "l-*-266" + "l-*-264" + "l-*-262" + "l-*-260" + "l-*-258" + "l-*-256" + "l-*-255" + "l-*-254" + "l-*-253" + "l-*-252" + "l-*-250" + "l-*-248" + "l-*-246" + "l-*-243" + "l-*-241" + "l-*-239" + "l-*-237" + "l-*-235" + "l-*-233" + "l-*-231" + "l-*-229" + "l-*-227" + "l-*-225" + "l-*-223" + "l-*-221" + "l-*-219" + "l-*-217" + "l-*-215" + "l-*-213" + "l-*-211" + "l-*-209")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("l-*-2098" - "l-*-2097" - "l-*-2096"))) + ("l-*-47" "l-*-46" "l-*-45"))) (hygiene guile)) '(()))) #f) - (expand-6381 exp-13473 r-13429 '(()) mod-13430) - (let ((labels-13676 + (expand-4330 exp-11422 r-11378 '(()) mod-11379) + (let ((labels-11625 (list (string-append "l-" - (session-id-6306) + (session-id-4255) (symbol->string (gensym "-"))))) - (var-13677 - (let ((id-13715 - (if (if (vector? pat-13472) + (var-11626 + (let ((id-11664 + (if (if (vector? pat-11421) (if (= (vector-length - pat-13472) + pat-11421) 4) (eq? (vector-ref - pat-13472 + pat-11421 0) 'syntax-object) #f) #f) - (vector-ref pat-13472 1) - pat-13472))) + (vector-ref pat-11421 1) + pat-11421))) (gensym (string-append - (symbol->string id-13715) + (symbol->string id-11664) "-"))))) - (build-application-6312 + (build-application-4261 #f - (build-simple-lambda-6321 + (build-simple-lambda-4270 #f - (list (syntax->datum pat-13472)) + (list (syntax->datum pat-11421)) #f - (list var-13677) + (list var-11626) '() - (expand-6381 - exp-13473 - (extend-env-6339 - labels-13676 + (expand-4330 + exp-11422 + (extend-env-4288 + labels-11625 (list (cons 'syntax - (cons var-13677 0))) - r-13429) - (make-binding-wrap-6359 - (list pat-13472) - labels-13676 + (cons var-11626 0))) + r-11378) + (make-binding-wrap-4308 + (list pat-11421) + labels-11625 '(())) - mod-13430)) - (list x-13426)))) - (gen-clause-13026 - x-13426 - keys-13427 - (cdr clauses-13428) - r-13429 - pat-13472 + mod-11379)) + (list x-11375)))) + (gen-clause-10975 + x-11375 + keys-11376 + (cdr clauses-11377) + r-11378 + pat-11421 #t - exp-13473 - mod-13430))) - tmp-13470) - (let ((tmp-13985 - ($sc-dispatch tmp-13469 '(any any any)))) - (if tmp-13985 + exp-11422 + mod-11379))) + tmp-11419) + (let ((tmp-11934 + ($sc-dispatch tmp-11418 '(any any any)))) + (if tmp-11934 (@apply - (lambda (pat-13987 fender-13988 exp-13989) - (gen-clause-13026 - x-13426 - keys-13427 - (cdr clauses-13428) - r-13429 - pat-13987 - fender-13988 - exp-13989 - mod-13430)) - tmp-13985) + (lambda (pat-11936 fender-11937 exp-11938) + (gen-clause-10975 + x-11375 + keys-11376 + (cdr clauses-11377) + r-11378 + pat-11936 + fender-11937 + exp-11938 + mod-11379)) + tmp-11934) (syntax-violation 'syntax-case "invalid clause" - (car clauses-13428))))))))))) - (lambda (e-13028 r-13029 w-13030 s-13031 mod-13032) - (let ((e-13033 - (wrap-6374 + (car clauses-11377))))))))))) + (lambda (e-10977 r-10978 w-10979 s-10980 mod-10981) + (let ((e-10982 + (wrap-4323 (begin - (if (if (pair? e-13028) s-13031 #f) - (set-source-properties! e-13028 s-13031)) - e-13028) - w-13030 - mod-13032))) - (let ((tmp-13035 + (if (if (pair? e-10977) s-10980 #f) + (set-source-properties! e-10977 s-10980)) + e-10977) + w-10979 + mod-10981))) + (let ((tmp-10984 ($sc-dispatch - e-13033 + e-10982 '(_ any each-any . each-any)))) - (if tmp-13035 + (if tmp-10984 (@apply - (lambda (val-13060 key-13061 m-13062) + (lambda (val-11009 key-11010 m-11011) (if (and-map - (lambda (x-13063) - (if (if (symbol? x-13063) + (lambda (x-11012) + (if (if (symbol? x-11012) #t - (if (if (vector? x-13063) - (if (= (vector-length x-13063) 4) - (eq? (vector-ref x-13063 0) + (if (if (vector? x-11012) + (if (= (vector-length x-11012) 4) + (eq? (vector-ref x-11012 0) 'syntax-object) #f) #f) - (symbol? (vector-ref x-13063 1)) + (symbol? (vector-ref x-11012 1)) #f)) - (not (if (if (if (vector? x-13063) - (if (= (vector-length x-13063) + (not (if (if (if (vector? x-11012) + (if (= (vector-length x-11012) 4) - (eq? (vector-ref x-13063 0) + (eq? (vector-ref x-11012 0) 'syntax-object) #f) #f) - (symbol? (vector-ref x-13063 1)) + (symbol? (vector-ref x-11012 1)) #f) - (if (eq? (if (if (vector? x-13063) + (if (eq? (if (if (vector? x-11012) (if (= (vector-length - x-13063) + x-11012) 4) (eq? (vector-ref - x-13063 + x-11012 0) 'syntax-object) #f) #f) - (vector-ref x-13063 1) - x-13063) + (vector-ref x-11012 1) + x-11012) (if (if (= (vector-length '#(syntax-object ... @@ -20265,7 +20216,7 @@ #(ribcage #(x) #((top)) - #("l-*-4317")) + #("l-*-2266")) #(ribcage (lambda-var-list gen-var @@ -20547,146 +20498,146 @@ (top) (top) (top)) - ("l-*-2527" - "l-*-2525" - "l-*-2523" - "l-*-2521" - "l-*-2519" - "l-*-2517" - "l-*-2515" - "l-*-2513" - "l-*-2511" - "l-*-2509" - "l-*-2507" - "l-*-2505" - "l-*-2503" - "l-*-2501" - "l-*-2499" - "l-*-2497" - "l-*-2495" - "l-*-2493" - "l-*-2491" - "l-*-2489" - "l-*-2487" - "l-*-2485" - "l-*-2483" - "l-*-2481" - "l-*-2479" - "l-*-2477" - "l-*-2475" - "l-*-2473" - "l-*-2471" - "l-*-2469" - "l-*-2467" - "l-*-2465" - "l-*-2463" - "l-*-2461" - "l-*-2459" - "l-*-2457" - "l-*-2455" - "l-*-2453" - "l-*-2451" - "l-*-2450" - "l-*-2448" - "l-*-2445" - "l-*-2444" - "l-*-2443" - "l-*-2441" - "l-*-2440" - "l-*-2438" - "l-*-2436" - "l-*-2434" - "l-*-2432" - "l-*-2430" - "l-*-2428" - "l-*-2426" - "l-*-2424" - "l-*-2421" - "l-*-2419" - "l-*-2418" - "l-*-2416" - "l-*-2414" - "l-*-2412" - "l-*-2410" - "l-*-2409" - "l-*-2408" - "l-*-2407" - "l-*-2405" - "l-*-2404" - "l-*-2401" - "l-*-2399" - "l-*-2397" - "l-*-2395" - "l-*-2393" - "l-*-2391" - "l-*-2389" - "l-*-2388" - "l-*-2387" - "l-*-2385" - "l-*-2383" - "l-*-2382" - "l-*-2379" - "l-*-2378" - "l-*-2376" - "l-*-2374" - "l-*-2372" - "l-*-2370" - "l-*-2368" - "l-*-2366" - "l-*-2364" - "l-*-2362" - "l-*-2360" - "l-*-2357" - "l-*-2355" - "l-*-2353" - "l-*-2351" - "l-*-2349" - "l-*-2347" - "l-*-2345" - "l-*-2343" - "l-*-2341" - "l-*-2339" - "l-*-2337" - "l-*-2335" - "l-*-2333" - "l-*-2331" - "l-*-2329" - "l-*-2327" - "l-*-2325" - "l-*-2323" - "l-*-2321" - "l-*-2319" - "l-*-2317" - "l-*-2315" - "l-*-2313" - "l-*-2311" - "l-*-2309" - "l-*-2307" - "l-*-2306" - "l-*-2305" - "l-*-2304" - "l-*-2303" - "l-*-2301" - "l-*-2299" - "l-*-2297" - "l-*-2294" - "l-*-2292" - "l-*-2290" - "l-*-2288" - "l-*-2286" - "l-*-2284" - "l-*-2282" - "l-*-2280" - "l-*-2278" - "l-*-2276" - "l-*-2274" - "l-*-2272" - "l-*-2270" - "l-*-2268" - "l-*-2266" - "l-*-2264" - "l-*-2262" - "l-*-2260")) + ("l-*-476" + "l-*-474" + "l-*-472" + "l-*-470" + "l-*-468" + "l-*-466" + "l-*-464" + "l-*-462" + "l-*-460" + "l-*-458" + "l-*-456" + "l-*-454" + "l-*-452" + "l-*-450" + "l-*-448" + "l-*-446" + "l-*-444" + "l-*-442" + "l-*-440" + "l-*-438" + "l-*-436" + "l-*-434" + "l-*-432" + "l-*-430" + "l-*-428" + "l-*-426" + "l-*-424" + "l-*-422" + "l-*-420" + "l-*-418" + "l-*-416" + "l-*-414" + "l-*-412" + "l-*-410" + "l-*-408" + "l-*-406" + "l-*-404" + "l-*-402" + "l-*-400" + "l-*-399" + "l-*-397" + "l-*-394" + "l-*-393" + "l-*-392" + "l-*-390" + "l-*-389" + "l-*-387" + "l-*-385" + "l-*-383" + "l-*-381" + "l-*-379" + "l-*-377" + "l-*-375" + "l-*-373" + "l-*-370" + "l-*-368" + "l-*-367" + "l-*-365" + "l-*-363" + "l-*-361" + "l-*-359" + "l-*-358" + "l-*-357" + "l-*-356" + "l-*-354" + "l-*-353" + "l-*-350" + "l-*-348" + "l-*-346" + "l-*-344" + "l-*-342" + "l-*-340" + "l-*-338" + "l-*-337" + "l-*-336" + "l-*-334" + "l-*-332" + "l-*-331" + "l-*-328" + "l-*-327" + "l-*-325" + "l-*-323" + "l-*-321" + "l-*-319" + "l-*-317" + "l-*-315" + "l-*-313" + "l-*-311" + "l-*-309" + "l-*-306" + "l-*-304" + "l-*-302" + "l-*-300" + "l-*-298" + "l-*-296" + "l-*-294" + "l-*-292" + "l-*-290" + "l-*-288" + "l-*-286" + "l-*-284" + "l-*-282" + "l-*-280" + "l-*-278" + "l-*-276" + "l-*-274" + "l-*-272" + "l-*-270" + "l-*-268" + "l-*-266" + "l-*-264" + "l-*-262" + "l-*-260" + "l-*-258" + "l-*-256" + "l-*-255" + "l-*-254" + "l-*-253" + "l-*-252" + "l-*-250" + "l-*-248" + "l-*-246" + "l-*-243" + "l-*-241" + "l-*-239" + "l-*-237" + "l-*-235" + "l-*-233" + "l-*-231" + "l-*-229" + "l-*-227" + "l-*-225" + "l-*-223" + "l-*-221" + "l-*-219" + "l-*-217" + "l-*-215" + "l-*-213" + "l-*-211" + "l-*-209")) #(ribcage (define-structure define-expansion-accessors @@ -20694,9 +20645,9 @@ ((top) (top) (top)) - ("l-*-2098" - "l-*-2097" - "l-*-2096"))) + ("l-*-47" + "l-*-46" + "l-*-45"))) (hygiene guile))) 4) @@ -20711,7 +20662,7 @@ #(ribcage #(x) #((top)) - #("l-*-4317")) + #("l-*-2266")) #(ribcage (lambda-var-list gen-var @@ -20993,157 +20944,157 @@ (top) (top) (top)) - ("l-*-2527" - "l-*-2525" - "l-*-2523" - "l-*-2521" - "l-*-2519" - "l-*-2517" - "l-*-2515" - "l-*-2513" - "l-*-2511" - "l-*-2509" - "l-*-2507" - "l-*-2505" - "l-*-2503" - "l-*-2501" - "l-*-2499" - "l-*-2497" - "l-*-2495" - "l-*-2493" - "l-*-2491" - "l-*-2489" - "l-*-2487" - "l-*-2485" - "l-*-2483" - "l-*-2481" - "l-*-2479" - "l-*-2477" - "l-*-2475" - "l-*-2473" - "l-*-2471" - "l-*-2469" - "l-*-2467" - "l-*-2465" - "l-*-2463" - "l-*-2461" - "l-*-2459" - "l-*-2457" - "l-*-2455" - "l-*-2453" - "l-*-2451" - "l-*-2450" - "l-*-2448" - "l-*-2445" - "l-*-2444" - "l-*-2443" - "l-*-2441" - "l-*-2440" - "l-*-2438" - "l-*-2436" - "l-*-2434" - "l-*-2432" - "l-*-2430" - "l-*-2428" - "l-*-2426" - "l-*-2424" - "l-*-2421" - "l-*-2419" - "l-*-2418" - "l-*-2416" - "l-*-2414" - "l-*-2412" - "l-*-2410" - "l-*-2409" - "l-*-2408" - "l-*-2407" - "l-*-2405" - "l-*-2404" - "l-*-2401" - "l-*-2399" - "l-*-2397" - "l-*-2395" - "l-*-2393" - "l-*-2391" - "l-*-2389" - "l-*-2388" - "l-*-2387" - "l-*-2385" - "l-*-2383" - "l-*-2382" - "l-*-2379" - "l-*-2378" - "l-*-2376" - "l-*-2374" - "l-*-2372" - "l-*-2370" - "l-*-2368" - "l-*-2366" - "l-*-2364" - "l-*-2362" - "l-*-2360" - "l-*-2357" - "l-*-2355" - "l-*-2353" - "l-*-2351" - "l-*-2349" - "l-*-2347" - "l-*-2345" - "l-*-2343" - "l-*-2341" - "l-*-2339" - "l-*-2337" - "l-*-2335" - "l-*-2333" - "l-*-2331" - "l-*-2329" - "l-*-2327" - "l-*-2325" - "l-*-2323" - "l-*-2321" - "l-*-2319" - "l-*-2317" - "l-*-2315" - "l-*-2313" - "l-*-2311" - "l-*-2309" - "l-*-2307" - "l-*-2306" - "l-*-2305" - "l-*-2304" - "l-*-2303" - "l-*-2301" - "l-*-2299" - "l-*-2297" - "l-*-2294" - "l-*-2292" - "l-*-2290" - "l-*-2288" - "l-*-2286" - "l-*-2284" - "l-*-2282" - "l-*-2280" - "l-*-2278" - "l-*-2276" - "l-*-2274" - "l-*-2272" - "l-*-2270" - "l-*-2268" - "l-*-2266" - "l-*-2264" - "l-*-2262" - "l-*-2260")) + ("l-*-476" + "l-*-474" + "l-*-472" + "l-*-470" + "l-*-468" + "l-*-466" + "l-*-464" + "l-*-462" + "l-*-460" + "l-*-458" + "l-*-456" + "l-*-454" + "l-*-452" + "l-*-450" + "l-*-448" + "l-*-446" + "l-*-444" + "l-*-442" + "l-*-440" + "l-*-438" + "l-*-436" + "l-*-434" + "l-*-432" + "l-*-430" + "l-*-428" + "l-*-426" + "l-*-424" + "l-*-422" + "l-*-420" + "l-*-418" + "l-*-416" + "l-*-414" + "l-*-412" + "l-*-410" + "l-*-408" + "l-*-406" + "l-*-404" + "l-*-402" + "l-*-400" + "l-*-399" + "l-*-397" + "l-*-394" + "l-*-393" + "l-*-392" + "l-*-390" + "l-*-389" + "l-*-387" + "l-*-385" + "l-*-383" + "l-*-381" + "l-*-379" + "l-*-377" + "l-*-375" + "l-*-373" + "l-*-370" + "l-*-368" + "l-*-367" + "l-*-365" + "l-*-363" + "l-*-361" + "l-*-359" + "l-*-358" + "l-*-357" + "l-*-356" + "l-*-354" + "l-*-353" + "l-*-350" + "l-*-348" + "l-*-346" + "l-*-344" + "l-*-342" + "l-*-340" + "l-*-338" + "l-*-337" + "l-*-336" + "l-*-334" + "l-*-332" + "l-*-331" + "l-*-328" + "l-*-327" + "l-*-325" + "l-*-323" + "l-*-321" + "l-*-319" + "l-*-317" + "l-*-315" + "l-*-313" + "l-*-311" + "l-*-309" + "l-*-306" + "l-*-304" + "l-*-302" + "l-*-300" + "l-*-298" + "l-*-296" + "l-*-294" + "l-*-292" + "l-*-290" + "l-*-288" + "l-*-286" + "l-*-284" + "l-*-282" + "l-*-280" + "l-*-278" + "l-*-276" + "l-*-274" + "l-*-272" + "l-*-270" + "l-*-268" + "l-*-266" + "l-*-264" + "l-*-262" + "l-*-260" + "l-*-258" + "l-*-256" + "l-*-255" + "l-*-254" + "l-*-253" + "l-*-252" + "l-*-250" + "l-*-248" + "l-*-246" + "l-*-243" + "l-*-241" + "l-*-239" + "l-*-237" + "l-*-235" + "l-*-233" + "l-*-231" + "l-*-229" + "l-*-227" + "l-*-225" + "l-*-223" + "l-*-221" + "l-*-219" + "l-*-217" + "l-*-215" + "l-*-213" + "l-*-211" + "l-*-209")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("l-*-2098" - "l-*-2097" - "l-*-2096"))) + ("l-*-47" + "l-*-46" + "l-*-45"))) (hygiene guile)))) - (eq? (id-var-name-6364 x-13063 '(())) - (id-var-name-6364 + (eq? (id-var-name-4313 x-11012 '(())) + (id-var-name-4313 '#(syntax-object ... ((top) @@ -21152,7 +21103,7 @@ #(ribcage #(x) #((top)) - #("l-*-4317")) + #("l-*-2266")) #(ribcage (lambda-var-list gen-var @@ -21434,911 +21385,913 @@ (top) (top) (top)) - ("l-*-2527" - "l-*-2525" - "l-*-2523" - "l-*-2521" - "l-*-2519" - "l-*-2517" - "l-*-2515" - "l-*-2513" - "l-*-2511" - "l-*-2509" - "l-*-2507" - "l-*-2505" - "l-*-2503" - "l-*-2501" - "l-*-2499" - "l-*-2497" - "l-*-2495" - "l-*-2493" - "l-*-2491" - "l-*-2489" - "l-*-2487" - "l-*-2485" - "l-*-2483" - "l-*-2481" - "l-*-2479" - "l-*-2477" - "l-*-2475" - "l-*-2473" - "l-*-2471" - "l-*-2469" - "l-*-2467" - "l-*-2465" - "l-*-2463" - "l-*-2461" - "l-*-2459" - "l-*-2457" - "l-*-2455" - "l-*-2453" - "l-*-2451" - "l-*-2450" - "l-*-2448" - "l-*-2445" - "l-*-2444" - "l-*-2443" - "l-*-2441" - "l-*-2440" - "l-*-2438" - "l-*-2436" - "l-*-2434" - "l-*-2432" - "l-*-2430" - "l-*-2428" - "l-*-2426" - "l-*-2424" - "l-*-2421" - "l-*-2419" - "l-*-2418" - "l-*-2416" - "l-*-2414" - "l-*-2412" - "l-*-2410" - "l-*-2409" - "l-*-2408" - "l-*-2407" - "l-*-2405" - "l-*-2404" - "l-*-2401" - "l-*-2399" - "l-*-2397" - "l-*-2395" - "l-*-2393" - "l-*-2391" - "l-*-2389" - "l-*-2388" - "l-*-2387" - "l-*-2385" - "l-*-2383" - "l-*-2382" - "l-*-2379" - "l-*-2378" - "l-*-2376" - "l-*-2374" - "l-*-2372" - "l-*-2370" - "l-*-2368" - "l-*-2366" - "l-*-2364" - "l-*-2362" - "l-*-2360" - "l-*-2357" - "l-*-2355" - "l-*-2353" - "l-*-2351" - "l-*-2349" - "l-*-2347" - "l-*-2345" - "l-*-2343" - "l-*-2341" - "l-*-2339" - "l-*-2337" - "l-*-2335" - "l-*-2333" - "l-*-2331" - "l-*-2329" - "l-*-2327" - "l-*-2325" - "l-*-2323" - "l-*-2321" - "l-*-2319" - "l-*-2317" - "l-*-2315" - "l-*-2313" - "l-*-2311" - "l-*-2309" - "l-*-2307" - "l-*-2306" - "l-*-2305" - "l-*-2304" - "l-*-2303" - "l-*-2301" - "l-*-2299" - "l-*-2297" - "l-*-2294" - "l-*-2292" - "l-*-2290" - "l-*-2288" - "l-*-2286" - "l-*-2284" - "l-*-2282" - "l-*-2280" - "l-*-2278" - "l-*-2276" - "l-*-2274" - "l-*-2272" - "l-*-2270" - "l-*-2268" - "l-*-2266" - "l-*-2264" - "l-*-2262" - "l-*-2260")) + ("l-*-476" + "l-*-474" + "l-*-472" + "l-*-470" + "l-*-468" + "l-*-466" + "l-*-464" + "l-*-462" + "l-*-460" + "l-*-458" + "l-*-456" + "l-*-454" + "l-*-452" + "l-*-450" + "l-*-448" + "l-*-446" + "l-*-444" + "l-*-442" + "l-*-440" + "l-*-438" + "l-*-436" + "l-*-434" + "l-*-432" + "l-*-430" + "l-*-428" + "l-*-426" + "l-*-424" + "l-*-422" + "l-*-420" + "l-*-418" + "l-*-416" + "l-*-414" + "l-*-412" + "l-*-410" + "l-*-408" + "l-*-406" + "l-*-404" + "l-*-402" + "l-*-400" + "l-*-399" + "l-*-397" + "l-*-394" + "l-*-393" + "l-*-392" + "l-*-390" + "l-*-389" + "l-*-387" + "l-*-385" + "l-*-383" + "l-*-381" + "l-*-379" + "l-*-377" + "l-*-375" + "l-*-373" + "l-*-370" + "l-*-368" + "l-*-367" + "l-*-365" + "l-*-363" + "l-*-361" + "l-*-359" + "l-*-358" + "l-*-357" + "l-*-356" + "l-*-354" + "l-*-353" + "l-*-350" + "l-*-348" + "l-*-346" + "l-*-344" + "l-*-342" + "l-*-340" + "l-*-338" + "l-*-337" + "l-*-336" + "l-*-334" + "l-*-332" + "l-*-331" + "l-*-328" + "l-*-327" + "l-*-325" + "l-*-323" + "l-*-321" + "l-*-319" + "l-*-317" + "l-*-315" + "l-*-313" + "l-*-311" + "l-*-309" + "l-*-306" + "l-*-304" + "l-*-302" + "l-*-300" + "l-*-298" + "l-*-296" + "l-*-294" + "l-*-292" + "l-*-290" + "l-*-288" + "l-*-286" + "l-*-284" + "l-*-282" + "l-*-280" + "l-*-278" + "l-*-276" + "l-*-274" + "l-*-272" + "l-*-270" + "l-*-268" + "l-*-266" + "l-*-264" + "l-*-262" + "l-*-260" + "l-*-258" + "l-*-256" + "l-*-255" + "l-*-254" + "l-*-253" + "l-*-252" + "l-*-250" + "l-*-248" + "l-*-246" + "l-*-243" + "l-*-241" + "l-*-239" + "l-*-237" + "l-*-235" + "l-*-233" + "l-*-231" + "l-*-229" + "l-*-227" + "l-*-225" + "l-*-223" + "l-*-221" + "l-*-219" + "l-*-217" + "l-*-215" + "l-*-213" + "l-*-211" + "l-*-209")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("l-*-2098" - "l-*-2097" - "l-*-2096"))) + ("l-*-47" + "l-*-46" + "l-*-45"))) (hygiene guile)) '(()))) #f) #f)) #f)) - key-13061) - (let ((x-13189 + key-11010) + (let ((x-11138 (gensym (string-append (symbol->string 'tmp) "-")))) - (build-application-6312 - s-13031 - (let ((req-13319 (list 'tmp)) - (vars-13321 (list x-13189)) - (exp-13323 - (gen-syntax-case-13027 + (build-application-4261 + s-10980 + (let ((req-11268 (list 'tmp)) + (vars-11270 (list x-11138)) + (exp-11272 + (gen-syntax-case-10976 (make-struct/no-tail (vector-ref %expanded-vtables 3) #f 'tmp - x-13189) - key-13061 - m-13062 - r-13029 - mod-13032))) - (let ((body-13328 + x-11138) + key-11010 + m-11011 + r-10978 + mod-10981))) + (let ((body-11277 (make-struct/no-tail (vector-ref %expanded-vtables 14) #f - req-13319 + req-11268 #f #f #f '() - vars-13321 - exp-13323 + vars-11270 + exp-11272 #f))) (make-struct/no-tail (vector-ref %expanded-vtables 13) #f '() - body-13328))) - (list (expand-6381 - val-13060 - r-13029 + body-11277))) + (list (expand-4330 + val-11009 + r-10978 '(()) - mod-13032)))) + mod-10981)))) (syntax-violation 'syntax-case "invalid literals list" - e-13033))) - tmp-13035) + e-10982))) + tmp-10984) (syntax-violation #f "source expression failed to match any pattern" - e-13033))))))) + e-10982))))))) (set! macroexpand (lambda* - (x-15746 + (x-13695 #:optional - (m-15747 'e) - (esew-15748 '(eval))) - (expand-top-sequence-6377 - (list x-15746) + (m-13696 'e) + (esew-13697 '(eval))) + (expand-top-sequence-4326 + (list x-13695) '() '((top)) #f - m-15747 - esew-15748 + m-13696 + esew-13697 (cons 'hygiene (module-name (current-module)))))) (set! identifier? - (lambda (x-15751) - (if (if (vector? x-15751) - (if (= (vector-length x-15751) 4) - (eq? (vector-ref x-15751 0) 'syntax-object) + (lambda (x-13700) + (if (if (vector? x-13700) + (if (= (vector-length x-13700) 4) + (eq? (vector-ref x-13700 0) 'syntax-object) #f) #f) - (symbol? (vector-ref x-15751 1)) + (symbol? (vector-ref x-13700 1)) #f))) (set! datum->syntax - (lambda (id-15776 datum-15777) - (let ((wrap-15782 (vector-ref id-15776 2)) - (module-15783 (vector-ref id-15776 3))) + (lambda (id-13725 datum-13726) + (let ((wrap-13731 (vector-ref id-13725 2)) + (module-13732 (vector-ref id-13725 3))) (vector 'syntax-object - datum-15777 - wrap-15782 - module-15783)))) + datum-13726 + wrap-13731 + module-13732)))) (set! syntax->datum - (lambda (x-15790) (strip-6394 x-15790 '(())))) + (lambda (x-13739) (strip-4343 x-13739 '(())))) (set! syntax-source - (lambda (x-15793) - (source-annotation-6338 x-15793))) + (lambda (x-13742) + (source-annotation-4287 x-13742))) (set! generate-temporaries - (lambda (ls-15946) + (lambda (ls-13895) (begin - (if (not (list? ls-15946)) + (if (not (list? ls-13895)) (syntax-violation 'generate-temporaries "invalid argument" - ls-15946)) - (let ((mod-15954 + ls-13895)) + (let ((mod-13903 (cons 'hygiene (module-name (current-module))))) - (map (lambda (x-15955) - (wrap-6374 (gensym "t-") '((top)) mod-15954)) - ls-15946))))) + (map (lambda (x-13904) + (wrap-4323 (gensym "t-") '((top)) mod-13903)) + ls-13895))))) (set! free-identifier=? - (lambda (x-15959 y-15960) + (lambda (x-13908 y-13909) (begin - (if (not (if (if (vector? x-15959) - (if (= (vector-length x-15959) 4) - (eq? (vector-ref x-15959 0) 'syntax-object) + (if (not (if (if (vector? x-13908) + (if (= (vector-length x-13908) 4) + (eq? (vector-ref x-13908 0) 'syntax-object) #f) #f) - (symbol? (vector-ref x-15959 1)) + (symbol? (vector-ref x-13908 1)) #f)) (syntax-violation 'free-identifier=? "invalid argument" - x-15959)) - (if (not (if (if (vector? y-15960) - (if (= (vector-length y-15960) 4) - (eq? (vector-ref y-15960 0) 'syntax-object) + x-13908)) + (if (not (if (if (vector? y-13909) + (if (= (vector-length y-13909) 4) + (eq? (vector-ref y-13909 0) 'syntax-object) #f) #f) - (symbol? (vector-ref y-15960 1)) + (symbol? (vector-ref y-13909 1)) #f)) (syntax-violation 'free-identifier=? "invalid argument" - y-15960)) - (if (eq? (if (if (vector? x-15959) - (if (= (vector-length x-15959) 4) - (eq? (vector-ref x-15959 0) 'syntax-object) + y-13909)) + (if (eq? (if (if (vector? x-13908) + (if (= (vector-length x-13908) 4) + (eq? (vector-ref x-13908 0) 'syntax-object) #f) #f) - (vector-ref x-15959 1) - x-15959) - (if (if (vector? y-15960) - (if (= (vector-length y-15960) 4) - (eq? (vector-ref y-15960 0) 'syntax-object) + (vector-ref x-13908 1) + x-13908) + (if (if (vector? y-13909) + (if (= (vector-length y-13909) 4) + (eq? (vector-ref y-13909 0) 'syntax-object) #f) #f) - (vector-ref y-15960 1) - y-15960)) - (eq? (id-var-name-6364 x-15959 '(())) - (id-var-name-6364 y-15960 '(()))) + (vector-ref y-13909 1) + y-13909)) + (eq? (id-var-name-4313 x-13908 '(())) + (id-var-name-4313 y-13909 '(()))) #f)))) (set! bound-identifier=? - (lambda (x-16110 y-16111) + (lambda (x-14059 y-14060) (begin - (if (not (if (if (vector? x-16110) - (if (= (vector-length x-16110) 4) - (eq? (vector-ref x-16110 0) 'syntax-object) + (if (not (if (if (vector? x-14059) + (if (= (vector-length x-14059) 4) + (eq? (vector-ref x-14059 0) 'syntax-object) #f) #f) - (symbol? (vector-ref x-16110 1)) + (symbol? (vector-ref x-14059 1)) #f)) (syntax-violation 'bound-identifier=? "invalid argument" - x-16110)) - (if (not (if (if (vector? y-16111) - (if (= (vector-length y-16111) 4) - (eq? (vector-ref y-16111 0) 'syntax-object) + x-14059)) + (if (not (if (if (vector? y-14060) + (if (= (vector-length y-14060) 4) + (eq? (vector-ref y-14060 0) 'syntax-object) #f) #f) - (symbol? (vector-ref y-16111 1)) + (symbol? (vector-ref y-14060 1)) #f)) (syntax-violation 'bound-identifier=? "invalid argument" - y-16111)) - (if (if (if (vector? x-16110) - (if (= (vector-length x-16110) 4) - (eq? (vector-ref x-16110 0) 'syntax-object) + y-14060)) + (if (if (if (vector? x-14059) + (if (= (vector-length x-14059) 4) + (eq? (vector-ref x-14059 0) 'syntax-object) #f) #f) - (if (vector? y-16111) - (if (= (vector-length y-16111) 4) - (eq? (vector-ref y-16111 0) 'syntax-object) + (if (vector? y-14060) + (if (= (vector-length y-14060) 4) + (eq? (vector-ref y-14060 0) 'syntax-object) #f) #f) #f) - (if (eq? (vector-ref x-16110 1) - (vector-ref y-16111 1)) - (same-marks?-6363 - (car (vector-ref x-16110 2)) - (car (vector-ref y-16111 2))) + (if (eq? (vector-ref x-14059 1) + (vector-ref y-14060 1)) + (same-marks?-4312 + (car (vector-ref x-14059 2)) + (car (vector-ref y-14060 2))) #f) - (eq? x-16110 y-16111))))) + (eq? x-14059 y-14060))))) (set! syntax-violation (lambda* - (who-16244 - message-16245 - form-16246 + (who-14193 + message-14194 + form-14195 #:optional - (subform-16247 #f)) + (subform-14196 #f)) (begin - (if (not (if (not who-16244) - (not who-16244) - (let ((t-16265 (string? who-16244))) - (if t-16265 t-16265 (symbol? who-16244))))) + (if (not (if (not who-14193) + (not who-14193) + (let ((t-14214 (string? who-14193))) + (if t-14214 t-14214 (symbol? who-14193))))) (syntax-violation 'syntax-violation "invalid argument" - who-16244)) - (if (not (string? message-16245)) + who-14193)) + (if (not (string? message-14194)) (syntax-violation 'syntax-violation "invalid argument" - message-16245)) + message-14194)) (throw 'syntax-error - who-16244 - message-16245 - (source-annotation-6338 - (if form-16246 form-16246 subform-16247)) - (strip-6394 form-16246 '(())) - (if subform-16247 - (strip-6394 subform-16247 '(())) + who-14193 + message-14194 + (let ((t-14245 (source-annotation-4287 subform-14196))) + (if t-14245 + t-14245 + (source-annotation-4287 form-14195))) + (strip-4343 form-14195 '(())) + (if subform-14196 + (strip-4343 subform-14196 '(())) #f))))) (letrec* - ((syntax-local-binding-16469 - (lambda (id-16602) + ((syntax-local-binding-14637 + (lambda (id-14770) (begin - (if (not (if (if (vector? id-16602) - (if (= (vector-length id-16602) 4) - (eq? (vector-ref id-16602 0) 'syntax-object) + (if (not (if (if (vector? id-14770) + (if (= (vector-length id-14770) 4) + (eq? (vector-ref id-14770 0) 'syntax-object) #f) #f) - (symbol? (vector-ref id-16602 1)) + (symbol? (vector-ref id-14770 1)) #f)) (syntax-violation 'syntax-local-binding "invalid argument" - id-16602)) - ((fluid-ref transformer-environment-6367) - (lambda (e-16642 - r-16643 - w-16644 - s-16645 - rib-16646 - mod-16647) + id-14770)) + ((fluid-ref transformer-environment-4316) + (lambda (e-14810 + r-14811 + w-14812 + s-14813 + rib-14814 + mod-14815) (call-with-values (lambda () - (let ((id-16650 (vector-ref id-16602 1)) - (w-16651 - (let ((w-16662 (vector-ref id-16602 2))) - (let ((ms-16663 (car w-16662)) - (s-16664 (cdr w-16662))) - (if (if (pair? ms-16663) - (eq? (car ms-16663) #f) + (let ((id-14818 (vector-ref id-14770 1)) + (w-14819 + (let ((w-14830 (vector-ref id-14770 2))) + (let ((ms-14831 (car w-14830)) + (s-14832 (cdr w-14830))) + (if (if (pair? ms-14831) + (eq? (car ms-14831) #f) #f) - (cons (cdr ms-16663) - (if rib-16646 - (cons rib-16646 (cdr s-16664)) - (cdr s-16664))) - (cons ms-16663 - (if rib-16646 - (cons rib-16646 s-16664) - s-16664)))))) - (mod-16653 (vector-ref id-16602 3))) - (let ((n-16656 (id-var-name-6364 id-16650 w-16651))) - (if (symbol? n-16656) - (let ((mod-16670 - (if (if (vector? id-16650) - (if (= (vector-length id-16650) 4) - (eq? (vector-ref id-16650 0) + (cons (cdr ms-14831) + (if rib-14814 + (cons rib-14814 (cdr s-14832)) + (cdr s-14832))) + (cons ms-14831 + (if rib-14814 + (cons rib-14814 s-14832) + s-14832)))))) + (mod-14821 (vector-ref id-14770 3))) + (let ((n-14824 (id-var-name-4313 id-14818 w-14819))) + (if (symbol? n-14824) + (let ((mod-14838 + (if (if (vector? id-14818) + (if (= (vector-length id-14818) 4) + (eq? (vector-ref id-14818 0) 'syntax-object) #f) #f) - (vector-ref id-16650 3) - mod-16653))) - (let ((b-16671 - (let ((t-16672 - (get-global-definition-hook-6308 - n-16656 - mod-16670))) - (if t-16672 t-16672 '(global))))) - (if (eq? (car b-16671) 'global) - (values 'global n-16656 mod-16670) + (vector-ref id-14818 3) + mod-14821))) + (let ((b-14839 + (let ((t-14840 + (get-global-definition-hook-4257 + n-14824 + mod-14838))) + (if t-14840 t-14840 '(global))))) + (if (eq? (car b-14839) 'global) + (values 'global n-14824 mod-14838) (values - (car b-16671) - (cdr b-16671) - mod-16670)))) - (if (string? n-16656) - (let ((mod-16698 - (if (if (vector? id-16650) - (if (= (vector-length id-16650) 4) - (eq? (vector-ref id-16650 0) + (car b-14839) + (cdr b-14839) + mod-14838)))) + (if (string? n-14824) + (let ((mod-14866 + (if (if (vector? id-14818) + (if (= (vector-length id-14818) 4) + (eq? (vector-ref id-14818 0) 'syntax-object) #f) #f) - (vector-ref id-16650 3) - mod-16653))) - (let ((b-16699 - (let ((t-16700 - (assq-ref r-16643 n-16656))) - (if t-16700 - t-16700 + (vector-ref id-14818 3) + mod-14821))) + (let ((b-14867 + (let ((t-14868 + (assq-ref r-14811 n-14824))) + (if t-14868 + t-14868 '(displaced-lexical))))) (values - (car b-16699) - (cdr b-16699) - mod-16698))) + (car b-14867) + (cdr b-14867) + mod-14866))) (error "unexpected id-var-name" - id-16650 - w-16651 - n-16656)))))) - (lambda (type-16713 value-16714 mod-16715) - (if (eqv? type-16713 'lexical) - (values 'lexical value-16714) - (if (eqv? type-16713 'macro) - (values 'macro value-16714) - (if (eqv? type-16713 'syntax) - (values 'pattern-variable value-16714) - (if (eqv? type-16713 'displaced-lexical) + id-14818 + w-14819 + n-14824)))))) + (lambda (type-14881 value-14882 mod-14883) + (if (eqv? type-14881 'lexical) + (values 'lexical value-14882) + (if (eqv? type-14881 'macro) + (values 'macro value-14882) + (if (eqv? type-14881 'syntax) + (values 'pattern-variable value-14882) + (if (eqv? type-14881 'displaced-lexical) (values 'displaced-lexical #f) - (if (eqv? type-16713 'global) + (if (eqv? type-14881 'global) (values 'global - (cons value-16714 (cdr mod-16715))) + (cons value-14882 (cdr mod-14883))) (values 'other #f))))))))))))) - (syntax-locally-bound-identifiers-16470 - (lambda (id-16737) + (syntax-locally-bound-identifiers-14638 + (lambda (id-14905) (begin - (if (not (if (if (vector? id-16737) - (if (= (vector-length id-16737) 4) - (eq? (vector-ref id-16737 0) 'syntax-object) + (if (not (if (if (vector? id-14905) + (if (= (vector-length id-14905) 4) + (eq? (vector-ref id-14905 0) 'syntax-object) #f) #f) - (symbol? (vector-ref id-16737 1)) + (symbol? (vector-ref id-14905 1)) #f)) (syntax-violation 'syntax-locally-bound-identifiers "invalid argument" - id-16737)) - (locally-bound-identifiers-6365 - (vector-ref id-16737 2) - (vector-ref id-16737 3)))))) + id-14905)) + (locally-bound-identifiers-4314 + (vector-ref id-14905 2) + (vector-ref id-14905 3)))))) (begin (define! 'syntax-module - (lambda (id-16472) + (lambda (id-14640) (begin - (if (not (if (if (vector? id-16472) - (if (= (vector-length id-16472) 4) - (eq? (vector-ref id-16472 0) 'syntax-object) + (if (not (if (if (vector? id-14640) + (if (= (vector-length id-14640) 4) + (eq? (vector-ref id-14640 0) 'syntax-object) #f) #f) - (symbol? (vector-ref id-16472 1)) + (symbol? (vector-ref id-14640 1)) #f)) (syntax-violation 'syntax-module "invalid argument" - id-16472)) - (cdr (vector-ref id-16472 3))))) + id-14640)) + (cdr (vector-ref id-14640 3))))) (define! 'syntax-local-binding - syntax-local-binding-16469) + syntax-local-binding-14637) (define! 'syntax-locally-bound-identifiers - syntax-locally-bound-identifiers-16470))) + syntax-locally-bound-identifiers-14638))) (letrec* - ((match-each-16844 - (lambda (e-17431 p-17432 w-17433 mod-17434) - (if (pair? e-17431) - (let ((first-17435 - (match-16850 - (car e-17431) - p-17432 - w-17433 + ((match-each-15012 + (lambda (e-15599 p-15600 w-15601 mod-15602) + (if (pair? e-15599) + (let ((first-15603 + (match-15018 + (car e-15599) + p-15600 + w-15601 '() - mod-17434))) - (if first-17435 - (let ((rest-17438 - (match-each-16844 - (cdr e-17431) - p-17432 - w-17433 - mod-17434))) - (if rest-17438 (cons first-17435 rest-17438) #f)) + mod-15602))) + (if first-15603 + (let ((rest-15606 + (match-each-15012 + (cdr e-15599) + p-15600 + w-15601 + mod-15602))) + (if rest-15606 (cons first-15603 rest-15606) #f)) #f)) - (if (null? e-17431) + (if (null? e-15599) '() - (if (if (vector? e-17431) - (if (= (vector-length e-17431) 4) - (eq? (vector-ref e-17431 0) 'syntax-object) + (if (if (vector? e-15599) + (if (= (vector-length e-15599) 4) + (eq? (vector-ref e-15599 0) 'syntax-object) #f) #f) - (match-each-16844 - (vector-ref e-17431 1) - p-17432 - (join-wraps-6361 w-17433 (vector-ref e-17431 2)) - (vector-ref e-17431 3)) + (match-each-15012 + (vector-ref e-15599 1) + p-15600 + (join-wraps-4310 w-15601 (vector-ref e-15599 2)) + (vector-ref e-15599 3)) #f))))) - (match-each-any-16846 - (lambda (e-17466 w-17467 mod-17468) - (if (pair? e-17466) - (let ((l-17469 - (match-each-any-16846 - (cdr e-17466) - w-17467 - mod-17468))) - (if l-17469 - (cons (wrap-6374 (car e-17466) w-17467 mod-17468) - l-17469) + (match-each-any-15014 + (lambda (e-15634 w-15635 mod-15636) + (if (pair? e-15634) + (let ((l-15637 + (match-each-any-15014 + (cdr e-15634) + w-15635 + mod-15636))) + (if l-15637 + (cons (wrap-4323 (car e-15634) w-15635 mod-15636) + l-15637) #f)) - (if (null? e-17466) + (if (null? e-15634) '() - (if (if (vector? e-17466) - (if (= (vector-length e-17466) 4) - (eq? (vector-ref e-17466 0) 'syntax-object) + (if (if (vector? e-15634) + (if (= (vector-length e-15634) 4) + (eq? (vector-ref e-15634 0) 'syntax-object) #f) #f) - (match-each-any-16846 - (vector-ref e-17466 1) - (join-wraps-6361 w-17467 (vector-ref e-17466 2)) - mod-17468) + (match-each-any-15014 + (vector-ref e-15634 1) + (join-wraps-4310 w-15635 (vector-ref e-15634 2)) + mod-15636) #f))))) - (match-empty-16847 - (lambda (p-17493 r-17494) - (if (null? p-17493) - r-17494 - (if (eq? p-17493 '_) - r-17494 - (if (eq? p-17493 'any) - (cons '() r-17494) - (if (pair? p-17493) - (match-empty-16847 - (car p-17493) - (match-empty-16847 (cdr p-17493) r-17494)) - (if (eq? p-17493 'each-any) - (cons '() r-17494) - (let ((key-17495 (vector-ref p-17493 0))) - (if (eqv? key-17495 'each) - (match-empty-16847 - (vector-ref p-17493 1) - r-17494) - (if (eqv? key-17495 'each+) - (match-empty-16847 - (vector-ref p-17493 1) - (match-empty-16847 - (reverse (vector-ref p-17493 2)) - (match-empty-16847 - (vector-ref p-17493 3) - r-17494))) - (if (if (eqv? key-17495 'free-id) + (match-empty-15015 + (lambda (p-15661 r-15662) + (if (null? p-15661) + r-15662 + (if (eq? p-15661 '_) + r-15662 + (if (eq? p-15661 'any) + (cons '() r-15662) + (if (pair? p-15661) + (match-empty-15015 + (car p-15661) + (match-empty-15015 (cdr p-15661) r-15662)) + (if (eq? p-15661 'each-any) + (cons '() r-15662) + (let ((key-15663 (vector-ref p-15661 0))) + (if (eqv? key-15663 'each) + (match-empty-15015 + (vector-ref p-15661 1) + r-15662) + (if (eqv? key-15663 'each+) + (match-empty-15015 + (vector-ref p-15661 1) + (match-empty-15015 + (reverse (vector-ref p-15661 2)) + (match-empty-15015 + (vector-ref p-15661 3) + r-15662))) + (if (if (eqv? key-15663 'free-id) #t - (eqv? key-17495 'atom)) - r-17494 - (if (eqv? key-17495 'vector) - (match-empty-16847 - (vector-ref p-17493 1) - r-17494))))))))))))) - (combine-16848 - (lambda (r*-17514 r-17515) - (if (null? (car r*-17514)) - r-17515 - (cons (map car r*-17514) - (combine-16848 (map cdr r*-17514) r-17515))))) - (match*-16849 - (lambda (e-16879 p-16880 w-16881 r-16882 mod-16883) - (if (null? p-16880) - (if (null? e-16879) r-16882 #f) - (if (pair? p-16880) - (if (pair? e-16879) - (match-16850 - (car e-16879) - (car p-16880) - w-16881 - (match-16850 - (cdr e-16879) - (cdr p-16880) - w-16881 - r-16882 - mod-16883) - mod-16883) + (eqv? key-15663 'atom)) + r-15662 + (if (eqv? key-15663 'vector) + (match-empty-15015 + (vector-ref p-15661 1) + r-15662))))))))))))) + (combine-15016 + (lambda (r*-15682 r-15683) + (if (null? (car r*-15682)) + r-15683 + (cons (map car r*-15682) + (combine-15016 (map cdr r*-15682) r-15683))))) + (match*-15017 + (lambda (e-15047 p-15048 w-15049 r-15050 mod-15051) + (if (null? p-15048) + (if (null? e-15047) r-15050 #f) + (if (pair? p-15048) + (if (pair? e-15047) + (match-15018 + (car e-15047) + (car p-15048) + w-15049 + (match-15018 + (cdr e-15047) + (cdr p-15048) + w-15049 + r-15050 + mod-15051) + mod-15051) #f) - (if (eq? p-16880 'each-any) - (let ((l-16888 - (match-each-any-16846 e-16879 w-16881 mod-16883))) - (if l-16888 (cons l-16888 r-16882) #f)) - (let ((key-16893 (vector-ref p-16880 0))) - (if (eqv? key-16893 'each) - (if (null? e-16879) - (match-empty-16847 - (vector-ref p-16880 1) - r-16882) - (let ((l-16900 - (match-each-16844 - e-16879 - (vector-ref p-16880 1) - w-16881 - mod-16883))) - (if l-16900 + (if (eq? p-15048 'each-any) + (let ((l-15056 + (match-each-any-15014 e-15047 w-15049 mod-15051))) + (if l-15056 (cons l-15056 r-15050) #f)) + (let ((key-15061 (vector-ref p-15048 0))) + (if (eqv? key-15061 'each) + (if (null? e-15047) + (match-empty-15015 + (vector-ref p-15048 1) + r-15050) + (let ((l-15068 + (match-each-15012 + e-15047 + (vector-ref p-15048 1) + w-15049 + mod-15051))) + (if l-15068 (letrec* - ((collect-16903 - (lambda (l-16954) - (if (null? (car l-16954)) - r-16882 - (cons (map car l-16954) - (collect-16903 - (map cdr l-16954))))))) - (collect-16903 l-16900)) + ((collect-15071 + (lambda (l-15122) + (if (null? (car l-15122)) + r-15050 + (cons (map car l-15122) + (collect-15071 + (map cdr l-15122))))))) + (collect-15071 l-15068)) #f))) - (if (eqv? key-16893 'each+) + (if (eqv? key-15061 'each+) (call-with-values (lambda () - (let ((x-pat-16963 (vector-ref p-16880 1)) - (y-pat-16964 (vector-ref p-16880 2)) - (z-pat-16965 (vector-ref p-16880 3))) + (let ((x-pat-15131 (vector-ref p-15048 1)) + (y-pat-15132 (vector-ref p-15048 2)) + (z-pat-15133 (vector-ref p-15048 3))) (letrec* - ((f-16969 - (lambda (e-16971 w-16972) - (if (pair? e-16971) + ((f-15137 + (lambda (e-15139 w-15140) + (if (pair? e-15139) (call-with-values (lambda () - (f-16969 (cdr e-16971) w-16972)) - (lambda (xr*-16973 - y-pat-16974 - r-16975) - (if r-16975 - (if (null? y-pat-16974) - (let ((xr-16976 - (match-16850 - (car e-16971) - x-pat-16963 - w-16972 + (f-15137 (cdr e-15139) w-15140)) + (lambda (xr*-15141 + y-pat-15142 + r-15143) + (if r-15143 + (if (null? y-pat-15142) + (let ((xr-15144 + (match-15018 + (car e-15139) + x-pat-15131 + w-15140 '() - mod-16883))) - (if xr-16976 + mod-15051))) + (if xr-15144 (values - (cons xr-16976 xr*-16973) - y-pat-16974 - r-16975) + (cons xr-15144 xr*-15141) + y-pat-15142 + r-15143) (values #f #f #f))) (values '() - (cdr y-pat-16974) - (match-16850 - (car e-16971) - (car y-pat-16974) - w-16972 - r-16975 - mod-16883))) + (cdr y-pat-15142) + (match-15018 + (car e-15139) + (car y-pat-15142) + w-15140 + r-15143 + mod-15051))) (values #f #f #f)))) - (if (if (vector? e-16971) - (if (= (vector-length e-16971) 4) - (eq? (vector-ref e-16971 0) + (if (if (vector? e-15139) + (if (= (vector-length e-15139) 4) + (eq? (vector-ref e-15139 0) 'syntax-object) #f) #f) - (f-16969 - (vector-ref e-16971 1) - (join-wraps-6361 w-16972 e-16971)) + (f-15137 + (vector-ref e-15139 1) + (join-wraps-4310 w-15140 e-15139)) (values '() - y-pat-16964 - (match-16850 - e-16971 - z-pat-16965 - w-16972 - r-16882 - mod-16883))))))) - (f-16969 e-16879 w-16881)))) - (lambda (xr*-17002 y-pat-17003 r-17004) - (if r-17004 - (if (null? y-pat-17003) - (if (null? xr*-17002) - (match-empty-16847 - (vector-ref p-16880 1) - r-17004) - (combine-16848 xr*-17002 r-17004)) + y-pat-15132 + (match-15018 + e-15139 + z-pat-15133 + w-15140 + r-15050 + mod-15051))))))) + (f-15137 e-15047 w-15049)))) + (lambda (xr*-15170 y-pat-15171 r-15172) + (if r-15172 + (if (null? y-pat-15171) + (if (null? xr*-15170) + (match-empty-15015 + (vector-ref p-15048 1) + r-15172) + (combine-15016 xr*-15170 r-15172)) #f) #f))) - (if (eqv? key-16893 'free-id) - (if (if (symbol? e-16879) + (if (eqv? key-15061 'free-id) + (if (if (symbol? e-15047) #t - (if (if (vector? e-16879) - (if (= (vector-length e-16879) 4) - (eq? (vector-ref e-16879 0) + (if (if (vector? e-15047) + (if (= (vector-length e-15047) 4) + (eq? (vector-ref e-15047 0) 'syntax-object) #f) #f) - (symbol? (vector-ref e-16879 1)) + (symbol? (vector-ref e-15047 1)) #f)) - (if (let ((i-17335 - (wrap-6374 e-16879 w-16881 mod-16883)) - (j-17336 (vector-ref p-16880 1))) - (if (eq? (if (if (vector? i-17335) + (if (let ((i-15503 + (wrap-4323 e-15047 w-15049 mod-15051)) + (j-15504 (vector-ref p-15048 1))) + (if (eq? (if (if (vector? i-15503) (if (= (vector-length - i-17335) + i-15503) 4) - (eq? (vector-ref i-17335 0) + (eq? (vector-ref i-15503 0) 'syntax-object) #f) #f) - (vector-ref i-17335 1) - i-17335) - (if (if (vector? j-17336) + (vector-ref i-15503 1) + i-15503) + (if (if (vector? j-15504) (if (= (vector-length - j-17336) + j-15504) 4) - (eq? (vector-ref j-17336 0) + (eq? (vector-ref j-15504 0) 'syntax-object) #f) #f) - (vector-ref j-17336 1) - j-17336)) - (eq? (id-var-name-6364 i-17335 '(())) - (id-var-name-6364 j-17336 '(()))) + (vector-ref j-15504 1) + j-15504)) + (eq? (id-var-name-4313 i-15503 '(())) + (id-var-name-4313 j-15504 '(()))) #f)) - r-16882 + r-15050 #f) #f) - (if (eqv? key-16893 'atom) + (if (eqv? key-15061 'atom) (if (equal? - (vector-ref p-16880 1) - (strip-6394 e-16879 w-16881)) - r-16882 + (vector-ref p-15048 1) + (strip-4343 e-15047 w-15049)) + r-15050 #f) - (if (eqv? key-16893 'vector) - (if (vector? e-16879) - (match-16850 - (vector->list e-16879) - (vector-ref p-16880 1) - w-16881 - r-16882 - mod-16883) + (if (eqv? key-15061 'vector) + (if (vector? e-15047) + (match-15018 + (vector->list e-15047) + (vector-ref p-15048 1) + w-15049 + r-15050 + mod-15051) #f)))))))))))) - (match-16850 - (lambda (e-17396 p-17397 w-17398 r-17399 mod-17400) - (if (not r-17399) + (match-15018 + (lambda (e-15564 p-15565 w-15566 r-15567 mod-15568) + (if (not r-15567) #f - (if (eq? p-17397 '_) - r-17399 - (if (eq? p-17397 'any) - (cons (wrap-6374 e-17396 w-17398 mod-17400) - r-17399) - (if (if (vector? e-17396) - (if (= (vector-length e-17396) 4) - (eq? (vector-ref e-17396 0) 'syntax-object) + (if (eq? p-15565 '_) + r-15567 + (if (eq? p-15565 'any) + (cons (wrap-4323 e-15564 w-15566 mod-15568) + r-15567) + (if (if (vector? e-15564) + (if (= (vector-length e-15564) 4) + (eq? (vector-ref e-15564 0) 'syntax-object) #f) #f) - (match*-16849 - (vector-ref e-17396 1) - p-17397 - (join-wraps-6361 w-17398 (vector-ref e-17396 2)) - r-17399 - (vector-ref e-17396 3)) - (match*-16849 - e-17396 - p-17397 - w-17398 - r-17399 - mod-17400)))))))) + (match*-15017 + (vector-ref e-15564 1) + p-15565 + (join-wraps-4310 w-15566 (vector-ref e-15564 2)) + r-15567 + (vector-ref e-15564 3)) + (match*-15017 + e-15564 + p-15565 + w-15566 + r-15567 + mod-15568)))))))) (set! $sc-dispatch - (lambda (e-16851 p-16852) - (if (eq? p-16852 'any) - (list e-16851) - (if (eq? p-16852 '_) + (lambda (e-15019 p-15020) + (if (eq? p-15020 'any) + (list e-15019) + (if (eq? p-15020 '_) '() - (if (if (vector? e-16851) - (if (= (vector-length e-16851) 4) - (eq? (vector-ref e-16851 0) 'syntax-object) + (if (if (vector? e-15019) + (if (= (vector-length e-15019) 4) + (eq? (vector-ref e-15019 0) 'syntax-object) #f) #f) - (match*-16849 - (vector-ref e-16851 1) - p-16852 - (vector-ref e-16851 2) + (match*-15017 + (vector-ref e-15019 1) + p-15020 + (vector-ref e-15019 2) '() - (vector-ref e-16851 3)) - (match*-16849 e-16851 p-16852 '(()) '() #f)))))))))) + (vector-ref e-15019 3)) + (match*-15017 e-15019 p-15020 '(()) '() #f)))))))))) (define with-syntax (make-syntax-transformer 'with-syntax 'macro - (lambda (x-29838) - (let ((tmp-29840 - ($sc-dispatch x-29838 '(_ () any . each-any)))) - (if tmp-29840 + (lambda (x-28006) + (let ((tmp-28008 + ($sc-dispatch x-28006 '(_ () any . each-any)))) + (if tmp-28008 (@apply - (lambda (e1-29844 e2-29845) + (lambda (e1-28012 e2-28013) (cons '#(syntax-object let ((top) #(ribcage #(e1 e2) #((top) (top)) - #("l-*-29811" "l-*-29812")) + #("l-*-27979" "l-*-27980")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29808"))) + #(ribcage #(x) #((top)) #("l-*-27976"))) (hygiene guile)) - (cons '() (cons e1-29844 e2-29845)))) - tmp-29840) - (let ((tmp-29846 + (cons '() (cons e1-28012 e2-28013)))) + tmp-28008) + (let ((tmp-28014 ($sc-dispatch - x-29838 + x-28006 '(_ ((any any)) any . each-any)))) - (if tmp-29846 + (if tmp-28014 (@apply - (lambda (out-29850 in-29851 e1-29852 e2-29853) + (lambda (out-28018 in-28019 e1-28020 e2-28021) (list '#(syntax-object syntax-case ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("l-*-29817" - "l-*-29818" - "l-*-29819" - "l-*-29820")) + #("l-*-27985" + "l-*-27986" + "l-*-27987" + "l-*-27988")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29808"))) + #(ribcage #(x) #((top)) #("l-*-27976"))) (hygiene guile)) - in-29851 + in-28019 '() - (list out-29850 + (list out-28018 (cons '#(syntax-object let ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("l-*-29817" - "l-*-29818" - "l-*-29819" - "l-*-29820")) + #("l-*-27985" + "l-*-27986" + "l-*-27987" + "l-*-27988")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29808"))) + #("l-*-27976"))) (hygiene guile)) - (cons '() (cons e1-29852 e2-29853)))))) - tmp-29846) - (let ((tmp-29854 + (cons '() (cons e1-28020 e2-28021)))))) + tmp-28014) + (let ((tmp-28022 ($sc-dispatch - x-29838 + x-28006 '(_ #(each (any any)) any . each-any)))) - (if tmp-29854 + (if tmp-28022 (@apply - (lambda (out-29858 in-29859 e1-29860 e2-29861) + (lambda (out-28026 in-28027 e1-28028 e2-28029) (list '#(syntax-object syntax-case ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("l-*-29827" - "l-*-29828" - "l-*-29829" - "l-*-29830")) + #("l-*-27995" + "l-*-27996" + "l-*-27997" + "l-*-27998")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29808"))) + #(ribcage #(x) #((top)) #("l-*-27976"))) (hygiene guile)) (cons '#(syntax-object list @@ -22346,66 +22299,66 @@ #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("l-*-29827" - "l-*-29828" - "l-*-29829" - "l-*-29830")) + #("l-*-27995" + "l-*-27996" + "l-*-27997" + "l-*-27998")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29808"))) + #(ribcage #(x) #((top)) #("l-*-27976"))) (hygiene guile)) - in-29859) + in-28027) '() - (list out-29858 + (list out-28026 (cons '#(syntax-object let ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("l-*-29827" - "l-*-29828" - "l-*-29829" - "l-*-29830")) + #("l-*-27995" + "l-*-27996" + "l-*-27997" + "l-*-27998")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29808"))) + #("l-*-27976"))) (hygiene guile)) - (cons '() (cons e1-29860 e2-29861)))))) - tmp-29854) + (cons '() (cons e1-28028 e2-28029)))))) + tmp-28022) (syntax-violation #f "source expression failed to match any pattern" - x-29838)))))))))) + x-28006)))))))))) (define syntax-rules (make-syntax-transformer 'syntax-rules 'macro - (lambda (x-29915) - (let ((tmp-29917 + (lambda (x-28083) + (let ((tmp-28085 ($sc-dispatch - x-29915 + x-28083 '(_ each-any . #(each ((any . any) any)))))) - (if tmp-29917 + (if tmp-28085 (@apply - (lambda (k-29921 - keyword-29922 - pattern-29923 - template-29924) + (lambda (k-28089 + keyword-28090 + pattern-28091 + template-28092) (list '#(syntax-object lambda ((top) #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("l-*-29878" - "l-*-29879" - "l-*-29880" - "l-*-29881")) + #("l-*-28046" + "l-*-28047" + "l-*-28048" + "l-*-28049")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29875"))) + #(ribcage #(x) #((top)) #("l-*-28043"))) (hygiene guile)) '(#(syntax-object x @@ -22413,12 +22366,12 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("l-*-29878" - "l-*-29879" - "l-*-29880" - "l-*-29881")) + #("l-*-28046" + "l-*-28047" + "l-*-28048" + "l-*-28049")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29875"))) + #(ribcage #(x) #((top)) #("l-*-28043"))) (hygiene guile))) (vector '(#(syntax-object @@ -22427,12 +22380,12 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("l-*-29878" - "l-*-29879" - "l-*-29880" - "l-*-29881")) + #("l-*-28046" + "l-*-28047" + "l-*-28048" + "l-*-28049")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29875"))) + #(ribcage #(x) #((top)) #("l-*-28043"))) (hygiene guile)) . #(syntax-object @@ -22441,12 +22394,12 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("l-*-29878" - "l-*-29879" - "l-*-29880" - "l-*-29881")) + #("l-*-28046" + "l-*-28047" + "l-*-28048" + "l-*-28049")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29875"))) + #(ribcage #(x) #((top)) #("l-*-28043"))) (hygiene guile))) (cons '#(syntax-object patterns @@ -22454,26 +22407,26 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("l-*-29878" - "l-*-29879" - "l-*-29880" - "l-*-29881")) + #("l-*-28046" + "l-*-28047" + "l-*-28048" + "l-*-28049")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29875"))) + #(ribcage #(x) #((top)) #("l-*-28043"))) (hygiene guile)) - pattern-29923)) + pattern-28091)) (cons '#(syntax-object syntax-case ((top) #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("l-*-29878" - "l-*-29879" - "l-*-29880" - "l-*-29881")) + #("l-*-28046" + "l-*-28047" + "l-*-28048" + "l-*-28049")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29875"))) + #(ribcage #(x) #((top)) #("l-*-28043"))) (hygiene guile)) (cons '#(syntax-object x @@ -22481,16 +22434,16 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("l-*-29878" - "l-*-29879" - "l-*-29880" - "l-*-29881")) + #("l-*-28046" + "l-*-28047" + "l-*-28048" + "l-*-28049")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29875"))) + #(ribcage #(x) #((top)) #("l-*-28043"))) (hygiene guile)) - (cons k-29921 - (map (lambda (tmp-29889-29925 - tmp-29888-29926) + (cons k-28089 + (map (lambda (tmp-28057-28093 + tmp-28056-28094) (list (cons '#(syntax-object dummy ((top) @@ -22503,10 +22456,10 @@ (top) (top) (top)) - #("l-*-29878" - "l-*-29879" - "l-*-29880" - "l-*-29881")) + #("l-*-28046" + "l-*-28047" + "l-*-28048" + "l-*-28049")) #(ribcage () () @@ -22514,9 +22467,9 @@ #(ribcage #(x) #((top)) - #("l-*-29875"))) + #("l-*-28043"))) (hygiene guile)) - tmp-29888-29926) + tmp-28056-28094) (list '#(syntax-object syntax ((top) @@ -22529,10 +22482,10 @@ (top) (top) (top)) - #("l-*-29878" - "l-*-29879" - "l-*-29880" - "l-*-29881")) + #("l-*-28046" + "l-*-28047" + "l-*-28048" + "l-*-28049")) #(ribcage () () @@ -22540,45 +22493,45 @@ #(ribcage #(x) #((top)) - #("l-*-29875"))) + #("l-*-28043"))) (hygiene guile)) - tmp-29889-29925))) - template-29924 - pattern-29923)))))) - tmp-29917) - (let ((tmp-29927 + tmp-28057-28093))) + template-28092 + pattern-28091)))))) + tmp-28085) + (let ((tmp-28095 ($sc-dispatch - x-29915 + x-28083 '(_ each-any any . #(each ((any . any) any)))))) - (if (if tmp-29927 + (if (if tmp-28095 (@apply - (lambda (k-29931 - docstring-29932 - keyword-29933 - pattern-29934 - template-29935) - (string? (syntax->datum docstring-29932))) - tmp-29927) + (lambda (k-28099 + docstring-28100 + keyword-28101 + pattern-28102 + template-28103) + (string? (syntax->datum docstring-28100))) + tmp-28095) #f) (@apply - (lambda (k-29936 - docstring-29937 - keyword-29938 - pattern-29939 - template-29940) + (lambda (k-28104 + docstring-28105 + keyword-28106 + pattern-28107 + template-28108) (list '#(syntax-object lambda ((top) #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("l-*-29901" - "l-*-29902" - "l-*-29903" - "l-*-29904" - "l-*-29905")) + #("l-*-28069" + "l-*-28070" + "l-*-28071" + "l-*-28072" + "l-*-28073")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29875"))) + #(ribcage #(x) #((top)) #("l-*-28043"))) (hygiene guile)) '(#(syntax-object x @@ -22586,15 +22539,15 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("l-*-29901" - "l-*-29902" - "l-*-29903" - "l-*-29904" - "l-*-29905")) + #("l-*-28069" + "l-*-28070" + "l-*-28071" + "l-*-28072" + "l-*-28073")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29875"))) + #(ribcage #(x) #((top)) #("l-*-28043"))) (hygiene guile))) - docstring-29937 + docstring-28105 (vector '(#(syntax-object macro-type @@ -22602,13 +22555,13 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("l-*-29901" - "l-*-29902" - "l-*-29903" - "l-*-29904" - "l-*-29905")) + #("l-*-28069" + "l-*-28070" + "l-*-28071" + "l-*-28072" + "l-*-28073")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29875"))) + #(ribcage #(x) #((top)) #("l-*-28043"))) (hygiene guile)) . #(syntax-object @@ -22617,13 +22570,13 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("l-*-29901" - "l-*-29902" - "l-*-29903" - "l-*-29904" - "l-*-29905")) + #("l-*-28069" + "l-*-28070" + "l-*-28071" + "l-*-28072" + "l-*-28073")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29875"))) + #(ribcage #(x) #((top)) #("l-*-28043"))) (hygiene guile))) (cons '#(syntax-object patterns @@ -22631,28 +22584,28 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("l-*-29901" - "l-*-29902" - "l-*-29903" - "l-*-29904" - "l-*-29905")) + #("l-*-28069" + "l-*-28070" + "l-*-28071" + "l-*-28072" + "l-*-28073")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29875"))) + #(ribcage #(x) #((top)) #("l-*-28043"))) (hygiene guile)) - pattern-29939)) + pattern-28107)) (cons '#(syntax-object syntax-case ((top) #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("l-*-29901" - "l-*-29902" - "l-*-29903" - "l-*-29904" - "l-*-29905")) + #("l-*-28069" + "l-*-28070" + "l-*-28071" + "l-*-28072" + "l-*-28073")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29875"))) + #(ribcage #(x) #((top)) #("l-*-28043"))) (hygiene guile)) (cons '#(syntax-object x @@ -22664,20 +22617,20 @@ pattern template) #((top) (top) (top) (top) (top)) - #("l-*-29901" - "l-*-29902" - "l-*-29903" - "l-*-29904" - "l-*-29905")) + #("l-*-28069" + "l-*-28070" + "l-*-28071" + "l-*-28072" + "l-*-28073")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29875"))) + #("l-*-28043"))) (hygiene guile)) - (cons k-29936 - (map (lambda (tmp-29914-29941 - tmp-29913-29942) + (cons k-28104 + (map (lambda (tmp-28082-28109 + tmp-28081-28110) (list (cons '#(syntax-object dummy ((top) @@ -22692,11 +22645,11 @@ (top) (top) (top)) - #("l-*-29901" - "l-*-29902" - "l-*-29903" - "l-*-29904" - "l-*-29905")) + #("l-*-28069" + "l-*-28070" + "l-*-28071" + "l-*-28072" + "l-*-28073")) #(ribcage () () @@ -22704,10 +22657,10 @@ #(ribcage #(x) #((top)) - #("l-*-29875"))) + #("l-*-28043"))) (hygiene guile)) - tmp-29913-29942) + tmp-28081-28110) (list '#(syntax-object syntax ((top) @@ -22722,11 +22675,11 @@ (top) (top) (top)) - #("l-*-29901" - "l-*-29902" - "l-*-29903" - "l-*-29904" - "l-*-29905")) + #("l-*-28069" + "l-*-28070" + "l-*-28071" + "l-*-28072" + "l-*-28073")) #(ribcage () () @@ -22734,48 +22687,48 @@ #(ribcage #(x) #((top)) - #("l-*-29875"))) + #("l-*-28043"))) (hygiene guile)) - tmp-29914-29941))) - template-29940 - pattern-29939)))))) - tmp-29927) + tmp-28082-28109))) + template-28108 + pattern-28107)))))) + tmp-28095) (syntax-violation #f "source expression failed to match any pattern" - x-29915)))))))) + x-28083)))))))) (define define-syntax-rule (make-syntax-transformer 'define-syntax-rule 'macro - (lambda (x-29979) - (let ((tmp-29981 - ($sc-dispatch x-29979 '(_ (any . any) any)))) - (if tmp-29981 + (lambda (x-28147) + (let ((tmp-28149 + ($sc-dispatch x-28147 '(_ (any . any) any)))) + (if tmp-28149 (@apply - (lambda (name-29985 pattern-29986 template-29987) + (lambda (name-28153 pattern-28154 template-28155) (list '#(syntax-object define-syntax ((top) #(ribcage #(name pattern template) #((top) (top) (top)) - #("l-*-29956" "l-*-29957" "l-*-29958")) + #("l-*-28124" "l-*-28125" "l-*-28126")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29953"))) + #(ribcage #(x) #((top)) #("l-*-28121"))) (hygiene guile)) - name-29985 + name-28153 (list '#(syntax-object syntax-rules ((top) #(ribcage #(name pattern template) #((top) (top) (top)) - #("l-*-29956" "l-*-29957" "l-*-29958")) + #("l-*-28124" "l-*-28125" "l-*-28126")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29953"))) + #(ribcage #(x) #((top)) #("l-*-28121"))) (hygiene guile)) '() (list (cons '#(syntax-object @@ -22784,63 +22737,63 @@ #(ribcage #(name pattern template) #((top) (top) (top)) - #("l-*-29956" - "l-*-29957" - "l-*-29958")) + #("l-*-28124" + "l-*-28125" + "l-*-28126")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29953"))) + #("l-*-28121"))) (hygiene guile)) - pattern-29986) - template-29987)))) - tmp-29981) - (let ((tmp-29988 - ($sc-dispatch x-29979 '(_ (any . any) any any)))) - (if (if tmp-29988 + pattern-28154) + template-28155)))) + tmp-28149) + (let ((tmp-28156 + ($sc-dispatch x-28147 '(_ (any . any) any any)))) + (if (if tmp-28156 (@apply - (lambda (name-29992 - pattern-29993 - docstring-29994 - template-29995) - (string? (syntax->datum docstring-29994))) - tmp-29988) + (lambda (name-28160 + pattern-28161 + docstring-28162 + template-28163) + (string? (syntax->datum docstring-28162))) + tmp-28156) #f) (@apply - (lambda (name-29996 - pattern-29997 - docstring-29998 - template-29999) + (lambda (name-28164 + pattern-28165 + docstring-28166 + template-28167) (list '#(syntax-object define-syntax ((top) #(ribcage #(name pattern docstring template) #((top) (top) (top) (top)) - #("l-*-29971" - "l-*-29972" - "l-*-29973" - "l-*-29974")) + #("l-*-28139" + "l-*-28140" + "l-*-28141" + "l-*-28142")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29953"))) + #(ribcage #(x) #((top)) #("l-*-28121"))) (hygiene guile)) - name-29996 + name-28164 (list '#(syntax-object syntax-rules ((top) #(ribcage #(name pattern docstring template) #((top) (top) (top) (top)) - #("l-*-29971" - "l-*-29972" - "l-*-29973" - "l-*-29974")) + #("l-*-28139" + "l-*-28140" + "l-*-28141" + "l-*-28142")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29953"))) + #(ribcage #(x) #((top)) #("l-*-28121"))) (hygiene guile)) '() - docstring-29998 + docstring-28166 (list (cons '#(syntax-object _ ((top) @@ -22850,45 +22803,45 @@ docstring template) #((top) (top) (top) (top)) - #("l-*-29971" - "l-*-29972" - "l-*-29973" - "l-*-29974")) + #("l-*-28139" + "l-*-28140" + "l-*-28141" + "l-*-28142")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29953"))) + #("l-*-28121"))) (hygiene guile)) - pattern-29997) - template-29999)))) - tmp-29988) + pattern-28165) + template-28167)))) + tmp-28156) (syntax-violation #f "source expression failed to match any pattern" - x-29979)))))))) + x-28147)))))))) (define let* (make-syntax-transformer 'let* 'macro - (lambda (x-30048) - (let ((tmp-30050 + (lambda (x-28216) + (let ((tmp-28218 ($sc-dispatch - x-30048 + x-28216 '(any #(each (any any)) any . each-any)))) - (if (if tmp-30050 + (if (if tmp-28218 (@apply - (lambda (let*-30054 x-30055 v-30056 e1-30057 e2-30058) - (and-map identifier? x-30055)) - tmp-30050) + (lambda (let*-28222 x-28223 v-28224 e1-28225 e2-28226) + (and-map identifier? x-28223)) + tmp-28218) #f) (@apply - (lambda (let*-30059 x-30060 v-30061 e1-30062 e2-30063) + (lambda (let*-28227 x-28228 v-28229 e1-28230 e2-28231) (letrec* - ((f-30064 - (lambda (bindings-30067) - (if (null? bindings-30067) + ((f-28232 + (lambda (bindings-28235) + (if (null? bindings-28235) (cons '#(syntax-object let ((top) @@ -22896,26 +22849,26 @@ #(ribcage #(f bindings) #((top) (top)) - #("l-*-30034" "l-*-30035")) + #("l-*-28202" "l-*-28203")) #(ribcage #(let* x v e1 e2) #((top) (top) (top) (top) (top)) - #("l-*-30024" - "l-*-30025" - "l-*-30026" - "l-*-30027" - "l-*-30028")) + #("l-*-28192" + "l-*-28193" + "l-*-28194" + "l-*-28195" + "l-*-28196")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-30010"))) + #(ribcage #(x) #((top)) #("l-*-28178"))) (hygiene guile)) - (cons '() (cons e1-30062 e2-30063))) - (let ((tmp-30068 - (list (f-30064 (cdr bindings-30067)) - (car bindings-30067)))) - (let ((tmp-30069 ($sc-dispatch tmp-30068 '(any any)))) - (if tmp-30069 + (cons '() (cons e1-28230 e2-28231))) + (let ((tmp-28236 + (list (f-28232 (cdr bindings-28235)) + (car bindings-28235)))) + (let ((tmp-28237 ($sc-dispatch tmp-28236 '(any any)))) + (if tmp-28237 (@apply - (lambda (body-30071 binding-30072) + (lambda (body-28239 binding-28240) (list '#(syntax-object let ((top) @@ -22923,84 +22876,84 @@ #(ribcage #(body binding) #((top) (top)) - #("l-*-30044" "l-*-30045")) + #("l-*-28212" "l-*-28213")) #(ribcage () () ()) #(ribcage #(f bindings) #((top) (top)) - #("l-*-30034" "l-*-30035")) + #("l-*-28202" "l-*-28203")) #(ribcage #(let* x v e1 e2) #((top) (top) (top) (top) (top)) - #("l-*-30024" - "l-*-30025" - "l-*-30026" - "l-*-30027" - "l-*-30028")) + #("l-*-28192" + "l-*-28193" + "l-*-28194" + "l-*-28195" + "l-*-28196")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-30010"))) + #("l-*-28178"))) (hygiene guile)) - (list binding-30072) - body-30071)) - tmp-30069) + (list binding-28240) + body-28239)) + tmp-28237) (syntax-violation #f "source expression failed to match any pattern" - tmp-30068)))))))) - (f-30064 (map list x-30060 v-30061)))) - tmp-30050) + tmp-28236)))))))) + (f-28232 (map list x-28228 v-28229)))) + tmp-28218) (syntax-violation #f "source expression failed to match any pattern" - x-30048)))))) + x-28216)))))) (define do (make-syntax-transformer 'do 'macro - (lambda (orig-x-30130) - (let ((tmp-30132 + (lambda (orig-x-28298) + (let ((tmp-28300 ($sc-dispatch - orig-x-30130 + orig-x-28298 '(_ #(each (any any . any)) (any . each-any) . each-any)))) - (if tmp-30132 + (if tmp-28300 (@apply - (lambda (var-30136 - init-30137 - step-30138 - e0-30139 - e1-30140 - c-30141) - (let ((tmp-30142 - (map (lambda (v-30145 s-30146) - (let ((tmp-30148 ($sc-dispatch s-30146 '()))) - (if tmp-30148 - (@apply (lambda () v-30145) tmp-30148) - (let ((tmp-30151 - ($sc-dispatch s-30146 '(any)))) - (if tmp-30151 + (lambda (var-28304 + init-28305 + step-28306 + e0-28307 + e1-28308 + c-28309) + (let ((tmp-28310 + (map (lambda (v-28313 s-28314) + (let ((tmp-28316 ($sc-dispatch s-28314 '()))) + (if tmp-28316 + (@apply (lambda () v-28313) tmp-28316) + (let ((tmp-28319 + ($sc-dispatch s-28314 '(any)))) + (if tmp-28319 (@apply - (lambda (e-30154) e-30154) - tmp-30151) + (lambda (e-28322) e-28322) + tmp-28319) (syntax-violation 'do "bad step expression" - orig-x-30130 - s-30146)))))) - var-30136 - step-30138))) - (let ((tmp-30143 ($sc-dispatch tmp-30142 'each-any))) - (if tmp-30143 + orig-x-28298 + s-28314)))))) + var-28304 + step-28306))) + (let ((tmp-28311 ($sc-dispatch tmp-28310 'each-any))) + (if tmp-28311 (@apply - (lambda (step-30160) - (let ((tmp-30162 ($sc-dispatch e1-30140 '()))) - (if tmp-30162 + (lambda (step-28328) + (let ((tmp-28330 ($sc-dispatch e1-28308 '()))) + (if tmp-28330 (@apply (lambda () (list '#(syntax-object @@ -23010,7 +22963,7 @@ #(ribcage #(step) #((top)) - #("l-*-30098")) + #("l-*-28266")) #(ribcage #(var init step e0 e1 c) #((top) @@ -23019,17 +22972,17 @@ (top) (top) (top)) - #("l-*-30083" - "l-*-30084" - "l-*-30085" - "l-*-30086" - "l-*-30087" - "l-*-30088")) + #("l-*-28251" + "l-*-28252" + "l-*-28253" + "l-*-28254" + "l-*-28255" + "l-*-28256")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("l-*-30080"))) + #("l-*-28248"))) (hygiene guile)) '#(syntax-object doloop @@ -23038,7 +22991,7 @@ #(ribcage #(step) #((top)) - #("l-*-30098")) + #("l-*-28266")) #(ribcage #(var init step e0 e1 c) #((top) @@ -23047,19 +23000,19 @@ (top) (top) (top)) - #("l-*-30083" - "l-*-30084" - "l-*-30085" - "l-*-30086" - "l-*-30087" - "l-*-30088")) + #("l-*-28251" + "l-*-28252" + "l-*-28253" + "l-*-28254" + "l-*-28255" + "l-*-28256")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("l-*-30080"))) + #("l-*-28248"))) (hygiene guile)) - (map list var-30136 init-30137) + (map list var-28304 init-28305) (list '#(syntax-object if ((top) @@ -23067,7 +23020,7 @@ #(ribcage #(step) #((top)) - #("l-*-30098")) + #("l-*-28266")) #(ribcage #(var init step e0 e1 c) #((top) @@ -23076,17 +23029,17 @@ (top) (top) (top)) - #("l-*-30083" - "l-*-30084" - "l-*-30085" - "l-*-30086" - "l-*-30087" - "l-*-30088")) + #("l-*-28251" + "l-*-28252" + "l-*-28253" + "l-*-28254" + "l-*-28255" + "l-*-28256")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("l-*-30080"))) + #("l-*-28248"))) (hygiene guile)) (list '#(syntax-object not @@ -23095,7 +23048,7 @@ #(ribcage #(step) #((top)) - #("l-*-30098")) + #("l-*-28266")) #(ribcage #(var init @@ -23109,19 +23062,19 @@ (top) (top) (top)) - #("l-*-30083" - "l-*-30084" - "l-*-30085" - "l-*-30086" - "l-*-30087" - "l-*-30088")) + #("l-*-28251" + "l-*-28252" + "l-*-28253" + "l-*-28254" + "l-*-28255" + "l-*-28256")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("l-*-30080"))) + #("l-*-28248"))) (hygiene guile)) - e0-30139) + e0-28307) (cons '#(syntax-object begin ((top) @@ -23129,7 +23082,7 @@ #(ribcage #(step) #((top)) - #("l-*-30098")) + #("l-*-28266")) #(ribcage #(var init @@ -23143,20 +23096,20 @@ (top) (top) (top)) - #("l-*-30083" - "l-*-30084" - "l-*-30085" - "l-*-30086" - "l-*-30087" - "l-*-30088")) + #("l-*-28251" + "l-*-28252" + "l-*-28253" + "l-*-28254" + "l-*-28255" + "l-*-28256")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("l-*-30080"))) + #("l-*-28248"))) (hygiene guile)) (append - c-30141 + c-28309 (list (cons '#(syntax-object doloop ((top) @@ -23167,7 +23120,7 @@ #(ribcage #(step) #((top)) - #("l-*-30098")) + #("l-*-28266")) #(ribcage #(var init @@ -23181,12 +23134,12 @@ (top) (top) (top)) - #("l-*-30083" - "l-*-30084" - "l-*-30085" - "l-*-30086" - "l-*-30087" - "l-*-30088")) + #("l-*-28251" + "l-*-28252" + "l-*-28253" + "l-*-28254" + "l-*-28255" + "l-*-28256")) #(ribcage () () @@ -23194,28 +23147,28 @@ #(ribcage #(orig-x) #((top)) - #("l-*-30080"))) + #("l-*-28248"))) (hygiene guile)) - step-30160))))))) - tmp-30162) - (let ((tmp-30166 - ($sc-dispatch e1-30140 '(any . each-any)))) - (if tmp-30166 + step-28328))))))) + tmp-28330) + (let ((tmp-28334 + ($sc-dispatch e1-28308 '(any . each-any)))) + (if tmp-28334 (@apply - (lambda (e1-30170 e2-30171) + (lambda (e1-28338 e2-28339) (list '#(syntax-object let ((top) #(ribcage #(e1 e2) #((top) (top)) - #("l-*-30107" "l-*-30108")) + #("l-*-28275" "l-*-28276")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("l-*-30098")) + #("l-*-28266")) #(ribcage #(var init step e0 e1 c) #((top) @@ -23224,17 +23177,17 @@ (top) (top) (top)) - #("l-*-30083" - "l-*-30084" - "l-*-30085" - "l-*-30086" - "l-*-30087" - "l-*-30088")) + #("l-*-28251" + "l-*-28252" + "l-*-28253" + "l-*-28254" + "l-*-28255" + "l-*-28256")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("l-*-30080"))) + #("l-*-28248"))) (hygiene guile)) '#(syntax-object doloop @@ -23242,12 +23195,12 @@ #(ribcage #(e1 e2) #((top) (top)) - #("l-*-30107" "l-*-30108")) + #("l-*-28275" "l-*-28276")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("l-*-30098")) + #("l-*-28266")) #(ribcage #(var init step e0 e1 c) #((top) @@ -23256,32 +23209,32 @@ (top) (top) (top)) - #("l-*-30083" - "l-*-30084" - "l-*-30085" - "l-*-30086" - "l-*-30087" - "l-*-30088")) + #("l-*-28251" + "l-*-28252" + "l-*-28253" + "l-*-28254" + "l-*-28255" + "l-*-28256")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("l-*-30080"))) + #("l-*-28248"))) (hygiene guile)) - (map list var-30136 init-30137) + (map list var-28304 init-28305) (list '#(syntax-object if ((top) #(ribcage #(e1 e2) #((top) (top)) - #("l-*-30107" - "l-*-30108")) + #("l-*-28275" + "l-*-28276")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("l-*-30098")) + #("l-*-28266")) #(ribcage #(var init step e0 e1 c) #((top) @@ -23290,32 +23243,32 @@ (top) (top) (top)) - #("l-*-30083" - "l-*-30084" - "l-*-30085" - "l-*-30086" - "l-*-30087" - "l-*-30088")) + #("l-*-28251" + "l-*-28252" + "l-*-28253" + "l-*-28254" + "l-*-28255" + "l-*-28256")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("l-*-30080"))) + #("l-*-28248"))) (hygiene guile)) - e0-30139 + e0-28307 (cons '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) - #("l-*-30107" - "l-*-30108")) + #("l-*-28275" + "l-*-28276")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("l-*-30098")) + #("l-*-28266")) #(ribcage #(var init @@ -23329,32 +23282,32 @@ (top) (top) (top)) - #("l-*-30083" - "l-*-30084" - "l-*-30085" - "l-*-30086" - "l-*-30087" - "l-*-30088")) + #("l-*-28251" + "l-*-28252" + "l-*-28253" + "l-*-28254" + "l-*-28255" + "l-*-28256")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("l-*-30080"))) + #("l-*-28248"))) (hygiene guile)) - (cons e1-30170 e2-30171)) + (cons e1-28338 e2-28339)) (cons '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) - #("l-*-30107" - "l-*-30108")) + #("l-*-28275" + "l-*-28276")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("l-*-30098")) + #("l-*-28266")) #(ribcage #(var init @@ -23368,20 +23321,20 @@ (top) (top) (top)) - #("l-*-30083" - "l-*-30084" - "l-*-30085" - "l-*-30086" - "l-*-30087" - "l-*-30088")) + #("l-*-28251" + "l-*-28252" + "l-*-28253" + "l-*-28254" + "l-*-28255" + "l-*-28256")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("l-*-30080"))) + #("l-*-28248"))) (hygiene guile)) (append - c-30141 + c-28309 (list (cons '#(syntax-object doloop ((top) @@ -23390,8 +23343,8 @@ e2) #((top) (top)) - #("l-*-30107" - "l-*-30108")) + #("l-*-28275" + "l-*-28276")) #(ribcage () () @@ -23399,7 +23352,7 @@ #(ribcage #(step) #((top)) - #("l-*-30098")) + #("l-*-28266")) #(ribcage #(var init @@ -23413,12 +23366,12 @@ (top) (top) (top)) - #("l-*-30083" - "l-*-30084" - "l-*-30085" - "l-*-30086" - "l-*-30087" - "l-*-30088")) + #("l-*-28251" + "l-*-28252" + "l-*-28253" + "l-*-28254" + "l-*-28255" + "l-*-28256")) #(ribcage () () @@ -23426,36 +23379,36 @@ #(ribcage #(orig-x) #((top)) - #("l-*-30080"))) + #("l-*-28248"))) (hygiene guile)) - step-30160))))))) - tmp-30166) + step-28328))))))) + tmp-28334) (syntax-violation #f "source expression failed to match any pattern" - e1-30140)))))) - tmp-30143) + e1-28308)))))) + tmp-28311) (syntax-violation #f "source expression failed to match any pattern" - tmp-30142))))) - tmp-30132) + tmp-28310))))) + tmp-28300) (syntax-violation #f "source expression failed to match any pattern" - orig-x-30130)))))) + orig-x-28298)))))) (define quasiquote (make-syntax-transformer 'quasiquote 'macro (letrec* - ((quasi-30451 - (lambda (p-30475 lev-30476) - (let ((tmp-30478 + ((quasi-28619 + (lambda (p-28643 lev-28644) + (let ((tmp-28646 ($sc-dispatch - p-30475 + p-28643 '(#(free-id #(syntax-object unquote @@ -23464,7 +23417,7 @@ #(ribcage #(p lev) #((top) (top)) - #("l-*-30203" "l-*-30204")) + #("l-*-28371" "l-*-28372")) #(ribcage (emit quasivector quasilist* @@ -23473,28 +23426,28 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("l-*-30199" - "l-*-30197" - "l-*-30195" - "l-*-30193" - "l-*-30191" - "l-*-30189" - "l-*-30187"))) + ("l-*-28367" + "l-*-28365" + "l-*-28363" + "l-*-28361" + "l-*-28359" + "l-*-28357" + "l-*-28355"))) (hygiene guile))) any)))) - (if tmp-30478 + (if tmp-28646 (@apply - (lambda (p-30482) - (if (= lev-30476 0) + (lambda (p-28650) + (if (= lev-28644 0) (list '#(syntax-object "value" ((top) - #(ribcage #(p) #((top)) #("l-*-30207")) + #(ribcage #(p) #((top)) #("l-*-28375")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-30203" "l-*-30204")) + #("l-*-28371" "l-*-28372")) #(ribcage (emit quasivector quasilist* @@ -23503,25 +23456,25 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("l-*-30199" - "l-*-30197" - "l-*-30195" - "l-*-30193" - "l-*-30191" - "l-*-30189" - "l-*-30187"))) + ("l-*-28367" + "l-*-28365" + "l-*-28363" + "l-*-28361" + "l-*-28359" + "l-*-28357" + "l-*-28355"))) (hygiene guile)) - p-30482) - (quasicons-30453 + p-28650) + (quasicons-28621 '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("l-*-30207")) + #(ribcage #(p) #((top)) #("l-*-28375")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-30203" "l-*-30204")) + #("l-*-28371" "l-*-28372")) #(ribcage (emit quasivector quasilist* @@ -23530,23 +23483,23 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("l-*-30199" - "l-*-30197" - "l-*-30195" - "l-*-30193" - "l-*-30191" - "l-*-30189" - "l-*-30187"))) + ("l-*-28367" + "l-*-28365" + "l-*-28363" + "l-*-28361" + "l-*-28359" + "l-*-28357" + "l-*-28355"))) (hygiene guile)) #(syntax-object unquote ((top) - #(ribcage #(p) #((top)) #("l-*-30207")) + #(ribcage #(p) #((top)) #("l-*-28375")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-30203" "l-*-30204")) + #("l-*-28371" "l-*-28372")) #(ribcage (emit quasivector quasilist* @@ -23555,19 +23508,19 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("l-*-30199" - "l-*-30197" - "l-*-30195" - "l-*-30193" - "l-*-30191" - "l-*-30189" - "l-*-30187"))) + ("l-*-28367" + "l-*-28365" + "l-*-28363" + "l-*-28361" + "l-*-28359" + "l-*-28357" + "l-*-28355"))) (hygiene guile))) - (quasi-30451 (list p-30482) (#{1-}# lev-30476))))) - tmp-30478) - (let ((tmp-30485 + (quasi-28619 (list p-28650) (#{1-}# lev-28644))))) + tmp-28646) + (let ((tmp-28653 ($sc-dispatch - p-30475 + p-28643 '(#(free-id #(syntax-object quasiquote @@ -23576,7 +23529,7 @@ #(ribcage #(p lev) #((top) (top)) - #("l-*-30203" "l-*-30204")) + #("l-*-28371" "l-*-28372")) #(ribcage (emit quasivector quasilist* @@ -23585,28 +23538,28 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("l-*-30199" - "l-*-30197" - "l-*-30195" - "l-*-30193" - "l-*-30191" - "l-*-30189" - "l-*-30187"))) + ("l-*-28367" + "l-*-28365" + "l-*-28363" + "l-*-28361" + "l-*-28359" + "l-*-28357" + "l-*-28355"))) (hygiene guile))) any)))) - (if tmp-30485 + (if tmp-28653 (@apply - (lambda (p-30489) - (quasicons-30453 + (lambda (p-28657) + (quasicons-28621 '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("l-*-30210")) + #(ribcage #(p) #((top)) #("l-*-28378")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-30203" "l-*-30204")) + #("l-*-28371" "l-*-28372")) #(ribcage (emit quasivector quasilist* @@ -23615,23 +23568,23 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("l-*-30199" - "l-*-30197" - "l-*-30195" - "l-*-30193" - "l-*-30191" - "l-*-30189" - "l-*-30187"))) + ("l-*-28367" + "l-*-28365" + "l-*-28363" + "l-*-28361" + "l-*-28359" + "l-*-28357" + "l-*-28355"))) (hygiene guile)) #(syntax-object quasiquote ((top) - #(ribcage #(p) #((top)) #("l-*-30210")) + #(ribcage #(p) #((top)) #("l-*-28378")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-30203" "l-*-30204")) + #("l-*-28371" "l-*-28372")) #(ribcage (emit quasivector quasilist* @@ -23640,23 +23593,23 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("l-*-30199" - "l-*-30197" - "l-*-30195" - "l-*-30193" - "l-*-30191" - "l-*-30189" - "l-*-30187"))) + ("l-*-28367" + "l-*-28365" + "l-*-28363" + "l-*-28361" + "l-*-28359" + "l-*-28357" + "l-*-28355"))) (hygiene guile))) - (quasi-30451 (list p-30489) (#{1+}# lev-30476)))) - tmp-30485) - (let ((tmp-30492 ($sc-dispatch p-30475 '(any . any)))) - (if tmp-30492 + (quasi-28619 (list p-28657) (#{1+}# lev-28644)))) + tmp-28653) + (let ((tmp-28660 ($sc-dispatch p-28643 '(any . any)))) + (if tmp-28660 (@apply - (lambda (p-30496 q-30497) - (let ((tmp-30499 + (lambda (p-28664 q-28665) + (let ((tmp-28667 ($sc-dispatch - p-30496 + p-28664 '(#(free-id #(syntax-object unquote @@ -23664,12 +23617,12 @@ #(ribcage #(p q) #((top) (top)) - #("l-*-30213" "l-*-30214")) + #("l-*-28381" "l-*-28382")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-30203" "l-*-30204")) + #("l-*-28371" "l-*-28372")) #(ribcage (emit quasivector quasilist* @@ -23684,40 +23637,40 @@ (top) (top) (top)) - ("l-*-30199" - "l-*-30197" - "l-*-30195" - "l-*-30193" - "l-*-30191" - "l-*-30189" - "l-*-30187"))) + ("l-*-28367" + "l-*-28365" + "l-*-28363" + "l-*-28361" + "l-*-28359" + "l-*-28357" + "l-*-28355"))) (hygiene guile))) . each-any)))) - (if tmp-30499 + (if tmp-28667 (@apply - (lambda (p-30503) - (if (= lev-30476 0) - (quasilist*-30455 - (map (lambda (tmp-30221-30539) + (lambda (p-28671) + (if (= lev-28644 0) + (quasilist*-28623 + (map (lambda (tmp-28389-28707) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("l-*-30219")) + #("l-*-28387")) #(ribcage #(p q) #((top) (top)) - #("l-*-30213" - "l-*-30214")) + #("l-*-28381" + "l-*-28382")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-30203" - "l-*-30204")) + #("l-*-28371" + "l-*-28372")) #(ribcage (emit quasivector quasilist* @@ -23732,35 +23685,35 @@ (top) (top) (top)) - ("l-*-30199" - "l-*-30197" - "l-*-30195" - "l-*-30193" - "l-*-30191" - "l-*-30189" - "l-*-30187"))) + ("l-*-28367" + "l-*-28365" + "l-*-28363" + "l-*-28361" + "l-*-28359" + "l-*-28357" + "l-*-28355"))) (hygiene guile)) - tmp-30221-30539)) - p-30503) - (quasi-30451 q-30497 lev-30476)) - (quasicons-30453 - (quasicons-30453 + tmp-28389-28707)) + p-28671) + (quasi-28619 q-28665 lev-28644)) + (quasicons-28621 + (quasicons-28621 '(#(syntax-object "quote" ((top) #(ribcage #(p) #((top)) - #("l-*-30219")) + #("l-*-28387")) #(ribcage #(p q) #((top) (top)) - #("l-*-30213" "l-*-30214")) + #("l-*-28381" "l-*-28382")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-30203" "l-*-30204")) + #("l-*-28371" "l-*-28372")) #(ribcage (emit quasivector quasilist* @@ -23775,13 +23728,13 @@ (top) (top) (top)) - ("l-*-30199" - "l-*-30197" - "l-*-30195" - "l-*-30193" - "l-*-30191" - "l-*-30189" - "l-*-30187"))) + ("l-*-28367" + "l-*-28365" + "l-*-28363" + "l-*-28361" + "l-*-28359" + "l-*-28357" + "l-*-28355"))) (hygiene guile)) #(syntax-object unquote @@ -23789,16 +23742,16 @@ #(ribcage #(p) #((top)) - #("l-*-30219")) + #("l-*-28387")) #(ribcage #(p q) #((top) (top)) - #("l-*-30213" "l-*-30214")) + #("l-*-28381" "l-*-28382")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-30203" "l-*-30204")) + #("l-*-28371" "l-*-28372")) #(ribcage (emit quasivector quasilist* @@ -23813,22 +23766,22 @@ (top) (top) (top)) - ("l-*-30199" - "l-*-30197" - "l-*-30195" - "l-*-30193" - "l-*-30191" - "l-*-30189" - "l-*-30187"))) + ("l-*-28367" + "l-*-28365" + "l-*-28363" + "l-*-28361" + "l-*-28359" + "l-*-28357" + "l-*-28355"))) (hygiene guile))) - (quasi-30451 - p-30503 - (#{1-}# lev-30476))) - (quasi-30451 q-30497 lev-30476)))) - tmp-30499) - (let ((tmp-30544 + (quasi-28619 + p-28671 + (#{1-}# lev-28644))) + (quasi-28619 q-28665 lev-28644)))) + tmp-28667) + (let ((tmp-28712 ($sc-dispatch - p-30496 + p-28664 '(#(free-id #(syntax-object unquote-splicing @@ -23836,12 +23789,12 @@ #(ribcage #(p q) #((top) (top)) - #("l-*-30213" "l-*-30214")) + #("l-*-28381" "l-*-28382")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-30203" "l-*-30204")) + #("l-*-28371" "l-*-28372")) #(ribcage (emit quasivector quasilist* @@ -23856,40 +23809,40 @@ (top) (top) (top)) - ("l-*-30199" - "l-*-30197" - "l-*-30195" - "l-*-30193" - "l-*-30191" - "l-*-30189" - "l-*-30187"))) + ("l-*-28367" + "l-*-28365" + "l-*-28363" + "l-*-28361" + "l-*-28359" + "l-*-28357" + "l-*-28355"))) (hygiene guile))) . each-any)))) - (if tmp-30544 + (if tmp-28712 (@apply - (lambda (p-30548) - (if (= lev-30476 0) - (quasiappend-30454 - (map (lambda (tmp-30226-30551) + (lambda (p-28716) + (if (= lev-28644 0) + (quasiappend-28622 + (map (lambda (tmp-28394-28719) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("l-*-30224")) + #("l-*-28392")) #(ribcage #(p q) #((top) (top)) - #("l-*-30213" - "l-*-30214")) + #("l-*-28381" + "l-*-28382")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-30203" - "l-*-30204")) + #("l-*-28371" + "l-*-28372")) #(ribcage (emit quasivector quasilist* @@ -23904,35 +23857,35 @@ (top) (top) (top)) - ("l-*-30199" - "l-*-30197" - "l-*-30195" - "l-*-30193" - "l-*-30191" - "l-*-30189" - "l-*-30187"))) + ("l-*-28367" + "l-*-28365" + "l-*-28363" + "l-*-28361" + "l-*-28359" + "l-*-28357" + "l-*-28355"))) (hygiene guile)) - tmp-30226-30551)) - p-30548) - (quasi-30451 q-30497 lev-30476)) - (quasicons-30453 - (quasicons-30453 + tmp-28394-28719)) + p-28716) + (quasi-28619 q-28665 lev-28644)) + (quasicons-28621 + (quasicons-28621 '(#(syntax-object "quote" ((top) #(ribcage #(p) #((top)) - #("l-*-30224")) + #("l-*-28392")) #(ribcage #(p q) #((top) (top)) - #("l-*-30213" "l-*-30214")) + #("l-*-28381" "l-*-28382")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-30203" "l-*-30204")) + #("l-*-28371" "l-*-28372")) #(ribcage (emit quasivector quasilist* @@ -23947,13 +23900,13 @@ (top) (top) (top)) - ("l-*-30199" - "l-*-30197" - "l-*-30195" - "l-*-30193" - "l-*-30191" - "l-*-30189" - "l-*-30187"))) + ("l-*-28367" + "l-*-28365" + "l-*-28363" + "l-*-28361" + "l-*-28359" + "l-*-28357" + "l-*-28355"))) (hygiene guile)) #(syntax-object unquote-splicing @@ -23961,16 +23914,16 @@ #(ribcage #(p) #((top)) - #("l-*-30224")) + #("l-*-28392")) #(ribcage #(p q) #((top) (top)) - #("l-*-30213" "l-*-30214")) + #("l-*-28381" "l-*-28382")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-30203" "l-*-30204")) + #("l-*-28371" "l-*-28372")) #(ribcage (emit quasivector quasilist* @@ -23985,49 +23938,49 @@ (top) (top) (top)) - ("l-*-30199" - "l-*-30197" - "l-*-30195" - "l-*-30193" - "l-*-30191" - "l-*-30189" - "l-*-30187"))) + ("l-*-28367" + "l-*-28365" + "l-*-28363" + "l-*-28361" + "l-*-28359" + "l-*-28357" + "l-*-28355"))) (hygiene guile))) - (quasi-30451 - p-30548 - (#{1-}# lev-30476))) - (quasi-30451 q-30497 lev-30476)))) - tmp-30544) - (quasicons-30453 - (quasi-30451 p-30496 lev-30476) - (quasi-30451 q-30497 lev-30476))))))) - tmp-30492) - (let ((tmp-30565 - ($sc-dispatch p-30475 '#(vector each-any)))) - (if tmp-30565 + (quasi-28619 + p-28716 + (#{1-}# lev-28644))) + (quasi-28619 q-28665 lev-28644)))) + tmp-28712) + (quasicons-28621 + (quasi-28619 p-28664 lev-28644) + (quasi-28619 q-28665 lev-28644))))))) + tmp-28660) + (let ((tmp-28733 + ($sc-dispatch p-28643 '#(vector each-any)))) + (if tmp-28733 (@apply - (lambda (x-30569) - (let ((x-30572 - (vquasi-30452 x-30569 lev-30476))) - (let ((tmp-30574 + (lambda (x-28737) + (let ((x-28740 + (vquasi-28620 x-28737 lev-28644))) + (let ((tmp-28742 ($sc-dispatch - x-30572 + x-28740 '(#(atom "quote") each-any)))) - (if tmp-30574 + (if tmp-28742 (@apply - (lambda (x-30578) + (lambda (x-28746) (list '#(syntax-object "quote" ((top) #(ribcage #(x) #((top)) - #("l-*-30325")) + #("l-*-28493")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-30322")) + #("l-*-28490")) #(ribcage (emit quasivector quasilist* @@ -24042,36 +23995,36 @@ (top) (top) (top)) - ("l-*-30199" - "l-*-30197" - "l-*-30195" - "l-*-30193" - "l-*-30191" - "l-*-30189" - "l-*-30187"))) + ("l-*-28367" + "l-*-28365" + "l-*-28363" + "l-*-28361" + "l-*-28359" + "l-*-28357" + "l-*-28355"))) (hygiene guile)) - (list->vector x-30578))) - tmp-30574) + (list->vector x-28746))) + tmp-28742) (letrec* - ((f-30580 - (lambda (y-30592 k-30593) - (let ((tmp-30595 + ((f-28748 + (lambda (y-28760 k-28761) + (let ((tmp-28763 ($sc-dispatch - y-30592 + y-28760 '(#(atom "quote") each-any)))) - (if tmp-30595 + (if tmp-28763 (@apply - (lambda (y-30598) - (k-30593 - (map (lambda (tmp-30350-30599) + (lambda (y-28766) + (k-28761 + (map (lambda (tmp-28518-28767) (list '#(syntax-object "quote" ((top) #(ribcage #(y) #((top)) - #("l-*-30348")) + #("l-*-28516")) #(ribcage () () @@ -24083,13 +24036,13 @@ #((top) (top) (top)) - #("l-*-30330" - "l-*-30331" - "l-*-30332")) + #("l-*-28498" + "l-*-28499" + "l-*-28500")) #(ribcage #(_) #((top)) - #("l-*-30328")) + #("l-*-28496")) #(ribcage () () @@ -24097,7 +24050,7 @@ #(ribcage #(x) #((top)) - #("l-*-30322")) + #("l-*-28490")) #(ribcage (emit quasivector quasilist* @@ -24112,50 +24065,50 @@ (top) (top) (top)) - ("l-*-30199" - "l-*-30197" - "l-*-30195" - "l-*-30193" - "l-*-30191" - "l-*-30189" - "l-*-30187"))) + ("l-*-28367" + "l-*-28365" + "l-*-28363" + "l-*-28361" + "l-*-28359" + "l-*-28357" + "l-*-28355"))) (hygiene guile)) - tmp-30350-30599)) - y-30598))) - tmp-30595) - (let ((tmp-30600 + tmp-28518-28767)) + y-28766))) + tmp-28763) + (let ((tmp-28768 ($sc-dispatch - y-30592 + y-28760 '(#(atom "list") . each-any)))) - (if tmp-30600 + (if tmp-28768 (@apply - (lambda (y-30603) - (k-30593 y-30603)) - tmp-30600) - (let ((tmp-30604 + (lambda (y-28771) + (k-28761 y-28771)) + tmp-28768) + (let ((tmp-28772 ($sc-dispatch - y-30592 + y-28760 '(#(atom "list*") . #(each+ any (any) ()))))) - (if tmp-30604 + (if tmp-28772 (@apply - (lambda (y-30607 - z-30608) - (f-30580 - z-30608 - (lambda (ls-30609) - (k-30593 + (lambda (y-28775 + z-28776) + (f-28748 + z-28776 + (lambda (ls-28777) + (k-28761 (append - y-30607 - ls-30609))))) - tmp-30604) + y-28775 + ls-28777))))) + tmp-28772) (list '#(syntax-object "list->vector" ((top) @@ -24164,14 +24117,14 @@ () ()) #(ribcage - #(t-30365) - #((m-*-30366 + #(t-28533) + #((m-*-28534 top)) - #("l-*-30369")) + #("l-*-28537")) #(ribcage #(else) #((top)) - #("l-*-30363")) + #("l-*-28531")) #(ribcage () () @@ -24181,13 +24134,13 @@ #((top) (top) (top)) - #("l-*-30330" - "l-*-30331" - "l-*-30332")) + #("l-*-28498" + "l-*-28499" + "l-*-28500")) #(ribcage #(_) #((top)) - #("l-*-30328")) + #("l-*-28496")) #(ribcage () () @@ -24195,7 +24148,7 @@ #(ribcage #(x) #((top)) - #("l-*-30322")) + #("l-*-28490")) #(ribcage (emit quasivector quasilist* @@ -24210,26 +24163,26 @@ (top) (top) (top)) - ("l-*-30199" - "l-*-30197" - "l-*-30195" - "l-*-30193" - "l-*-30191" - "l-*-30189" - "l-*-30187"))) + ("l-*-28367" + "l-*-28365" + "l-*-28363" + "l-*-28361" + "l-*-28359" + "l-*-28357" + "l-*-28355"))) (hygiene guile)) - x-30572)))))))))) - (f-30580 - x-30572 - (lambda (ls-30582) - (let ((tmp-30584 + x-28740)))))))))) + (f-28748 + x-28740 + (lambda (ls-28750) + (let ((tmp-28752 ($sc-dispatch - ls-30582 + ls-28750 'each-any))) - (if tmp-30584 + (if tmp-28752 (@apply - (lambda (t-30338-30587) + (lambda (t-28506-28755) (cons '#(syntax-object "vector" ((top) @@ -24238,10 +24191,10 @@ () ()) #(ribcage - #(t-30338) - #((m-*-30339 + #(t-28506) + #((m-*-28507 top)) - #("l-*-30343")) + #("l-*-28511")) #(ribcage () () @@ -24257,11 +24210,11 @@ #(ribcage #(ls) #((top)) - #("l-*-30337")) + #("l-*-28505")) #(ribcage #(_) #((top)) - #("l-*-30328")) + #("l-*-28496")) #(ribcage () () @@ -24269,7 +24222,7 @@ #(ribcage #(x) #((top)) - #("l-*-30322")) + #("l-*-28490")) #(ribcage (emit quasivector quasilist* @@ -24284,30 +24237,30 @@ (top) (top) (top)) - ("l-*-30199" - "l-*-30197" - "l-*-30195" - "l-*-30193" - "l-*-30191" - "l-*-30189" - "l-*-30187"))) + ("l-*-28367" + "l-*-28365" + "l-*-28363" + "l-*-28361" + "l-*-28359" + "l-*-28357" + "l-*-28355"))) (hygiene guile)) - t-30338-30587)) - tmp-30584) + t-28506-28755)) + tmp-28752) (syntax-violation #f "source expression failed to match any pattern" - ls-30582)))))))))) - tmp-30565) + ls-28750)))))))))) + tmp-28733) (list '#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("l-*-30234")) + #(ribcage #(p) #((top)) #("l-*-28402")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-30203" "l-*-30204")) + #("l-*-28371" "l-*-28372")) #(ribcage (emit quasivector quasilist* @@ -24322,24 +24275,24 @@ (top) (top) (top)) - ("l-*-30199" - "l-*-30197" - "l-*-30195" - "l-*-30193" - "l-*-30191" - "l-*-30189" - "l-*-30187"))) + ("l-*-28367" + "l-*-28365" + "l-*-28363" + "l-*-28361" + "l-*-28359" + "l-*-28357" + "l-*-28355"))) (hygiene guile)) - p-30475))))))))))) - (vquasi-30452 - (lambda (p-30637 lev-30638) - (let ((tmp-30640 ($sc-dispatch p-30637 '(any . any)))) - (if tmp-30640 + p-28643))))))))))) + (vquasi-28620 + (lambda (p-28805 lev-28806) + (let ((tmp-28808 ($sc-dispatch p-28805 '(any . any)))) + (if tmp-28808 (@apply - (lambda (p-30644 q-30645) - (let ((tmp-30647 + (lambda (p-28812 q-28813) + (let ((tmp-28815 ($sc-dispatch - p-30644 + p-28812 '(#(free-id #(syntax-object unquote @@ -24347,12 +24300,12 @@ #(ribcage #(p q) #((top) (top)) - #("l-*-30242" "l-*-30243")) + #("l-*-28410" "l-*-28411")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-30238" "l-*-30239")) + #("l-*-28406" "l-*-28407")) #(ribcage (emit quasivector quasilist* @@ -24367,38 +24320,38 @@ (top) (top) (top)) - ("l-*-30199" - "l-*-30197" - "l-*-30195" - "l-*-30193" - "l-*-30191" - "l-*-30189" - "l-*-30187"))) + ("l-*-28367" + "l-*-28365" + "l-*-28363" + "l-*-28361" + "l-*-28359" + "l-*-28357" + "l-*-28355"))) (hygiene guile))) . each-any)))) - (if tmp-30647 + (if tmp-28815 (@apply - (lambda (p-30651) - (if (= lev-30638 0) - (quasilist*-30455 - (map (lambda (tmp-30250-30687) + (lambda (p-28819) + (if (= lev-28806 0) + (quasilist*-28623 + (map (lambda (tmp-28418-28855) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("l-*-30248")) + #("l-*-28416")) #(ribcage #(p q) #((top) (top)) - #("l-*-30242" "l-*-30243")) + #("l-*-28410" "l-*-28411")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-30238" "l-*-30239")) + #("l-*-28406" "l-*-28407")) #(ribcage (emit quasivector quasilist* @@ -24413,32 +24366,32 @@ (top) (top) (top)) - ("l-*-30199" - "l-*-30197" - "l-*-30195" - "l-*-30193" - "l-*-30191" - "l-*-30189" - "l-*-30187"))) + ("l-*-28367" + "l-*-28365" + "l-*-28363" + "l-*-28361" + "l-*-28359" + "l-*-28357" + "l-*-28355"))) (hygiene guile)) - tmp-30250-30687)) - p-30651) - (vquasi-30452 q-30645 lev-30638)) - (quasicons-30453 - (quasicons-30453 + tmp-28418-28855)) + p-28819) + (vquasi-28620 q-28813 lev-28806)) + (quasicons-28621 + (quasicons-28621 '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("l-*-30248")) + #(ribcage #(p) #((top)) #("l-*-28416")) #(ribcage #(p q) #((top) (top)) - #("l-*-30242" "l-*-30243")) + #("l-*-28410" "l-*-28411")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-30238" "l-*-30239")) + #("l-*-28406" "l-*-28407")) #(ribcage (emit quasivector quasilist* @@ -24453,27 +24406,27 @@ (top) (top) (top)) - ("l-*-30199" - "l-*-30197" - "l-*-30195" - "l-*-30193" - "l-*-30191" - "l-*-30189" - "l-*-30187"))) + ("l-*-28367" + "l-*-28365" + "l-*-28363" + "l-*-28361" + "l-*-28359" + "l-*-28357" + "l-*-28355"))) (hygiene guile)) #(syntax-object unquote ((top) - #(ribcage #(p) #((top)) #("l-*-30248")) + #(ribcage #(p) #((top)) #("l-*-28416")) #(ribcage #(p q) #((top) (top)) - #("l-*-30242" "l-*-30243")) + #("l-*-28410" "l-*-28411")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-30238" "l-*-30239")) + #("l-*-28406" "l-*-28407")) #(ribcage (emit quasivector quasilist* @@ -24488,20 +24441,20 @@ (top) (top) (top)) - ("l-*-30199" - "l-*-30197" - "l-*-30195" - "l-*-30193" - "l-*-30191" - "l-*-30189" - "l-*-30187"))) + ("l-*-28367" + "l-*-28365" + "l-*-28363" + "l-*-28361" + "l-*-28359" + "l-*-28357" + "l-*-28355"))) (hygiene guile))) - (quasi-30451 p-30651 (#{1-}# lev-30638))) - (vquasi-30452 q-30645 lev-30638)))) - tmp-30647) - (let ((tmp-30694 + (quasi-28619 p-28819 (#{1-}# lev-28806))) + (vquasi-28620 q-28813 lev-28806)))) + tmp-28815) + (let ((tmp-28862 ($sc-dispatch - p-30644 + p-28812 '(#(free-id #(syntax-object unquote-splicing @@ -24509,12 +24462,12 @@ #(ribcage #(p q) #((top) (top)) - #("l-*-30242" "l-*-30243")) + #("l-*-28410" "l-*-28411")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-30238" "l-*-30239")) + #("l-*-28406" "l-*-28407")) #(ribcage (emit quasivector quasilist* @@ -24529,40 +24482,40 @@ (top) (top) (top)) - ("l-*-30199" - "l-*-30197" - "l-*-30195" - "l-*-30193" - "l-*-30191" - "l-*-30189" - "l-*-30187"))) + ("l-*-28367" + "l-*-28365" + "l-*-28363" + "l-*-28361" + "l-*-28359" + "l-*-28357" + "l-*-28355"))) (hygiene guile))) . each-any)))) - (if tmp-30694 + (if tmp-28862 (@apply - (lambda (p-30698) - (if (= lev-30638 0) - (quasiappend-30454 - (map (lambda (tmp-30255-30701) + (lambda (p-28866) + (if (= lev-28806 0) + (quasiappend-28622 + (map (lambda (tmp-28423-28869) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("l-*-30253")) + #("l-*-28421")) #(ribcage #(p q) #((top) (top)) - #("l-*-30242" - "l-*-30243")) + #("l-*-28410" + "l-*-28411")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-30238" - "l-*-30239")) + #("l-*-28406" + "l-*-28407")) #(ribcage (emit quasivector quasilist* @@ -24577,35 +24530,35 @@ (top) (top) (top)) - ("l-*-30199" - "l-*-30197" - "l-*-30195" - "l-*-30193" - "l-*-30191" - "l-*-30189" - "l-*-30187"))) + ("l-*-28367" + "l-*-28365" + "l-*-28363" + "l-*-28361" + "l-*-28359" + "l-*-28357" + "l-*-28355"))) (hygiene guile)) - tmp-30255-30701)) - p-30698) - (vquasi-30452 q-30645 lev-30638)) - (quasicons-30453 - (quasicons-30453 + tmp-28423-28869)) + p-28866) + (vquasi-28620 q-28813 lev-28806)) + (quasicons-28621 + (quasicons-28621 '(#(syntax-object "quote" ((top) #(ribcage #(p) #((top)) - #("l-*-30253")) + #("l-*-28421")) #(ribcage #(p q) #((top) (top)) - #("l-*-30242" "l-*-30243")) + #("l-*-28410" "l-*-28411")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-30238" "l-*-30239")) + #("l-*-28406" "l-*-28407")) #(ribcage (emit quasivector quasilist* @@ -24620,13 +24573,13 @@ (top) (top) (top)) - ("l-*-30199" - "l-*-30197" - "l-*-30195" - "l-*-30193" - "l-*-30191" - "l-*-30189" - "l-*-30187"))) + ("l-*-28367" + "l-*-28365" + "l-*-28363" + "l-*-28361" + "l-*-28359" + "l-*-28357" + "l-*-28355"))) (hygiene guile)) #(syntax-object unquote-splicing @@ -24634,16 +24587,16 @@ #(ribcage #(p) #((top)) - #("l-*-30253")) + #("l-*-28421")) #(ribcage #(p q) #((top) (top)) - #("l-*-30242" "l-*-30243")) + #("l-*-28410" "l-*-28411")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-30238" "l-*-30239")) + #("l-*-28406" "l-*-28407")) #(ribcage (emit quasivector quasilist* @@ -24658,23 +24611,23 @@ (top) (top) (top)) - ("l-*-30199" - "l-*-30197" - "l-*-30195" - "l-*-30193" - "l-*-30191" - "l-*-30189" - "l-*-30187"))) + ("l-*-28367" + "l-*-28365" + "l-*-28363" + "l-*-28361" + "l-*-28359" + "l-*-28357" + "l-*-28355"))) (hygiene guile))) - (quasi-30451 p-30698 (#{1-}# lev-30638))) - (vquasi-30452 q-30645 lev-30638)))) - tmp-30694) - (quasicons-30453 - (quasi-30451 p-30644 lev-30638) - (vquasi-30452 q-30645 lev-30638))))))) - tmp-30640) - (let ((tmp-30719 ($sc-dispatch p-30637 '()))) - (if tmp-30719 + (quasi-28619 p-28866 (#{1-}# lev-28806))) + (vquasi-28620 q-28813 lev-28806)))) + tmp-28862) + (quasicons-28621 + (quasi-28619 p-28812 lev-28806) + (vquasi-28620 q-28813 lev-28806))))))) + tmp-28808) + (let ((tmp-28887 ($sc-dispatch p-28805 '()))) + (if tmp-28887 (@apply (lambda () '(#(syntax-object @@ -24684,7 +24637,7 @@ #(ribcage #(p lev) #((top) (top)) - #("l-*-30238" "l-*-30239")) + #("l-*-28406" "l-*-28407")) #(ribcage (emit quasivector quasilist* @@ -24693,61 +24646,61 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("l-*-30199" - "l-*-30197" - "l-*-30195" - "l-*-30193" - "l-*-30191" - "l-*-30189" - "l-*-30187"))) + ("l-*-28367" + "l-*-28365" + "l-*-28363" + "l-*-28361" + "l-*-28359" + "l-*-28357" + "l-*-28355"))) (hygiene guile)) ())) - tmp-30719) + tmp-28887) (syntax-violation #f "source expression failed to match any pattern" - p-30637))))))) - (quasicons-30453 - (lambda (x-30732 y-30733) - (let ((tmp-30734 (list x-30732 y-30733))) - (let ((tmp-30735 ($sc-dispatch tmp-30734 '(any any)))) - (if tmp-30735 + p-28805))))))) + (quasicons-28621 + (lambda (x-28900 y-28901) + (let ((tmp-28902 (list x-28900 y-28901))) + (let ((tmp-28903 ($sc-dispatch tmp-28902 '(any any)))) + (if tmp-28903 (@apply - (lambda (x-30737 y-30738) - (let ((tmp-30740 - ($sc-dispatch y-30738 '(#(atom "quote") any)))) - (if tmp-30740 + (lambda (x-28905 y-28906) + (let ((tmp-28908 + ($sc-dispatch y-28906 '(#(atom "quote") any)))) + (if tmp-28908 (@apply - (lambda (dy-30744) - (let ((tmp-30746 + (lambda (dy-28912) + (let ((tmp-28914 ($sc-dispatch - x-30737 + x-28905 '(#(atom "quote") any)))) - (if tmp-30746 + (if tmp-28914 (@apply - (lambda (dx-30750) + (lambda (dx-28918) (list '#(syntax-object "quote" ((top) #(ribcage #(dx) #((top)) - #("l-*-30277")) + #("l-*-28445")) #(ribcage #(dy) #((top)) - #("l-*-30273")) + #("l-*-28441")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("l-*-30267" "l-*-30268")) + #("l-*-28435" "l-*-28436")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("l-*-30262" "l-*-30263")) + #("l-*-28430" "l-*-28431")) #(ribcage (emit quasivector quasilist* @@ -24762,39 +24715,39 @@ (top) (top) (top)) - ("l-*-30199" - "l-*-30197" - "l-*-30195" - "l-*-30193" - "l-*-30191" - "l-*-30189" - "l-*-30187"))) + ("l-*-28367" + "l-*-28365" + "l-*-28363" + "l-*-28361" + "l-*-28359" + "l-*-28357" + "l-*-28355"))) (hygiene guile)) - (cons dx-30750 dy-30744))) - tmp-30746) - (if (null? dy-30744) + (cons dx-28918 dy-28912))) + tmp-28914) + (if (null? dy-28912) (list '#(syntax-object "list" ((top) #(ribcage #(_) #((top)) - #("l-*-30279")) + #("l-*-28447")) #(ribcage #(dy) #((top)) - #("l-*-30273")) + #("l-*-28441")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("l-*-30267" "l-*-30268")) + #("l-*-28435" "l-*-28436")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("l-*-30262" "l-*-30263")) + #("l-*-28430" "l-*-28431")) #(ribcage (emit quasivector quasilist* @@ -24809,37 +24762,37 @@ (top) (top) (top)) - ("l-*-30199" - "l-*-30197" - "l-*-30195" - "l-*-30193" - "l-*-30191" - "l-*-30189" - "l-*-30187"))) + ("l-*-28367" + "l-*-28365" + "l-*-28363" + "l-*-28361" + "l-*-28359" + "l-*-28357" + "l-*-28355"))) (hygiene guile)) - x-30737) + x-28905) (list '#(syntax-object "list*" ((top) #(ribcage #(_) #((top)) - #("l-*-30279")) + #("l-*-28447")) #(ribcage #(dy) #((top)) - #("l-*-30273")) + #("l-*-28441")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("l-*-30267" "l-*-30268")) + #("l-*-28435" "l-*-28436")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("l-*-30262" "l-*-30263")) + #("l-*-28430" "l-*-28431")) #(ribcage (emit quasivector quasilist* @@ -24854,42 +24807,42 @@ (top) (top) (top)) - ("l-*-30199" - "l-*-30197" - "l-*-30195" - "l-*-30193" - "l-*-30191" - "l-*-30189" - "l-*-30187"))) + ("l-*-28367" + "l-*-28365" + "l-*-28363" + "l-*-28361" + "l-*-28359" + "l-*-28357" + "l-*-28355"))) (hygiene guile)) - x-30737 - y-30738))))) - tmp-30740) - (let ((tmp-30755 + x-28905 + y-28906))))) + tmp-28908) + (let ((tmp-28923 ($sc-dispatch - y-30738 + y-28906 '(#(atom "list") . any)))) - (if tmp-30755 + (if tmp-28923 (@apply - (lambda (stuff-30759) + (lambda (stuff-28927) (cons '#(syntax-object "list" ((top) #(ribcage #(stuff) #((top)) - #("l-*-30282")) + #("l-*-28450")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("l-*-30267" "l-*-30268")) + #("l-*-28435" "l-*-28436")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("l-*-30262" "l-*-30263")) + #("l-*-28430" "l-*-28431")) #(ribcage (emit quasivector quasilist* @@ -24904,41 +24857,41 @@ (top) (top) (top)) - ("l-*-30199" - "l-*-30197" - "l-*-30195" - "l-*-30193" - "l-*-30191" - "l-*-30189" - "l-*-30187"))) + ("l-*-28367" + "l-*-28365" + "l-*-28363" + "l-*-28361" + "l-*-28359" + "l-*-28357" + "l-*-28355"))) (hygiene guile)) - (cons x-30737 stuff-30759))) - tmp-30755) - (let ((tmp-30760 + (cons x-28905 stuff-28927))) + tmp-28923) + (let ((tmp-28928 ($sc-dispatch - y-30738 + y-28906 '(#(atom "list*") . any)))) - (if tmp-30760 + (if tmp-28928 (@apply - (lambda (stuff-30764) + (lambda (stuff-28932) (cons '#(syntax-object "list*" ((top) #(ribcage #(stuff) #((top)) - #("l-*-30285")) + #("l-*-28453")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("l-*-30267" "l-*-30268")) + #("l-*-28435" "l-*-28436")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("l-*-30262" "l-*-30263")) + #("l-*-28430" "l-*-28431")) #(ribcage (emit quasivector quasilist* @@ -24953,34 +24906,34 @@ (top) (top) (top)) - ("l-*-30199" - "l-*-30197" - "l-*-30195" - "l-*-30193" - "l-*-30191" - "l-*-30189" - "l-*-30187"))) + ("l-*-28367" + "l-*-28365" + "l-*-28363" + "l-*-28361" + "l-*-28359" + "l-*-28357" + "l-*-28355"))) (hygiene guile)) - (cons x-30737 stuff-30764))) - tmp-30760) + (cons x-28905 stuff-28932))) + tmp-28928) (list '#(syntax-object "list*" ((top) #(ribcage #(_) #((top)) - #("l-*-30287")) + #("l-*-28455")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("l-*-30267" "l-*-30268")) + #("l-*-28435" "l-*-28436")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("l-*-30262" "l-*-30263")) + #("l-*-28430" "l-*-28431")) #(ribcage (emit quasivector quasilist* @@ -24995,29 +24948,29 @@ (top) (top) (top)) - ("l-*-30199" - "l-*-30197" - "l-*-30195" - "l-*-30193" - "l-*-30191" - "l-*-30189" - "l-*-30187"))) + ("l-*-28367" + "l-*-28365" + "l-*-28363" + "l-*-28361" + "l-*-28359" + "l-*-28357" + "l-*-28355"))) (hygiene guile)) - x-30737 - y-30738)))))))) - tmp-30735) + x-28905 + y-28906)))))))) + tmp-28903) (syntax-violation #f "source expression failed to match any pattern" - tmp-30734)))))) - (quasiappend-30454 - (lambda (x-30775 y-30776) - (let ((tmp-30778 - ($sc-dispatch y-30776 '(#(atom "quote") ())))) - (if tmp-30778 + tmp-28902)))))) + (quasiappend-28622 + (lambda (x-28943 y-28944) + (let ((tmp-28946 + ($sc-dispatch y-28944 '(#(atom "quote") ())))) + (if tmp-28946 (@apply (lambda () - (if (null? x-30775) + (if (null? x-28943) '(#(syntax-object "quote" ((top) @@ -25025,7 +24978,7 @@ #(ribcage #(x y) #((top) (top)) - #("l-*-30291" "l-*-30292")) + #("l-*-28459" "l-*-28460")) #(ribcage (emit quasivector quasilist* @@ -25034,21 +24987,21 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("l-*-30199" - "l-*-30197" - "l-*-30195" - "l-*-30193" - "l-*-30191" - "l-*-30189" - "l-*-30187"))) + ("l-*-28367" + "l-*-28365" + "l-*-28363" + "l-*-28361" + "l-*-28359" + "l-*-28357" + "l-*-28355"))) (hygiene guile)) ()) - (if (null? (cdr x-30775)) - (car x-30775) - (let ((tmp-30783 ($sc-dispatch x-30775 'each-any))) - (if tmp-30783 + (if (null? (cdr x-28943)) + (car x-28943) + (let ((tmp-28951 ($sc-dispatch x-28943 'each-any))) + (if tmp-28951 (@apply - (lambda (p-30787) + (lambda (p-28955) (cons '#(syntax-object "append" ((top) @@ -25056,12 +25009,12 @@ #(ribcage #(p) #((top)) - #("l-*-30299")) + #("l-*-28467")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("l-*-30291" "l-*-30292")) + #("l-*-28459" "l-*-28460")) #(ribcage (emit quasivector quasilist* @@ -25076,29 +25029,29 @@ (top) (top) (top)) - ("l-*-30199" - "l-*-30197" - "l-*-30195" - "l-*-30193" - "l-*-30191" - "l-*-30189" - "l-*-30187"))) + ("l-*-28367" + "l-*-28365" + "l-*-28363" + "l-*-28361" + "l-*-28359" + "l-*-28357" + "l-*-28355"))) (hygiene guile)) - p-30787)) - tmp-30783) + p-28955)) + tmp-28951) (syntax-violation #f "source expression failed to match any pattern" - x-30775)))))) - tmp-30778) - (if (null? x-30775) - y-30776 - (let ((tmp-30795 (list x-30775 y-30776))) - (let ((tmp-30796 - ($sc-dispatch tmp-30795 '(each-any any)))) - (if tmp-30796 + x-28943)))))) + tmp-28946) + (if (null? x-28943) + y-28944 + (let ((tmp-28963 (list x-28943 y-28944))) + (let ((tmp-28964 + ($sc-dispatch tmp-28963 '(each-any any)))) + (if tmp-28964 (@apply - (lambda (p-30798 y-30799) + (lambda (p-28966 y-28967) (cons '#(syntax-object "append" ((top) @@ -25106,13 +25059,13 @@ #(ribcage #(p y) #((top) (top)) - #("l-*-30308" "l-*-30309")) - #(ribcage #(_) #((top)) #("l-*-30302")) + #("l-*-28476" "l-*-28477")) + #(ribcage #(_) #((top)) #("l-*-28470")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("l-*-30291" "l-*-30292")) + #("l-*-28459" "l-*-28460")) #(ribcage (emit quasivector quasilist* @@ -25127,44 +25080,44 @@ (top) (top) (top)) - ("l-*-30199" - "l-*-30197" - "l-*-30195" - "l-*-30193" - "l-*-30191" - "l-*-30189" - "l-*-30187"))) + ("l-*-28367" + "l-*-28365" + "l-*-28363" + "l-*-28361" + "l-*-28359" + "l-*-28357" + "l-*-28355"))) (hygiene guile)) - (append p-30798 (list y-30799)))) - tmp-30796) + (append p-28966 (list y-28967)))) + tmp-28964) (syntax-violation #f "source expression failed to match any pattern" - tmp-30795))))))))) - (quasilist*-30455 - (lambda (x-30803 y-30804) + tmp-28963))))))))) + (quasilist*-28623 + (lambda (x-28971 y-28972) (letrec* - ((f-30805 - (lambda (x-30894) - (if (null? x-30894) - y-30804 - (quasicons-30453 - (car x-30894) - (f-30805 (cdr x-30894))))))) - (f-30805 x-30803)))) - (emit-30457 - (lambda (x-30897) - (let ((tmp-30899 - ($sc-dispatch x-30897 '(#(atom "quote") any)))) - (if tmp-30899 + ((f-28973 + (lambda (x-29062) + (if (null? x-29062) + y-28972 + (quasicons-28621 + (car x-29062) + (f-28973 (cdr x-29062))))))) + (f-28973 x-28971)))) + (emit-28625 + (lambda (x-29065) + (let ((tmp-29067 + ($sc-dispatch x-29065 '(#(atom "quote") any)))) + (if tmp-29067 (@apply - (lambda (x-30903) + (lambda (x-29071) (list '#(syntax-object quote ((top) - #(ribcage #(x) #((top)) #("l-*-30375")) + #(ribcage #(x) #((top)) #("l-*-28543")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-30372")) + #(ribcage #(x) #((top)) #("l-*-28540")) #(ribcage (emit quasivector quasilist* @@ -25173,45 +25126,45 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("l-*-30199" - "l-*-30197" - "l-*-30195" - "l-*-30193" - "l-*-30191" - "l-*-30189" - "l-*-30187"))) + ("l-*-28367" + "l-*-28365" + "l-*-28363" + "l-*-28361" + "l-*-28359" + "l-*-28357" + "l-*-28355"))) (hygiene guile)) - x-30903)) - tmp-30899) - (let ((tmp-30904 + x-29071)) + tmp-29067) + (let ((tmp-29072 ($sc-dispatch - x-30897 + x-29065 '(#(atom "list") . each-any)))) - (if tmp-30904 + (if tmp-29072 (@apply - (lambda (x-30908) - (let ((tmp-30909 (map emit-30457 x-30908))) - (let ((tmp-30910 ($sc-dispatch tmp-30909 'each-any))) - (if tmp-30910 + (lambda (x-29076) + (let ((tmp-29077 (map emit-28625 x-29076))) + (let ((tmp-29078 ($sc-dispatch tmp-29077 'each-any))) + (if tmp-29078 (@apply - (lambda (t-30380-30912) + (lambda (t-28548-29080) (cons '#(syntax-object list ((top) #(ribcage () () ()) #(ribcage - #(t-30380) - #((m-*-30381 top)) - #("l-*-30385")) + #(t-28548) + #((m-*-28549 top)) + #("l-*-28553")) #(ribcage #(x) #((top)) - #("l-*-30378")) + #("l-*-28546")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-30372")) + #("l-*-28540")) #(ribcage (emit quasivector quasilist* @@ -25226,70 +25179,70 @@ (top) (top) (top)) - ("l-*-30199" - "l-*-30197" - "l-*-30195" - "l-*-30193" - "l-*-30191" - "l-*-30189" - "l-*-30187"))) + ("l-*-28367" + "l-*-28365" + "l-*-28363" + "l-*-28361" + "l-*-28359" + "l-*-28357" + "l-*-28355"))) (hygiene guile)) - t-30380-30912)) - tmp-30910) + t-28548-29080)) + tmp-29078) (syntax-violation #f "source expression failed to match any pattern" - tmp-30909))))) - tmp-30904) - (let ((tmp-30913 + tmp-29077))))) + tmp-29072) + (let ((tmp-29081 ($sc-dispatch - x-30897 + x-29065 '(#(atom "list*") . #(each+ any (any) ()))))) - (if tmp-30913 + (if tmp-29081 (@apply - (lambda (x-30917 y-30918) + (lambda (x-29085 y-29086) (letrec* - ((f-30919 - (lambda (x*-30922) - (if (null? x*-30922) - (emit-30457 y-30918) - (let ((tmp-30923 - (list (emit-30457 (car x*-30922)) - (f-30919 (cdr x*-30922))))) - (let ((tmp-30924 + ((f-29087 + (lambda (x*-29090) + (if (null? x*-29090) + (emit-28625 y-29086) + (let ((tmp-29091 + (list (emit-28625 (car x*-29090)) + (f-29087 (cdr x*-29090))))) + (let ((tmp-29092 ($sc-dispatch - tmp-30923 + tmp-29091 '(any any)))) - (if tmp-30924 + (if tmp-29092 (@apply - (lambda (t-30400-30926 - t-30399-30927) + (lambda (t-28568-29094 + t-28567-29095) (list '#(syntax-object cons ((top) #(ribcage () () ()) #(ribcage - #(t-30400 t-30399) - #((m-*-30401 top) - (m-*-30401 top)) - #("l-*-30405" - "l-*-30406")) + #(t-28568 t-28567) + #((m-*-28569 top) + (m-*-28569 top)) + #("l-*-28573" + "l-*-28574")) #(ribcage () () ()) #(ribcage #(f x*) #((top) (top)) - #("l-*-30394" - "l-*-30395")) + #("l-*-28562" + "l-*-28563")) #(ribcage #(x y) #((top) (top)) - #("l-*-30390" - "l-*-30391")) + #("l-*-28558" + "l-*-28559")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-30372")) + #("l-*-28540")) #(ribcage (emit quasivector quasilist* @@ -25304,53 +25257,53 @@ (top) (top) (top)) - ("l-*-30199" - "l-*-30197" - "l-*-30195" - "l-*-30193" - "l-*-30191" - "l-*-30189" - "l-*-30187"))) + ("l-*-28367" + "l-*-28365" + "l-*-28363" + "l-*-28361" + "l-*-28359" + "l-*-28357" + "l-*-28355"))) (hygiene guile)) - t-30400-30926 - t-30399-30927)) - tmp-30924) + t-28568-29094 + t-28567-29095)) + tmp-29092) (syntax-violation #f "source expression failed to match any pattern" - tmp-30923)))))))) - (f-30919 x-30917))) - tmp-30913) - (let ((tmp-30928 + tmp-29091)))))))) + (f-29087 x-29085))) + tmp-29081) + (let ((tmp-29096 ($sc-dispatch - x-30897 + x-29065 '(#(atom "append") . each-any)))) - (if tmp-30928 + (if tmp-29096 (@apply - (lambda (x-30932) - (let ((tmp-30933 (map emit-30457 x-30932))) - (let ((tmp-30934 - ($sc-dispatch tmp-30933 'each-any))) - (if tmp-30934 + (lambda (x-29100) + (let ((tmp-29101 (map emit-28625 x-29100))) + (let ((tmp-29102 + ($sc-dispatch tmp-29101 'each-any))) + (if tmp-29102 (@apply - (lambda (t-30412-30936) + (lambda (t-28580-29104) (cons '#(syntax-object append ((top) #(ribcage () () ()) #(ribcage - #(t-30412) - #((m-*-30413 top)) - #("l-*-30417")) + #(t-28580) + #((m-*-28581 top)) + #("l-*-28585")) #(ribcage #(x) #((top)) - #("l-*-30410")) + #("l-*-28578")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-30372")) + #("l-*-28540")) #(ribcage (emit quasivector quasilist* @@ -25365,53 +25318,53 @@ (top) (top) (top)) - ("l-*-30199" - "l-*-30197" - "l-*-30195" - "l-*-30193" - "l-*-30191" - "l-*-30189" - "l-*-30187"))) + ("l-*-28367" + "l-*-28365" + "l-*-28363" + "l-*-28361" + "l-*-28359" + "l-*-28357" + "l-*-28355"))) (hygiene guile)) - t-30412-30936)) - tmp-30934) + t-28580-29104)) + tmp-29102) (syntax-violation #f "source expression failed to match any pattern" - tmp-30933))))) - tmp-30928) - (let ((tmp-30937 + tmp-29101))))) + tmp-29096) + (let ((tmp-29105 ($sc-dispatch - x-30897 + x-29065 '(#(atom "vector") . each-any)))) - (if tmp-30937 + (if tmp-29105 (@apply - (lambda (x-30941) - (let ((tmp-30942 (map emit-30457 x-30941))) - (let ((tmp-30943 + (lambda (x-29109) + (let ((tmp-29110 (map emit-28625 x-29109))) + (let ((tmp-29111 ($sc-dispatch - tmp-30942 + tmp-29110 'each-any))) - (if tmp-30943 + (if tmp-29111 (@apply - (lambda (t-30424-30945) + (lambda (t-28592-29113) (cons '#(syntax-object vector ((top) #(ribcage () () ()) #(ribcage - #(t-30424) - #((m-*-30425 top)) - #("l-*-30429")) + #(t-28592) + #((m-*-28593 top)) + #("l-*-28597")) #(ribcage #(x) #((top)) - #("l-*-30422")) + #("l-*-28590")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-30372")) + #("l-*-28540")) #(ribcage (emit quasivector quasilist* @@ -25426,46 +25379,46 @@ (top) (top) (top)) - ("l-*-30199" - "l-*-30197" - "l-*-30195" - "l-*-30193" - "l-*-30191" - "l-*-30189" - "l-*-30187"))) + ("l-*-28367" + "l-*-28365" + "l-*-28363" + "l-*-28361" + "l-*-28359" + "l-*-28357" + "l-*-28355"))) (hygiene guile)) - t-30424-30945)) - tmp-30943) + t-28592-29113)) + tmp-29111) (syntax-violation #f "source expression failed to match any pattern" - tmp-30942))))) - tmp-30937) - (let ((tmp-30946 + tmp-29110))))) + tmp-29105) + (let ((tmp-29114 ($sc-dispatch - x-30897 + x-29065 '(#(atom "list->vector") any)))) - (if tmp-30946 + (if tmp-29114 (@apply - (lambda (x-30950) - (let ((tmp-30951 (emit-30457 x-30950))) + (lambda (x-29118) + (let ((tmp-29119 (emit-28625 x-29118))) (list '#(syntax-object list->vector ((top) #(ribcage () () ()) #(ribcage - #(t-30436) - #((m-*-30437 top)) - #("l-*-30440")) + #(t-28604) + #((m-*-28605 top)) + #("l-*-28608")) #(ribcage #(x) #((top)) - #("l-*-30434")) + #("l-*-28602")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-30372")) + #("l-*-28540")) #(ribcage (emit quasivector quasilist* @@ -25480,183 +25433,183 @@ (top) (top) (top)) - ("l-*-30199" - "l-*-30197" - "l-*-30195" - "l-*-30193" - "l-*-30191" - "l-*-30189" - "l-*-30187"))) + ("l-*-28367" + "l-*-28365" + "l-*-28363" + "l-*-28361" + "l-*-28359" + "l-*-28357" + "l-*-28355"))) (hygiene guile)) - tmp-30951))) - tmp-30946) - (let ((tmp-30954 + tmp-29119))) + tmp-29114) + (let ((tmp-29122 ($sc-dispatch - x-30897 + x-29065 '(#(atom "value") any)))) - (if tmp-30954 + (if tmp-29122 (@apply - (lambda (x-30958) x-30958) - tmp-30954) + (lambda (x-29126) x-29126) + tmp-29122) (syntax-violation #f "source expression failed to match any pattern" - x-30897)))))))))))))))))) - (lambda (x-30458) - (let ((tmp-30460 ($sc-dispatch x-30458 '(_ any)))) - (if tmp-30460 + x-29065)))))))))))))))))) + (lambda (x-28626) + (let ((tmp-28628 ($sc-dispatch x-28626 '(_ any)))) + (if tmp-28628 (@apply - (lambda (e-30464) - (emit-30457 (quasi-30451 e-30464 0))) - tmp-30460) + (lambda (e-28632) + (emit-28625 (quasi-28619 e-28632 0))) + tmp-28628) (syntax-violation #f "source expression failed to match any pattern" - x-30458))))))) + x-28626))))))) (define include (make-syntax-transformer 'include 'macro - (lambda (x-31013) + (lambda (x-29181) (letrec* - ((read-file-31014 - (lambda (fn-31123 k-31124) - (let ((p-31125 (open-input-file fn-31123))) + ((read-file-29182 + (lambda (fn-29291 k-29292) + (let ((p-29293 (open-input-file fn-29291))) (letrec* - ((f-31126 - (lambda (x-31180 result-31181) - (if (eof-object? x-31180) + ((f-29294 + (lambda (x-29348 result-29349) + (if (eof-object? x-29348) (begin - (close-input-port p-31125) - (reverse result-31181)) - (f-31126 - (read p-31125) - (cons (datum->syntax k-31124 x-31180) - result-31181)))))) - (f-31126 (read p-31125) '())))))) - (let ((tmp-31016 ($sc-dispatch x-31013 '(any any)))) - (if tmp-31016 + (close-input-port p-29293) + (reverse result-29349)) + (f-29294 + (read p-29293) + (cons (datum->syntax k-29292 x-29348) + result-29349)))))) + (f-29294 (read p-29293) '())))))) + (let ((tmp-29184 ($sc-dispatch x-29181 '(any any)))) + (if tmp-29184 (@apply - (lambda (k-31020 filename-31021) - (let ((fn-31022 (syntax->datum filename-31021))) - (let ((tmp-31023 - (read-file-31014 fn-31022 filename-31021))) - (let ((tmp-31024 ($sc-dispatch tmp-31023 'each-any))) - (if tmp-31024 + (lambda (k-29188 filename-29189) + (let ((fn-29190 (syntax->datum filename-29189))) + (let ((tmp-29191 + (read-file-29182 fn-29190 filename-29189))) + (let ((tmp-29192 ($sc-dispatch tmp-29191 'each-any))) + (if tmp-29192 (@apply - (lambda (exp-31042) + (lambda (exp-29210) (cons '#(syntax-object begin ((top) #(ribcage () () ()) - #(ribcage #(exp) #((top)) #("l-*-31010")) + #(ribcage #(exp) #((top)) #("l-*-29178")) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(fn) #((top)) #("l-*-31005")) + #(ribcage #(fn) #((top)) #("l-*-29173")) #(ribcage #(k filename) #((top) (top)) - #("l-*-31001" "l-*-31002")) + #("l-*-29169" "l-*-29170")) #(ribcage (read-file) ((top)) - ("l-*-30985")) - #(ribcage #(x) #((top)) #("l-*-30984"))) + ("l-*-29153")) + #(ribcage #(x) #((top)) #("l-*-29152"))) (hygiene guile)) - exp-31042)) - tmp-31024) + exp-29210)) + tmp-29192) (syntax-violation #f "source expression failed to match any pattern" - tmp-31023)))))) - tmp-31016) + tmp-29191)))))) + tmp-29184) (syntax-violation #f "source expression failed to match any pattern" - x-31013))))))) + x-29181))))))) (define include-from-path (make-syntax-transformer 'include-from-path 'macro - (lambda (x-31200) - (let ((tmp-31202 ($sc-dispatch x-31200 '(any any)))) - (if tmp-31202 + (lambda (x-29368) + (let ((tmp-29370 ($sc-dispatch x-29368 '(any any)))) + (if tmp-29370 (@apply - (lambda (k-31206 filename-31207) - (let ((fn-31208 (syntax->datum filename-31207))) - (let ((tmp-31209 + (lambda (k-29374 filename-29375) + (let ((fn-29376 (syntax->datum filename-29375))) + (let ((tmp-29377 (datum->syntax - filename-31207 - (let ((t-31212 (%search-load-path fn-31208))) - (if t-31212 - t-31212 + filename-29375 + (let ((t-29380 (%search-load-path fn-29376))) + (if t-29380 + t-29380 (syntax-violation 'include-from-path "file not found in path" - x-31200 - filename-31207)))))) + x-29368 + filename-29375)))))) (list '#(syntax-object include ((top) #(ribcage () () ()) - #(ribcage #(fn) #((top)) #("l-*-31194")) + #(ribcage #(fn) #((top)) #("l-*-29362")) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(fn) #((top)) #("l-*-31190")) + #(ribcage #(fn) #((top)) #("l-*-29358")) #(ribcage #(k filename) #((top) (top)) - #("l-*-31186" "l-*-31187")) + #("l-*-29354" "l-*-29355")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-31183"))) + #(ribcage #(x) #((top)) #("l-*-29351"))) (hygiene guile)) - tmp-31209)))) - tmp-31202) + tmp-29377)))) + tmp-29370) (syntax-violation #f "source expression failed to match any pattern" - x-31200)))))) + x-29368)))))) (define unquote (make-syntax-transformer 'unquote 'macro - (lambda (x-31221) + (lambda (x-29389) (syntax-violation 'unquote "expression not valid outside of quasiquote" - x-31221)))) + x-29389)))) (define unquote-splicing (make-syntax-transformer 'unquote-splicing 'macro - (lambda (x-31224) + (lambda (x-29392) (syntax-violation 'unquote-splicing "expression not valid outside of quasiquote" - x-31224)))) + x-29392)))) (define case (make-syntax-transformer 'case 'macro - (lambda (x-31280) - (let ((tmp-31282 - ($sc-dispatch x-31280 '(_ any any . each-any)))) - (if tmp-31282 + (lambda (x-29448) + (let ((tmp-29450 + ($sc-dispatch x-29448 '(_ any any . each-any)))) + (if tmp-29450 (@apply - (lambda (e-31286 m1-31287 m2-31288) - (let ((tmp-31289 + (lambda (e-29454 m1-29455 m2-29456) + (let ((tmp-29457 (letrec* - ((f-31331 - (lambda (clause-31334 clauses-31335) - (if (null? clauses-31335) - (let ((tmp-31337 + ((f-29499 + (lambda (clause-29502 clauses-29503) + (if (null? clauses-29503) + (let ((tmp-29505 ($sc-dispatch - clause-31334 + clause-29502 '(#(free-id #(syntax-object else @@ -25665,89 +25618,89 @@ #(ribcage #(f clause clauses) #((top) (top) (top)) - #("l-*-31239" - "l-*-31240" - "l-*-31241")) + #("l-*-29407" + "l-*-29408" + "l-*-29409")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("l-*-31229" - "l-*-31230" - "l-*-31231")) + #("l-*-29397" + "l-*-29398" + "l-*-29399")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-31226"))) + #("l-*-29394"))) (hygiene guile))) any . each-any)))) - (if tmp-31337 + (if tmp-29505 (@apply - (lambda (e1-31341 e2-31342) + (lambda (e1-29509 e2-29510) (cons '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) - #("l-*-31248" "l-*-31249")) + #("l-*-29416" "l-*-29417")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("l-*-31239" - "l-*-31240" - "l-*-31241")) + #("l-*-29407" + "l-*-29408" + "l-*-29409")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("l-*-31229" - "l-*-31230" - "l-*-31231")) + #("l-*-29397" + "l-*-29398" + "l-*-29399")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-31226"))) + #("l-*-29394"))) (hygiene guile)) - (cons e1-31341 e2-31342))) - tmp-31337) - (let ((tmp-31343 + (cons e1-29509 e2-29510))) + tmp-29505) + (let ((tmp-29511 ($sc-dispatch - clause-31334 + clause-29502 '(each-any any . each-any)))) - (if tmp-31343 + (if tmp-29511 (@apply - (lambda (k-31347 e1-31348 e2-31349) + (lambda (k-29515 e1-29516 e2-29517) (list '#(syntax-object if ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) - #("l-*-31254" - "l-*-31255" - "l-*-31256")) + #("l-*-29422" + "l-*-29423" + "l-*-29424")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("l-*-31239" - "l-*-31240" - "l-*-31241")) + #("l-*-29407" + "l-*-29408" + "l-*-29409")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("l-*-31229" - "l-*-31230" - "l-*-31231")) + #("l-*-29397" + "l-*-29398" + "l-*-29399")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-31226"))) + #("l-*-29394"))) (hygiene guile)) (list '#(syntax-object memv @@ -25757,9 +25710,9 @@ #((top) (top) (top)) - #("l-*-31254" - "l-*-31255" - "l-*-31256")) + #("l-*-29422" + "l-*-29423" + "l-*-29424")) #(ribcage () () ()) #(ribcage #(f @@ -25768,22 +25721,22 @@ #((top) (top) (top)) - #("l-*-31239" - "l-*-31240" - "l-*-31241")) + #("l-*-29407" + "l-*-29408" + "l-*-29409")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("l-*-31229" - "l-*-31230" - "l-*-31231")) + #("l-*-29397" + "l-*-29398" + "l-*-29399")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-31226"))) + #("l-*-29394"))) (hygiene guile)) '#(syntax-object t @@ -25793,9 +25746,9 @@ #((top) (top) (top)) - #("l-*-31254" - "l-*-31255" - "l-*-31256")) + #("l-*-29422" + "l-*-29423" + "l-*-29424")) #(ribcage () () ()) #(ribcage #(f @@ -25804,22 +25757,22 @@ #((top) (top) (top)) - #("l-*-31239" - "l-*-31240" - "l-*-31241")) + #("l-*-29407" + "l-*-29408" + "l-*-29409")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("l-*-31229" - "l-*-31230" - "l-*-31231")) + #("l-*-29397" + "l-*-29398" + "l-*-29399")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-31226"))) + #("l-*-29394"))) (hygiene guile)) (list '#(syntax-object quote @@ -25829,9 +25782,9 @@ #((top) (top) (top)) - #("l-*-31254" - "l-*-31255" - "l-*-31256")) + #("l-*-29422" + "l-*-29423" + "l-*-29424")) #(ribcage () () @@ -25843,17 +25796,17 @@ #((top) (top) (top)) - #("l-*-31239" - "l-*-31240" - "l-*-31241")) + #("l-*-29407" + "l-*-29408" + "l-*-29409")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("l-*-31229" - "l-*-31230" - "l-*-31231")) + #("l-*-29397" + "l-*-29398" + "l-*-29399")) #(ribcage () () @@ -25861,10 +25814,10 @@ #(ribcage #(x) #((top)) - #("l-*-31226"))) + #("l-*-29394"))) (hygiene guile)) - k-31347)) + k-29515)) (cons '#(syntax-object begin ((top) @@ -25873,9 +25826,9 @@ #((top) (top) (top)) - #("l-*-31254" - "l-*-31255" - "l-*-31256")) + #("l-*-29422" + "l-*-29423" + "l-*-29424")) #(ribcage () () ()) #(ribcage #(f @@ -25884,74 +25837,74 @@ #((top) (top) (top)) - #("l-*-31239" - "l-*-31240" - "l-*-31241")) + #("l-*-29407" + "l-*-29408" + "l-*-29409")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("l-*-31229" - "l-*-31230" - "l-*-31231")) + #("l-*-29397" + "l-*-29398" + "l-*-29399")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-31226"))) + #("l-*-29394"))) (hygiene guile)) - (cons e1-31348 - e2-31349)))) - tmp-31343) + (cons e1-29516 + e2-29517)))) + tmp-29511) (syntax-violation 'case "bad clause" - x-31280 - clause-31334))))) - (let ((tmp-31357 - (f-31331 - (car clauses-31335) - (cdr clauses-31335)))) - (let ((tmp-31360 + x-29448 + clause-29502))))) + (let ((tmp-29525 + (f-29499 + (car clauses-29503) + (cdr clauses-29503)))) + (let ((tmp-29528 ($sc-dispatch - clause-31334 + clause-29502 '(each-any any . each-any)))) - (if tmp-31360 + (if tmp-29528 (@apply - (lambda (k-31364 e1-31365 e2-31366) + (lambda (k-29532 e1-29533 e2-29534) (list '#(syntax-object if ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) - #("l-*-31270" - "l-*-31271" - "l-*-31272")) + #("l-*-29438" + "l-*-29439" + "l-*-29440")) #(ribcage () () ()) #(ribcage #(rest) #((top)) - #("l-*-31266")) + #("l-*-29434")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("l-*-31239" - "l-*-31240" - "l-*-31241")) + #("l-*-29407" + "l-*-29408" + "l-*-29409")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("l-*-31229" - "l-*-31230" - "l-*-31231")) + #("l-*-29397" + "l-*-29398" + "l-*-29399")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-31226"))) + #("l-*-29394"))) (hygiene guile)) (list '#(syntax-object memv @@ -25959,32 +25912,32 @@ #(ribcage #(k e1 e2) #((top) (top) (top)) - #("l-*-31270" - "l-*-31271" - "l-*-31272")) + #("l-*-29438" + "l-*-29439" + "l-*-29440")) #(ribcage () () ()) #(ribcage #(rest) #((top)) - #("l-*-31266")) + #("l-*-29434")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("l-*-31239" - "l-*-31240" - "l-*-31241")) + #("l-*-29407" + "l-*-29408" + "l-*-29409")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("l-*-31229" - "l-*-31230" - "l-*-31231")) + #("l-*-29397" + "l-*-29398" + "l-*-29399")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-31226"))) + #("l-*-29394"))) (hygiene guile)) '#(syntax-object t @@ -25992,32 +25945,32 @@ #(ribcage #(k e1 e2) #((top) (top) (top)) - #("l-*-31270" - "l-*-31271" - "l-*-31272")) + #("l-*-29438" + "l-*-29439" + "l-*-29440")) #(ribcage () () ()) #(ribcage #(rest) #((top)) - #("l-*-31266")) + #("l-*-29434")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("l-*-31239" - "l-*-31240" - "l-*-31241")) + #("l-*-29407" + "l-*-29408" + "l-*-29409")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("l-*-31229" - "l-*-31230" - "l-*-31231")) + #("l-*-29397" + "l-*-29398" + "l-*-29399")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-31226"))) + #("l-*-29394"))) (hygiene guile)) (list '#(syntax-object quote @@ -26027,9 +25980,9 @@ #((top) (top) (top)) - #("l-*-31270" - "l-*-31271" - "l-*-31272")) + #("l-*-29438" + "l-*-29439" + "l-*-29440")) #(ribcage () () @@ -26037,7 +25990,7 @@ #(ribcage #(rest) #((top)) - #("l-*-31266")) + #("l-*-29434")) #(ribcage () () @@ -26049,17 +26002,17 @@ #((top) (top) (top)) - #("l-*-31239" - "l-*-31240" - "l-*-31241")) + #("l-*-29407" + "l-*-29408" + "l-*-29409")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("l-*-31229" - "l-*-31230" - "l-*-31231")) + #("l-*-29397" + "l-*-29398" + "l-*-29399")) #(ribcage () () @@ -26067,63 +26020,63 @@ #(ribcage #(x) #((top)) - #("l-*-31226"))) + #("l-*-29394"))) (hygiene guile)) - k-31364)) + k-29532)) (cons '#(syntax-object begin ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) - #("l-*-31270" - "l-*-31271" - "l-*-31272")) + #("l-*-29438" + "l-*-29439" + "l-*-29440")) #(ribcage () () ()) #(ribcage #(rest) #((top)) - #("l-*-31266")) + #("l-*-29434")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("l-*-31239" - "l-*-31240" - "l-*-31241")) + #("l-*-29407" + "l-*-29408" + "l-*-29409")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("l-*-31229" - "l-*-31230" - "l-*-31231")) + #("l-*-29397" + "l-*-29398" + "l-*-29399")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-31226"))) + #("l-*-29394"))) (hygiene guile)) - (cons e1-31365 e2-31366)) - tmp-31357)) - tmp-31360) + (cons e1-29533 e2-29534)) + tmp-29525)) + tmp-29528) (syntax-violation 'case "bad clause" - x-31280 - clause-31334)))))))) - (f-31331 m1-31287 m2-31288)))) - (let ((body-31290 tmp-31289)) + x-29448 + clause-29502)))))))) + (f-29499 m1-29455 m2-29456)))) + (let ((body-29458 tmp-29457)) (list '#(syntax-object let ((top) #(ribcage () () ()) - #(ribcage #(body) #((top)) #("l-*-31237")) + #(ribcage #(body) #((top)) #("l-*-29405")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("l-*-31229" "l-*-31230" "l-*-31231")) + #("l-*-29397" "l-*-29398" "l-*-29399")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-31226"))) + #(ribcage #(x) #((top)) #("l-*-29394"))) (hygiene guile)) (list (list '#(syntax-object t @@ -26132,122 +26085,122 @@ #(ribcage #(body) #((top)) - #("l-*-31237")) + #("l-*-29405")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("l-*-31229" - "l-*-31230" - "l-*-31231")) + #("l-*-29397" + "l-*-29398" + "l-*-29399")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-31226"))) + #("l-*-29394"))) (hygiene guile)) - e-31286)) - body-31290)))) - tmp-31282) + e-29454)) + body-29458)))) + tmp-29450) (syntax-violation #f "source expression failed to match any pattern" - x-31280)))))) + x-29448)))))) (define make-variable-transformer - (lambda (proc-31384) - (if (procedure? proc-31384) + (lambda (proc-29552) + (if (procedure? proc-29552) (letrec* - ((trans-31385 - (lambda (x-31391) (proc-31384 x-31391)))) + ((trans-29553 + (lambda (x-29559) (proc-29552 x-29559)))) (begin (set-procedure-property! - trans-31385 + trans-29553 'variable-transformer #t) - trans-31385)) + trans-29553)) (error "variable transformer not a procedure" - proc-31384)))) + proc-29552)))) (define identifier-syntax (make-syntax-transformer 'identifier-syntax 'macro - (lambda (x-31423) - (let ((tmp-31425 ($sc-dispatch x-31423 '(_ any)))) - (if tmp-31425 + (lambda (x-29591) + (let ((tmp-29593 ($sc-dispatch x-29591 '(_ any)))) + (if tmp-29593 (@apply - (lambda (e-31429) + (lambda (e-29597) (list '#(syntax-object lambda ((top) - #(ribcage #(e) #((top)) #("l-*-31398")) + #(ribcage #(e) #((top)) #("l-*-29566")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-31395"))) + #(ribcage #(x) #((top)) #("l-*-29563"))) (hygiene guile)) '(#(syntax-object x ((top) - #(ribcage #(e) #((top)) #("l-*-31398")) + #(ribcage #(e) #((top)) #("l-*-29566")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-31395"))) + #(ribcage #(x) #((top)) #("l-*-29563"))) (hygiene guile))) '#((#(syntax-object macro-type ((top) - #(ribcage #(e) #((top)) #("l-*-31398")) + #(ribcage #(e) #((top)) #("l-*-29566")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-31395"))) + #(ribcage #(x) #((top)) #("l-*-29563"))) (hygiene guile)) . #(syntax-object identifier-syntax ((top) - #(ribcage #(e) #((top)) #("l-*-31398")) + #(ribcage #(e) #((top)) #("l-*-29566")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-31395"))) + #(ribcage #(x) #((top)) #("l-*-29563"))) (hygiene guile)))) (list '#(syntax-object syntax-case ((top) - #(ribcage #(e) #((top)) #("l-*-31398")) + #(ribcage #(e) #((top)) #("l-*-29566")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-31395"))) + #(ribcage #(x) #((top)) #("l-*-29563"))) (hygiene guile)) '#(syntax-object x ((top) - #(ribcage #(e) #((top)) #("l-*-31398")) + #(ribcage #(e) #((top)) #("l-*-29566")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-31395"))) + #(ribcage #(x) #((top)) #("l-*-29563"))) (hygiene guile)) '() (list '#(syntax-object id ((top) - #(ribcage #(e) #((top)) #("l-*-31398")) + #(ribcage #(e) #((top)) #("l-*-29566")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-31395"))) + #(ribcage #(x) #((top)) #("l-*-29563"))) (hygiene guile)) '(#(syntax-object identifier? ((top) - #(ribcage #(e) #((top)) #("l-*-31398")) + #(ribcage #(e) #((top)) #("l-*-29566")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-31395"))) + #(ribcage #(x) #((top)) #("l-*-29563"))) (hygiene guile)) (#(syntax-object syntax ((top) - #(ribcage #(e) #((top)) #("l-*-31398")) + #(ribcage #(e) #((top)) #("l-*-29566")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-31395"))) + #(ribcage #(x) #((top)) #("l-*-29563"))) (hygiene guile)) #(syntax-object id ((top) - #(ribcage #(e) #((top)) #("l-*-31398")) + #(ribcage #(e) #((top)) #("l-*-29566")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-31395"))) + #(ribcage #(x) #((top)) #("l-*-29563"))) (hygiene guile)))) (list '#(syntax-object syntax @@ -26255,34 +26208,34 @@ #(ribcage #(e) #((top)) - #("l-*-31398")) + #("l-*-29566")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-31395"))) + #("l-*-29563"))) (hygiene guile)) - e-31429)) + e-29597)) (list '(#(syntax-object _ ((top) - #(ribcage #(e) #((top)) #("l-*-31398")) + #(ribcage #(e) #((top)) #("l-*-29566")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-31395"))) + #(ribcage #(x) #((top)) #("l-*-29563"))) (hygiene guile)) #(syntax-object x ((top) - #(ribcage #(e) #((top)) #("l-*-31398")) + #(ribcage #(e) #((top)) #("l-*-29566")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-31395"))) + #(ribcage #(x) #((top)) #("l-*-29563"))) (hygiene guile)) #(syntax-object ... ((top) - #(ribcage #(e) #((top)) #("l-*-31398")) + #(ribcage #(e) #((top)) #("l-*-29566")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-31395"))) + #(ribcage #(x) #((top)) #("l-*-29563"))) (hygiene guile))) (list '#(syntax-object syntax @@ -26290,26 +26243,26 @@ #(ribcage #(e) #((top)) - #("l-*-31398")) + #("l-*-29566")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-31395"))) + #("l-*-29563"))) (hygiene guile)) - (cons e-31429 + (cons e-29597 '(#(syntax-object x ((top) #(ribcage #(e) #((top)) - #("l-*-31398")) + #("l-*-29566")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-31395"))) + #("l-*-29563"))) (hygiene guile)) #(syntax-object ... @@ -26317,59 +26270,59 @@ #(ribcage #(e) #((top)) - #("l-*-31398")) + #("l-*-29566")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-31395"))) + #("l-*-29563"))) (hygiene guile))))))))) - tmp-31425) - (let ((tmp-31430 + tmp-29593) + (let ((tmp-29598 ($sc-dispatch - x-31423 + x-29591 '(_ (any any) ((#(free-id #(syntax-object set! ((top) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-31395"))) + #(ribcage #(x) #((top)) #("l-*-29563"))) (hygiene guile))) any any) any))))) - (if (if tmp-31430 + (if (if tmp-29598 (@apply - (lambda (id-31434 - exp1-31435 - var-31436 - val-31437 - exp2-31438) - (if (identifier? id-31434) - (identifier? var-31436) + (lambda (id-29602 + exp1-29603 + var-29604 + val-29605 + exp2-29606) + (if (identifier? id-29602) + (identifier? var-29604) #f)) - tmp-31430) + tmp-29598) #f) (@apply - (lambda (id-31439 - exp1-31440 - var-31441 - val-31442 - exp2-31443) + (lambda (id-29607 + exp1-29608 + var-29609 + val-29610 + exp2-29611) (list '#(syntax-object make-variable-transformer ((top) #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("l-*-31413" - "l-*-31414" - "l-*-31415" - "l-*-31416" - "l-*-31417")) + #("l-*-29581" + "l-*-29582" + "l-*-29583" + "l-*-29584" + "l-*-29585")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-31395"))) + #(ribcage #(x) #((top)) #("l-*-29563"))) (hygiene guile)) (list '#(syntax-object lambda @@ -26377,13 +26330,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("l-*-31413" - "l-*-31414" - "l-*-31415" - "l-*-31416" - "l-*-31417")) + #("l-*-29581" + "l-*-29582" + "l-*-29583" + "l-*-29584" + "l-*-29585")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-31395"))) + #(ribcage #(x) #((top)) #("l-*-29563"))) (hygiene guile)) '(#(syntax-object x @@ -26391,13 +26344,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("l-*-31413" - "l-*-31414" - "l-*-31415" - "l-*-31416" - "l-*-31417")) + #("l-*-29581" + "l-*-29582" + "l-*-29583" + "l-*-29584" + "l-*-29585")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-31395"))) + #(ribcage #(x) #((top)) #("l-*-29563"))) (hygiene guile))) '#((#(syntax-object macro-type @@ -26405,13 +26358,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("l-*-31413" - "l-*-31414" - "l-*-31415" - "l-*-31416" - "l-*-31417")) + #("l-*-29581" + "l-*-29582" + "l-*-29583" + "l-*-29584" + "l-*-29585")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-31395"))) + #(ribcage #(x) #((top)) #("l-*-29563"))) (hygiene guile)) . #(syntax-object @@ -26420,13 +26373,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("l-*-31413" - "l-*-31414" - "l-*-31415" - "l-*-31416" - "l-*-31417")) + #("l-*-29581" + "l-*-29582" + "l-*-29583" + "l-*-29584" + "l-*-29585")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-31395"))) + #(ribcage #(x) #((top)) #("l-*-29563"))) (hygiene guile)))) (list '#(syntax-object syntax-case @@ -26434,16 +26387,16 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("l-*-31413" - "l-*-31414" - "l-*-31415" - "l-*-31416" - "l-*-31417")) + #("l-*-29581" + "l-*-29582" + "l-*-29583" + "l-*-29584" + "l-*-29585")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-31395"))) + #("l-*-29563"))) (hygiene guile)) '#(syntax-object x @@ -26451,16 +26404,16 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("l-*-31413" - "l-*-31414" - "l-*-31415" - "l-*-31416" - "l-*-31417")) + #("l-*-29581" + "l-*-29582" + "l-*-29583" + "l-*-29584" + "l-*-29585")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-31395"))) + #("l-*-29563"))) (hygiene guile)) '(#(syntax-object set! @@ -26468,16 +26421,16 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("l-*-31413" - "l-*-31414" - "l-*-31415" - "l-*-31416" - "l-*-31417")) + #("l-*-29581" + "l-*-29582" + "l-*-29583" + "l-*-29584" + "l-*-29585")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-31395"))) + #("l-*-29563"))) (hygiene guile))) (list (list '#(syntax-object set! @@ -26489,19 +26442,19 @@ (top) (top) (top)) - #("l-*-31413" - "l-*-31414" - "l-*-31415" - "l-*-31416" - "l-*-31417")) + #("l-*-29581" + "l-*-29582" + "l-*-29583" + "l-*-29584" + "l-*-29585")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-31395"))) + #("l-*-29563"))) (hygiene guile)) - var-31441 - val-31442) + var-29609 + val-29610) (list '#(syntax-object syntax ((top) @@ -26512,19 +26465,19 @@ (top) (top) (top)) - #("l-*-31413" - "l-*-31414" - "l-*-31415" - "l-*-31416" - "l-*-31417")) + #("l-*-29581" + "l-*-29582" + "l-*-29583" + "l-*-29584" + "l-*-29585")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-31395"))) + #("l-*-29563"))) (hygiene guile)) - exp2-31443)) - (list (cons id-31439 + exp2-29611)) + (list (cons id-29607 '(#(syntax-object x ((top) @@ -26535,16 +26488,16 @@ (top) (top) (top)) - #("l-*-31413" - "l-*-31414" - "l-*-31415" - "l-*-31416" - "l-*-31417")) + #("l-*-29581" + "l-*-29582" + "l-*-29583" + "l-*-29584" + "l-*-29585")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-31395"))) + #("l-*-29563"))) (hygiene guile)) #(syntax-object ... @@ -26556,16 +26509,16 @@ (top) (top) (top)) - #("l-*-31413" - "l-*-31414" - "l-*-31415" - "l-*-31416" - "l-*-31417")) + #("l-*-29581" + "l-*-29582" + "l-*-29583" + "l-*-29584" + "l-*-29585")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-31395"))) + #("l-*-29563"))) (hygiene guile)))) (list '#(syntax-object syntax @@ -26577,18 +26530,18 @@ (top) (top) (top)) - #("l-*-31413" - "l-*-31414" - "l-*-31415" - "l-*-31416" - "l-*-31417")) + #("l-*-29581" + "l-*-29582" + "l-*-29583" + "l-*-29584" + "l-*-29585")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-31395"))) + #("l-*-29563"))) (hygiene guile)) - (cons exp1-31440 + (cons exp1-29608 '(#(syntax-object x ((top) @@ -26603,16 +26556,16 @@ (top) (top) (top)) - #("l-*-31413" - "l-*-31414" - "l-*-31415" - "l-*-31416" - "l-*-31417")) + #("l-*-29581" + "l-*-29582" + "l-*-29583" + "l-*-29584" + "l-*-29585")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-31395"))) + #("l-*-29563"))) (hygiene guile)) #(syntax-object ... @@ -26628,18 +26581,18 @@ (top) (top) (top)) - #("l-*-31413" - "l-*-31414" - "l-*-31415" - "l-*-31416" - "l-*-31417")) + #("l-*-29581" + "l-*-29582" + "l-*-29583" + "l-*-29584" + "l-*-29585")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-31395"))) + #("l-*-29563"))) (hygiene guile)))))) - (list id-31439 + (list id-29607 (list '#(syntax-object identifier? ((top) @@ -26650,16 +26603,16 @@ (top) (top) (top)) - #("l-*-31413" - "l-*-31414" - "l-*-31415" - "l-*-31416" - "l-*-31417")) + #("l-*-29581" + "l-*-29582" + "l-*-29583" + "l-*-29584" + "l-*-29585")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-31395"))) + #("l-*-29563"))) (hygiene guile)) (list '#(syntax-object syntax @@ -26675,18 +26628,18 @@ (top) (top) (top)) - #("l-*-31413" - "l-*-31414" - "l-*-31415" - "l-*-31416" - "l-*-31417")) + #("l-*-29581" + "l-*-29582" + "l-*-29583" + "l-*-29584" + "l-*-29585")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-31395"))) + #("l-*-29563"))) (hygiene guile)) - id-31439)) + id-29607)) (list '#(syntax-object syntax ((top) @@ -26697,69 +26650,69 @@ (top) (top) (top)) - #("l-*-31413" - "l-*-31414" - "l-*-31415" - "l-*-31416" - "l-*-31417")) + #("l-*-29581" + "l-*-29582" + "l-*-29583" + "l-*-29584" + "l-*-29585")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-31395"))) + #("l-*-29563"))) (hygiene guile)) - exp1-31440)))))) - tmp-31430) + exp1-29608)))))) + tmp-29598) (syntax-violation #f "source expression failed to match any pattern" - x-31423)))))))) + x-29591)))))))) (define define* (make-syntax-transformer 'define* 'macro - (lambda (x-31475) - (let ((tmp-31477 + (lambda (x-29643) + (let ((tmp-29645 ($sc-dispatch - x-31475 + x-29643 '(_ (any . any) any . each-any)))) - (if tmp-31477 + (if tmp-29645 (@apply - (lambda (id-31481 args-31482 b0-31483 b1-31484) + (lambda (id-29649 args-29650 b0-29651 b1-29652) (list '#(syntax-object define ((top) #(ribcage #(id args b0 b1) #((top) (top) (top) (top)) - #("l-*-31457" - "l-*-31458" - "l-*-31459" - "l-*-31460")) + #("l-*-29625" + "l-*-29626" + "l-*-29627" + "l-*-29628")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-31454"))) + #(ribcage #(x) #((top)) #("l-*-29622"))) (hygiene guile)) - id-31481 + id-29649 (cons '#(syntax-object lambda* ((top) #(ribcage #(id args b0 b1) #((top) (top) (top) (top)) - #("l-*-31457" - "l-*-31458" - "l-*-31459" - "l-*-31460")) + #("l-*-29625" + "l-*-29626" + "l-*-29627" + "l-*-29628")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-31454"))) + #(ribcage #(x) #((top)) #("l-*-29622"))) (hygiene guile)) - (cons args-31482 (cons b0-31483 b1-31484))))) - tmp-31477) - (let ((tmp-31485 ($sc-dispatch x-31475 '(_ any any)))) - (if (if tmp-31485 + (cons args-29650 (cons b0-29651 b1-29652))))) + tmp-29645) + (let ((tmp-29653 ($sc-dispatch x-29643 '(_ any any)))) + (if (if tmp-29653 (@apply - (lambda (id-31489 val-31490) + (lambda (id-29657 val-29658) (identifier? '#(syntax-object x @@ -26767,29 +26720,29 @@ #(ribcage #(id val) #((top) (top)) - #("l-*-31467" "l-*-31468")) + #("l-*-29635" "l-*-29636")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-31454"))) + #(ribcage #(x) #((top)) #("l-*-29622"))) (hygiene guile)))) - tmp-31485) + tmp-29653) #f) (@apply - (lambda (id-31491 val-31492) + (lambda (id-29659 val-29660) (list '#(syntax-object define ((top) #(ribcage #(id val) #((top) (top)) - #("l-*-31471" "l-*-31472")) + #("l-*-29639" "l-*-29640")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-31454"))) + #(ribcage #(x) #((top)) #("l-*-29622"))) (hygiene guile)) - id-31491 - val-31492)) - tmp-31485) + id-29659 + val-29660)) + tmp-29653) (syntax-violation #f "source expression failed to match any pattern" - x-31475)))))))) + x-29643)))))))) diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm index 270daa7ce..729ae6ecb 100644 --- a/module/ice-9/psyntax.scm +++ b/module/ice-9/psyntax.scm @@ -2552,7 +2552,8 @@ who 'syntax-violation) (arg-check string? message 'syntax-violation) (throw 'syntax-error who message - (source-annotation (or form subform)) + (or (source-annotation subform) + (source-annotation form)) (strip form empty-wrap) (and subform (strip subform empty-wrap))))) |